Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

030395,000002:                                                                                                  ## Copyright:   Public domain.
030396,000003:                                                                                                  ## Filename:    P40-P47.agc
030397,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
030398,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
030399,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
030400,000007:                                                                                                  ## Assembler:   yaYUL
030401,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030402,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
030403,000010:                                                                                                  ## Pages:       684-736
030404,000011:                                                                                                  ## Mod history: 2009-05-11 RSB  Adapted from the Colossus249/ file 
030405,000012:                                                                                                  ##                              of the same name, using Comanche055 page 
030406,000013:                                                                                                  ##                              images.  
030407,000014:                                                                                                  ##              2009-05-20 RSB  In S20.1, a DMP DDV was corrected to DMPR DDV.
030408,000015:                                                                                                  ##              2009-05-22 RSB  In BESTTRIM, TC PACTOFF corrected to
030409,000016:                                                                                                  ##                              TS PACTOFF.
030410,000017:                                                                                                  ##              2009-05-23 RSB  Prior to the 2CADR at T5IDLDAP, added an 
030411,000018:                                                                                                  ##                              SBANK.
030412,000019:                                                                                                  ##              2010-08-28 JL   Fixed indentation.
030413,000020:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
030414,000021:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
030415,000022:                                                                                                  ##              2016-12-11 RSB  Proofed comments with octopus/ProoferComments
030416,000023:                                                                                                  ##                              and fixed the errors found.
030417,000024:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
030418,000025:                                                                                                  ##                              vs Colossus 249.
030419,000026:                                                                                                  ##
030420,000027:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
030421,000028:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
030422,000029:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
030423,000030:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
030424,000031:                                                                                                  ## consequent reduction in image quality as well) are available online at
030425,000032:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
030426,000033:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
030427,000034:                                                                                                  ## (much) higher-quality images which Paul actually created.
030428,000035:                                                                                                  ##
030429,000036:                                                                                                  ## Notations on the hardcopy document read, in part:
030430,000037:                                                                                                  ##
030431,000038:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
030432,000039:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
030433,000040:                                                                                                  ##
030434,000041:                                                                                                  ##      This AGC program shall also be referred to as
030435,000042:                                                                                                  ##                      Colossus 2A
030436,000043: 

Page 684

030438,000045:                                                                                                  #  PROGRAM DESCRIPTION ** P40CSM **
030439,000046: 
030440,000047: 35,3477  E6,1466                                  EBANK=   DAPDATR1                              
030441,000048: 31,3700                                           BANK     31                                    
030442,000049: 24,2000                                           SETLOC   P40S                                  
030443,000050: 24,2000                                           BANK                                           
030444,000051: 
030445,000052: 24,2073                                           COUNT    24/P40                                
030446,000053: 
030447,000054: 24,2073           05560        P40CSM             TC       DOWNFLAG                              
030448,000055: 24,2074           00023                           ADRES    ENG2FLAG                              
030449,000056: 
030450,000057: 24,2075           06006                           TC       INTPRET                               
030451,000058: 24,2076           43135                           SLOAD    BOFF                                  
030452,000059: 24,2077           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
030453,000060: 24,2100           01347                                    XDELVFLG                              
030454,000061: 24,2101           50104                                    P40S/C                                #  NO    CSTEER = ECSTEER
030455,000062: 24,2102           77745                           DLOAD                                          #  YES   CSTEER = ZERO
030456,000063: 24,2103           15335                                    HI6ZEROS                              
030457,000064: 24,2104           17703        P40S/C             STODL    CSTEER                                
030458,000065: 24,2105           10411                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
030459,000066: 24,2106           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
030460,000067: 24,2107           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
030461,000068: 24,2110           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
030462,000069: 
030463,000070: 24,2111           77776                           EXIT                                           
030464,000071: 24,2112           04662                           TC       BANKCALL                              
030465,000072: 24,2113           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
030466,000073: 
030467,000074: 24,2114           06006        P40PVA             TC       INTPRET                               
030468,000075: 24,2115           77624                           CALL                                           
030469,000076: 24,2116           34020                                    S40.1                                 #  COMPUTE VGTIG,UT
030470,000077: 24,2117           77624                           CALL                                           
030471,000078: 24,2120           51574                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
030472,000079: 24,2121           77414                           SET      EXIT                                  
030473,000080: 24,2122           01073                                    PFRATFLG                              
030474,000081: 24,2123           02303        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
030475,000082: 24,2124           00003                           RELINT                                         
030476,000083: 24,2125           04662                           TC       BANKCALL                              
030477,000084: 24,2126           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
030478,000085: 24,2127           45017                           CS       ONE                                   #  FOR UPDATEVG
030479,000086: 24,2130           55742                           TS       NBRCYCLS                              
030480,000087: 24,2131           05546                           TC       UPFLAG                                
030481,000088: 24,2132           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
030482,000089: 
030483,000090: 24,2133           02326                           TC       P41/P40                               
030484,000091: 24,2134           02343                           TC       P41/DSP                               #  P41
030485,000092: 
030486,000093: 24,2135           32425        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED

Page 685

030488,000095: 24,2136           55145                           TS       NVWORD1                               #  BELOW
030489,000096: 
030490,000097: 24,2137           06006                           TC       INTPRET                               
030491,000098: 24,2140           51575                           VLOAD    ABVAL                                 #  FOR R2
030492,000099: 24,2141           03721                                    VGTIG                                 
030493,000100: 24,2142           17773                           STODL    VGDISP                                
030494,000101: 24,2143           15335                                    HI6ZEROS                              
030495,000102: 24,2144           03426                           STORE    DVTOTAL                               
030496,000103: 24,2145           77776                           EXIT                                           
030497,000104: 
030498,000105: 24,2146           00006                           EXTEND                                         
030499,000106: 24,2147           33061                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
030500,000107: 24,2150           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
030501,000108: 
030502,000109: 24,2151           32420        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
030503,000110: 24,2152           04662                           TC       BANKCALL                              
030504,000111: 24,2153           21045                           CADR     GOPERF1                               
030505,000112: 24,2154           12275                           TCF      POST41                                #  V34
030506,000113: 24,2155           12435                           TCF      TST,TRIM                              #  V33
030507,000114: 24,2156           45017        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
030508,000115: 24,2157           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
030509,000116: 
030510,000117: 24,2160           35021                           CAF      ZERO                                  #  SET CNTR      +0 FOR RESTART LOGIC IN S40.6
030511,000118: 24,2161           55447                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
030512,000119:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
030513,000120: 
030514,000121: 24,2162           35017                           CAF      ONE                                   
030515,000122: 24,2163           05245                           TC       WAITLIST                              
030516,000123: 24,2164  E6,1466                                  EBANK=   DAPDATR1                              
030517,000124: 24,2164           02252 40066                     2CADR    S40.6                                 
030518,000125: 
030519,000126: 24,2166           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
030520,000127: 24,2167           32417                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
030521,000128: 24,2170           12172                           TCF      +2                                    #  HOLE
030522,000129: 24,2171           33064                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
030523,000130: 24,2172           04662                           TC       BANKCALL                              
030524,000131: 24,2173           01732                           CADR     DELAYJOB                              
030525,000132: 24,2174           05372                           TC       2PHSCHNG                              
030526,000133: 24,2175           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
030527,000134: 24,2176           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
030528,000135: 24,2177           35017        P40S/RS            CAF      ONE                                   
030529,000136: 24,2200           05245                           TC       WAITLIST                              #  P41/SDP
030530,000137: 24,2201  E7,1412                                  EBANK=   TIG                                   
030531,000138: 24,2201           03260 50067                     2CADR    CLOKTASK                              
030532,000139: 
030533,000140: 24,2203           00003                           RELINT                                         
030534,000141: 
030535,000142: 24,2204           03366        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
030536,000143: 24,2205  E7,1412                                  EBANK=   TIG                                   

Page 686

030538,000145: 24,2205           06006                           TC       INTPRET                               
030539,000146: 24,2206           45345                           DLOAD    DSU                                   
030540,000147: 24,2207           03413                                    TIG                                   
030541,000148: 24,2210           10416                                    SEC29.96                              
030542,000149: 24,2211           00041                           STORE    TDEC1                                 
030543,000150: 
030544,000151: 24,2212           77624                           CALRB                                          #  RETURN IN BASIC
030545,000152: 24,2213           27553                                    MIDTOAV1                              
030546,000153: 24,2214           12216                           TCF      +2                                    
030547,000154: 24,2215           02237                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
030548,000155: 24,2216           00006        P40SET             EXTEND                                         
030549,000156: 24,2217           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
030550,000157: 24,2220           53673                           DXCH     P40TMP                                
030551,000158: 24,2221           00006                           EXTEND                                         
030552,000159: 24,2222           43064                           DCS      5SECDP                                #  FOR TTGBLNK
030553,000160: 24,2223           21673                           DAS      P40TMP                                
030554,000161: 24,2224           00006                           EXTEND                                         
030555,000162: 24,2225           31673                           DCA      P40TMP                                
030556,000163: 24,2226           05342                           TC       LONGCALL                              
030557,000164: 24,2227  E7,1412                                  EBANK=   TIG                                   
030558,000165: 24,2227           02437 50067                     2CADR    TIGBLNK                               
030559,000166: 
030560,000167: 24,2231           05412                           TC       PHASCHNG                              
030561,000168: 24,2232           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
030562,000169: 
030563,000170: 24,2233           15217                           TCF      ENDOFJOB                              
030564,000171: 24,2234           04662        P40BLNKR           TC       BANKCALL                              
030565,000172: 24,2235           20703                           CADR     CLEANDSP                              #  REMOVE RESIDUE
030566,000173: 24,2236           15217                           TCF      ENDOFJOB                              
030567,000174: 24,2237  E7,1412                                  EBANK=   TIG                                   
030568,000175: 24,2237           00006        P40SNEWM           EXTEND                                         
030569,000176: 24,2240           31246                           DCA      PIPTIME1                              
030570,000177: 24,2241           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
030571,000178: 24,2242           00006                           EXTEND                                         
030572,000179: 24,2243           32416                           DCA      SEC29.96                              
030573,000180: 24,2244           21413                           DAS      TIG                                   
030574,000181: 24,2245           12216                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30 (OR -35)
030575,000182: 
030576,000183: 24,2246  E6,1466                                  EBANK=   DAPDATR1                              
030577,000184: 24,2246           32426        POSTBURN           CAF      V16N40                                
030578,000185: 24,2247           04662                           TC       BANKCALL                              
030579,000186: 24,2250           20704                           CADR     REFLASH                               
030580,000187: 24,2251           12275                           TCF      POST41                                #  V34 GO FINISH
030581,000188: 24,2252           12254                           TCF      P40RCS                                #  PROCEED
030582,000189: 24,2253           12246                           TCF      POSTBURN                              #  RECYCLE
030583,000190: 24,2254           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
030584,000191: 24,2255           32462                           DCA      ACADN85                               
030585,000192: 24,2256           53223                           DXCH     AVEGEXIT                              
030586,000193: 24,2257           35042                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
030587,000194: 24,2260           04662                           TC       BANKCALL                              

Page 687

030589,000196: 24,2261           01732                           CADR     DELAYJOB                              
030590,000197: 
030591,000198: 24,2262           02303        P40MINDB           TCR      SETMINDB   -1                         
030592,000199: 24,2263           00003                           RELINT                                         
030593,000200: 24,2264           05412        TIGNOW             TC       PHASCHNG                              
030594,000201: 24,2265           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
030595,000202: 24,2266           20000                           OCT      20000                                 #  PRIO 20
030596,000203: 24,2267           32424                           CAF      V16N85B                               
030597,000204: 24,2270           04662                           TC       BANKCALL                              
030598,000205: 24,2271           20704                           CADR     REFLASH                               
030599,000206: 24,2272           12275                           TCF      POST41                                #  FINISH P40/P41
030600,000207: 24,2273           12275                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
030601,000208: 24,2274           12264                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
030602,000209: 
030603,000210: 24,2275           00006        POST41             EXTEND                                         
030604,000211: 24,2276           32460                           DCA      SERVCADR                              
030605,000212: 24,2277           53223                           DXCH     AVEGEXIT                              
030606,000213: 24,2300           14106                           TCF      GOTOPOOH                              
030607,000214: 
030608,000215: 24,2301           00056        MINDB              DEC      46         B-14                       
030609,000216: 24,2302           00707        MAXDB              DEC      455        B-14                       
030610,000217: 24,2303  E6,1466                                  EBANK=   DAPDATR1                              
030611,000218: 24,2303           00004                 -1        INHINT                                         
030612,000219: 24,2304           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
030613,000220: 24,2305           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
030614,000221: 24,2306           00006                           EXTEND                                         #  IN AUTOPILOT
030615,000222: 24,2307           30034                           DCA      CDUY                                  
030616,000223: 24,2310           53574                           DXCH     THETADY                               
030617,000224: 24,2311           32301                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
030618,000225: 24,2312           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
030619,000226: 24,2313           45014                           CS       BIT4                                  #  EBANK = E6
030620,000227: 24,2314           71466                           MASK     DAPDATR1                              
030621,000228: 24,2315           55466                           TS       DAPDATR1                              
030622,000229: 24,2316           00002                           TC       Q                                     
030623,000230: 
030624,000231: 24,2317  E6,1466                                  EBANK=   DAPDATR1                              
030625,000232: 24,2317           00004                 -1        INHINT                                         
030626,000233: 24,2320           32302        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
030627,000234: 24,2321           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
030628,000235: 24,2322           41466                           CS       DAPDATR1                              
030629,000236: 24,2323           75014                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
030630,000237: 24,2324           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
030631,000238: 24,2325           00002                           TC       Q                                     #  EBANK = E6
030632,000239: 

Page 688

030634,000241:                                                                                                  #  PROGRAM DESCRIPTION ** P41CSM **
030635,000242: 
030636,000243: 27,2000                                           SETLOC   P40S2                                 
030637,000244: 27,2000                                           BANK                                           
030638,000245: 
030639,000246: 27,2614  E6,1466                                  EBANK=   DAPDATR1                              
030640,000247: 27,2614                                           COUNT    24/P41                                
030641,000248: 
030642,000249: 27,2614           05546        P41CSM             TC       UPFLAG                                
030643,000250: 27,2615           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
030644,000251: 
030645,000252: 27,2616           06006                           TC       INTPRET                               
030646,000253: 27,2617           77745                           DLOAD                                          
030647,000254: 27,2620           15335                                    HI6ZEROS                              #  FOR P41 CSTEER =0
030648,000255: 27,2621           03703                           STORE    CSTEER                                
030649,000256: 
030650,000257: 27,2622           43145                           DLOAD    BON                                   
030651,000258: 27,2623           10413                                    FRCS2                                 #  2JET THRUST FOR S40.1
030652,000259: 27,2624           00700                                    NJETSFLG                              
030653,000260: 27,2625           50106                                    P40S/F                                #  NJETS = 1 2-JET
030654,000261: 27,2626           52015                           DAD      GOTO                                  #  NJETS = 0 4-JET
030655,000262: 27,2627           10413                                    FRCS2                                 
030656,000263: 27,2630           50106                                    P40S/F                                
030657,000264: 
030658,000265: 24,2000                                           SETLOC   P40S                                  
030659,000266: 24,2000                                           BANK                                           
030660,000267: 
030661,000268: 24,2326           41011        P41/P40            CS       MODREG                                
030662,000269: 24,2327           75017                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
030663,000270: 24,2330           00006                           EXTEND                                         
030664,000271: 24,2331           12333                           BZF      +2                                    #  P41
030665,000272: 24,2332           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
030666,000273: 24,2333           00002                           TC       Q                                     
030667,000274: 
030668,000275: 24,2334           35002        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
030669,000276: 24,2335           05134                           TC       NOVAC                                 
030670,000277: 24,2336  E6,1466                                  EBANK=   DAPDATR1                              
030671,000278: 24,2336           02264 50066                     2CADR    TIGNOW                                
030672,000279: 
030673,000280: 24,2340           05560        P40CLK             TC       DOWNFLAG                              
030674,000281: 24,2341           00155                           ADRES    TIMRFLAG                              
030675,000282: 
030676,000283: 24,2342           15324                           TCF      TASKOVER                              
030677,000284: 
030678,000285: 24,2343           32423        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
030679,000286: 24,2344           55145                           TS       NVWORD1                               
030680,000287: 
030681,000288: 24,2345           06006                           TC       INTPRET                               

Page 689

