Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

028540,000002:                                                                                                  ## Copyright:   Public domain.
028541,000003:                                                                                                  ## Filename:    P40-P47.agc
028542,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
028543,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
028544,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
028545,000007:                                                                                                  ## Assembler:   yaYUL
028546,000008:                                                                                                  ## Reference:   pp. 640-692.
028547,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028548,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028549,000011:                                                                                                  ## Mod history: 08/15/04 RSB.   Began transcribing.  Unfortunately, while
028550,000012:                                                                                                  ##                              there's a corresponding Luminary131 file,
028551,000013:                                                                                                  ##                              there's not too much overlap with it.
028552,000014:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
028553,000015:                                                                                                  ##              2011-05-07 JL   Flag SBANK= workarounds for future removal. 
028554,000016:                                                                                                  ##                              Fix garbled section on page 671.
028555,000017:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
028556,000018:                                                                                                  ##                              original harcopy, as opposed to the PDF page
028557,000019:                                                                                                  ##                              numbers in 1701.pdf.
028558,000020:                                                                                                  ##              2017-01-18 RSB  Cross-diff'd comment text (not whitespace)
028559,000021:                                                                                                  ##                              vs the already-proofed corresponding Colossus
028560,000022:                                                                                                  ##                              237 and Comanche 55 source-code files
028561,000023:                                                                                                  ##                              and corrected errors found.
028562,000024:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
028563,000025:                                                                                                  ##
028564,000026:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
028565,000027:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
028566,000028:                                                                                                  ## document read, in part:
028567,000029:                                                                                                  ##
028568,000030:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
028569,000031:                                                                                                  ##      2021111-041.  October 28, 1968.  
028570,000032:                                                                                                  ##
028571,000033:                                                                                                  ##      This AGC program shall also be referred to as
028572,000034:                                                                                                  ##                              Colossus 1A
028573,000035:                                                                                                  ##
028574,000036:                                                                                                  ##      Prepared by
028575,000037:                                                                                                  ##                      Massachusetts Institute of Technology
028576,000038:                                                                                                  ##                      75 Cambridge Parkway
028577,000039:                                                                                                  ##                      Cambridge, Massachusetts
028578,000040:                                                                                                  ##      under NASA contract NAS 9-4065.
028579,000041:                                                                                                  ##
028580,000042:                                                                                                  ## Refer directly to the online document mentioned above for further information.
028581,000043:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
028582,000044:                                                                                                  ##
028583,000045:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
028584,000046:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
028585,000047:                                                                                                  ## source file, and then is proofed to incorporate any changes.
028586,000048: 

Page 640

028588,000050:                                                                                                  #  PROGRAM DESCRIPTION ** P40CSM **
028589,000051: 
028590,000052: 35,3755  E6,1466                                  EBANK=   DAPDATR1                              
028591,000053: 31,3215                                           BANK     31                                    
028592,000054: 24,2000                                           SETLOC   P40S                                  
028593,000055: 24,2000                                           BANK                                           
028594,000056: 
028595,000057: 24,2002                                           COUNT    24/P40                                
028596,000058: 
028597,000059: 24,2002           05447        P40CSM             TC       DOWNFLAG                              
028598,000060: 24,2003           00023                           ADRES    ENG2FLAG                              
028599,000061: 
028600,000062: 24,2004           06006                           TC       INTPRET                               
028601,000063: 24,2005           43135                           SLOAD    BOFF                                  
028602,000064: 24,2006           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
028603,000065: 24,2007           01347                                    XDELVFLG                              
028604,000066: 24,2010           50013                                    P40S/C                                #  NO    CSTEER = ECSTEER
028605,000067: 24,2011           77745                           DLOAD                                          #  YES   CSTEER = ZERO
028606,000068: 24,2012           15332                                    HI6ZEROS                              
028607,000069: 24,2013           17703        P40S/C             STODL    CSTEER                                
028608,000070: 24,2014           10335                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
028609,000071: 24,2015           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
028610,000072: 24,2016           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
028611,000073: 24,2017           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
028612,000074: 
028613,000075: 24,2020           77776                           EXIT                                           
028614,000076: 24,2021           04555                           TC       BANKCALL                              
028615,000077: 24,2022           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
028616,000078: 
028617,000079: 24,2023           06006        P40PVA             TC       INTPRET                               
028618,000080: 24,2024           77624                           CALL                                           
028619,000081: 24,2025           34000                                    S40.1                                 #  COMPUTE VGTIG,UT
028620,000082: 24,2026           77624                           CALL                                           
028621,000083: 24,2027           51512                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
028622,000084: 24,2030           77414                           SET      EXIT                                  
028623,000085: 24,2031           01073                                    PFRATFLG                              
028624,000086: 24,2032           02212        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
028625,000087: 24,2033           00003                           RELINT                                         
028626,000088: 24,2034           04555                           TC       BANKCALL                              
028627,000089: 24,2035           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
028628,000090: 24,2036           44712                           CS       ONE                                   #  FOR UPDATEVG
028629,000091: 24,2037           55746                           TS       NBRCYCLS                              
028630,000092: 24,2040           05435                           TC       UPFLAG                                
028631,000093: 24,2041           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
028632,000094: 
028633,000095: 24,2042           02252                           TC       P41/P40                               
028634,000096: 24,2043           02267                           TC       P41/DSP                               #  P41
028635,000097: 
028636,000098: 24,2044           32351        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED

Page 641

028638,000100: 24,2045           55145                           TS       NVWORD1                               #  BELOW
028639,000101: 
028640,000102: 24,2046           06006                           TC       INTPRET                               
028641,000103: 24,2047           51575                           VLOAD    ABVAL                                 #  FOR R2
028642,000104: 24,2050           03721                                    VGTIG                                 
028643,000105: 24,2051           17654                           STODL    VGDISP                                
028644,000106: 24,2052           15332                                    HI6ZEROS                              
028645,000107: 24,2053           03426                           STORE    DVTOTAL                               
028646,000108: 24,2054           77776                           EXIT                                           
028647,000109: 
028648,000110: 24,2055           00006                           EXTEND                                         
028649,000111: 24,2056           32773                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
028650,000112: 24,2057           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
028651,000113: 
028652,000114: 24,2060           32344        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
028653,000115: 24,2061           04555                           TC       BANKCALL                              
028654,000116: 24,2062           20751                           CADR     GOPERF1                               
028655,000117: 24,2063           12204                           TCF      POST41                                #  V34
028656,000118: 24,2064           12362                           TCF      TST,TRIM                              #  V33
028657,000119: 24,2065           44712        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
028658,000120: 24,2066           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
028659,000121: 
028660,000122: 24,2067           34714                           CAF      ZERO                                  #  SET CNTR      +0 FOR RESTART LOGIC IN S40.6
028661,000123: 24,2070           55447                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
028662,000124:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
028663,000125: 
028664,000126: 24,2071           34712                           CAF      ONE                                   
028665,000127: 24,2072           05140                           TC       WAITLIST                              
028666,000128: 24,2073  30,2000                                  SBANK=   LOWSUPER                              
028667,000129: 24,2073  E6,1466                                  EBANK=   DAPDATR1                              
028668,000130: 24,2073           02051 40066                     2CADR    S40.6                                 
028669,000131: 
028670,000132: 24,2075           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
028671,000133: 24,2076           32343                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
028672,000134: 24,2077           12101                           TCF      +2                                    #  HOLE
028673,000135: 24,2100           32776                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
028674,000136: 24,2101           04555                           TC       BANKCALL                              
028675,000137: 24,2102           01732                           CADR     DELAYJOB                              
028676,000138: 24,2103           05261                           TC       2PHSCHNG                              
028677,000139: 24,2104           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
028678,000140: 24,2105           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
028679,000141: 24,2106           34712        P40S/RS            CAF      ONE                                   
028680,000142: 24,2107           05140                           TC       WAITLIST                              #  P41/SDP
028681,000143: 24,2110  E7,1412                                  EBANK=   TIG                                   
028682,000144: 24,2110           03172 50067                     2CADR    CLOKTASK                              
028683,000145: 
028684,000146: 24,2112           00003                           RELINT                                         
028685,000147: 
028686,000148: 24,2113           03304        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
028687,000149: 24,2114  E7,1412                                  EBANK=   TIG                                   

Page 642

028689,000151: 24,2114           06006                           TC       INTPRET                               
028690,000152: 24,2115           45345                           DLOAD    DSU                                   
028691,000153: 24,2116           03413                                    TIG                                   
028692,000154: 24,2117           10342                                    SEC29.96                              
028693,000155: 24,2120           00041                           STORE    TDEC1                                 
028694,000156: 
028695,000157: 24,2121           77624                           CALRB                                          #  RETURN IN BASIC
028696,000158: 24,2122           27577                                    MIDTOAV1                              
028697,000159: 24,2123           12125                           TCF      +2                                    
028698,000160: 24,2124           02146                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
028699,000161: 24,2125           00006        P40SET             EXTEND                                         
028700,000162: 24,2126           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
028701,000163: 24,2127           53673                           DXCH     P40TMP                                
028702,000164: 24,2130           00006                           EXTEND                                         
028703,000165: 24,2131           42776                           DCS      5SECDP                                #  FOR TTGBLNK
028704,000166: 24,2132           21673                           DAS      P40TMP                                
028705,000167: 24,2133           00006                           EXTEND                                         
028706,000168: 24,2134           31673                           DCA      P40TMP                                
028707,000169: 24,2135           05231                           TC       LONGCALL                              
028708,000170: 24,2136  E7,1412                                  EBANK=   TIG                                   
028709,000171: 24,2136           02364 50067                     2CADR    TIGBLNK                               
028710,000172: 
028711,000173: 24,2140           05301                           TC       PHASCHNG                              
028712,000174: 24,2141           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
028713,000175: 
028714,000176: 24,2142           15112                           TCF      ENDOFJOB                              
028715,000177: 24,2143           04555        P40BLNKR           TC       BANKCALL                              
028716,000178: 24,2144           20607                           CADR     CLEANDSP                              #  REMOVE RESIDUE
028717,000179: 24,2145           15112                           TCF      ENDOFJOB                              
028718,000180: 24,2146  E7,1412                                  EBANK=   TIG                                   
028719,000181: 24,2146           00006        P40SNEWM           EXTEND                                         
028720,000182: 24,2147           31246                           DCA      PIPTIME1                              
028721,000183: 24,2150           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
028722,000184: 24,2151           00006                           EXTEND                                         
028723,000185: 24,2152           32342                           DCA      SEC29.96                              
028724,000186: 24,2153           21413                           DAS      TIG                                   
028725,000187: 24,2154           12125                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30 (OR -35)
028726,000188: 
028727,000189: 24,2155  E6,1466                                  EBANK=   DAPDATR1                              
028728,000190: 24,2155           32353        POSTBURN           CAF      V16N40                                
028729,000191: 24,2156           04555                           TC       BANKCALL                              
028730,000192: 24,2157           20610                           CADR     REFLASH                               
028731,000193: 24,2160           12204                           TCF      POST41                                #  V34 GO FINISH
028732,000194: 24,2161           12163                           TCF      P40RCS                                #  PROCEED
028733,000195: 24,2162           12155                           TCF      POSTBURN                              #  RECYCLE
028734,000196: 24,2163           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
028735,000197: 24,2164           32407                           DCA      ACADN85                               
028736,000198: 24,2165           53223                           DXCH     AVEGEXIT                              
028737,000199: 24,2166           34735                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
028738,000200: 24,2167           04555                           TC       BANKCALL                              

Page 643

028740,000202: 24,2170           01732                           CADR     DELAYJOB                              
028741,000203: 
028742,000204: 24,2171           02212        P40MINDB           TCR      SETMINDB   -1                         
028743,000205: 24,2172           00003                           RELINT                                         
028744,000206: 24,2173           05301        TIGNOW             TC       PHASCHNG                              
028745,000207: 24,2174           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
028746,000208: 24,2175           20000                           OCT      20000                                 #  PRIO 20
028747,000209: 24,2176           32350                           CAF      V16N85B                               
028748,000210: 24,2177           04555                           TC       BANKCALL                              
028749,000211: 24,2200           20610                           CADR     REFLASH                               
028750,000212: 24,2201           12204                           TCF      POST41                                #  FINISH P40/P41
028751,000213: 24,2202           12204                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
028752,000214: 24,2203           12173                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
028753,000215: 
028754,000216: 24,2204           00006        POST41             EXTEND                                         
028755,000217: 24,2205           32405                           DCA      SERVCADR                              
028756,000218: 24,2206           53223                           DXCH     AVEGEXIT                              
028757,000219: 24,2207           14106                           TCF      GOTOPOOH                              
028758,000220: 24,2210           00056        MINDB              DEC      46         B-14                       
028759,000221: 24,2211           00707        MAXDB              DEC      455        B-14                       
028760,000222: 24,2212  E6,1466                                  EBANK=   DAPDATR1                              
028761,000223: 24,2212           00004                 -1        INHINT                                         
028762,000224: 24,2213           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
028763,000225: 24,2214           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
028764,000226: 24,2215           00006                           EXTEND                                         #  IN AUTOPILOT
028765,000227: 24,2216           30034                           DCA      CDUY                                  
028766,000228: 24,2217           53574                           DXCH     THETADY                               
028767,000229: 24,2220           32210                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
028768,000230: 24,2221           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
028769,000231: 24,2222           44707                           CS       BIT4                                  #  EBANK = E6
028770,000232: 24,2223           71466                           MASK     DAPDATR1                              
028771,000233: 24,2224           55466                           TS       DAPDATR1                              
028772,000234: 24,2225           00002                           TC       Q                                     
028773,000235: 
028774,000236: 24,2226  E6,1466                                  EBANK=   DAPDATR1                              
028775,000237: 24,2226           00004                 -1        INHINT                                         
028776,000238: 24,2227           32211        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
028777,000239: 24,2230           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
028778,000240: 24,2231           41466                           CS       DAPDATR1                              
028779,000241: 24,2232           74707                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
028780,000242: 24,2233           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
028781,000243: 24,2234           00002                           TC       Q                                     #  EBANK = E6
028782,000244: 

Page 644

028784,000246:                                                                                                  #  PROGRAM DESCRIPTION ** P41CSM **
028785,000247: 
028786,000248: 24,2235  E6,1466                                  EBANK=   DAPDATR1                              
028787,000249: 24,2235                                           COUNT    24/P41                                
028788,000250: 
028789,000251: 24,2235           05435        P41CSM             TC       UPFLAG                                
028790,000252: 24,2236           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
028791,000253: 
028792,000254: 24,2237           06006                           TC       INTPRET                               
028793,000255: 24,2240           77745                           DLOAD                                          
028794,000256: 24,2241           15332                                    HI6ZEROS                              #  FOR P41 CSTEER =0
028795,000257: 24,2242           03703                           STORE    CSTEER                                
028796,000258: 
028797,000259: 24,2243           43145                           DLOAD    BON                                   
028798,000260: 24,2244           10337                                    FRCS2                                 #  2JET THRUST FOR S40.1
028799,000261: 24,2245           00700                                    NJETSFLG                              
028800,000262: 24,2246           50015                                    P40S/F                                #  NJETS = 1 2-JET
028801,000263: 24,2247           52015                           DAD      GOTO                                  #  NJETS = 0 4-JET
028802,000264: 24,2250           10337                                    FRCS2                                 
028803,000265: 24,2251           50015                                    P40S/F                                
028804,000266: 
028805,000267: 24,2252           41011        P41/P40            CS       MODREG                                
028806,000268: 24,2253           74712                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
028807,000269: 24,2254           00006                           EXTEND                                         
028808,000270: 24,2255           12257                           BZF      +2                                    #  P41
028809,000271: 24,2256           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
028810,000272: 24,2257           00002                           TC       Q                                     
028811,000273: 
028812,000274: 24,2260           34675        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
028813,000275: 24,2261           05027                           TC       NOVAC                                 
028814,000276: 24,2262  E6,1466                                  EBANK=   DAPDATR1                              
028815,000277: 24,2262           02173 50066                     2CADR    TIGNOW                                
028816,000278: 
028817,000279: 24,2264           05447        P40CLK             TC       DOWNFLAG                              
028818,000280: 24,2265           00155                           ADRES    TIMRFLAG                              
028819,000281: 
028820,000282: 24,2266           15213                           TCF      TASKOVER                              
028821,000283: 
028822,000284: 24,2267           32347        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
028823,000285: 24,2270           55145                           TS       NVWORD1                               
028824,000286: 
028825,000287: 24,2271           06006                           TC       INTPRET                               
028826,000288: 24,2272           77624                           CALL                                           #  COMPUTE
028827,000289: 24,2273           50314                                    P40CNV85                              #        VGTIG IN CTRL COORDS
028828,000290: 24,2274           77776                           EXIT                                           
028829,000291: 24,2275           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
028830,000292: 24,2276           32407                           DCA      ACADN85                               
028831,000293: 24,2277           53223                           DXCH     AVEGEXIT                              

