Source Code

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

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

029027,000002:                                                                                                  ## Copyright:   Public domain.
029028,000003:                                                                                                  ## Filename:    P40-P47.agc
029029,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
029030,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
029031,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
029032,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
029033,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
029034,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
029035,000010:                                                                                                  ##              other AGC programs.
029036,000011:                                                                                                  ## Assembler:   yaYUL
029037,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029038,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029039,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
029040,000015:                                                                                                  ##              2024-05-13 MAS  Updated for Comanche 067.
029041,000016: 
029042,000017:                                                                                                  #  PROGRAM DESCRIPTION ** P40CSM **
029043,000018: 
029044,000019: 35,3477  E6,1466                                  EBANK=   DAPDATR1                              
029045,000020: 31,3700                                           BANK     31                                    
029046,000021: 24,2000                                           SETLOC   P40S                                  
029047,000022: 24,2000                                           BANK                                           
029048,000023: 
029049,000024: 24,2073                                           COUNT    24/P40                                
029050,000025: 
029051,000026: 24,2073           05574        P40CSM             TC       DOWNFLAG                              
029052,000027: 24,2074           00023                           ADRES    ENG2FLAG                              
029053,000028: 
029054,000029: 24,2075           06006                           TC       INTPRET                               
029055,000030: 24,2076           43135                           SLOAD    BOFF                                  
029056,000031: 24,2077           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
029057,000032: 24,2100           01347                                    XDELVFLG                              
029058,000033: 24,2101           50104                                    P40S/C                                #  NO    CSTEER = ECSTEER
029059,000034: 24,2102           77745                           DLOAD                                          #  YES   CSTEER = ZERO
029060,000035: 24,2103           15334                                    HI6ZEROS                              
029061,000036: 24,2104           17703        P40S/C             STODL    CSTEER                                
029062,000037: 24,2105           10411                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
029063,000038: 24,2106           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
029064,000039: 24,2107           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
029065,000040: 24,2110           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
029066,000041: 
029067,000042: 24,2111           77776                           EXIT                                           
029068,000043: 24,2112           04676                           TC       BANKCALL                              
029069,000044: 24,2113           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
029070,000045: 
029071,000046: 24,2114           06006        P40PVA             TC       INTPRET                               
029072,000047: 24,2115           77624                           CALL                                           
029073,000048: 24,2116           34073                                    S40.1                                 #  COMPUTE VGTIG,UT
029074,000049: 24,2117           77624                           CALL                                           
029075,000050: 24,2120           51574                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
029076,000051: 24,2121           77414                           SET      EXIT                                  
029077,000052: 24,2122           01073                                    PFRATFLG                              
029078,000053: 24,2123           02303        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
029079,000054: 24,2124           00003                           RELINT                                         
029080,000055: 24,2125           04676                           TC       BANKCALL                              
029081,000056: 24,2126           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
029082,000057: 24,2127           45033                           CS       ONE                                   #  FOR UPDATEVG
029083,000058: 24,2130           55744                           TS       NBRCYCLS                              
029084,000059: 24,2131           05562                           TC       UPFLAG                                
029085,000060: 24,2132           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
029086,000061: 
029087,000062: 24,2133           02326                           TC       P41/P40                               
029088,000063: 24,2134           02343                           TC       P41/DSP                               #  P41
029089,000064: 
029090,000065: 24,2135           32425        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED
029091,000066: 24,2136           55145                           TS       NVWORD1                               #  BELOW
029092,000067: 
029093,000068: 24,2137           06006                           TC       INTPRET                               
029094,000069: 24,2140           51575                           VLOAD    ABVAL                                 #  FOR R2
029095,000070: 24,2141           03721                                    VGTIG                                 
029096,000071: 24,2142           17773                           STODL    VGDISP                                
029097,000072: 24,2143           15334                                    HI6ZEROS                              
029098,000073: 24,2144           03426                           STORE    DVTOTAL                               
029099,000074: 24,2145           77776                           EXIT                                           
029100,000075: 
029101,000076: 24,2146           00006                           EXTEND                                         
029102,000077: 24,2147           33061                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
029103,000078: 24,2150           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
029104,000079: 
029105,000080: 24,2151           32420        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
029106,000081: 24,2152           04676                           TC       BANKCALL                              
029107,000082: 24,2153           21045                           CADR     GOPERF1                               
029108,000083: 24,2154           12275                           TCF      POST41                                #  V34
029109,000084: 24,2155           12435                           TCF      TST,TRIM                              #  V33
029110,000085: 24,2156           45033        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
029111,000086: 24,2157           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
029112,000087: 
029113,000088: 24,2160           35035                           CAF      ZERO                                  #  SET CNTR      +0 FOR RESTART LOGIC IN S40.6
029114,000089: 24,2161           55447                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
029115,000090:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
029116,000091: 
029117,000092: 24,2162           35033                           CAF      ONE                                   
029118,000093: 24,2163           05261                           TC       WAITLIST                              
029119,000094: 24,2164  E6,1466                                  EBANK=   DAPDATR1                              
029120,000095: 24,2164           02271 40066                     2CADR    S40.6                                 
029121,000096: 
029122,000097: 24,2166           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
029123,000098: 24,2167           32417                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
029124,000099: 24,2170           12172                           TCF      +2                                    #  HOLE
029125,000100: 24,2171           33064                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
029126,000101: 24,2172           04676                           TC       BANKCALL                              
029127,000102: 24,2173           01732                           CADR     DELAYJOB                              
029128,000103: 24,2174           05406                           TC       2PHSCHNG                              
029129,000104: 24,2175           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
029130,000105: 24,2176           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
029131,000106: 24,2177           35033        P40S/RS            CAF      ONE                                   
029132,000107: 24,2200           05261                           TC       WAITLIST                              #  P41/SDP
029133,000108: 24,2201  E7,1412                                  EBANK=   TIG                                   
029134,000109: 24,2201           03260 50067                     2CADR    CLOKTASK                              
029135,000110: 
029136,000111: 24,2203           00003                           RELINT                                         
029137,000112: 
029138,000113: 24,2204           03366        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
029139,000114: 24,2205  E7,1412                                  EBANK=   TIG                                   
029140,000115: 24,2205           06006                           TC       INTPRET                               
029141,000116: 24,2206           45345                           DLOAD    DSU                                   
029142,000117: 24,2207           03413                                    TIG                                   
029143,000118: 24,2210           10416                                    SEC29.96                              
029144,000119: 24,2211           00041                           STORE    TDEC1                                 
029145,000120: 
029146,000121: 24,2212           77624                           CALRB                                          #  RETURN IN BASIC
029147,000122: 24,2213           27563                                    MIDTOAV1                              
029148,000123: 24,2214           12216                           TCF      +2                                    
029149,000124: 24,2215           02237                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
029150,000125: 24,2216           00006        P40SET             EXTEND                                         
029151,000126: 24,2217           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
029152,000127: 24,2220           53673                           DXCH     P40TMP                                
029153,000128: 24,2221           00006                           EXTEND                                         
029154,000129: 24,2222           43064                           DCS      5SECDP                                #  FOR TTGBLNK
029155,000130: 24,2223           21673                           DAS      P40TMP                                
029156,000131: 24,2224           00006                           EXTEND                                         
029157,000132: 24,2225           31673                           DCA      P40TMP                                
029158,000133: 24,2226           05356                           TC       LONGCALL                              
029159,000134: 24,2227  E7,1412                                  EBANK=   TIG                                   
029160,000135: 24,2227           02437 50067                     2CADR    TIGBLNK                               
029161,000136: 
029162,000137: 24,2231           05426                           TC       PHASCHNG                              
029163,000138: 24,2232           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
029164,000139: 
029165,000140: 24,2233           15233                           TCF      ENDOFJOB                              
029166,000141: 24,2234           04676        P40BLNKR           TC       BANKCALL                              
029167,000142: 24,2235           20703                           CADR     CLEANDSP                              #  REMOVE RESIDUE
029168,000143: 24,2236           15233                           TCF      ENDOFJOB                              
029169,000144: 24,2237  E7,1412                                  EBANK=   TIG                                   
029170,000145: 24,2237           00006        P40SNEWM           EXTEND                                         
029171,000146: 24,2240           31246                           DCA      PIPTIME1                              
029172,000147: 24,2241           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
029173,000148: 24,2242           00006                           EXTEND                                         
029174,000149: 24,2243           32416                           DCA      SEC29.96                              
029175,000150: 24,2244           21413                           DAS      TIG                                   
029176,000151: 24,2245           12216                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30 (OR -35)
029177,000152: 
029178,000153: 24,2246  E6,1466                                  EBANK=   DAPDATR1                              
029179,000154: 24,2246           32426        POSTBURN           CAF      V16N40                                
029180,000155: 24,2247           04676                           TC       BANKCALL                              
029181,000156: 24,2250           20704                           CADR     REFLASH                               
029182,000157: 24,2251           12275                           TCF      POST41                                #  V34 GO FINISH
029183,000158: 24,2252           12254                           TCF      P40RCS                                #  PROCEED
029184,000159: 24,2253           12246                           TCF      POSTBURN                              #  RECYCLE
029185,000160: 24,2254           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
029186,000161: 24,2255           32462                           DCA      ACADN85                               
029187,000162: 24,2256           53223                           DXCH     AVEGEXIT                              
029188,000163: 24,2257           35056                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
029189,000164: 24,2260           04676                           TC       BANKCALL                              
029190,000165: 24,2261           01732                           CADR     DELAYJOB                              
029191,000166: 
029192,000167: 24,2262           02303        P40MINDB           TCR      SETMINDB   -1                         
029193,000168: 24,2263           00003                           RELINT                                         
029194,000169: 24,2264           05426        TIGNOW             TC       PHASCHNG                              
029195,000170: 24,2265           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
029196,000171: 24,2266           57777                           OCT      57777                                 #  PRIO 20 NOVAC
029197,000172: 24,2267           32424                           CAF      V16N85B                               
029198,000173: 24,2270           04676                           TC       BANKCALL                              
029199,000174: 24,2271           20704                           CADR     REFLASH                               
029200,000175: 24,2272           12275                           TCF      POST41                                #  FINISH P40/P41
029201,000176: 24,2273           12275                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
029202,000177: 24,2274           12264                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
029203,000178: 
029204,000179: 24,2275           00006        POST41             EXTEND                                         
029205,000180: 24,2276           32460                           DCA      SERVCADR                              
029206,000181: 24,2277           53223                           DXCH     AVEGEXIT                              
029207,000182: 24,2300           14106                           TCF      GOTOPOOH                              
029208,000183: 
029209,000184: 24,2301           00056        MINDB              DEC      46         B-14                       
029210,000185: 24,2302           00707        MAXDB              DEC      455        B-14                       
029211,000186: 24,2303  E6,1466                                  EBANK=   DAPDATR1                              
029212,000187: 24,2303           00004                 -1        INHINT                                         
029213,000188: 24,2304           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
029214,000189: 24,2305           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
029215,000190: 24,2306           00006                           EXTEND                                         #  IN AUTOPILOT
029216,000191: 24,2307           30034                           DCA      CDUY                                  
029217,000192: 24,2310           53574                           DXCH     THETADY                               
029218,000193: 24,2311           32301                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
029219,000194: 24,2312           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
029220,000195: 24,2313           45030                           CS       BIT4                                  #  EBANK = E6
029221,000196: 24,2314           71466                           MASK     DAPDATR1                              
029222,000197: 24,2315           55466                           TS       DAPDATR1                              
029223,000198: 24,2316           00002                           TC       Q                                     
029224,000199: 
029225,000200: 24,2317  E6,1466                                  EBANK=   DAPDATR1                              
029226,000201: 24,2317           00004                 -1        INHINT                                         
029227,000202: 24,2320           32302        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
029228,000203: 24,2321           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
029229,000204: 24,2322           41466                           CS       DAPDATR1                              
029230,000205: 24,2323           75030                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
029231,000206: 24,2324           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
029232,000207: 24,2325           00002                           TC       Q                                     #  EBANK = E6
029233,000208: 
029234,000209:                                                                                                  #  PROGRAM DESCRIPTION ** P41CSM **
029235,000210: 
029236,000211: 27,2000                                           SETLOC   P40S2                                 
029237,000212: 27,2000                                           BANK                                           
029238,000213: 
029239,000214: 27,2615  E6,1466                                  EBANK=   DAPDATR1                              
029240,000215: 27,2615                                           COUNT    24/P41                                
029241,000216: 
029242,000217: 27,2615           05562        P41CSM             TC       UPFLAG                                
029243,000218: 27,2616           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
029244,000219: 
029245,000220: 27,2617           06006                           TC       INTPRET                               
029246,000221: 27,2620           77745                           DLOAD                                          
029247,000222: 27,2621           15334                                    HI6ZEROS                              #  FOR P41 CSTEER =0
029248,000223: 27,2622           03703                           STORE    CSTEER                                
029249,000224: 
029250,000225: 27,2623           43145                           DLOAD    BON                                   
029251,000226: 27,2624           10413                                    FRCS2                                 #  2JET THRUST FOR S40.1
029252,000227: 27,2625           00700                                    NJETSFLG                              
029253,000228: 27,2626           50106                                    P40S/F                                #  NJETS = 1 2-JET
029254,000229: 27,2627           52015                           DAD      GOTO                                  #  NJETS = 0 4-JET
029255,000230: 27,2630           10413                                    FRCS2                                 
029256,000231: 27,2631           50106                                    P40S/F                                
029257,000232: 
029258,000233: 24,2000                                           SETLOC   P40S                                  
029259,000234: 24,2000                                           BANK                                           
029260,000235: 
029261,000236: 24,2326           41011        P41/P40            CS       MODREG                                
029262,000237: 24,2327           75033                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
029263,000238: 24,2330           00006                           EXTEND                                         
029264,000239: 24,2331           12333                           BZF      +2                                    #  P41
029265,000240: 24,2332           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
029266,000241: 24,2333           00002                           TC       Q                                     
029267,000242: 
029268,000243: 24,2334           35016        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
029269,000244: 24,2335           05150                           TC       NOVAC                                 
029270,000245: 24,2336  E6,1466                                  EBANK=   DAPDATR1                              
029271,000246: 24,2336           02264 50066                     2CADR    TIGNOW                                
029272,000247: 
029273,000248: 24,2340           05574        P40CLK             TC       DOWNFLAG                              
029274,000249: 24,2341           00155                           ADRES    TIMRFLAG                              
029275,000250: 
029276,000251: 24,2342           15340                           TCF      TASKOVER                              
029277,000252: 
029278,000253: 24,2343           32423        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
029279,000254: 24,2344           55145                           TS       NVWORD1                               
029280,000255: 
029281,000256: 24,2345           06006                           TC       INTPRET                               
029282,000257: 24,2346           77624                           CALL                                           #  COMPUTE
029283,000258: 24,2347           50370                                    P40CNV85                              #        VGTIG IN CTRL COORDS
029284,000259: 24,2350           77776                           EXIT                                           
029285,000260: 24,2351           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
029286,000261: 24,2352           32462                           DCA      ACADN85                               
029287,000262: 24,2353           53223                           DXCH     AVEGEXIT                              
029288,000263: 24,2354           05406                           TC       2PHSCHNG                              
029289,000264: 24,2355           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
029290,000265: 24,2356           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
029291,000266: 
029292,000267: 24,2357           12177                           TCF      P40S/RS                               
029293,000268: 24,2360           32424        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
029294,000269: 24,2361           55145                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
029295,000270: 24,2362           32416                           CAF      SEC29.96   +1                         
029296,000271: 24,2363           05261                           TC       WAITLIST                              
029297,000272: 24,2364  E6,1466                                  EBANK=   DAPDATR1                              
029298,000273: 24,2364           02334 50066                     2CADR    TTG/0                                 
029299,000274: 
029300,000275: 24,2366           45031                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
029301,000276: 24,2367           12566                           TCF      TTGPHS                                
029302,000277: 24,2370           40220        P40CNV85           STQ      SETPD                                 
029303,000278: 24,2371           03730                                    QTEMP1                                
029304,000279: 24,2372           00001                                    0                                     
029305,000280: 24,2373           41575                           VLOAD    PUSH                                  
029306,000281: 24,2374           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
029307,000282: 24,2375           77624                           CALL                                           
029308,000283: 24,2376           45431                                    S41.1                                 
029309,000284: 24,2377           37665                           STCALL   VGBODY                                
029310,000285: 24,2400           03730                                    QTEMP1                                
029311,000286: 
029312,000287: 24,2401  E6,1466                                  EBANK=   DAPDATR1                              
029313,000288: 24,2401           06006        CALCN85            TC       INTPRET                               
029314,000289: 24,2402           77624                           CALL                                           
029315,000290: 24,2403           51104                                    UPDATEVG                              #  NEW VG, S40.8 (+MAYBE S40.9)
029316,000291: 24,2404           77624                           CALL                                           
029317,000292: 24,2405           50370                                    P40CNV85                              #  COMPUTE VGBODY
029318,000293: 24,2406           77776                           EXIT                                           
029319,000294: 24,2407           03215                           TC       SERVXT                                
029320,000295: 24,2410           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
029321,000296: 
029322,000297: 24,2412           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
029323,000298: 
029324,000299:                                                                                                  #        B+7 NEWTONS/E+4
029325,000300: 24,2414           04700        SEC24.96           DEC      2496       B-14                       
029326,000301: 24,2415           00000 05664  SEC29.96           2DEC     2996       B-28                       
029327,000302: 
029328,000303: 24,2417           03410        18SEC              DEC      1800       B-14                       
029329,000304: 24,2420           00204        P40CKLS2           OCT      204                                   
029330,000305: 24,2421           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
029331,000306: 24,2422     4377               OCT12              =        TEN                                   
029332,000307: 24,2422           04123        V1683              VN       1683                                  
029333,000308: 24,2423           01525        V06N85B            VN       0685                                  
029334,000309: 24,2424           04125        V16N85B            VN       1685                                  
029335,000310: 24,2425           01450        V06N40             VN       0640                                  
029336,000311: 24,2426           04050        V16N40             VN       1640                                  
029337,000312: 24,2427           00027        OCT27/24           OCT      27                                    
029338,000313: 24,2430           00053        OCT53              OCT      53                                    
029339,000314: 24,2431           00035        OCT35              OCT      35                                    
029340,000315: 24,2432  E6,1466                                  EBANK=   DAPDATR1                              
029341,000316: 24,2432           03155 12066  T5IDL24            2CADR    T5IDLOC                               
029342,000317: 
029343,000318: 24,2434           00026        3MDOT              DEC      86.6175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
029344,000319:                                                                                                  #  B+16 KG/SEC (NOTE, EMDOT IS PAD-LOADED,
029345,000320:                                                                                                  #  BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
029346,000321:                                                                                                  #  IT CAN REMAIN IN FIXED MEMORY)
029347,000322: 24,2435           35033        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
029348,000323: 24,2436           12157                           TCF      TRIMONLY   +1                         
029349,000324: 24,2437           33064        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
029350,000325: 24,2440           05261                           TC       WAITLIST                              
029351,000326: 24,2441  E7,1412                                  EBANK=   TIG                                   
029352,000327: 24,2441           02555 50067                     2CADR    TIGAVEG                               
029353,000328: 
029354,000329: 24,2443           35035                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
029355,000330: 24,2444           55145                           TS       NVWORD1                               
029356,000331: 
029357,000332: 24,2445           35102                           CAF      PRIO14                                
029358,000333: 24,2446           05150                           TC       NOVAC                                 
029359,000334: 24,2447  E7,1412                                  EBANK=   TIG                                   
029360,000335: 24,2447           02234 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
029361,000336: 
029362,000337: 24,2451           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
029363,000338: 24,2452           04114        P40TSK             TC       NEWPHASE                              
029364,000339: 24,2453           00004                           OCT      4                                     
029365,000340: 24,2454           05340                           TC       TASKOVER                              
029366,000341: 
029367,000342: 24,2455  E7,1412                                  EBANK=   TIG                                   
029368,000343: 24,2455           02511 50067  ACADN83            2CADR    CALCN83                               
029369,000344: 
029370,000345: 24,2457  E7,1412                                  EBANK=   TIG                                   
029371,000346: 24,2457           03231 76067  SERVCADR           2CADR    SERVEXIT                              
029372,000347: 
029373,000348: 24,2461  E6,1466                                  EBANK=   DAPDATR1                              
029374,000349: 24,2461           02401 50066  ACADN85            2CADR    CALCN85                               
029375,000350: 
029376,000351:                                                                                                  #  PROGRAM DESCRIPTION ** P47CSM **
029377,000352: 
029378,000353: 24,2463                                           COUNT    24/P47                                
029379,000354: 
029380,000355: 24,2463  E7,1412                                  EBANK=   TIG                                   
029381,000356: 24,2463           04676        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
029382,000357: 24,2464           17653                           CADR     R02BOTH                               
029383,000358: 24,2465           06006                           TC       INTPRET                               
029384,000359: 24,2466           77624                           CALRB                                          
029385,000360: 24,2467           27553                                    MIDTOAV2                              
029386,000361: 24,2470           30155                           CA       MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
029387,000362: 24,2471           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
029388,000363: 24,2472           05261                           TC       WAITLIST                              
029389,000364: 24,2473  E7,1412                                  EBANK=   TIG                                   
029390,000365: 24,2473           02500 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
029391,000366: 
029392,000367: 24,2475           05426                           TC       PHASCHNG                              
029393,000368: 24,2476           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
029394,000369: 24,2477           15233                           TCF      ENDOFJOB                              
029395,000370: 
029396,000371: 24,2500  E7,1672                                  EBANK=   P40TMP                                
029397,000372: 24,2500           00006        TIGON              EXTEND                                         
029398,000373: 24,2501           32456                           DCA      ACADN83                               
029399,000374: 24,2502           53223                           DXCH     AVEGEXIT                              
029400,000375: 24,2503           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
029401,000376: 24,2504           05150                           TC       NOVAC                                 
029402,000377: 24,2505  E7,1412                                  EBANK=   TIG                                   
029403,000378: 24,2505           02534 50067                     2CADR    P47BODY                               
029404,000379: 
029405,000380: 24,2507           45032                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
029406,000381: 24,2510           12566                           TCF      TTGPHS                                
029407,000382: 
029408,000383: 24,2511  E7,1412                                  EBANK=   TIG                                   
029409,000384: 24,2511           06006        CALCN83            TC       INTPRET                               
029410,000385: 24,2512           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
029411,000386: 24,2513           00001                                    0                                     
029412,000387: 24,2514           53375                           VLOAD    VAD                                   
029413,000388: 24,2515           03665                                    DELVCTL                               
029414,000389: 24,2516           03433                                    DELVREF                               
029415,000390: 24,2517           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
029416,000391: 24,2520           45006                           PUSH     CALL                                  
029417,000392: 24,2521           45431                                    S41.1                                 
029418,000393: 24,2522           37675                           STCALL   DELVIMU                               
029419,000394: 24,2523           70542                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
029420,000395: 24,2524           77776                           EXIT                                           
029421,000396: 24,2525           05426                           TC       PHASCHNG                              
029422,000397: 24,2526           10035                           OCT      10035                                 
029423,000398: 24,2527           35036                           CAF      FIVE                                  
029424,000399: 24,2530           05622                           TC       GENTRAN                               
029425,000400: 24,2531           01457                           ADRES    DV47TEMP                              
029426,000401: 24,2532           01664                           ADRES    DELVCTL                               
029427,000402: 
029428,000403: 24,2533           03215                           TC       SERVXT                                
029429,000404: 24,2534           06006        P47BODY            TC       INTPRET                               
029430,000405: 24,2535           77775                           VLOAD                                          
029431,000406: 24,2536           15334                                    HI6ZEROS                              
029432,000407: 24,2537           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
029433,000408: 24,2540           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
029434,000409: 24,2541           77776                           EXIT                                           
029435,000410: 24,2542           35103        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
029436,000411: 24,2543           05224                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
029437,000412: 24,2544           05426                           TC       PHASCHNG                              
029438,000413: 24,2545           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
029439,000414: 24,2546           62777                           OCT      62777                                 #  PRIO 15 NOVAC
029440,000415: 24,2547           32422        P47/DSP            CAF      V1683                                 
029441,000416: 24,2550           04676                           TC       BANKCALL                              
029442,000417: 24,2551           20720                           CADR     GOFLASH                               
029443,000418: 24,2552           04106                           TC       GOTOPOOH                              
029444,000419: 24,2553           04106                           TC       GOTOPOOH                              
029445,000420: 24,2554           12534                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
029446,000421: 
029447,000422:                                                                                                  #  ROUTINE ** TIG-30 ** DESCRIPTION
029448,000423: 
029449,000424: 24,2555  E7,1412                                  EBANK=   TIG                                   
029450,000425: 24,2555                                           COUNT    24/P40                                
029451,000426: 
029452,000427: 24,2555           02326        TIGAVEG            TC       P41/P40                               #  TASK (4.37 PROTECTS)
029453,000428: 24,2556           12360                           TCF      P41REDSP                              #  P41
029454,000429: 
029455,000430: 24,2557           32425                           CAF      V06N40                                #  UNBLANK DISPLAY
029456,000431: 24,2560           55145                           TS       NVWORD1                               
029457,000432: 
029458,000433: 24,2561           32414                           CAF      SEC24.96                              
029459,000434: 24,2562           05261                           TC       WAITLIST                              
029460,000435: 24,2563  E7,1412                                  EBANK=   TIG                                   
029461,000436: 24,2563           02574 50067                     2CADR    TIG-5                                 
029462,000437: 
029463,000438: 24,2565           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
029464,000439: 24,2566           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
029465,000440: 24,2567           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
029466,000441: 
029467,000442: 24,2570           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
029468,000443: 24,2571           15340                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
029469,000444: 24,2572           04715                           TC       POSTJUMP                              
029470,000445: 24,2573           76714                           CADR     PREREAD                               
029471,000446: 
029472,000447:                                                                                                  #  ROUTINE ** TIG-5 ** DESCRIPTION
029473,000448: 
029474,000449: 24,2574  E7,1412                                  EBANK=   TIG                                   
029475,000450: 24,2574           33064        TIG-5              CAF      5SEC                                  
029476,000451: 24,2575           05261                           TC       WAITLIST                              
029477,000452: 24,2576  E6,1466                                  EBANK=   DAPDATR1                              
029478,000453: 24,2576           02612 50066                     2CADR    TIG-0                                 
029479,000454: 
029480,000455: 24,2600           45023                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
029481,000456: 24,2601           55145                           TS       NVWORD1                               
029482,000457: 
029483,000458: 24,2602           05406                           TC       2PHSCHNG                              
029484,000459: 24,2603           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
029485,000460: 24,2604           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
029486,000461: 
029487,000462: 24,2605           35016                           CAF      PRIO20                                
029488,000463: 24,2606           05163                           TC       FINDVAC                               
029489,000464: 24,2607  E7,1427                                  EBANK=   TGO                                   
029490,000465: 24,2607           02501 34067                     2CADR    S40.13                                
029491,000466: 
029492,000467: 24,2611           15340                           TCF      TASKOVER                              
029493,000468: 
029494,000469:                                                                                                  #  ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
029495,000470: 
029496,000471: 24,2612  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
029497,000472: 24,2612           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
029498,000473: 24,2613           75017                           MASK     BIT13                                 
029499,000474: 24,2614           26103                           ADS      FLAGWRD7                              
029500,000475: 
029501,000476: 24,2615           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
029502,000477: 24,2616           75020                           MASK     BIT12                                 
029503,000478: 24,2617           00006                           EXTEND                                         
029504,000479: 24,2620           15340                           BZF      TASKOVER                              #  WAIT FOR V99P
029505,000480: 
029506,000481: 24,2621           32425                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
029507,000482: 24,2622           55145                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
029508,000483: 
029509,000484: 24,2623           05426                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
029510,000485: 24,2624           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
029511,000486: 
029512,000487: 24,2625           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
029513,000488: 24,2626           55450                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
029514,000489: 24,2627           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
029515,000490: 24,2630           30025                           DCA      TIME2                                 #        FOR RESTARTS
029516,000491: 24,2631           53337                           DXCH     TEVENT                                
029517,000492: 24,2632           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
029518,000493: 24,2633           75025                           MASK     BIT7                                  
029519,000494: 24,2634           26101                           ADS      FLAGWRD5                              
029520,000495: 24,2635           35017        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
029521,000496: 24,2636           00006                           EXTEND                                         
029522,000497: 24,2637           05011                           WOR      DSALMOUT                              
029523,000498: 
029524,000499: 24,2640           35023        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
029525,000500: 24,2641           70076                           MASK     FLAGWRD2                              
029526,000501: 24,2642           10000                           CCS      A                                     
029527,000502: 24,2643           12733                           TCF      IMPLBURN                              #  IMPULSIVE
029528,000503: 24,2644           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
029529,000504: 24,2645           75017                           MASK     BIT13                                 
029530,000505: 24,2646           26102                           ADS      FLAGWRD6                              
029531,000506: 
029532,000507: 24,2647           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
029533,000508: 24,2650           70102                           MASK     FLAGWRD6                              
029534,000509: 24,2651           54102                           TS       FLAGWRD6                              
029535,000510: 
029536,000511: 24,2652           00006                           EXTEND                                         #  KILL RCS
029537,000512: 24,2653           32433                           DCA      T5IDL24                               
029538,000513: 24,2654           53313                           DXCH     T5LOC                                 
029539,000514: 
029540,000515: 24,2655           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
029541,000516: 24,2656           04114                           TC       NEWPHASE                              
029542,000517: 24,2657           00004                           OCT      4                                     
029543,000518: 
029544,000519: 24,2660           05303                           TC       FIXDELAY                              
029545,000520: 24,2661           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
029546,000521: 
029547,000522: 24,2662           45033        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
029548,000523: 24,2663           55644                           TS       TVCPHASE                              
029549,000524: 24,2664           35035                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
029550,000525: 24,2665           55653                           TS       TVCEXPHS                              
029551,000526: 24,2666           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER ....
029552,000527: 24,2667           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
029553,000528: 24,2670           65015                           AD       BIT15                                 
029554,000529: 24,2671           54102                           TS       FLAGWRD6                              
029555,000530: 
029556,000531: 24,2672           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
029557,000532: 24,2673           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
029558,000533: 24,2674           40000                           COM                                            
029559,000534: 24,2675           52765                           DXCH     -PHASE6                               
029560,000535: 
029561,000536: 24,2676           00006                           EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
029562,000537: 24,2677           41571                           DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
029563,000538: 24,2700           53705                           DXCH     ERRBTMP                               
029564,000539: 
029565,000540: 24,2701           45036                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
029566,000541: 24,2702           04114                           TC       NEWPHASE                              
029567,000542: 24,2703           00004                           OCT      4                                     
029568,000543: 
029569,000544: 24,2704           35013                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
029570,000545: 24,2705           54030                           TS       TIME5                                 
029571,000546: 24,2706           00006                           EXTEND                                         
029572,000547: 24,2707           33067                           DCA      TVCON2C                               #  (TVCDAPON)
029573,000548: 24,2710           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
029574,000549: 
029575,000550: 24,2711           05303                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
029576,000551: 24,2712           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
029577,000552: 
029578,000553: 24,2713           35017        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
029579,000554: 24,2714           70102                           MASK     FLAGWRD6                              
029580,000555: 24,2715           10000                           CCS      A                                     
029581,000556: 24,2716           02724                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
029582,000557: 24,2717           02727                           TCR      ULAGEOFF                              #  ULLAGE OFF (ONLY, OR AGAIN)
029583,000558: 
029584,000559: 24,2720           00006                           EXTEND                                         
029585,000560: 24,2721           35035                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0,+0)
029586,000561: 24,2722           52761                           DXCH     -PHASE4                               
029587,000562: 
029588,000563: 24,2723           15340        ENDIGN             TCF      TASKOVER                              
029589,000564: 
029590,000565: 24,2724           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
029591,000566: 24,2725           75021                           MASK     BIT11                                 
029592,000567: 24,2726           26076                           ADS      FLAGWRD2                              
029593,000568: 
029594,000569: 
029595,000570: 24,2727           35035        ULAGEOFF           CAF      ZERO                                  
029596,000571: 24,2730           00006                           EXTEND                                         
029597,000572: 24,2731           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5
029598,000573: 24,2732           00002                           TC       Q                                     
029599,000574: 
029600,000575: 24,2733           45017        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
029601,000576: 24,2734           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
029602,000577: 24,2735           54102                           TS       FLAGWRD6                              
029603,000578: 
029604,000579: 24,2736           03366                           TCR      E7SETTER                              
029605,000580: 
029606,000581: 24,2737  E7,1412                                  EBANK=   TIG                                   
029607,000582: 24,2737           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
029608,000583: 24,2740           31430                           DCA      TGO                                   
029609,000584: 24,2741           53413                           DXCH     TIG                                   
029610,000585: 24,2742           00006                           EXTEND                                         
029611,000586: 24,2743           30025                           DCA      TIME2                                 
029612,000587: 24,2744           21413                           DAS      TIG                                   
029613,000588: 
029614,000589: 24,2745           05406                           TC       2PHSCHNG                              
029615,000590: 24,2746           40153                           OCT      40153                                 #  A,3.15 = ENGINOFF (TGO+1)....NOTE GROUP
029616,000591: 24,2747           07014                           OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
029617,000592: 24,2750           77777                           DEC      -0         B-14                       #  -0 CS
029618,000593: 24,2751  E6,1466                                  EBANK=   DAPDATR1                              
029619,000594: 24,2751           02757 50066                     2CADR    IMPLCONT                              
029620,000595: 
029621,000596: 24,2753           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
029622,000597: 24,2754           05261                           TC       WAITLIST                              
029623,000598: 24,2755  E7,1427                                  EBANK=   TGO                                   
029624,000599: 24,2755           02766 50067                     2CADR    ENGINOFF                              
029625,000600: 
029626,000601: 24,2757           45023        IMPLCONT           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
029627,000602: 24,2760           70076                           MASK     FLAGWRD2                              
029628,000603: 24,2761           54076                           TS       FLAGWRD2                              
029629,000604: 
029630,000605: 24,2762           03371                           TCR      E6SETTER                              
029631,000606: 24,2763  E6,1466                                  EBANK=   DAPDATR1                              
029632,000607: 
029633,000608: 24,2763           35035                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
029634,000609: 24,2764           55444                           TS       V97VCNTR                              #        BACK) ARRIVES BEFORE TVCDAPON
029635,000610: 
029636,000611: 24,2765           12647                           TCF      PREPTVC                               
029637,000612: 
029638,000613: 24,2766  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
029639,000614: 24,2766           03371        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
029640,000615: 24,2767  E6,1466                                  EBANK=   DAPDATR1                              
029641,000616: 24,2767           31474                           CAE      CSMMASS                               
029642,000617: 24,2770           55654                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK
029643,000618: 24,2771           05406                           TC       2PHSCHNG                              
029644,000619: 24,2772           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
029645,000620: 24,2773           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF (-0CS)
029646,000621: 24,2774           03017        DOSPSOFF           TCR      SPSOFF                                #  SHUTDOWN SPS, MASS UPDATES, ETC.
029647,000622: 24,2775           42427                           CS       OCT27/24                              #  (OCTAL 27)
029648,000623: 24,2776           04114                           TC       NEWPHASE                              
029649,000624: 24,2777           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
029650,000625: 
029651,000626: 24,3000           05303                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
029652,000627: 24,3001           00372                           DEC      250        B-14                       
029653,000628: 
029654,000629: 24,3002           02320        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
029655,000630: 
029656,000631: 24,3003           04754                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
029657,000632: 24,3004           42036                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
029658,000633: 
029659,000634: 24,3005           04754                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
029660,000635: 24,3006           13370                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
029661,000636: 
029662,000637: 24,3007           03071                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
029663,000638: 
029664,000639: 24,3010           05426                           TC       PHASCHNG                              
029665,000640: 24,3011           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
029666,000641: 24,3012           34724                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
029667,000642: 24,3013           05150                           TC       NOVAC                                 
029668,000643: 24,3014  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
029669,000644: 24,3014           02246 50066                     2CADR    POSTBURN                              
029670,000645: 
029671,000646: 24,3016           15340                           TCF      TASKOVER                              
029672,000647: 
029673,000648: 24,3017  E6,1466                                  EBANK=   DAPDATR1                              
029674,000649: 24,3017           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
029675,000650: 24,3020           30025                           DCA      TIME2                                 
029676,000651: 24,3021           53337                           DXCH     TEVENT                                
029677,000652: 24,3022           45025                           CS       BIT7                                  #  RESET ENGONFLG
029678,000653: 24,3023           70101                           MASK     FLAGWRD5                              
029679,000654: 24,3024           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
029680,000655: 24,3025           45017                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
029681,000656: 24,3026           00006                           EXTEND                                         
029682,000657: 24,3027           03011                           WAND     DSALMOUT                              
029683,000658: 
029684,000659: 24,3030           35016                           CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
029685,000660: 24,3031           00006                           EXTEND                                         #  FOR POSSIBLE BACK-UP USE
029686,000661: 24,3032           05012                           WOR      CHAN12                                
029687,000662: 24,3033           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
029688,000663:                                                                                                  #        V97VCNTR = VCNTR UNLESS V97 IS
029689,000664:                                                                                                  #        ACTIVE.  ONLY V97VCNTR IS THEN RIGHT
029690,000665: 24,3034           00006                           EXTEND                                         #  VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
029691,000666: 24,3035           70110                           MP       EMDOT                                 #        MDOT, SC.AT B+3 KG/CS
029692,000667: 24,3036           22000                           LXCH     A                                     
029693,000668: 24,3037           00006                           EXTEND                                         
029694,000669: 24,3040           75055                           MP       1SEC                                  #  DEC 100
029695,000670: 24,3041           61654                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
029696,000671: 24,3042           55474                           TS       CSMMASS                               #        (1.44 KG OR 0.4 BITS)
029697,000672: 
029698,000673: 24,3043           31644                           CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
029699,000674: 24,3044           65033                           AD       ONE                                   #        THESE CHECKS ARE ONLY NEEDED
029700,000675: 24,3045           00006                           EXTEND                                         #        FOR A LESS THAN 0.4 SEC BURN
029701,000676: 24,3046           13057                           BZF      BTRIMR                                #  NO.  INITIALIZATION NOT COMPLETE
029702,000677: 24,3047           40102                           CS       FLAGWRD6                              #  YES, CHECK IF TVC
029703,000678: 24,3050           74105                           MASK     OCT60000                              
029704,000679: 24,3051           00006                           EXTEND                                         
029705,000680: 24,3052           63057                           BZMF     BTRIMR                                #  NO, NOT TVC YET       
029706,000681: 24,3053           31601        BESTTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
029707,000682: 24,3054           55423                           TS       PACTOFF                               
029708,000683: 24,3055           31603                           CAE      DELYBAR                               
029709,000684: 24,3056           55424                           TS       YACTOFF                               
029710,000685: 24,3057           00002        BTRIMR             TC       Q                                     
029711,000686: 24,3060  E6,1466                                  EBANK=   DAPDATR1                              
029712,000687: 24,3060           03205 50066  STEERADS           2CADR    STEERING                              
029713,000688: 
029714,000689: 24,3062           37703        .6SECT5            OCT      37703                                 
029715,000690: 24,3063           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
029716,000691: 24,3064           00764        5SEC               DEC      500        B-14                       
029717,000692: 24,3065           02202        OCT02202           OCT      02202                                 #  BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
029718,000693: 24,3066  E6,1466                                  EBANK=   DAPDATR1                              
029719,000694: 24,3066           02205 36066  TVCON2C            2CADR    TVCDAPON                              
029720,000695: 
029721,000696: 24,3070           00004                 -1        INHINT                                         
029722,000697: 24,3071           43065        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
029723,000698: 24,3072           00006                           EXTEND                                         #        OPTICS DAC
029724,000699: 24,3073           03012                           WAND     CHAN12                                
029725,000700: 24,3074           45033                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR .... PERMIT
029726,000701: 24,3075           55303                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
029727,000702: 24,3076           35035                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
029728,000703: 24,3077           55145                           TS       NVWORD1                               
029729,000704: 24,3100           45021                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
029730,000705: 24,3101           70103                           MASK     FLAGWRD7                              
029731,000706: 24,3102           54103                           TS       FLAGWRD7                              
029732,000707: 24,3103           00002                           TC       Q                                     
029733,000708: 24,3104  E6,1466                                  EBANK=   DAPDATR1                              
029734,000709: 24,3104           43020        UPDATEVG           STQ      BON                                   
029735,000710: 24,3105           03730                                    QTEMP1                                
029736,000711: 24,3106           01307                                    XDELVFLG                              
029737,000712: 24,3107           51133                                    CALL40.8                              
029738,000713: 
029739,000714: 24,3110           50135                           SLOAD    BMN                                   
029740,000715: 24,3111           03345                                    NBRCYCLS                              
029741,000716: 24,3112           51137                                    SETUP.9                               
029742,000717: 
029743,000718: 24,3113           53375                           VLOAD    VAD                                   
029744,000719: 24,3114           03347                                    DELVSUM                               
029745,000720: 24,3115           03433                                    DELVREF                               
029746,000721: 24,3116           03355                           STORE    DELVSUMP                              
029747,000722: 24,3117           77776                           EXIT                                           
029748,000723: 24,3120           35033                           CA       ONE                                   
029749,000724: 24,3121           61744                           AD       NBRCYCLS                              
029750,000725: 24,3122           55745                           TS       NBRCYCLP                              
029751,000726: 
029752,000727: 24,3123           05426                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
029753,000728: 24,3124           10035                           OCT      10035                                 
029754,000729: 
029755,000730: 24,3125           31745                           CA       NBRCYCLP                              
029756,000731: 24,3126           55744                           TS       NBRCYCLS                              
029757,000732: 24,3127           06006                           TC       INTPRET                               
029758,000733: 24,3130           77775                           VLOAD                                          
029759,000734: 24,3131           03355                                    DELVSUMP                              
029760,000735: 24,3132           03347                           STORE    DELVSUM                               
029761,000736: 
029762,000737: 24,3133           77624        CALL40.8           CALL                                           
029763,000738: 24,3134           34226                                    S40.8                                 
029764,000739: 24,3135           77650                           GOTO                                           
029765,000740: 24,3136           03730                                    QTEMP1                                
029766,000741: 
029767,000742: 24,3137           67214        SETUP.9            BON      SLOAD                                 
029768,000743: 24,3140           01310                                    FIRSTFLG                              
029769,000744: 24,3141           51154                                    SURELY.9                              
029770,000745: 24,3142           03346                                    NBRCYCLP                              
029771,000746: 24,3143           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
029772,000747: 24,3144           00047                                    X1                                    
029773,000748: 24,3145           03705                                    BDT                                   
029774,000749: 24,3146           53257                           VSR*     VAD                                   
029775,000750: 24,3147           20563                                    0          -14D,1                     
029776,000751: 24,3150           03646                                    VGTEMP                                
029777,000752: 24,3151           77651                           VSU                                            
029778,000753: 24,3152           03347                                    DELVSUM                               
029779,000754: 24,3153           03721                           STORE    VGPREV                                
029780,000755: 24,3154           77776        SURELY.9           EXIT                                           
029781,000756: 24,3155           35017                           CAF      PRIO10                                
029782,000757: 24,3156           05163                           TC       FINDVAC                               
029783,000758: 24,3157  E6,1466                                  EBANK=   DAPDATR1                              
029784,000759: 24,3157           02364 34066                     2CADR    S40.9                                 
029785,000760: 
029786,000761: 24,3161           05406                           TC       2PHSCHNG                              
029787,000762: 24,3162           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
029788,000763: 24,3163           10035                           OCT      10035                                 
029789,000764: 24,3164           06006                           TC       INTPRET                               
029790,000765: 24,3165           77775                           VLOAD                                          
029791,000766: 24,3166           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
029792,000767: 24,3167           27570                           STOVL    RINIT                                 
029793,000768: 24,3170           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
029794,000769: 24,3171           17576                           STODL    VINIT                                 
029795,000770: 24,3172           01205                                    PIPTIME                               
029796,000771: 24,3173           03474                           STORE    TNIT                                  
029797,000772: 24,3174           77621                           BDSU                                           
029798,000773: 24,3175           03656                                    TPASS4                                
029799,000774: 24,3176           27423                           STOVL    DELLT4                                
029800,000775: 24,3177           15334                                    HI6ZEROS                              
029801,000776: 24,3200           17347                           STODL    DELVSUM                               
029802,000777: 24,3201           15334                                    HI6ZEROS                              
029803,000778: 24,3202           03345                           STORE    NBRCYCLS                              
029804,000779: 24,3203           77650                           GOTO                                           
029805,000780: 24,3204           51133                                    CALL40.8                              
029806,000781: 24,3205  E6,1466                                  EBANK=   DAPDATR1                              
029807,000782: 24,3205           06006        STEERING           TC       INTPRET                               
029808,000783: 24,3206           77624                           CALL                                           
029809,000784: 24,3207           51104                                    UPDATEVG                              
029810,000785: 24,3210           77776                           EXIT                                           
029811,000786: 24,3211           35023                           CAF      BIT9                                  #  CHECK IMPULSW
029812,000787: 24,3212           70076                           MASK     FLAGWRD2                              
029813,000788: 24,3213           10000                           CCS      A                                     
029814,000789: 24,3214           13217                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
029815,000790: 24,3215           04715        SERVXT             TC       POSTJUMP                              
029816,000791: 24,3216           77231                           CADR     SERVEXIT                              
029817,000792: 24,3217           35017                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
029818,000793: 24,3220           00006                           EXTEND                                         
029819,000794: 24,3221           02011                           RAND     DSALMOUT                              
029820,000795: 24,3222           00006                           EXTEND                                         
029821,000796: 24,3223           13215                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
029822,000797: 24,3224           03366                           TCR      E7SETTER                              
029823,000798: 24,3225  E7,1412                                  EBANK=   TIG                                   
029824,000799: 24,3225           00004                           INHINT                                         
029825,000800: 24,3226           00006                           EXTEND                                         
029826,000801: 24,3227           31413                           DCA      TIG                                   
029827,000802: 24,3230           52155                           DXCH     MPAC                                  
029828,000803: 24,3231           00006                           EXTEND                                         
029829,000804: 24,3232           40025                           DCS      TIME2                                 
029830,000805: 24,3233           20155                           DAS      MPAC                                  
029831,000806: 24,3234           07224                           TCR      DPAGREE                               
029832,000807: 24,3235           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
029833,000808: 24,3236           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
029834,000809: 24,3237           13242                           TCF      +3                                    
029835,000810: 24,3240           13242                           TCF      +2                                    
029836,000811: 24,3241           35035                           CAF      ZERO                                  
029837,000812: 24,3242           65033                           AD       ONE                                   
029838,000813: 24,3243           56001                           XCH      L                                     
029839,000814: 24,3244           35035                           CA       ZERO                                  
029840,000815: 24,3245           53430                           DXCH     TGO                                   
029841,000816: 24,3246           31430                           CA       TGO        +1                         
029842,000817: 24,3247           05261                           TC       WAITLIST                              
029843,000818: 24,3250  E7,1427                                  EBANK=   TGO                                   
029844,000819: 24,3250           02766 50067                     2CADR    ENGINOFF                              
029845,000820: 
029846,000821: 24,3252           05406                           TC       2PHSCHNG                              
029847,000822: 24,3253           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
029848,000823: 24,3254           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
029849,000824: 24,3255           05574                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
029850,000825: 24,3256           00044                           ADRES    IMPULSW                               #  RESTARTS OK
029851,000826: 24,3257           13215                           TCF      SERVXT                                
029852,000827: 
029853,000828:                                                                                                  #  ROUTINE ** CLOKTASK ** DESCRIPTION
029854,000829: 
029855,000830: 24,3260  E7,1412                                  EBANK=   TIG                                   
029856,000831: 24,3260           35021        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
029857,000832: 24,3261           70103                           MASK     FLAGWRD7                              
029858,000833: 24,3262           10000                           CCS      A                                     
029859,000834: 24,3263           13267                           TCF      CLOCKON                               
029860,000835: 24,3264           05426                           TC       PHASCHNG                              
029861,000836: 24,3265           00006                           OCT      00006                                 #  KILL RESTART
029862,000837: 24,3266           05340                           TC       TASKOVER                              
029863,000838: 
029864,000839: 24,3267           00006        CLOCKON            EXTEND                                         
029865,000840: 24,3270           30025                           DCA      TIME2                                 
029866,000841: 24,3271           53661                           DXCH     TTOGO                                 
029867,000842: 24,3272           00006                           EXTEND                                         
029868,000843: 24,3273           41413                           DCS      TIG                                   
029869,000844: 24,3274           21661                           DAS      TTOGO                                 
029870,000845: 
029871,000846: 24,3275           35055        SETCLOCK           CAF      1SEC                                  
029872,000847: 24,3276           05261                           TC       WAITLIST                              
029873,000848: 24,3277  E7,1412                                  EBANK=   TIG                                   
029874,000849: 24,3277           03260 50067                     2CADR    CLOKTASK                              
029875,000850: 
029876,000851: 24,3301           11145                           CCS      NVWORD1                               
029877,000852: 24,3302           13305                           TCF      +3                                    
029878,000853: 24,3303           13315                           TCF      SETTB6                                
029879,000854: 
029880,000855: 24,3304           13305                           TCF      +1                                    
029881,000856: 24,3305           42423                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
029882,000857: 24,3306           61145                           AD       NVWORD1                               
029883,000858: 24,3307           00006                           EXTEND                                         
029884,000859: 24,3310           13320                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
029885,000860: 
029886,000861: 24,3311           37664                           CAF      PRIO27                                
029887,000862: 24,3312           05150                           TC       NOVAC                                 
029888,000863: 24,3313  E6,1466                                  EBANK=   DAPDATR1                              
029889,000864: 24,3313           03332 50066                     2CADR    CLOCKJOB                              
029890,000865: 
029891,000866: 24,3315           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
029892,000867: 24,3316           55065                           TS       TBASE6                                
029893,000868: 24,3317           15340                           TCF      TASKOVER                              
029894,000869: 
029895,000870: 24,3320           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
029896,000871: 24,3321           05163                           TC       FINDVAC                               
029897,000872: 24,3322  E6,1466                                  EBANK=   DAPDATR1                              
029898,000873: 24,3322           03325 50066                     2CADR    DYNDISP                               
029899,000874: 
029900,000875: 24,3324           13315                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK
029901,000876: 24,3325           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
029902,000877: 24,3326           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
029903,000878: 24,3327           50370                                    P40CNV85                              
029904,000879: 24,3330           77776                           EXIT                                           
029905,000880: 24,3331           13342                           TCF      CKNVWRD1                              
029906,000881: 
029907,000882:                                                                                                  #  ROUTINE ** CLOCKJOB ** DESCRIPTION
029908,000883: 
029909,000884: 24,3332  E6,1466                                  EBANK=   DAPDATR1                              
029910,000885: 24,3332           30032        CLOCKJOB           CA       CDUX                                  
029911,000886: 24,3333           54772                           TS       CDUSPOTX                              
029912,000887: 24,3334           30033                           CA       CDUY                                  
029913,000888: 24,3335           54766                           TS       CDUSPOTY                              
029914,000889: 24,3336           30034                           CA       CDUZ                                  
029915,000890: 24,3337           54770                           TS       CDUSPOTZ                              
029916,000891: 24,3340           04676                           TC       BANKCALL                              
029917,000892: 24,3341           47557                           CADR     QUICTRIG                              
029918,000893: 24,3342           00004        CKNVWRD1           INHINT                                         
029919,000894: 24,3343           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
029920,000895: 24,3344           13363                           TCF      NOFLASH                               
029921,000896: 24,3345           15233                           TCF      ENDOFJOB                              
029922,000897: 24,3346           13355                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
029923,000898: 24,3347           32425        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
029924,000899: 24,3350           04676                           TC       BANKCALL                              
029925,000900: 24,3351           20715                           CADR     CLOCPLAY                              
029926,000901: 24,3352           13432                           TCF      V97T                                  #  TERMINATE
029927,000902: 24,3353           13465                           TCF      V97P                                  #  PROCEED
029928,000903: 24,3354           13514                           TCF      V97E                                  #  ENTER
029929,000904: 
029930,000905: 24,3355           32425        ENGREQST           CAF      V06N40                                
029931,000906: 24,3356           04676                           TC       BANKCALL                              
029932,000907: 24,3357           20715                           CADR     CLOCPLAY                              
029933,000908: 24,3360           13402                           TCF      V99T                                  #  TERMINATE
029934,000909: 24,3361           13410                           TCF      V99P                                  #  PROCEED
029935,000910: 24,3362           13374                           TCF      V99E                                  #  ENTER
029936,000911: 
029937,000912: 24,3363           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
029938,000913: 24,3364           04676                           TC       BANKCALL                              
029939,000914: 24,3365           20707                           CADR     REGODSP                               
029940,000915: 
029941,000916: 24,3366           35074        E7SETTER           CAF      EBANK7                                
029942,000917: 24,3367           54003                           TS       EBANK                                 
029943,000918: 24,3370  E7,1412                                  EBANK=   TIG                                   
029944,000919: 24,3370           00002                           TC       Q                                     
029945,000920: 
029946,000921: 24,3371           35073        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
029947,000922: 24,3372           54003                           TS       EBANK                                 
029948,000923: 24,3373  E6,1466                                  EBANK=   DAPDATR1                              
029949,000924: 24,3373           00002                           TC       Q                                     
029950,000925: 
029951,000926: 24,3374  E6,1466                                  EBANK=   DAPDATR1                              
029952,000927: 24,3374           05406        V99E               TC       2PHSCHNG                              
029953,000928: 24,3375           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
029954,000929: 24,3376           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
029955,000930: 24,3377           50777                           OCT      50777                                 #  PRIO 27 NOVAC
029956,000931: 24,3400           03070        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
029957,000932: 24,3401           12254                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
029958,000933: 
029959,000934: 24,3402  E6,1466                                  EBANK=   DAPDATR1                              
029960,000935: 24,3402           05406        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
029961,000936: 24,3403           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
029962,000937: 24,3404           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
029963,000938: 24,3405           50777                           OCT      50777                                 #  PRIO 27 NOVAC
029964,000939: 24,3406           03070        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
029965,000940: 24,3407           12275                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
029966,000941: 
029967,000942: 24,3410           00004        V99P               INHINT                                         
029968,000943: 24,3411           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
029969,000944: 24,3412           75020                           MASK     BIT12                                 
029970,000945: 24,3413           10000                           CCS      A                                     
029971,000946: 24,3414           13427                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
029972,000947: 
029973,000948: 24,3415           35020        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
029974,000949: 24,3416           26103                           ADS      FLAGWRD7                              
029975,000950: 24,3417           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
029976,000951: 24,3420           75017                           MASK     BIT13                                 
029977,000952: 24,3421           00006                           EXTEND                                         
029978,000953: 24,3422           13427                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
029979,000954: 
029980,000955: 24,3423           35033        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
029981,000956: 24,3424           05261                           TC       WAITLIST                              #  SET UP IGNITION HERE
029982,000957: 24,3425  E6,1466                                  EBANK=   DAPDATR1                              
029983,000958: 24,3425           02625 50066                     2CADR    IGNITION                              
029984,000959: 
029985,000960: 24,3427           32425        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
029986,000961: 24,3430           55145                           TS       NVWORD1                               
029987,000962: 24,3431           15233        ENDV99P            TCF      ENDOFJOB                              
029988,000963: 
029989,000964: 24,3432  E6,1474                                  EBANK=   CSMMASS                               
029990,000965: 24,3432           05406        V97T               TC       2PHSCHNG                              
029991,000966: 24,3433           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
029992,000967: 24,3434           00674                           OCT      00674                                 #  A, 4.67 = V97TJOB (-0 CS), TBASE OLD
029993,000968: 24,3435           35035        V97TJOB            CAF      ZERO                                  #  DISABLE CLOCKJOB
029994,000969: 24,3436           55145                           TS       NVWORD1                               
029995,000970: 24,3437           35033                           CAF      BIT1                                  
029996,000971: 24,3440           05251                           TC       TWIDDLE                               
029997,000972: 24,3441           03443                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
029998,000973: 24,3442           15233                           TCF      ENDOFJOB                              
029999,000974: 
030000,000975: 24,3443  E6,1474                                  EBANK=   CSMMASS                               
030001,000976: 24,3443           32434        V97TTASK           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030002,000977: 24,3444           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
030003,000978: 24,3445           55654                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK
030004,000979: 24,3446           05426                           TC       PHASCHNG                              
030005,000980: 24,3447           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
030006,000981: 24,3450           77777                           DEC      -0         B-14                       #  -0 CS
030007,000982: 
030008,000983: 24,3451           03017                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
030009,000984: 24,3452           05426                           TC       PHASCHNG                              
030010,000985: 24,3453           40714                           OCT      40714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE NOW
030011,000986: 24,3454           05303                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030012,000987: 24,3455           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
030013,000988: 
030014,000989: 24,3456  E6,1466                                  EBANK=   DAPDATR1                              
030015,000990: 24,3456           04754        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030016,000991: 24,3457           42036                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
030017,000992: 24,3460           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
030018,000993: 24,3461           05150                           TC       NOVAC                                 #        MAXDB AND GOTOPOOH)
030019,000994: 24,3462  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
030020,000995: 24,3462           03402 50066                     2CADR    V99T                                  
030021,000996: 
030022,000997: 24,3464           15340        ENDV97T            TCF      TASKOVER                              
030023,000998: 
030024,000999: 24,3465  E6,1444                                  EBANK=   V97VCNTR                              
030025,001000: 24,3465           05426        V97P               TC       PHASCHNG                              
030026,001001: 24,3466           00734                           OCT      00734                                 #  A, 4.73 = V97PJOB (-0 CS), TBASE OLD
030027,001002:                                                                                                  #  IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
030028,001003: 24,3467           32425        V97PJOB            CAF      V06N40                                #  REDISPLAY V06N40
030029,001004: 24,3470           55145                           TS       NVWORD1                               
030030,001005: 24,3471           35033                           CAF      BIT1                                  
030031,001006: 24,3472           05251                           TC       TWIDDLE                               
030032,001007: 24,3473           03475                           ADRES    V97PTASK                              
030033,001008: 24,3474           15233                           TCF      ENDOFJOB                              
030034,001009: 
030035,001010: 24,3475  E6,1444                                  EBANK=   V97VCNTR                              
030036,001011: 24,3475           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
030037,001012: 24,3476           55643                           TS       VCNTR                                 #        (ERRORS IF FLASE THRUST-LOSS AND/OR
030038,001013:                                                                                                  #        POOR SYNCH OF MANUAL ENGINE-ON AND
030039,001014:                                                                                                  #        THE VERB 97 PROCEED)
030040,001015: 24,3477           05562                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
030041,001016: 24,3500           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE S40.8 SYNCH
030042,001017: 24,3501           05562                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
030043,001018: 24,3502           00042                           ADRES    STEERSW                               
030044,001019: 24,3503           05426                           TC       PHASCHNG                              
030045,001020: 24,3504           40134                           OCT      40134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE NOW
030046,001021: 24,3505           05303                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
030047,001022: 24,3506           00310                           DEC      200        B-14                       
030048,001023: 
030049,001024: 24,3507  E7,1777                                  EBANK=   WHOCARES                              
030050,001025: 24,3507           05574        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
030051,001026: 24,3510           00030                           ADRES    IDLEFAIL                              
030052,001027: 24,3511           05426                           TC       PHASCHNG                              
030053,001028: 24,3512           00004                           OCT      00004                                 #  KILL GROUP 4
030054,001029: 24,3513           15340        ENDV97P            TCF      TASKOVER                              
030055,001030: 
030056,001031: 24,3514  E7,1777                                  EBANK=   WHOCARES                              
030057,001032: 24,3514           05426        V97E               TC       PHASCHNG                              
030058,001033: 24,3515           00534                           OCT      00534                                 #  A, 4.53 = V97EJOB (-0 CS), TBASE OLD
030059,001034:                                                                                                  #  IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
030060,001035: 24,3516           32425        V97EJOB            CAF      V06N40                                #  REDISPLAY V06N40
030061,001036: 24,3517           55145                           TS       NVWORD1                               
030062,001037: 24,3520           35033                           CAF      BIT1                                  
030063,001038: 24,3521           05261                           TC       WAITLIST                              
030064,001039: 24,3522  E7,1412                                  EBANK=   TIG                                   
030065,001040: 24,3522           03525 50067                     2CADR    V97ETASK                              
030066,001041: 
030067,001042: 24,3524           15233                           TCF      ENDOFJOB                              
030068,001043: 
030069,001044: 24,3525  E7,1412                                  EBANK=   TIG                                   
030070,001045: 24,3525           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
030071,001046: 24,3526           55412                           TS       TIG                                   
030072,001047: 24,3527           03371                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
030073,001048: 24,3530  E6,1474                                  EBANK=   CSMMASS                               
030074,001049: 24,3530           32434                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030075,001050: 24,3531           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
030076,001051: 24,3532           55654                           TS       MASSTMP                               #        FAILED....COPYCYCLE FOR MASSBACK
030077,001052: 24,3533           05426                           TC       PHASCHNG                              
030078,001053: 24,3534           40754                           OCT      40754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE NOW
030079,001054: 24,3535           03017        SPSOFF97           TCR      SPSOFF                                
030080,001055: 24,3536           05426                           TC       PHASCHNG                              
030081,001056: 24,3537           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
030082,001057: 24,3540           05303                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030083,001058: 24,3541           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
030084,001059: 
030085,001060: 24,3542  E6,1466                                  EBANK=   DAPDATR1                              
030086,001061: 24,3542           35033        V97E40.6           CAF      BIT1                                  
030087,001062: 24,3543           05261                           TC       WAITLIST                              
030088,001063: 24,3544  E6,1447                                  EBANK=   CNTR                                  
030089,001064: 24,3544           02260 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
030090,001065: 
030091,001066: 24,3546           04754                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030092,001067: 24,3547           42036                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
030093,001068:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
030094,001069: 
030095,001070: 24,3550           05406                           TC       2PHSCHNG                              
030096,001071: 24,3551           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
030097,001072: 24,3552           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
030098,001073: 24,3553           77777                           DEC      -0         B-14                       #  -0 CS
030099,001074: 
030100,001075: 24,3554           45102        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
030101,001076: 24,3555           70103                           MASK     FLAGWRD7                              #        IMMEDIATE V99 RESPONSE
030102,001077: 24,3556           65017                           AD       BIT13                                 
030103,001078: 24,3557           54103                           TS       FLAGWRD7                              
030104,001079: 24,3560           05303                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6
030105,001080: 24,3561           00036                           DEC      30         B-14                       
030106,001081: 
030107,001082: 24,3562           45023        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
030108,001083: 24,3563           55145                           TS       NVWORD1                               
030109,001084: 24,3564           05406                           TC       2PHSCHNG                              
030110,001085: 24,3565           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
030111,001086: 24,3566           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
030112,001087: 24,3567           35016                           CAF      PRIO20                                #  SET UP TIMEBURN
030113,001088: 24,3570           05163                           TC       FINDVAC                               
030114,001089: 24,3571  E7,1427                                  EBANK=   TGO                                   
030115,001090: 24,3571           02501 34067                     2CADR    S40.13                                
030116,001091: 
030117,001092: 24,3573           15340        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
030118,001093:                                                                                                  #        TO FLASHING V99 RESPONSE
030119,001094: 
030120,001095:                                                                                                  #  MOD NO2                               LOG SECTION P40-P47
030121,001096:                                                                                                  #  MOD BY ZELDIN
030122,001097: 
030123,001098:                                                                                                  #  FUNCTIONAL DESCRIPTION
030124,001099:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
030125,001100:                                                                                                  #        VECTOR(VGTIG).
030126,001101: 
030127,001102:                                                                                                  #  CALLING SEQUENCE
030128,001103:                                                                                                  #        L       CALL
030129,001104:                                                                                                  #        L+1             S40.1
030130,001105: 
030131,001106:                                                                                                  #  NORMAL EXIT MODE
030132,001107:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
030133,001108:                                                                                                  #        ERROR RETURN IF NOSOFLAG =1
030134,001109: 
030135,001110:                                                                                                  #  SUBROUTINES CALLED
030136,001111:                                                                                                  #        CSMPREC
030137,001112:                                                                                                  #        INITVEL
030138,001113:                                                                                                  #        CALCGRAV
030139,001114:                                                                                                  #        MIDGIM
030140,001115: 
030141,001116:                                                                                                  #  ALARM OR ABORT EXIT MODES
030142,001117:                                                                                                  #        L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
030143,001118: 
030144,001119:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030145,001120:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP B16 KGM
030146,001121:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
030147,001122:                                                                                                  #    IF DELTA-V MANEUVER
030148,001123:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
030149,001124:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
030150,001125:                                                                                                  #                        AT TIME OF IGNITION             VECTOR B7 M/CS
030151,001126:                                                                                                  #        DELVSAB         MAG. OF DELVSIN                 DP B7 M/CS
030152,001127:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECTOR B29 M
030153,001128:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION    VECTOR B7 M/CS
030154,001129:                                                                                                  #        CSTEER = 0                                      DP
030155,001130:                                                                                                  #    IF AIMPOINT STEERING
030156,001131:                                                                                                  #    IF AIMPT STEER
030157,001132:                                                                                                  #        TIG             TIME OF IGNITION                DP B28 CS
030158,001133:                                                                                                  #        RTARG           POSITION TARGET TIME            VECTOR B29 M
030159,001134:                                                                                                  #        CSTEER = ECSTEER (GR 0)                         DP B1
030160,001135:                                                                                                  #        TPASS4 - TIME OF ARRIVAL AT AIMPOINT
030161,001136: 
030162,001137:                                                                                                  #  OUTPUT
030163,001138:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030164,001139:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
030165,001140:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR B7 M/CS
030166,001141:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.             B7 M/CS
030167,001142:                                                                                                  #        F               NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
030168,001143:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030169,001144:                                                                                                  #        -GDT            FOR S40.13                              VECT B7 M/CS
030170,001145:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR B29M
030171,001146:                                                                                                  #                        POSITION AT TIME OF IGNITION
030172,001147: 
030173,001148:                                                                                                  #  DEBRIS        QTEMP1
030174,001149:                                                                                                  #                MPAC, QPRET
030175,001150:                                                                                                  #                PUSHLIST
030176,001151:                                                                                                  #                RTX2,RTX1
030177,001152: 
030178,001153: 14,2011                                           BANK     14                                    
030179,001154: 16,2000                                           SETLOC   P40S1                                 
030180,001155: 16,2000                                           BANK                                           
030181,001156: 
030182,001157: 16,2073                                           COUNT    16/S40.1                              
030183,001158: 
030184,001159: 16,2073           77214        S40.1              SET      VLOAD                                 
030185,001160: 16,2074           01070                                    FIRSTFLG                              
030186,001161: 16,2075           11566                                    LO6ZEROS                              
030187,001162: 16,2076           03705                           STORE    BDT                                   
030188,001163: 16,2077           43020                           STQ      BOF                                   
030189,001164: 16,2100           03657                                    QTEMP                                 
030190,001165: 16,2101           01347                                    XDELVFLG                              
030191,001166: 16,2102           34171                                    S40.1B                                #  LAMBERT
030192,001167: 16,2103           51575                           VLOAD    ABVAL                                 #  EXTERNAL DELTA-V
030193,001168: 16,2104           03646                                    DELVSIN                               
030194,001169: 16,2105           03654                           STORE    DELVSAB                               #  COMPUTE FOR P30/P40 INTERFACE
030195,001170:                                                                                                  #        THUS PERMITTING MODULE-ONLY CHANGE
030196,001171: 16,2106           77201                           SETPD    VLOAD                                 
030197,001172: 16,2107           00001                                    0                                     
030198,001173: 16,2110           03640                                    VTIG                                  
030199,001174: 16,2111           03576                           STORE    VINIT                                 
030200,001175: 16,2112           53435                           VXV      UNIT                                  
030201,001176: 16,2113           03632                                    RTIG                                  
030202,001177: 16,2114           27713                           STOVL    UT                                    #  UP IN UT
030203,001178: 16,2115           03632                                    RTIG                                  
030204,001179: 16,2116           03570                           STORE    RINIT                                 
030205,001180: 16,2117           65236                           VSQ      PDDL                                  
030206,001181: 16,2120           00045                                    36D                                   
030207,001182: 16,2121           56275                           DMPR     DDV                                   
030208,001183: 16,2122           34225                                    THETACON                              
030209,001184: 16,2123           41205                           DMP      DMP                                   
030210,001185: 16,2124           03654                                    DELVSAB                               
030211,001186: 16,2125           03076                                    WEIGHT/G                              
030212,001187: 16,2126           77671                           DDV                                            
030213,001188: 16,2127           03727                                    F                                     
030214,001189: 16,2130           24017                           STOVL    14D                                   
030215,001190: 16,2131           03646                                    DELVSIN                               
030216,001191: 
030217,001192: 16,2132           74241                           DOT      VXSC                                  
030218,001193: 16,2133           03713                                    UT                                    
030219,001194: 16,2134           03713                                    UT                                    
030220,001195: 16,2135           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030221,001196: 16,2136           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
030222,001197: 16,2137           03646                                    DELVSIN                               
030223,001198: 16,2140           00017                                    14D                                   
030224,001199: 16,2141           63356                           SIN      PDVL                                  
030225,001200: 16,2142           00007                                    6D                                    
030226,001201: 16,2143           53435                           VXV      UNIT                                  
030227,001202: 16,2144           03713                                    UT                                    
030228,001203: 16,2145           45561                           VXSC     STADR                                 
030229,001204: 16,2146           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
030230,001205: 16,2147           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
030231,001206: 16,2150           00017                                    14D                                   
030232,001207: 16,2151           74346                           COS      VXSC                                  
030233,001208: 16,2152           74255                           VAD      VXSC                                  
030234,001209: 16,2153           03721                                    VGTIG                                 
030235,001210: 16,2154           00045                                    36D                                   
030236,001211: 16,2155           53352                           VSL2     VAD                                   
030237,001212: 16,2156           77626                           STADR                                          
030238,001213: 16,2157           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
030239,001214: 
030240,001215: 16,2160           77656                           UNIT                                           
030241,001216: 16,2161           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
030242,001217: 16,2162           03721                                    VGTIG                                 
030243,001218: 16,2163           43006                           PUSH     SET                                   
030244,001219: 16,2164           01072                                    AVFLAG                                
030245,001220: 16,2165           77624                           CALL                                           
030246,001221: 16,2166           10647                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030247,001222: 16,2167           77650                           GOTO                                           
030248,001223: 16,2170           03657                                    QTEMP                                 
030249,001224: 16,2171           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
030250,001225: 16,2172           03413                                    TIG                                   
030251,001226: 16,2173           36037                                    TWODT                                 
030252,001227: 16,2174           14041                           STODL    TDEC1                                 
030253,001228: 16,2175           03656                                    TPASS4                                
030254,001229: 16,2176           77625                           DSU                                            
030255,001230: 16,2177           00041                                    TDEC1                                 
030256,001231: 16,2200           37423                           STCALL   DELLT4                                
030257,001232: 16,2201           61651                                    AGAIN                                 
030258,001233: 16,2202           77775                           VLOAD                                          
030259,001234: 16,2203           03612                                    VIPRIME                               
030260,001235: 16,2204           17713                           STODL    UT                                    
030261,001236: 16,2205           03413                                    TIG                                   
030262,001237: 16,2206           00041                           STORE    TDEC1                                 
030263,001238: 16,2207           77621                           BDSU                                           
030264,001239: 16,2210           03656                                    TPASS4                                
030265,001240: 16,2211           37423                           STCALL   DELLT4                                
030266,001241: 16,2212           61651                                    AGAIN                                 
030267,001242: 16,2213           41575                           VLOAD    PUSH                                  
030268,001243: 16,2214           03646                                    DELVEET3                              
030269,001244: 16,2215           03721                           STORE    VGTIG                                 
030270,001245: 16,2216           45014                           SET      CALL                                  
030271,001246: 16,2217           01072                                    AVFLAG                                
030272,001247: 16,2220           10647                                    MIDGIM                                
030273,001248: 16,2221           52001                           SETPD    GOTO                                  
030274,001249: 16,2222           00001                                    0                                     
030275,001250: 16,2223           61704                                    CALCUT                                
030276,001251: 
030277,001252: 16,2224           00024 13714  THETACON           2DEC     .31830989  B-8                        
030278,001253: 
030279,001254: 30,2000                                           SETLOC   P40S3                                 
030280,001255: 30,2000                                           BANK                                           
030281,001256: 
030282,001257: 30,3645                                           COUNT    24/S40.1                              
030283,001258: 
030284,001259: 30,3645           04000 00000  EP4(45)H           2DEC     .125                                  
030285,001260: 
030286,001261: 30,3647           00707 03434  EP4(10)H           2DEC     .027777777                            
030287,001262: 
030288,001263: 30,3651           45020        AGAIN              STQ      CALL                                  
030289,001264: 30,3652           03730                                    QTEMP1                                
030290,001265: 30,3653           27101                                    THISPREC                              
030291,001266: 30,3654           66134                           SXA,2    SXA,1                                 
030292,001267: 30,3655           03746                                    RTX2                                  
030293,001268: 30,3656           03745                                    RTX1                                  
030294,001269: 30,3657           77775                           VLOAD                                          
030295,001270: 30,3660           00001                                    RATT                                  
030296,001271: 30,3661           03632                           STORE    RTIG                                  
030297,001272: 30,3662           27570                           STOVL    RINIT                                 
030298,001273: 30,3663           00007                                    VATT                                  
030299,001274: 30,3664           03640                           STORE    VTIG                                  
030300,001275: 30,3665           03576                           STORE    VINIT                                 
030301,001276: 30,3666           67201                           SETPD    SLOAD                                 
030302,001277: 30,3667           00001                                    0                                     
030303,001278: 30,3670           15334                                    HI6ZEROS                              
030304,001279: 30,3671           43125                           PDDL     BON                                   
030305,001280: 30,3672           21646                                    EP4(45)H                              
030306,001281: 30,3673           03705                                    NORMSW                                
030307,001282: 30,3674           61677                                    +3                                    
030308,001283: 30,3675           77745                           DLOAD                                          
030309,001284: 30,3676           21650                                    EP4(10)H                              
030310,001285: 30,3677           45006                           PUSH     CALL                                  
030311,001286: 30,3700           22000                                    INITVEL                               
030312,001287: 30,3701           52001                           SETPD    GOTO                                  
030313,001288: 30,3702           00001                                    0                                     
030314,001289: 30,3703           03730                                    QTEMP1                                
030315,001290: 30,3704           45175        CALCUT             VLOAD    CALL                                  
030316,001291: 30,3705           03632                                    RTIG                                  
030317,001292: 30,3706           77355                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
030318,001293: 30,3707           70372                           VSL1     V/SC                                  
030319,001294: 30,3710           21747                                    200CS                                 #  G AT 2(-5) M/CS. CS
030320,001295: 30,3711           52315                           PDVL     VSU                                   
030321,001296: 30,3712           03612                                    VIPRIME                               
030322,001297: 30,3713           03713                                    UT                                    
030323,001298: 30,3714           52341                           V/SC     VSU                                   
030324,001299: 30,3715           21747                                    200CS                                 
030325,001300: 30,3716           72561                           VXSC     VSL2                                  
030326,001301: 30,3717           03703                                    CSTEER                                
030327,001302: 30,3720           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
030328,001303: 30,3721           03721                                    VGTIG                                 
030329,001304: 30,3722           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
030330,001305: 
030331,001306: 30,3723           74241                           DOT      VXSC                                  
030332,001307: 30,3724           00015                                    12D                                   
030333,001308: 30,3725           00001                                    0                                     
030334,001309: 30,3726           51352                           VSL2     BVSU                                  
030335,001310: 30,3727           00015                                    12D                                   
030336,001311: 30,3730           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
030337,001312: 30,3731           03727                                    F                                     
030338,001313: 30,3732           56261                           SRR      DDV                                   
030339,001314: 30,3733           21605                                    4                                     
030340,001315: 30,3734           03076                                    WEIGHT/G                              
030341,001316: 30,3735           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
030342,001317: 30,3736           00015                                    12D                                   
030343,001318: 30,3737           77636                           VSQ                                            
030344,001319: 30,3740           75421                           BDSU     SQRT                                  
030345,001320: 30,3741           76561                           VXSC     VSL1                                  
030346,001321: 30,3742           53455                           VAD      UNIT                                  
030347,001322: 30,3743           00015                                    12D                                   
030348,001323: 30,3744           37713                           STCALL   UT                                    
030349,001324: 30,3745           03657                                    QTEMP                                 
030350,001325: 30,3746           01440 00000  200CS              2DEC     200        B-12                       
030351,001326: 
030352,001327:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3           DATE 15,NOV,66
030353,001328:                                                                                                  #  MOD NO 2                              LOG SECTION P40-P47
030354,001329:                                                                                                  #  MOD BY ZELDIN
030355,001330: 
030356,001331:                                                                                                  #  FUNCTIONAL DESCRIPTION
030357,001332:                                                                                                  #        
030358,001333:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
030359,001334:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
030360,001335:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
030361,001336:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
030362,001337:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
030363,001338:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
030364,001339:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
030365,001340:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
030366,001341:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
030367,001342: 
030368,001343:                                                                                                  #  CALLING SEQUENCE
030369,001344:                                                                                                  #        L       CALL
030370,001345:                                                                                                  #        L+1             S40.2,3
030371,001346: 
030372,001347:                                                                                                  #  NORMAL EXIT MODE
030373,001348:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
030374,001349: 
030375,001350:                                                                                                  #  SUBROUTINES CALLED
030376,001351:                                                                                                  #        CALCGA
030377,001352: 
030378,001353:                                                                                                  #  ALARM OR ABORT MODES
030379,001354:                                                                                                  #        NONE
030380,001355: 
030381,001356:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030382,001357:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE          SP AT 1.0795111 REV.
030383,001358:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE          SP AT 1.0795111 REV.
030384,001359:                                                                                                  #        UT              DESIRED THRUST DIRECTION        VECT. B2 M/(CS.CS)
030385,001360:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECT. B29 M
030386,001361:                                                                                                  #        ENG2FLAG        ON=RCS  OFF=SPS
030387,001362: 
030388,001363:                                                                                                  #  OUTPUT
030389,001364:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
030390,001365:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
030391,001366:                                                                                                  #        YSCREF
030392,001367:                                                                                                  #        ZSCREF
030393,001368:                                                                                                  #        GIMBAL ANGLES IN THETAD
030394,001369:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
030395,001370: 
030396,001371:                                                                                                  #  DEBRIS
030397,001372:                                                                                                  #        PUSHLIST, QPRET, MPAC
030398,001373:                                                                                                  #        QTEMP   TEMP. ERASABLE
030399,001374: 
030400,001375: 24,3574                                           BANK     24                                    
030401,001376: 24,2000                                           SETLOC   P40S                                  
030402,001377: 24,2000                                           BANK                                           
030403,001378: 24,3574                                           COUNT*   $$/S40.2                              
030404,001379: 24,3574           64375        S40.2,3            VLOAD    MXV                                   
030405,001380: 24,3575           03713                                    UT                                    
030406,001381: 24,3576           01736                                    REFSMMAT                              
030407,001382: 24,3577           44172                           VSL1     STQ                                   
030408,001383: 24,3600           03657                                    QTEMP                                 
030409,001384: 24,3601           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
030410,001385: 24,3602           43001                           SETPD    BON                                   
030411,001386: 24,3603           00001                                    0                                     
030412,001387: 24,3604           00704                                    ENG2FLAG                              
030413,001388: 24,3605           51715                                    S40.2,3B                              
030414,001389: 24,3606           77745                           DLOAD                                          
030415,001390: 24,3607           15334                                    HI6ZEROS                              
030416,001391: 24,3610           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
030417,001392: 24,3611           03025                                    YACTOFF                               
030418,001393: 24,3612           72405                           DMP      SL1                                   
030419,001394: 24,3613           11754                                    TRIMSCAL                              
030420,001395: 24,3614           41415                           DAD      PUSH                                  
030421,001396: 24,3615           11756                                    YBIAS                                 
030422,001397: 24,3616           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
030423,001398: 24,3617           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
030424,001399: 24,3620           77735                           SLOAD                                          
030425,001400: 24,3621           03024                                    PACTOFF                               
030426,001401: 24,3622           72405                           DMP      SL1                                   
030427,001402: 24,3623           11754                                    TRIMSCAL                              
030428,001403: 24,3624           41415                           DAD      PUSH                                  
030429,001404: 24,3625           11760                                    PBIAS                                 
030430,001405: 24,3626           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
030431,001406: 24,3627           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
030432,001407: 24,3630           14323                           STODL    ZSCREF                                #  SIN(P +P0)
030433,001408: 24,3631           00007                                    6                                     
030434,001409: 24,3632           72405                           DMP      SL1                                   
030435,001410: 24,3633           00005                                    4                                     
030436,001411: 24,3634           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
030437,001412: 24,3635           00007                                    6                                     
030438,001413: 24,3636           72405                           DMP      SL1                                   
030439,001414: 24,3637           00003                                    2                                     
030440,001415: 24,3640           77666                           VDEF                                           
030441,001416: 
030442,001417: 24,3641           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
030443,001418: 24,3642           00323                                    ZSCREF                                
030444,001419: 24,3643           72405                           DMP      SL1                                   
030445,001420: 24,3644           00005                                    4                                     
030446,001421: 24,3645           41325                           PDDL     DMP                                   
030447,001422: 24,3646           00323                                    ZSCREF                                
030448,001423: 24,3647           00003                                    2                                     
030449,001424: 24,3650           57552                           SL1      DCOMP                                 
030450,001425: 24,3651           77666                           VDEF                                           
030451,001426: 
030452,001427: 24,3652           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030453,001428: 24,3653           77666                           VDEF                                           
030454,001429: 
030455,001430: 24,3654           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030456,001431: 24,3655           00323                                    ZSCREF                                
030457,001432: 24,3656           65325                           PDDL     PDDL                                  
030458,001433: 24,3657           00315                                    YSCREF                                
030459,001434: 24,3660           00307                                    XSCREF                                
030460,001435: 24,3661           77666                           VDEF                                           
030461,001436: 24,3662           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
030462,001437: 24,3663           03713                                    UT                                    
030463,001438: 24,3664           53515                           PDVL     UNIT                                  
030464,001439: 24,3665           03632                                    RTIG                                  
030465,001440: 24,3666           57435                           VXV      VCOMP                                 
030466,001441: 24,3667           00001                                    0                                     
030467,001442: 24,3670           41456                           UNIT     PUSH                                  
030468,001443: 24,3671           77624                           CALL                                           
030469,001444: 24,3672           51734                                    TSTRXUT                               
030470,001445: 24,3673           57435                           VXV      VCOMP                                 
030471,001446: 24,3674           00001                                    0                                     
030472,001447: 24,3675           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
030473,001448: 24,3676           00307                                    XSCREF                                
030474,001449: 24,3677           76505                           VXM      VSL1                                  
030475,001450: 24,3700           00001                                    0                                     
030476,001451: 24,3701           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
030477,001452: 24,3702           00315                                    YSCREF                                
030478,001453: 24,3703           76505                           VXM      VSL1                                  
030479,001454: 24,3704           00001                                    0                                     
030480,001455: 24,3705           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
030481,001456: 24,3706           00323                                    ZSCREF                                
030482,001457: 24,3707           76505                           VXM      VSL1                                  
030483,001458: 24,3710           00001                                    0                                     
030484,001459: 24,3711           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030485,001460: 24,3712           52001                           SETPD    GOTO                                  
030486,001461: 24,3713           00001                                    0                                     
030487,001462: 24,3714           03657                                    QTEMP                                 
030488,001463: 24,3715           77775        S40.2,3B           VLOAD                                          
030489,001464: 24,3716           15332                                    UNITX                                 
030490,001465: 24,3717           27351                           STOVL    SCAXIS                                
030491,001466: 24,3720           03713                                    UT                                    
030492,001467: 24,3721           00307                           STORE    XSCREF                                
030493,001468: 24,3722           53435                           VXV      UNIT                                  
030494,001469: 24,3723           03632                                    RTIG                                  
030495,001470: 24,3724           34007                           STCALL   6D                                    
030496,001471: 24,3725           51734                                    TSTRXUT                               
030497,001472: 24,3726           00315                           STORE    YSCREF                                
030498,001473: 24,3727           57435                           VXV      VCOMP                                 
030499,001474: 24,3730           00307                                    XSCREF                                
030500,001475: 24,3731           77772                           VSL1                                           
030501,001476: 24,3732           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
030502,001477: 24,3733           03657                                    QTEMP                                 
030503,001478: 24,3734           46145        TSTRXUT            DLOAD    BHIZ                                  
030504,001479: 24,3735           00045                                    36D                                   
030505,001480: 24,3736           51741                                    BADVCTOR                              
030506,001481: 24,3737           43575                           VLOAD    RVQ                                   
030507,001482: 24,3740           00007                                    6D                                    
030508,001483: 24,3741           53575        BADVCTOR           VLOAD    UNIT                                  
030509,001484: 24,3742           03632                                    RTIG                                  
030510,001485: 24,3743           53515                           PDVL     UNIT                                  
030511,001486: 24,3744           03640                                    VTIG                                  
030512,001487: 24,3745           53322                           VSR3     VAD                                   
030513,001488: 24,3746           53435                           VXV      UNIT                                  
030514,001489: 24,3747           03713                                    UT                                    
030515,001490: 24,3750           77676                           VCOMP                                          
030516,001491: 24,3751           00007                           STORE    6D                                    
030517,001492: 24,3752           77616                           RVQ                                            
030518,001493: 24,3753           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
030519,001494: 
030520,001495: 24,3755           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
030521,001496: 
030522,001497: 24,3757           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
030523,001498: 
030524,001499:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
030525,001500: 
030526,001501:                                                                                                  #  PROGRAM DESCRIPTION S41.1             DATE 8 DEC 66
030527,001502:                                                                                                  #  MOD NO 1                              LOG SECTION P40-P47
030528,001503:                                                                                                  #  MOD BY ZELDIN
030529,001504: 
030530,001505:                                                                                                  #  FUNCTIONAL DESCRIPTION
030531,001506: 
030532,001507:                                                                                                  #        COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
030533,001508:                                                                                                  #        TO CONTROL COORDS.
030534,001509: 
030535,001510:                                                                                                  #  CALLING SEQUENCE
030536,001511: 
030537,001512:                                                                                                  #        L       CALL
030538,001513:                                                                                                  #        L+1             S41.1
030539,001514: 
030540,001515:                                                                                                  #  NORMAL EXIT MODE
030541,001516:                                                                                                  #        
030542,001517:                                                                                                  #        AT L +2 OF CALLING SEQUENCE
030543,001518: 
030544,001519:                                                                                                  #  SUBROUTINES CALLED:
030545,001520: 
030546,001521:                                                                                                  #        CALCSMSC
030547,001522:                                                                                                  #        CDUTRIG
030548,001523: 
030549,001524:                                                                                                  #  ALARM OR ABORT MODES
030550,001525: 
030551,001526:                                                                                                  #        NONE
030552,001527: 
030553,001528:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030554,001529: 
030555,001530:                                                                                                  #        VG IN REF. COORD. PDL L POINTER AT L+5.  S41.1 WILL RETURN WITH
030556,001531:                                                                                                  #        POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
030557,001532: 
030558,001533:                                                                                                  #  OUTPUT
030559,001534: 
030560,001535:                                                                                                  #        MPAC CONTAINS VG IN CONTROL COORDS              VECT. B7 M/CS
030561,001536: 
030562,001537:                                                                                                  #  DEBRIS:
030563,001538: 
030564,001539:                                                                                                  #        QTEMP           TEMP ERASABLE
030565,001540:                                                                                                  #        QPRET
030566,001541: 
030567,001542: 24,3761                                           COUNT    22/S41.1                              
030568,001543: 
030569,001544: 22,2000                                           SETLOC   P40S5                                 
030570,001545: 22,2000                                           BANK                                           
030571,001546: 
030572,001547: 22,3431           45020        S41.1              STQ      CALL                                  
030573,001548: 22,3432           03657                                    QTEMP                                 
030574,001549: 22,3433           47501                                    CDUTRIG                               
030575,001550: 22,3434           77775                           VLOAD                                          
030576,001551: 22,3435           45121                           MXV      CALL                                  
030577,001552: 22,3436           01736                                    REFSMMAT                              
030578,001553: 22,3437           47646                                    *SMNB*                                
030579,001554: 22,3440           74321                           MXV      VXSC                                  
030580,001555: 22,3441           05003                                    QUADROT                               
030581,001556: 22,3442           05446                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
030582,001557: 22,3443           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
030583,001558: 22,3444           03657                                    QTEMP                                 
030584,001559: 22,3445           24000 00000  TENBNK14           2DEC     10.        B-4                        
030585,001560: 
030586,001561:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
030587,001562:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
030588,001563:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
030589,001564:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
030590,001565:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
030591,001566:                                                                                                  #  CALLING SEQ   CALL S40.8
030592,001567:                                                                                                  #  INPUT         VGPREV  -       LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
030593,001568:                                                                                                  #                                PRIOR TO UPDATING IN METERS/CS AT +7.
030594,001569:                                                                                                  #                DELVREF -       CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
030595,001570:                                                                                                  #                                IN METERS/CS AT +7.
030596,001571:                                                                                                  #                BDT     -       EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
030597,001572:                                                                                                  #                                GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
030598,001573:                                                                                                  #                                METERS/CS AT +7.
030599,001574:                                                                                                  #                CSTEER  -       A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
030600,001575:                                                                                                  #                                SPS AIMPOINT STEERING MANEUVERS
030601,001576:                                                                                                  #                IDLEFAIL -      A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
030602,001577:                                                                                                  #                STEERSW -       A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
030603,001578:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
030604,001579:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
030605,001580:                                                                                                  #  OUTPUT        TTOGO   -       TIME REMAINING FOR ENGINE BURN IN CS AT +28
030606,001581:                                                                                                  #                OMEGAC  -       DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
030607,001582:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
030608,001583:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
030609,001584:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
030610,001585:                                                                                                  #  DEBRIS        OMEGAXC, +1
030611,001586:                                                                                                  #  SUBROUTINES USED      -       *SMNB*, ALARM
030612,001587: 
030613,001588: 16,2000                                           SETLOC   P40S1                                 
030614,001589: 16,2000                                           BANK                                           
030615,001590: 16,2226  E6,1466                                  EBANK=   DAPDATR1                              
030616,001591: 16,2226                                           COUNT    16/S40.8                              
030617,001592: 
030618,001593: 16,2226           44001        S40.8              SETPD    STQ                                   
030619,001594: 16,2227           00001        SPBIT1                      00D                                   
030620,001595: 16,2230           03657                                    QTEMP                                 
030621,001596: 16,2231           51375                           VLOAD    BVSU                                  #  CONSTRUCT DELVG, SC.AT B+7 M/CS
030622,001597: 16,2232           03433                                    DELVREF                               
030623,001598: 16,2233           03705                                    BDT                                   
030624,001599: 16,2234           77655                           VAD                                            
030625,001600: 16,2235           03721                                    VGPREV                                
030626,001601: 16,2236           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
030627,001602: 
030628,001603: 16,2237           77646                           ABVAL                                          
030629,001604: 16,2240           03773                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
030630,001605: 16,2241           77776                           EXIT                                           
030631,001606: 16,2242           05426                           TC       PHASCHNG                              
030632,001607: 16,2243           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
030633,001608: 
030634,001609: 16,2244           06006                           TC       INTPRET                               
030635,001610: 16,2245           77775                           VLOAD                                          
030636,001611: 16,2246           03460                                    VG                                    
030637,001612: 16,2247           03721                           STORE    VGPREV                                
030638,001613: 16,2250           77214                           BOFF     VLOAD                                 
030639,001614: 16,2251           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
030640,001615: 16,2252           03657                                    QTEMP                                 
030641,001616: 16,2253           03433                                    DELVREF                               
030642,001617: 16,2254           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
030643,001618: 16,2255           41335                           SLOAD    DMP                                   
030644,001619: 16,2256           01350                                    DVTHRESH                              #  SC.AT B-2 M/CS
030645,001620: 16,2257           36047                                    DPB-9                                 
030646,001621: 16,2260           77621                           BDSU                                           
030647,001622: 16,2261           77640                           BMN                                            
030648,001623: 16,2262           40241                                    LOTHRUST                              
030649,001624: 16,2263           77414        CGTRACK            BON      EXIT                                  #  ENABLE TVCDAP CG TRACKING
030650,001625: 16,2264           04700                                    SWTOVER                               
030651,001626: 16,2265           34360                                    FREPSET                               #  V46 SWITCHOVER HAS OCCURRED (CSM/LM)
030652,001627: 16,2266           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
030653,001628: 16,2267           75016                           MASK     BIT14                                 
030654,001629: 16,2270           10000                           CCS      A                                     
030655,001630: 16,2271           35033                           CAF      BIT1                                  
030656,001631: 16,2272           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
030657,001632: 16,2273           31421                           CAE      EREPFRAC                              
030658,001633: 16,2274           55642        REPFRACS           TS       REPFRAC                               
030659,001634: 
030660,001635: 16,2275           06006                           TC       INTPRET                               
030661,001636: 16,2276           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
030662,001637: 16,2277           03433                                    DELVREF                               
030663,001638: 16,2300           03705                                    BDT                                   
030664,001639: 16,2301           77656                           UNIT                                           
030665,001640: 16,2302           41441                           DOT      PUSH                                  #  (00D)
030666,001641: 16,2303           03460                                    VG                                    
030667,001642: 16,2304           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
030668,001643: 16,2305           40233                                    INCRSVG                               #        DISPLAY ALARM IF NOT
030669,001644: 16,2306           36043                                    2VEXHUST                              
030670,001645: 16,2307           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
030671,001646: 16,2310           11564                                    LODPHALF                              
030672,001647: 16,2311           70501                           NORM     SR1                                   
030673,001648: 16,2312           00047                                    X1                                    
030674,001649: 16,2313           60325                           PDDL     NORM                                  
030675,001650: 16,2314           00045                                    36D                                   #  (MAG DELVG)
030676,001651: 16,2315           00050                                    X2                                    
030677,001652: 16,2316           77665                           BDDV                                           
030678,001653: 16,2317           53664                           XSU,2    SL*                                   
030679,001654: 16,2320           00046                                    X1                                    
030680,001655: 16,2321           57607                                    0          -9D,2                      
030681,001656: 16,2322           41405                           DMP      PUSH                                  #  (00D)
030682,001657: 16,2323           36041                                    -FOURDT                               
030683,001658: 16,2324           54335                           SLOAD    SR                                    
030684,001659: 16,2325           03013                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
030685,001660: 16,2326           20617                                    14D                                   
030686,001661: 16,2327           45421                           BDSU     STADR                                 
030687,001662: 16,2330           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
030688,001663: 16,2331           77615                           DAD                                            
030689,001664: 16,2332           01205                                    PIPTIME                               
030690,001665: 16,2333           17413                           STODL    TIG                                   
030691,001666: 16,2334           03430                                    TGO                                   
030692,001667: 16,2335           50025                           DSU      BMN                                   
030693,001668: 16,2336           36045                                    FOURSEC                               
030694,001669: 16,2337           40220                                    S40.81                                
030695,001670: 
030696,001671: 16,2340           74375        XPRODUCT           VLOAD    VXSC                                  
030697,001672: 16,2341           03705                                    BDT                                   
030698,001673: 16,2342           03703                                    CSTEER                                
030699,001674: 16,2343           52352                           VSL2     VSU                                   
030700,001675: 16,2344           03433                                    DELVREF                               
030701,001676: 16,2345           63256                           UNIT     PDVL                                  
030702,001677: 16,2346           03460                                    VG                                    
030703,001678: 16,2347           47256                           UNIT     VXV                                   
030704,001679: 16,2350           45121                           MXV      CALL                                  
030705,001680: 16,2351           01736                                    REFSMMAT                              #  (REFSMMAT/2)
030706,001681: 16,2352           47646                                    *SMNB*                                
030707,001682: 16,2353           77761                           VXSC                                           
030708,001683: 16,2354           03235                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
030709,001684: 16,2355           03126        OMEGACLC           STORE    OMEGAC                                
030710,001685: 16,2356           77650                           GOTO                                           
030711,001686: 16,2357           03657                                    QTEMP                                 
030712,001687: 16,2360           77545        FREPSET            DLOAD    EXIT                                  #  POST-SQITCHOVER CSM/LM.  LOAD FROM LOW-
030713,001688: 16,2361           36602                                    FREPFRAC                              #        BANDWIDTH PARAMETER IN FIXED MEMORY
030714,001689: 16,2362           30154                           CAE      MPAC                                  
030715,001690: 16,2363           12274                           TCF      REPFRACS                              
030716,001691: 
030717,001692: 17,2000                                           SETLOC   DAPS7                                 
030718,001693: 17,2000                                           BANK                                           
030719,001694: 17,2036                                           COUNT    17/S40.8                              
030720,001695: 
030721,001696: 17,2036           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
030722,001697: 
030723,001698: 17,2040           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
030724,001699: 
030725,001700: 17,2042           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
030726,001701: 
030727,001702: 17,2044           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
030728,001703: 
030729,001704: 17,2046           00040 00000  DPB-9              2DEC     1          B-9                        
030730,001705: 
030731,001706: 20,2000                                           SETLOC   DAPS6                                 
030732,001707: 20,2000                                           BANK                                           
030733,001708: 
030734,001709: 20,2220                                           COUNT    20/S40.8                              
030735,001710: 
030736,001711: 20,2220           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
030737,001712: 20,2221           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
030738,001713: 20,2222           15334                                    HI6ZEROS                              
030739,001714: 20,2223           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
030740,001715: 20,2224           77776                           EXIT                                           
030741,001716: 20,2225           35013                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
030742,001717: 20,2226           55447                           TS       CNTR                                  
030743,001718: 20,2227           06006                           TC       INTPRET                               
030744,001719: 20,2230           52014                           CLEAR    GOTO                                  
030745,001720: 20,2231           01264                                    STEERSW                               #  RESTARTS OK
030746,001721: 20,2232           03657                                    QTEMP                                 
030747,001722: 20,2233           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
030748,001723: 20,2234           05664                           TC       ALARM                                 #  IN WRONG DIRECTION.
030749,001724: 20,2235           01407                           OCT      01407                                 
030750,001725: 20,2236           06006                           TC       INTPRET                               
030751,001726: 20,2237           77650                           GOTO                                           
030752,001727: 20,2240           03657                                    QTEMP                                 
030753,001728: 
030754,001729: 20,2241           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
030755,001730: 20,2242           00711                                    IDLEFAIL                              #  SET BY V97P.  ALLOWS 1 BYPASS IN CASE OF
030756,001731: 20,2243           03657                                    QTEMP                                 #        UNFAVORABLE S40.8 SYNCH
030757,001732: 20,2244           15334                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
030758,001733: 20,2245           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
030759,001734: 20,2246           77776                           EXIT                                           
030760,001735: 
030761,001736: 20,2247           45035                           CS       ZERO                                  
030762,001737: 20,2250           55643                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
030763,001738: 20,2251           55655                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
030764,001739: 20,2252           55642                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
030765,001740: 20,2253           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
030766,001741: 
030767,001742: 20,2254           06006                           TC       INTPRET                               
030768,001743: 20,2255           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
030769,001744: 20,2256           01264                                    STEERSW                               #        SHUTDOWN IF NOT SET UP AGAIN)
030770,001745: 20,2257           03657                                    QTEMP                                 #  RESTARTS OK
030771,001746: 
030772,001747:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
030773,001748:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
030774,001749:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
030775,001750:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
030776,001751:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
030777,001752:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
030778,001753:                                                                                                  #  INPUT         RNIT    -       ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
030779,001754:                                                                                                  #                VNIT    -       ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
030780,001755:                                                                                                  #                VRPREV  -       LAST COMPUTED VELOCITY REQUIRED VECTOR IN
030781,001756:                                                                                                  #                                METERS/CS AT +7.
030782,001757:                                                                                                  #                NOMTIG  -       TIME OF IGN.  USED IN TARGETTING ROUTINES %+28"
030783,001758:                                                                                                  #                DELLT4  -       TRANSFER TIME FROM PIPTIME TO TARGET %+28"
030784,001759:                                                                                                  #                TNIT    -       TIME OF RNIT AND VNIT IN CS AT +28
030785,001760:                                                                                                  #                GDT/2   -       HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
030786,001761:                                                                                                  #                                ACCERERATION OF GRAVITY IN METERS/CS AT +7.
030787,001762:                                                                                                  #                DELVREF -       CHANGE IN VELOCITY DURING LAST 2 SEC IN
030788,001763:                                                                                                  #                                METERS/CS AT +7.
030789,001764:                                                                                                  #                NORMSW          SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
030790,001765:                                                                                                  #                                165 TO 195 DEGREES
030791,001766:                                                                                                  #                                RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
030792,001767:                                                                                                  #  OUTPUT        VGTEMP  -       VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
030793,001768:                                                                                                  #                COGA    -       INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
030794,001769:                                                                                                  #                                OR PREVIOUS PASS THRU S40.9
030795,001770:                                                                                                  #                GOBL/2  -       OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
030796,001771:                                                                                                  #                VRPREV  -       VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
030797,001772:                                                                                                  #                BDT     -       B VECTOR IN METERS/CS AT +7.
030798,001773:                                                                                                  #  SUBROUTINES USED -    INITVEL
030799,001774: 
030800,001775: 16,2000                                           SETLOC   P40S1                                 
030801,001776: 16,2000                                           BANK                                           
030802,001777: 
030803,001778: 16,2364  E6,1744                                  EBANK=   NBRCYCLS                              
030804,001779: 16,2364                                           COUNT    16/S40.9                              
030805,001780: 
030806,001781: 16,2364           06006        S40.9              TC       INTPRET                               
030807,001782: 16,2365           71201                           SETPD    DLOAD                                 
030808,001783: 16,2366           00001                                    00D                                   
030809,001784: 16,2367           11566                                    LO6ZEROS                              
030810,001785: 16,2370           77725                           PDDL                                           
030811,001786: 16,2371           26251                                    EP4(45)L                              
030812,001787: 16,2372           71214                           BON      DLOAD                                 
030813,001788: 16,2373           03705                                    NORMSW                                
030814,001789: 16,2374           34376                                    +2                                    
030815,001790: 16,2375           26253                                    EP4(10)L                              
030816,001791: 16,2376           77606                           PUSH                                           
030817,001792: 16,2377           45014                           CLEAR    CALL                                  
030818,001793: 16,2400           00675                                    GUESSW                                
030819,001794: 16,2401           22002                                    HAVEGUES                              
030820,001795: 16,2402           77776                           EXIT                                           
030821,001796: 16,2403           05426                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
030822,001797: 16,2404           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW
030823,001798: 16,2405           10000                           OCT      10000                                 
030824,001799: 16,2406           06006                           TC       INTPRET                               
030825,001800: 16,2407           77614        ENDLAMB            BON                                            
030826,001801: 16,2410           01310                                    FIRSTFLG                              
030827,001802: 16,2411           34427                                    FIRSTTME                              
030828,001803: 16,2412           52375                           VLOAD    VSU                                   
030829,001804: 16,2413           03612                                    VIPRIME                               
030830,001805: 16,2414           03466                                    VRPREV                                
030831,001806: 16,2415           45325                           PDDL     DSU                                   
030832,001807: 16,2416           03474                                    TNIT                                  
030833,001808: 16,2417           03476                                    TNITPREV                              
030834,001809: 16,2420           55261                           SL       BDDV                                  
030835,001810: 16,2421           20222                                    17D                                   
030836,001811: 16,2422           26245                                    200CSHI                               
030837,001812: 16,2423           77761                           VXSC                                           
030838,001813: 16,2424           76451                           VSU      VSL1                                  
030839,001814: 16,2425           01207                                    GDT/2                                 
030840,001815: 16,2426           03705                           STORE    BDT                                   
030841,001816: 16,2427           57535        FIRSTTME           SLOAD    DCOMP                                 
030842,001817: 16,2430           03747                                    RTX2                                  
030843,001818: 16,2431           77640                           BMN                                            
030844,001819: 16,2432           34447                                    MOONCASE                              
030845,001820: 16,2433           53575                           VLOAD    UNIT                                  
030846,001821: 16,2434           01171                                    RN                                    
030847,001822: 16,2435           45345                           DLOAD    DSU                                   
030848,001823: 16,2436           01205                                    PIPTIME                               
030849,001824: 16,2437           03450                                    NOMTIG                                
030850,001825: 16,2440           56205                           DMP      DDV                                   
030851,001826: 16,2441           26247                                    EARTHMU                               
030852,001827: 16,2442           00043                                    34D                                   
030853,001828: 16,2443           53361                           VXSC     VAD                                   
030854,001829: 16,2444           01215                                    GOBL/2                                
030855,001830: 16,2445           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
030856,001831: 16,2446           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
030857,001832: 16,2447           77776        MOONCASE           EXIT                                           
030858,001833: 16,2450           05426                           TC       PHASCHNG                              
030859,001834: 16,2451           04021                           OCT      04021                                 #  C, JOB BELOW
030860,001835: 
030861,001836: 16,2452           06006        COPY40.9           TC       INTPRET                               
030862,001837: 16,2453           77745                           DLOAD                                          
030863,001838: 16,2454           03474                                    TNIT                                  
030864,001839: 16,2455           27476                           STOVL    TNITPREV                              
030865,001840: 16,2456           03612                                    VIPRIME                               
030866,001841: 16,2457           03466                           STORE    VRPREV                                
030867,001842: 16,2460           77414                           CLEAR    EXIT                                  
030868,001843: 16,2461           01270                                    FIRSTFLG                              
030869,001844: 16,2462           45033                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
030870,001845: 16,2463           55744                           TS       NBRCYCLS                              
030871,001846: 16,2464           05426        ENDS40.9           TC       PHASCHNG                              
030872,001847: 16,2465           00001                           OCT      00001                                 
030873,001848: 16,2466           15233                           TCF      ENDOFJOB                              
030874,001849: 
030875,001850: 16,2467           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
030876,001851: 16,2470           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
030877,001852: 16,2471           11566                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
030878,001853: 16,2472           17347                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL
030879,001854: 16,2473           11566                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
030880,001855: 16,2474           27345                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
030881,001856: 16,2475           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
030882,001857: 16,2476           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
030883,001858: 16,2477           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
030884,001859: 16,2500           12462                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
030885,001860: 
030886,001861: 13,2000                                           SETLOC   P40S4                                 
030887,001862: 13,2000                                           BANK                                           
030888,001863: 13,2244                                           COUNT*   $$/S40.9                              
030889,001864: 
030890,001865: 13,2244           01440 00000  200CSHI            2DEC     200        B-12                       
030891,001866: 
030892,001867: 13,2246           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
030893,001868: 
030894,001869: 13,2250           04000 00000  EP4(45)L           2DEC     .125                                  
030895,001870: 
030896,001871: 13,2252           00707 03434  EP4(10)L           2DEC     .027777777                            
030897,001872: 
030898,001873:                                                                                                  #  NAME                  S40.13 - TIMEBURN
030899,001874: 
030900,001875:                                                                                                  #  FUNCTION              (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
030901,001876:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
030902,001877:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
030903,001878:                                                                                                  #                        (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
030904,001879:                                                                                                  #                        AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
030905,001880: 
030906,001881:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
030907,001882: 
030908,001883:                                                                                                  #  INPUT                 VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
030909,001884:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
030910,001885:                                                                                                  #                        F - ENGINE THRUST IN M.NEWTONS AT +7
030911,001886:                                                                                                  #                        MDOT -  RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
030912,001887:                                                                                                  #                                IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
030913,001888:                                                                                                  #                                REQUIRE MODIFICATION FOR SATURN BURNS.
030914,001889: 
030915,001890:                                                                                                  #  OUTPUT                IMPULSW -       ZERO FOR STEERING
030916,001891:                                                                                                  #                                -       ONE FOR ATTITUDE HOLD
030917,001892:                                                                                                  #                        TGO     -       TIME TO BURN IN CENTISECONDS AT +14
030918,001893:                                                                                                  #                        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
030919,001894:                                                                                                  #                        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
030920,001895:                                                                                                  #                        (1) M.NEWTON = (10000) NEWTONS
030921,001896: 
030922,001897: 16,2000                                           SETLOC   P40S1                                 
030923,001898: 16,2000                                           BANK                                           
030924,001899: 16,2501  E7,1427                                  EBANK=   TGO                                   
030925,001900: 16,2501                                           COUNT    16/40.13                              
030926,001901: 
030927,001902: 16,2501           06006        S40.13             TC       INTPRET                               
030928,001903: 16,2502           43001                           SETPD    SET                                   
030929,001904: 16,2503           00001                                    00D                                   
030930,001905: 16,2504           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
030931,001906: 16,2505           51575                           VLOAD    ABVAL                                 
030932,001907: 16,2506           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
030933,001908: 16,2507           77776                           EXIT                                           
030934,001909: 16,2510           35025                           CAF      BIT7                                  #  TEST +X TRANSLATION
030935,001910: 16,2511           00006                           EXTEND                                         
030936,001911: 16,2512           06031                           RXOR     CHAN31                                
030937,001912: 16,2513           75025                           MASK     BIT7                                  
030938,001913: 16,2514           00006                           EXTEND                                         
030939,001914: 16,2515           12577                           BZF      NOTADDUL                              
030940,001915: 16,2516           06006                           TC       INTPRET                               
030941,001916: 16,2517           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
030942,001917: 16,2520           36057                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
030943,001918: 16,2521           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
030944,001919: 16,2522           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
030945,001920: 16,2523           00700                                    NJETSFLG                              
030946,001921: 16,2524           34525                                    S40.130                               
030947,001922: 16,2525           77621        S40.130            BDSU                                           
030948,001923: 16,2526           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
030949,001924: 16,2527           01770                                    K1VAL                                 #  M.NETWON-CS AT +24
030950,001925: 16,2530           03076                                    WEIGHT/G                              
030951,001926: 16,2531           50021                           BDSU     BMN                                   
030952,001927: 16,2532           00001                                    00D                                   
030953,001928: 16,2533           34556                                    S40.131                               #  TGO LESS THAN 100 CS
030954,001929: 16,2534           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7
030955,001930: 16,2535           00111                                    EMDOT                                 #  SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
030956,001931: 16,2536           36053                                    3.5SEC                                #  350 CS AT +14
030957,001932: 16,2537           65221                           BDSU     PDDL                                  
030958,001933: 16,2540           03076                                    WEIGHT/G                              
030959,001934: 16,2541           01775                                    FANG                                  
030960,001935: 16,2542           60405                           DMP      SR2                                   
030961,001936: 16,2543           36055                                    5SECOND                               #  500 CS AT +14
030962,001937: 16,2544           41471                           DDV      PUSH                                  #  04D = TEMP2
030963,001938: 16,2545           51021                           BDSU     BPL                                   
030964,001939: 16,2546           00003                                    02D                                   
030965,001940: 16,2547           34572                                    S40.133                               #  TGO GREATER THAN 600 CS
030966,001941: 16,2550           55345                           DLOAD    BDDV                                  
030967,001942: 16,2551           43205                           DMP      DAD                                   
030968,001943: 16,2552           36055                                    5SECOND                               #  500 CS AT +14
030969,001944: 16,2553           36051                                    1SEC2D                                #  100 CS AT +14
030970,001945: 16,2554           77650                           GOTO                                           
030971,001946: 16,2555           34563                                    S40.132                               
030972,001947: 16,2556           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
030973,001948: 16,2557           03076                                    WEIGHT/G                              
030974,001949: 16,2560           56215                           DAD      DDV                                   
030975,001950: 16,2561           01772                                    K2VAL                                 #  M.NEWTON-CS AT +24
030976,001951: 16,2562           01774                                    K3VAL                                 #  M.NEWTONS AT +10
030977,001952: 16,2563           77776        S40.132            EXIT                                           
030978,001953: 16,2564  E7,1427                                  EBANK=   TGO                                   
030979,001954: 16,2564           07226                           TC       TPAGREE                               
030980,001955: 16,2565           30154                           CA       MPAC                                  
030981,001956: 16,2566           56001                           XCH      L                                     
030982,001957: 16,2567           35035                           CA       ZERO                                  
030983,001958: 16,2570           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
030984,001959: 16,2571           02574                           TC       S40.134                               
030985,001960: 16,2572           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
030986,001961: 16,2573           01266                                    IMPULSW                               
030987,001962: 16,2574           05426        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
030988,001963: 16,2575           00003                           OCT      3                                     
030989,001964: 
030990,001965: 16,2576           15233                           TCF      ENDOFJOB                              
030991,001966: 
030992,001967: 16,2577           06006        NOTADDUL           TC       INTPRET                               
030993,001968: 16,2600           77650                           GOTO                                           
030994,001969: 16,2601           34526                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
030995,001970: 17,2000                                           SETLOC   DAPS7                                 
030996,001971: 17,2000                                           BANK                                           
030997,001972: 
030998,001973: 17,2050                                           COUNT    17/40.13                              
030999,001974: 
031000,001975: 17,2050  E3,1767               K1VAL              =        EK1VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
031001,001976: 17,2050  E3,1771               K2VAL              =        EK2VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
031002,001977: 17,2050  E3,1773               K3VAL              =        EK3VAL                                #  SP PAD LOAD B+09 NEWTONS/E+4
031003,001978: 17,2050           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14
031004,001979: 17,2052           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
031005,001980: 
031006,001981: 17,2054           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
031007,001982: 
031008,001983: 17,2056           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
031009,001984:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
031010,001985:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
031011,001986:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)
031012,001987: 
031013,001988:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031014,001989:                                                                                                  #  MOD NO 5                              DATE 9 MARCH, 1967
031015,001990:                                                                                                  #  MOD BY ENGEL                          LOG SECTION P40-P47
031016,001991: 
031017,001992:                                                                                                  #  FUNCTIONAL DESCRIPTION
031018,001993:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031019,001994:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW.  ASTRONAUT VERIFICATION
031020,001995:                                                                                                  #                OF GIMBAL MOTION ON GPI
031021,001996:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031022,001997:                                                                                                  #                PRE-COMPUTED TRIM POSITION.  ASTRONAUT VERIFICATION ON GPI.
031023,001998:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031024,001999:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031025,002000:                                                                                                  #                BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
031026,002001:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
031027,002002:                                                                                                  #                OF RESTARTING ACTUATORS.
031028,002003: 
031029,002004:                                                                                                  #  CALLING SEQUENCE....
031030,002005:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031031,002006: 
031032,002007:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
031033,002008: 
031034,002009:                                                                                                  #  SUBROUTINES CALLED....
031035,002010:                                                                                                  #        OUTPUT (INTERNAL)
031036,002011:                                                                                                  #        FIXDELAY
031037,002012: 
031038,002013:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
031039,002014: 
031040,002015:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
031041,002016:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
031042,002017:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031043,002018:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
031044,002019:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
031045,002020:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
031046,002021:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031047,002022: 
031048,002023:                                                                                                  #  OUTPUT
031049,002024:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
031050,002025:                                                                                                  #        TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
031051,002026: 
031052,002027:                                                                                                  #  DEBRIS
031053,002028:                                                                                                  #        TEMPR60, CNTR
031054,002029: 
031055,002030: 17,2060                                           BANK     17                                    
031056,002031: 20,2000                                           SETLOC   DAPS6                                 
031057,002032: 20,2000                                           BANK                                           
031058,002033: 
031059,002034: 20,2260  E6,1447                                  EBANK=   CNTR                                  
031060,002035: 20,2260                                           COUNT    20/S40.6                              
031061,002036: 
031062,002037: 20,2260           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
031063,002038: 20,2261           74105                           MASK     OCT60000                              #        IF TVC, BITS 15,|4 = 1,0)
031064,002039: 20,2262           00006                           EXTEND                                         
031065,002040: 20,2263           62265                           BZMF     +2                                    
031066,002041: 20,2264           15340                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
031067,002042: 
031068,002043: 20,2265           45033                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
031069,002044: 20,2266           55445                           TS       MRKRTMP                               
031070,002045: 
031071,002046: 20,2267           35033                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
031072,002047: 20,2270           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
031073,002048:                                                                                                  #        NORMALLY +0, BY S40.6)
031074,002049: 
031075,002050: 20,2271  E6,1447                                  EBANK=   CNTR                                  
031076,002051: 20,2271           45035        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
031077,002052: 20,2272           55303                           TS       OPTIND                                
031078,002053: 
031079,002054: 20,2273           45032                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
031080,002055: 20,2274           00006                           EXTEND                                         #        AND INHIBIT PULSE TRANSMISSION -
031081,002056: 20,2275           03012                           WAND     CHAN12                                #        NORMAL STATE)
031082,002057: 
031083,002058: 20,2276           32363                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
031084,002059: 20,2277           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
031085,002060: 20,2300           05012                           WOR      CHAN12                                
031086,002061: 
031087,002062: 20,2301           05303                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031088,002063: 20,2302           00006                           DEC      6          B-14                       #        RELAY LATCHING
031089,002064: 
031090,002065: 20,2303           35032                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
031091,002066: 20,2304           00006                           EXTEND                                         
031092,002067: 20,2305           05012                           WOR      CHAN12                                
031093,002068: 
031094,002069: 20,2306           05303                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031095,002070: 20,2307           00002                           DEC      2          B-14                       #        RELAY LATCHING
031096,002071: 
031097,002072: 20,2310           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
031098,002073: 20,2311           12351                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
031099,002074:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY
031100,002075: 
031101,002076: 20,2312           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
031102,002077: 20,2313           55447                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
031103,002078: 20,2314           00006                           EXTEND                                         
031104,002079: 20,2315           62347                           BZMF     GIMTRIM                               #  (TRIM ONLY)
031105,002080: 
031106,002081: 20,2316           45035        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
031107,002082: 20,2317           55447                           TS       CNTR                                  
031108,002083: 
031109,002084: 20,2320           32365        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
031110,002085: 20,2321           02334                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
031111,002086: 20,2322           32364                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
031112,002087: 20,2323           02334                           TC       OUTPUT                                
031113,002088: 20,2324           32365                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
031114,002089: 20,2325           02334                           TC       OUTPUT                                
031115,002090: 
031116,002091: 20,2326           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST
031117,002092: 20,2327           10000                           CCS      A                                     
031118,002093: 20,2330           12347                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
031119,002094: 20,2331           45033                           CS       BIT1                                  #  SET UP YAW TEST
031120,002095: 20,2332           55447                           TS       CNTR                                  
031121,002096: 20,2333           12320                           TCF      GIMDTEST                              #  FOR YAW TEST
031122,002097: 
031123,002098: 20,2334           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
031124,002099: 20,2335           23146                           QXCH     TEMPR60                               
031125,002100: 
031126,002101: 20,2336           51447                           INDEX    CNTR                                  
031127,002102: 20,2337           54054                           TS       TVCPITCH                              
031128,002103: 
031129,002104: 20,2340           51447                           INDEX    CNTR                                  
031130,002105: 20,2341           35021                           CAF      BIT11                                 
031131,002106: 20,2342           00006                           EXTEND                                         
031132,002107: 20,2343           05014                           WOR      CHAN14                                
031133,002108: 
031134,002109: 20,2344           05303                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031135,002110: 20,2345           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
031136,002111: 20,2346           01146                           TC       TEMPR60                               
031137,002112: 
031138,002113: 20,2347           05303        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
031139,002114: 20,2350           00620                           DEC      400        B-14                       
031140,002115: 
031141,002116: 20,2351           45035                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
031142,002117: 20,2352           61423                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
031143,002118: 20,2353           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
031144,002119: 20,2354           45035                           CS       ZERO                                  
031145,002120: 20,2355           61424                           AD       YACTOFF                               
031146,002121: 20,2356           54053                           TS       TVCYAW                                
031147,002122: 
031148,002123: 20,2357           35076                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
031149,002124: 20,2360           00006                           EXTEND                                         
031150,002125: 20,2361           05014                           WOR      CHAN14                                
031151,002126: 
031152,002127: 20,2362           15340        ENDS40.6           TCF      TASKOVER                              
031153,002128: 
031154,002129: 20,2363           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031155,002130: 20,2364           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031156,002131: 20,2365           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031157,002132: 
031158,002133:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
031159,002134: 
031160,002135: 20,2366                                           COUNT    20/S41.2                              
031161,002136: 
031162,002137: 20,2366           31466        S41.2              CA       DAPDATR1                              
031163,002138: 20,2367           76214                           MASK     THREE                                 
031164,002139: 20,2370           60000                           AD       A                                     
031165,002140: 20,2371           55130                           TS       RATEINDX                              
031166,002141: 
031167,002142: 20,2372           00004                           INHINT                                         
031168,002143: 20,2373           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
031169,002144: 20,2374           74371                           MASK     PRIO30                                #        =10)
031170,002145: 20,2375           67705                           AD       -BIT14                                #  (OCT57777)
031171,002146: 20,2376           00006                           EXTEND                                         
031172,002147: 20,2377           12404                           BZF      TOGETHER                              #  YES
031173,002148: 
031174,002149: 20,2400           45032                           CS       BIT2                                  #  NO, UNSET FLAG
031175,002150: 20,2401           70103                           MASK     FLAGWRD7                              
031176,002151: 20,2402           54103                           TS       FLAGWRD7                              
031177,002152: 
031178,002153: 20,2403           12407                           TCF      +4                                    
031179,002154: 
031180,002155: 20,2404           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
031181,002156: 20,2405           75032                           MASK     BIT2                                  
031182,002157: 20,2406           26103                           ADS      FLAGWRD7                              
031183,002158: 
031184,002159: 20,2407           00003                           RELINT                                         
031185,002160: 
031186,002161: 20,2410           31466                           CA       DAPDATR1                              
031187,002162: 20,2411           75030                           MASK     BIT4                                  
031188,002163: 20,2412           00006                           EXTEND                                         
031189,002164: 20,2413           62415                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
031190,002165: 20,2414           32515                           CA       DEC409                                
031191,002166: 20,2415           62516                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
031192,002167: 20,2416           55655                           TS       ADB                                   
031193,002168: 
031194,002169: 20,2417           31466                           CA       DAPDATR1                              
031195,002170: 20,2420           75025                           MASK     BIT7                                  #  QUAD BD
031196,002171: 20,2421           00006                           EXTEND                                         
031197,002172: 20,2422           62424                           BZMF     +2                                    
031198,002173: 20,2423           35033                           CA       ONE                                   
031199,002174: 20,2424           55631                           TS       XTRANS                                
031200,002175: 20,2425           31466                           CA       DAPDATR1                              
031201,002176: 20,2426           75022                           MASK     BIT10                                 #  QUAD AC
031202,002177: 20,2427           00006                           EXTEND                                         
031203,002178: 20,2430           62432                           BZMF     +2                                    
031204,002179: 20,2431           45033                           CS       ONE                                   
031205,002180: 20,2432           27631                           ADS      XTRANS                                
031206,002181: 
031207,002182: 20,2433           00004                           INHINT                                         
031208,002183: 20,2434           00006                           EXTEND                                         
031209,002184: 20,2435           12442                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
031210,002185: 20,2436           40075                           CS       FLAGWRD1                              #  SET NJETSFLG (2 JETS, AC OR BD QUADS)
031211,002186: 20,2437           75015                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
031212,002187: 20,2440           26075                           ADS      FLAGWRD1                              
031213,002188: 20,2441           12445                           TCF      +4                                    
031214,002189: 20,2442           45015                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
031215,002190: 20,2443           70075                           MASK     FLAGWRD1                              
031216,002191: 20,2444           54075                           TS       FLAGWRD1                              
031217,002192: 20,2445           00003                           RELINT                                         
031218,002193: 20,2446           31467                           CA       DAPDATR2                              
031219,002194: 20,2447           75017                           MASK     BIT13                                 
031220,002195: 20,2450           00006                           EXTEND                                         
031221,002196: 20,2451           62453                           BZMF     +2                                    
031222,002197: 20,2452           12454                           TCF      +2                                    
031223,002198: 20,2453           45033                           CS       ONE                                   
031224,002199: 20,2454           40000                           COM                                            
031225,002200: 20,2455           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
031226,002201: 
031227,002202: 20,2456           31467                           CA       DAPDATR2                              
031228,002203: 20,2457           75022                           MASK     BIT10                                 
031229,002204: 20,2460           10000                           CCS      A                                     
031230,002205: 20,2461           12465                           TCF      +4                                    
031231,002206: 20,2462           35033                           CA       ONE                                   
031232,002207: 20,2463           55626                           TS       RACFAIL                               
031233,002208: 20,2464           12475                           TCF      BDFAIL                                
031234,002209: 20,2465           35035                           CA       ZERO                                  
031235,002210: 20,2466           55626                           TS       RACFAIL                               
031236,002211: 20,2467           31467                           CA       DAPDATR2                              
031237,002212: 20,2470           75030                           MASK     BIT4                                  
031238,002213: 20,2471           10000                           CCS      A                                     
031239,002214: 20,2472           12475                           TCF      BDFAIL                                
031240,002215: 20,2473           45033                           CS       ONE                                   
031241,002216: 20,2474           55626                           TS       RACFAIL                               
031242,002217: 20,2475           31467        BDFAIL             CA       DAPDATR2                              
031243,002218: 20,2476           75025                           MASK     BIT7                                  
031244,002219: 20,2477           10000                           CCS      A                                     
031245,002220: 20,2500           12504                           TCF      +4                                    
031246,002221: 20,2501           35033                           CA       ONE                                   
031247,002222: 20,2502           55627                           TS       RBDFAIL                               
031248,002223: 20,2503           00002                           TC       Q                                     
031249,002224: 20,2504           35035                           CA       ZERO                                  
031250,002225: 20,2505           55627                           TS       RBDFAIL                               
031251,002226: 20,2506           31467                           CA       DAPDATR2                              
031252,002227: 20,2507           75033                           MASK     BIT1                                  
031253,002228: 20,2510           10000                           CCS      A                                     
031254,002229: 20,2511           00002                           TC       Q                                     
031255,002230: 20,2512           45033                           CS       ONE                                   
031256,002231: 20,2513           55627                           TS       RBDFAIL                               
031257,002232: 20,2514           00002                           TC       Q                                     
031258,002233: 
031259,002234:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
031260,002235: 
031261,002236: 42,3606                                           BANK     42                                    
031262,002237: 42,2000                                           SETLOC   EXTVBS                                
031263,002238: 42,2000                                           BANK                                           
031264,002239: 
031265,002240: 42,3606           45023        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
031266,002241: 42,3607           00006                           EXTEND                                         
031267,002242: 42,3610           03012                           WAND     CHAN12                                
031268,002243: 42,3611           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
031269,002244: 42,3612           00006                           EXTEND                                         
031270,002245: 42,3613           75031                           MP       BIT3                                  #        RIGHT SHIFT 4 OCTAL DIGITS
031271,002246: 42,3614           76214                           MASK     THREE                                 #        (IN CASE BIT 15 IS USED)
031272,002247: 42,3615           50000                           INDEX    A                                     
031273,002248: 42,3616           13617                           TCF      +1                                    #        BRANCH BASED ON CONFIG....
031274,002249: 
031275,002250: 42,3617           13631                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
031276,002251: 42,3620           13624                           TCF      RCSDAPUP                              #        CSM......ACTIVATE RCSDAP
031277,002252: 42,3621           13624                           TCF      RCSDAPUP                              #        CSM/LEM..ACTIVATE RCSDAP
031278,002253: 42,3622           04715                           TC       POSTJUMP                              
031279,002254: 42,3623           67225                           CADR     SATSTKON                              
031280,002255: 42,3624           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
031281,002256: 42,3625           04754                           TCR      IBNKCALL                              
031282,002257: 42,3626           42036                           CADR     RCSDAPON                              
031283,002258: 42,3627           00003                           RELINT                                         
031284,002259: 42,3630           13646                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
031285,002260: 42,3631           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
031286,002261: 42,3632           33651                           DCA      T5IDLDAP                              
031287,002262: 42,3633           53313                           DXCH     T5LOC                                 
031288,002263: 42,3634           05574                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
031289,002264: 42,3635           00132                           ADRES    DAPBIT1                               #  BIT 15 FLAG 6 = 0
031290,002265: 42,3636           05574                           TC       DOWNFLAG                              
031291,002266: 42,3637           00133                           ADRES    DAPBIT2                               #  BIT 14 FLAG 6 = 0
031292,002267: 42,3640           00004                           INHINT                                         
031293,002268: 42,3641           04754                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
031294,002269: 42,3642           42644                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
031295,002270: 42,3643           00003                           RELINT                                         
031296,002271: 42,3644           35033                           CAF      BIT1                                  #  KILL KALCMANU JOB
031297,002272: 42,3645           55332                           TS       HOLDFLAG                              
031298,002273: 42,3646           04715        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
031299,002274: 42,3647           66121                           CADR     GOPIN                                 
031300,002275: 42,3650  E6,1423                                  EBANK=   PACTOFF                               
031301,002276: 42,3650           03155 12106  T5IDLDAP           2CADR    T5IDLOC                               
031302,002277: 
031303,002278: 42,3652  30,2000                                  SBANK=   LOWSUPER                              
031304,002279: 17,2060                                           BANK     17                                    
031305,002280: 20,2000                                           SETLOC   DAPS6                                 
031306,002281: 20,2000                                           BANK                                           
031307,002282: 
031308,002283: 20,2515           00631        DEC409             DEC      409        B-14                       
031309,002284: 20,2516           00056        DEC46              DEC      46         B-14                       
031310,002285: 
031311,002286: 
031312,002287:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
031313,002288: 20,2517           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
031314,002289: 20,2520           00006                           EXTEND                                         
031315,002290: 20,2521           72544                           MP       CONTONE                               
031316,002291: 20,2522           55623                           TS       J/M                                   
031317,002292: 
031318,002293: 20,2523           31471                           CA       IAVG                                  
031319,002294: 20,2524           00006                           EXTEND                                         
031320,002295: 20,2525           72544                           MP       CONTONE                               
031321,002296: 20,2526           55624                           TS       J/M1                                  
031322,002297: 
031323,002298: 20,2527           55625                           TS       J/M2                                  
031324,002299: 
031325,002300: 20,2530           00006                           EXTEND                                         
031326,002301: 20,2531           32546                           DCA      CONTTWO                               
031327,002302: 20,2532           00006                           EXTEND                                         
031328,002303: 20,2533           11470                           DV       IXX                                   
031329,002304: 20,2534           55620                           TS       KMJ                                   
031330,002305: 
031331,002306: 20,2535           00006                           EXTEND                                         
031332,002307: 20,2536           32546                           DCA      CONTTWO                               
031333,002308: 20,2537           00006                           EXTEND                                         
031334,002309: 20,2540           11471                           DV       IAVG                                  
031335,002310: 20,2541           55621                           TS       KMJ1                                  
031336,002311: 
031337,002312: 20,2542           55622                           TS       KMJ2                                  
031338,002313: 
031339,002314: 20,2543           00002                           TC       Q                                     
031340,002315: 
031341,002316: 20,2544           25137        CONTONE            DEC      .662034                               #  2PI/M
031342,002317: 20,2545           00023 12522  CONTTWO            2DEC     .00118                                
031343,002318: 
031344,002319: 20,2547                                           COUNT    24/TVNG                               
031345,002320: 
031346,002321: 31,3700                                           BANK     31                                    
031347,002322: 24,2000                                           SETLOC   P40S                                  
031348,002323: 24,2000                                           BANK                                           
031349,002324: 
031350,002325: 24,3761           37405        POS-2.5            OCT      37405                                 
031351,002326: 24,3762  E6,1466                                  EBANK=   DAPDATR1                              
031352,002327: 24,3762           02026 42066  RCSCADR            2CADR    RCSUP                                 
031353,002328: 
031354,002329: 24,3764           37704        6SECT5             OCT      37704                                 
031355,002330: 24,3765                                           COUNT    21/RCSUP                              
031356,002331: 
031357,002332: 20,2547                                           BANK     20                                    
031358,002333: 
031359,002334: 21,2000                                           SETLOC   DAPS3                                 
031360,002335: 21,2000                                           BANK                                           
031361,002336: 
031362,002337: 
031363,002338: 21,2026           22016        RCSUP              LXCH     BANKRUPT                              
031364,002339: 21,2027           00006                           EXTEND                                         
031365,002340: 21,2030           22012                           QXCH     QRUPT                                 
031366,002341: 
031367,002342: 21,2031           02036                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
031368,002343: 
031369,002344: 21,2032           15347                           TCF      RESUME                                
031370,002345: 
031371,002346: 21,2033  E6,1466                                  EBANK=   DAPDATR1                              
031372,002347: 21,2033           02134 42066  RCSADDR            2CADR    RCSATT                                
031373,002348: 
031374,002349: 21,2035           37704        0.6SECT5           OCT      37704                                 
031375,002350: 
031376,002351:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
031377,002352: 21,2036           32035        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
031378,002353: 21,2037           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
031379,002354: 21,2040           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
031380,002355: 
031381,002356: 21,2041           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
031382,002357: 21,2042           75031                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
031383,002358: 21,2043           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
031384,002359: 
031385,002360: 21,2044           00006                           EXTEND                                         
031386,002361: 21,2045           32034                           DCA      RCSADDR                               #  (RCSATT)
031387,002362: 21,2046           53313                           DXCH     T5LOC                                 
031388,002363: 
031389,002364: 21,2047           44105                           CS       OCT60000                              #  SET BITS 15,14 TO 01 TO INDICATE
031390,002365: 21,2050           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
031391,002366: 21,2051           65016                           AD       BIT14                                 
031392,002367: 21,2052           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
031393,002368: 
031394,002369: 21,2053           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
031395,002370: 
031396,002371: 

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