030683,000290: 24,2346           77624                           CALL                                           #  COMPUTE
030684,000291: 24,2347           50370                                    P40CNV85                              #        VGTIG IN CTRL COORDS
030685,000292: 24,2350           77776                           EXIT                                           
030686,000293: 24,2351           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
030687,000294: 24,2352           32462                           DCA      ACADN85                               
030688,000295: 24,2353           53223                           DXCH     AVEGEXIT                              
030689,000296: 24,2354           05372                           TC       2PHSCHNG                              
030690,000297: 24,2355           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
030691,000298: 24,2356           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
030692,000299: 
030693,000300: 24,2357           12177                           TCF      P40S/RS                               
030694,000301: 24,2360           32424        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
030695,000302: 24,2361           55145                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
030696,000303: 24,2362           32416                           CAF      SEC29.96   +1                         
030697,000304: 24,2363           05245                           TC       WAITLIST                              
030698,000305: 24,2364  E6,1466                                  EBANK=   DAPDATR1                              
030699,000306: 24,2364           02334 50066                     2CADR    TTG/0                                 
030700,000307: 
030701,000308: 24,2366           45015                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
030702,000309: 24,2367           12566                           TCF      TTGPHS                                
030703,000310: 24,2370           40220        P40CNV85           STQ      SETPD                                 
030704,000311: 24,2371           03730                                    QTEMP1                                
030705,000312: 24,2372           00001                                    0                                     
030706,000313: 24,2373           41575                           VLOAD    PUSH                                  
030707,000314: 24,2374           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
030708,000315: 24,2375           77624                           CALL                                           
030709,000316: 24,2376           45431                                    S41.1                                 
030710,000317: 24,2377           37665                           STCALL   VGBODY                                
030711,000318: 24,2400           03730                                    QTEMP1                                
030712,000319: 
030713,000320: 24,2401  E6,1466                                  EBANK=   DAPDATR1                              
030714,000321: 24,2401           06006        CALCN85            TC       INTPRET                               
030715,000322: 24,2402           77624                           CALL                                           
030716,000323: 24,2403           51104                                    UPDATEVG                              #  NEW VG, S40.8 (+MAYBE S40.9)
030717,000324: 24,2404           77624                           CALL                                           
030718,000325: 24,2405           50370                                    P40CNV85                              #  COMPUTE VGBODY
030719,000326: 24,2406           77776                           EXIT                                           
030720,000327: 24,2407           03215                           TC       SERVXT                                
030721,000328: 24,2410           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
030722,000329: 
030723,000330: 24,2412           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
030724,000331: 
030725,000332:                                                                                                  #        B+7 NEWTONS/E+4
030726,000333: 24,2414           04700        SEC24.96           DEC      2496       B-14                       
030727,000334: 24,2415           00000 05664  SEC29.96           2DEC     2996       B-28                       
030728,000335: 
030729,000336: 24,2417           03410        18SEC              DEC      1800       B-14                       
030730,000337: 24,2420           00204        P40CKLS2           OCT      204                                   
030731,000338: 24,2421           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
030732,000339: 24,2422     4377               OCT12              =        TEN                                   

Page 690

030734,000341: 24,2422           04123        V1683              VN       1683                                  
030735,000342: 24,2423           01525        V06N85B            VN       0685                                  
030736,000343: 24,2424           04125        V16N85B            VN       1685                                  
030737,000344: 24,2425           01450        V06N40             VN       0640                                  
030738,000345: 24,2426           04050        V16N40             VN       1640                                  
030739,000346: 24,2427           00027        OCT27/24           OCT      27                                    
030740,000347: 24,2430           00053        OCT53              OCT      53                                    
030741,000348: 24,2431           00035        OCT35              OCT      35                                    
030742,000349: 24,2432  E6,1466                                  EBANK=   DAPDATR1                              
030743,000350: 24,2432           03153 12066  T5IDL24            2CADR    T5IDLOC                               
030744,000351: 
030745,000352: 24,2434           00026        3MDOT              DEC      86.6175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
030746,000353:                                                                                                  #  B+16 KG/SEC (NOTE, EMDOT IS PAD-LOADED,
030747,000354:                                                                                                  #  BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
030748,000355:                                                                                                  #  IT CAN REMAIN IN FIXED MEMORY)
030749,000356: 24,2435           35017        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
030750,000357: 24,2436           12157                           TCF      TRIMONLY   +1                         
030751,000358: 24,2437           33064        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
030752,000359: 24,2440           05245                           TC       WAITLIST                              
030753,000360: 24,2441  E7,1412                                  EBANK=   TIG                                   
030754,000361: 24,2441           02555 50067                     2CADR    TIGAVEG                               
030755,000362: 
030756,000363: 24,2443           35021                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
030757,000364: 24,2444           55145                           TS       NVWORD1                               
030758,000365: 
030759,000366: 24,2445           35066                           CAF      PRIO14                                
030760,000367: 24,2446           05134                           TC       NOVAC                                 
030761,000368: 24,2447  E7,1412                                  EBANK=   TIG                                   
030762,000369: 24,2447           02234 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
030763,000370: 
030764,000371: 24,2451           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
030765,000372: 24,2452           04114        P40TSK             TC       NEWPHASE                              
030766,000373: 24,2453           00004                           OCT      4                                     
030767,000374: 24,2454           05324                           TC       TASKOVER                              
030768,000375: 
030769,000376: 24,2455  E7,1412                                  EBANK=   TIG                                   
030770,000377: 24,2455           02511 50067  ACADN83            2CADR    CALCN83                               
030771,000378: 
030772,000379: 24,2457  E7,1412                                  EBANK=   TIG                                   
030773,000380: 24,2457           03227 76067  SERVCADR           2CADR    SERVEXIT                              
030774,000381: 
030775,000382: 24,2461  E6,1466                                  EBANK=   DAPDATR1                              
030776,000383: 24,2461           02401 50066  ACADN85            2CADR    CALCN85                               
030777,000384: 

Page 691

030779,000386:                                                                                                  #  PROGRAM DESCRIPTION ** P47CSM **
030780,000387: 
030781,000388: 24,2463                                           COUNT    24/P47                                
030782,000389: 
030783,000390: 24,2463  E7,1412                                  EBANK=   TIG                                   
030784,000391: 24,2463           04662        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
030785,000392: 24,2464           17653                           CADR     R02BOTH                               
030786,000393: 24,2465           06006                           TC       INTPRET                               
030787,000394: 24,2466           77624                           CALRB                                          
030788,000395: 24,2467           27543                                    MIDTOAV2                              
030789,000396: 24,2470           30155                           CA       MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
030790,000397: 24,2471           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
030791,000398: 24,2472           05245                           TC       WAITLIST                              
030792,000399: 24,2473  E7,1412                                  EBANK=   TIG                                   
030793,000400: 24,2473           02500 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
030794,000401: 
030795,000402: 24,2475           05412                           TC       PHASCHNG                              
030796,000403: 24,2476           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
030797,000404: 24,2477           15217                           TCF      ENDOFJOB                              
030798,000405: 
030799,000406: 24,2500  E7,1672                                  EBANK=   P40TMP                                
030800,000407: 24,2500           00006        TIGON              EXTEND                                         
030801,000408: 24,2501           32456                           DCA      ACADN83                               
030802,000409: 24,2502           53223                           DXCH     AVEGEXIT                              
030803,000410: 24,2503           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
030804,000411: 24,2504           05134                           TC       NOVAC                                 
030805,000412: 24,2505  E7,1412                                  EBANK=   TIG                                   
030806,000413: 24,2505           02534 50067                     2CADR    P47BODY                               
030807,000414: 
030808,000415: 24,2507           45016                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
030809,000416: 24,2510           12566                           TCF      TTGPHS                                
030810,000417: 
030811,000418: 24,2511  E7,1412                                  EBANK=   TIG                                   
030812,000419: 24,2511           06006        CALCN83            TC       INTPRET                               
030813,000420: 24,2512           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
030814,000421: 24,2513           00001                                    0                                     
030815,000422: 24,2514           53375                           VLOAD    VAD                                   
030816,000423: 24,2515           03665                                    DELVCTL                               
030817,000424: 24,2516           03433                                    DELVREF                               
030818,000425: 24,2517           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
030819,000426: 24,2520           45006                           PUSH     CALL                                  
030820,000427: 24,2521           45431                                    S41.1                                 
030821,000428: 24,2522           37675                           STCALL   DELVIMU                               
030822,000429: 24,2523           70542                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
030823,000430: 24,2524           77776                           EXIT                                           
030824,000431: 24,2525           05412                           TC       PHASCHNG                              
030825,000432: 24,2526           10035                           OCT      10035                                 

Page 692

030827,000434: 24,2527           35022                           CAF      FIVE                                  
030828,000435: 24,2530           05606                           TC       GENTRAN                               
030829,000436: 24,2531           01457                           ADRES    DV47TEMP                              
030830,000437: 24,2532           01664                           ADRES    DELVCTL                               
030831,000438: 
030832,000439: 24,2533           03215                           TC       SERVXT                                
030833,000440: 24,2534           06006        P47BODY            TC       INTPRET                               
030834,000441: 24,2535           77775                           VLOAD                                          
030835,000442: 24,2536           15335                                    HI6ZEROS                              
030836,000443: 24,2537           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
030837,000444: 24,2540           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
030838,000445: 24,2541           77776                           EXIT                                           
030839,000446: 24,2542           35067        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
030840,000447: 24,2543           05210                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
030841,000448: 24,2544           05412                           TC       PHASCHNG                              
030842,000449: 24,2545           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
030843,000450: 24,2546           15000                           OCT      15000                                 #  PRIO 15
030844,000451: 24,2547           32422        P47/DSP            CAF      V1683                                 
030845,000452: 24,2550           04662                           TC       BANKCALL                              
030846,000453: 24,2551           20720                           CADR     GOFLASH                               
030847,000454: 24,2552           04106                           TC       GOTOPOOH                              
030848,000455: 24,2553           04106                           TC       GOTOPOOH                              
030849,000456: 24,2554           12534                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
030850,000457: 

Page 693

030852,000459:                                                                                                  #  ROUTINE ** TIG-30 ** DESCRIPTION
030853,000460: 
030854,000461: 24,2555  E7,1412                                  EBANK=   TIG                                   
030855,000462: 24,2555                                           COUNT    24/P40                                
030856,000463: 
030857,000464: 24,2555           02326        TIGAVEG            TC       P41/P40                               #  TASK (4.37 PROTECTS)
030858,000465: 24,2556           12360                           TCF      P41REDSP                              #  P41
030859,000466: 
030860,000467: 24,2557           32425                           CAF      V06N40                                #  UNBLANK DISPLAY
030861,000468: 24,2560           55145                           TS       NVWORD1                               
030862,000469: 
030863,000470: 24,2561           32414                           CAF      SEC24.96                              
030864,000471: 24,2562           05245                           TC       WAITLIST                              
030865,000472: 24,2563  E7,1412                                  EBANK=   TIG                                   
030866,000473: 24,2563           02574 50067                     2CADR    TIG-5                                 
030867,000474: 
030868,000475: 24,2565           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
030869,000476: 24,2566           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
030870,000477: 24,2567           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
030871,000478: 
030872,000479: 24,2570           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
030873,000480: 24,2571           15324                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
030874,000481: 24,2572           04701                           TC       POSTJUMP                              
030875,000482: 24,2573           76701                           CADR     PREREAD                               
030876,000483: 

Page 694

030878,000485:                                                                                                  #  ROUTINE ** TIG-5 ** DESCRIPTION
030879,000486: 
030880,000487: 24,2574  E7,1412                                  EBANK=   TIG                                   
030881,000488: 24,2574           33064        TIG-5              CAF      5SEC                                  
030882,000489: 24,2575           05245                           TC       WAITLIST                              
030883,000490: 24,2576  E6,1466                                  EBANK=   DAPDATR1                              
030884,000491: 24,2576           02612 50066                     2CADR    TIG-0                                 
030885,000492: 
030886,000493: 24,2600           45007                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
030887,000494: 24,2601           55145                           TS       NVWORD1                               
030888,000495: 
030889,000496: 24,2602           05372                           TC       2PHSCHNG                              
030890,000497: 24,2603           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
030891,000498: 24,2604           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
030892,000499: 
030893,000500: 24,2605           35002                           CAF      PRIO20                                
030894,000501: 24,2606           05147                           TC       FINDVAC                               
030895,000502: 24,2607  E7,1427                                  EBANK=   TGO                                   
030896,000503: 24,2607           02427 34067                     2CADR    S40.13                                
030897,000504: 
030898,000505: 24,2611           15324                           TCF      TASKOVER                              
030899,000506: 

Page 695

030901,000508:                                                                                                  #  ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
030902,000509: 
030903,000510: 24,2612  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
030904,000511: 24,2612           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
030905,000512: 24,2613           75003                           MASK     BIT13                                 
030906,000513: 24,2614           26103                           ADS      FLAGWRD7                              
030907,000514: 
030908,000515: 24,2615           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
030909,000516: 24,2616           75004                           MASK     BIT12                                 
030910,000517: 24,2617           00006                           EXTEND                                         
030911,000518: 24,2620           15324                           BZF      TASKOVER                              #  WAIT FOR V99P
030912,000519: 
030913,000520: 24,2621           32425                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
030914,000521: 24,2622           55145                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
030915,000522: 
030916,000523: 24,2623           05412                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
030917,000524: 24,2624           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
030918,000525: 
030919,000526: 24,2625           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
030920,000527: 24,2626           55450                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
030921,000528: 24,2627           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
030922,000529: 24,2630           30025                           DCA      TIME2                                 #        FOR RESTARTS
030923,000530: 24,2631           53337                           DXCH     TEVENT                                
030924,000531: 24,2632           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
030925,000532: 24,2633           75011                           MASK     BIT7                                  
030926,000533: 24,2634           26101                           ADS      FLAGWRD5                              
030927,000534: 24,2635           35003        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
030928,000535: 24,2636           00006                           EXTEND                                         
030929,000536: 24,2637           05011                           WOR      DSALMOUT                              
030930,000537: 
030931,000538: 24,2640           35007        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
030932,000539: 24,2641           70076                           MASK     FLAGWRD2                              
030933,000540: 24,2642           10000                           CCS      A                                     
030934,000541: 24,2643           12733                           TCF      IMPLBURN                              #  IMPULSIVE
030935,000542: 24,2644           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
030936,000543: 24,2645           75003                           MASK     BIT13                                 
030937,000544: 24,2646           26102                           ADS      FLAGWRD6                              
030938,000545: 
030939,000546: 24,2647           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
030940,000547: 24,2650           70102                           MASK     FLAGWRD6                              
030941,000548: 24,2651           54102                           TS       FLAGWRD6                              
030942,000549: 
030943,000550: 24,2652           00006                           EXTEND                                         #  KILL RCS
030944,000551: 24,2653           32433                           DCA      T5IDL24                               
030945,000552: 24,2654           53313                           DXCH     T5LOC                                 
030946,000553: 
030947,000554: 24,2655           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
030948,000555: 24,2656           04114                           TC       NEWPHASE                              
030949,000556: 24,2657           00004                           OCT      4                                     
030950,000557: 

Page 696

030952,000559: 24,2660           05267                           TC       FIXDELAY                              
030953,000560: 24,2661           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
030954,000561: 
030955,000562: 24,2662           45017        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
030956,000563: 24,2663           55644                           TS       TVCPHASE                              
030957,000564: 24,2664           35021                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
030958,000565: 24,2665           55651                           TS       TVCEXPHS                              
030959,000566: 24,2666           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER ....
030960,000567: 24,2667           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
030961,000568: 24,2670           65001                           AD       BIT15                                 
030962,000569: 24,2671           54102                           TS       FLAGWRD6                              
030963,000570: 
030964,000571: 24,2672           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
030965,000572: 24,2673           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
030966,000573: 24,2674           40000                           COM                                            
030967,000574: 24,2675           52765                           DXCH     -PHASE6                               
030968,000575: 
030969,000576: 24,2676           00006                           EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
030970,000577: 24,2677           41571                           DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
030971,000578: 24,2700           53703                           DXCH     ERRBTMP                               
030972,000579: 
030973,000580: 24,2701           45022                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
030974,000581: 24,2702           04114                           TC       NEWPHASE                              
030975,000582: 24,2703           00004                           OCT      4                                     
030976,000583: 
030977,000584: 24,2704           34777                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
030978,000585: 24,2705           54030                           TS       TIME5                                 
030979,000586: 24,2706           00006                           EXTEND                                         
030980,000587: 24,2707           33067                           DCA      TVCON2C                               #  (TVCDAPON)
030981,000588: 24,2710           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
030982,000589: 
030983,000590: 24,2711           05267                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
030984,000591: 24,2712           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
030985,000592: 
030986,000593: 24,2713           35003        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
030987,000594: 24,2714           70102                           MASK     FLAGWRD6                              
030988,000595: 24,2715           10000                           CCS      A                                     
030989,000596: 24,2716           02724                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
030990,000597: 24,2717           02727                           TCR      ULAGEOFF                              #  ULLAGE OFF (ONLY, OR AGAIN)
030991,000598: 
030992,000599: 24,2720           00006                           EXTEND                                         
030993,000600: 24,2721           35021                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0,+0)
030994,000601: 24,2722           52761                           DXCH     -PHASE4                               
030995,000602: 
030996,000603: 24,2723           15324        ENDIGN             TCF      TASKOVER                              
030997,000604: 
030998,000605: 24,2724           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
030999,000606: 24,2725           75005                           MASK     BIT11                                 
031000,000607: 24,2726           26076                           ADS      FLAGWRD2                              
031001,000608: 

Page 697