Page 645

028833,000295: 24,2300           05261                           TC       2PHSCHNG                              
028834,000296: 24,2301           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
028835,000297: 24,2302           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
028836,000298: 
028837,000299: 24,2303           12106                           TCF      P40S/RS                               
028838,000300: 24,2304           32350        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
028839,000301: 24,2305           55145                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
028840,000302: 24,2306           32342                           CAF      SEC29.96   +1                         
028841,000303: 24,2307           05140                           TC       WAITLIST                              
028842,000304: 24,2310  E6,1466                                  EBANK=   DAPDATR1                              
028843,000305: 24,2310           02260 50066                     2CADR    TTG/0                                 
028844,000306: 
028845,000307: 24,2312           44710                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
028846,000308: 24,2313           12513                           TCF      TTGPHS                                
028847,000309: 24,2314           40220        P40CNV85           STQ      SETPD                                 
028848,000310: 24,2315           03730                                    QTEMP1                                
028849,000311: 24,2316           00001                                    0                                     
028850,000312: 24,2317           41575                           VLOAD    PUSH                                  
028851,000313: 24,2320           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
028852,000314: 24,2321           77624                           CALL                                           
028853,000315: 24,2322           45426                                    S41.1                                 
028854,000316: 24,2323           37665                           STCALL   VGBODY                                
028855,000317: 24,2324           03730                                    QTEMP1                                
028856,000318: 
028857,000319: 24,2325  E6,1466                                  EBANK=   DAPDATR1                              
028858,000320: 24,2325           06006        CALCN85            TC       INTPRET                               
028859,000321: 24,2326           77624                           CALL                                           
028860,000322: 24,2327           51016                                    UPDATEVG                              #  NEW VG, S40.8 (+MAYBE S40.9)
028861,000323: 24,2330           77624                           CALL                                           
028862,000324: 24,2331           50314                                    P40CNV85                              #  COMPUTE VGBODY
028863,000325: 24,2332           77776                           EXIT                                           
028864,000326: 24,2333           03127                           TC       SERVXT                                
028865,000327: 
028866,000328: 24,2334           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
028867,000329: 24,2336           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
028868,000330:                                                                                                  #        B+7 NEWTONS/E+4
028869,000331: 24,2340           04700        SEC24.96           DEC      2496       B-14                       
028870,000332: 24,2341           00000 05664  SEC29.96           2DEC     2996       B-28                       
028871,000333: 24,2343           03410        18SEC              DEC      1800       B-14                       
028872,000334: 24,2344           00204        P40CKLS2           OCT      204                                   
028873,000335: 24,2345           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
028874,000336: 24,2346     4377               OCT12              =        TEN                                   
028875,000337: 24,2346           04123        V1683              VN       1683                                  
028876,000338: 24,2347           01525        V06N85B            VN       0685                                  
028877,000339: 24,2350           04125        V16N85B            VN       1685                                  
028878,000340: 24,2351           01450        V06N40             VN       0640                                  
028879,000341: 24,2352           24020        P40OK99            OCT      24020                                 #  BITS 14,12, AND 5 FOR LINUS VERB 99
028880,000342: 24,2353           04050        V16N40             VN       1640                                  

Page 646

028882,000344: 24,2354           00027        OCT27/24           OCT      27                                    
028883,000345: 24,2355           00053        OCT53              OCT      53                                    
028884,000346: 24,2356           00035        OCT35              OCT      35                                    
028885,000347: 24,2357  E6,1466                                  EBANK=   DAPDATR1                              
028886,000348: 24,2357           03143 12066  T5IDL24            2CADR    T5IDLOC                               
028887,000349: 24,2361           00026        3MDOT              DEC      86.6175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
028888,000350:                                                                                                  #  B+16 KB/SEC (NOTE, EMDOT IS PAD-LOADED,
028889,000351:                                                                                                  #  BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
028890,000352:                                                                                                  #  IT CAN REMAIN IN FIXED MEMORY)
028891,000353: 24,2362           34712        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
028892,000354: 24,2363           12066                           TCF      TRIMONLY   +1                         
028893,000355: 24,2364           32776        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
028894,000356: 24,2365           05140                           TC       WAITLIST                              
028895,000357: 24,2366  E7,1412                                  EBANK=   TIG                                   
028896,000358: 24,2366           02502 50067                     2CADR    TIGAVEG                               
028897,000359: 
028898,000360: 24,2370           34714                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
028899,000361: 24,2371           55145                           TS       NVWORD1                               
028900,000362: 
028901,000363: 24,2372           34761                           CAF      PRIO14                                
028902,000364: 24,2373           05027                           TC       NOVAC                                 
028903,000365: 24,2374  E7,1412                                  EBANK=   TIG                                   
028904,000366: 24,2374           02143 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
028905,000367: 
028906,000368: 24,2376           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
028907,000369: 24,2377           04114        P40TSK             TC       NEWPHASE                              
028908,000370: 24,2400           00004                           OCT      4                                     
028909,000371: 24,2401           05213                           TC       TASKOVER                              
028910,000372: 
028911,000373: 24,2402  E7,1412                                  EBANK=   TIG                                   
028912,000374: 24,2402           02436 50067  ACADN83            2CADR    CALCN83                               
028913,000375: 
028914,000376: 24,2404  E7,1412                                  EBANK=   TIG                                   
028915,000377: 24,2404           03132 76067  SERVCADR           2CADR    SERVEXIT                              
028916,000378: 
028917,000379: 24,2406  E6,1466                                  EBANK=   DAPDATR1                              
028918,000380: 24,2406           02325 50066  ACADN85            2CADR    CALCN85                               
028919,000381: 

Page 647

028921,000383:                                                                                                  #  PROGRAM DESCRIPTION ** P47CSM **
028922,000384: 
028923,000385: 24,2410                                           COUNT    24/P47                                
028924,000386: 
028925,000387: 24,2410  E7,1412                                  EBANK=   TIG                                   
028926,000388: 24,2410           04555        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
028927,000389: 24,2411           17573                           CADR     R02BOTH                               
028928,000390: 24,2412           06006                           TC       INTPRET                               
028929,000391: 24,2413           77624                           CALRB                                          
028930,000392: 24,2414           27573                                    MIDTOAV2                              
028931,000393: 
028932,000394: 24,2415           30155                           CA       MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
028933,000395: 24,2416           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
028934,000396: 24,2417           05140                           TC       WAITLIST                              
028935,000397: 24,2420  E7,1412                                  EBANK=   TIG                                   
028936,000398: 24,2420           02425 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
028937,000399: 
028938,000400: 24,2422           05301                           TC       PHASCHNG                              
028939,000401: 24,2423           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
028940,000402: 24,2424           15112                           TCF      ENDOFJOB                              
028941,000403: 
028942,000404: 24,2425  E7,1672                                  EBANK=   P40TMP                                
028943,000405: 24,2425           00006        TIGON              EXTEND                                         
028944,000406: 24,2426           32403                           DCA      ACADN83                               
028945,000407: 24,2427           53223                           DXCH     AVEGEXIT                              
028946,000408: 24,2430           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
028947,000409: 24,2431           05027                           TC       NOVAC                                 
028948,000410: 24,2432  E7,1412                                  EBANK=   TIG                                   
028949,000411: 24,2432           02461 50067                     2CADR    P47BODY                               
028950,000412: 
028951,000413: 24,2434           44711                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
028952,000414: 24,2435           12513                           TCF      TTGPHS                                
028953,000415: 24,2436  E7,1412                                  EBANK=   TIG                                   
028954,000416: 24,2436           06006        CALCN83            TC       INTPRET                               
028955,000417: 24,2437           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
028956,000418: 24,2440           00001                                    0                                     
028957,000419: 24,2441           53375                           VLOAD    VAD                                   
028958,000420: 24,2442           03665                                    DELVCTL                               
028959,000421: 24,2443           03433                                    DELVREF                               
028960,000422: 24,2444           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
028961,000423: 24,2445           45006                           PUSH     CALL                                  
028962,000424: 24,2446           45426                                    S41.1                                 
028963,000425: 24,2447           37675                           STCALL   DELVIMU                               
028964,000426: 24,2450           70436                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
028965,000427: 24,2451           77776                           EXIT                                           
028966,000428: 24,2452           05301                           TC       PHASCHNG                              
028967,000429: 24,2453           10035                           OCT      10035                                 

Page 648

028969,000431: 24,2454           34715                           CAF      FIVE                                  
028970,000432: 24,2455           05475                           TC       GENTRAN                               
028971,000433: 24,2456           01457                           ADRES    DV47TEMP                              
028972,000434: 24,2457           01664                           ADRES    DELVCTL                               
028973,000435: 
028974,000436: 24,2460           03127                           TC       SERVXT                                
028975,000437: 24,2461           06006        P47BODY            TC       INTPRET                               
028976,000438: 24,2462           77775                           VLOAD                                          
028977,000439: 24,2463           15332                                    HI6ZEROS                              
028978,000440: 24,2464           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
028979,000441: 24,2465           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
028980,000442: 24,2466           77776                           EXIT                                           
028981,000443: 24,2467           34762        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
028982,000444: 24,2470           05103                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
028983,000445: 24,2471           05301                           TC       PHASCHNG                              
028984,000446: 24,2472           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
028985,000447: 24,2473           15000                           OCT      15000                                 #  PRIO 15
028986,000448: 24,2474           32346        P47/DSP            CAF      V1683                                 
028987,000449: 24,2475           04555                           TC       BANKCALL                              
028988,000450: 24,2476           20624                           CADR     GOFLASH                               
028989,000451: 24,2477           04106                           TC       GOTOPOOH                              
028990,000452: 24,2500           04106                           TC       GOTOPOOH                              
028991,000453: 24,2501           12461                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
028992,000454: 

Page 649

028994,000456:                                                                                                  #  ROUTINE ** TIG-30 ** DESCRIPTION
028995,000457: 
028996,000458: 24,2502  E7,1412                                  EBANK=   TIG                                   
028997,000459: 24,2502                                           COUNT    24/P40                                
028998,000460: 
028999,000461: 24,2502           02252        TIGAVEG            TC       P41/P40                               #  TASK (4.37 PROTECTS)
029000,000462: 24,2503           12304                           TCF      P41REDSP                              #  P41
029001,000463: 
029002,000464: 24,2504           32351                           CAF      V06N40                                #  UNBLANK DISPLAY
029003,000465: 24,2505           55145                           TS       NVWORD1                               
029004,000466: 
029005,000467: 24,2506           32340                           CAF      SEC24.96                              
029006,000468: 24,2507           05140                           TC       WAITLIST                              
029007,000469: 24,2510  E7,1412                                  EBANK=   TIG                                   
029008,000470: 24,2510           02521 50067                     2CADR    TIG-5                                 
029009,000471: 
029010,000472: 24,2512           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
029011,000473: 24,2513           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
029012,000474: 24,2514           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
029013,000475: 
029014,000476: 24,2515           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
029015,000477: 24,2516           15213                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
029016,000478: 24,2517           04574                           TC       POSTJUMP                              
029017,000479: 24,2520           76604                           CADR     PREREAD                               
029018,000480: 

Page 650

029020,000482:                                                                                                  #  ROUTINE ** TIG-5 ** DESCRIPTION
029021,000483: 
029022,000484: 24,2521  E7,1412                                  EBANK=   TIG                                   
029023,000485: 24,2521           32776        TIG-5              CAF      5SEC                                  
029024,000486: 24,2522           05140                           TC       WAITLIST                              
029025,000487: 24,2523  E6,1466                                  EBANK=   DAPDATR1                              
029026,000488: 24,2523           02537 50066                     2CADR    TIG-0                                 
029027,000489: 
029028,000490: 24,2525           44702                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
029029,000491: 24,2526           55145                           TS       NVWORD1                               
029030,000492: 
029031,000493: 24,2527           05261                           TC       2PHSCHNG                              
029032,000494: 24,2530           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
029033,000495: 24,2531           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
029034,000496: 
029035,000497: 24,2532           34675                           CAF      PRIO20                                
029036,000498: 24,2533           05042                           TC       FINDVAC                               
029037,000499: 24,2534  E7,1427                                  EBANK=   TGO                                   
029038,000500: 24,2534           02404 34067                     2CADR    S40.13                                
029039,000501: 
029040,000502: 24,2536           15213                           TCF      TASKOVER                              
029041,000503: 

Page 651

029043,000505:                                                                                                  #  ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
029044,000506: 
029045,000507: 24,2537  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
029046,000508: 24,2537           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
029047,000509: 24,2540           74676                           MASK     BIT13                                 
029048,000510: 24,2541           26103                           ADS      FLAGWRD7                              
029049,000511: 
029050,000512: 24,2542           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
029051,000513: 24,2543           74677                           MASK     BIT12                                 
029052,000514: 24,2544           00006                           EXTEND                                         
029053,000515: 24,2545           15213                           BZF      TASKOVER                              #  WAIT FOR V99P
029054,000516: 
029055,000517: 24,2546           32351                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
029056,000518: 24,2547           55145                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
029057,000519: 
029058,000520: 24,2550           05301                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
029059,000521: 24,2551           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
029060,000522: 
029061,000523: 24,2552           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
029062,000524: 24,2553           55450                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
029063,000525: 24,2554           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
029064,000526: 24,2555           30025                           DCA      TIME2                                 #        FOR RESTARTS
029065,000527: 24,2556           53337                           DXCH     TEVENT                                
029066,000528: 24,2557           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
029067,000529: 24,2560           74704                           MASK     BIT7                                  
029068,000530: 24,2561           26101                           ADS      FLAGWRD5                              
029069,000531: 24,2562           34676        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
029070,000532: 24,2563           00006                           EXTEND                                         
029071,000533: 24,2564           05011                           WOR      DSALMOUT                              
029072,000534: 
029073,000535: 24,2565           34702        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
029074,000536: 24,2566           70076                           MASK     FLAGWRD2                              
029075,000537: 24,2567           10000                           CCS      A                                     
029076,000538: 24,2570           12655                           TCF      IMPLBURN                              #  IMPULSIVE
029077,000539: 24,2571           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
029078,000540: 24,2572           74676                           MASK     BIT13                                 
029079,000541: 24,2573           26102                           ADS      FLAGWRD6                              
029080,000542: 
029081,000543: 24,2574           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
029082,000544: 24,2575           70102                           MASK     FLAGWRD6                              
029083,000545: 24,2576           54102                           TS       FLAGWRD6                              
029084,000546: 
029085,000547: 24,2577           00006                           EXTEND                                         #  KILL RCS
029086,000548: 24,2600           32360                           DCA      T5IDL24                               
029087,000549: 24,2601           53313                           DXCH     T5LOC                                 
029088,000550: 
029089,000551: 24,2602           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
029090,000552: 24,2603           04114                           TC       NEWPHASE                              
029091,000553: 24,2604           00004                           OCT      4                                     
029092,000554: 

Page 652

029094,000556: 24,2605           05156                           TC       FIXDELAY                              
029095,000557: 24,2606           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
029096,000558: 
029097,000559: 24,2607           44712        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
029098,000560: 24,2610           55654                           TS       TVCPHASE                              
029099,000561: 24,2611           34714                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
029100,000562: 24,2612           55661                           TS       TVCEXPHS                              
029101,000563: 24,2613           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER ....
029102,000564: 24,2614           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
029103,000565: 24,2615           64674                           AD       BIT15                                 
029104,000566: 24,2616           54102                           TS       FLAGWRD6                              
029105,000567: 
029106,000568: 24,2617           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
029107,000569: 24,2620           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
029108,000570: 24,2621           40000                           COM                                            
029109,000571: 24,2622           52765                           DXCH     -PHASE6                               
029110,000572: 
029111,000573: 24,2623           44715                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
029112,000574: 24,2624           04114                           TC       NEWPHASE                              
029113,000575: 24,2625           00004                           OCT      4                                     
029114,000576: 
029115,000577: 24,2626           34672                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
029116,000578: 24,2627           54030                           TS       TIME5                                 
029117,000579: 24,2630           00006                           EXTEND                                         
029118,000580: 24,2631           33001                           DCA      TVCON2C                               #  (TVCDAPON)
029119,000581: 24,2632           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
029120,000582: 
029121,000583: 24,2633           05156                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
029122,000584: 24,2634           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
029123,000585: 
029124,000586: 24,2635           34676        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
029125,000587: 24,2636           70102                           MASK     FLAGWRD6                              
029126,000588: 24,2637           10000                           CCS      A                                     
029127,000589: 24,2640           02646                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
029128,000590: 24,2641           02651                           TCR      ULAGEOFF                              #  ULLAGE OFF (ONLY, OR AGAIN)
029129,000591: 
029130,000592: 24,2642           00006                           EXTEND                                         
029131,000593: 24,2643           34714                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0,+0)
029132,000594: 24,2644           52761                           DXCH     -PHASE4                               
029133,000595: 
029134,000596: 24,2645           15213        ENDIGN             TCF      TASKOVER                              
029135,000597: 24,2646           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
029136,000598: 24,2647           74700                           MASK     BIT11                                 
029137,000599: 24,2650           26076                           ADS      FLAGWRD2                              
029138,000600: 
029139,000601: 24,2651           34714        ULAGEOFF           CAF      ZERO                                  
029140,000602: 24,2652           00006                           EXTEND                                         
029141,000603: 24,2653           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5

