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.

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

Page 684

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

Page 685

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

Page 686

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

Page 687

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

Page 688

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

Page 689

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

Page 690

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

Page 691

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

Page 692

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

Page 693

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

Page 694

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

Page 695

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

Page 696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

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

Page 702

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

Page 703

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

Page 704

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

Page 705

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

Page 706

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

Page 707

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

Page 708

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

Page 709

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

Page 710

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

Page 711

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

Page 712

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

Page 713

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

Page 714

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

Page 715

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

Page 716

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

Page 717

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

Page 718

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

Page 719

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

Page 720

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

Page 721

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

Page 722

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

Page 723

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

Page 724

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

Page 725

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

Page 726

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

Page 727

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

Page 728

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

Page 729

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

Page 730

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

Page 731

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

Page 732

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

Page 733

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

Page 734

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

Page 735

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

Page 736

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

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