031003,000610: 
031004,000611: 24,2727           35021        ULAGEOFF           CAF      ZERO                                  
031005,000612: 24,2730           00006                           EXTEND                                         
031006,000613: 24,2731           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5
031007,000614: 24,2732           00002                           TC       Q                                     
031008,000615: 
031009,000616: 24,2733           45003        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
031010,000617: 24,2734           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
031011,000618: 24,2735           54102                           TS       FLAGWRD6                              
031012,000619: 
031013,000620: 24,2736           03366                           TCR      E7SETTER                              
031014,000621: 
031015,000622: 24,2737  E7,1412                                  EBANK=   TIG                                   
031016,000623: 24,2737           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
031017,000624: 24,2740           31430                           DCA      TGO                                   
031018,000625: 24,2741           53413                           DXCH     TIG                                   
031019,000626: 24,2742           00006                           EXTEND                                         
031020,000627: 24,2743           30025                           DCA      TIME2                                 
031021,000628: 24,2744           21413                           DAS      TIG                                   
031022,000629: 
031023,000630: 24,2745           05372                           TC       2PHSCHNG                              
031024,000631: 24,2746           40153                           OCT      40153                                 #  A,3.15 = ENGINOFF (TGO+1)....NOTE GROUP
031025,000632: 24,2747           07014                           OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
031026,000633: 24,2750           77777                           DEC      -0         B-14                       #  -0 CS
031027,000634: 24,2751  E6,1466                                  EBANK=   DAPDATR1                              
031028,000635: 24,2751           02757 50066                     2CADR    IMPLCONT                              
031029,000636: 
031030,000637: 24,2753           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
031031,000638: 24,2754           05245                           TC       WAITLIST                              
031032,000639: 24,2755  E7,1427                                  EBANK=   TGO                                   
031033,000640: 24,2755           02766 50067                     2CADR    ENGINOFF                              
031034,000641: 
031035,000642: 24,2757           45007        IMPLCONT           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
031036,000643: 24,2760           70076                           MASK     FLAGWRD2                              
031037,000644: 24,2761           54076                           TS       FLAGWRD2                              
031038,000645: 
031039,000646: 24,2762           03371                           TCR      E6SETTER                              
031040,000647: 24,2763  E6,1466                                  EBANK=   DAPDATR1                              
031041,000648: 
031042,000649: 24,2763           35021                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
031043,000650: 24,2764           55444                           TS       V97VCNTR                              #        BACK) ARRIVES BEFORE TVCDAPON
031044,000651: 
031045,000652: 24,2765           12647                           TCF      PREPTVC                               
031046,000653: 
031047,000654: 24,2766  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
031048,000655: 24,2766           03371        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
031049,000656: 24,2767  E6,1466                                  EBANK=   DAPDATR1                              
031050,000657: 24,2767           31474                           CAE      CSMMASS                               
031051,000658: 24,2770           55652                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK

Page 698

031053,000660: 24,2771           05372                           TC       2PHSCHNG                              
031054,000661: 24,2772           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
031055,000662: 24,2773           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF (-0CS)
031056,000663: 24,2774           03017        DOSPSOFF           TCR      SPSOFF                                #  SHUTDOWN SPS, MASS UPDATES, ETC.
031057,000664: 24,2775           42427                           CS       OCT27/24                              #  (OCTAL 27)
031058,000665: 24,2776           04114                           TC       NEWPHASE                              
031059,000666: 24,2777           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
031060,000667: 
031061,000668: 24,3000           05267                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
031062,000669: 24,3001           00372                           DEC      250        B-14                       
031063,000670: 
031064,000671: 24,3002           02320        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
031065,000672: 
031066,000673: 24,3003           04740                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
031067,000674: 24,3004           42024                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
031068,000675: 
031069,000676: 24,3005           04740                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
031070,000677: 24,3006           13366                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
031071,000678: 
031072,000679: 24,3007           03071                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
031073,000680: 
031074,000681: 24,3010           05412                           TC       PHASCHNG                              
031075,000682: 24,3011           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
031076,000683: 24,3012           34710                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
031077,000684: 24,3013           05134                           TC       NOVAC                                 
031078,000685: 24,3014  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
031079,000686: 24,3014           02246 50066                     2CADR    POSTBURN                              
031080,000687: 
031081,000688: 24,3016           15324                           TCF      TASKOVER                              
031082,000689: 
031083,000690: 24,3017  E6,1466                                  EBANK=   DAPDATR1                              
031084,000691: 24,3017           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
031085,000692: 24,3020           30025                           DCA      TIME2                                 
031086,000693: 24,3021           53337                           DXCH     TEVENT                                
031087,000694: 24,3022           45011                           CS       BIT7                                  #  RESET ENGONFLG
031088,000695: 24,3023           70101                           MASK     FLAGWRD5                              
031089,000696: 24,3024           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
031090,000697: 24,3025           45003                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
031091,000698: 24,3026           00006                           EXTEND                                         
031092,000699: 24,3027           03011                           WAND     DSALMOUT                              
031093,000700: 
031094,000701: 24,3030           35002                           CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
031095,000702: 24,3031           00006                           EXTEND                                         #  FOR POSSIBLE BACK-UP USE
031096,000703: 24,3032           05012                           WOR      CHAN12                                
031097,000704: 24,3033           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
031098,000705:                                                                                                  #        V97VCNTR = VCNTR UNLESS V97 IS
031099,000706:                                                                                                  #        ACTIVE.  ONLY V97VCNTR IS THEN RIGHT
031100,000707: 24,3034           00006                           EXTEND                                         #  VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
031101,000708: 24,3035           70110                           MP       EMDOT                                 #        MDOT, SC.AT B+3 KG/CS
031102,000709: 24,3036           22000                           LXCH     A                                     

Page 699

031104,000711: 24,3037           00006                           EXTEND                                         
031105,000712: 24,3040           75041                           MP       1SEC                                  #  DEC 100
031106,000713: 24,3041           61652                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
031107,000714: 24,3042           55474                           TS       CSMMASS                               #        (1.44 KG OR 0.4 BITS)
031108,000715: 
031109,000716: 24,3043           31644                           CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
031110,000717: 24,3044           65017                           AD       ONE                                   #        THESE CHECKS ARE ONLY NEEDED
031111,000718: 24,3045           00006                           EXTEND                                         #        FOR A LESS THAN 0.4 SEC BURN
031112,000719: 24,3046           13057                           BZF      BTRIMR                                #  NO.  INITIALIZATION NOT COMPLETE
031113,000720: 24,3047           40102                           CS       FLAGWRD6                              #  YES, CHECK IF TVC
031114,000721: 24,3050           74105                           MASK     OCT60000                              
031115,000722: 24,3051           00006                           EXTEND                                         
031116,000723: 24,3052           63057                           BZMF     BTRIMR                                #  NO, NOT TVC YET       
031117,000724: 24,3053           31601        BESTTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
031118,000725: 24,3054           55423                           TS       PACTOFF                               
031119,000726: 24,3055           31603                           CAE      DELYBAR                               
031120,000727: 24,3056           55424                           TS       YACTOFF                               
031121,000728: 24,3057           00002        BTRIMR             TC       Q                                     
031122,000729: 24,3060  E6,1466                                  EBANK=   DAPDATR1                              
031123,000730: 24,3060           03205 50066  STEERADS           2CADR    STEERING                              
031124,000731: 
031125,000732: 24,3062           37703        .6SECT5            OCT      37703                                 
031126,000733: 24,3063           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
031127,000734: 24,3064           00764        5SEC               DEC      500        B-14                       
031128,000735: 24,3065           02202        OCT02202           OCT      02202                                 #  BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
031129,000736: 24,3066  E6,1466                                  EBANK=   DAPDATR1                              
031130,000737: 24,3066           02147 36066  TVCON2C            2CADR    TVCDAPON                              
031131,000738: 
031132,000739: 24,3070           00004                 -1        INHINT                                         
031133,000740: 24,3071           43065        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
031134,000741: 24,3072           00006                           EXTEND                                         #        OPTICS DAC
031135,000742: 24,3073           03012                           WAND     CHAN12                                
031136,000743: 24,3074           45017                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR .... PERMIT
031137,000744: 24,3075           55303                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
031138,000745: 24,3076           35021                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
031139,000746: 24,3077           55145                           TS       NVWORD1                               
031140,000747: 24,3100           45005                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
031141,000748: 24,3101           70103                           MASK     FLAGWRD7                              
031142,000749: 24,3102           54103                           TS       FLAGWRD7                              
031143,000750: 24,3103           00002                           TC       Q                                     
031144,000751: 24,3104  E6,1466                                  EBANK=   DAPDATR1                              
031145,000752: 24,3104           43020        UPDATEVG           STQ      BON                                   
031146,000753: 24,3105           03730                                    QTEMP1                                
031147,000754: 24,3106           01307                                    XDELVFLG                              
031148,000755: 24,3107           51133                                    CALL40.8                              
031149,000756: 
031150,000757: 24,3110           50135                           SLOAD    BMN                                   
031151,000758: 24,3111           03343                                    NBRCYCLS                              
031152,000759: 24,3112           51137                                    SETUP.9                               

Page 700

031154,000761: 
031155,000762: 24,3113           53375                           VLOAD    VAD                                   
031156,000763: 24,3114           03345                                    DELVSUM                               
031157,000764: 24,3115           03433                                    DELVREF                               
031158,000765: 24,3116           03353                           STORE    DELVSUMP                              
031159,000766: 24,3117           77776                           EXIT                                           
031160,000767: 24,3120           35017                           CA       ONE                                   
031161,000768: 24,3121           61742                           AD       NBRCYCLS                              
031162,000769: 24,3122           55743                           TS       NBRCYCLP                              
031163,000770: 
031164,000771: 24,3123           05412                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
031165,000772: 24,3124           10035                           OCT      10035                                 
031166,000773: 
031167,000774: 24,3125           31743                           CA       NBRCYCLP                              
031168,000775: 24,3126           55742                           TS       NBRCYCLS                              
031169,000776: 24,3127           06006                           TC       INTPRET                               
031170,000777: 24,3130           77775                           VLOAD                                          
031171,000778: 24,3131           03353                                    DELVSUMP                              
031172,000779: 24,3132           03345                           STORE    DELVSUM                               
031173,000780: 
031174,000781: 24,3133           77624        CALL40.8           CALL                                           
031175,000782: 24,3134           34153                                    S40.8                                 
031176,000783: 24,3135           77650                           GOTO                                           
031177,000784: 24,3136           03730                                    QTEMP1                                
031178,000785: 
031179,000786: 24,3137           67214        SETUP.9            BON      SLOAD                                 
031180,000787: 24,3140           01310                                    FIRSTFLG                              
031181,000788: 24,3141           51154                                    SURELY.9                              
031182,000789: 24,3142           03344                                    NBRCYCLP                              
031183,000790: 24,3143           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
031184,000791: 24,3144           00047                                    X1                                    
031185,000792: 24,3145           03705                                    BDT                                   
031186,000793: 24,3146           53257                           VSR*     VAD                                   
031187,000794: 24,3147           20563                                    0          -14D,1                     
031188,000795: 24,3150           03646                                    VGTEMP                                
031189,000796: 24,3151           77651                           VSU                                            
031190,000797: 24,3152           03345                                    DELVSUM                               
031191,000798: 24,3153           03721                           STORE    VGPREV                                
031192,000799: 24,3154           77776        SURELY.9           EXIT                                           
031193,000800: 24,3155           35003                           CAF      PRIO10                                
031194,000801: 24,3156           05147                           TC       FINDVAC                               
031195,000802: 24,3157  E6,1466                                  EBANK=   DAPDATR1                              
031196,000803: 24,3157           02302 34066                     2CADR    S40.9                                 
031197,000804: 
031198,000805: 24,3161           05372                           TC       2PHSCHNG                              
031199,000806: 24,3162           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
031200,000807: 24,3163           10035                           OCT      10035                                 
031201,000808: 24,3164           06006                           TC       INTPRET                               
031202,000809: 24,3165           77775                           VLOAD                                          
031203,000810: 24,3166           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
031204,000811: 24,3167           27570                           STOVL    RINIT                                 

Page 701

031206,000813: 24,3170           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
031207,000814: 24,3171           17576                           STODL    VINIT                                 
031208,000815: 24,3172           01205                                    PIPTIME                               
031209,000816: 24,3173           03474                           STORE    TNIT                                  
031210,000817: 24,3174           77621                           BDSU                                           
031211,000818: 24,3175           03656                                    TPASS4                                
031212,000819: 24,3176           27423                           STOVL    DELLT4                                
031213,000820: 24,3177           15335                                    HI6ZEROS                              
031214,000821: 24,3200           17345                           STODL    DELVSUM                               
031215,000822: 24,3201           15335                                    HI6ZEROS                              
031216,000823: 24,3202           03343                           STORE    NBRCYCLS                              
031217,000824: 24,3203           77650                           GOTO                                           
031218,000825: 24,3204           51133                                    CALL40.8                              
031219,000826: 24,3205  E6,1466                                  EBANK=   DAPDATR1                              
031220,000827: 24,3205           06006        STEERING           TC       INTPRET                               
031221,000828: 24,3206           77624                           CALL                                           
031222,000829: 24,3207           51104                                    UPDATEVG                              
031223,000830: 24,3210           77776                           EXIT                                           
031224,000831: 24,3211           35007                           CAF      BIT9                                  #  CHECK IMPULSW
031225,000832: 24,3212           70076                           MASK     FLAGWRD2                              
031226,000833: 24,3213           10000                           CCS      A                                     
031227,000834: 24,3214           13217                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
031228,000835: 24,3215           04701        SERVXT             TC       POSTJUMP                              
031229,000836: 24,3216           77227                           CADR     SERVEXIT                              
031230,000837: 24,3217           35003                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
031231,000838: 24,3220           00006                           EXTEND                                         
031232,000839: 24,3221           02011                           RAND     DSALMOUT                              
031233,000840: 24,3222           00006                           EXTEND                                         
031234,000841: 24,3223           13215                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
031235,000842: 24,3224           03366                           TCR      E7SETTER                              
031236,000843: 24,3225  E7,1412                                  EBANK=   TIG                                   
031237,000844: 24,3225           00004                           INHINT                                         
031238,000845: 24,3226           00006                           EXTEND                                         
031239,000846: 24,3227           31413                           DCA      TIG                                   
031240,000847: 24,3230           52155                           DXCH     MPAC                                  
031241,000848: 24,3231           00006                           EXTEND                                         
031242,000849: 24,3232           40025                           DCS      TIME2                                 
031243,000850: 24,3233           20155                           DAS      MPAC                                  
031244,000851: 24,3234           07224                           TCR      DPAGREE                               
031245,000852: 24,3235           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
031246,000853: 24,3236           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
031247,000854: 24,3237           13242                           TCF      +3                                    
031248,000855: 24,3240           13242                           TCF      +2                                    
031249,000856: 24,3241           35021                           CAF      ZERO                                  
031250,000857: 24,3242           65017                           AD       ONE                                   
031251,000858: 24,3243           56001                           XCH      L                                     
031252,000859: 24,3244           35021                           CA       ZERO                                  
031253,000860: 24,3245           53430                           DXCH     TGO                                   
031254,000861: 24,3246           31430                           CA       TGO        +1                         
031255,000862: 24,3247           05245                           TC       WAITLIST                              

Page 702

031257,000864: 24,3250  E7,1427                                  EBANK=   TGO                                   
031258,000865: 24,3250           02766 50067                     2CADR    ENGINOFF                              
031259,000866: 
031260,000867: 24,3252           05372                           TC       2PHSCHNG                              
031261,000868: 24,3253           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
031262,000869: 24,3254           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
031263,000870: 24,3255           05560                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
031264,000871: 24,3256           00044                           ADRES    IMPULSW                               #  RESTARTS OK
031265,000872: 24,3257           13215                           TCF      SERVXT                                
031266,000873: 

Page 703