Page 653

029143,000605: 24,2654           00002                           TC       Q                                     
029144,000606: 24,2655           44676        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
029145,000607: 24,2656           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
029146,000608: 24,2657           54102                           TS       FLAGWRD6                              
029147,000609: 
029148,000610: 24,2660           03304                           TCR      E7SETTER                              
029149,000611: 
029150,000612: 24,2661  E7,1412                                  EBANK=   TIG                                   
029151,000613: 24,2661           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
029152,000614: 24,2662           31430                           DCA      TGO                                   
029153,000615: 24,2663           53413                           DXCH     TIG                                   
029154,000616: 24,2664           00006                           EXTEND                                         
029155,000617: 24,2665           30025                           DCA      TIME2                                 
029156,000618: 24,2666           21413                           DAS      TIG                                   
029157,000619: 
029158,000620: 24,2667           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
029159,000621: 24,2670           05140                           TC       WAITLIST                              
029160,000622: 24,2671  E7,1427                                  EBANK=   TGO                                   
029161,000623: 24,2671           02706 50067                     2CADR    ENGINOFF                              
029162,000624: 
029163,000625: 24,2673           05261                           TC       2PHSCHNG                              #  PROTECT ....
029164,000626: 24,2674           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
029165,000627: 24,2675           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029166,000628: 24,2676           77777                           DEC      -0         B-14                       #  -0 CS
029167,000629: 
029168,000630: 24,2677           44702                           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
029169,000631: 24,2700           70076                           MASK     FLAGWRD2                              
029170,000632: 24,2701           54076                           TS       FLAGWRD2                              
029171,000633: 
029172,000634: 24,2702           03307                           TCR      E6SETTER                              
029173,000635: 24,2703  E6,1466                                  EBANK=   DAPDATR1                              
029174,000636: 
029175,000637: 24,2703           34714                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
029176,000638: 24,2704           55444                           TS       V97VCNTR                              #        BACK) ARRIVES BEFORE TVCDAPON
029177,000639: 
029178,000640: 24,2705           12574                           TCF      PREPTVC                               
029179,000641: 24,2706  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
029180,000642: 24,2706           03307        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
029181,000643: 24,2707  E6,1466                                  EBANK=   DAPDATR1                              
029182,000644: 24,2707           31474                           CAE      CSMMASS                               
029183,000645: 24,2710           55662                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK
029184,000646: 24,2711           05261                           TC       2PHSCHNG                              
029185,000647: 24,2712           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
029186,000648: 24,2713           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF (-0CS)
029187,000649: 24,2714           02737        DOSPSOFF           TCR      SPSOFF                                #  SHUTDOWN SPS, MASS UPDATES, ETC.
029188,000650: 24,2715           42354                           CS       OCT27/24                              #  (OCTAL 27)

Page 654

029190,000652: 24,2716           04114                           TC       NEWPHASE                              
029191,000653: 24,2717           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
029192,000654: 
029193,000655: 24,2720           05156                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
029194,000656: 24,2721           00372                           DEC      250        B-14                       
029195,000657: 
029196,000658: 24,2722           02227        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
029197,000659: 
029198,000660: 24,2723           04633                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
029199,000661: 24,2724           42010                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
029200,000662: 
029201,000663: 24,2725           04633                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
029202,000664: 24,2726           13207                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
029203,000665: 
029204,000666: 24,2727           03003                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
029205,000667: 
029206,000668: 24,2730           05301                           TC       PHASCHNG                              
029207,000669: 24,2731           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
029208,000670: 24,2732           34603                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
029209,000671: 24,2733           05027                           TC       NOVAC                                 
029210,000672: 24,2734  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
029211,000673: 24,2734           02155 50066                     2CADR    POSTBURN                              
029212,000674: 
029213,000675: 24,2736           15213                           TCF      TASKOVER                              
029214,000676: 
029215,000677: 24,2737  E6,1466                                  EBANK=   DAPDATR1                              
029216,000678: 24,2737           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
029217,000679: 24,2740           30025                           DCA      TIME2                                 
029218,000680: 24,2741           53337                           DXCH     TEVENT                                
029219,000681: 24,2742           44704                           CS       BIT7                                  #  RESET ENGONFLG
029220,000682: 24,2743           70101                           MASK     FLAGWRD5                              
029221,000683: 24,2744           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
029222,000684: 24,2745           44676                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
029223,000685: 24,2746           00006                           EXTEND                                         
029224,000686: 24,2747           03011                           WAND     DSALMOUT                              
029225,000687: 
029226,000688: 24,2750           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
029227,000689:                                                                                                  #        V97VCNTR = VCNTR UNLESS V97 IS
029228,000690:                                                                                                  #        ACTIVE.  ONLY V97VCNTR IS THEN RIGHT
029229,000691: 24,2751           00006                           EXTEND                                         #  VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
029230,000692: 24,2752           70110                           MP       EMDOT                                 #        MDOT, SC.AT B+3 KG/CS
029231,000693: 24,2753           22000                           LXCH     A                                     
029232,000694: 24,2754           00006                           EXTEND                                         
029233,000695: 24,2755           74734                           MP       1SEC                                  #  DEC 100
029234,000696: 24,2756           61662                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
029235,000697: 24,2757           55474                           TS       CSMMASS                               #        (1.44 KG OR 0.4 BITS)
029236,000698: 
029237,000699: 24,2760           34674        BESTTRIM           CAF      BIT15                                 #  CHECK FOR SWITCHOVER, SELECT BEST TRIMS
029238,000700: 24,2761           70105                           MASK     FLAGWRD9                              #        FOR NEXT IGNITION (OR REIGNITION)
029239,000701: 24,2762           00006                           EXTEND                                         

Page 655

029241,000703: 24,2763           12765                           BZF      DBARTRIM                              #  PRE-SWITCHOVER
029242,000704: 24,2764           00002                           TC       Q                                     #  POST-SWITCHOVER, SO LEAVE TRIMS AS ARE
029243,000705: 
029244,000706: 24,2765           31621        DBARTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELP,YBAR
029245,000707: 24,2766           55425                           TS       PACTOFF                               
029246,000708: 24,2767           31623                           CAE      DELYBAR                               
029247,000709: 24,2770           55426                           TS       YACTOFF                               
029248,000710: 24,2771           00002                           TC       Q                                     
029249,000711: 
029250,000712: 24,2772  E6,1466                                  EBANK=   DAPDATR1                              
029251,000713: 24,2772           03117 50066  STEERADS           2CADR    STEERING                              
029252,000714: 
029253,000715: 24,2774           37703        .6SECT5            OCT      37703                                 
029254,000716: 24,2775           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
029255,000717: 24,2776           00764        5SEC               DEC      500        B-14                       
029256,000718: 24,2777           02202        OCT02202           OCT      02202                                 #  BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
029257,000719: 24,3000  E6,1466                                  EBANK=   DAPDATR1                              
029258,000720: 24,3000           02030 36066  TVCON2C            2CADR    TVCDAPON                              
029259,000721: 
029260,000722: 24,3002           00004                 -1        INHINT                                         
029261,000723: 24,3003           42777        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
029262,000724: 24,3004           00006                           EXTEND                                         #        OPTICS DAC
029263,000725: 24,3005           03012                           WAND     CHAN12                                
029264,000726: 24,3006           44712                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR .... PERMIT
029265,000727: 24,3007           55303                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
029266,000728: 24,3010           34714                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
029267,000729: 24,3011           55145                           TS       NVWORD1                               
029268,000730: 24,3012           44700                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
029269,000731: 24,3013           70103                           MASK     FLAGWRD7                              
029270,000732: 24,3014           54103                           TS       FLAGWRD7                              
029271,000733: 24,3015           00002                           TC       Q                                     
029272,000734: 24,3016  E6,1466                                  EBANK=   DAPDATR1                              
029273,000735: 24,3016           43020        UPDATEVG           STQ      BON                                   
029274,000736: 24,3017           03730                                    QTEMP1                                
029275,000737: 24,3020           01307                                    XDELVFLG                              
029276,000738: 24,3021           51045                                    CALL40.8                              
029277,000739: 
029278,000740: 24,3022           50135                           SLOAD    BMN                                   
029279,000741: 24,3023           03347                                    NBRCYCLS                              
029280,000742: 24,3024           51051                                    SETUP.9                               
029281,000743: 
029282,000744: 24,3025           53375                           VLOAD    VAD                                   
029283,000745: 24,3026           03351                                    DELVSUM                               
029284,000746: 24,3027           03433                                    DELVREF                               
029285,000747: 24,3030           03357                           STORE    DELVSUMP                              
029286,000748: 24,3031           77776                           EXIT                                           
029287,000749: 24,3032           34712                           CA       ONE                                   
029288,000750: 24,3033           61746                           AD       NBRCYCLS                              
029289,000751: 24,3034           55747                           TS       NBRCYCLP                              

Page 656

029291,000753: 24,3035           05301                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
029292,000754: 24,3036           10035                           OCT      10035                                 
029293,000755: 
029294,000756: 24,3037           31747                           CA       NBRCYCLP                              
029295,000757: 24,3040           55746                           TS       NBRCYCLS                              
029296,000758: 24,3041           06006                           TC       INTPRET                               
029297,000759: 24,3042           77775                           VLOAD                                          
029298,000760: 24,3043           03357                                    DELVSUMP                              
029299,000761: 24,3044           03351                           STORE    DELVSUM                               
029300,000762: 
029301,000763: 24,3045           77624        CALL40.8           CALL                                           
029302,000764: 24,3046           34130                                    S40.8                                 
029303,000765: 24,3047           77650                           GOTO                                           
029304,000766: 24,3050           03730                                    QTEMP1                                
029305,000767: 
029306,000768: 24,3051           67214        SETUP.9            BON      SLOAD                                 
029307,000769: 24,3052           01310                                    FIRSTFLG                              
029308,000770: 24,3053           51066                                    SURELY.9                              
029309,000771: 24,3054           03350                                    NBRCYCLP                              
029310,000772: 24,3055           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
029311,000773: 24,3056           00047                                    X1                                    
029312,000774: 24,3057           03705                                    BDT                                   
029313,000775: 24,3060           53257                           VSR*     VAD                                   
029314,000776: 24,3061           20563                                    0          -14D,1                     
029315,000777: 24,3062           03646                                    VGTEMP                                
029316,000778: 24,3063           77651                           VSU                                            
029317,000779: 24,3064           03351                                    DELVSUM                               
029318,000780: 24,3065           03721                           STORE    VGPREV                                
029319,000781: 24,3066           77776        SURELY.9           EXIT                                           
029320,000782: 24,3067           34676                           CAF      PRIO10                                
029321,000783: 24,3070           05042                           TC       FINDVAC                               
029322,000784: 24,3071  E6,1466                                  EBANK=   DAPDATR1                              
029323,000785: 24,3071           02257 34066                     2CADR    S40.9                                 
029324,000786: 
029325,000787: 24,3073           05261                           TC       2PHSCHNG                              
029326,000788: 24,3074           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
029327,000789: 24,3075           10035                           OCT      10035                                 
029328,000790: 24,3076           06006                           TC       INTPRET                               
029329,000791: 24,3077           77775                           VLOAD                                          
029330,000792: 24,3100           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
029331,000793: 24,3101           27570                           STOVL    RINIT                                 
029332,000794: 24,3102           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
029333,000795: 24,3103           17576                           STODL    VINIT                                 
029334,000796: 24,3104           01205                                    PIPTIME                               
029335,000797: 24,3105           03474                           STORE    TNIT                                  
029336,000798: 24,3106           77621                           BDSU                                           
029337,000799: 24,3107           03656                                    TPASS4                                
029338,000800: 24,3110           27423                           STOVL    DELLT4                                
029339,000801: 24,3111           15332                                    HI6ZEROS                              
029340,000802: 24,3112           17351                           STODL    DELVSUM                               

Page 657

029342,000804: 24,3113           15332                                    HI6ZEROS                              
029343,000805: 24,3114           03347                           STORE    NBRCYCLS                              
029344,000806: 24,3115           77650                           GOTO                                           
029345,000807: 24,3116           51045                                    CALL40.8                              
029346,000808: 24,3117  E6,1466                                  EBANK=   DAPDATR1                              
029347,000809: 24,3117           06006        STEERING           TC       INTPRET                               
029348,000810: 24,3120           77624                           CALL                                           
029349,000811: 24,3121           51016                                    UPDATEVG                              
029350,000812: 24,3122           77776                           EXIT                                           
029351,000813: 24,3123           34702                           CAF      BIT9                                  #  CHECK IMPULSW
029352,000814: 24,3124           70076                           MASK     FLAGWRD2                              
029353,000815: 24,3125           10000                           CCS      A                                     
029354,000816: 24,3126           13131                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
029355,000817: 24,3127           04574        SERVXT             TC       POSTJUMP                              
029356,000818: 24,3130           77132                           CADR     SERVEXIT                              
029357,000819: 24,3131           34676                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
029358,000820: 24,3132           00006                           EXTEND                                         
029359,000821: 24,3133           02011                           RAND     DSALMOUT                              
029360,000822: 24,3134           00006                           EXTEND                                         
029361,000823: 24,3135           13127                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
029362,000824: 24,3136           03304                           TCR      E7SETTER                              
029363,000825: 24,3137  E7,1412                                  EBANK=   TIG                                   
029364,000826: 24,3137           00004                           INHINT                                         
029365,000827: 24,3140           00006                           EXTEND                                         
029366,000828: 24,3141           31413                           DCA      TIG                                   
029367,000829: 24,3142           52155                           DXCH     MPAC                                  
029368,000830: 24,3143           00006                           EXTEND                                         
029369,000831: 24,3144           40025                           DCS      TIME2                                 
029370,000832: 24,3145           20155                           DAS      MPAC                                  
029371,000833: 24,3146           07224                           TCR      DPAGREE                               
029372,000834: 24,3147           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
029373,000835: 24,3150           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
029374,000836: 24,3151           13154                           TCF      +3                                    
029375,000837: 24,3152           13154                           TCF      +2                                    
029376,000838: 24,3153           34714                           CAF      ZERO                                  
029377,000839: 24,3154           64712                           AD       ONE                                   
029378,000840: 24,3155           56001                           XCH      L                                     
029379,000841: 24,3156           34714                           CA       ZERO                                  
029380,000842: 24,3157           53430                           DXCH     TGO                                   
029381,000843: 24,3160           31430                           CA       TGO        +1                         
029382,000844: 24,3161           05140                           TC       WAITLIST                              
029383,000845: 24,3162  E7,1427                                  EBANK=   TGO                                   
029384,000846: 24,3162           02706 50067                     2CADR    ENGINOFF                              
029385,000847: 
029386,000848: 24,3164           05261                           TC       2PHSCHNG                              
029387,000849: 24,3165           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
029388,000850: 24,3166           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
029389,000851: 24,3167           05447                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
029390,000852: 24,3170           00044                           ADRES    IMPULSW                               #  RESTARTS OK

Page 658

029392,000854: 24,3171           13127                           TCF      SERVXT                                
029393,000855: 

Page 659

029395,000857:                                                                                                  #  ROUTINE ** CLOKTASK ** DESCRIPTION
029396,000858: 
029397,000859: 24,3172  E7,1412                                  EBANK=   TIG                                   
029398,000860: 24,3172           34700        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
029399,000861: 24,3173           70103                           MASK     FLAGWRD7                              
029400,000862: 24,3174           10000                           CCS      A                                     
029401,000863: 24,3175           13201                           TCF      CLOCKON                               
029402,000864: 24,3176           05301                           TC       PHASCHNG                              
029403,000865: 24,3177           00006                           OCT      00006                                 #  KILL RESTART
029404,000866: 24,3200           05213                           TC       TASKOVER                              
029405,000867: 
029406,000868: 24,3201           00006        CLOCKON            EXTEND                                         
029407,000869: 24,3202           30025                           DCA      TIME2                                 
029408,000870: 24,3203           53661                           DXCH     TTOGO                                 
029409,000871: 24,3204           00006                           EXTEND                                         
029410,000872: 24,3205           41413                           DCS      TIG                                   
029411,000873: 24,3206           21661                           DAS      TTOGO                                 
029412,000874: 
029413,000875: 24,3207           34734        SETCLOCK           CAF      1SEC                                  
029414,000876: 24,3210           05140                           TC       WAITLIST                              
029415,000877: 24,3211  E7,1412                                  EBANK=   TIG                                   
029416,000878: 24,3211           03172 50067                     2CADR    CLOKTASK                              
029417,000879: 
029418,000880: 24,3213           11145                           CCS      NVWORD1                               
029419,000881: 24,3214           13217                           TCF      +3                                    
029420,000882: 24,3215           13227                           TCF      SETTB6                                
029421,000883: 
029422,000884: 24,3216           13217                           TCF      +1                                    
029423,000885: 24,3217           42347                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
029424,000886: 24,3220           61145                           AD       NVWORD1                               
029425,000887: 24,3221           00006                           EXTEND                                         
029426,000888: 24,3222           13232                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
029427,000889: 
029428,000890: 24,3223           37664                           CAF      PRIO27                                
029429,000891: 24,3224           05027                           TC       NOVAC                                 
029430,000892: 24,3225  E6,1466                                  EBANK=   DAPDATR1                              
029431,000893: 24,3225           03244 50066                     2CADR    CLOCKJOB                              
029432,000894: 
029433,000895: 24,3227           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
029434,000896: 24,3230           55065                           TS       TBASE6                                
029435,000897: 24,3231           15213                           TCF      TASKOVER                              
029436,000898: 
029437,000899: 24,3232           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
029438,000900: 24,3233           05042                           TC       FINDVAC                               
029439,000901: 24,3234  E6,1466                                  EBANK=   DAPDATR1                              
029440,000902: 24,3234           03237 50066                     2CADR    DYNDISP                               
029441,000903: 
029442,000904: 24,3236           13227                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK

Page 660

029444,000906: 24,3237           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
029445,000907: 24,3240           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
029446,000908: 24,3241           50314                                    P40CNV85                              
029447,000909: 24,3242           77776                           EXIT                                           
029448,000910: 24,3243           13254                           TCF      CKNVWRD1                              
029449,000911: 

Page 661

029451,000913:                                                                                                  #  ROUTINE ** CLOCKJOB ** DESCRIPTION
029452,000914: 
029453,000915: 24,3244  E6,1466                                  EBANK=   DAPDATR1                              
029454,000916: 24,3244           30032        CLOCKJOB           CA       CDUX                                  
029455,000917: 24,3245           54772                           TS       CDUSPOTX                              
029456,000918: 24,3246           30033                           CA       CDUY                                  
029457,000919: 24,3247           54766                           TS       CDUSPOTY                              
029458,000920: 24,3250           30034                           CA       CDUZ                                  
029459,000921: 24,3251           54770                           TS       CDUSPOTZ                              
029460,000922: 24,3252           04555                           TC       BANKCALL                              
029461,000923: 24,3253           47510                           CADR     QUICTRIG                              
029462,000924: 24,3254           00004        CKNVWRD1           INHINT                                         
029463,000925: 24,3255           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
029464,000926: 24,3256           13301                           TCF      NOFLASH                               
029465,000927: 24,3257           15112                           TCF      ENDOFJOB                              
029466,000928: 24,3260           13270                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
029467,000929: 24,3261           32351        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
029468,000930: 24,3262           04555                           TC       BANKCALL                              
029469,000931: 24,3263           20763                           CADR     GOFLASHR                              #  LINUS MAKES IT A REDO, INHINT OK
029470,000932: 24,3264           13350                           TCF      V97T                                  #  TERMINATE
029471,000933: 24,3265           13403                           TCF      V97P                                  #  PROCEED
029472,000934: 24,3266           13432                           TCF      V97E                                  #  ENTER
029473,000935: 24,3267           13276                           TCF      PASTERET                              
029474,000936: 
029475,000937: 24,3270           32351        ENGREQST           CAF      V06N40                                
029476,000938: 24,3271           04555                           TC       BANKCALL                              
029477,000939: 24,3272           20763                           CADR     GOFLASHR                              #  LINUS MAKES IT A REDO, INHINT OK
029478,000940: 24,3273           13320                           TCF      V99T                                  #  TERMINATE
029479,000941: 24,3274           13326                           TCF      V99P                                  #  PROCEED
029480,000942: 24,3275           13312                           TCF      V99E                                  #  ENTER
029481,000943: 
029482,000944: 24,3276           32352        PASTERET           CAF      P40OK99                               #  IMMED RETURN - SET UP V99 OR V97
029483,000945: 24,3277           05415                           TCR      LINUS                                 
029484,000946: 24,3300           15112                           TCF      ENDOFJOB                              
029485,000947: 24,3301           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
029486,000948: 24,3302           04555                           TC       BANKCALL                              
029487,000949: 24,3303           20616                           CADR     REGODSP                               
029488,000950: 24,3304           34753        E7SETTER           CAF      EBANK7                                
029489,000951: 24,3305           54003                           TS       EBANK                                 
029490,000952: 24,3306  E7,1412                                  EBANK=   TIG                                   
029491,000953: 24,3306           00002                           TC       Q                                     
029492,000954: 
029493,000955: 24,3307           34752        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
029494,000956: 24,3310           54003                           TS       EBANK                                 
029495,000957: 24,3311  E6,1466                                  EBANK=   DAPDATR1                              

Page 662

029497,000959: 24,3311           00002                           TC       Q                                     
029498,000960: 
029499,000961: 24,3312  E6,1466                                  EBANK=   DAPDATR1                              
029500,000962: 24,3312           05261        V99E               TC       2PHSCHNG                              
029501,000963: 24,3313           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
029502,000964: 24,3314           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
029503,000965: 24,3315           27000                           OCT      27000                                 
029504,000966: 24,3316           03002        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
029505,000967: 24,3317           12163                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
029506,000968: 
029507,000969: 24,3320  E6,1466                                  EBANK=   DAPDATR1                              
029508,000970: 24,3320           05261        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
029509,000971: 24,3321           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
029510,000972: 24,3322           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
029511,000973: 24,3323           27000                           OCT      27000                                 
029512,000974: 24,3324           03002        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
029513,000975: 24,3325           12204                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
029514,000976: 24,3326           00004        V99P               INHINT                                         
029515,000977: 24,3327           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
029516,000978: 24,3330           74677                           MASK     BIT12                                 
029517,000979: 24,3331           10000                           CCS      A                                     
029518,000980: 24,3332           13345                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
029519,000981: 
029520,000982: 24,3333           34677        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
029521,000983: 24,3334           26103                           ADS      FLAGWRD7                              
029522,000984: 24,3335           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
029523,000985: 24,3336           74676                           MASK     BIT13                                 
029524,000986: 24,3337           00006                           EXTEND                                         
029525,000987: 24,3340           13345                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
029526,000988: 
029527,000989: 24,3341           34712        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
029528,000990: 24,3342           05140                           TC       WAITLIST                              #  SET UP IGNITION HERE
029529,000991: 24,3343  E6,1466                                  EBANK=   DAPDATR1                              
029530,000992: 24,3343           02552 50066                     2CADR    IGNITION                              
029531,000993: 
029532,000994: 24,3345           32351        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
029533,000995: 24,3346           55145                           TS       NVWORD1                               
029534,000996: 24,3347           15112        ENDV99P            TCF      ENDOFJOB                              
029535,000997: 
029536,000998: 24,3350  E6,1474                                  EBANK=   CSMMASS                               
029537,000999: 24,3350           05261        V97T               TC       2PHSCHNG                              
029538,001000: 24,3351           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
029539,001001: 24,3352           40674                           OCT      40674                                 #  A, 4.67 = V97TTASK (-0 CS), TBASE NOW
029540,001002: 24,3353           34712                           CAF      BIT1                                  
029541,001003: 24,3354           05130                           TC       TWIDDLE                               
029542,001004: 24,3355           03357                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
029543,001005: 24,3356           15112                           TCF      ENDOFJOB                              
029544,001006: 

Page 663

029546,001008: 24,3357  E6,1474                                  EBANK=   CSMMASS                               
029547,001009: 24,3357           34714        V97TTASK           CAF      ZERO                                  #  DISABLE CLOCKJOB
029548,001010: 24,3360           55145                           TS       NVWORD1                               
029549,001011: 24,3361           32361                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
029550,001012: 24,3362           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
029551,001013: 24,3363           55662                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK
029552,001014: 24,3364           05301                           TC       PHASCHNG                              
029553,001015: 24,3365           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029554,001016: 24,3366           77777                           DEC      -0         B-14                       #  -0 CS
029555,001017: 
029556,001018: 24,3367           02737                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
029557,001019: 24,3370           05301                           TC       PHASCHNG                              
029558,001020: 24,3371           00714                           OCT      00714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE OLD
029559,001021: 24,3372           05156                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
029560,001022: 24,3373           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
029561,001023: 
029562,001024: 24,3374  E6,1466                                  EBANK=   DAPDATR1                              
029563,001025: 24,3374           04633        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029564,001026: 24,3375           42010                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
029565,001027: 24,3376           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
029566,001028: 24,3377           05027                           TC       NOVAC                                 #        MAXDB AND GOTOPOOH)
029567,001029: 24,3400  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
029568,001030: 24,3400           03320 50066                     2CADR    V99T                                  
029569,001031: 
029570,001032: 24,3402           15213        ENDV97T            TCF      TASKOVER                              
029571,001033: 24,3403  E6,1444                                  EBANK=   V97VCNTR                              
029572,001034: 24,3403           05301        V97P               TC       PHASCHNG                              
029573,001035: 24,3404           40734                           OCT      40734                                 #  A, 4.73 = V97PTASK (-0 CS), TBASE NOW
029574,001036: 24,3405           34712                           CAF      BIT1                                  
029575,001037: 24,3406           05130                           TC       TWIDDLE                               
029576,001038: 24,3407           03411                           ADRES    V97PTASK                              
029577,001039: 24,3410           15112                           TCF      ENDOFJOB                              
029578,001040: 
029579,001041: 24,3411  E6,1444                                  EBANK=   V97VCNTR                              
029580,001042: 24,3411           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
029581,001043: 24,3412           55653                           TS       VCNTR                                 #        (ERRORS IF FLASE THRUST-LOSS AND/OR
029582,001044:                                                                                                  #        POOR SYNCH OF MANUAL ENGINE-ON AND
029583,001045:                                                                                                  #        THE VERB 97 PROCEED)
029584,001046: 24,3413           32351                           CAF      V06N40                                #  REDISPLAY V06N40
029585,001047: 24,3414           55145                           TS       NVWORD1                               
029586,001048: 24,3415           05435                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
029587,001049: 24,3416           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE S40.8 SYNCH
029588,001050: 24,3417           05435                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
029589,001051: 24,3420           00042                           ADRES    STEERSW                               
029590,001052: 24,3421           05301                           TC       PHASCHNG                              
029591,001053: 24,3422           00134                           OCT      00134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE OLD
029592,001054: 24,3423           05156                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
029593,001055: 24,3424           00310                           DEC      200        B-14                       

Page 664

029595,001057: 24,3425  E7,1777                                  EBANK=   WHOCARES                              
029596,001058: 24,3425           05447        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
029597,001059: 24,3426           00030                           ADRES    IDLEFAIL                              
029598,001060: 24,3427           05301                           TC       PHASCHNG                              
029599,001061: 24,3430           00004                           OCT      00004                                 #  KILL GROUP 4
029600,001062: 24,3431           15213        ENDV97P            TCF      TASKOVER                              
029601,001063: 24,3432  E7,1777                                  EBANK=   WHOCARES                              
029602,001064: 24,3432           05301        V97E               TC       PHASCHNG                              
029603,001065: 24,3433           40534                           OCT      40534                                 #  A, 4.53 = V97ETASK (-0 CS), TBASE NOW
029604,001066: 24,3434           34712                           CAF      BIT1                                  
029605,001067: 24,3435           05140                           TC       WAITLIST                              
029606,001068: 24,3436  E7,1412                                  EBANK=   TIG                                   
029607,001069: 24,3436           03441 50067                     2CADR    V97ETASK                              
029608,001070: 
029609,001071: 24,3440           15112                           TCF      ENDOFJOB                              
029610,001072: 
029611,001073: 24,3441  E7,1412                                  EBANK=   TIG                                   
029612,001074: 24,3441           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
029613,001075: 24,3442           55412                           TS       TIG                                   
029614,001076: 24,3443           32351                           CAF      V06N40                                #  REDISPLAY V06N40
029615,001077: 24,3444           55145                           TS       NVWORD1                               
029616,001078: 24,3445           03307                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
029617,001079: 24,3446  E6,1474                                  EBANK=   CSMMASS                               
029618,001080: 24,3446           32361                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
029619,001081: 24,3447           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
029620,001082: 24,3450           55662                           TS       MASSTMP                               #        FAILED....COPYCYCLE FOR MASSBACK
029621,001083: 24,3451           05301                           TC       PHASCHNG                              
029622,001084: 24,3452           00754                           OCT      00754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
029623,001085: 24,3453           02737        SPSOFF97           TCR      SPSOFF                                
029624,001086: 24,3454           05301                           TC       PHASCHNG                              
029625,001087: 24,3455           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
029626,001088: 24,3456           05156                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
029627,001089: 24,3457           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
029628,001090: 
029629,001091: 24,3460  E6,1466                                  EBANK=   DAPDATR1                              
029630,001092: 24,3460           34712        V97E40.6           CAF      BIT1                                  
029631,001093: 24,3461           05140                           TC       WAITLIST                              
029632,001094: 24,3462  E6,1447                                  EBANK=   CNTR                                  
029633,001095: 24,3462           02040 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
029634,001096: 
029635,001097: 24,3464           04633                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029636,001098: 24,3465           42010                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
029637,001099:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
029638,001100: 
029639,001101: 24,3466           05261                           TC       2PHSCHNG                              
029640,001102: 24,3467           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
029641,001103: 24,3470           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029642,001104: 24,3471           77777                           DEC      -0         B-14                       #  -0 CS

Page 665

029644,001106: 24,3472           44761        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
029645,001107: 24,3473           70103                           MASK     FLAGWRD7                              #        IMMEDIATE V99 RESPONSE
029646,001108: 24,3474           64676                           AD       BIT13                                 
029647,001109: 24,3475           54103                           TS       FLAGWRD7                              
029648,001110: 24,3476           05156                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6
029649,001111: 24,3477           00036                           DEC      30         B-14                       
029650,001112: 
029651,001113: 24,3500           44702        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
029652,001114: 24,3501           55145                           TS       NVWORD1                               
029653,001115: 24,3502           05261                           TC       2PHSCHNG                              
029654,001116: 24,3503           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
029655,001117: 24,3504           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
029656,001118: 24,3505           34675                           CAF      PRIO20                                #  SET UP TIMEBURN
029657,001119: 24,3506           05042                           TC       FINDVAC                               
029658,001120: 24,3507  E7,1427                                  EBANK=   TGO                                   
029659,001121: 24,3507           02404 34067                     2CADR    S40.13                                
029660,001122: 
029661,001123: 24,3511           15213        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
029662,001124:                                                                                                  #        TO FLASHING V99 RESPONSE
029663,001125: 
029664,001126:                                                                                                  #  MOD NO2                               LOG SECTION P40-P47
029665,001127:                                                                                                  #  MOD BY ZELDIN
029666,001128: 
029667,001129:                                                                                                  #  FUNCTIONAL DESCRIPTION
029668,001130:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
029669,001131:                                                                                                  #        VECTOR(VGTIG).
029670,001132: 
029671,001133:                                                                                                  #  CALLING SEQUENCE
029672,001134:                                                                                                  #        L       CALL
029673,001135:                                                                                                  #        L+1             S40.1
029674,001136: 
029675,001137:                                                                                                  #  NORMAL EXIT MODE
029676,001138:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
029677,001139:                                                                                                  #        ERROR RETURN IF NOSOFLAG =1
029678,001140: 
029679,001141:                                                                                                  #  SUBROUTINES CALLED
029680,001142:                                                                                                  #        CSMPREC
029681,001143:                                                                                                  #        INITVEL
029682,001144:                                                                                                  #        CALCGRAV
029683,001145:                                                                                                  #        MIDGIM
029684,001146: 
029685,001147:                                                                                                  #  ALARM OR ABORT EXIT MODES
029686,001148:                                                                                                  #        L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
029687,001149: 
029688,001150:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029689,001151:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS SP B16 KGM
029690,001152:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
029691,001153:                                                                                                  #    IF DELTA-V MANEUVER
029692,001154:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
029693,001155:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
029694,001156:                                                                                                  #                        AT TIME OF IGNITION             VECTOR B7 M/CS
029695,001157:                                                                                                  #        DELVSAB         MAG. OF DELVSIN                 DP B7 M/CS
029696,001158:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECTOR B29 M
029697,001159:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION    VECTOR B7 M/CS
029698,001160:                                                                                                  #        CSTEER = 0                                      DP

Page 666