031268,000875:                                                                                                  #  ROUTINE ** CLOKTASK ** DESCRIPTION
031269,000876: 
031270,000877: 24,3260  E7,1412                                  EBANK=   TIG                                   
031271,000878: 24,3260           35005        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
031272,000879: 24,3261           70103                           MASK     FLAGWRD7                              
031273,000880: 24,3262           10000                           CCS      A                                     
031274,000881: 24,3263           13267                           TCF      CLOCKON                               
031275,000882: 24,3264           05412                           TC       PHASCHNG                              
031276,000883: 24,3265           00006                           OCT      00006                                 #  KILL RESTART
031277,000884: 24,3266           05324                           TC       TASKOVER                              
031278,000885: 
031279,000886: 24,3267           00006        CLOCKON            EXTEND                                         
031280,000887: 24,3270           30025                           DCA      TIME2                                 
031281,000888: 24,3271           53661                           DXCH     TTOGO                                 
031282,000889: 24,3272           00006                           EXTEND                                         
031283,000890: 24,3273           41413                           DCS      TIG                                   
031284,000891: 24,3274           21661                           DAS      TTOGO                                 
031285,000892: 
031286,000893: 24,3275           35041        SETCLOCK           CAF      1SEC                                  
031287,000894: 24,3276           05245                           TC       WAITLIST                              
031288,000895: 24,3277  E7,1412                                  EBANK=   TIG                                   
031289,000896: 24,3277           03260 50067                     2CADR    CLOKTASK                              
031290,000897: 
031291,000898: 24,3301           11145                           CCS      NVWORD1                               
031292,000899: 24,3302           13305                           TCF      +3                                    
031293,000900: 24,3303           13315                           TCF      SETTB6                                
031294,000901: 
031295,000902: 24,3304           13305                           TCF      +1                                    
031296,000903: 24,3305           42423                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
031297,000904: 24,3306           61145                           AD       NVWORD1                               
031298,000905: 24,3307           00006                           EXTEND                                         
031299,000906: 24,3310           13320                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
031300,000907: 
031301,000908: 24,3311           37664                           CAF      PRIO27                                
031302,000909: 24,3312           05134                           TC       NOVAC                                 
031303,000910: 24,3313  E6,1466                                  EBANK=   DAPDATR1                              
031304,000911: 24,3313           03332 50066                     2CADR    CLOCKJOB                              
031305,000912: 
031306,000913: 24,3315           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
031307,000914: 24,3316           55065                           TS       TBASE6                                
031308,000915: 24,3317           15324                           TCF      TASKOVER                              
031309,000916: 
031310,000917: 24,3320           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
031311,000918: 24,3321           05147                           TC       FINDVAC                               
031312,000919: 24,3322  E6,1466                                  EBANK=   DAPDATR1                              
031313,000920: 24,3322           03325 50066                     2CADR    DYNDISP                               
031314,000921: 
031315,000922: 24,3324           13315                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK

Page 704

031317,000924: 24,3325           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
031318,000925: 24,3326           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
031319,000926: 24,3327           50370                                    P40CNV85                              
031320,000927: 24,3330           77776                           EXIT                                           
031321,000928: 24,3331           13342                           TCF      CKNVWRD1                              
031322,000929: 

Page 705

031324,000931:                                                                                                  #  ROUTINE ** CLOCKJOB ** DESCRIPTION
031325,000932: 
031326,000933: 24,3332  E6,1466                                  EBANK=   DAPDATR1                              
031327,000934: 24,3332           30032        CLOCKJOB           CA       CDUX                                  
031328,000935: 24,3333           54772                           TS       CDUSPOTX                              
031329,000936: 24,3334           30033                           CA       CDUY                                  
031330,000937: 24,3335           54766                           TS       CDUSPOTY                              
031331,000938: 24,3336           30034                           CA       CDUZ                                  
031332,000939: 24,3337           54770                           TS       CDUSPOTZ                              
031333,000940: 24,3340           04662                           TC       BANKCALL                              
031334,000941: 24,3341           47555                           CADR     QUICTRIG                              
031335,000942: 24,3342           00004        CKNVWRD1           INHINT                                         
031336,000943: 24,3343           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
031337,000944: 24,3344           13363                           TCF      NOFLASH                               
031338,000945: 24,3345           15217                           TCF      ENDOFJOB                              
031339,000946: 24,3346           13355                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
031340,000947: 24,3347           32425        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
031341,000948: 24,3350           04662                           TC       BANKCALL                              
031342,000949: 24,3351           20715                           CADR     CLOCPLAY                              
031343,000950: 24,3352           13432                           TCF      V97T                                  #  TERMINATE
031344,000951: 24,3353           13465                           TCF      V97P                                  #  PROCEED
031345,000952: 24,3354           13514                           TCF      V97E                                  #  ENTER
031346,000953: 
031347,000954: 24,3355           32425        ENGREQST           CAF      V06N40                                
031348,000955: 24,3356           04662                           TC       BANKCALL                              
031349,000956: 24,3357           20715                           CADR     CLOCPLAY                              
031350,000957: 24,3360           13402                           TCF      V99T                                  #  TERMINATE
031351,000958: 24,3361           13410                           TCF      V99P                                  #  PROCEED
031352,000959: 24,3362           13374                           TCF      V99E                                  #  ENTER
031353,000960: 
031354,000961: 24,3363           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
031355,000962: 24,3364           04662                           TC       BANKCALL                              
031356,000963: 24,3365           20707                           CADR     REGODSP                               
031357,000964: 
031358,000965: 24,3366           35060        E7SETTER           CAF      EBANK7                                
031359,000966: 24,3367           54003                           TS       EBANK                                 
031360,000967: 24,3370  E7,1412                                  EBANK=   TIG                                   
031361,000968: 24,3370           00002                           TC       Q                                     
031362,000969: 
031363,000970: 24,3371           35057        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
031364,000971: 24,3372           54003                           TS       EBANK                                 
031365,000972: 24,3373  E6,1466                                  EBANK=   DAPDATR1                              
031366,000973: 24,3373           00002                           TC       Q                                     
031367,000974: 
031368,000975: 24,3374  E6,1466                                  EBANK=   DAPDATR1                              
031369,000976: 24,3374           05372        V99E               TC       2PHSCHNG                              
031370,000977: 24,3375           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031371,000978: 24,3376           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW

Page 706

031373,000980: 24,3377           27000                           OCT      27000                                 
031374,000981: 24,3400           03070        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031375,000982: 24,3401           12254                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
031376,000983: 
031377,000984: 24,3402  E6,1466                                  EBANK=   DAPDATR1                              
031378,000985: 24,3402           05372        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
031379,000986: 24,3403           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031380,000987: 24,3404           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031381,000988: 24,3405           27000                           OCT      27000                                 
031382,000989: 24,3406           03070        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031383,000990: 24,3407           12275                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
031384,000991: 
031385,000992: 24,3410           00004        V99P               INHINT                                         
031386,000993: 24,3411           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
031387,000994: 24,3412           75004                           MASK     BIT12                                 
031388,000995: 24,3413           10000                           CCS      A                                     
031389,000996: 24,3414           13427                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
031390,000997: 
031391,000998: 24,3415           35004        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
031392,000999: 24,3416           26103                           ADS      FLAGWRD7                              
031393,001000: 24,3417           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
031394,001001: 24,3420           75003                           MASK     BIT13                                 
031395,001002: 24,3421           00006                           EXTEND                                         
031396,001003: 24,3422           13427                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
031397,001004: 
031398,001005: 24,3423           35017        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
031399,001006: 24,3424           05245                           TC       WAITLIST                              #  SET UP IGNITION HERE
031400,001007: 24,3425  E6,1466                                  EBANK=   DAPDATR1                              
031401,001008: 24,3425           02625 50066                     2CADR    IGNITION                              
031402,001009: 
031403,001010: 24,3427           32425        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
031404,001011: 24,3430           55145                           TS       NVWORD1                               
031405,001012: 24,3431           15217        ENDV99P            TCF      ENDOFJOB                              
031406,001013: 
031407,001014: 24,3432  E6,1474                                  EBANK=   CSMMASS                               
031408,001015: 24,3432           05372        V97T               TC       2PHSCHNG                              
031409,001016: 24,3433           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
031410,001017: 24,3434           40674                           OCT      40674                                 #  A, 4.67 = V97TTASK (-0 CS), TBASE NOW
031411,001018: 24,3435           35017                           CAF      BIT1                                  
031412,001019: 24,3436           05235                           TC       TWIDDLE                               
031413,001020: 24,3437           03441                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
031414,001021: 24,3440           15217                           TCF      ENDOFJOB                              
031415,001022: 
031416,001023: 24,3441  E6,1474                                  EBANK=   CSMMASS                               
031417,001024: 24,3441           35021        V97TTASK           CAF      ZERO                                  #  DISABLE CLOCKJOB
031418,001025: 24,3442           55145                           TS       NVWORD1                               
031419,001026: 24,3443           32434                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
031420,001027: 24,3444           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
031421,001028: 24,3445           55652                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK

Page 707

031423,001030: 24,3446           05412                           TC       PHASCHNG                              
031424,001031: 24,3447           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
031425,001032: 24,3450           77777                           DEC      -0         B-14                       #  -0 CS
031426,001033: 
031427,001034: 24,3451           03017                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
031428,001035: 24,3452           05412                           TC       PHASCHNG                              
031429,001036: 24,3453           00714                           OCT      00714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE OLD
031430,001037: 24,3454           05267                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
031431,001038: 24,3455           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
031432,001039: 
031433,001040: 24,3456  E6,1466                                  EBANK=   DAPDATR1                              
031434,001041: 24,3456           04740        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031435,001042: 24,3457           42024                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
031436,001043: 24,3460           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
031437,001044: 24,3461           05134                           TC       NOVAC                                 #        MAXDB AND GOTOPOOH)
031438,001045: 24,3462  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
031439,001046: 24,3462           03402 50066                     2CADR    V99T                                  
031440,001047: 
031441,001048: 24,3464           15324        ENDV97T            TCF      TASKOVER                              
031442,001049: 
031443,001050: 24,3465  E6,1444                                  EBANK=   V97VCNTR                              
031444,001051: 24,3465           05412        V97P               TC       PHASCHNG                              
031445,001052: 24,3466           40734                           OCT      40734                                 #  A, 4.73 = V97PTASK (-0 CS), TBASE NOW
031446,001053: 24,3467           35017                           CAF      BIT1                                  
031447,001054: 24,3470           05235                           TC       TWIDDLE                               
031448,001055: 24,3471           03473                           ADRES    V97PTASK                              
031449,001056: 24,3472           15217                           TCF      ENDOFJOB                              
031450,001057: 
031451,001058: 24,3473  E6,1444                                  EBANK=   V97VCNTR                              
031452,001059: 24,3473           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
031453,001060: 24,3474           55643                           TS       VCNTR                                 #        (ERRORS IF FLASE THRUST-LOSS AND/OR
031454,001061:                                                                                                  #        POOR SYNCH OF MANUAL ENGINE-ON AND
031455,001062:                                                                                                  #        THE VERB 97 PROCEED)
031456,001063: 24,3475           32425                           CAF      V06N40                                #  REDISPLAY V06N40
031457,001064: 24,3476           55145                           TS       NVWORD1                               
031458,001065: 24,3477           05546                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
031459,001066: 24,3500           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE S40.8 SYNCH
031460,001067: 24,3501           05546                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
031461,001068: 24,3502           00042                           ADRES    STEERSW                               
031462,001069: 24,3503           05412                           TC       PHASCHNG                              
031463,001070: 24,3504           00134                           OCT      00134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE OLD
031464,001071: 24,3505           05267                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
031465,001072: 24,3506           00310                           DEC      200        B-14                       
031466,001073: 
031467,001074: 24,3507  E7,1777                                  EBANK=   WHOCARES                              
031468,001075: 24,3507           05560        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
031469,001076: 24,3510           00030                           ADRES    IDLEFAIL                              
031470,001077: 24,3511           05412                           TC       PHASCHNG                              
031471,001078: 24,3512           00004                           OCT      00004                                 #  KILL GROUP 4

Page 708

031473,001080: 24,3513           15324        ENDV97P            TCF      TASKOVER                              
031474,001081: 
031475,001082: 24,3514  E7,1777                                  EBANK=   WHOCARES                              
031476,001083: 24,3514           05412        V97E               TC       PHASCHNG                              
031477,001084: 24,3515           40534                           OCT      40534                                 #  A, 4.53 = V97ETASK (-0 CS), TBASE NOW
031478,001085: 24,3516           35017                           CAF      BIT1                                  
031479,001086: 24,3517           05245                           TC       WAITLIST                              
031480,001087: 24,3520  E7,1412                                  EBANK=   TIG                                   
031481,001088: 24,3520           03523 50067                     2CADR    V97ETASK                              
031482,001089: 
031483,001090: 24,3522           15217                           TCF      ENDOFJOB                              
031484,001091: 
031485,001092: 24,3523  E7,1412                                  EBANK=   TIG                                   
031486,001093: 24,3523           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
031487,001094: 24,3524           55412                           TS       TIG                                   
031488,001095: 24,3525           32425                           CAF      V06N40                                #  REDISPLAY V06N40
031489,001096: 24,3526           55145                           TS       NVWORD1                               
031490,001097: 24,3527           03371                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
031491,001098: 24,3530  E6,1474                                  EBANK=   CSMMASS                               
031492,001099: 24,3530           32434                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
031493,001100: 24,3531           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
031494,001101: 24,3532           55652                           TS       MASSTMP                               #        FAILED....COPYCYCLE FOR MASSBACK
031495,001102: 24,3533           05412                           TC       PHASCHNG                              
031496,001103: 24,3534           00754                           OCT      00754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
031497,001104: 24,3535           03017        SPSOFF97           TCR      SPSOFF                                
031498,001105: 24,3536           05412                           TC       PHASCHNG                              
031499,001106: 24,3537           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
031500,001107: 24,3540           05267                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
031501,001108: 24,3541           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
031502,001109: 
031503,001110: 24,3542  E6,1466                                  EBANK=   DAPDATR1                              
031504,001111: 24,3542           35017        V97E40.6           CAF      BIT1                                  
031505,001112: 24,3543           05245                           TC       WAITLIST                              
031506,001113: 24,3544  E6,1447                                  EBANK=   CNTR                                  
031507,001114: 24,3544           02241 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
031508,001115: 
031509,001116: 24,3546           04740                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031510,001117: 24,3547           42024                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
031511,001118:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
031512,001119: 
031513,001120: 24,3550           05372                           TC       2PHSCHNG                              
031514,001121: 24,3551           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
031515,001122: 24,3552           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
031516,001123: 24,3553           77777                           DEC      -0         B-14                       #  -0 CS
031517,001124: 
031518,001125: 24,3554           45066        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
031519,001126: 24,3555           70103                           MASK     FLAGWRD7                              #        IMMEDIATE V99 RESPONSE
031520,001127: 24,3556           65003                           AD       BIT13                                 
031521,001128: 24,3557           54103                           TS       FLAGWRD7                              
031522,001129: 24,3560           05267                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6

Page 709

031524,001131: 24,3561           00036                           DEC      30         B-14                       
031525,001132: 
031526,001133: 24,3562           45007        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
031527,001134: 24,3563           55145                           TS       NVWORD1                               
031528,001135: 24,3564           05372                           TC       2PHSCHNG                              
031529,001136: 24,3565           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
031530,001137: 24,3566           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
031531,001138: 24,3567           35002                           CAF      PRIO20                                #  SET UP TIMEBURN
031532,001139: 24,3570           05147                           TC       FINDVAC                               
031533,001140: 24,3571  E7,1427                                  EBANK=   TGO                                   
031534,001141: 24,3571           02427 34067                     2CADR    S40.13                                
031535,001142: 
031536,001143: 24,3573           15324        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
031537,001144:                                                                                                  #        TO FLASHING V99 RESPONSE
031538,001145: 
031539,001146:                                                                                                  #  MOD NO2                               LOG SECTION P40-P47
031540,001147:                                                                                                  #  MOD BY ZELDIN
031541,001148: 
031542,001149:                                                                                                  #  FUNCTIONAL DESCRIPTION
031543,001150:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
031544,001151:                                                                                                  #        VECTOR(VGTIG).
031545,001152: 
031546,001153:                                                                                                  #  CALLING SEQUENCE
031547,001154:                                                                                                  #        L       CALL
031548,001155:                                                                                                  #        L+1             S40.1
031549,001156: 
031550,001157:                                                                                                  #  NORMAL EXIT MODE
031551,001158:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
031552,001159:                                                                                                  #        ERROR RETURN IF NOSOFLAG =1
031553,001160: 
031554,001161:                                                                                                  #  SUBROUTINES CALLED
031555,001162:                                                                                                  #        CSMPREC
031556,001163:                                                                                                  #        INITVEL
031557,001164:                                                                                                  #        CALCGRAV
031558,001165:                                                                                                  #        MIDGIM
031559,001166: 
031560,001167:                                                                                                  #  ALARM OR ABORT EXIT MODES
031561,001168:                                                                                                  #        L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
031562,001169: 
031563,001170:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
031564,001171:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP B16 KGM
031565,001172:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
031566,001173:                                                                                                  #    IF DELTA-V MANEUVER
031567,001174:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
031568,001175:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
031569,001176:                                                                                                  #                        AT TIME OF IGNITION             VECTOR B7 M/CS
031570,001177:                                                                                                  #        DELVSAB         MAG. OF DELVSIN                 DP B7 M/CS
031571,001178:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECTOR B29 M
031572,001179:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION    VECTOR B7 M/CS
031573,001180:                                                                                                  #        CSTEER = 0                                      DP
031574,001181:                                                                                                  #    IF AIMPOINT STEERING
031575,001182:                                                                                                  #    IF AIMPT STEER
031576,001183:                                                                                                  #        TIG             TIME OF IGNITION                DP B28 CS
031577,001184:                                                                                                  #        RTARG           POSITION TARGET TIME            VECTOR B29 M
031578,001185:                                                                                                  #        CSTEER = ECSTEER (GR 0)                         DP B1

Page 710

031580,001187:                                                                                                  #        TPASS4 - TIME OF ARRIVAL AT AIMPOINT
031581,001188: 
031582,001189:                                                                                                  #  OUTPUT
031583,001190:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
031584,001191:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
031585,001192:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR B7 M/CS
031586,001193:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.             B7 M/CS
031587,001194:                                                                                                  #        F               NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
031588,001195:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
031589,001196:                                                                                                  #        -GDT            FOR S40.13                              VECT B7 M/CS
031590,001197:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR B29M
031591,001198:                                                                                                  #                        POSITION AT TIME OF IGNITION
031592,001199: 
031593,001200:                                                                                                  #  DEBRIS        QTEMP1
031594,001201:                                                                                                  #                MPAC, QPRET
031595,001202:                                                                                                  #                PUSHLIST
031596,001203:                                                                                                  #                RTX2,RTX1
031597,001204: 
031598,001205: 14,2011                                           BANK     14                                    
031599,001206: 16,2000                                           SETLOC   P40S1                                 
031600,001207: 16,2000                                           BANK                                           
031601,001208: 
031602,001209: 16,2020                                           COUNT    16/S40.1                              
031603,001210: 
031604,001211: 16,2020           77214        S40.1              SET      VLOAD                                 
031605,001212: 16,2021           01070                                    FIRSTFLG                              
031606,001213: 16,2022           11566                                    LO6ZEROS                              
031607,001214: 16,2023           03705                           STORE    BDT                                   
031608,001215: 16,2024           43020                           STQ      BOF                                   
031609,001216: 16,2025           03657                                    QTEMP                                 
031610,001217: 16,2026           01347                                    XDELVFLG                              
031611,001218: 16,2027           34116                                    S40.1B                                #  LAMBERT
031612,001219: 16,2030           51575                           VLOAD    ABVAL                                 #  EXTERNAL DELTA-V
031613,001220: 16,2031           03646                                    DELVSIN                               
031614,001221: 16,2032           03654                           STORE    DELVSAB                               #  COMPUTE FOR P30/P40 INTERFACE
031615,001222:                                                                                                  #        THUS PERMITTING MODULE-ONLY CHANGE
031616,001223: 16,2033           77201                           SETPD    VLOAD                                 
031617,001224: 16,2034           00001                                    0                                     
031618,001225: 16,2035           03640                                    VTIG                                  
031619,001226: 16,2036           03576                           STORE    VINIT                                 
031620,001227: 16,2037           53435                           VXV      UNIT                                  
031621,001228: 16,2040           03632                                    RTIG                                  
031622,001229: 16,2041           27713                           STOVL    UT                                    #  UP IN UT
031623,001230: 16,2042           03632                                    RTIG                                  
031624,001231: 16,2043           03570                           STORE    RINIT                                 
031625,001232: 16,2044           65236                           VSQ      PDDL                                  
031626,001233: 16,2045           00045                                    36D                                   
031627,001234: 16,2046           56275                           DMPR     DDV                                   
031628,001235: 16,2047           34152                                    THETACON                              
031629,001236: 16,2050           41205                           DMP      DMP                                   
031630,001237: 16,2051           03654                                    DELVSAB                               
031631,001238: 16,2052           03076                                    WEIGHT/G                              
031632,001239: 16,2053           77671                           DDV                                            

Page 711

031634,001241: 16,2054           03727                                    F                                     
031635,001242: 16,2055           24017                           STOVL    14D                                   
031636,001243: 16,2056           03646                                    DELVSIN                               
031637,001244: 
031638,001245: 16,2057           74241                           DOT      VXSC                                  
031639,001246: 16,2060           03713                                    UT                                    
031640,001247: 16,2061           03713                                    UT                                    
031641,001248: 16,2062           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
031642,001249: 16,2063           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
031643,001250: 16,2064           03646                                    DELVSIN                               
031644,001251: 16,2065           00017                                    14D                                   
031645,001252: 16,2066           63356                           SIN      PDVL                                  
031646,001253: 16,2067           00007                                    6D                                    
031647,001254: 16,2070           53435                           VXV      UNIT                                  
031648,001255: 16,2071           03713                                    UT                                    
031649,001256: 16,2072           45561                           VXSC     STADR                                 
031650,001257: 16,2073           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
031651,001258: 16,2074           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
031652,001259: 16,2075           00017                                    14D                                   
031653,001260: 16,2076           74346                           COS      VXSC                                  
031654,001261: 16,2077           74255                           VAD      VXSC                                  
031655,001262: 16,2100           03721                                    VGTIG                                 
031656,001263: 16,2101           00045                                    36D                                   
031657,001264: 16,2102           53352                           VSL2     VAD                                   
031658,001265: 16,2103           77626                           STADR                                          
031659,001266: 16,2104           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
031660,001267: 
031661,001268: 16,2105           77656                           UNIT                                           
031662,001269: 16,2106           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
031663,001270: 16,2107           03721                                    VGTIG                                 
031664,001271: 16,2110           43006                           PUSH     SET                                   
031665,001272: 16,2111           01072                                    AVFLAG                                
031666,001273: 16,2112           77624                           CALL                                           
031667,001274: 16,2113           10647                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
031668,001275: 16,2114           77650                           GOTO                                           
031669,001276: 16,2115           03657                                    QTEMP                                 
031670,001277: 16,2116           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
031671,001278: 16,2117           03413                                    TIG                                   
031672,001279: 16,2120           36001                                    TWODT                                 
031673,001280: 16,2121           14041                           STODL    TDEC1                                 
031674,001281: 16,2122           03656                                    TPASS4                                
031675,001282: 16,2123           77625                           DSU                                            
031676,001283: 16,2124           00041                                    TDEC1                                 
031677,001284: 16,2125           37423                           STCALL   DELLT4                                
031678,001285: 16,2126           61651                                    AGAIN                                 
031679,001286: 16,2127           77775                           VLOAD                                          
031680,001287: 16,2130           03612                                    VIPRIME                               
031681,001288: 16,2131           17713                           STODL    UT                                    
031682,001289: 16,2132           03413                                    TIG                                   
031683,001290: 16,2133           00041                           STORE    TDEC1                                 

Page 712

031685,001292: 16,2134           77621                           BDSU                                           
031686,001293: 16,2135           03656                                    TPASS4                                
031687,001294: 16,2136           37423                           STCALL   DELLT4                                
031688,001295: 16,2137           61651                                    AGAIN                                 
031689,001296: 16,2140           41575                           VLOAD    PUSH                                  
031690,001297: 16,2141           03646                                    DELVEET3                              
031691,001298: 16,2142           03721                           STORE    VGTIG                                 
031692,001299: 16,2143           45014                           SET      CALL                                  
031693,001300: 16,2144           01072                                    AVFLAG                                
031694,001301: 16,2145           10647                                    MIDGIM                                
031695,001302: 16,2146           52001                           SETPD    GOTO                                  
031696,001303: 16,2147           00001                                    0                                     
031697,001304: 16,2150           61704                                    CALCUT                                
031698,001305: 
031699,001306: 16,2151           00024 13714  THETACON           2DEC     .31830989  B-8                        
031700,001307: 
031701,001308: 30,2000                                           SETLOC   P40S3                                 
031702,001309: 30,2000                                           BANK                                           
031703,001310: 
031704,001311: 30,3645                                           COUNT    24/S40.1                              
031705,001312: 
031706,001313: 30,3645           04000 00000  EP4(45)H           2DEC     .125                                  
031707,001314: 
031708,001315: 30,3647           00707 03434  EP4(10)H           2DEC     .027777777                            
031709,001316: 
031710,001317: 30,3651           45020        AGAIN              STQ      CALL                                  
031711,001318: 30,3652           03730                                    QTEMP1                                
031712,001319: 30,3653           27071                                    THISPREC                              
031713,001320: 30,3654           66134                           SXA,2    SXA,1                                 
031714,001321: 30,3655           03746                                    RTX2                                  
031715,001322: 30,3656           03745                                    RTX1                                  
031716,001323: 30,3657           77775                           VLOAD                                          
031717,001324: 30,3660           00001                                    RATT                                  
031718,001325: 30,3661           03632                           STORE    RTIG                                  
031719,001326: 30,3662           27570                           STOVL    RINIT                                 
031720,001327: 30,3663           00007                                    VATT                                  
031721,001328: 30,3664           03640                           STORE    VTIG                                  
031722,001329: 30,3665           03576                           STORE    VINIT                                 
031723,001330: 30,3666           67201                           SETPD    SLOAD                                 
031724,001331: 30,3667           00001                                    0                                     
031725,001332: 30,3670           15335                                    HI6ZEROS                              
031726,001333: 30,3671           43125                           PDDL     BON                                   
031727,001334: 30,3672           21646                                    EP4(45)H                              
031728,001335: 30,3673           03705                                    NORMSW                                
031729,001336: 30,3674           61677                                    +3                                    
031730,001337: 30,3675           77745                           DLOAD                                          
031731,001338: 30,3676           21650                                    EP4(10)H                              
031732,001339: 30,3677           45006                           PUSH     CALL                                  
031733,001340: 30,3700           22000                                    INITVEL                               
031734,001341: 30,3701           52001                           SETPD    GOTO                                  

Page 713

031736,001343: 30,3702           00001                                    0                                     
031737,001344: 30,3703           03730                                    QTEMP1                                
031738,001345: 30,3704           45175        CALCUT             VLOAD    CALL                                  
031739,001346: 30,3705           03632                                    RTIG                                  
031740,001347: 30,3706           77353                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
031741,001348: 30,3707           70372                           VSL1     V/SC                                  
031742,001349: 30,3710           21747                                    200CS                                 #  G AT 2(-5) M/CS. CS
031743,001350: 30,3711           52315                           PDVL     VSU                                   
031744,001351: 30,3712           03612                                    VIPRIME                               
031745,001352: 30,3713           03713                                    UT                                    
031746,001353: 30,3714           52341                           V/SC     VSU                                   
031747,001354: 30,3715           21747                                    200CS                                 
031748,001355: 30,3716           72561                           VXSC     VSL2                                  
031749,001356: 30,3717           03703                                    CSTEER                                
031750,001357: 30,3720           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
031751,001358: 30,3721           03721                                    VGTIG                                 
031752,001359: 30,3722           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
031753,001360: 
031754,001361: 30,3723           74241                           DOT      VXSC                                  
031755,001362: 30,3724           00015                                    12D                                   
031756,001363: 30,3725           00001                                    0                                     
031757,001364: 30,3726           51352                           VSL2     BVSU                                  
031758,001365: 30,3727           00015                                    12D                                   
031759,001366: 30,3730           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
031760,001367: 30,3731           03727                                    F                                     
031761,001368: 30,3732           56261                           SRR      DDV                                   
031762,001369: 30,3733           21605                                    4                                     
031763,001370: 30,3734           03076                                    WEIGHT/G                              
031764,001371: 30,3735           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
031765,001372: 30,3736           00015                                    12D                                   
031766,001373: 30,3737           77636                           VSQ                                            
031767,001374: 30,3740           75421                           BDSU     SQRT                                  
031768,001375: 30,3741           76561                           VXSC     VSL1                                  
031769,001376: 30,3742           53455                           VAD      UNIT                                  
031770,001377: 30,3743           00015                                    12D                                   
031771,001378: 30,3744           37713                           STCALL   UT                                    
031772,001379: 30,3745           03657                                    QTEMP                                 
031773,001380: 30,3746           01440 00000  200CS              2DEC     200        B-12                       
031774,001381: 

Page 714

031776,001383:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3           DATE 15,NOV,66
031777,001384:                                                                                                  #  MOD NO 2                              LOG SECTION P40-P47
031778,001385:                                                                                                  #  MOD BY ZELDIN
031779,001386: 
031780,001387:                                                                                                  #  FUNCTIONAL DESCRIPTION
031781,001388:                                                                                                  #        
031782,001389:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
031783,001390:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
031784,001391:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
031785,001392:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
031786,001393:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
031787,001394:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
031788,001395:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
031789,001396:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
031790,001397:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
031791,001398: 
031792,001399:                                                                                                  #  CALLING SEQUENCE
031793,001400:                                                                                                  #        L       CALL
031794,001401:                                                                                                  #        L+1             S40.2,3
031795,001402: 
031796,001403:                                                                                                  #  NORMAL EXIT MODE
031797,001404:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
031798,001405: 
031799,001406:                                                                                                  #  SUBROUTINES CALLED
031800,001407:                                                                                                  #        CALCGA
031801,001408: 
031802,001409:                                                                                                  #  ALARM OR ABORT MODES
031803,001410:                                                                                                  #        NONE
031804,001411: 
031805,001412:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
031806,001413:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE          SP AT 1.0795111 REV.
031807,001414:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE          SP AT 1.0795111 REV.
031808,001415:                                                                                                  #        UT              DESIRED THRUST DIRECTION        VECT. B2 M/(CS.CS)
031809,001416:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECT. B29 M
031810,001417:                                                                                                  #        ENG2FLAG        ON=RCS  OFF=SPS
031811,001418: 
031812,001419:                                                                                                  #  OUTPUT
031813,001420:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
031814,001421:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
031815,001422:                                                                                                  #        YSCREF
031816,001423:                                                                                                  #        ZSCREF
031817,001424:                                                                                                  #        GIMBAL ANGLES IN THETAD
031818,001425:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
031819,001426: 
031820,001427:                                                                                                  #  DEBRIS
031821,001428:                                                                                                  #        PUSHLIST, QPRET, MPAC
031822,001429:                                                                                                  #        QTEMP   TEMP. ERASABLE
031823,001430: 
031824,001431: 24,3574                                           BANK     24                                    
031825,001432: 24,2000                                           SETLOC   P40S                                  
031826,001433: 24,2000                                           BANK                                           
031827,001434: 24,3574                                           COUNT*   $$/S40.2                              
031828,001435: 24,3574           64375        S40.2,3            VLOAD    MXV                                   
031829,001436: 24,3575           03713                                    UT                                    
031830,001437: 24,3576           01736                                    REFSMMAT                              
031831,001438: 24,3577           44172                           VSL1     STQ                                   
031832,001439: 24,3600           03657                                    QTEMP                                 
031833,001440: 24,3601           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
031834,001441: 24,3602           43001                           SETPD    BON                                   
031835,001442: 24,3603           00001                                    0                                     

Page 715

031837,001444: 24,3604           00704                                    ENG2FLAG                              
031838,001445: 24,3605           51715                                    S40.2,3B                              
031839,001446: 24,3606           77745                           DLOAD                                          
031840,001447: 24,3607           15335                                    HI6ZEROS                              
031841,001448: 24,3610           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
031842,001449: 24,3611           03025                                    YACTOFF                               
031843,001450: 24,3612           72405                           DMP      SL1                                   
031844,001451: 24,3613           11754                                    TRIMSCAL                              
031845,001452: 24,3614           41415                           DAD      PUSH                                  
031846,001453: 24,3615           11756                                    YBIAS                                 
031847,001454: 24,3616           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
031848,001455: 24,3617           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
031849,001456: 24,3620           77735                           SLOAD                                          
031850,001457: 24,3621           03024                                    PACTOFF                               
031851,001458: 24,3622           72405                           DMP      SL1                                   
031852,001459: 24,3623           11754                                    TRIMSCAL                              
031853,001460: 24,3624           41415                           DAD      PUSH                                  
031854,001461: 24,3625           11760                                    PBIAS                                 
031855,001462: 24,3626           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
031856,001463: 24,3627           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
031857,001464: 24,3630           14323                           STODL    ZSCREF                                #  SIN(P +P0)
031858,001465: 24,3631           00007                                    6                                     
031859,001466: 24,3632           72405                           DMP      SL1                                   
031860,001467: 24,3633           00005                                    4                                     
031861,001468: 24,3634           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
031862,001469: 24,3635           00007                                    6                                     
031863,001470: 24,3636           72405                           DMP      SL1                                   
031864,001471: 24,3637           00003                                    2                                     
031865,001472: 24,3640           77666                           VDEF                                           
031866,001473: 
031867,001474: 24,3641           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
031868,001475: 24,3642           00323                                    ZSCREF                                
031869,001476: 24,3643           72405                           DMP      SL1                                   
031870,001477: 24,3644           00005                                    4                                     
031871,001478: 24,3645           41325                           PDDL     DMP                                   
031872,001479: 24,3646           00323                                    ZSCREF                                
031873,001480: 24,3647           00003                                    2                                     
031874,001481: 24,3650           57552                           SL1      DCOMP                                 
031875,001482: 24,3651           77666                           VDEF                                           
031876,001483: 
031877,001484: 24,3652           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
031878,001485: 24,3653           77666                           VDEF                                           
031879,001486: 
031880,001487: 24,3654           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
031881,001488: 24,3655           00323                                    ZSCREF                                
031882,001489: 24,3656           65325                           PDDL     PDDL                                  
031883,001490: 24,3657           00315                                    YSCREF                                
031884,001491: 24,3660           00307                                    XSCREF                                
031885,001492: 24,3661           77666                           VDEF                                           

Page 716