029700,001162:                                                                                                  #    IF AIMPOINT STEERING
029701,001163:                                                                                                  #    IF AIMPT STEER
029702,001164:                                                                                                  #        TIG             TIME OF IGNITION                DP B28 CS
029703,001165:                                                                                                  #        RTARG           POSITION TARGET TIME            VECTOR B29 M
029704,001166:                                                                                                  #        CSTEER = ECSTEER (GR 0)                         DP B1
029705,001167:                                                                                                  #        TPASS4 - TIME OF ARRIVAL AT AIMPOINT
029706,001168: 
029707,001169:                                                                                                  #  OUTPUT
029708,001170:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
029709,001171:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
029710,001172:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR B7 M/CS
029711,001173:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.             B7 M/CS
029712,001174:                                                                                                  #        F               NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
029713,001175:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
029714,001176:                                                                                                  #        -GDT            FOR S40.13                              VECT B7 M/CS
029715,001177:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR B29M
029716,001178:                                                                                                  #                        POSITION AT TIME OF IGNITION
029717,001179: 
029718,001180:                                                                                                  #  DEBRIS        QTEMP1
029719,001181:                                                                                                  #                MPAC, QPRET
029720,001182:                                                                                                  #                PUSHLIST
029721,001183:                                                                                                  #                RTX2,RTX1
029722,001184: 
029723,001185: 14,2002                                           BANK     14                                    
029724,001186: 16,2000                                           SETLOC   P40S1                                 
029725,001187: 16,2000                                           BANK                                           
029726,001188: 
029727,001189: 16,2000                                           COUNT    16/S40.1                              
029728,001190: 
029729,001191: 16,2000           77214        S40.1              SET      VLOAD                                 
029730,001192: 16,2001           01070                                    FIRSTFLG                              
029731,001193: 16,2002           11456                                    LO6ZEROS                              
029732,001194: 16,2003           03705                           STORE    BDT                                   
029733,001195: 16,2004           43020                           STQ      BOF                                   
029734,001196: 16,2005           03657                                    QTEMP                                 
029735,001197: 16,2006           01347                                    XDELVFLG                              
029736,001198: 16,2007           34073                                    S40.1B                                #  LAMBERT
029737,001199: 16,2010           77201                           SETPD    VLOAD                                 #  EXTERNAL DELTA V
029738,001200: 16,2011           00001                                    0                                     
029739,001201: 16,2012           03640                                    VTIG                                  
029740,001202: 16,2013           03576                           STORE    VINIT                                 
029741,001203: 16,2014           53435                           VXV      UNIT                                  
029742,001204: 16,2015           03632                                    RTIG                                  
029743,001205: 16,2016           27713                           STOVL    UT                                    #  UP IN UT
029744,001206: 16,2017           03632                                    RTIG                                  
029745,001207: 16,2020           03570                           STORE    RINIT                                 
029746,001208: 16,2021           65236                           VSQ      PDDL                                  
029747,001209: 16,2022           00045                                    36D                                   
029748,001210: 16,2023           56205                           DMP      DDV                                   
029749,001211: 16,2024           34127                                    THETACON                              
029750,001212: 16,2025           41205                           DMP      DMP                                   
029751,001213: 16,2026           03654                                    DELVSAB                               
029752,001214: 16,2027           03076                                    WEIGHT/G                              

Page 667

029754,001216: 16,2030           77671                           DDV                                            
029755,001217: 16,2031           03727                                    F                                     
029756,001218: 16,2032           24017                           STOVL    14D                                   
029757,001219: 16,2033           03646                                    DELVSIN                               
029758,001220: 
029759,001221: 16,2034           74241                           DOT      VXSC                                  
029760,001222: 16,2035           03713                                    UT                                    
029761,001223: 16,2036           03713                                    UT                                    
029762,001224: 16,2037           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
029763,001225: 16,2040           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
029764,001226: 16,2041           03646                                    DELVSIN                               
029765,001227: 16,2042           00017                                    14D                                   
029766,001228: 16,2043           63356                           SIN      PDVL                                  
029767,001229: 16,2044           00007                                    6D                                    
029768,001230: 16,2045           53435                           VXV      UNIT                                  
029769,001231: 16,2046           03713                                    UT                                    
029770,001232: 16,2047           45561                           VXSC     STADR                                 
029771,001233: 16,2050           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
029772,001234: 16,2051           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
029773,001235: 16,2052           00017                                    14D                                   
029774,001236: 16,2053           74346                           COS      VXSC                                  
029775,001237: 16,2054           74255                           VAD      VXSC                                  
029776,001238: 16,2055           03721                                    VGTIG                                 
029777,001239: 16,2056           00045                                    36D                                   
029778,001240: 16,2057           53352                           VSL2     VAD                                   
029779,001241: 16,2060           77626                           STADR                                          
029780,001242: 16,2061           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
029781,001243: 
029782,001244: 16,2062           77656                           UNIT                                           
029783,001245: 16,2063           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
029784,001246: 16,2064           03721                                    VGTIG                                 
029785,001247: 16,2065           43006                           PUSH     SET                                   
029786,001248: 16,2066           01072                                    AVFLAG                                
029787,001249: 16,2067           77624                           CALL                                           
029788,001250: 16,2070           10653                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
029789,001251: 16,2071           77650                           GOTO                                           
029790,001252: 16,2072           03657                                    QTEMP                                 
029791,001253: 16,2073           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
029792,001254: 16,2074           03413                                    TIG                                   
029793,001255: 16,2075           36001                                    TWODT                                 
029794,001256: 16,2076           14041                           STODL    TDEC1                                 
029795,001257: 16,2077           03656                                    TPASS4                                
029796,001258: 16,2100           77625                           DSU                                            
029797,001259: 16,2101           00041                                    TDEC1                                 
029798,001260: 16,2102           37423                           STCALL   DELLT4                                
029799,001261: 16,2103           61663                                    AGAIN                                 
029800,001262: 16,2104           77775                           VLOAD                                          
029801,001263: 16,2105           03612                                    VIPRIME                               
029802,001264: 16,2106           17713                           STODL    UT                                    
029803,001265: 16,2107           03413                                    TIG                                   

Page 668

029805,001267: 16,2110           00041                           STORE    TDEC1                                 
029806,001268: 16,2111           77621                           BDSU                                           
029807,001269: 16,2112           03656                                    TPASS4                                
029808,001270: 16,2113           37423                           STCALL   DELLT4                                
029809,001271: 16,2114           61663                                    AGAIN                                 
029810,001272: 16,2115           41575                           VLOAD    PUSH                                  
029811,001273: 16,2116           03646                                    DELVEET3                              
029812,001274: 16,2117           03721                           STORE    VGTIG                                 
029813,001275: 16,2120           45014                           SET      CALL                                  
029814,001276: 16,2121           01072                                    AVFLAG                                
029815,001277: 16,2122           10653                                    MIDGIM                                
029816,001278: 16,2123           52001                           SETPD    GOTO                                  
029817,001279: 16,2124           00001                                    0                                     
029818,001280: 16,2125           61716                                    CALCUT                                
029819,001281: 
029820,001282: 16,2126           00024 13714  THETACON           2DEC     .31830989  B-8                        
029821,001283: 
029822,001284: 30,2000                                           SETLOC   P40S3                                 
029823,001285: 30,2000                                           BANK                                           
029824,001286: 30,3657                                           COUNT    24/S40.1                              
029825,001287: 
029826,001288: 30,3657           04000 00000  EP4(45)H           2DEC     .125                                  
029827,001289: 30,3661           00707 03434  EP4(10)H           2DEC     .027777777                            
029828,001290: 
029829,001291: 30,3663           45020        AGAIN              STQ      CALL                                  
029830,001292: 30,3664           03730                                    QTEMP1                                
029831,001293: 30,3665           27022                                    THISPREC                              
029832,001294: 30,3666           66134                           SXA,2    SXA,1                                 
029833,001295: 30,3667           03746                                    RTX2                                  
029834,001296: 30,3670           03745                                    RTX1                                  
029835,001297: 30,3671           77775                           VLOAD                                          
029836,001298: 30,3672           00001                                    RATT                                  
029837,001299: 30,3673           03632                           STORE    RTIG                                  
029838,001300: 30,3674           27570                           STOVL    RINIT                                 
029839,001301: 30,3675           00007                                    VATT                                  
029840,001302: 30,3676           03640                           STORE    VTIG                                  
029841,001303: 30,3677           03576                           STORE    VINIT                                 
029842,001304: 30,3700           67201                           SETPD    SLOAD                                 
029843,001305: 30,3701           00001                                    0                                     
029844,001306: 30,3702           15332                                    HI6ZEROS                              
029845,001307: 30,3703           43125                           PDDL     BON                                   
029846,001308: 30,3704           21660                                    EP4(45)H                              
029847,001309: 30,3705           03705                                    NORMSW                                
029848,001310: 30,3706           61711                                    +3                                    
029849,001311: 30,3707           77745                           DLOAD                                          
029850,001312: 30,3710           21662                                    EP4(10)H                              
029851,001313: 30,3711           45006                           PUSH     CALL                                  
029852,001314: 30,3712           22000                                    INITVEL                               

Page 669

029854,001316: 30,3713           52001                           SETPD    GOTO                                  
029855,001317: 30,3714           00001                                    0                                     
029856,001318: 30,3715           03730                                    QTEMP1                                
029857,001319: 30,3716           45175        CALCUT             VLOAD    CALL                                  
029858,001320: 30,3717           03632                                    RTIG                                  
029859,001321: 30,3720           77256                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
029860,001322: 30,3721           70372                           VSL1     V/SC                                  
029861,001323: 30,3722           21761                                    200CS                                 #  G AT 2(-5) M/CS. CS
029862,001324: 30,3723           52315                           PDVL     VSU                                   
029863,001325: 30,3724           03612                                    VIPRIME                               
029864,001326: 30,3725           03713                                    UT                                    
029865,001327: 30,3726           52341                           V/SC     VSU                                   
029866,001328: 30,3727           21761                                    200CS                                 
029867,001329: 30,3730           72561                           VXSC     VSL2                                  
029868,001330: 30,3731           03703                                    CSTEER                                
029869,001331: 30,3732           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
029870,001332: 30,3733           03721                                    VGTIG                                 
029871,001333: 30,3734           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
029872,001334: 
029873,001335: 30,3735           74241                           DOT      VXSC                                  
029874,001336: 30,3736           00015                                    12D                                   
029875,001337: 30,3737           00001                                    0                                     
029876,001338: 30,3740           51352                           VSL2     BVSU                                  
029877,001339: 30,3741           00015                                    12D                                   
029878,001340: 30,3742           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
029879,001341: 30,3743           03727                                    F                                     
029880,001342: 30,3744           56261                           SRR      DDV                                   
029881,001343: 30,3745           21605                                    4                                     
029882,001344: 30,3746           03076                                    WEIGHT/G                              
029883,001345: 30,3747           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
029884,001346: 30,3750           00015                                    12D                                   
029885,001347: 30,3751           77636                           VSQ                                            
029886,001348: 30,3752           75421                           BDSU     SQRT                                  
029887,001349: 30,3753           76561                           VXSC     VSL1                                  
029888,001350: 30,3754           53455                           VAD      UNIT                                  
029889,001351: 30,3755           00015                                    12D                                   
029890,001352: 30,3756           37713                           STCALL   UT                                    
029891,001353: 30,3757           03657                                    QTEMP                                 
029892,001354: 30,3760           01440 00000  200CS              2DEC     200        B-12                       
029893,001355: 

Page 670

029895,001357:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3           DATE 15,NOV,66
029896,001358:                                                                                                  #  MOD NO 2                              LOG SECTION P40-P47
029897,001359:                                                                                                  #  MOD BY ZELDIN
029898,001360: 
029899,001361:                                                                                                  #  FUNCTIONAL DESCRIPTION
029900,001362:                                                                                                  #        
029901,001363:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
029902,001364:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
029903,001365: 
029904,001366:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
029905,001367: 
029906,001368:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
029907,001369:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
029908,001370:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
029909,001371:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
029910,001372:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
029911,001373: 
029912,001374:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
029913,001375: 
029914,001376:                                                                                                  #  CALLING SEQUENCE
029915,001377:                                                                                                  #        L       CALL
029916,001378:                                                                                                  #        L+1             S40.2,3
029917,001379: 
029918,001380:                                                                                                  #  NORMAL EXIT MODE
029919,001381:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
029920,001382: 
029921,001383:                                                                                                  #  SUBROUTINES CALLED
029922,001384:                                                                                                  #        CALCGA
029923,001385: 
029924,001386:                                                                                                  #  ALARM OR ABORT MODES
029925,001387:                                                                                                  #        NONE
029926,001388: 
029927,001389:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029928,001390:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE          SP AT 1.0795111 REV.
029929,001391:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE          SP AT 1.0795111 REV.
029930,001392:                                                                                                  #        UT              DESIRED THRUST DIRECTION        VECT. B2 M/(CS.CS)
029931,001393:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECT. B29 M
029932,001394:                                                                                                  #        ENG2FLAG        ON=RCS  OFF=SPS
029933,001395: 
029934,001396:                                                                                                  #  OUTPUT
029935,001397:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
029936,001398:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
029937,001399:                                                                                                  #        YSCREF
029938,001400:                                                                                                  #        ZSCREF
029939,001401:                                                                                                  #        GIMBAL ANGLES IN THETAD
029940,001402:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
029941,001403: 
029942,001404:                                                                                                  #  DEBRIS
029943,001405:                                                                                                  #        PUSHLIST, QPRET, MPAC
029944,001406:                                                                                                  #        QTEMP   TEMP. ERASABLE
029945,001407: 
029946,001408: 24,3512                                           BANK     24                                    
029947,001409: 24,2000                                           SETLOC   P40S                                  
029948,001410: 24,2000                                           BANK                                           
029949,001411: 24,3512                                           COUNT*   $$/S40.2                              
029950,001412: 
029951,001413: 24,3512           64375        S40.2,3            VLOAD    MXV                                   
029952,001414: 24,3513           03713                                    UT                                    
029953,001415: 24,3514           01736                                    REFSMMAT                              
029954,001416: 24,3515           44172                           VSL1     STQ                                   
029955,001417: 24,3516           03657                                    QTEMP                                 
029956,001418: 24,3517           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
029957,001419: 24,3520           43001                           SETPD    BON                                   
029958,001420: 24,3521           00001                                    0                                     

Page 671

029960,001422: 24,3522           00704                                    ENG2FLAG                              
029961,001423: 24,3523           51633                                    S40.2,3B                              
029962,001424: 24,3524           77745                           DLOAD                                          
029963,001425: 24,3525           15332                                    HI6ZEROS                              
029964,001426: 24,3526           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
029965,001427: 24,3527           03027                                    YACTOFF                               
029966,001428: 24,3530           72405                           DMP      SL1                                   
029967,001429: 24,3531           11672                                    TRIMSCAL                              
029968,001430: 24,3532           41415                           DAD      PUSH                                  
029969,001431: 24,3533           11674                                    YBIAS                                 
029970,001432: 24,3534           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
029971,001433: 24,3535           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
029972,001434: 24,3536           77735                           SLOAD                                          
029973,001435: 24,3537           03026                                    PACTOFF                               
029974,001436: 24,3540           72405                           DMP      SL1                                   
029975,001437: 24,3541           11672                                    TRIMSCAL                              
029976,001438: 24,3542           41415                           DAD      PUSH                                  
029977,001439: 24,3543           11676                                    PBIAS                                 
029978,001440: 24,3544           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
029979,001441: 24,3545           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
029980,001442: 24,3546           14323                           STODL    ZSCREF                                #  SIN(P +P0)
029981,001443: 24,3547           00007                                    6                                     
029982,001444: 24,3550           72405                           DMP      SL1                                   
029983,001445: 24,3551           00005                                    4                                     
029984,001446: 24,3552           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
029985,001447: 24,3553           00007                                    6                                     
029986,001448: 24,3554           72405                           DMP      SL1                                   
029987,001449: 24,3555           00003                                    2                                     
029988,001450: 24,3556           77666                           VDEF                                           
029989,001451: 
029990,001452: 24,3557           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
029991,001453: 24,3560           00323                                    ZSCREF                                
029992,001454: 24,3561           72405                           DMP      SL1                                   
029993,001455: 24,3562           00005                                    4                                     
029994,001456: 24,3563           41325                           PDDL     DMP                                   
029995,001457: 24,3564           00323                                    ZSCREF                                
029996,001458: 24,3565           00003                                    2                                     
029997,001459: 24,3566           57552                           SL1      DCOMP                                 
029998,001460: 24,3567           77666                           VDEF                                           
029999,001461: 
030000,001462: 24,3570           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030001,001463: 24,3571           77666                           VDEF                                           
030002,001464: 
030003,001465: 24,3572           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030004,001466: 24,3573           00323                                    ZSCREF                                
030005,001467: 24,3574           65325                           PDDL     PDDL                                  
030006,001468: 24,3575           00315                                    YSCREF                                
030007,001469: 24,3576           00307                                    XSCREF                                
030008,001470: 24,3577           77666                           VDEF                                           

Page 672