031887,001494: 24,3662           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
031888,001495: 24,3663           03713                                    UT                                    
031889,001496: 24,3664           53515                           PDVL     UNIT                                  
031890,001497: 24,3665           03632                                    RTIG                                  
031891,001498: 24,3666           57435                           VXV      VCOMP                                 
031892,001499: 24,3667           00001                                    0                                     
031893,001500: 24,3670           41456                           UNIT     PUSH                                  
031894,001501: 24,3671           77624                           CALL                                           
031895,001502: 24,3672           51734                                    TSTRXUT                               
031896,001503: 24,3673           57435                           VXV      VCOMP                                 
031897,001504: 24,3674           00001                                    0                                     
031898,001505: 24,3675           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
031899,001506: 24,3676           00307                                    XSCREF                                
031900,001507: 24,3677           76505                           VXM      VSL1                                  
031901,001508: 24,3700           00001                                    0                                     
031902,001509: 24,3701           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
031903,001510: 24,3702           00315                                    YSCREF                                
031904,001511: 24,3703           76505                           VXM      VSL1                                  
031905,001512: 24,3704           00001                                    0                                     
031906,001513: 24,3705           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
031907,001514: 24,3706           00323                                    ZSCREF                                
031908,001515: 24,3707           76505                           VXM      VSL1                                  
031909,001516: 24,3710           00001                                    0                                     
031910,001517: 24,3711           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
031911,001518: 24,3712           52001                           SETPD    GOTO                                  
031912,001519: 24,3713           00001                                    0                                     
031913,001520: 24,3714           03657                                    QTEMP                                 
031914,001521: 24,3715           77775        S40.2,3B           VLOAD                                          
031915,001522: 24,3716           15333                                    UNITX                                 
031916,001523: 24,3717           27351                           STOVL    SCAXIS                                
031917,001524: 24,3720           03713                                    UT                                    
031918,001525: 24,3721           00307                           STORE    XSCREF                                
031919,001526: 24,3722           53435                           VXV      UNIT                                  
031920,001527: 24,3723           03632                                    RTIG                                  
031921,001528: 24,3724           34007                           STCALL   6D                                    
031922,001529: 24,3725           51734                                    TSTRXUT                               
031923,001530: 24,3726           00315                           STORE    YSCREF                                
031924,001531: 24,3727           57435                           VXV      VCOMP                                 
031925,001532: 24,3730           00307                                    XSCREF                                
031926,001533: 24,3731           77772                           VSL1                                           
031927,001534: 24,3732           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
031928,001535: 24,3733           03657                                    QTEMP                                 
031929,001536: 24,3734           46145        TSTRXUT            DLOAD    BHIZ                                  
031930,001537: 24,3735           00045                                    36D                                   
031931,001538: 24,3736           51741                                    BADVCTOR                              
031932,001539: 24,3737           43575                           VLOAD    RVQ                                   
031933,001540: 24,3740           00007                                    6D                                    
031934,001541: 24,3741           53575        BADVCTOR           VLOAD    UNIT                                  
031935,001542: 24,3742           03632                                    RTIG                                  
031936,001543: 24,3743           53515                           PDVL     UNIT                                  

Page 717

031938,001545: 24,3744           03640                                    VTIG                                  
031939,001546: 24,3745           53322                           VSR3     VAD                                   
031940,001547: 24,3746           53435                           VXV      UNIT                                  
031941,001548: 24,3747           03713                                    UT                                    
031942,001549: 24,3750           77676                           VCOMP                                          
031943,001550: 24,3751           00007                           STORE    6D                                    
031944,001551: 24,3752           77616                           RVQ                                            
031945,001552: 24,3753           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
031946,001553: 
031947,001554: 24,3755           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
031948,001555: 
031949,001556: 24,3757           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
031950,001557: 
031951,001558:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
031952,001559: 
031953,001560:                                                                                                  #  PROGRAM DESCRIPTION S41.1             DATE 8 DEC 66
031954,001561:                                                                                                  #  MOD NO 1                              LOG SECTION P40-P47
031955,001562:                                                                                                  #  MOD BY ZELDIN
031956,001563: 
031957,001564:                                                                                                  #  FUNCTIONAL DESCRIPTION
031958,001565: 
031959,001566:                                                                                                  #        COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
031960,001567:                                                                                                  #        TO CONTROL COORDS.
031961,001568: 
031962,001569:                                                                                                  #  CALLING SEQUENCE
031963,001570: 
031964,001571:                                                                                                  #        L       CALL
031965,001572:                                                                                                  #        L+1             S41.1
031966,001573: 
031967,001574:                                                                                                  #  NORMAL EXIT MODE
031968,001575:                                                                                                  #        
031969,001576:                                                                                                  #        AT L +2 OF CALLING SEQUENCE
031970,001577: 
031971,001578:                                                                                                  #  SUBROUTINES CALLED:
031972,001579: 
031973,001580:                                                                                                  #        CALCSMSC
031974,001581:                                                                                                  #        CDUTRIG
031975,001582: 
031976,001583:                                                                                                  #  ALARM OR ABORT MODES
031977,001584: 
031978,001585:                                                                                                  #        NONE
031979,001586: 
031980,001587:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
031981,001588: 
031982,001589:                                                                                                  #        VG IN REF. COORD. PDL L POINTER AT L+5.  S41.1 WILL RETURN WITH
031983,001590:                                                                                                  #        POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
031984,001591: 
031985,001592:                                                                                                  #  OUTPUT
031986,001593: 
031987,001594:                                                                                                  #        MPAC CONTAINS VG IN CONTROL COORDS              VECT. B7 M/CS
031988,001595: 
031989,001596:                                                                                                  #  DEBRIS:
031990,001597: 
031991,001598:                                                                                                  #        QTEMP           TEMP ERASABLE
031992,001599:                                                                                                  #        QPRET
031993,001600: 
031994,001601: 24,3761                                           COUNT    22/S41.1                              
031995,001602: 
031996,001603: 22,2000                                           SETLOC   P40S5                                 
031997,001604: 22,2000                                           BANK                                           
031998,001605: 
031999,001606: 22,3431           45020        S41.1              STQ      CALL                                  
032000,001607: 22,3432           03657                                    QTEMP                                 
032001,001608: 22,3433           47477                                    CDUTRIG                               
032002,001609: 22,3434           77775                           VLOAD                                          
032003,001610: 22,3435           45121                           MXV      CALL                                  
032004,001611: 22,3436           01736                                    REFSMMAT                              
032005,001612: 22,3437           47644                                    *SMNB*                                

Page 718

032007,001614: 22,3440           74321                           MXV      VXSC                                  
032008,001615: 22,3441           05003                                    QUADROT                               
032009,001616: 22,3442           05446                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
032010,001617: 22,3443           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
032011,001618: 22,3444           03657                                    QTEMP                                 
032012,001619: 22,3445           24000 00000  TENBNK14           2DEC     10.        B-4                        
032013,001620: 

Page 719

032015,001622:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
032016,001623:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
032017,001624:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
032018,001625:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
032019,001626:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
032020,001627:                                                                                                  #  CALLING SEQ   CALL S40.8
032021,001628:                                                                                                  #  INPUT         VGPREV  -       LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
032022,001629:                                                                                                  #                                PRIOR TO UPDATING IN METERS/CS AT +7.
032023,001630:                                                                                                  #                DELVREF -       CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
032024,001631:                                                                                                  #                                IN METERS/CS AT +7.
032025,001632:                                                                                                  #                BDT     -       EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
032026,001633:                                                                                                  #                                GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
032027,001634:                                                                                                  #                                METERS/CS AT +7.
032028,001635:                                                                                                  #                CSTEER  -       A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
032029,001636:                                                                                                  #                                SPS AIMPOINT STEERING MANEUVERS
032030,001637:                                                                                                  #                IDLEFAIL -      A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
032031,001638:                                                                                                  #                STEERSW -       A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
032032,001639:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
032033,001640:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
032034,001641:                                                                                                  #  OUTPUT        TTOGO   -       TIME REMAINING FOR ENGINE BURN IN CS AT +28
032035,001642:                                                                                                  #                OMEGAC  -       DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
032036,001643:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
032037,001644:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
032038,001645:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
032039,001646:                                                                                                  #  DEBRIS        OMEGAXC, +1
032040,001647:                                                                                                  #  SUBROUTINES USED      -       *SMNB*, ALARM
032041,001648: 
032042,001649: 16,2000                                           SETLOC   P40S1                                 
032043,001650: 16,2000                                           BANK                                           
032044,001651: 16,2153  E6,1466                                  EBANK=   DAPDATR1                              
032045,001652: 16,2153                                           COUNT    16/S40.8                              
032046,001653: 
032047,001654: 16,2153           44001        S40.8              SETPD    STQ                                   
032048,001655: 16,2154           00001        SPBIT1                      00D                                   
032049,001656: 16,2155           03657                                    QTEMP                                 
032050,001657: 16,2156           51375                           VLOAD    BVSU                                  #  CONSTRUCT DELVG, SC.AT B+7 M/CS
032051,001658: 16,2157           03433                                    DELVREF                               
032052,001659: 16,2160           03705                                    BDT                                   
032053,001660: 16,2161           77655                           VAD                                            
032054,001661: 16,2162           03721                                    VGPREV                                
032055,001662: 16,2163           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
032056,001663: 
032057,001664: 16,2164           77646                           ABVAL                                          
032058,001665: 16,2165           03773                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
032059,001666: 16,2166           77776                           EXIT                                           
032060,001667: 16,2167           05412                           TC       PHASCHNG                              
032061,001668: 16,2170           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
032062,001669: 
032063,001670: 16,2171           06006                           TC       INTPRET                               
032064,001671: 16,2172           77775                           VLOAD                                          

Page 720

032066,001673: 16,2173           03460                                    VG                                    
032067,001674: 16,2174           03721                           STORE    VGPREV                                
032068,001675: 16,2175           77214                           BOFF     VLOAD                                 
032069,001676: 16,2176           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
032070,001677: 16,2177           03657                                    QTEMP                                 
032071,001678: 16,2200           03433                                    DELVREF                               
032072,001679: 16,2201           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
032073,001680: 16,2202           41335                           SLOAD    DMP                                   
032074,001681: 16,2203           01354                                    DVTHRESH                              #  SC.AT B-2 M/CS
032075,001682: 16,2204           36011                                    DPB-9                                 
032076,001683: 16,2205           77621                           BDSU                                           
032077,001684: 16,2206           77440                           BMN      EXIT                                  
032078,001685: 16,2207           40222                                    LOTHRUST                              
032079,001686: 16,2210           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
032080,001687: 16,2211           75002                           MASK     BIT14                                 
032081,001688: 16,2212           10000                           CCS      A                                     
032082,001689: 16,2213           35017                           CAF      BIT1                                  
032083,001690: 16,2214           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
032084,001691: 16,2215           31421                           CAE      EREPFRAC                              
032085,001692: 16,2216           55642                           TS       REPFRAC                               
032086,001693: 
032087,001694: 16,2217           06006                           TC       INTPRET                               
032088,001695: 16,2220           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
032089,001696: 16,2221           03433                                    DELVREF                               
032090,001697: 16,2222           03705                                    BDT                                   
032091,001698: 16,2223           77656                           UNIT                                           
032092,001699: 16,2224           41441                           DOT      PUSH                                  #  (00D)
032093,001700: 16,2225           03460                                    VG                                    
032094,001701: 16,2226           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
032095,001702: 16,2227           40214                                    INCRSVG                               #        DISPLAY ALARM IF NOT
032096,001703: 16,2230           36005                                    2VEXHUST                              
032097,001704: 16,2231           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
032098,001705: 16,2232           11564                                    LODPHALF                              
032099,001706: 16,2233           70501                           NORM     SR1                                   
032100,001707: 16,2234           00047                                    X1                                    
032101,001708: 16,2235           60325                           PDDL     NORM                                  
032102,001709: 16,2236           00045                                    36D                                   #  (MAG DELVG)
032103,001710: 16,2237           00050                                    X2                                    
032104,001711: 16,2240           77665                           BDDV                                           
032105,001712: 16,2241           53664                           XSU,2    SL*                                   
032106,001713: 16,2242           00046                                    X1                                    
032107,001714: 16,2243           57607                                    0          -9D,2                      
032108,001715: 16,2244           41405                           DMP      PUSH                                  #  (00D)
032109,001716: 16,2245           36003                                    -FOURDT                               
032110,001717: 16,2246           54335                           SLOAD    SR                                    
032111,001718: 16,2247           03013                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
032112,001719: 16,2250           20617                                    14D                                   
032113,001720: 16,2251           45421                           BDSU     STADR                                 
032114,001721: 16,2252           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
032115,001722: 16,2253           77615                           DAD                                            

Page 721

032117,001724: 16,2254           01205                                    PIPTIME                               
032118,001725: 16,2255           17413                           STODL    TIG                                   
032119,001726: 16,2256           03430                                    TGO                                   
032120,001727: 16,2257           50025                           DSU      BMN                                   
032121,001728: 16,2260           36007                                    FOURSEC                               
032122,001729: 16,2261           40201                                    S40.81                                
032123,001730: 
032124,001731: 16,2262           74375        XPRODUCT           VLOAD    VXSC                                  
032125,001732: 16,2263           03705                                    BDT                                   
032126,001733: 16,2264           03703                                    CSTEER                                
032127,001734: 16,2265           52352                           VSL2     VSU                                   
032128,001735: 16,2266           03433                                    DELVREF                               
032129,001736: 16,2267           63256                           UNIT     PDVL                                  
032130,001737: 16,2270           03460                                    VG                                    
032131,001738: 16,2271           47256                           UNIT     VXV                                   
032132,001739: 16,2272           45121                           MXV      CALL                                  
032133,001740: 16,2273           01736                                    REFSMMAT                              #  (REFSMMAT/2)
032134,001741: 16,2274           47644                                    *SMNB*                                
032135,001742: 16,2275           77761                           VXSC                                           
032136,001743: 16,2276           03235                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
032137,001744: 16,2277           03126        OMEGACLC           STORE    OMEGAC                                
032138,001745: 16,2300           77650                           GOTO                                           
032139,001746: 16,2301           03657                                    QTEMP                                 
032140,001747: 
032141,001748: 17,2000                                           SETLOC   DAPS7                                 
032142,001749: 17,2000                                           BANK                                           
032143,001750: 17,2000                                           COUNT    17/S40.8                              
032144,001751: 
032145,001752: 17,2000           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
032146,001753: 
032147,001754: 17,2002           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
032148,001755: 
032149,001756: 17,2004           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
032150,001757: 
032151,001758: 17,2006           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
032152,001759: 
032153,001760: 17,2010           00040 00000  DPB-9              2DEC     1          B-9                        
032154,001761: 
032155,001762: 20,2000                                           SETLOC   DAPS6                                 
032156,001763: 20,2000                                           BANK                                           
032157,001764: 
032158,001765: 20,2201                                           COUNT    20/S40.8                              
032159,001766: 
032160,001767: 20,2201           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
032161,001768: 20,2202           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
032162,001769: 20,2203           15335                                    HI6ZEROS                              
032163,001770: 20,2204           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
032164,001771: 20,2205           77776                           EXIT                                           
032165,001772: 20,2206           34777                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
032166,001773: 20,2207           55447                           TS       CNTR                                  

Page 722

032168,001775: 20,2210           06006                           TC       INTPRET                               
032169,001776: 20,2211           52014                           CLEAR    GOTO                                  
032170,001777: 20,2212           01264                                    STEERSW                               #  RESTARTS OK
032171,001778: 20,2213           03657                                    QTEMP                                 
032172,001779: 20,2214           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
032173,001780: 20,2215           05650                           TC       ALARM                                 #  IN WRONG DIRECTION.
032174,001781: 20,2216           01407                           OCT      01407                                 
032175,001782: 20,2217           06006                           TC       INTPRET                               
032176,001783: 20,2220           77650                           GOTO                                           
032177,001784: 20,2221           03657                                    QTEMP                                 
032178,001785: 
032179,001786: 20,2222           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
032180,001787: 20,2223           00711                                    IDLEFAIL                              #  SET BY V97P.  ALLOWS 1 BYPASS IN CASE OF
032181,001788: 20,2224           03657                                    QTEMP                                 #        UNFAVORABLE S40.8 SYNCH
032182,001789: 20,2225           15335                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
032183,001790: 20,2226           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
032184,001791: 20,2227           77776                           EXIT                                           
032185,001792: 
032186,001793: 20,2230           45021                           CS       ZERO                                  
032187,001794: 20,2231           55643                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
032188,001795: 20,2232           55653                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
032189,001796: 20,2233           55642                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
032190,001797: 20,2234           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
032191,001798: 
032192,001799: 20,2235           06006                           TC       INTPRET                               
032193,001800: 20,2236           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
032194,001801: 20,2237           01264                                    STEERSW                               #        SHUTDOWN IF NOT SET UP AGAIN)
032195,001802: 20,2240           03657                                    QTEMP                                 #  RESTARTS OK
032196,001803: 

Page 723

032198,001805:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
032199,001806:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
032200,001807:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
032201,001808:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
032202,001809:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
032203,001810:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
032204,001811:                                                                                                  #  INPUT         RNIT    -       ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
032205,001812:                                                                                                  #                VNIT    -       ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
032206,001813:                                                                                                  #                VRPREV  -       LAST COMPUTED VELOCITY REQUIRED VECTOR IN
032207,001814:                                                                                                  #                                METERS/CS AT +7.
032208,001815:                                                                                                  #                NOMTIG  -       TIME OF IGN.  USED IN TARGETTING ROUTINES %+28"
032209,001816:                                                                                                  #                DELLT4  -       TRANSFER TIME FROM PIPTIME TO TARGET %+28"
032210,001817:                                                                                                  #                TNIT    -       TIME OF RNIT AND VNIT IN CS AT +28
032211,001818:                                                                                                  #                GDT/2   -       HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
032212,001819:                                                                                                  #                                ACCERERATION OF GRAVITY IN METERS/CS AT +7.
032213,001820:                                                                                                  #                DELVREF -       CHANGE IN VELOCITY DURING LAST 2 SEC IN
032214,001821:                                                                                                  #                                METERS/CS AT +7.
032215,001822:                                                                                                  #                NORMSW          SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
032216,001823:                                                                                                  #                                165 TO 195 DEGREES
032217,001824:                                                                                                  #                                RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
032218,001825:                                                                                                  #  OUTPUT        VGTEMP  -       VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
032219,001826:                                                                                                  #                COGA    -       INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
032220,001827:                                                                                                  #                                OR PREVIOUS PASS THRU S40.9
032221,001828:                                                                                                  #                GOBL/2  -       OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
032222,001829:                                                                                                  #                VRPREV  -       VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
032223,001830:                                                                                                  #                BDT     -       B VECTOR IN METERS/CS AT +7.
032224,001831:                                                                                                  #  SUBROUTINES USED -    INITVEL
032225,001832: 
032226,001833: 16,2000                                           SETLOC   P40S1                                 
032227,001834: 16,2000                                           BANK                                           
032228,001835: 
032229,001836: 16,2302  E6,1742                                  EBANK=   NBRCYCLS                              
032230,001837: 16,2302                                           COUNT    16/S40.9                              
032231,001838: 
032232,001839: 16,2302           06006        S40.9              TC       INTPRET                               
032233,001840: 16,2303           71201                           SETPD    DLOAD                                 
032234,001841: 16,2304           00001                                    00D                                   
032235,001842: 16,2305           11566                                    LO6ZEROS                              
032236,001843: 16,2306           77725                           PDDL                                           
032237,001844: 16,2307           34424                                    EP4(45)L                              
032238,001845: 16,2310           71214                           BON      DLOAD                                 
032239,001846: 16,2311           03705                                    NORMSW                                
032240,001847: 16,2312           34314                                    +2                                    
032241,001848: 16,2313           34426                                    EP4(10)L                              
032242,001849: 16,2314           77606                           PUSH                                           
032243,001850: 16,2315           45014                           CLEAR    CALL                                  
032244,001851: 16,2316           00675                                    GUESSW                                
032245,001852: 16,2317           22002                                    HAVEGUES                              
032246,001853: 16,2320           77776                           EXIT                                           
032247,001854: 16,2321           05412                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
032248,001855: 16,2322           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW

Page 724

032250,001857: 16,2323           10000                           OCT      10000                                 
032251,001858: 16,2324           06006                           TC       INTPRET                               
032252,001859: 16,2325           77614        ENDLAMB            BON                                            
032253,001860: 16,2326           01310                                    FIRSTFLG                              
032254,001861: 16,2327           34345                                    FIRSTTME                              
032255,001862: 16,2330           52375                           VLOAD    VSU                                   
032256,001863: 16,2331           03612                                    VIPRIME                               
032257,001864: 16,2332           03466                                    VRPREV                                
032258,001865: 16,2333           45325                           PDDL     DSU                                   
032259,001866: 16,2334           03474                                    TNIT                                  
032260,001867: 16,2335           03476                                    TNITPREV                              
032261,001868: 16,2336           55261                           SL       BDDV                                  
032262,001869: 16,2337           20222                                    17D                                   
032263,001870: 16,2340           34420                                    200CSHI                               
032264,001871: 16,2341           77761                           VXSC                                           
032265,001872: 16,2342           76451                           VSU      VSL1                                  
032266,001873: 16,2343           01207                                    GDT/2                                 
032267,001874: 16,2344           03705                           STORE    BDT                                   
032268,001875: 16,2345           57535        FIRSTTME           SLOAD    DCOMP                                 
032269,001876: 16,2346           03747                                    RTX2                                  
032270,001877: 16,2347           77640                           BMN                                            
032271,001878: 16,2350           34365                                    MOONCASE                              
032272,001879: 16,2351           53575                           VLOAD    UNIT                                  
032273,001880: 16,2352           01171                                    RN                                    
032274,001881: 16,2353           45345                           DLOAD    DSU                                   
032275,001882: 16,2354           01205                                    PIPTIME                               
032276,001883: 16,2355           03450                                    NOMTIG                                
032277,001884: 16,2356           56205                           DMP      DDV                                   
032278,001885: 16,2357           34422                                    EARTHMU                               
032279,001886: 16,2360           00043                                    34D                                   
032280,001887: 16,2361           53361                           VXSC     VAD                                   
032281,001888: 16,2362           01215                                    GOBL/2                                
032282,001889: 16,2363           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
032283,001890: 16,2364           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
032284,001891: 16,2365           77776        MOONCASE           EXIT                                           
032285,001892: 16,2366           05412                           TC       PHASCHNG                              
032286,001893: 16,2367           04021                           OCT      04021                                 #  C, JOB BELOW
032287,001894: 
032288,001895: 16,2370           06006        COPY40.9           TC       INTPRET                               
032289,001896: 16,2371           77745                           DLOAD                                          
032290,001897: 16,2372           03474                                    TNIT                                  
032291,001898: 16,2373           27476                           STOVL    TNITPREV                              
032292,001899: 16,2374           03612                                    VIPRIME                               
032293,001900: 16,2375           03466                           STORE    VRPREV                                
032294,001901: 16,2376           77414                           CLEAR    EXIT                                  
032295,001902: 16,2377           01270                                    FIRSTFLG                              
032296,001903: 16,2400           45017                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
032297,001904: 16,2401           55742                           TS       NBRCYCLS                              
032298,001905: 16,2402           05412        ENDS40.9           TC       PHASCHNG                              
032299,001906: 16,2403           00001                           OCT      00001                                 

Page 725

032301,001908: 16,2404           15217                           TCF      ENDOFJOB                              
032302,001909: 
032303,001910: 16,2405           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
032304,001911: 16,2406           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
032305,001912: 16,2407           11566                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
032306,001913: 16,2410           17345                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL
032307,001914: 16,2411           11566                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
032308,001915: 16,2412           27343                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
032309,001916: 16,2413           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
032310,001917: 16,2414           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
032311,001918: 16,2415           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
032312,001919: 16,2416           12400                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
032313,001920: 
032314,001921: 16,2417           01440 00000  200CSHI            2DEC     200        B-12                       
032315,001922: 
032316,001923: 16,2421           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
032317,001924: 
032318,001925: 16,2423           04000 00000  EP4(45)L           2DEC     .125                                  
032319,001926: 
032320,001927: 16,2425           00707 03434  EP4(10)L           2DEC     .027777777                            
032321,001928: 

Page 726

032323,001930:                                                                                                  #  NAME                  S40.13 - TIMEBURN
032324,001931: 
032325,001932:                                                                                                  #  FUNCTION              (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
032326,001933:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
032327,001934:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
032328,001935:                                                                                                  #                        (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
032329,001936:                                                                                                  #                        AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
032330,001937: 
032331,001938:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
032332,001939: 
032333,001940:                                                                                                  #  INPUT                 VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
032334,001941:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
032335,001942:                                                                                                  #                        F - ENGINE THRUST IN M.NEWTONS AT +7
032336,001943:                                                                                                  #                        MDOT -  RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
032337,001944:                                                                                                  #                                IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
032338,001945:                                                                                                  #                                REQUIRE MODIFICATION FOR SATURN BURNS.
032339,001946: 
032340,001947:                                                                                                  #  OUTPUT                IMPULSW -       ZERO FOR STEERING
032341,001948:                                                                                                  #                                -       ONE FOR ATTITUDE HOLD
032342,001949:                                                                                                  #                        TGO     -       TIME TO BURN IN CENTISECONDS AT +14
032343,001950:                                                                                                  #                        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
032344,001951:                                                                                                  #                        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
032345,001952:                                                                                                  #                        (1) M.NEWTON = (10000) NEWTONS
032346,001953: 
032347,001954: 16,2427  E7,1427                                  EBANK=   TGO                                   
032348,001955: 16,2427                                           COUNT    16/40.13                              
032349,001956: 
032350,001957: 16,2427           06006        S40.13             TC       INTPRET                               
032351,001958: 16,2430           43001                           SETPD    SET                                   
032352,001959: 16,2431           00001                                    00D                                   
032353,001960: 16,2432           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
032354,001961: 16,2433           51575                           VLOAD    ABVAL                                 
032355,001962: 16,2434           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
032356,001963: 16,2435           77776                           EXIT                                           
032357,001964: 16,2436           35011                           CAF      BIT7                                  #  TEST +X TRANSLATION
032358,001965: 16,2437           00006                           EXTEND                                         
032359,001966: 16,2440           06031                           RXOR     CHAN31                                
032360,001967: 16,2441           75011                           MASK     BIT7                                  
032361,001968: 16,2442           00006                           EXTEND                                         
032362,001969: 16,2443           12525                           BZF      NOTADDUL                              
032363,001970: 16,2444           06006                           TC       INTPRET                               
032364,001971: 16,2445           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
032365,001972: 16,2446           36021                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
032366,001973: 16,2447           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
032367,001974: 16,2450           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
032368,001975: 16,2451           00700                                    NJETSFLG                              
032369,001976: 16,2452           34453                                    S40.130                               
032370,001977: 16,2453           77621        S40.130            BDSU                                           
032371,001978: 16,2454           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
032372,001979: 16,2455           01770                                    K1VAL                                 #  M.NETWON-CS AT +24
032373,001980: 16,2456           03076                                    WEIGHT/G                              
032374,001981: 16,2457           50021                           BDSU     BMN                                   
032375,001982: 16,2460           00001                                    00D                                   
032376,001983: 16,2461           34504                                    S40.131                               #  TGO LESS THAN 100 CS
032377,001984: 16,2462           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7

Page 727

032379,001986: 16,2463           00111                                    EMDOT                                 #  SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
032380,001987: 16,2464           36015                                    3.5SEC                                #  350 CS AT +14
032381,001988: 16,2465           65221                           BDSU     PDDL                                  
032382,001989: 16,2466           03076                                    WEIGHT/G                              
032383,001990: 16,2467           01775                                    FANG                                  
032384,001991: 16,2470           60405                           DMP      SR2                                   
032385,001992: 16,2471           36017                                    5SECOND                               #  500 CS AT +14
032386,001993: 16,2472           41471                           DDV      PUSH                                  #  04D = TEMP2
032387,001994: 16,2473           51021                           BDSU     BPL                                   
032388,001995: 16,2474           00003                                    02D                                   
032389,001996: 16,2475           34520                                    S40.133                               #  TGO GREATER THAN 600 CS
032390,001997: 16,2476           55345                           DLOAD    BDDV                                  
032391,001998: 16,2477           43205                           DMP      DAD                                   
032392,001999: 16,2500           36017                                    5SECOND                               #  500 CS AT +14
032393,002000: 16,2501           36013                                    1SEC2D                                #  100 CS AT +14
032394,002001: 16,2502           77650                           GOTO                                           
032395,002002: 16,2503           34511                                    S40.132                               
032396,002003: 16,2504           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
032397,002004: 16,2505           03076                                    WEIGHT/G                              
032398,002005: 16,2506           56215                           DAD      DDV                                   
032399,002006: 16,2507           01772                                    K2VAL                                 #  M.NEWTON-CS AT +24
032400,002007: 16,2510           01774                                    K3VAL                                 #  M.NEWTONS AT +10
032401,002008: 16,2511           77776        S40.132            EXIT                                           
032402,002009: 16,2512  E7,1427                                  EBANK=   TGO                                   
032403,002010: 16,2512           07226                           TC       TPAGREE                               
032404,002011: 16,2513           30154                           CA       MPAC                                  
032405,002012: 16,2514           56001                           XCH      L                                     
032406,002013: 16,2515           35021                           CA       ZERO                                  
032407,002014: 16,2516           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
032408,002015: 16,2517           02522                           TC       S40.134                               
032409,002016: 16,2520           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
032410,002017: 16,2521           01266                                    IMPULSW                               
032411,002018: 16,2522           05412        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
032412,002019: 16,2523           00003                           OCT      3                                     
032413,002020: 
032414,002021: 16,2524           15217                           TCF      ENDOFJOB                              
032415,002022: 
032416,002023: 16,2525           06006        NOTADDUL           TC       INTPRET                               
032417,002024: 16,2526           77650                           GOTO                                           
032418,002025: 16,2527           34454                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
032419,002026: 17,2000                                           SETLOC   DAPS7                                 
032420,002027: 17,2000                                           BANK                                           
032421,002028: 
032422,002029: 17,2012                                           COUNT    17/40.13                              
032423,002030: 
032424,002031: 17,2012  E3,1767               K1VAL              =        EK1VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
032425,002032: 17,2012  E3,1771               K2VAL              =        EK2VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
032426,002033: 17,2012  E3,1773               K3VAL              =        EK3VAL                                #  SP PAD LOAD B+09 NEWTONS/E+4
032427,002034: 17,2012           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14

Page 728

032429,002036: 17,2014           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
032430,002037: 
032431,002038: 17,2016           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
032432,002039: 
032433,002040: 17,2020           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
032434,002041:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
032435,002042:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
032436,002043:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)
032437,002044: 

Page 729

032439,002046:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
032440,002047:                                                                                                  #  MOD NO 5                              DATE 9 MARCH, 1967
032441,002048:                                                                                                  #  MOD BY ENGEL                          LOG SECTION P40-P47
032442,002049: 
032443,002050:                                                                                                  #  FUNCTIONAL DESCRIPTION
032444,002051:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
032445,002052:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW.  ASTRONAUT VERIFICATION
032446,002053:                                                                                                  #                OF GIMBAL MOTION ON GPI
032447,002054:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
032448,002055:                                                                                                  #                PRE-COMPUTED TRIM POSITION.  ASTRONAUT VERIFICATION ON GPI.
032449,002056:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
032450,002057:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
032451,002058:                                                                                                  #                BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
032452,002059:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
032453,002060:                                                                                                  #                OF RESTARTING ACTUATORS.
032454,002061: 
032455,002062:                                                                                                  #  CALLING SEQUENCE....
032456,002063:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
032457,002064: 
032458,002065:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
032459,002066: 
032460,002067:                                                                                                  #  SUBROUTINES CALLED....
032461,002068:                                                                                                  #        OUTPUT (INTERNAL)
032462,002069:                                                                                                  #        FIXDELAY
032463,002070: 
032464,002071:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
032465,002072: 
032466,002073:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
032467,002074:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
032468,002075:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
032469,002076:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
032470,002077:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
032471,002078:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
032472,002079:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
032473,002080: 
032474,002081:                                                                                                  #  OUTPUT
032475,002082:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
032476,002083:                                                                                                  #        TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
032477,002084: 
032478,002085:                                                                                                  #  DEBRIS
032479,002086:                                                                                                  #        TEMPR60, CNTR
032480,002087: 
032481,002088: 17,2022                                           BANK     17                                    
032482,002089: 20,2000                                           SETLOC   DAPS6                                 
032483,002090: 20,2000                                           BANK                                           
032484,002091: 
032485,002092: 20,2241  E6,1447                                  EBANK=   CNTR                                  
032486,002093: 20,2241                                           COUNT    20/S40.6                              
032487,002094: 
032488,002095: 20,2241           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
032489,002096: 20,2242           74105                           MASK     OCT60000                              #        IF TVC, BITS 15,|4 = 1,0)
032490,002097: 20,2243           00006                           EXTEND                                         
032491,002098: 20,2244           62246                           BZMF     +2                                    
032492,002099: 20,2245           15324                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
032493,002100: 
032494,002101: 20,2246           45017                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY

Page 730