030010,001472: 24,3600           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
030011,001473: 24,3601           03713                                    UT                                    
030012,001474: 24,3602           53515                           PDVL     UNIT                                  
030013,001475: 24,3603           03632                                    RTIG                                  
030014,001476: 24,3604           57435                           VXV      VCOMP                                 
030015,001477: 24,3605           00001                                    0                                     
030016,001478: 24,3606           41456                           UNIT     PUSH                                  
030017,001479: 24,3607           77624                           CALL                                           
030018,001480: 24,3610           51652                                    TSTRXUT                               
030019,001481: 24,3611           57435                           VXV      VCOMP                                 
030020,001482: 24,3612           00001                                    0                                     
030021,001483: 24,3613           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
030022,001484: 24,3614           00307                                    XSCREF                                
030023,001485: 24,3615           76505                           VXM      VSL1                                  
030024,001486: 24,3616           00001                                    0                                     
030025,001487: 24,3617           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
030026,001488: 24,3620           00315                                    YSCREF                                
030027,001489: 24,3621           76505                           VXM      VSL1                                  
030028,001490: 24,3622           00001                                    0                                     
030029,001491: 24,3623           24315                           STOVL    YSCREF                                #  Y OF PREF. IMU,Y OF SC IN REF COOR. AT 2
030030,001492: 24,3624           00323                                    ZSCREF                                
030031,001493: 24,3625           76505                           VXM      VSL1                                  
030032,001494: 24,3626           00001                                    0                                     
030033,001495: 24,3627           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030034,001496: 24,3630           52001                           SETPD    GOTO                                  
030035,001497: 24,3631           00001                                    0                                     
030036,001498: 24,3632           03657                                    QTEMP                                 
030037,001499: 24,3633           77775        S40.2,3B           VLOAD                                          
030038,001500: 24,3634           15330                                    UNITX                                 
030039,001501: 24,3635           27351                           STOVL    SCAXIS                                
030040,001502: 24,3636           03713                                    UT                                    
030041,001503: 24,3637           00307                           STORE    XSCREF                                
030042,001504: 24,3640           53435                           VXV      UNIT                                  
030043,001505: 24,3641           03632                                    RTIG                                  
030044,001506: 24,3642           34007                           STCALL   6D                                    
030045,001507: 24,3643           51652                                    TSTRXUT                               
030046,001508: 24,3644           00315                           STORE    YSCREF                                
030047,001509: 24,3645           57435                           VXV      VCOMP                                 
030048,001510: 24,3646           00307                                    XSCREF                                
030049,001511: 24,3647           77772                           VSL1                                           
030050,001512: 24,3650           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
030051,001513: 24,3651           03657                                    QTEMP                                 
030052,001514: 24,3652           46145        TSTRXUT            DLOAD    BHIZ                                  
030053,001515: 24,3653           00045                                    36D                                   
030054,001516: 24,3654           51657                                    BADVCTOR                              
030055,001517: 24,3655           43575                           VLOAD    RVQ                                   
030056,001518: 24,3656           00007                                    6D                                    
030057,001519: 24,3657           53575        BADVCTOR           VLOAD    UNIT                                  
030058,001520: 24,3660           03632                                    RTIG                                  
030059,001521: 24,3661           53515                           PDVL     UNIT                                  

Page 673

030061,001523: 24,3662           03640                                    VTIG                                  
030062,001524: 24,3663           53322                           VSR3     VAD                                   
030063,001525: 24,3664           53435                           VXV      UNIT                                  
030064,001526: 24,3665           03713                                    UT                                    
030065,001527: 24,3666           77676                           VCOMP                                          
030066,001528: 24,3667           00007                           STORE    6D                                    
030067,001529: 24,3670           77616                           RVQ                                            
030068,001530: 24,3671           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
030069,001531: 24,3673           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
030070,001532: 24,3675           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
030071,001533: 
030072,001534:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
030073,001535: 
030074,001536:                                                                                                  #  PROGRAM DESCRIPTION S41.1             DATE 8 DEC 66
030075,001537:                                                                                                  #  MOD NO 1                              LOG SECTION P40-P47
030076,001538:                                                                                                  #  MOD BY ZELDIN
030077,001539: 
030078,001540:                                                                                                  #  FUNCTIONAL DESCRIPTION
030079,001541: 
030080,001542:                                                                                                  #        COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
030081,001543:                                                                                                  #        TO CONTROL COORDS.
030082,001544: 
030083,001545:                                                                                                  #  CALLING SEQUENCE
030084,001546: 
030085,001547:                                                                                                  #        L       CALL
030086,001548:                                                                                                  #        L+1             S41.1
030087,001549: 
030088,001550:                                                                                                  #  NORMAL EXIT MODE
030089,001551:                                                                                                  #        
030090,001552:                                                                                                  #        AT L +2 OF CALLING SEQUENCE
030091,001553: 
030092,001554:                                                                                                  #  SUBROUTINES CALLED:
030093,001555: 
030094,001556:                                                                                                  #        CALCSMSC
030095,001557:                                                                                                  #        CDUTRIG
030096,001558: 
030097,001559:                                                                                                  #  ALARM OR ABORT MODES
030098,001560: 
030099,001561:                                                                                                  #        NONE
030100,001562: 
030101,001563:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030102,001564: 
030103,001565:                                                                                                  #        VG IN REF. COORD. PDL L POINTER AT L+5.  S41.1 WILL RETURN WITH
030104,001566:                                                                                                  #        POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
030105,001567: 
030106,001568:                                                                                                  #  OUTPUT
030107,001569: 
030108,001570:                                                                                                  #        MPAC CONTAINS VG IN CONTROL COORDS              VECT. B7 M/CS
030109,001571: 
030110,001572:                                                                                                  #  DEBRIS:
030111,001573: 
030112,001574:                                                                                                  #        QTEMP           TEMP ERASABLE
030113,001575:                                                                                                  #        QPRET
030114,001576: 
030115,001577: 24,3677                                           COUNT    22/S41.1                              
030116,001578: 
030117,001579: 22,2000                                           SETLOC   P40S5                                 
030118,001580: 22,2000                                           BANK                                           
030119,001581: 
030120,001582: 22,3426           45020        S41.1              STQ      CALL                                  
030121,001583: 22,3427           03657                                    QTEMP                                 
030122,001584: 22,3430           47432                                    CDUTRIG                               
030123,001585: 22,3431           77775                           VLOAD                                          
030124,001586: 22,3432           45121                           MXV      CALL                                  
030125,001587: 22,3433           01736                                    REFSMMAT                              
030126,001588: 22,3434           47577                                    *SMNB*                                

Page 674

030128,001590: 22,3435           74321                           MXV      VXSC                                  
030129,001591: 22,3436           05004                                    QUADROT                               
030130,001592: 22,3437           05443                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
030131,001593: 22,3440           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
030132,001594: 22,3441           03657                                    QTEMP                                 
030133,001595: 22,3442           24000 00000  TENBNK14           2DEC     10.        B-4                        
030134,001596: 

Page 675

030136,001598:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
030137,001599:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
030138,001600:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
030139,001601:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
030140,001602:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
030141,001603:                                                                                                  #  CALLING SEQ   CALL S40.8
030142,001604:                                                                                                  #  INPUT         VGPREV  -       LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
030143,001605:                                                                                                  #                                PRIOR TO UPDATING IN METERS/CS AT +7.
030144,001606:                                                                                                  #                DELVREF -       CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
030145,001607:                                                                                                  #                                IN METERS/CS AT +7.
030146,001608:                                                                                                  #                BDT     -       EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
030147,001609:                                                                                                  #                                GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
030148,001610:                                                                                                  #                                METERS/CS AT +7.
030149,001611:                                                                                                  #                CSTEER  -       A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
030150,001612:                                                                                                  #                                SPS AIMPOINT STEERING MANEUVERS
030151,001613:                                                                                                  #                IDLEFAIL-       A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
030152,001614:                                                                                                  #                STEERSW -       A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
030153,001615:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
030154,001616:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
030155,001617:                                                                                                  #  OUTPUT        TTOGO   -       TIME REMAINING FOR ENGINE BURN IN CS AT +28
030156,001618:                                                                                                  #                OMEGAC  -       DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
030157,001619:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
030158,001620:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
030159,001621:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
030160,001622:                                                                                                  #  DEBRIS        OMEGAXC, +1
030161,001623:                                                                                                  #  SUBROUTINES USED -  *SMNB*, ALARM
030162,001624: 
030163,001625: 16,2000                                           SETLOC   P40S1                                 
030164,001626: 16,2000                                           BANK                                           
030165,001627: 16,2130  E6,1466                                  EBANK=   DAPDATR1                              
030166,001628: 16,2130                                           COUNT    16/S40.8                              
030167,001629: 
030168,001630: 16,2130           44001        S40.8              SETPD    STQ                                   
030169,001631: 16,2131           00001        SPBIT1                      00D                                   
030170,001632: 16,2132           03657                                    QTEMP                                 
030171,001633: 16,2133           51375                           VLOAD    BVSU                                  #  CONSTRUCT DELVG, SC.AT B+7 M/CS
030172,001634: 16,2134           03433                                    DELVREF                               
030173,001635: 16,2135           03705                                    BDT                                   
030174,001636: 16,2136           77655                           VAD                                            
030175,001637: 16,2137           03721                                    VGPREV                                
030176,001638: 16,2140           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
030177,001639: 
030178,001640: 16,2141           77646                           ABVAL                                          
030179,001641: 16,2142           03654                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
030180,001642: 16,2143           77776                           EXIT                                           
030181,001643: 16,2144           05301                           TC       PHASCHNG                              
030182,001644: 16,2145           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
030183,001645: 
030184,001646: 16,2146           06006                           TC       INTPRET                               
030185,001647: 16,2147           77775                           VLOAD                                          

Page 676

030187,001649: 16,2150           03460                                    VG                                    
030188,001650: 16,2151           03721                           STORE    VGPREV                                
030189,001651: 16,2152           77214                           BOFF     VLOAD                                 
030190,001652: 16,2153           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
030191,001653: 16,2154           03657                                    QTEMP                                 
030192,001654: 16,2155           03433                                    DELVREF                               
030193,001655: 16,2156           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
030194,001656: 16,2157           41335                           SLOAD    DMP                                   
030195,001657: 16,2160           01354                                    DVTHRESH                              #  SC.AT B-2 M/CS
030196,001658: 16,2161           36011                                    DPB-9                                 
030197,001659: 16,2162           77621                           BDSU                                           
030198,001660: 16,2163           77440                           BMN      EXIT                                  
030199,001661: 16,2164           40021                                    LOTHRUST                              
030200,001662: 16,2165           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
030201,001663: 16,2166           74675                           MASK     BIT14                                 
030202,001664: 16,2167           10000                           CCS      A                                     
030203,001665: 16,2170           34712                           CAF      BIT1                                  
030204,001666: 16,2171           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
030205,001667: 16,2172           31423                           CAE      EREPFRAC                              
030206,001668: 16,2173           55652                           TS       REPFRAC                               
030207,001669: 
030208,001670: 16,2174           06006                           TC       INTPRET                               
030209,001671: 16,2175           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
030210,001672: 16,2176           03433                                    DELVREF                               
030211,001673: 16,2177           03705                                    BDT                                   
030212,001674: 16,2200           77656                           UNIT                                           
030213,001675: 16,2201           41441                           DOT      PUSH                                  #  (00D)
030214,001676: 16,2202           03460                                    VG                                    
030215,001677: 16,2203           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
030216,001678: 16,2204           40013                                    INCRSVG                               #        DISPLAY ALARM IF NOT
030217,001679: 16,2205           36005                                    2VEXHUST                              
030218,001680: 16,2206           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
030219,001681: 16,2207           11454                                    LODPHALF                              
030220,001682: 16,2210           70501                           NORM     SR1                                   
030221,001683: 16,2211           00047                                    X1                                    
030222,001684: 16,2212           60325                           PDDL     NORM                                  
030223,001685: 16,2213           00045                                    36D                                   #  (MAG DELVG)
030224,001686: 16,2214           00050                                    X2                                    
030225,001687: 16,2215           77665                           BDDV                                           
030226,001688: 16,2216           53664                           XSU,2    SL*                                   
030227,001689: 16,2217           00046                                    X1                                    
030228,001690: 16,2220           57607                                    0          -9D,2                      
030229,001691: 16,2221           41405                           DMP      PUSH                                  #  (00D)
030230,001692: 16,2222           36003                                    -FOURDT                               
030231,001693: 16,2223           54335                           SLOAD    SR                                    
030232,001694: 16,2224           03016                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
030233,001695: 16,2225           20617                                    14D                                   
030234,001696: 16,2226           45421                           BDSU     STADR                                 
030235,001697: 16,2227           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
030236,001698: 16,2230           77615                           DAD                                            

Page 677

030238,001700: 16,2231           01205                                    PIPTIME                               
030239,001701: 16,2232           17413                           STODL    TIG                                   
030240,001702: 16,2233           03430                                    TGO                                   
030241,001703: 16,2234           50025                           DSU      BMN                                   
030242,001704: 16,2235           36007                                    FOURSEC                               
030243,001705: 16,2236           40000                                    S40.81                                
030244,001706: 
030245,001707: 16,2237           74375        XPRODUCT           VLOAD    VXSC                                  
030246,001708: 16,2240           03705                                    BDT                                   
030247,001709: 16,2241           03703                                    CSTEER                                
030248,001710: 16,2242           52352                           VSL2     VSU                                   
030249,001711: 16,2243           03433                                    DELVREF                               
030250,001712: 16,2244           63256                           UNIT     PDVL                                  
030251,001713: 16,2245           03460                                    VG                                    
030252,001714: 16,2246           47256                           UNIT     VXV                                   
030253,001715: 16,2247           45121                           MXV      CALL                                  
030254,001716: 16,2250           01736                                    REFSMMAT                              #  (REFSMMAT/2)
030255,001717: 16,2251           47577                                    *SMNB*                                
030256,001718: 16,2252           77761                           VXSC                                           
030257,001719: 16,2253           03245                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
030258,001720: 16,2254           03126        OMEGACLC           STORE    OMEGAC                                
030259,001721: 16,2255           77650                           GOTO                                           
030260,001722: 16,2256           03657                                    QTEMP                                 
030261,001723: 
030262,001724: 17,2000                                           SETLOC   DAPS7                                 
030263,001725: 17,2000                                           BANK                                           
030264,001726: 17,2000                                           COUNT    17/S40.8                              
030265,001727: 
030266,001728: 17,2000           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
030267,001729: 17,2002           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
030268,001730: 17,2004           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
030269,001731: 17,2006           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
030270,001732: 17,2010           00040 00000  DPB-9              2DEC     1          B-9                        
030271,001733: 
030272,001734: 20,2000                                           SETLOC   DAPS6                                 
030273,001735: 20,2000                                           BANK                                           
030274,001736: 
030275,001737: 20,2000                                           COUNT    20/S40.8                              
030276,001738: 
030277,001739: 20,2000           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
030278,001740: 20,2001           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
030279,001741: 20,2002           15332                                    HI6ZEROS                              
030280,001742: 20,2003           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
030281,001743: 20,2004           77776                           EXIT                                           
030282,001744: 20,2005           34672                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
030283,001745: 20,2006           55447                           TS       CNTR                                  

Page 678

030285,001747: 20,2007           06006                           TC       INTPRET                               
030286,001748: 20,2010           52014                           CLEAR    GOTO                                  
030287,001749: 20,2011           01264                                    STEERSW                               #  RESTARTS OK
030288,001750: 20,2012           03657                                    QTEMP                                 
030289,001751: 20,2013           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
030290,001752: 20,2014           05537                           TC       ALARM                                 #  IN WRONG DIRECTION.
030291,001753: 20,2015           01407                           OCT      01407                                 
030292,001754: 20,2016           06006                           TC       INTPRET                               
030293,001755: 20,2017           77650                           GOTO                                           
030294,001756: 20,2020           03657                                    QTEMP                                 
030295,001757: 
030296,001758: 20,2021           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
030297,001759: 20,2022           00711                                    IDLEFAIL                              #  SET BY V97P.  ALLOWS 1 BYPASS IN CASE OF
030298,001760: 20,2023           03657                                    QTEMP                                 #        UNFAVORABLE S40.8 SYNCH
030299,001761: 20,2024           15332                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
030300,001762: 20,2025           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
030301,001763: 20,2026           77776                           EXIT                                           
030302,001764: 
030303,001765: 20,2027           44714                           CS       ZERO                                  
030304,001766: 20,2030           55653                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
030305,001767: 20,2031           55663                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
030306,001768: 20,2032           55652                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
030307,001769: 20,2033           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
030308,001770: 
030309,001771: 20,2034           06006                           TC       INTPRET                               
030310,001772: 20,2035           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
030311,001773: 20,2036           01264                                    STEERSW                               #        SHUTDOWN IF NOT SET UP AGAIN)
030312,001774: 20,2037           03657                                    QTEMP                                 #  RESTARTS OK
030313,001775: 

Page 679

030315,001777:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
030316,001778:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
030317,001779:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
030318,001780:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
030319,001781:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
030320,001782:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
030321,001783:                                                                                                  #  INPUT         RNIT  - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
030322,001784:                                                                                                  #                VNIT  - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
030323,001785:                                                                                                  #                VRPREV- LAST COMPUTED VELOCITY REQUIRED VECTOR IN
030324,001786:                                                                                                  #                        METERS/CS AT +7.
030325,001787:                                                                                                  #                NOMTIG- TIME OF IGN.  USED IN TARGETTING ROUTINES %+28"
030326,001788:                                                                                                  #                DELLT4- TRANSFER TIME FROM PIPTIME TO TARGET %+28"
030327,001789:                                                                                                  #                TNIT  - TIME OF RNIT AND VNIT IN CS AT +28
030328,001790:                                                                                                  #                GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
030329,001791:                                                                                                  #                        ACCERERATION OF GRAVITY IN METERS/CS AT +7.
030330,001792:                                                                                                  #                DELVREF- CHANGE IN VELOCITY DURING LAST 2 SEC IN
030331,001793:                                                                                                  #                        METERS/CS AT +7.
030332,001794:                                                                                                  #                NORMSW  SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
030333,001795:                                                                                                  #                        165 TO 195 DEGREES
030334,001796:                                                                                                  #                        RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
030335,001797:                                                                                                  #  OUTPUT        VGTEMP- VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
030336,001798:                                                                                                  #                COGA  - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
030337,001799:                                                                                                  #                        OR PREVIOUS PASS THRU S40.9
030338,001800:                                                                                                  #                GOBL/2- OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
030339,001801:                                                                                                  #                VRPREV- VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
030340,001802:                                                                                                  #                BDT   - B VECTOR IN METERS/CS AT +7.
030341,001803:                                                                                                  #  SUBROUTINES USED - INITVEL
030342,001804: 
030343,001805: 16,2000                                           SETLOC   P40S1                                 
030344,001806: 16,2000                                           BANK                                           
030345,001807: 
030346,001808: 16,2257  E6,1746                                  EBANK=   NBRCYCLS                              
030347,001809: 16,2257                                           COUNT    16/S40.9                              
030348,001810: 
030349,001811: 16,2257           06006        S40.9              TC       INTPRET                               
030350,001812: 16,2260           71201                           SETPD    DLOAD                                 
030351,001813: 16,2261           00001                                    00D                                   
030352,001814: 16,2262           11456                                    LO6ZEROS                              
030353,001815: 16,2263           77725                           PDDL                                           
030354,001816: 16,2264           34401                                    EP4(45)L                              
030355,001817: 16,2265           71214                           BON      DLOAD                                 
030356,001818: 16,2266           03705                                    NORMSW                                
030357,001819: 16,2267           34271                                    +2                                    
030358,001820: 16,2270           34403                                    EP4(10)L                              
030359,001821: 16,2271           77606                           PUSH                                           
030360,001822: 16,2272           45014                           CLEAR    CALL                                  
030361,001823: 16,2273           00675                                    GUESSW                                
030362,001824: 16,2274           22002                                    HAVEGUES                              
030363,001825: 16,2275           77776                           EXIT                                           
030364,001826: 16,2276           05301                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
030365,001827: 16,2277           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW

Page 680

030367,001829: 16,2300           10000                           OCT      10000                                 
030368,001830: 16,2301           06006                           TC       INTPRET                               
030369,001831: 16,2302           77614        ENDLAMB            BON                                            
030370,001832: 16,2303           01310                                    FIRSTFLG                              
030371,001833: 16,2304           34322                                    FIRSTTME                              
030372,001834: 16,2305           52375                           VLOAD    VSU                                   
030373,001835: 16,2306           03612                                    VIPRIME                               
030374,001836: 16,2307           03466                                    VRPREV                                
030375,001837: 16,2310           45325                           PDDL     DSU                                   
030376,001838: 16,2311           03474                                    TNIT                                  
030377,001839: 16,2312           03476                                    TNITPREV                              
030378,001840: 16,2313           55261                           SL       BDDV                                  
030379,001841: 16,2314           20222                                    17D                                   
030380,001842: 16,2315           34375                                    200CSHI                               
030381,001843: 16,2316           77761                           VXSC                                           
030382,001844: 16,2317           76451                           VSU      VSL1                                  
030383,001845: 16,2320           01207                                    GDT/2                                 
030384,001846: 16,2321           03705                           STORE    BDT                                   
030385,001847: 16,2322           57535        FIRSTTME           SLOAD    DCOMP                                 
030386,001848: 16,2323           03747                                    RTX2                                  
030387,001849: 16,2324           77640                           BMN                                            
030388,001850: 16,2325           34342                                    MOONCASE                              
030389,001851: 16,2326           53575                           VLOAD    UNIT                                  
030390,001852: 16,2327           01171                                    RN                                    
030391,001853: 16,2330           45345                           DLOAD    DSU                                   
030392,001854: 16,2331           01205                                    PIPTIME                               
030393,001855: 16,2332           03450                                    NOMTIG                                
030394,001856: 16,2333           56205                           DMP      DDV                                   
030395,001857: 16,2334           34377                                    EARTHMU                               
030396,001858: 16,2335           00043                                    34D                                   
030397,001859: 16,2336           53361                           VXSC     VAD                                   
030398,001860: 16,2337           01215                                    GOBL/2                                
030399,001861: 16,2340           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
030400,001862: 16,2341           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
030401,001863: 16,2342           77776        MOONCASE           EXIT                                           
030402,001864: 16,2343           05301                           TC       PHASCHNG                              
030403,001865: 16,2344           04021                           OCT      04021                                 #  C, JOB BELOW
030404,001866: 
030405,001867: 16,2345           06006        COPY40.9           TC       INTPRET                               
030406,001868: 16,2346           77745                           DLOAD                                          
030407,001869: 16,2347           03474                                    TNIT                                  
030408,001870: 16,2350           27476                           STOVL    TNITPREV                              
030409,001871: 16,2351           03612                                    VIPRIME                               
030410,001872: 16,2352           03466                           STORE    VRPREV                                
030411,001873: 16,2353           77414                           CLEAR    EXIT                                  
030412,001874: 16,2354           01270                                    FIRSTFLG                              
030413,001875: 16,2355           44712                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
030414,001876: 16,2356           55746                           TS       NBRCYCLS                              
030415,001877: 16,2357           05301        ENDS40.9           TC       PHASCHNG                              
030416,001878: 16,2360           00001                           OCT      00001                                 

Page 681

030418,001880: 16,2361           15112                           TCF      ENDOFJOB                              
030419,001881: 
030420,001882: 16,2362           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
030421,001883: 16,2363           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
030422,001884: 16,2364           11456                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
030423,001885: 16,2365           17351                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL
030424,001886: 16,2366           11456                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
030425,001887: 16,2367           27347                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
030426,001888: 16,2370           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
030427,001889: 16,2371           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
030428,001890: 16,2372           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
030429,001891: 16,2373           12355                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
030430,001892: 
030431,001893: 16,2374           01440 00000  200CSHI            2DEC     200        B-12                       
030432,001894: 16,2376           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
030433,001895: 16,2400           04000 00000  EP4(45)L           2DEC     .125                                  
030434,001896: 16,2402           00707 03434  EP4(10)L           2DEC     .027777777                            
030435,001897: 

Page 682

030437,001899:                                                                                                  #  NAME                  S40.13 - TIMEBURN
030438,001900: 
030439,001901:                                                                                                  #  FUNCTION              (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
030440,001902:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
030441,001903:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
030442,001904:                                                                                                  #                        (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
030443,001905:                                                                                                  #                        AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
030444,001906: 
030445,001907:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
030446,001908: 
030447,001909:                                                                                                  #  INPUT                 VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
030448,001910:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
030449,001911:                                                                                                  #                        F - ENGINE THRUST IN M.NEWTONS AT +7
030450,001912:                                                                                                  #                        MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
030451,001913:                                                                                                  #                                IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
030452,001914:                                                                                                  #                                REQUIRE MODIFICATION FOR SATURN BURNS.
030453,001915: 
030454,001916:                                                                                                  #  OUTPUT                IMPULSW -       ZERO FOR STEERING
030455,001917:                                                                                                  #                                -       ONE FOR ATTITUDE HOLD
030456,001918:                                                                                                  #                        TGO     -       TIME TO BURN IN CENTISECONDS AT +14
030457,001919:                                                                                                  #                        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
030458,001920:                                                                                                  #                        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
030459,001921:                                                                                                  #                        (1) M.NEWTON = (10000) NEWTONS
030460,001922: 
030461,001923: 16,2404  E7,1427                                  EBANK=   TGO                                   
030462,001924: 16,2404                                           COUNT    16/40.13                              
030463,001925: 
030464,001926: 16,2404           06006        S40.13             TC       INTPRET                               
030465,001927: 16,2405           43001                           SETPD    SET                                   
030466,001928: 16,2406           00001                                    00D                                   
030467,001929: 16,2407           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
030468,001930: 16,2410           51575                           VLOAD    ABVAL                                 
030469,001931: 16,2411           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
030470,001932: 16,2412           77776                           EXIT                                           
030471,001933: 16,2413           34704                           CAF      BIT7                                  #  TEST +X TRANSLATION
030472,001934: 16,2414           00006                           EXTEND                                         
030473,001935: 16,2415           06031                           RXOR     CHAN31                                
030474,001936: 16,2416           74704                           MASK     BIT7                                  
030475,001937: 16,2417           00006                           EXTEND                                         
030476,001938: 16,2420           12502                           BZF      NOTADDUL                              
030477,001939: 16,2421           06006                           TC       INTPRET                               
030478,001940: 16,2422           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
030479,001941: 16,2423           36027                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
030480,001942: 16,2424           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
030481,001943: 16,2425           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
030482,001944: 16,2426           00700                                    NJETSFLG                              
030483,001945: 16,2427           34430                                    S40.130                               
030484,001946: 16,2430           77621        S40.130            BDSU                                           
030485,001947: 16,2431           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
030486,001948: 16,2432           36013                                    K1VAL                                 #  M.NETWON-CS AT +24
030487,001949: 16,2433           03076                                    WEIGHT/G                              
030488,001950: 16,2434           50021                           BDSU     BMN                                   
030489,001951: 16,2435           00001                                    00D                                   
030490,001952: 16,2436           34461                                    S40.131                               #  TGO LESS THAN 100 CS
030491,001953: 16,2437           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7

Page 683

030493,001955: 16,2440           00111                                    EMDOT                                 #  SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
030494,001956: 16,2441           36023                                    3.5SEC                                #  350 CS AT +14
030495,001957: 16,2442           65221                           BDSU     PDDL                                  
030496,001958: 16,2443           03076                                    WEIGHT/G                              
030497,001959: 16,2444           03727                                    F                                     #  F AT +7
030498,001960: 16,2445           60405                           DMP      SR2                                   
030499,001961: 16,2446           36025                                    5SECOND                               #  500 CS AT +14
030500,001962: 16,2447           41471                           DDV      PUSH                                  #  04D = TEMP2
030501,001963: 16,2450           51021                           BDSU     BPL                                   
030502,001964: 16,2451           00003                                    02D                                   
030503,001965: 16,2452           34475                                    S40.133                               #  TGO GREATER THAN 600 CS
030504,001966: 16,2453           55345                           DLOAD    BDDV                                  
030505,001967: 16,2454           43205                           DMP      DAD                                   
030506,001968: 16,2455           36025                                    5SECOND                               #  500 CS AT +14
030507,001969: 16,2456           36021                                    1SEC2D                                #  100 CS AT +14
030508,001970: 16,2457           77650                           GOTO                                           
030509,001971: 16,2460           34466                                    S40.132                               
030510,001972: 16,2461           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
030511,001973: 16,2462           03076                                    WEIGHT/G                              
030512,001974: 16,2463           56215                           DAD      DDV                                   
030513,001975: 16,2464           36015                                    K2VAL                                 #  M.NEWTON-CS AT +24
030514,001976: 16,2465           36017                                    K3VAL                                 #  M.NEWTONS AT +10
030515,001977: 16,2466           77776        S40.132            EXIT                                           
030516,001978: 16,2467  E7,1427                                  EBANK=   TGO                                   
030517,001979: 16,2467           07226                           TC       TPAGREE                               
030518,001980: 16,2470           30154                           CA       MPAC                                  
030519,001981: 16,2471           56001                           XCH      L                                     
030520,001982: 16,2472           34714                           CA       ZERO                                  
030521,001983: 16,2473           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
030522,001984: 16,2474           02477                           TC       S40.134                               
030523,001985: 
030524,001986: 16,2475           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
030525,001987: 16,2476           01266                                    IMPULSW                               
030526,001988: 16,2477           05301        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
030527,001989: 16,2500           00003                           OCT      3                                     
030528,001990: 
030529,001991: 16,2501           15112                           TCF      ENDOFJOB                              
030530,001992: 16,2502           06006        NOTADDUL           TC       INTPRET                               
030531,001993: 16,2503           77650                           GOTO                                           
030532,001994: 16,2504           34431                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
030533,001995: 17,2000                                           SETLOC   DAPS7                                 
030534,001996: 17,2000                                           BANK                                           
030535,001997: 
030536,001998: 17,2012                                           COUNT    17/40.13                              
030537,001999: 
030538,002000: 17,2012           00001 27221  K1VAL              2DEC     884.52887  B-23                       #  19885 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
030539,002001: 17,2014           00000 22244  K2VAL              2DEC     293.137805 B-23                       #   6590 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2

Page 684

030541,002003: 17,2016           00570 33235  K3VAL              2DEC     11.7766668 B-9                        #  26475 LBS, SC.AT B+9 NEWTONS/E+4
030542,002004: 17,2020           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14
030543,002005: 17,2022           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
030544,002006: 17,2024           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
030545,002007: 17,2026           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
030546,002008:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
030547,002009:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
030548,002010:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)

Page 685

030550,002012:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
030551,002013:                                                                                                  #  MOD NO 5                              DATE 9 MARCH, 1967
030552,002014:                                                                                                  #  MOD BY ENGEL                          LOG SECTION P40-P47
030553,002015: 
030554,002016:                                                                                                  #  FUNCTIONAL DESCRIPTION
030555,002017:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
030556,002018:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW.  ASTRONAUT VERIFICATION
030557,002019:                                                                                                  #                OF GIMBAL MOTION ON GPI
030558,002020:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
030559,002021:                                                                                                  #                PRE-COMPUTED TRIM POSITION.  ASTRONAUT VERIFICATION ON GPI.
030560,002022:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
030561,002023:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
030562,002024:                                                                                                  #                BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
030563,002025:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
030564,002026:                                                                                                  #                OF RESTARTING ACTUATORS.
030565,002027: 
030566,002028:                                                                                                  #  CALLING SEQUENCE....
030567,002029:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
030568,002030: 
030569,002031:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
030570,002032: 
030571,002033:                                                                                                  #  SUBROUTINES CALLED....
030572,002034:                                                                                                  #        OUTPUT (INTERNAL)
030573,002035:                                                                                                  #        FIXDELAY
030574,002036: 
030575,002037:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
030576,002038: 
030577,002039:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
030578,002040:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
030579,002041:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
030580,002042:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
030581,002043:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
030582,002044:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
030583,002045:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
030584,002046: 
030585,002047:                                                                                                  #  OUTPUT
030586,002048:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
030587,002049:                                                                                                  #        TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
030588,002050: 
030589,002051:                                                                                                  #  DEBRIS
030590,002052:                                                                                                  #        TEMPR60, CNTR
030591,002053: 
030592,002054: 17,2030                                           BANK     17                                    
030593,002055: 20,2000                                           SETLOC   DAPS6                                 
030594,002056: 20,2000                                           BANK                                           
030595,002057: 
030596,002058: 20,2040  E6,1447                                  EBANK=   CNTR                                  
030597,002059: 20,2040                                           COUNT    20/S40.6                              
030598,002060: 
030599,002061: 20,2040           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
030600,002062: 20,2041           74105                           MASK     OCT60000                              #        IF TVC, BITS 15,|4 = 1,0)
030601,002063: 20,2042           00006                           EXTEND                                         
030602,002064: 20,2043           62045                           BZMF     +2                                    
030603,002065: 20,2044           15213                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
030604,002066: 
030605,002067: 20,2045           44712                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY

Page 686