032496,002103: 20,2247           55445                           TS       MRKRTMP                               
032497,002104: 
032498,002105: 20,2250           35017                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
032499,002106: 20,2251           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
032500,002107:                                                                                                  #        NORMALLY +0, BY S40.6)
032501,002108: 
032502,002109: 20,2252  E6,1447                                  EBANK=   CNTR                                  
032503,002110: 20,2252           45021        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
032504,002111: 20,2253           55303                           TS       OPTIND                                
032505,002112: 
032506,002113: 20,2254           45016                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
032507,002114: 20,2255           00006                           EXTEND                                         #        AND INHIBIT PULSE TRANSMISSION -
032508,002115: 20,2256           03012                           WAND     CHAN12                                #        NORMAL STATE)
032509,002116: 
032510,002117: 20,2257           32344                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
032511,002118: 20,2260           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
032512,002119: 20,2261           05012                           WOR      CHAN12                                
032513,002120: 
032514,002121: 20,2262           05267                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
032515,002122: 20,2263           00006                           DEC      6          B-14                       #        RELAY LATCHING
032516,002123: 
032517,002124: 20,2264           35016                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
032518,002125: 20,2265           00006                           EXTEND                                         
032519,002126: 20,2266           05012                           WOR      CHAN12                                
032520,002127: 
032521,002128: 20,2267           05267                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
032522,002129: 20,2270           00002                           DEC      2          B-14                       #        RELAY LATCHING
032523,002130: 
032524,002131: 20,2271           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
032525,002132: 20,2272           12332                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
032526,002133:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY
032527,002134: 
032528,002135: 20,2273           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
032529,002136: 20,2274           55447                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
032530,002137: 20,2275           00006                           EXTEND                                         
032531,002138: 20,2276           62330                           BZMF     GIMTRIM                               #  (TRIM ONLY)
032532,002139: 
032533,002140: 20,2277           45021        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
032534,002141: 20,2300           55447                           TS       CNTR                                  
032535,002142: 
032536,002143: 20,2301           32346        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
032537,002144: 20,2302           02315                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
032538,002145: 20,2303           32345                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
032539,002146: 20,2304           02315                           TC       OUTPUT                                
032540,002147: 20,2305           32346                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
032541,002148: 20,2306           02315                           TC       OUTPUT                                
032542,002149: 
032543,002150: 20,2307           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST

Page 731

032545,002152: 20,2310           10000                           CCS      A                                     
032546,002153: 20,2311           12330                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
032547,002154: 20,2312           45017                           CS       BIT1                                  #  SET UP YAW TEST
032548,002155: 20,2313           55447                           TS       CNTR                                  
032549,002156: 20,2314           12301                           TCF      GIMDTEST                              #  FOR YAW TEST
032550,002157: 
032551,002158: 20,2315           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
032552,002159: 20,2316           23146                           QXCH     TEMPR60                               
032553,002160: 
032554,002161: 20,2317           51447                           INDEX    CNTR                                  
032555,002162: 20,2320           54054                           TS       TVCPITCH                              
032556,002163: 
032557,002164: 20,2321           51447                           INDEX    CNTR                                  
032558,002165: 20,2322           35005                           CAF      BIT11                                 
032559,002166: 20,2323           00006                           EXTEND                                         
032560,002167: 20,2324           05014                           WOR      CHAN14                                
032561,002168: 
032562,002169: 20,2325           05267                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
032563,002170: 20,2326           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
032564,002171: 20,2327           01146                           TC       TEMPR60                               
032565,002172: 
032566,002173: 20,2330           05267        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
032567,002174: 20,2331           00620                           DEC      400        B-14                       
032568,002175: 
032569,002176: 20,2332           45021                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
032570,002177: 20,2333           61423                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
032571,002178: 20,2334           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
032572,002179: 20,2335           45021                           CS       ZERO                                  
032573,002180: 20,2336           61424                           AD       YACTOFF                               
032574,002181: 20,2337           54053                           TS       TVCYAW                                
032575,002182: 
032576,002183: 20,2340           35062                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
032577,002184: 20,2341           00006                           EXTEND                                         
032578,002185: 20,2342           05014                           WOR      CHAN14                                
032579,002186: 
032580,002187: 20,2343           15324        ENDS40.6           TCF      TASKOVER                              
032581,002188: 
032582,002189: 20,2344           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
032583,002190: 20,2345           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
032584,002191: 20,2346           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
032585,002192: 
032586,002193:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
032587,002194: 
032588,002195: 20,2347                                           COUNT    20/S41.2                              
032589,002196: 
032590,002197: 20,2347           31466        S41.2              CA       DAPDATR1                              

Page 732

032592,002199: 20,2350           76214                           MASK     THREE                                 
032593,002200: 20,2351           60000                           AD       A                                     
032594,002201: 20,2352           55130                           TS       RATEINDX                              
032595,002202: 
032596,002203: 20,2353           00004                           INHINT                                         
032597,002204: 20,2354           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
032598,002205: 20,2355           74371                           MASK     PRIO30                                #        =10)
032599,002206: 20,2356           67705                           AD       -BIT14                                #  (OCT57777)
032600,002207: 20,2357           00006                           EXTEND                                         
032601,002208: 20,2360           12365                           BZF      TOGETHER                              #  YES
032602,002209: 
032603,002210: 20,2361           45016                           CS       BIT2                                  #  NO, UNSET FLAG
032604,002211: 20,2362           70103                           MASK     FLAGWRD7                              
032605,002212: 20,2363           54103                           TS       FLAGWRD7                              
032606,002213: 
032607,002214: 20,2364           12370                           TCF      +4                                    
032608,002215: 
032609,002216: 20,2365           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
032610,002217: 20,2366           75016                           MASK     BIT2                                  
032611,002218: 20,2367           26103                           ADS      FLAGWRD7                              
032612,002219: 
032613,002220: 20,2370           00003                           RELINT                                         
032614,002221: 
032615,002222: 20,2371           31466                           CA       DAPDATR1                              
032616,002223: 20,2372           75014                           MASK     BIT4                                  
032617,002224: 20,2373           00006                           EXTEND                                         
032618,002225: 20,2374           62376                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
032619,002226: 20,2375           32476                           CA       DEC409                                
032620,002227: 20,2376           62477                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
032621,002228: 20,2377           55655                           TS       ADB                                   
032622,002229: 
032623,002230: 20,2400           31466                           CA       DAPDATR1                              
032624,002231: 20,2401           75011                           MASK     BIT7                                  #  QUAD BD
032625,002232: 20,2402           00006                           EXTEND                                         
032626,002233: 20,2403           62405                           BZMF     +2                                    
032627,002234: 20,2404           35017                           CA       ONE                                   
032628,002235: 20,2405           55631                           TS       XTRANS                                
032629,002236: 20,2406           31466                           CA       DAPDATR1                              
032630,002237: 20,2407           75006                           MASK     BIT10                                 #  QUAD AC
032631,002238: 20,2410           00006                           EXTEND                                         
032632,002239: 20,2411           62413                           BZMF     +2                                    
032633,002240: 20,2412           45017                           CS       ONE                                   
032634,002241: 20,2413           27631                           ADS      XTRANS                                
032635,002242: 
032636,002243: 20,2414           00004                           INHINT                                         
032637,002244: 20,2415           00006                           EXTEND                                         
032638,002245: 20,2416           12423                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
032639,002246: 20,2417           40075                           CS       FLAGWRD1                              #  SET NJETSFLG (2 JETS, AC OR BD QUADS)
032640,002247: 20,2420           75001                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
032641,002248: 20,2421           26075                           ADS      FLAGWRD1                              

Page 733

032643,002250: 20,2422           12426                           TCF      +4                                    
032644,002251: 20,2423           45001                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
032645,002252: 20,2424           70075                           MASK     FLAGWRD1                              
032646,002253: 20,2425           54075                           TS       FLAGWRD1                              
032647,002254: 20,2426           00003                           RELINT                                         
032648,002255: 20,2427           31467                           CA       DAPDATR2                              
032649,002256: 20,2430           75003                           MASK     BIT13                                 
032650,002257: 20,2431           00006                           EXTEND                                         
032651,002258: 20,2432           62434                           BZMF     +2                                    
032652,002259: 20,2433           12435                           TCF      +2                                    
032653,002260: 20,2434           45017                           CS       ONE                                   
032654,002261: 20,2435           40000                           COM                                            
032655,002262: 20,2436           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
032656,002263: 
032657,002264: 20,2437           31467                           CA       DAPDATR2                              
032658,002265: 20,2440           75006                           MASK     BIT10                                 
032659,002266: 20,2441           10000                           CCS      A                                     
032660,002267: 20,2442           12446                           TCF      +4                                    
032661,002268: 20,2443           35017                           CA       ONE                                   
032662,002269: 20,2444           55626                           TS       RACFAIL                               
032663,002270: 20,2445           12456                           TCF      BDFAIL                                
032664,002271: 20,2446           35021                           CA       ZERO                                  
032665,002272: 20,2447           55626                           TS       RACFAIL                               
032666,002273: 20,2450           31467                           CA       DAPDATR2                              
032667,002274: 20,2451           75014                           MASK     BIT4                                  
032668,002275: 20,2452           10000                           CCS      A                                     
032669,002276: 20,2453           12456                           TCF      BDFAIL                                
032670,002277: 20,2454           45017                           CS       ONE                                   
032671,002278: 20,2455           55626                           TS       RACFAIL                               
032672,002279: 20,2456           31467        BDFAIL             CA       DAPDATR2                              
032673,002280: 20,2457           75011                           MASK     BIT7                                  
032674,002281: 20,2460           10000                           CCS      A                                     
032675,002282: 20,2461           12465                           TCF      +4                                    
032676,002283: 20,2462           35017                           CA       ONE                                   
032677,002284: 20,2463           55627                           TS       RBDFAIL                               
032678,002285: 20,2464           00002                           TC       Q                                     
032679,002286: 20,2465           35021                           CA       ZERO                                  
032680,002287: 20,2466           55627                           TS       RBDFAIL                               
032681,002288: 20,2467           31467                           CA       DAPDATR2                              
032682,002289: 20,2470           75017                           MASK     BIT1                                  
032683,002290: 20,2471           10000                           CCS      A                                     
032684,002291: 20,2472           00002                           TC       Q                                     
032685,002292: 20,2473           45017                           CS       ONE                                   
032686,002293: 20,2474           55627                           TS       RBDFAIL                               
032687,002294: 20,2475           00002                           TC       Q                                     
032688,002295: 
032689,002296:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
032690,002297: 
032691,002298: 42,3606                                           BANK     42                                    
032692,002299: 42,2000                                           SETLOC   EXTVBS                                

Page 734

032694,002301: 42,2000                                           BANK                                           
032695,002302: 
032696,002303: 42,3606           45007        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
032697,002304: 42,3607           00006                           EXTEND                                         
032698,002305: 42,3610           03012                           WAND     CHAN12                                
032699,002306: 42,3611           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
032700,002307: 42,3612           00006                           EXTEND                                         
032701,002308: 42,3613           75015                           MP       BIT3                                  #        RIGHT SHIFT 4 OCTAL DIGITS
032702,002309: 42,3614           76214                           MASK     THREE                                 #        (IN CASE BIT 15 IS USED)
032703,002310: 42,3615           50000                           INDEX    A                                     
032704,002311: 42,3616           13617                           TCF      +1                                    #        BRANCH BASED ON CONFIG....
032705,002312: 
032706,002313: 42,3617           13631                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
032707,002314: 42,3620           13624                           TCF      RCSDAPUP                              #        CSM......ACTIVATE RCSDAP
032708,002315: 42,3621           13624                           TCF      RCSDAPUP                              #        CSM/LEM..ACTIVATE RCSDAP
032709,002316: 42,3622           04701                           TC       POSTJUMP                              
032710,002317: 42,3623           67215                           CADR     SATSTKON                              
032711,002318: 42,3624           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
032712,002319: 42,3625           04740                           TCR      IBNKCALL                              
032713,002320: 42,3626           42024                           CADR     RCSDAPON                              
032714,002321: 42,3627           00003                           RELINT                                         
032715,002322: 42,3630           13646                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
032716,002323: 42,3631           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
032717,002324: 42,3632           33651                           DCA      T5IDLDAP                              
032718,002325: 42,3633           53313                           DXCH     T5LOC                                 
032719,002326: 42,3634           05560                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
032720,002327: 42,3635           00132                           ADRES    DAPBIT1                               #  BIT 15 FLAG 6 = 0
032721,002328: 42,3636           05560                           TC       DOWNFLAG                              
032722,002329: 42,3637           00133                           ADRES    DAPBIT2                               #  BIT 14 FLAG 6 = 0
032723,002330: 42,3640           00004                           INHINT                                         
032724,002331: 42,3641           04740                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
032725,002332: 42,3642           42632                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
032726,002333: 42,3643           00003                           RELINT                                         
032727,002334: 42,3644           35017                           CAF      BIT1                                  #  KILL KALCMANU JOB
032728,002335: 42,3645           55332                           TS       HOLDFLAG                              
032729,002336: 42,3646           04701        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
032730,002337: 42,3647           66121                           CADR     GOPIN                                 

Added by RSB 2009

032732,002339: 42,3650  40,2000                                  SBANK=   PINSUPER                              
032733,002340: 42,3650  E6,1423                                  EBANK=   PACTOFF                               
032734,002341: 42,3650           03153 12106  T5IDLDAP           2CADR    T5IDLOC                               
032735,002342: 
032736,002343: 42,3652  30,2000                                  SBANK=   LOWSUPER                              
032737,002344: 17,2022                                           BANK     17                                    
032738,002345: 20,2000                                           SETLOC   DAPS6                                 
032739,002346: 20,2000                                           BANK                                           
032740,002347: 
032741,002348: 20,2476           00631        DEC409             DEC      409        B-14                       
032742,002349: 20,2477           00056        DEC46              DEC      46         B-14                       
032743,002350: 

Page 735

032745,002352: 
032746,002353:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
032747,002354: 20,2500           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
032748,002355: 20,2501           00006                           EXTEND                                         
032749,002356: 20,2502           72525                           MP       CONTONE                               
032750,002357: 20,2503           55623                           TS       J/M                                   
032751,002358: 
032752,002359: 20,2504           31471                           CA       IAVG                                  
032753,002360: 20,2505           00006                           EXTEND                                         
032754,002361: 20,2506           72525                           MP       CONTONE                               
032755,002362: 20,2507           55624                           TS       J/M1                                  
032756,002363: 
032757,002364: 20,2510           55625                           TS       J/M2                                  
032758,002365: 
032759,002366: 20,2511           00006                           EXTEND                                         
032760,002367: 20,2512           32527                           DCA      CONTTWO                               
032761,002368: 20,2513           00006                           EXTEND                                         
032762,002369: 20,2514           11470                           DV       IXX                                   
032763,002370: 20,2515           55620                           TS       KMJ                                   
032764,002371: 
032765,002372: 20,2516           00006                           EXTEND                                         
032766,002373: 20,2517           32527                           DCA      CONTTWO                               
032767,002374: 20,2520           00006                           EXTEND                                         
032768,002375: 20,2521           11471                           DV       IAVG                                  
032769,002376: 20,2522           55621                           TS       KMJ1                                  
032770,002377: 
032771,002378: 20,2523           55622                           TS       KMJ2                                  
032772,002379: 
032773,002380: 20,2524           00002                           TC       Q                                     
032774,002381: 
032775,002382: 20,2525           25137        CONTONE            DEC      .662034                               #  2PI/M
032776,002383: 20,2526           00023 12522  CONTTWO            2DEC     .00118                                
032777,002384: 
032778,002385: 20,2530                                           COUNT    24/TVNG                               
032779,002386: 
032780,002387: 31,3700                                           BANK     31                                    
032781,002388: 24,2000                                           SETLOC   P40S                                  
032782,002389: 24,2000                                           BANK                                           
032783,002390: 
032784,002391: 24,3761           37405        POS-2.5            OCT      37405                                 
032785,002392: 24,3762  E6,1466                                  EBANK=   DAPDATR1                              
032786,002393: 24,3762           02014 42066  RCSCADR            2CADR    RCSUP                                 
032787,002394: 
032788,002395: 24,3764           37704        6SECT5             OCT      37704                                 
032789,002396: 24,3765                                           COUNT    21/RCSUP                              
032790,002397: 
032791,002398: 20,2530                                           BANK     20                                    
032792,002399: 
032793,002400: 21,2000                                           SETLOC   DAPS3                                 
032794,002401: 21,2000                                           BANK                                           
032795,002402: 

Page 736

032797,002404: 
032798,002405: 21,2014           22016        RCSUP              LXCH     BANKRUPT                              
032799,002406: 21,2015           00006                           EXTEND                                         
032800,002407: 21,2016           22012                           QXCH     QRUPT                                 
032801,002408: 
032802,002409: 21,2017           02024                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
032803,002410: 
032804,002411: 21,2020           15333                           TCF      RESUME                                
032805,002412: 
032806,002413: 21,2021  E6,1466                                  EBANK=   DAPDATR1                              
032807,002414: 21,2021           02122 42066  RCSADDR            2CADR    RCSATT                                
032808,002415: 
032809,002416: 21,2023           37704        0.6SECT5           OCT      37704                                 
032810,002417: 
032811,002418:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
032812,002419: 21,2024           32023        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
032813,002420: 21,2025           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
032814,002421: 21,2026           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
032815,002422: 
032816,002423: 21,2027           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
032817,002424: 21,2030           75015                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
032818,002425: 21,2031           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
032819,002426: 
032820,002427: 21,2032           00006                           EXTEND                                         
032821,002428: 21,2033           32022                           DCA      RCSADDR                               #  (RCSATT)
032822,002429: 21,2034           53313                           DXCH     T5LOC                                 
032823,002430: 
032824,002431: 21,2035           44105                           CS       OCT60000                              #  SET BITS 15,14 TO 01 TO INDICATE
032825,002432: 21,2036           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
032826,002433: 21,2037           65002                           AD       BIT14                                 
032827,002434: 21,2040           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
032828,002435: 
032829,002436: 21,2041           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
032830,002437: 
032831,002438: 

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