030607,002069: 20,2046           55445                           TS       MRKRTMP                               
030608,002070: 20,2047           34712                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
030609,002071: 20,2050           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
030610,002072:                                                                                                  #        NORMALLY +0, BY S40.6)
030611,002073: 20,2051  E6,1447                                  EBANK=   CNTR                                  
030612,002074: 20,2051           44714        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
030613,002075: 20,2052           55303                           TS       OPTIND                                
030614,002076: 
030615,002077: 20,2053           44711                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
030616,002078: 20,2054           00006                           EXTEND                                         #        AND INHIBIT PULSE TRANSMISSION -
030617,002079: 20,2055           03012                           WAND     CHAN12                                #        NORMAL STATE)
030618,002080: 
030619,002081: 20,2056           32143                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
030620,002082: 20,2057           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
030621,002083: 20,2060           05012                           WOR      CHAN12                                
030622,002084: 
030623,002085: 20,2061           05156                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
030624,002086: 20,2062           00006                           DEC      6          B-14                       #        RELAY LATCHING
030625,002087: 
030626,002088: 20,2063           34711                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
030627,002089: 20,2064           00006                           EXTEND                                         
030628,002090: 20,2065           05012                           WOR      CHAN12                                
030629,002091: 
030630,002092: 20,2066           05156                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
030631,002093: 20,2067           00002                           DEC      2          B-14                       #        RELAY LATCHING
030632,002094: 
030633,002095: 20,2070           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
030634,002096: 20,2071           12131                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
030635,002097:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY
030636,002098: 
030637,002099: 20,2072           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
030638,002100: 20,2073           55447                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
030639,002101: 20,2074           00006                           EXTEND                                         
030640,002102: 20,2075           62127                           BZMF     GIMTRIM                               #  (TRIM ONLY)
030641,002103: 
030642,002104: 20,2076           44714        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
030643,002105: 20,2077           55447                           TS       CNTR                                  
030644,002106: 
030645,002107: 20,2100           32145        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
030646,002108: 20,2101           02114                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
030647,002109: 20,2102           32144                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
030648,002110: 20,2103           02114                           TC       OUTPUT                                
030649,002111: 20,2104           32145                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
030650,002112: 20,2105           02114                           TC       OUTPUT                                
030651,002113: 
030652,002114: 20,2106           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST

Page 687

030654,002116: 20,2107           10000                           CCS      A                                     
030655,002117: 20,2110           12127                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
030656,002118: 20,2111           44712                           CS       BIT1                                  #  SET UP YAW TEST
030657,002119: 20,2112           55447                           TS       CNTR                                  
030658,002120: 20,2113           12100                           TCF      GIMDTEST                              #  FOR YAW TEST
030659,002121: 20,2114           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
030660,002122: 20,2115           23146                           QXCH     TEMPR60                               
030661,002123: 
030662,002124: 20,2116           51447                           INDEX    CNTR                                  
030663,002125: 20,2117           54054                           TS       TVCPITCH                              
030664,002126: 
030665,002127: 20,2120           51447                           INDEX    CNTR                                  
030666,002128: 20,2121           34700                           CAF      BIT11                                 
030667,002129: 20,2122           00006                           EXTEND                                         
030668,002130: 20,2123           05014                           WOR      CHAN14                                
030669,002131: 
030670,002132: 20,2124           05156                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
030671,002133: 20,2125           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
030672,002134: 20,2126           01146                           TC       TEMPR60                               
030673,002135: 20,2127           05156        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
030674,002136: 20,2130           00620                           DEC      400        B-14                       
030675,002137: 
030676,002138: 20,2131           44714                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
030677,002139: 20,2132           61425                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
030678,002140: 20,2133           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
030679,002141: 20,2134           44714                           CS       ZERO                                  
030680,002142: 20,2135           61426                           AD       YACTOFF                               
030681,002143: 20,2136           54053                           TS       TVCYAW                                
030682,002144: 
030683,002145: 20,2137           34755                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
030684,002146: 20,2140           00006                           EXTEND                                         
030685,002147: 20,2141           05014                           WOR      CHAN14                                
030686,002148: 
030687,002149: 20,2142           15213        ENDS40.6           TCF      TASKOVER                              
030688,002150: 20,2143           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
030689,002151: 20,2144           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
030690,002152: 20,2145           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
030691,002153: 
030692,002154:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
030693,002155: 
030694,002156: 20,2146                                           COUNT    20/S41.2                              
030695,002157: 20,2146           31466        S41.2              CA       DAPDATR1                              

Page 688

030697,002159: 20,2147           76214                           MASK     THREE                                 
030698,002160: 20,2150           60000                           AD       A                                     
030699,002161: 20,2151           55130                           TS       RATEINDX                              
030700,002162: 
030701,002163: 20,2152           00004                           INHINT                                         
030702,002164: 20,2153           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
030703,002165: 20,2154           74371                           MASK     PRIO30                                #        =10)
030704,002166: 20,2155           67705                           AD       -BIT14                                #  (OCT57777)
030705,002167: 20,2156           00006                           EXTEND                                         
030706,002168: 20,2157           12164                           BZF      TOGETHER                              #  YES
030707,002169: 
030708,002170: 20,2160           44711                           CS       BIT2                                  #  NO, UNSET FLAG
030709,002171: 20,2161           70103                           MASK     FLAGWRD7                              
030710,002172: 20,2162           54103                           TS       FLAGWRD7                              
030711,002173: 
030712,002174: 20,2163           12167                           TCF      +4                                    
030713,002175: 
030714,002176: 20,2164           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
030715,002177: 20,2165           74711                           MASK     BIT2                                  
030716,002178: 20,2166           26103                           ADS      FLAGWRD7                              
030717,002179: 
030718,002180: 20,2167           00003                           RELINT                                         
030719,002181: 
030720,002182: 20,2170           31466                           CA       DAPDATR1                              
030721,002183: 20,2171           74707                           MASK     BIT4                                  
030722,002184: 20,2172           00006                           EXTEND                                         
030723,002185: 20,2173           62175                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
030724,002186: 20,2174           32275                           CA       DEC409                                
030725,002187: 20,2175           62276                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
030726,002188: 20,2176           55655                           TS       ADB                                   
030727,002189: 
030728,002190: 20,2177           31466                           CA       DAPDATR1                              
030729,002191: 20,2200           74704                           MASK     BIT7                                  #  QUAD BD
030730,002192: 20,2201           00006                           EXTEND                                         
030731,002193: 20,2202           62204                           BZMF     +2                                    
030732,002194: 20,2203           34712                           CA       ONE                                   
030733,002195: 20,2204           55631                           TS       XTRANS                                
030734,002196: 20,2205           31466                           CA       DAPDATR1                              
030735,002197: 20,2206           74701                           MASK     BIT10                                 #  QUAD AC
030736,002198: 20,2207           00006                           EXTEND                                         
030737,002199: 20,2210           62212                           BZMF     +2                                    
030738,002200: 20,2211           44712                           CS       ONE                                   
030739,002201: 20,2212           27631                           ADS      XTRANS                                
030740,002202: 
030741,002203: 20,2213           00004                           INHINT                                         
030742,002204: 20,2214           00006                           EXTEND                                         
030743,002205: 20,2215           12222                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
030744,002206: 20,2216           40075                           CS       FLAGWRD1                              #  SET NJETSFLG (2 JETS, AC OR BD QUADS)
030745,002207: 20,2217           74674                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
030746,002208: 20,2220           26075                           ADS      FLAGWRD1                              

Page 689

030748,002210: 20,2221           12225                           TCF      +4                                    
030749,002211: 20,2222           44674                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
030750,002212: 20,2223           70075                           MASK     FLAGWRD1                              
030751,002213: 20,2224           54075                           TS       FLAGWRD1                              
030752,002214: 20,2225           00003                           RELINT                                         
030753,002215: 20,2226           31467                           CA       DAPDATR2                              
030754,002216: 20,2227           74676                           MASK     BIT13                                 
030755,002217: 20,2230           00006                           EXTEND                                         
030756,002218: 20,2231           62233                           BZMF     +2                                    
030757,002219: 20,2232           12234                           TCF      +2                                    
030758,002220: 20,2233           44712                           CS       ONE                                   
030759,002221: 20,2234           40000                           COM                                            
030760,002222: 20,2235           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
030761,002223: 
030762,002224: 20,2236           31467                           CA       DAPDATR2                              
030763,002225: 20,2237           74701                           MASK     BIT10                                 
030764,002226: 20,2240           10000                           CCS      A                                     
030765,002227: 20,2241           12245                           TCF      +4                                    
030766,002228: 20,2242           34712                           CA       ONE                                   
030767,002229: 20,2243           55626                           TS       RACFAIL                               
030768,002230: 20,2244           12255                           TCF      BDFAIL                                
030769,002231: 20,2245           34714                           CA       ZERO                                  
030770,002232: 20,2246           55626                           TS       RACFAIL                               
030771,002233: 20,2247           31467                           CA       DAPDATR2                              
030772,002234: 20,2250           74707                           MASK     BIT4                                  
030773,002235: 20,2251           10000                           CCS      A                                     
030774,002236: 20,2252           12255                           TCF      BDFAIL                                
030775,002237: 20,2253           44712                           CS       ONE                                   
030776,002238: 20,2254           55626                           TS       RACFAIL                               
030777,002239: 20,2255           31467        BDFAIL             CA       DAPDATR2                              
030778,002240: 20,2256           74704                           MASK     BIT7                                  
030779,002241: 20,2257           10000                           CCS      A                                     
030780,002242: 20,2260           12264                           TCF      +4                                    
030781,002243: 20,2261           34712                           CA       ONE                                   
030782,002244: 20,2262           55627                           TS       RBDFAIL                               
030783,002245: 20,2263           00002                           TC       Q                                     
030784,002246: 20,2264           34714                           CA       ZERO                                  
030785,002247: 20,2265           55627                           TS       RBDFAIL                               
030786,002248: 20,2266           31467                           CA       DAPDATR2                              
030787,002249: 20,2267           74712                           MASK     BIT1                                  
030788,002250: 20,2270           10000                           CCS      A                                     
030789,002251: 20,2271           00002                           TC       Q                                     
030790,002252: 20,2272           44712                           CS       ONE                                   
030791,002253: 20,2273           55627                           TS       RBDFAIL                               
030792,002254: 20,2274           00002                           TC       Q                                     
030793,002255: 
030794,002256:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
030795,002257: 
030796,002258: 42,3521                                           BANK     42                                    
030797,002259: 42,2000                                           SETLOC   EXTVBS                                

Page 690

030799,002261: 42,2000                                           BANK                                           
030800,002262: 
030801,002263: 42,3521           44702        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
030802,002264: 42,3522           00006                           EXTEND                                         
030803,002265: 42,3523           03012                           WAND     CHAN12                                
030804,002266: 42,3524           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
030805,002267: 42,3525           00006                           EXTEND                                         
030806,002268: 42,3526           74710                           MP       BIT3                                  #        RIGHT SHIFT 4 OCTAL DIGITS
030807,002269: 42,3527           76214                           MASK     THREE                                 #        (IN CASE BIT 15 IS USED)
030808,002270: 42,3530           50000                           INDEX    A                                     
030809,002271: 42,3531           13532                           TCF      +1                                    #        BRANCH BASED ON CONFIG....
030810,002272: 
030811,002273: 42,3532           13544                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
030812,002274: 42,3533           13537                           TCF      RCSDAPUP                              #        CSM......ACTIVATE RCSDAP
030813,002275: 42,3534           13537                           TCF      RCSDAPUP                              #        CSM/LEM..ACTIVATE RCSDAP
030814,002276: 42,3535           04574                           TC       POSTJUMP                              
030815,002277: 42,3536           67211                           CADR     SATSTKON                              
030816,002278: 42,3537           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
030817,002279: 42,3540           04633                           TCR      IBNKCALL                              
030818,002280: 42,3541           42010                           CADR     RCSDAPON                              
030819,002281: 42,3542           00003                           RELINT                                         
030820,002282: 42,3543           13561                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
030821,002283: 42,3544           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
030822,002284: 42,3545           33564                           DCA      T5IDLDAP                              
030823,002285: 42,3546           53313                           DXCH     T5LOC                                 
030824,002286: 42,3547           05447                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
030825,002287: 42,3550           00132                           ADRES    DAPBIT1                               #  BIT 15 FLAG 6 = 0
030826,002288: 42,3551           05447                           TC       DOWNFLAG                              
030827,002289: 42,3552           00133                           ADRES    DAPBIT2                               #  BIT 14 FLAG 6 = 0
030828,002290: 42,3553           00004                           INHINT                                         
030829,002291: 42,3554           04633                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
030830,002292: 42,3555           42616                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
030831,002293: 42,3556           00003                           RELINT                                         
030832,002294: 42,3557           34712                           CAF      BIT1                                  #  KILL KALCMANU JOB
030833,002295: 42,3560           55332                           TS       HOLDFLAG                              
030834,002296: 42,3561           04574        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
030835,002297: 42,3562           66121                           CADR     GOPIN                                 
030836,002298: 42,3563  E6,1425                                  EBANK=   PACTOFF                               
030837,002299: 42,3563           03143 12106  T5IDLDAP           2CADR    T5IDLOC                               
030838,002300: 
030839,002301: 17,2030                                           BANK     17                                    
030840,002302: 20,2000                                           SETLOC   DAPS6                                 
030841,002303: 20,2000                                           BANK                                           
030842,002304: 
030843,002305: 20,2275           00631        DEC409             DEC      409        B-14                       
030844,002306: 20,2276           00056        DEC46              DEC      46         B-14                       
030845,002307: 
030846,002308:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)

Page 691

030848,002310: 20,2277           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
030849,002311: 20,2300           00006                           EXTEND                                         
030850,002312: 20,2301           72324                           MP       CONTONE                               
030851,002313: 20,2302           55623                           TS       J/M                                   
030852,002314: 
030853,002315: 20,2303           31471                           CA       IAVG                                  
030854,002316: 20,2304           00006                           EXTEND                                         
030855,002317: 20,2305           72324                           MP       CONTONE                               
030856,002318: 20,2306           55624                           TS       J/M1                                  
030857,002319: 
030858,002320: 20,2307           55625                           TS       J/M2                                  
030859,002321: 
030860,002322: 20,2310           00006                           EXTEND                                         
030861,002323: 20,2311           32326                           DCA      CONTTWO                               
030862,002324: 20,2312           00006                           EXTEND                                         
030863,002325: 20,2313           11470                           DV       IXX                                   
030864,002326: 20,2314           55620                           TS       KMJ                                   
030865,002327: 
030866,002328: 20,2315           00006                           EXTEND                                         
030867,002329: 20,2316           32326                           DCA      CONTTWO                               
030868,002330: 20,2317           00006                           EXTEND                                         
030869,002331: 20,2320           11471                           DV       IAVG                                  
030870,002332: 20,2321           55621                           TS       KMJ1                                  
030871,002333: 
030872,002334: 20,2322           55622                           TS       KMJ2                                  
030873,002335: 
030874,002336: 20,2323           00002                           TC       Q                                     
030875,002337: 
030876,002338: 20,2324           25137        CONTONE            DEC      .662034                               #  2PI/M
030877,002339: 20,2325           00023 12522  CONTTWO            2DEC     .00118                                
030878,002340: 
030879,002341: 20,2327                                           COUNT    24/TVNG                               
030880,002342: 
030881,002343: 31,3215                                           BANK     31                                    
030882,002344: 24,2000                                           SETLOC   P40S                                  
030883,002345: 24,2000                                           BANK                                           
030884,002346: 
030885,002347: 24,3677           37405        POS-2.5            OCT      37405                                 
030886,002348: 24,3700  E6,1466                                  EBANK=   DAPDATR1                              
030887,002349: 24,3700           02000 42106  RCSCADR            2CADR    RCSUP                                 
030888,002350: 
030889,002351: 24,3702           37704        6SECT5             OCT      37704                                 
030890,002352: 24,3703                                           COUNT    21/RCSUP                              
030891,002353: 
030892,002354: 20,2327                                           BANK     20                                    
030893,002355: 
030894,002356: 21,2000                                           SETLOC   DAPS3                                 
030895,002357: 21,2000                                           BANK                                           
030896,002358: 
030897,002359: 21,2000           22016        RCSUP              LXCH     BANKRUPT                              

Page 692

030899,002361: 21,2001           00006                           EXTEND                                         
030900,002362: 21,2002           22012                           QXCH     QRUPT                                 
030901,002363: 
030902,002364: 21,2003           02010                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
030903,002365: 
030904,002366: 21,2004           15222                           TCF      RESUME                                
030905,002367: 
030906,002368: 21,2005  E6,1466                                  EBANK=   DAPDATR1                              
030907,002369: 21,2005           02106 42106  RCSADDR            2CADR    RCSATT                                
030908,002370: 
030909,002371: 21,2007           37704        0.6SECT5           OCT      37704                                 
030910,002372: 
030911,002373:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030912,002374: 21,2010           32007        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030913,002375: 21,2011           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
030914,002376: 21,2012           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
030915,002377: 
030916,002378: 21,2013           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
030917,002379: 21,2014           74710                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
030918,002380: 21,2015           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
030919,002381: 
030920,002382: 21,2016           00006                           EXTEND                                         
030921,002383: 21,2017           32006                           DCA      RCSADDR                               #  (RCSATT)
030922,002384: 21,2020           53313                           DXCH     T5LOC                                 
030923,002385: 
030924,002386: 21,2021           44105                           CS       OCT60000                              #  SET BITS 15,14 TO 01 TO INDICATE
030925,002387: 21,2022           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
030926,002388: 21,2023           64675                           AD       BIT14                                 
030927,002389: 21,2024           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
030928,002390: 
030929,002391: 21,2025           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)

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