Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

027983,000002:                                                                                                  ## Copyright:   Public domain.
027984,000003:                                                                                                  ## Filename:    P40-P47.agc
027985,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
027986,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
027987,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
027988,000007:                                                                                                  ## Assembler:   yaYUL
027989,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
027990,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027991,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
027992,000011:                                                                                                  ## Mod history: 2011-02-20 JL   Adapted from corresponding Colossus 249 file.
027993,000012:                                                                                                  ##              2011-04-24 JL   Fixed incorrect indentation of label.
027994,000013:                                                                                                  ##              2012-10-08 JL   Fixed incorrect opcode on p682.
027995,000014:                                                                                                  ##              2016-08-14 RSB  Added SBANKs for addressing discrepancies.
027996,000015:                                                                                                  ##              2016-12-31 RSB  Proofed comment text using octopus/ProoferComments,
027997,000016:                                                                                                  ##                              and corrected errors found.
027998,000017:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
027999,000018:                                                                                                  ##                              vs Colossus 249.
028000,000019: 

Page 637

028002,000021:                                                                                                  #  PROGRAM DESCRIPTION **P40CSM**
028003,000022: 
028004,000023: 
028005,000024: 35,3755  E6,1466                                  EBANK=   DAPDATR1                              
028006,000025: 31,3215                                           BANK     31                                    
028007,000026: 24,2000                                           SETLOC   P40S                                  
028008,000027: 24,2000                                           BANK                                           
028009,000028: 
028010,000029: 24,2002                                           COUNT    24/P40                                
028011,000030: 
028012,000031: 24,2002           05447        P40CSM             TC       DOWNFLAG                              
028013,000032: 24,2003           00023                           ADRES    ENG2FLAG                              
028014,000033: 
028015,000034: 24,2004           06006                           TC       INTPRET                               
028016,000035: 24,2005           43135                           SLOAD    BOFF                                  
028017,000036: 24,2006           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
028018,000037: 24,2007           01347                                    XDELVFLG                              
028019,000038: 24,2010           50013                                    P40S/C                                #  NO   CSTEER = ECSTEER
028020,000039: 24,2011           77745                           DLOAD                                          #  YES  CSTEER = ZERO
028021,000040: 24,2012           15332                                    HI6ZEROS                              
028022,000041: 24,2013           17703        P40S/C             STODL    CSTEER                                
028023,000042: 24,2014           10335                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
028024,000043: 24,2015           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
028025,000044: 24,2016           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
028026,000045: 24,2017           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
028027,000046: 
028028,000047: 24,2020           77776                           EXIT                                           
028029,000048: 24,2021           04555                           TC       BANKCALL                              
028030,000049: 24,2022           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
028031,000050: 
028032,000051: 24,2023           06006        P40PVA             TC       INTPRET                               
028033,000052: 24,2024           77624                           CALL                                           
028034,000053: 24,2025           34000                                    S40.1                                 #  COMPUTE VGTIG,UT
028035,000054: 24,2026           77624                           CALL                                           
028036,000055: 24,2027           51514                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
028037,000056: 24,2030           77414                           SET      EXIT                                  
028038,000057: 24,2031           01073                                    PFRATFLG                              
028039,000058: 24,2032           02212        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
028040,000059: 24,2033           00003                           RELINT                                         
028041,000060: 24,2034           04555                           TC       BANKCALL                              
028042,000061: 24,2035           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
028043,000062: 24,2036           44712                           CS       ONE                                   #  FOR UPDATEVG
028044,000063: 24,2037           55746                           TS       NBRCYCLS                              
028045,000064: 24,2040           05435                           TC       UPFLAG                                
028046,000065: 24,2041           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
028047,000066: 
028048,000067: 24,2042           02252                           TC       P41/P40                               
028049,000068: 24,2043           02267                           TC       P41/DSP                               #  P41
028050,000069: 
028051,000070: 24,2044           32351        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED

Page 638

028053,000072: 24,2045           55145                           TS       NVWORD1                               #  BELOW
028054,000073: 
028055,000074: 24,2046           06006                           TC       INTPRET                               
028056,000075: 24,2047           51575                           VLOAD    ABVAL                                 #  FOR R2
028057,000076: 24,2050           03721                                    VGTIG                                 
028058,000077: 24,2051           17654                           STODL    VGDISP                                
028059,000078: 24,2052           15332                                    HI6ZEROS                              
028060,000079: 24,2053           03426                           STORE    DVTOTAL                               
028061,000080: 24,2054           77776                           EXIT                                           
028062,000081: 
028063,000082: 24,2055           00006                           EXTEND                                         
028064,000083: 24,2056           32775                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
028065,000084: 24,2057           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
028066,000085: 
028067,000086: 24,2060           32344        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
028068,000087: 24,2061           04555                           TC       BANKCALL                              
028069,000088: 24,2062           20751                           CADR     GOPERF1                               
028070,000089: 24,2063           12204                           TCF      POST41                                #  V34
028071,000090: 24,2064           12364                           TCF      TST,TRIM                              #  V33
028072,000091: 24,2065           44712        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM  (-1)
028073,000092: 24,2066           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
028074,000093: 
028075,000094: 24,2067           34714                           CAF      ZERO                                  #  SET CNTR  +0 FOR RESTART LOGIC IN S40.6
028076,000095: 24,2070           55447                           TS       CNTR                                  #       +0 SAYS NORMAL ENTRY.
028077,000096:                                                                                                  #                                               +1 (PRE40.6) SAYS RESTART ENTRY
028078,000097: 
028079,000098: 24,2071           34712                           CAF      ONE                                   
028080,000099: 24,2072           05140                           TC       WAITLIST                              
028081,000100: 24,2073  E6,1466                                  EBANK=   DAPDATR1                              
028082,000101: 24,2073           02050 40066                     2CADR    S40.6                                 
028083,000102: 24,2075           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBALTEST
028084,000103: 24,2076           32343                           CAF      18SEC                                 #   PLUS, DELAY FOR 18 SECONDS
028085,000104: 24,2077           12101                           TCF      +2                                    #  HOLE
028086,000105: 24,2100           33000                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
028087,000106: 24,2101           04555                           TC       BANKCALL                              
028088,000107: 24,2102           01730                           CADR     DELAYJOB                              
028089,000108: 24,2103           05261                           TC       2PHSCHNG                              
028090,000109: 24,2104           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
028091,000110: 24,2105           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
028092,000111: 24,2106           34712        P40S/RS            CAF      ONE                                   
028093,000112: 24,2107           05140                           TC       WAITLIST                              #  P41/SDP
028094,000113: 24,2110  E7,1412                                  EBANK=   TIG                                   
028095,000114: 24,2110           03174 50067                     2CADR    CLOKTASK                              
028096,000115: 
028097,000116: 24,2112           00003                           RELINT                                         
028098,000117: 
028099,000118: 24,2113           03306        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
028100,000119: 24,2114  E7,1412                                  EBANK=   TIG                                   

Page 639

028102,000121: 24,2114           06006                           TC       INTPRET                               
028103,000122: 24,2115           45345                           DLOAD    DSU                                   
028104,000123: 24,2116           03413                                    TIG                                   
028105,000124: 24,2117           10342                                    SEC29.96                              
028106,000125: 24,2120           00041                           STORE    TDEC1                                 
028107,000126: 
028108,000127: 24,2121           77624                           CALRB                                          #  RETURN IN BASIC
028109,000128: 24,2122           27574                                    MIDTOAV1                              
028110,000129: 24,2123           12125                           TCF      +2                                    
028111,000130: 24,2124           02146                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
028112,000131: 24,2125           00006        P40SET             EXTEND                                         
028113,000132: 24,2126           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
028114,000133: 24,2127           53673                           DXCH     P40TMP                                
028115,000134: 24,2130           00006                           EXTEND                                         
028116,000135: 24,2131           43000                           DCS      5SECDP                                #  FOR TTGBLNK
028117,000136: 24,2132           21673                           DAS      P40TMP                                
028118,000137: 24,2133           00006                           EXTEND                                         
028119,000138: 24,2134           31673                           DCA      P40TMP                                
028120,000139: 24,2135           05231                           TC       LONGCALL                              
028121,000140: 24,2136  E7,1412                                  EBANK=   TIG                                   
028122,000141: 24,2136           02366 50067                     2CADR    TIGBLNK                               
028123,000142: 24,2140           05301                           TC       PHASCHNG                              
028124,000143: 24,2141           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
028125,000144: 
028126,000145: 24,2142           15112                           TCF      ENDOFJOB                              
028127,000146: 24,2143           04555        P40BLNKR           TC       BANKCALL                              
028128,000147: 24,2144           20607                           CADR     CLEANDSP                              #  REMOVE RESIDUE
028129,000148: 24,2145           15112                           TCF      ENDOFJOB                              
028130,000149: 24,2146  E7,1412                                  EBANK=   TIG                                   
028131,000150: 24,2146           00006        P40SNEWM           EXTEND                                         
028132,000151: 24,2147           31246                           DCA      PIPTIME1                              
028133,000152: 24,2150           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
028134,000153: 24,2151           00006                           EXTEND                                         
028135,000154: 24,2152           32342                           DCA      SEC29.96                              
028136,000155: 24,2153           21413                           DAS      TIG                                   
028137,000156: 24,2154           12125                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30( OR -35)
028138,000157: 
028139,000158: 24,2155  E6,1466                                  EBANK=   DAPDATR1                              
028140,000159: 24,2155           32353        POSTBURN           CAF      V16N40                                
028141,000160: 24,2156           04555                           TC       BANKCALL                              
028142,000161: 24,2157           20610                           CADR     REFLASH                               
028143,000162: 24,2160           12204                           TCF      POST41                                #  V34 GO FINISH
028144,000163: 24,2161           12163                           TCF      P40RCS                                #  PROCEED
028145,000164: 24,2162           12155                           TCF      POSTBURN                              #  RECYCLE
028146,000165: 24,2163           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
028147,000166: 24,2164           32411                           DCA      ACADN85                               
028148,000167: 24,2165           53223                           DXCH     AVEGEXIT                              
028149,000168: 24,2166           34735                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
028150,000169: 24,2167           04555                           TC       BANKCALL                              

Page 640

028152,000171: 24,2170           01730                           CADR     DELAYJOB                              
028153,000172: 
028154,000173: 24,2171           02212        P40MINDB           TCR      SETMINDB   -1                         
028155,000174: 24,2172           00003                           RELINT                                         
028156,000175: 24,2173           05301        TIGNOW             TC       PHASCHNG                              
028157,000176: 24,2174           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
028158,000177: 24,2175           20000                           OCT      20000                                 #  PRIO 20
028159,000178: 24,2176           32350                           CAF      V16N85B                               
028160,000179: 24,2177           04555                           TC       BANKCALL                              
028161,000180: 24,2200           20610                           CADR     REFLASH                               
028162,000181: 24,2201           12204                           TCF      POST41                                #  FINISH P40/P41
028163,000182: 24,2202           12204                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
028164,000183: 24,2203           12173                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
028165,000184: 
028166,000185: 24,2204           00006        POST41             EXTEND                                         
028167,000186: 24,2205           32407                           DCA      SERVCADR                              
028168,000187: 24,2206           53223                           DXCH     AVEGEXIT                              
028169,000188: 24,2207           14106                           TCF      GOTOPOOH                              
028170,000189: 
028171,000190: 
028172,000191: 24,2210           00056        MINDB              DEC      46         B-14                       
028173,000192: 24,2211           00707        MAXDB              DEC      455        B-14                       
028174,000193: 24,2212  E6,1466                                  EBANK=   DAPDATR1                              
028175,000194: 24,2212           00004                 -1        INHINT                                         
028176,000195: 24,2213           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
028177,000196: 24,2214           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
028178,000197: 24,2215           00006                           EXTEND                                         #  IN AUTOPILOT
028179,000198: 24,2216           30034                           DCA      CDUY                                  
028180,000199: 24,2217           53574                           DXCH     THETADY                               
028181,000200: 24,2220           32210                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
028182,000201: 24,2221           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
028183,000202: 24,2222           44707                           CS       BIT4                                  #  EBANK = E6
028184,000203: 24,2223           71466                           MASK     DAPDATR1                              
028185,000204: 24,2224           55466                           TS       DAPDATR1                              
028186,000205: 24,2225           00002                           TC       Q                                     
028187,000206: 
028188,000207: 24,2226  E6,1466                                  EBANK=   DAPDATR1                              
028189,000208: 24,2226           00004                 -1        INHINT                                         
028190,000209: 24,2227           32211        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
028191,000210: 24,2230           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
028192,000211: 24,2231           41466                           CS       DAPDATR1                              
028193,000212: 24,2232           74707                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
028194,000213: 24,2233           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
028195,000214: 24,2234           00002                           TC       Q                                     #  EBANK = E6
028196,000215: 

Page 641

028198,000217:                                                                                                  #  PROGRAM DESCRIPTION **P41CSM**
028199,000218: 
028200,000219: 
028201,000220: 24,2235  E6,1466                                  EBANK=   DAPDATR1                              
028202,000221: 24,2235                                           COUNT    24/P41                                
028203,000222: 
028204,000223: 24,2235           05435        P41CSM             TC       UPFLAG                                
028205,000224: 24,2236           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
028206,000225: 
028207,000226: 24,2237           06006                           TC       INTPRET                               
028208,000227: 24,2240           77745                           DLOAD                                          
028209,000228: 24,2241           15332                                    HI6ZEROS                              #  FOR P41 CSTEER =0
028210,000229: 24,2242           03703                           STORE    CSTEER                                
028211,000230: 
028212,000231: 24,2243           43145                           DLOAD    BON                                   
028213,000232: 24,2244           10337                                    FRCS2                                 #  2JET THRUST FOR S40.1
028214,000233: 24,2245           00700                                    NJETSFLG                              
028215,000234: 24,2246           50015                                    P40S/F                                #  NJETS = 1 2-JET
028216,000235: 24,2247           52015                           DAD      GOTO                                  #  NJETS = 0  4-JET
028217,000236: 24,2250           10337                                    FRCS2                                 
028218,000237: 24,2251           50015                                    P40S/F                                
028219,000238: 
028220,000239: 24,2252           41011        P41/P40            CS       MODREG                                
028221,000240: 24,2253           74712                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
028222,000241: 24,2254           00006                           EXTEND                                         
028223,000242: 24,2255           12257                           BZF      +2                                    #  P41
028224,000243: 24,2256           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
028225,000244: 24,2257           00002                           TC       Q                                     
028226,000245: 
028227,000246: 24,2260           34675        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
028228,000247: 24,2261           05027                           TC       NOVAC                                 
028229,000248: 24,2262  E6,1466                                  EBANK=   DAPDATR1                              
028230,000249: 24,2262           02173 50066                     2CADR    TIGNOW                                
028231,000250: 
028232,000251: 24,2264           05447        P40CLK             TC       DOWNFLAG                              
028233,000252: 24,2265           00155                           ADRES    TIMRFLAG                              
028234,000253: 
028235,000254: 24,2266           15213                           TCF      TASKOVER                              
028236,000255: 
028237,000256: 24,2267           32347        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
028238,000257: 24,2270           55145                           TS       NVWORD1                               
028239,000258: 
028240,000259: 24,2271           06006                           TC       INTPRET                               
028241,000260: 24,2272           77624                           CALL                                           #  COMPUTE
028242,000261: 24,2273           50314                                    P40CNV85                              #          VGTIG IN CTRL COORDS
028243,000262: 24,2274           77776                           EXIT                                           
028244,000263: 24,2275           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
028245,000264: 24,2276           32411                           DCA      ACADN85                               
028246,000265: 24,2277           53223                           DXCH     AVEGEXIT                              

Page 642

028248,000267: 24,2300           05261                           TC       2PHSCHNG                              
028249,000268: 24,2301           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
028250,000269: 24,2302           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
028251,000270: 
028252,000271: 24,2303           12106                           TCF      P40S/RS                               
028253,000272: 24,2304           32350        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
028254,000273: 24,2305           55145                           TS       NVWORD1                               #   REDISPLAY NONFLASHING
028255,000274: 24,2306           32342                           CAF      SEC29.96   +1                         
028256,000275: 24,2307           05140                           TC       WAITLIST                              
028257,000276: 24,2310  E6,1466                                  EBANK=   DAPDATR1                              
028258,000277: 24,2310           02260 50066                     2CADR    TTG/0                                 
028259,000278: 24,2312           44710                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
028260,000279: 24,2313           12515                           TCF      TTGPHS                                
028261,000280: 24,2314           40220        P40CNV85           STQ      SETPD                                 
028262,000281: 24,2315           03730                                    QTEMP1                                
028263,000282: 24,2316           00001                                    0                                     
028264,000283: 24,2317           41575                           VLOAD    PUSH                                  
028265,000284: 24,2320           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
028266,000285: 24,2321           77624                           CALL                                           
028267,000286: 24,2322           45426                                    S41.1                                 
028268,000287: 24,2323           37665                           STCALL   VGBODY                                
028269,000288: 24,2324           03730                                    QTEMP1                                
028270,000289: 
028271,000290: 24,2325  E6,1466                                  EBANK=   DAPDATR1                              
028272,000291: 24,2325           06006        CALCN85            TC       INTPRET                               
028273,000292: 24,2326           77624                           CALL                                           
028274,000293: 24,2327           51020                                    UPDATEVG                              #  NEW VG, S40.8(+MAYBE S40.9)
028275,000294: 24,2330           77624                           CALL                                           
028276,000295: 24,2331           50314                                    P40CNV85                              #  COMPUTE VGBODY
028277,000296: 24,2332           77776                           EXIT                                           
028278,000297: 24,2333           03131                           TC       SERVXT                                
028279,000298: 24,2334           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
028280,000299: 24,2336           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
028281,000300:                                                                                                  #                                               B+7 NEWTONS/E+4
028282,000301: 24,2340           04700        SEC24.96           DEC      2496       B-14                       
028283,000302: 24,2341           00000 05664  SEC29.96           2DEC     2996       B-28                       
028284,000303: 24,2343           03410        18SEC              DEC      1800       B-14                       
028285,000304: 24,2344           00204        P40CKLS2           OCT      204                                   
028286,000305: 24,2345           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
028287,000306: 24,2346     4377               OCT12              =        TEN                                   
028288,000307: 24,2346           04123        V1683              VN       1683                                  
028289,000308: 24,2347           01525        V06N85B            VN       0685                                  
028290,000309: 24,2350           04125        V16N85B            VN       1685                                  
028291,000310: 24,2351           01450        V06N40             VN       0640                                  
028292,000311: 24,2352           24020        P40OK99            OCT      24020                                 #  BITS 14,12, AND5 FOR LINUS VERB 99
028293,000312: 24,2353           04050        V16N40             VN       1640                                  

Page 643

028295,000314: 24,2354           00027        OCT27/24           OCT      27                                    
028296,000315: 24,2355           00053        OCT53              OCT      53                                    
028297,000316: 24,2356           00035        OCT35              OCT      35                                    
028298,000317: 24,2357  E6,1466                                  EBANK=   DAPDATR1                              
028299,000318: 24,2357           03132 12066  T5IDL24            2CADR    T5IDLOC                               
028300,000319: 24,2361           01120 25456  MDOTHI             2DEC     .289391932 B-3                        #  63.8 LB/SEC, SC.AT B+3 KG/CS   (=MDOTLO)
028301,000320: 24,2363           00026        3MDOT              DEC      86.8175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
028302,000321:                                                                                                  #                                               B+16 KG/SEC
028303,000322: 24,2364           34712        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
028304,000323: 24,2365           12066                           TCF      TRIMONLY   +1                         
028305,000324: 24,2366           33000        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
028306,000325: 24,2367           05140                           TC       WAITLIST                              
028307,000326: 24,2370  E7,1412                                  EBANK=   TIG                                   
028308,000327: 24,2370           02504 50067                     2CADR    TIGAVEG                               
028309,000328: 24,2372           34714                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
028310,000329: 24,2373           55145                           TS       NVWORD1                               
028311,000330: 
028312,000331: 24,2374           34761                           CAF      PRIO14                                
028313,000332: 24,2375           05027                           TC       NOVAC                                 
028314,000333: 24,2376  E7,1412                                  EBANK=   TIG                                   
028315,000334: 24,2376           02143 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
028316,000335: 24,2400           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
028317,000336: 24,2401           04114        P40TSK             TC       NEWPHASE                              
028318,000337: 24,2402           00004                           OCT      4                                     
028319,000338: 24,2403           05213                           TC       TASKOVER                              
028320,000339: 
028321,000340: 24,2404  E7,1412                                  EBANK=   TIG                                   
028322,000341: 24,2404           02440 50067  ACADN83            2CADR    CALCN83                               
028323,000342: 24,2406  E7,1412                                  EBANK=   TIG                                   
028324,000343: 24,2406           03136 76067  SERVCADR           2CADR    SERVEXIT                              
028325,000344: 24,2410  E6,1466                                  EBANK=   DAPDATR1                              
028326,000345: 24,2410           02325 50066  ACADN85            2CADR    CALCN85                               
028327,000346: 

Page 644

028329,000348:                                                                                                  #  PROGRAM DESCRIPTION **P47CSM**
028330,000349: 
028331,000350: 
028332,000351: 24,2412                                           COUNT    24/P47                                
028333,000352: 
028334,000353: 24,2412  E7,1412                                  EBANK=   TIG                                   
028335,000354: 24,2412           04555        P47CSM             TC       BANKCALL                              #    IMU STATUS CHECK
028336,000355: 24,2413           17573                           CADR     R02BOTH                               
028337,000356: 24,2414           06006                           TC       INTPRET                               
028338,000357: 24,2415           77624                           CALRB                                          
028339,000358: 24,2416           27570                                    MIDTOAV2                              
028340,000359: 24,2417           30155                           CAE      MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
028341,000360: 24,2420           55672                           TS       P40TMP                                #       CS, WITH A TPAGREE, INT.INIT.)
028342,000361: 24,2421           05140                           TC       WAITLIST                              
028343,000362: 24,2422  E7,1412                                  EBANK=   TIG                                   
028344,000363: 24,2422           02427 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
028345,000364: 
028346,000365: 24,2424           05301                           TC       PHASCHNG                              
028347,000366: 24,2425           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
028348,000367: 24,2426           15112                           TCF      ENDOFJOB                              
028349,000368: 
028350,000369: 24,2427  E7,1672                                  EBANK=   P40TMP                                
028351,000370: 24,2427           00006        TIGON              EXTEND                                         
028352,000371: 24,2430           32405                           DCA      ACADN83                               
028353,000372: 24,2431           53223                           DXCH     AVEGEXIT                              
028354,000373: 24,2432           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
028355,000374: 24,2433           05027                           TC       NOVAC                                 
028356,000375: 24,2434  E7,1412                                  EBANK=   TIG                                   
028357,000376: 24,2434           02463 50067                     2CADR    P47BODY                               
028358,000377: 24,2436           44711                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
028359,000378: 24,2437           12515                           TCF      TTGPHS                                
028360,000379: 
028361,000380: 
028362,000381: 24,2440  E7,1412                                  EBANK=   TIG                                   
028363,000382: 24,2440           06006        CALCN83            TC       INTPRET                               
028364,000383: 24,2441           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
028365,000384: 24,2442           00001                                    0                                     
028366,000385: 24,2443           53375                           VLOAD    VAD                                   
028367,000386: 24,2444           03665                                    DELVCTL                               
028368,000387: 24,2445           03433                                    DELVREF                               
028369,000388: 24,2446           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
028370,000389: 24,2447           45006                           PUSH     CALL                                  
028371,000390: 24,2450           45426                                    S41.1                                 
028372,000391: 24,2451           37675                           STCALL   DELVIMU                               
028373,000392: 24,2452           70436                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
028374,000393: 24,2453           77776                           EXIT                                           
028375,000394: 24,2454           05301                           TC       PHASCHNG                              
028376,000395: 24,2455           10035                           OCT      10035                                 

Page 645

028378,000397: 24,2456           34715                           CAF      FIVE                                  
028379,000398: 24,2457           05475                           TC       GENTRAN                               
028380,000399: 24,2460           01457                           ADRES    DV47TEMP                              
028381,000400: 24,2461           01664                           ADRES    DELVCTL                               
028382,000401: 
028383,000402: 24,2462           03131                           TC       SERVXT                                
028384,000403: 24,2463           06006        P47BODY            TC       INTPRET                               
028385,000404: 24,2464           77775                           VLOAD                                          
028386,000405: 24,2465           15332                                    HI6ZEROS                              
028387,000406: 24,2466           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
028388,000407: 24,2467           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
028389,000408: 24,2470           77776                           EXIT                                           
028390,000409: 24,2471           34762        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
028391,000410: 24,2472           05103                           TC       PRIOCHNG                              #    TO PREVENT INTERRUPTION OF CALCN83
028392,000411: 24,2473           05301                           TC       PHASCHNG                              
028393,000412: 24,2474           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
028394,000413: 24,2475           15000                           OCT      15000                                 #  PRIO 15
028395,000414: 24,2476           32346        P47/DSP            CAF      V1683                                 
028396,000415: 24,2477           04555                           TC       BANKCALL                              
028397,000416: 24,2500           20624                           CADR     GOFLASH                               
028398,000417: 24,2501           04106                           TC       GOTOPOOH                              
028399,000418: 24,2502           04106                           TC       GOTOPOOH                              
028400,000419: 24,2503           12463                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
028401,000420: 

Page 646

028403,000422:                                                                                                  #  ROUTINE **TIG-30** DESCRIPTION
028404,000423: 
028405,000424: 
028406,000425: 24,2504  E7,1412                                  EBANK=   TIG                                   
028407,000426: 24,2504                                           COUNT    24/P40                                
028408,000427: 
028409,000428: 24,2504           02252        TIGAVEG            TC       P41/P40                               #  TASK (4.37 PROTECTS)
028410,000429: 24,2505           12304                           TCF      P41REDSP                              #  P41
028411,000430: 
028412,000431: 24,2506           32351                           CAF      V06N40                                #  UNBLANK DISPLAY
028413,000432: 24,2507           55145                           TS       NVWORD1                               
028414,000433: 
028415,000434: 24,2510           32340                           CAF      SEC24.96                              
028416,000435: 24,2511           05140                           TC       WAITLIST                              
028417,000436: 24,2512  E7,1412                                  EBANK=   TIG                                   
028418,000437: 24,2512           02523 50067                     2CADR    TIG-5                                 
028419,000438: 24,2514           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
028420,000439: 24,2515           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
028421,000440: 24,2516           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
028422,000441: 
028423,000442: 24,2517           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
028424,000443: 24,2520           15213                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
028425,000444: 24,2521           04574                           TC       POSTJUMP                              
028426,000445: 24,2522           76604                           CADR     PREREAD                               
028427,000446: 

Page 647

028429,000448:                                                                                                  #  ROUTINE **TIG-5** DESCRIPTION
028430,000449: 
028431,000450: 
028432,000451: 24,2523  E7,1412                                  EBANK=   TIG                                   
028433,000452: 24,2523           33000        TIG-5              CAF      5SEC                                  
028434,000453: 24,2524           05140                           TC       WAITLIST                              
028435,000454: 24,2525  E6,1466                                  EBANK=   DAPDATR1                              
028436,000455: 24,2525           02541 50066                     2CADR    TIG-0                                 
028437,000456: 24,2527           44702                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
028438,000457: 24,2530           55145                           TS       NVWORD1                               
028439,000458: 
028440,000459: 24,2531           05261                           TC       2PHSCHNG                              
028441,000460: 24,2532           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
028442,000461: 24,2533           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
028443,000462: 
028444,000463: 24,2534           34675                           CAF      PRIO20                                
028445,000464: 24,2535           05042                           TC       FINDVAC                               
028446,000465: 24,2536  E7,1427                                  EBANK=   TGO                                   
028447,000466: 24,2536           02404 34067                     2CADR    S40.13                                
028448,000467: 24,2540           15213                           TCF      TASKOVER                              
028449,000468: 

Page 648

028451,000470:                                                                                                  #  ROUTINES **TIG-0** AND **IGNITION** DESCRIPTION
028452,000471: 
028453,000472: 
028454,000473: 24,2541  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
028455,000474: 24,2541           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
028456,000475: 24,2542           74676                           MASK     BIT13                                 
028457,000476: 24,2543           26103                           ADS      FLAGWRD7                              
028458,000477: 
028459,000478: 24,2544           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
028460,000479: 24,2545           74677                           MASK     BIT12                                 
028461,000480: 24,2546           00006                           EXTEND                                         
028462,000481: 24,2547           15213                           BZF      TASKOVER                              #  WAIT FOR V99P
028463,000482: 
028464,000483: 24,2550           32351                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
028465,000484: 24,2551           55145                           TS       NVWORD1                               #       DURING THE V99 SEQUENCE)
028466,000485: 
028467,000486: 24,2552           05301                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
028468,000487: 24,2553           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
028469,000488: 
028470,000489: 24,2554           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
028471,000490: 24,2555           55450                           TS       OGAD                                  #       V99PJOB (CLOCKJOB) SETS UP IGNITION
028472,000491: 24,2556           00006                           EXTEND                                         #       TASK (4.61 PROTECTION)
028473,000492: 24,2557           30025                           DCA      TIME2                                 #       FOR RESTARTS
028474,000493: 24,2560           53337                           DXCH     TEVENT                                
028475,000494: 24,2561           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
028476,000495: 24,2562           74704                           MASK     BIT7                                  
028477,000496: 24,2563           26101                           ADS      FLAGWRD5                              
028478,000497: 24,2564           34676        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
028479,000498: 24,2565           00006                           EXTEND                                         
028480,000499: 24,2566           05011                           WOR      DSALMOUT                              
028481,000500: 
028482,000501: 24,2567           34702        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
028483,000502: 24,2570           70076                           MASK     FLAGWRD2                              
028484,000503: 24,2571           10000                           CCS      A                                     
028485,000504: 24,2572           12657                           TCF      IMPLBURN                              #  IMPULSIVE
028486,000505: 24,2573           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
028487,000506: 24,2574           74676                           MASK     BIT13                                 
028488,000507: 24,2575           26102                           ADS      FLAGWRD6                              
028489,000508: 
028490,000509: 24,2576           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
028491,000510: 24,2577           70102                           MASK     FLAGWRD6                              
028492,000511: 24,2600           54102                           TS       FLAGWRD6                              
028493,000512: 
028494,000513: 24,2601           00006                           EXTEND                                         #  KILL RCS
028495,000514: 24,2602           32360                           DCA      T5IDL24                               
028496,000515: 24,2603           53313                           DXCH     T5LOC                                 
028497,000516: 
028498,000517: 24,2604           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
028499,000518: 24,2605           04114                           TC       NEWPHASE                              
028500,000519: 24,2606           00004                           OCT      4                                     

Page 649

028502,000521: 24,2607           05156                           TC       FIXDELAY                              
028503,000522: 24,2610           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
028504,000523: 
028505,000524: 24,2611           44712        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
028506,000525: 24,2612           55654                           TS       TVCPHASE                              
028507,000526: 24,2613           34714                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
028508,000527: 24,2614           55661                           TS       TVCEXPHS                              
028509,000528: 24,2615           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER....
028510,000529: 24,2616           70102                           MASK     FLAGWRD6                              #       BITS 15,14  =  10
028511,000530: 24,2617           64674                           AD       BIT15                                 
028512,000531: 24,2620           54102                           TS       FLAGWRD6                              
028513,000532: 
028514,000533: 24,2621           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
028515,000534: 24,2622           54001                           TS       L                                     #       WHICH IS HANDLED NOW BY REDOTVC
028516,000535: 24,2623           40000                           COM                                            
028517,000536: 24,2624           52765                           DXCH     -PHASE6                               
028518,000537: 
028519,000538: 24,2625           44715                           CS       FIVE                                  #  4.5 = DOSTRULL  (160 CS)
028520,000539: 24,2626           04114                           TC       NEWPHASE                              
028521,000540: 24,2627           00004                           OCT      4                                     
028522,000541: 
028523,000542: 24,2630           34672                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
028524,000543: 24,2631           54030                           TS       TIME5                                 
028525,000544: 24,2632           00006                           EXTEND                                         
028526,000545: 24,2633           33003                           DCA      TVCON2C                               #  (TVCDAPON)
028527,000546: 24,2634           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
028528,000547: 
028529,000548: 24,2635           05156                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
028530,000549: 24,2636           00240                           DEC      160        B-14                       #       STEERING (IF NON-IMPULSIVE)
028531,000550: 
028532,000551: 24,2637           34676        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
028533,000552: 24,2640           70102                           MASK     FLAGWRD6                              
028534,000553: 24,2641           10000                           CCS      A                                     
028535,000554: 24,2642           02650                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
028536,000555: 24,2643           02653                           TCR      ULAGEOFF                              #  ULLAGE OFF  (ONLY, OR AGAIN)
028537,000556: 
028538,000557: 24,2644           00006                           EXTEND                                         
028539,000558: 24,2645           34714                           DCA      NEG0                                  #  KILL GROUP 4  (DP NEG0 = -0,+0)
028540,000559: 24,2646           52761                           DXCH     -PHASE4                               
028541,000560: 
028542,000561: 24,2647           15213        ENDIGN             TCF      TASKOVER                              
028543,000562: 
028544,000563: 
028545,000564: 24,2650           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
028546,000565: 24,2651           74700                           MASK     BIT11                                 
028547,000566: 24,2652           26076                           ADS      FLAGWRD2                              
028548,000567: 
028549,000568: 24,2653           34714        ULAGEOFF           CAF      ZERO                                  
028550,000569: 24,2654           00006                           EXTEND                                         
028551,000570: 24,2655           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5

Page 650

028553,000572: 24,2656           00002                           TC       Q                                     
028554,000573: 
028555,000574: 
028556,000575: 24,2657           44676        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
028557,000576: 24,2660           70102                           MASK     FLAGWRD6                              #       ENGINE FAIL)
028558,000577: 24,2661           54102                           TS       FLAGWRD6                              
028559,000578: 
028560,000579: 24,2662           03306                           TCR      E7SETTER                              
028561,000580: 
028562,000581: 24,2663  E7,1412                                  EBANK=   TIG                                   
028563,000582: 24,2663           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
028564,000583: 24,2664           31430                           DCA      TGO                                   
028565,000584: 24,2665           53413                           DXCH     TIG                                   
028566,000585: 24,2666           00006                           EXTEND                                         
028567,000586: 24,2667           30025                           DCA      TIME2                                 
028568,000587: 24,2670           21413                           DAS      TIG                                   
028569,000588: 
028570,000589: 24,2671           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
028571,000590: 24,2672           05140                           TC       WAITLIST                              
028572,000591: 24,2673  E7,1427                                  EBANK=   TGO                                   
028573,000592: 24,2673           02710 50067                     2CADR    ENGINOFF                              
028574,000593: 24,2675           05261                           TC       2PHSCHNG                              #  PROTECT....
028575,000594: 24,2676           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
028576,000595: 24,2677           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
028577,000596: 24,2700           77777                           DEC      -0         B-14                       #  -0 CS
028578,000597: 
028579,000598: 24,2701           44702                           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
028580,000599: 24,2702           70076                           MASK     FLAGWRD2                              
028581,000600: 24,2703           54076                           TS       FLAGWRD2                              
028582,000601: 
028583,000602: 24,2704           03311                           TCR      E6SETTER                              
028584,000603: 24,2705  E6,1466                                  EBANK=   DAPDATR1                              
028585,000604: 
028586,000605: 24,2705           34714                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
028587,000606: 24,2706           55444                           TS       V97VCNTR                              #       BACK) ARRIVES BEFORE TVCDAPON
028588,000607: 
028589,000608: 24,2707           12576                           TCF      PREPTVC                               
028590,000609: 
028591,000610: 
028592,000611: 24,2710  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
028593,000612: 24,2710           03311        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)       GET E6
028594,000613: 24,2711  E6,1466                                  EBANK=   DAPDATR1                              
028595,000614: 24,2711           31474                           CAE      CSMMASS                               
028596,000615: 24,2712           55662                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK
028597,000616: 24,2713           05261                           TC       2PHSCHNG                              
028598,000617: 24,2714           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
028599,000618: 24,2715           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF  (-0CS)
028600,000619: 24,2716           02741        DOSPSOFF           TCR      SPSOFF                                #  SHUT DOWN SPS, MASS UPDATES, ETC.
028601,000620: 24,2717           42354                           CS       OCT27/24                              #  (OCTAL 27)

Page 651

028603,000622: 24,2720           04114                           TC       NEWPHASE                              
028604,000623: 24,2721           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
028605,000624: 
028606,000625: 24,2722           05156                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
028607,000626: 24,2723           00372                           DEC      250        B-14                       
028608,000627: 
028609,000628: 24,2724           02227        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
028610,000629: 
028611,000630: 24,2725           04633                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
028612,000631: 24,2726           42010                           CADR     RCSDAPON                              #       BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
028613,000632: 
028614,000633: 24,2727           04633                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
028615,000634: 24,2730           13176                           CADR     MASSPROP                              #       RCS DAP STARTUP IN 0.6 SECONDS
028616,000635: 
028617,000636: 24,2731           03005                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
028618,000637: 
028619,000638: 24,2732           05301                           TC       PHASCHNG                              
028620,000639: 24,2733           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
028621,000640: 24,2734           34603                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
028622,000641: 24,2735           05027                           TC       NOVAC                                 
028623,000642: 24,2736  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
028624,000643: 24,2736           02155 50066                     2CADR    POSTBURN                              
028625,000644: 24,2740           15213                           TCF      TASKOVER                              
028626,000645: 
028627,000646: 24,2741  E6,1466                                  EBANK=   DAPDATR1                              
028628,000647: 24,2741           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
028629,000648: 24,2742           30025                           DCA      TIME2                                 
028630,000649: 24,2743           53337                           DXCH     TEVENT                                
028631,000650: 24,2744           44704                           CS       BIT7                                  #  RESET ENGONFLG
028632,000651: 24,2745           70101                           MASK     FLAGWRD5                              
028633,000652: 24,2746           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
028634,000653: 24,2747           44676                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
028635,000654: 24,2750           00006                           EXTEND                                         
028636,000655: 24,2751           03011                           WAND     DSALMOUT                              
028637,000656: 
028638,000657: 24,2752           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
028639,000658:                                                                                                  #                                               V97VCNTR = VCNTR UNLESS V97 IS
028640,000659:                                                                                                  #                                               ACTIVE. ONLY V97VCNTR IS THEN RIGHT
028641,000660: 24,2753           00006                           EXTEND                                         #    VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
028642,000661: 24,2754           72361                           MP       MDOTHI                                #       MDOT, SC<AT B+3 KG/CS
028643,000662: 24,2755           22000                           LXCH     A                                     
028644,000663: 24,2756           00006                           EXTEND                                         
028645,000664: 24,2757           74734                           MP       1SEC                                  #  DEC 100
028646,000665: 24,2760           61662                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
028647,000666: 24,2761           55474                           TS       CSMMASS                               #       (1.44 KG OR 0.4 BITS)
028648,000667: 
028649,000668: 24,2762           34674        BESTTRIM           CAF      BIT15                                 #  CHECK FOR SWITCHOVER, SELECT BEST TRIMS
028650,000669: 24,2763           70105                           MASK     FLAGWRD9                              #       FOR NEXT IGNITION (OR REIGNITION)
028651,000670: 24,2764           00006                           EXTEND                                         

Page 652

028653,000672: 24,2765           12767                           BZF      DBARTRIM                              #  PRE-SWITCHOVER
028654,000673: 24,2766           00002                           TC       Q                                     #  POST-SWITCHOVER, SO LEAVE TRIMS AS ARE
028655,000674: 
028656,000675: 24,2767           31621        DBARTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELP,YBAR
028657,000676: 24,2770           55425                           TS       PACTOFF                               
028658,000677: 24,2771           31623                           CAE      DELYBAR                               
028659,000678: 24,2772           55426                           TS       YACTOFF                               
028660,000679: 24,2773           00002                           TC       Q                                     
028661,000680: 
028662,000681: 24,2774  E6,1466                                  EBANK=   DAPDATR1                              
028663,000682: 24,2774           03121 50066  STEERADS           2CADR    STEERING                              
028664,000683: 24,2776           37703        .6SECT5            OCT      37703                                 
028665,000684: 24,2777           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
028666,000685: 24,3000           00764        5SEC               DEC      500        B-14                       
028667,000686: 24,3001           02202        OCT02202           OCT      02202                                 #  BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
028668,000687: 24,3002  E6,1466                                  EBANK=   DAPDATR1                              
028669,000688: 24,3002           02032 36066  TVCON2C            2CADR    TVCDAPON                              
028670,000689: 
028671,000690: 24,3004           00004                 -1        INHINT                                         
028672,000691: 24,3005           43001        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
028673,000692: 24,3006           00006                           EXTEND                                         #       OPTICS DAC
028674,000693: 24,3007           03012                           WAND     CHAN12                                
028675,000694: 24,3010           44712                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR....PERMIT
028676,000695: 24,3011           55303                           TS       OPTIND                                #      OPTICS-ZERO BUT NOT OPTICS-DRIVE
028677,000696: 24,3012           34714                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
028678,000697: 24,3013           55145                           TS       NVWORD1                               
028679,000698: 24,3014           44700                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
028680,000699: 24,3015           70103                           MASK     FLAGWRD7                              
028681,000700: 24,3016           54103                           TS       FLAGWRD7                              
028682,000701: 24,3017           00002                           TC       Q                                     
028683,000702: 24,3020  E6,1466                                  EBANK=   DAPDATR1                              
028684,000703: 24,3020           43020        UPDATEVG           STQ      BON                                   
028685,000704: 24,3021           03730                                    QTEMP1                                
028686,000705: 24,3022           01307                                    XDELVFLG                              
028687,000706: 24,3023           51047                                    CALL40.8                              
028688,000707: 
028689,000708: 24,3024           50135                           SLOAD    BMN                                   
028690,000709: 24,3025           03347                                    NBRCYCLS                              
028691,000710: 24,3026           51053                                    SETUP.9                               
028692,000711: 
028693,000712: 24,3027           53375                           VLOAD    VAD                                   
028694,000713: 24,3030           03351                                    DELVSUM                               
028695,000714: 24,3031           03433                                    DELVREF                               
028696,000715: 24,3032           03357                           STORE    DELVSUMP                              
028697,000716: 24,3033           77776                           EXIT                                           
028698,000717: 24,3034           34712                           CA       ONE                                   
028699,000718: 24,3035           61746                           AD       NBRCYCLS                              
028700,000719: 24,3036           55747                           TS       NBRCYCLP                              

Page 653

028702,000721: 24,3037           05301                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
028703,000722: 24,3040           10035                           OCT      10035                                 
028704,000723: 
028705,000724: 24,3041           31747                           CA       NBRCYCLP                              
028706,000725: 24,3042           55746                           TS       NBRCYCLS                              
028707,000726: 24,3043           06006                           TC       INTPRET                               
028708,000727: 24,3044           77775                           VLOAD                                          
028709,000728: 24,3045           03357                                    DELVSUMP                              
028710,000729: 24,3046           03351                           STORE    DELVSUM                               
028711,000730: 
028712,000731: 24,3047           77624        CALL40.8           CALL                                           
028713,000732: 24,3050           34130                                    S40.8                                 
028714,000733: 24,3051           77650                           GOTO                                           
028715,000734: 24,3052           03730                                    QTEMP1                                
028716,000735: 
028717,000736: 24,3053           67214        SETUP.9            BON      SLOAD                                 
028718,000737: 24,3054           01310                                    FIRSTFLG                              
028719,000738: 24,3055           51070                                    SURELY.9                              
028720,000739: 24,3056           03350                                    NBRCYCLP                              
028721,000740: 24,3057           74301                           NORM     VXSC                                  #  (NORM  HANDLES ZERO PROPERLY)
028722,000741: 24,3060           00047                                    X1                                    
028723,000742: 24,3061           03705                                    BDT                                   
028724,000743: 24,3062           53257                           VSR*     VAD                                   
028725,000744: 24,3063           20563                                    0          -14D,1                     
028726,000745: 24,3064           03646                                    VGTEMP                                
028727,000746: 24,3065           77651                           VSU                                            
028728,000747: 24,3066           03351                                    DELVSUM                               
028729,000748: 24,3067           03721                           STORE    VGPREV                                
028730,000749: 24,3070           77776        SURELY.9           EXIT                                           
028731,000750: 24,3071           34676                           CAF      PRIO10                                
028732,000751: 24,3072           05042                           TC       FINDVAC                               
028733,000752: 24,3073  E6,1466                                  EBANK=   DAPDATR1                              
028734,000753: 24,3073           02257 34066                     2CADR    S40.9                                 
028735,000754: 24,3075           05261                           TC       2PHSCHNG                              
028736,000755: 24,3076           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
028737,000756: 24,3077           10035                           OCT      10035                                 
028738,000757: 24,3100           06006                           TC       INTPRET                               
028739,000758: 24,3101           77775                           VLOAD                                          
028740,000759: 24,3102           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
028741,000760: 24,3103           27570                           STOVL    RINIT                                 
028742,000761: 24,3104           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
028743,000762: 24,3105           17576                           STODL    VINIT                                 
028744,000763: 24,3106           01205                                    PIPTIME                               
028745,000764: 24,3107           03474                           STORE    TNIT                                  
028746,000765: 24,3110           77621                           BDSU                                           
028747,000766: 24,3111           03656                                    TPASS4                                
028748,000767: 24,3112           27423                           STOVL    DELLT4                                
028749,000768: 24,3113           15332                                    HI6ZEROS                              
028750,000769: 24,3114           17351                           STODL    DELVSUM                               

Page 654

028752,000771: 24,3115           15332                                    HI6ZEROS                              
028753,000772: 24,3116           03347                           STORE    NBRCYCLS                              
028754,000773: 24,3117           77650                           GOTO                                           
028755,000774: 24,3120           51047                                    CALL40.8                              
028756,000775: 24,3121  E6,1466                                  EBANK=   DAPDATR1                              
028757,000776: 24,3121           06006        STEERING           TC       INTPRET                               
028758,000777: 24,3122           77624                           CALL                                           
028759,000778: 24,3123           51020                                    UPDATEVG                              
028760,000779: 24,3124           77776                           EXIT                                           
028761,000780: 24,3125           34702                           CAF      BIT9                                  #  CHECK IMPULSW
028762,000781: 24,3126           70076                           MASK     FLAGWRD2                              
028763,000782: 24,3127           10000                           CCS      A                                     
028764,000783: 24,3130           13133                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
028765,000784: 24,3131           04574        SERVXT             TC       POSTJUMP                              
028766,000785: 24,3132           77136                           CADR     SERVEXIT                              
028767,000786: 24,3133           34676                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
028768,000787: 24,3134           00006                           EXTEND                                         
028769,000788: 24,3135           02011                           RAND     DSALMOUT                              
028770,000789: 24,3136           00006                           EXTEND                                         
028771,000790: 24,3137           13131                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
028772,000791: 24,3140           03306                           TCR      E7SETTER                              
028773,000792: 24,3141  E7,1412                                  EBANK=   TIG                                   
028774,000793: 24,3141           00004                           INHINT                                         
028775,000794: 24,3142           00006                           EXTEND                                         
028776,000795: 24,3143           31413                           DCA      TIG                                   
028777,000796: 24,3144           52155                           DXCH     MPAC                                  
028778,000797: 24,3145           00006                           EXTEND                                         
028779,000798: 24,3146           40025                           DCS      TIME2                                 
028780,000799: 24,3147           20155                           DAS      MPAC                                  
028781,000800: 24,3150           07224                           TCR      DPAGREE                               
028782,000801: 24,3151           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
028783,000802: 24,3152           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
028784,000803: 24,3153           13156                           TCF      +3                                    
028785,000804: 24,3154           13156                           TCF      +2                                    
028786,000805: 24,3155           34714                           CAF      ZERO                                  
028787,000806: 24,3156           64712                           AD       ONE                                   
028788,000807: 24,3157           56001                           XCH      L                                     
028789,000808: 24,3160           34714                           CA       ZERO                                  
028790,000809: 24,3161           53430                           DXCH     TGO                                   
028791,000810: 24,3162           31430                           CA       TGO        +1                         
028792,000811: 24,3163           05140                           TC       WAITLIST                              
028793,000812: 24,3164  E7,1427                                  EBANK=   TGO                                   
028794,000813: 24,3164           02710 50067                     2CADR    ENGINOFF                              
028795,000814: 
028796,000815: 24,3166           05261                           TC       2PHSCHNG                              
028797,000816: 24,3167           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
028798,000817: 24,3170           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
028799,000818: 24,3171           05447                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
028800,000819: 24,3172           00044                           ADRES    IMPULSW                               #  RESTARTS OK

Page 655

028802,000821: 24,3173           13131                           TCF      SERVXT                                
028803,000822: 

Page 656

028805,000824:                                                                                                  #  ROUTINE  **CLOKTASK** DESCRIPTION
028806,000825: 
028807,000826: 
028808,000827: 24,3174  E7,1412                                  EBANK=   TIG                                   
028809,000828: 24,3174           34700        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
028810,000829: 24,3175           70103                           MASK     FLAGWRD7                              
028811,000830: 24,3176           10000                           CCS      A                                     
028812,000831: 24,3177           13203                           TCF      CLOCKON                               
028813,000832: 24,3200           05301                           TC       PHASCHNG                              
028814,000833: 24,3201           00006                           OCT      00006                                 #  KILL RESTART
028815,000834: 24,3202           05213                           TC       TASKOVER                              
028816,000835: 
028817,000836: 24,3203           00006        CLOCKON            EXTEND                                         
028818,000837: 24,3204           30025                           DCA      TIME2                                 
028819,000838: 24,3205           53661                           DXCH     TTOGO                                 
028820,000839: 24,3206           00006                           EXTEND                                         
028821,000840: 24,3207           41413                           DCS      TIG                                   
028822,000841: 24,3210           21661                           DAS      TTOGO                                 
028823,000842: 
028824,000843: 24,3211           34734        SETCLOCK           CAF      1SEC                                  
028825,000844: 24,3212           05140                           TC       WAITLIST                              
028826,000845: 24,3213  E7,1412                                  EBANK=   TIG                                   
028827,000846: 24,3213           03174 50067                     2CADR    CLOKTASK                              
028828,000847: 
028829,000848: 24,3215           11145                           CCS      NVWORD1                               
028830,000849: 24,3216           13221                           TCF      +3                                    
028831,000850: 24,3217           13231                           TCF      SETTB6                                
028832,000851: 
028833,000852: 24,3220           13221                           TCF      +1                                    
028834,000853: 24,3221           42347                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
028835,000854: 24,3222           61145                           AD       NVWORD1                               
028836,000855: 24,3223           00006                           EXTEND                                         
028837,000856: 24,3224           13234                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
028838,000857: 
028839,000858: 24,3225           37664                           CAF      PRIO27                                
028840,000859: 24,3226           05027                           TC       NOVAC                                 
028841,000860: 24,3227  E6,1466                                  EBANK=   DAPDATR1                              
028842,000861: 24,3227           03246 50066                     2CADR    CLOCKJOB                              
028843,000862: 24,3231           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
028844,000863: 24,3232           55065                           TS       TBASE6                                
028845,000864: 24,3233           15213                           TCF      TASKOVER                              
028846,000865: 
028847,000866: 24,3234           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
028848,000867: 24,3235           05042                           TC       FINDVAC                               
028849,000868: 24,3236  E6,1466                                  EBANK=   DAPDATR1                              
028850,000869: 24,3236           03241 50066                     2CADR    DYNDISP                               
028851,000870: 24,3240           13231                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK

Page 657

028853,000872: 24,3241           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
028854,000873: 24,3242           77624                           CALL                                           #       PRIOR TO BLANKING AND AVEG (V16N85)
028855,000874: 24,3243           50314                                    P40CNV85                              
028856,000875: 24,3244           77776                           EXIT                                           
028857,000876: 24,3245           13256                           TCF      CKNVWRD1                              
028858,000877: 

Page 658

028860,000879:                                                                                                  #  ROUTINE  **CLOCKJOB** DESCRIPTION
028861,000880: 
028862,000881: 
028863,000882: 24,3246  E6,1466                                  EBANK=   DAPDATR1                              
028864,000883: 24,3246           30032        CLOCKJOB           CA       CDUX                                  
028865,000884: 24,3247           54772                           TS       CDUSPOTX                              
028866,000885: 24,3250           30033                           CA       CDUY                                  
028867,000886: 24,3251           54766                           TS       CDUSPOTY                              
028868,000887: 24,3252           30034                           CA       CDUZ                                  
028869,000888: 24,3253           54770                           TS       CDUSPOTZ                              
028870,000889: 24,3254           04555                           TC       BANKCALL                              
028871,000890: 24,3255           47510                           CADR     QUICTRIG                              
028872,000891: 24,3256           00004        CKNVWRD1           INHINT                                         
028873,000892: 24,3257           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
028874,000893: 24,3260           13303                           TCF      NOFLASH                               
028875,000894: 24,3261           15112                           TCF      ENDOFJOB                              
028876,000895: 24,3262           13272                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
028877,000896: 24,3263           32351        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
028878,000897: 24,3264           04555                           TC       BANKCALL                              
028879,000898: 24,3265           20763                           CADR     GOFLASHR                              #  LINUS MAKES IT A REDO,  INHINT OK
028880,000899: 24,3266           13352                           TCF      V97T                                  #  TERMINATE
028881,000900: 24,3267           13405                           TCF      V97P                                  #  PROCEED
028882,000901: 24,3270           13434                           TCF      V97E                                  #  ENTER
028883,000902: 24,3271           13300                           TCF      PASTERET                              
028884,000903: 
028885,000904: 24,3272           32351        ENGREQST           CAF      V06N40                                
028886,000905: 24,3273           04555                           TC       BANKCALL                              
028887,000906: 24,3274           20763                           CADR     GOFLASHR                              #  LINUS MAKES IT A REDO,  INHINT OK
028888,000907: 24,3275           13322                           TCF      V99T                                  #  TERMINATE
028889,000908: 24,3276           13330                           TCF      V99P                                  #  PROCEED
028890,000909: 24,3277           13314                           TCF      V99E                                  #  ENTER
028891,000910: 
028892,000911: 24,3300           32352        PASTERET           CAF      P40OK99                               #  IMMED RETURN - SET UP V99 OR V97
028893,000912: 24,3301           05415                           TCR      LINUS                                 
028894,000913: 24,3302           15112                           TCF      ENDOFJOB                              
028895,000914: 
028896,000915: 
028897,000916: 24,3303           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
028898,000917: 24,3304           04555                           TC       BANKCALL                              
028899,000918: 24,3305           20616                           CADR     REGODSP                               
028900,000919: 
028901,000920: 
028902,000921: 24,3306           34753        E7SETTER           CAF      EBANK7                                
028903,000922: 24,3307           54003                           TS       EBANK                                 
028904,000923: 24,3310  E7,1412                                  EBANK=   TIG                                   
028905,000924: 24,3310           00002                           TC       Q                                     
028906,000925: 
028907,000926: 24,3311           34752        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
028908,000927: 24,3312           54003                           TS       EBANK                                 
028909,000928: 24,3313  E6,1466                                  EBANK=   DAPDATR1                              

Page 659

028911,000930: 24,3313           00002                           TC       Q                                     
028912,000931: 
028913,000932: 24,3314  E6,1466                                  EBANK=   DAPDATR1                              
028914,000933: 24,3314           05261        V99E               TC       2PHSCHNG                              
028915,000934: 24,3315           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
028916,000935: 24,3316           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
028917,000936: 24,3317           27000                           OCT      27000                                 
028918,000937: 24,3320           03004        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
028919,000938: 24,3321           12163                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
028920,000939: 
028921,000940: 24,3322  E6,1466                                  EBANK=   DAPDATR1                              
028922,000941: 24,3322           05261        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
028923,000942: 24,3323           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
028924,000943: 24,3324           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
028925,000944: 24,3325           27000                           OCT      27000                                 
028926,000945: 24,3326           03004        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
028927,000946: 24,3327           12204                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
028928,000947: 
028929,000948: 
028930,000949: 24,3330           00004        V99P               INHINT                                         
028931,000950: 24,3331           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
028932,000951: 24,3332           74677                           MASK     BIT12                                 
028933,000952: 24,3333           10000                           CCS      A                                     
028934,000953: 24,3334           13347                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
028935,000954: 
028936,000955: 24,3335           34677        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
028937,000956: 24,3336           26103                           ADS      FLAGWRD7                              
028938,000957: 24,3337           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
028939,000958: 24,3340           74676                           MASK     BIT13                                 
028940,000959: 24,3341           00006                           EXTEND                                         
028941,000960: 24,3342           13347                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
028942,000961: 
028943,000962: 24,3343           34712        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
028944,000963: 24,3344           05140                           TC       WAITLIST                              #  SET UP IGNITION HERE
028945,000964: 24,3345  E6,1466                                  EBANK=   DAPDATR1                              
028946,000965: 24,3345           02554 50066                     2CADR    IGNITION                              
028947,000966: 24,3347           32351        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
028948,000967: 24,3350           55145                           TS       NVWORD1                               
028949,000968: 24,3351           15112        ENDV99P            TCF      ENDOFJOB                              
028950,000969: 
028951,000970: 24,3352  E6,1474                                  EBANK=   CSMMASS                               
028952,000971: 24,3352           05261        V97T               TC       2PHSCHNG                              
028953,000972: 24,3353           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
028954,000973: 24,3354           40674                           OCT      40674                                 #  A, 4.67 = V97TTASK (-0 CS), TBASE NOW
028955,000974: 24,3355           34712                           CAF      BIT1                                  
028956,000975: 24,3356           05130                           TC       TWIDDLE                               
028957,000976: 24,3357           03361                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
028958,000977: 24,3360           15112                           TCF      ENDOFJOB                              

Page 660

028960,000979: 24,3361  E6,1474                                  EBANK=   CSMMASS                               
028961,000980: 24,3361           34714        V97TTASK           CAF      ZERO                                  #  DISABLE CLOCKJOB
028962,000981: 24,3362           55145                           TS       NVWORD1                               
028963,000982: 24,3363           32363                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
028964,000983: 24,3364           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
028965,000984: 24,3365           55662                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK
028966,000985: 24,3366           05301                           TC       PHASCHNG                              
028967,000986: 24,3367           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
028968,000987: 24,3370           77777                           DEC      -0         B-14                       #  -0 CS
028969,000988: 
028970,000989: 24,3371           02741                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
028971,000990: 24,3372           05301                           TC       PHASCHNG                              
028972,000991: 24,3373           00714                           OCT      00714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE OLD
028973,000992: 24,3374           05156                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
028974,000993: 24,3375           00372                           DEC      250        B-14                       #       OFF (FALSE THRUST-LOSS)
028975,000994: 
028976,000995: 24,3376  E6,1466                                  EBANK=   DAPDATR1                              
028977,000996: 24,3376           04633        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
028978,000997: 24,3377           42010                           CADR     RCSDAPON                              #       KILL TVCEXEC/TVCROLLDAP STARTS
028979,000998: 24,3400           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
028980,000999: 24,3401           05027                           TC       NOVAC                                 #       MAXDB AND GOTOPOOH)
028981,001000: 24,3402  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
028982,001001: 24,3402           03322 50066                     2CADR    V99T                                  
028983,001002: 24,3404           15213        ENDV97T            TCF      TASKOVER                              
028984,001003: 
028985,001004: 
028986,001005: 24,3405  E6,1444                                  EBANK=   V97VCNTR                              
028987,001006: 24,3405           05301        V97P               TC       PHASCHNG                              
028988,001007: 24,3406           40734                           OCT      40734                                 #  A, 4.73 = V97PTASK (-0 CS), TBASE NOW
028989,001008: 24,3407           34712                           CAF      BIT1                                  
028990,001009: 24,3410           05130                           TC       TWIDDLE                               
028991,001010: 24,3411           03413                           ADRES    V97PTASK                              
028992,001011: 24,3412           15112                           TCF      ENDOFJOB                              
028993,001012: 
028994,001013: 24,3413  E6,1444                                  EBANK=   V97VCNTR                              
028995,001014: 24,3413           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
028996,001015: 24,3414           55653                           TS       VCNTR                                 #       (ERRORS IF FLASE THRUST-LOSS AND/OR
028997,001016:                                                                                                  #                                                POOR SYNCH OF MANUAL ENGINE-ON AND
028998,001017:                                                                                                  #                                                THE VERB 97 PROCEED)
028999,001018: 24,3415           32351                           CAF      V06N40                                #  REDISPLAY V06N40
029000,001019: 24,3416           55145                           TS       NVWORD1                               
029001,001020: 24,3417           05435                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
029002,001021: 24,3420           00030                           ADRES    IDLEFAIL                              #       CASE OF UNFAVORABLE S40.8 SYNCH
029003,001022: 24,3421           05435                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
029004,001023: 24,3422           00042                           ADRES    STEERSW                               
029005,001024: 24,3423           05301                           TC       PHASCHNG                              
029006,001025: 24,3424           00134                           OCT      00134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE OLD
029007,001026: 24,3425           05156                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
029008,001027: 24,3426           00310                           DEC      200        B-14                       

Page 661

029010,001029: 24,3427  0003777                                  EBANK=   WHOCARES                              
029011,001030: 24,3427           05447        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
029012,001031: 24,3430           00030                           ADRES    IDLEFAIL                              
029013,001032: 24,3431           05301                           TC       PHASCHNG                              
029014,001033: 24,3432           00004                           OCT      00004                                 #  KILL GROUP 4
029015,001034: 24,3433           15213        ENDV97P            TCF      TASKOVER                              
029016,001035: 
029017,001036: 
029018,001037: 24,3434  0003777                                  EBANK=   WHOCARES                              
029019,001038: 24,3434           05301        V97E               TC       PHASCHNG                              
029020,001039: 24,3435           40534                           OCT      40534                                 #  A, 4.53 = V97ETASK (-0 CS), TBASE NOW
029021,001040: 24,3436           34712                           CAF      BIT1                                  
029022,001041: 24,3437           05140                           TC       WAITLIST                              
029023,001042: 24,3440  E7,1412                                  EBANK=   TIG                                   
029024,001043: 24,3440           03443 50067                     2CADR    V97ETASK                              
029025,001044: 24,3442           15112                           TCF      ENDOFJOB                              
029026,001045: 
029027,001046: 24,3443  E7,1412                                  EBANK=   TIG                                   
029028,001047: 24,3443           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
029029,001048: 24,3444           55412                           TS       TIG                                   
029030,001049: 24,3445           32351                           CAF      V06N40                                #  REDISPLAY V06N40
029031,001050: 24,3446           55145                           TS       NVWORD1                               
029032,001051: 24,3447           03311                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
029033,001052: 24,3450  E6,1474                                  EBANK=   CSMMASS                               
029034,001053: 24,3450           32363                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
029035,001054: 24,3451           61474                           AD       CSMMASS                               #       DETECTION) NOT LOST BECAUSE THRUST
029036,001055: 24,3452           55662                           TS       MASSTMP                               #       FAILED....COPYCYCLE FOR MASSBACK
029037,001056: 24,3453           05301                           TC       PHASCHNG                              
029038,001057: 24,3454           00754                           OCT      00754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
029039,001058: 24,3455           02741        SPSOFF97           TCR      SPSOFF                                
029040,001059: 24,3456           05301                           TC       PHASCHNG                              
029041,001060: 24,3457           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
029042,001061: 24,3460           05156                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS  FOR (POSSIBLE) TAIL-
029043,001062: 24,3461           00372                           DEC      250        B-14                       #       OFF (FALSE THRUST-LOSS)
029044,001063: 
029045,001064: 24,3462  E6,1466                                  EBANK=   DAPDATR1                              
029046,001065: 24,3462           34712        V97E40.6           CAF      BIT1                                  
029047,001066: 24,3463           05140                           TC       WAITLIST                              
029048,001067: 24,3464  E6,1447                                  EBANK=   CNTR                                  
029049,001068: 24,3464           02040 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
029050,001069: 24,3466           04633                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029051,001070: 24,3467           42010                           CADR     RCSDAPON                              #       KILL TVCEXEC/TVCROLLDAP STARTS.
029052,001071:                                                                                                  #                                               LEAVE NARROW DEADBAND FOR REIGNITE
029053,001072: 24,3470           05261                           TC       2PHSCHNG                              
029054,001073: 24,3471           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0CS), CLOKTASK (1SEC)
029055,001074: 24,3472           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
029056,001075: 24,3473           77777                           DEC      -0         B-14                       #  -0 CS

Page 662

029058,001077: 24,3474           44761        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
029059,001078: 24,3475           70103                           MASK     FLAGWRD7                              #       IMMEDIATE V99 RESPONSE
029060,001079: 24,3476           64676                           AD       BIT13                                 
029061,001080: 24,3477           54103                           TS       FLAGWRD7                              
029062,001081: 24,3500           05156                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6
029063,001082: 24,3501           00036                           DEC      30         B-14                       
029064,001083: 
029065,001084: 24,3502           44702        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
029066,001085: 24,3503           55145                           TS       NVWORD1                               
029067,001086: 24,3504           05261                           TC       2PHSCHNG                              
029068,001087: 24,3505           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0CS) TBASE FOR PREPTVC
029069,001088: 24,3506           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
029070,001089: 24,3507           34675                           CAF      PRIO20                                #  SET UP TIMEBURN
029071,001090: 24,3510           05042                           TC       FINDVAC                               
029072,001091: 24,3511  E7,1427                                  EBANK=   TGO                                   
029073,001092: 24,3511           02404 34067                     2CADR    S40.13                                
029074,001093: 24,3513           15213        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
029075,001094:                                                                                                  #                                               TO FLASHING V99 RESPONSE
029076,001095: 
029077,001096: 
029078,001097:                                                                                                  #  MOD NO2         LOG SECTION  P40-P47
029079,001098:                                                                                                  #  MOD BY   ZELDIN
029080,001099:                                                                                                  #  FUNCTIONAL DESCRIPTION
029081,001100:                                                                                                  #           COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
029082,001101:                                                                                                  #           VECTOR(VGTIG).
029083,001102:                                                                                                  #  CALLING SEQUENCE
029084,001103:                                                                                                  #         L CALL
029085,001104:                                                                                                  #       L+1        S40.1
029086,001105:                                                                                                  #  NORMAL EXIT MODE
029087,001106:                                                                                                  #           AT L+2 OF CALLING SEQUENCE (GOTO L+2)  NORMAL RETURN OR
029088,001107:                                                                                                  #           ERROR RETURN IF NOSOFLAG =1
029089,001108:                                                                                                  #  SUBROUTINES CALLED
029090,001109:                                                                                                  #           CSMPREC
029091,001110:                                                                                                  #           INITVEL
029092,001111:                                                                                                  #           CALCGRAV
029093,001112:                                                                                                  #           MIDGIM
029094,001113:                                                                                                  #  ALARM OR ABORT EXIT MODES
029095,001114:                                                                                                  #       L+2 OF CALLING SEQUENCE,UNSOLVABLE CONIC IF NOSOFLAG=1
029096,001115:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029097,001116:                                                                                                  #           WEIGHT/G   ANTICIPATED MAG. OF VEHICLE MASS     SP B16KGM
029098,001117:                                                                                                  #           XDELVFLG       1=DELTA-V MANEUVER,0=AIMPT STEER
029099,001118:                                                                                                  #        IF DELTA-V MANEUVER
029100,001119:                                                                                                  #           DELVSIN   SPECIFIED DELTA-V REQUIRED IN
029101,001120:                                                                                                  #                     INERTIAL COORDS. OF ACTIVE VEHICLE
029102,001121:                                                                                                  #                     AT TIME OF IGNITION                 VECTOR B7M/CS
029103,001122:                                                                                                  #           DELVSAB   MAG. OF DELVSIN                     DP     B7M/CS
029104,001123:                                                                                                  #           RTIG      POSITION AT TIME OF IGNITION       VECTOR B29M
029105,001124:                                                                                                  #           VTIG      VELOCITY AT TIME OF IGNITION       VECTOR B7M/CS
029106,001125:                                                                                                  #           CSTEER = 0             DP

Page 663

029108,001127:                                                                                                  #        IF AIMPOINT STEERING
029109,001128:                                                                                                  #        IF AIMPT STEER
029110,001129:                                                                                                  #           TIG       TIME OF IGNITION                    DP     B28CS
029111,001130:                                                                                                  #           RTARG     POSITION TARGET TIME               VECTOR B29M
029112,001131:                                                                                                  #           CSTEER = ECSTEER(GR 0) DP B1
029113,001132:                                                                                                  #           TPASS4 - TIME OF ARRIVAL AT AIMPOINT
029114,001133:                                                                                                  #  OUTPUT
029115,001134:                                                                                                  #           UT    1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
029116,001135:                                                                                                  #        VGTIG        INITIAL VALUE OF VELOCITY
029117,001136:                                                                                                  #                     TO BE GAINED (INERT. COORD.)        VECTOR B7M/CS
029118,001137:                                                                                                  #        DELVLVC      VGTIG IN LOC. VERT. COORDS.                B7M/CS
029119,001138:                                                                                                  #           F         NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
029120,001139:                                                                                                  #           BDT   V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
029121,001140:                                                                                                  #           -GDT  FOR S40.13                                   VECT  B7M/CS
029122,001141:                                                                                                  #        RTIG         CALC IN S40.1B(AIMPT) FOR S40.2,3  VECTOR B29M
029123,001142:                                                                                                  #                     POSITION AT TIME OF IGNITION
029124,001143:                                                                                                  #  DEBRIS      QTEMP1
029125,001144:                                                                                                  #        MPAC,QPRET
029126,001145:                                                                                                  #        PUSHLIST
029127,001146:                                                                                                  #           RTX2,RTX1
029128,001147: 14,2002                                           BANK     14                                    
029129,001148: 16,2000                                           SETLOC   P40S1                                 
029130,001149: 16,2000                                           BANK                                           
029131,001150: 
029132,001151: 16,2000                                           COUNT    16/S40.1                              
029133,001152: 
029134,001153: 16,2000           77214        S40.1              SET      VLOAD                                 
029135,001154: 16,2001           01070                                    FIRSTFLG                              
029136,001155: 16,2002           11453                                    LO6ZEROS                              
029137,001156: 16,2003           03705                           STORE    BDT                                   
029138,001157: 16,2004           43020                           STQ      BOF                                   
029139,001158: 16,2005           03657                                    QTEMP                                 
029140,001159: 16,2006           01347                                    XDELVFLG                              
029141,001160: 16,2007           34073                                    S40.1B                                #  LAMBERT
029142,001161: 16,2010           77201                           SETPD    VLOAD                                 #  EXTERNAL DELTA V
029143,001162: 16,2011           00001                                    0                                     
029144,001163: 16,2012           03640                                    VTIG                                  
029145,001164: 16,2013           03576                           STORE    VINIT                                 
029146,001165: 16,2014           53435                           VXV      UNIT                                  
029147,001166: 16,2015           03632                                    RTIG                                  
029148,001167: 16,2016           27713                           STOVL    UT                                    #  UP IN UT
029149,001168: 16,2017           03632                                    RTIG                                  
029150,001169: 16,2020           03570                           STORE    RINIT                                 
029151,001170: 16,2021           65236                           VSQ      PDDL                                  
029152,001171: 16,2022           00045                                    36D                                   
029153,001172: 16,2023           56205                           DMP      DDV                                   
029154,001173: 16,2024           34127                                    THETACON                              
029155,001174: 16,2025           41205                           DMP      DMP                                   
029156,001175: 16,2026           03654                                    DELVSAB                               
029157,001176: 16,2027           03076                                    WEIGHT/G                              

Page 664

029159,001178: 16,2030           77671                           DDV                                            
029160,001179: 16,2031           03727                                    F                                     
029161,001180: 16,2032           24017                           STOVL    14D                                   
029162,001181: 16,2033           03646                                    DELVSIN                               
029163,001182: 
029164,001183: 16,2034           74241                           DOT      VXSC                                  
029165,001184: 16,2035           03713                                    UT                                    
029166,001185: 16,2036           03713                                    UT                                    
029167,001186: 16,2037           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
029168,001187: 16,2040           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
029169,001188: 16,2041           03646                                    DELVSIN                               
029170,001189: 16,2042           00017                                    14D                                   
029171,001190: 16,2043           63356                           SIN      PDVL                                  
029172,001191: 16,2044           00007                                    6D                                    
029173,001192: 16,2045           53435                           VXV      UNIT                                  
029174,001193: 16,2046           03713                                    UT                                    
029175,001194: 16,2047           45561                           VXSC     STADR                                 
029176,001195: 16,2050           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
029177,001196: 16,2051           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
029178,001197: 16,2052           00017                                    14D                                   
029179,001198: 16,2053           74346                           COS      VXSC                                  
029180,001199: 16,2054           74255                           VAD      VXSC                                  
029181,001200: 16,2055           03721                                    VGTIG                                 
029182,001201: 16,2056           00045                                    36D                                   
029183,001202: 16,2057           53352                           VSL2     VAD                                   
029184,001203: 16,2060           77626                           STADR                                          
029185,001204: 16,2061           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7)M/CS
029186,001205: 
029187,001206: 16,2062           77656                           UNIT                                           
029188,001207: 16,2063           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
029189,001208: 16,2064           03721                                    VGTIG                                 
029190,001209: 16,2065           43006                           PUSH     SET                                   
029191,001210: 16,2066           01072                                    AVFLAG                                
029192,001211: 16,2067           77624                           CALL                                           
029193,001212: 16,2070           10653                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
029194,001213: 16,2071           77650                           GOTO                                           
029195,001214: 16,2072           03657                                    QTEMP                                 
029196,001215: 16,2073           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
029197,001216: 16,2074           03413                                    TIG                                   
029198,001217: 16,2075           36001                                    TWODT                                 
029199,001218: 16,2076           14041                           STODL    TDEC1                                 
029200,001219: 16,2077           03656                                    TPASS4                                
029201,001220: 16,2100           77625                           DSU                                            
029202,001221: 16,2101           00041                                    TDEC1                                 
029203,001222: 16,2102           37423                           STCALL   DELLT4                                
029204,001223: 16,2103           61663                                    AGAIN                                 
029205,001224: 16,2104           77775                           VLOAD                                          
029206,001225: 16,2105           03612                                    VIPRIME                               
029207,001226: 16,2106           17713                           STODL    UT                                    
029208,001227: 16,2107           03413                                    TIG                                   

Page 665

029210,001229: 16,2110           00041                           STORE    TDEC1                                 
029211,001230: 16,2111           77621                           BDSU                                           
029212,001231: 16,2112           03656                                    TPASS4                                
029213,001232: 16,2113           37423                           STCALL   DELLT4                                
029214,001233: 16,2114           61663                                    AGAIN                                 
029215,001234: 16,2115           41575                           VLOAD    PUSH                                  
029216,001235: 16,2116           03646                                    DELVEET3                              
029217,001236: 16,2117           03721                           STORE    VGTIG                                 
029218,001237: 16,2120           45014                           SET      CALL                                  
029219,001238: 16,2121           01072                                    AVFLAG                                
029220,001239: 16,2122           10653                                    MIDGIM                                
029221,001240: 16,2123           52001                           SETPD    GOTO                                  
029222,001241: 16,2124           00001                                    0                                     
029223,001242: 16,2125           61716                                    CALCUT                                
029224,001243: 
029225,001244: 16,2126           00024 13714  THETACON           2DEC     .31830989  B-8                        
029226,001245: 30,2000                                           SETLOC   P40S3                                 
029227,001246: 30,2000                                           BANK                                           
029228,001247: 
029229,001248: 30,3657                                           COUNT    24/S40.1                              
029230,001249: 
029231,001250: 30,3657           04000 00000  EP4(45)H           2DEC     .125                                  
029232,001251: 30,3661           00707 03434  EP4(10)H           2DEC     .027777777                            
029233,001252: 
029234,001253: 30,3663           45020        AGAIN              STQ      CALL                                  
029235,001254: 30,3664           03730                                    QTEMP1                                
029236,001255: 30,3665           27022                                    THISPREC                              
029237,001256: 30,3666           66134                           SXA,2    SXA,1                                 
029238,001257: 30,3667           03746                                    RTX2                                  
029239,001258: 30,3670           03745                                    RTX1                                  
029240,001259: 30,3671           77775                           VLOAD                                          
029241,001260: 30,3672           00001                                    RATT                                  
029242,001261: 30,3673           03632                           STORE    RTIG                                  
029243,001262: 30,3674           27570                           STOVL    RINIT                                 
029244,001263: 30,3675           00007                                    VATT                                  
029245,001264: 30,3676           03640                           STORE    VTIG                                  
029246,001265: 30,3677           03576                           STORE    VINIT                                 
029247,001266: 30,3700           67201                           SETPD    SLOAD                                 
029248,001267: 30,3701           00001                                    0                                     
029249,001268: 30,3702           15332                                    HI6ZEROS                              
029250,001269: 30,3703           43125                           PDDL     BON                                   
029251,001270: 30,3704           21660                                    EP4(45)H                              
029252,001271: 30,3705           03705                                    NORMSW                                
029253,001272: 30,3706           61711                                    +3                                    
029254,001273: 30,3707           77745                           DLOAD                                          
029255,001274: 30,3710           21662                                    EP4(10)H                              
029256,001275: 30,3711           45006                           PUSH     CALL                                  
029257,001276: 30,3712           22000                                    INITVEL                               

Page 666

029259,001278: 30,3713           52001                           SETPD    GOTO                                  
029260,001279: 30,3714           00001                                    0                                     
029261,001280: 30,3715           03730                                    QTEMP1                                
029262,001281: 30,3716           45175        CALCUT             VLOAD    CALL                                  
029263,001282: 30,3717           03632                                    RTIG                                  
029264,001283: 30,3720           77260                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7)M/CS
029265,001284: 30,3721           70372                           VSL1     V/SC                                  
029266,001285: 30,3722           21761                                    200CS                                 #  G AT 2(-5) M/CS.CS
029267,001286: 30,3723           52315                           PDVL     VSU                                   
029268,001287: 30,3724           03612                                    VIPRIME                               
029269,001288: 30,3725           03713                                    UT                                    
029270,001289: 30,3726           52341                           V/SC     VSU                                   
029271,001290: 30,3727           21761                                    200CS                                 
029272,001291: 30,3730           72561                           VXSC     VSL2                                  
029273,001292: 30,3731           03703                                    CSTEER                                
029274,001293: 30,3732           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
029275,001294: 30,3733           03721                                    VGTIG                                 
029276,001295: 30,3734           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
029277,001296: 
029278,001297: 30,3735           74241                           DOT      VXSC                                  
029279,001298: 30,3736           00015                                    12D                                   
029280,001299: 30,3737           00001                                    0                                     
029281,001300: 30,3740           51352                           VSL2     BVSU                                  
029282,001301: 30,3741           00015                                    12D                                   
029283,001302: 30,3742           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
029284,001303: 30,3743           03727                                    F                                     
029285,001304: 30,3744           56261                           SRR      DDV                                   
029286,001305: 30,3745           21605                                    4                                     
029287,001306: 30,3746           03076                                    WEIGHT/G                              
029288,001307: 30,3747           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
029289,001308: 30,3750           00015                                    12D                                   
029290,001309: 30,3751           77636                           VSQ                                            
029291,001310: 30,3752           75421                           BDSU     SQRT                                  
029292,001311: 30,3753           76561                           VXSC     VSL1                                  
029293,001312: 30,3754           53455                           VAD      UNIT                                  
029294,001313: 30,3755           00015                                    12D                                   
029295,001314: 30,3756           37713                           STCALL   UT                                    
029296,001315: 30,3757           03657                                    QTEMP                                 
029297,001316: 30,3760           01440 00000  200CS              2DEC     200        B-12                       
029298,001317: 

Page 667

029300,001319:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3  DATE 15,NOV,66
029301,001320:                                                                                                  #  MOD NO 2        LOG SECTION P40-P47
029302,001321:                                                                                                  #  MOD BY ZELDIN
029303,001322:                                                                                                  #  FUNCTIONAL DESCRIPTION
029304,001323:                                                                                                  #           COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
029305,001324:                                                                                                  #           ORIENTATION, WINGS LEVEL SPACECRAFT,HEADS UP
029306,001325:                                                                                                  #           COMPUTE X AXIS OF ENGINE BELL
029307,001326:                                                                                                  #           COMPUTE PREFERRED IMU ORIENTATION(XSCREF)
029308,001327:                                                                                                  #           FOR THIS CALCULATION,ASSUME X AXIS OF SC ALONG UT INITIALLY,
029309,001328:                                                                                                  #           YSC=UNIT(XXR),ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
029310,001329:                                                                                                  #           NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
029311,001330:                                                                                                  #           COORDS. WILL BE PREFERRED IMU ORIENTATION.
029312,001331:                                                                                                  #           COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
029313,001332:                                                                                                  #  CALLING SEQUENCE
029314,001333:                                                                                                  #         L CALL
029315,001334:                                                                                                  #        L+1 S40.2,3
029316,001335:                                                                                                  #  NORMAL EXIT MODE
029317,001336:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
029318,001337:                                                                                                  #  SUBROUTINES CALLED
029319,001338:                                                                                                  #           CALCGA
029320,001339:                                                                                                  #  ALARM OR ABORT MODES
029321,001340:                                                                                                  #           NONE
029322,001341:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029323,001342:                                                                                                  #           PACTOFF      TOTAL PITCH TRIM ANGLE     SP  AT 1.0795111 REV.
029324,001343:                                                                                                  #           YACTOFF      TOTAL YAW   TRIM ANGLE     SP  AT 1.0795111 REV.
029325,001344:                                                                                                  #           UT           DESIRED THRUST DIRECTION          VECT.B2M/(CS.CS)
029326,001345:                                                                                                  #           RTIG         POSITION AT TIME OF IGNITION      VECT.    B29M
029327,001346:                                                                                                  #           ENG2FLAG     ON=RCS  OFF=SPS
029328,001347:                                                                                                  #  OUTPUT
029329,001348:                                                                                                  #           SCAXIS       UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR B1
029330,001349:                                                                                                  #           XSCREF       UNIT VECTORS ALIGNED WITH PREFERRED IMU     B1
029331,001350:                                                                                                  #           YSCREF
029332,001351:                                                                                                  #           ZSCREF
029333,001352:                                                                                                  #           GIMBAL ANGLES IN THETAD
029334,001353:                                                                                                  #           POINTVSM     UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
029335,001354:                                                                                                  #  DEBRIS
029336,001355:                                                                                                  #           PUSHLIST,QPRET,MPAC
029337,001356:                                                                                                  #           QTEMP  TEMP. ERASABLE
029338,001357: 24,3514                                           BANK     24                                    
029339,001358: 24,2000                                           SETLOC   P40S                                  
029340,001359: 24,2000                                           BANK                                           
029341,001360: 24,3514                                           COUNT*   $$/S40.2                              
029342,001361: 24,3514           64375        S40.2,3            VLOAD    MXV                                   
029343,001362: 24,3515           03713                                    UT                                    
029344,001363: 24,3516           01736                                    REFSMMAT                              
029345,001364: 24,3517           44172                           VSL1     STQ                                   
029346,001365: 24,3520           03657                                    QTEMP                                 
029347,001366: 24,3521           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
029348,001367: 24,3522           43001                           SETPD    BON                                   
029349,001368: 24,3523           00001                                    0                                     

Page 668

029351,001370: 24,3524           00704                                    ENG2FLAG                              
029352,001371: 24,3525           51635                                    S40.2,3B                              
029353,001372: 24,3526           77745                           DLOAD                                          
029354,001373: 24,3527           15332                                    HI6ZEROS                              
029355,001374: 24,3530           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
029356,001375: 24,3531           03027                                    YACTOFF                               
029357,001376: 24,3532           72405                           DMP      SL1                                   
029358,001377: 24,3533           11674                                    TRIMSCAL                              
029359,001378: 24,3534           41415                           DAD      PUSH                                  
029360,001379: 24,3535           11676                                    YBIAS                                 
029361,001380: 24,3536           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
029362,001381: 24,3537           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
029363,001382: 24,3540           77735                           SLOAD                                          
029364,001383: 24,3541           03026                                    PACTOFF                               
029365,001384: 24,3542           72405                           DMP      SL1                                   
029366,001385: 24,3543           11674                                    TRIMSCAL                              
029367,001386: 24,3544           41415                           DAD      PUSH                                  
029368,001387: 24,3545           11700                                    PBIAS                                 
029369,001388: 24,3546           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
029370,001389: 24,3547           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
029371,001390: 24,3550           14323                           STODL    ZSCREF                                #  SIN(P +P0)
029372,001391: 24,3551           00007                                    6                                     
029373,001392: 24,3552           72405                           DMP      SL1                                   
029374,001393: 24,3553           00005                                    4                                     
029375,001394: 24,3554           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
029376,001395: 24,3555           00007                                    6                                     
029377,001396: 24,3556           72405                           DMP      SL1                                   
029378,001397: 24,3557           00003                                    2                                     
029379,001398: 24,3560           77666                           VDEF                                           
029380,001399: 
029381,001400: 24,3561           14307                           STODL    XSCREF                                #   PD POINTER AT 6 NEW SC X AXIS SCALED AT 
029382,001401: 24,3562           00323                                    ZSCREF                                
029383,001402: 24,3563           72405                           DMP      SL1                                   
029384,001403: 24,3564           00005                                    4                                     
029385,001404: 24,3565           41325                           PDDL     DMP                                   
029386,001405: 24,3566           00323                                    ZSCREF                                
029387,001406: 24,3567           00003                                    2                                     
029388,001407: 24,3570           57552                           SL1      DCOMP                                 
029389,001408: 24,3571           77666                           VDEF                                           
029390,001409: 
029391,001410: 24,3572           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SCZ AXIS SCALED AT 2
029392,001411: 24,3573           77666                           VDEF                                           
029393,001412: 
029394,001413: 24,3574           14315                           STODL    YSCREF                                #  PD POINTER AT0 NEW SC Y AXIS SCALED AT 2
029395,001414: 24,3575           00323                                    ZSCREF                                
029396,001415: 24,3576           65325                           PDDL     PDDL                                  
029397,001416: 24,3577           00315                                    YSCREF                                
029398,001417: 24,3600           00307                                    XSCREF                                
029399,001418: 24,3601           77666                           VDEF                                           

Page 669

029401,001420: 24,3602           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
029402,001421: 24,3603           03713                                    UT                                    
029403,001422: 24,3604           53515                           PDVL     UNIT                                  
029404,001423: 24,3605           03632                                    RTIG                                  
029405,001424: 24,3606           57435                           VXV      VCOMP                                 
029406,001425: 24,3607           00001                                    0                                     
029407,001426: 24,3610           41456                           UNIT     PUSH                                  
029408,001427: 24,3611           77624                           CALL                                           
029409,001428: 24,3612           51654                                    TSTRXUT                               
029410,001429: 24,3613           57435                           VXV      VCOMP                                 
029411,001430: 24,3614           00001                                    0                                     
029412,001431: 24,3615           63372                           VSL1     PDVL                                  #  2 RF/SC  IN PDL  12D
029413,001432: 24,3616           00307                                    XSCREF                                
029414,001433: 24,3617           76505                           VXM      VSL1                                  
029415,001434: 24,3620           00001                                    0                                     
029416,001435: 24,3621           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
029417,001436: 24,3622           00315                                    YSCREF                                
029418,001437: 24,3623           76505                           VXM      VSL1                                  
029419,001438: 24,3624           00001                                    0                                     
029420,001439: 24,3625           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
029421,001440: 24,3626           00323                                    ZSCREF                                
029422,001441: 24,3627           76505                           VXM      VSL1                                  
029423,001442: 24,3630           00001                                    0                                     
029424,001443: 24,3631           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
029425,001444: 24,3632           52001                           SETPD    GOTO                                  
029426,001445: 24,3633           00001                                    0                                     
029427,001446: 24,3634           03657                                    QTEMP                                 
029428,001447: 24,3635           77775        S40.2,3B           VLOAD                                          
029429,001448: 24,3636           15330                                    UNITX                                 
029430,001449: 24,3637           27351                           STOVL    SCAXIS                                
029431,001450: 24,3640           03713                                    UT                                    
029432,001451: 24,3641           00307                           STORE    XSCREF                                
029433,001452: 24,3642           53435                           VXV      UNIT                                  
029434,001453: 24,3643           03632                                    RTIG                                  
029435,001454: 24,3644           34007                           STCALL   6D                                    
029436,001455: 24,3645           51654                                    TSTRXUT                               
029437,001456: 24,3646           00315                           STORE    YSCREF                                
029438,001457: 24,3647           57435                           VXV      VCOMP                                 
029439,001458: 24,3650           00307                                    XSCREF                                
029440,001459: 24,3651           77772                           VSL1                                           
029441,001460: 24,3652           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
029442,001461: 24,3653           03657                                    QTEMP                                 
029443,001462: 24,3654           46145        TSTRXUT            DLOAD    BHIZ                                  
029444,001463: 24,3655           00045                                    36D                                   
029445,001464: 24,3656           51661                                    BADVCTOR                              
029446,001465: 24,3657           43575                           VLOAD    RVQ                                   
029447,001466: 24,3660           00007                                    6D                                    
029448,001467: 24,3661           53575        BADVCTOR           VLOAD    UNIT                                  
029449,001468: 24,3662           03632                                    RTIG                                  
029450,001469: 24,3663           53515                           PDVL     UNIT                                  

Page 670

029452,001471: 24,3664           03640                                    VTIG                                  
029453,001472: 24,3665           53322                           VSR3     VAD                                   
029454,001473: 24,3666           53435                           VXV      UNIT                                  
029455,001474: 24,3667           03713                                    UT                                    
029456,001475: 24,3670           77676                           VCOMP                                          
029457,001476: 24,3671           00007                           STORE    6D                                    
029458,001477: 24,3672           77616                           RVQ                                            
029459,001478: 24,3673           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
029460,001479: 24,3675           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
029461,001480: 24,3677           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
029462,001481:                                                                                                  #                                          REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
029463,001482:                                                                                                  #  PROGRAM DESCRIPTION S41.1  DATE 8DEC66
029464,001483:                                                                                                  #  MOD NO1   LOG SECTION P40-P47
029465,001484:                                                                                                  #  MOD BY ZELDIN
029466,001485:                                                                                                  #  FUNCTIONAL DESCRIPTION
029467,001486:                                                                                                  #           COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
029468,001487:                                                                                                  #           TO CONTROL COORDS.
029469,001488:                                                                                                  #  CALLING SEQUENCE
029470,001489:                                                                                                  #       L   CALL
029471,001490:                                                                                                  #       L+1        S41.1
029472,001491:                                                                                                  #  NORMAL EXIT MODE
029473,001492:                                                                                                  #           AT L +2 OF CALLING SEQUENCE
029474,001493:                                                                                                  #  SUBROUTINES CALLED:
029475,001494:                                                                                                  #           CALCSMSC
029476,001495:                                                                                                  #           CDUTRIG
029477,001496:                                                                                                  #  ALARM OR ABORT MODES
029478,001497:                                                                                                  #           NONE
029479,001498:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
029480,001499:                                                                                                  #           VG IN REF. COORD. PDL L POINTER AT L+5 .S41.1 WILL RETURN WITH
029481,001500:                                                                                                  #           POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
029482,001501:                                                                                                  #  OUTPUT
029483,001502:                                                                                                  #           MPAC CONTAINS VG IN CONTROL COORDS           VECT. B7M/CS
029484,001503:                                                                                                  #  DEBRIS:
029485,001504:                                                                                                  #         QTEMP    TEMP ERASABLE
029486,001505:                                                                                                  #         QPRET
029487,001506: 24,3701                                           COUNT    22/S41.1                              
029488,001507: 
029489,001508: 22,2000                                           SETLOC   P40S5                                 
029490,001509: 22,2000                                           BANK                                           
029491,001510: 
029492,001511: 22,3426           45020        S41.1              STQ      CALL                                  
029493,001512: 22,3427           03657                                    QTEMP                                 
029494,001513: 22,3430           47432                                    CDUTRIG                               
029495,001514: 22,3431           77775                           VLOAD                                          
029496,001515: 22,3432           45121                           MXV      CALL                                  
029497,001516: 22,3433           01736                                    REFSMMAT                              
029498,001517: 22,3434           47577                                    *SMNB*                                

Page 671

029500,001519: 22,3435           74321                           MXV      VXSC                                  
029501,001520: 22,3436           05004                                    QUADROT                               
029502,001521: 22,3437           05443                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
029503,001522: 22,3440           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
029504,001523: 22,3441           03657                                    QTEMP                                 
029505,001524: 22,3442           24000 00000  TENBNK14           2DEC     10.        B-4                        
029506,001525: 

Page 672

029508,001527:                                                                                                  #  NAME        S40.8 - CROSS PRODUCT STEERING
029509,001528:                                                                                                  #  FUNCTION    (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
029510,001529:                                                                                                  #              (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
029511,001530:                                                                                                  #              (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
029512,001531:                                                                                                  #              (4) INITIATES THRUST-FAIL ROUTINE, R40
029513,001532:                                                                                                  #  CALLING SEQ CALL S40.8
029514,001533:                                                                                                  #  INPUT       VGPREV  - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
029515,001534:                                                                                                  #                        PRIOR TO UPDATING IN METERS/CS AT +7.
029516,001535:                                                                                                  #              DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
029517,001536:                                                                                                  #                        IN METERS/CS AT +7.
029518,001537:                                                                                                  #              BDT     - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
029519,001538:                                                                                                  #                        GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
029520,001539:                                                                                                  #                        METERS/CS AT +7.
029521,001540:                                                                                                  #              CSTEER  - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
029522,001541:                                                                                                  #                        SPS AIMPOINT STEERING MANEUVERS
029523,001542:                                                                                                  #              IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
029524,001543:                                                                                                  #              STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
029525,001544:                                                                                                  #              REFSMMAT, DAPDATR1, PIPTIME
029526,001545:                                                                                                  #              EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
029527,001546:                                                                                                  #  OUTPUT      TTOGO   - TIME REMAINING FOR ENGINE BURN IN CS AT +28
029528,001547:                                                                                                  #              OMEGAC  - DP VECTOR RATE COMMAND, SC.AT  1/(2TVCDT) REVS/SEC
029529,001548:                                                                                                  #              VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
029530,001549:                                                                                                  #              STEERSW, IMPULSW, NVWORD1
029531,001550:                                                                                                  #              REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
029532,001551:                                                                                                  #  DEBRIS      OMEGAXC,+1
029533,001552:                                                                                                  #  SUBROUTINES USED    - *SMNB* , ALARM
029534,001553: 
029535,001554: 16,2000                                           SETLOC   P40S1                                 
029536,001555: 16,2000                                           BANK                                           
029537,001556: 16,2130  E6,1466                                  EBANK=   DAPDATR1                              
029538,001557: 16,2130                                           COUNT    16/S40.8                              
029539,001558: 
029540,001559: 16,2130           44001        S40.8              SETPD    STQ                                   
029541,001560: 16,2131           00001        SPBIT1                      00D                                   
029542,001561: 16,2132           03657                                    QTEMP                                 
029543,001562: 16,2133           51375                           VLOAD    BVSU                                  #       CONSTRUCT DELVG, SC.AT B+7  M/CS
029544,001563: 16,2134           03433                                    DELVREF                               
029545,001564: 16,2135           03705                                    BDT                                   
029546,001565: 16,2136           77655                           VAD                                            
029547,001566: 16,2137           03721                                    VGPREV                                
029548,001567: 16,2140           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7  M/CS
029549,001568: 
029550,001569: 16,2141           77646                           ABVAL                                          
029551,001570: 16,2142           03654                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
029552,001571: 16,2143           77776                           EXIT                                           
029553,001572: 16,2144           05301                           TC       PHASCHNG                              
029554,001573: 16,2145           10035                           OCT      10035                                 #  TYPE B  RESTART BELOW AND 5.3 REREADAC
029555,001574: 
029556,001575: 16,2146           06006                           TC       INTPRET                               
029557,001576: 16,2147           77775                           VLOAD                                          

Page 673

029559,001578: 16,2150           03460                                    VG                                    
029560,001579: 16,2151           03721                           STORE    VGPREV                                
029561,001580: 16,2152           77214                           BOFF     VLOAD                                 
029562,001581: 16,2153           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
029563,001582: 16,2154           03657                                    QTEMP                                 
029564,001583: 16,2155           03433                                    DELVREF                               
029565,001584: 16,2156           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
029566,001585: 16,2157           41335                           SLOAD    DMP                                   
029567,001586: 16,2160           01354                                    DVTHRESH                              #  SC.AT B-2 M/CS
029568,001587: 16,2161           36011                                    DPB-9                                 
029569,001588: 16,2162           77621                           BDSU                                           
029570,001589: 16,2163           77440                           BMN      EXIT                                  
029571,001590: 16,2164           40021                                    LOTHRUST                              
029572,001591: 16,2165           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
029573,001592: 16,2166           74675                           MASK     BIT14                                 
029574,001593: 16,2167           10000                           CCS      A                                     
029575,001594: 16,2170           34712                           CAF      BIT1                                  
029576,001595: 16,2171           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
029577,001596: 16,2172           31423                           CAE      EREPFRAC                              
029578,001597: 16,2173           55652                           TS       REPFRAC                               
029579,001598: 
029580,001599: 16,2174           06006                           TC       INTPRET                               
029581,001600: 16,2175           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
029582,001601: 16,2176           03433                                    DELVREF                               
029583,001602: 16,2177           03705                                    BDT                                   
029584,001603: 16,2200           77656                           UNIT                                           
029585,001604: 16,2201           41441                           DOT      PUSH                                  #  (00D)
029586,001605: 16,2202           03460                                    VG                                    
029587,001606: 16,2203           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
029588,001607: 16,2204           40013                                    INCRSVG                               #       DISPLAY ALARM IF NOT
029589,001608: 16,2205           36005                                    2VEXHUST                              
029590,001609: 16,2206           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
029591,001610: 16,2207           11451                                    LODPHALF                              
029592,001611: 16,2210           70501                           NORM     SR1                                   
029593,001612: 16,2211           00047                                    X1                                    
029594,001613: 16,2212           60325                           PDDL     NORM                                  
029595,001614: 16,2213           00045                                    36D                                   #  (MAG DELVG)
029596,001615: 16,2214           00050                                    X2                                    
029597,001616: 16,2215           77665                           BDDV                                           
029598,001617: 16,2216           53664                           XSU,2    SL*                                   
029599,001618: 16,2217           00046                                    X1                                    
029600,001619: 16,2220           57607                                    0          -9D,2                      
029601,001620: 16,2221           41405                           DMP      PUSH                                  #  (00D)
029602,001621: 16,2222           36003                                    -FOURDT                               
029603,001622: 16,2223           54335                           SLOAD    SR                                    
029604,001623: 16,2224           03016                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
029605,001624: 16,2225           20617                                    14D                                   
029606,001625: 16,2226           45421                           BDSU     STADR                                 
029607,001626: 16,2227           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
029608,001627: 16,2230           77615                           DAD                                            

Page 674

029610,001629: 16,2231           01205                                    PIPTIME                               
029611,001630: 16,2232           17413                           STODL    TIG                                   
029612,001631: 16,2233           03430                                    TGO                                   
029613,001632: 16,2234           50025                           DSU      BMN                                   
029614,001633: 16,2235           36007                                    FOURSEC                               
029615,001634: 16,2236           40000                                    S40.81                                
029616,001635: 
029617,001636: 16,2237           74375        XPRODUCT           VLOAD    VXSC                                  
029618,001637: 16,2240           03705                                    BDT                                   
029619,001638: 16,2241           03703                                    CSTEER                                
029620,001639: 16,2242           52352                           VSL2     VSU                                   
029621,001640: 16,2243           03433                                    DELVREF                               
029622,001641: 16,2244           63256                           UNIT     PDVL                                  
029623,001642: 16,2245           03460                                    VG                                    
029624,001643: 16,2246           47256                           UNIT     VXV                                   
029625,001644: 16,2247           45121                           MXV      CALL                                  
029626,001645: 16,2250           01736                                    REFSMMAT                              #  (REFSMMAT/2)
029627,001646: 16,2251           47577                                    *SMNB*                                
029628,001647: 16,2252           77761                           VXSC                                           
029629,001648: 16,2253           03245                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
029630,001649: 16,2254           03126        OMEGACLC           STORE    OMEGAC                                
029631,001650: 16,2255           77650                           GOTO                                           
029632,001651: 16,2256           03657                                    QTEMP                                 
029633,001652: 
029634,001653: 17,2000                                           SETLOC   DAPS7                                 
029635,001654: 17,2000                                           BANK                                           
029636,001655: 17,2000                                           COUNT    17/S40.8                              
029637,001656: 
029638,001657: 17,2000           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
029639,001658: 17,2002           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
029640,001659: 17,2004           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
029641,001660: 17,2006           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
029642,001661: 17,2010           00040 00000  DPB-9              2DEC     1          B-9                        
029643,001662: 20,2000                                           SETLOC   DAPS6                                 
029644,001663: 20,2000                                           BANK                                           
029645,001664: 
029646,001665: 20,2000                                           COUNT    20/S40.8                              
029647,001666: 
029648,001667: 20,2000           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
029649,001668: 20,2001           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
029650,001669: 20,2002           15332                                    HI6ZEROS                              
029651,001670: 20,2003           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
029652,001671: 20,2004           77776                           EXIT                                           
029653,001672: 20,2005           34672                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
029654,001673: 20,2006           55447                           TS       CNTR                                  

Page 675

029656,001675: 20,2007           06006                           TC       INTPRET                               
029657,001676: 20,2010           52014                           CLEAR    GOTO                                  
029658,001677: 20,2011           01264                                    STEERSW                               #  RESTARTS OK
029659,001678: 20,2012           03657                                    QTEMP                                 
029660,001679: 20,2013           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
029661,001680: 20,2014           05537                           TC       ALARM                                 #  IN WRONG DIRECTION.
029662,001681: 20,2015           01407                           OCT      01407                                 
029663,001682: 20,2016           06006                           TC       INTPRET                               
029664,001683: 20,2017           77650                           GOTO                                           
029665,001684: 20,2020           03657                                    QTEMP                                 
029666,001685: 
029667,001686: 20,2021           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
029668,001687: 20,2022           00711                                    IDLEFAIL                              #  SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
029669,001688: 20,2023           03657                                    QTEMP                                 #       UNFAVORABLE S40.8 SYNCH
029670,001689: 20,2024           15332                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
029671,001690: 20,2025           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
029672,001691: 20,2026           77776                           EXIT                                           
029673,001692: 
029674,001693: 20,2027           44714                           CS       ZERO                                  
029675,001694: 20,2030           55653                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
029676,001695: 20,2031           55663                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
029677,001696: 20,2032           55652                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
029678,001697: 20,2033           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
029679,001698: 
029680,001699: 20,2034           06006                           TC       INTPRET                               
029681,001700: 20,2035           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
029682,001701: 20,2036           01264                                    STEERSW                               #       SHUTDOWN IF NOT SET UP AGAIN)
029683,001702: 20,2037           03657                                    QTEMP                                 #  RESTARTS OK
029684,001703: 

Page 676

029686,001705:                                                                                                  #  NAME        S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
029687,001706:                                                                                                  #  FUNCTION    (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
029688,001707:                                                                                                  #              VECTORS FOR USE DURING AIMPOINT MANEUVERS
029689,001708:                                                                                                  #              (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
029690,001709:                                                                                                  #              CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
029691,001710:                                                                                                  #  CALLING SEQ VIA FINDVAC AS NEW JOB.
029692,001711:                                                                                                  #  INPUT       RNIT     - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
029693,001712:                                                                                                  #              VNIT     - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
029694,001713:                                                                                                  #              VRPREV   - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
029695,001714:                                                                                                  #                         METERS/CS AT +7.
029696,001715:                                                                                                  #              NOMTIG     - TIME OF IGN. USED IN TARGETTING ROUTINES%+28"
029697,001716:                                                                                                  #              DELLT4     - TRANSFER TIME FROM PIPTIME TO TARGET%+28"
029698,001717:                                                                                                  #              TNIT       - TIME OF RNIT AND VNIT IN CS AT +28
029699,001718:                                                                                                  #              GDT/2    - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
029700,001719:                                                                                                  #                         ACCERERATION OF GRAVITY IN METERS/CS AT +7.
029701,001720:                                                                                                  #              DELVREF  - CHANGE IN VELOCITY DURING LAST 2 SEC IN
029702,001721:                                                                                                  #                         METERS/CS AT +7.
029703,001722:                                                                                                  #           NORMSW   SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
029704,001723:                                                                                                  #                    165 TO 195 DEGREES
029705,001724:                                                                                                  #                    RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
029706,001725:                                                                                                  #  OUTPUT      VGTEMP   - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
029707,001726:                                                                                                  #              COGA       - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
029708,001727:                                                                                                  #                         OR PREVIOUS PASS THRU S40.9
029709,001728:                                                                                                  #              GOBL/2     -OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
029710,001729:                                                                                                  #              VRPREV   - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
029711,001730:                                                                                                  #              BDT      - B VECTOR IN METERS/CS AT +7.
029712,001731:                                                                                                  #  SUBROUTINES USED  -  INITVEL
029713,001732: 16,2000                                           SETLOC   P40S1                                 
029714,001733: 16,2000                                           BANK                                           
029715,001734: 
029716,001735: 16,2257  E6,1746                                  EBANK=   NBRCYCLS                              
029717,001736: 16,2257                                           COUNT    16/S40.9                              
029718,001737: 
029719,001738: 16,2257           06006        S40.9              TC       INTPRET                               
029720,001739: 16,2260           71201                           SETPD    DLOAD                                 
029721,001740: 16,2261           00001                                    00D                                   
029722,001741: 16,2262           11453                                    LO6ZEROS                              
029723,001742: 16,2263           77725                           PDDL                                           
029724,001743: 16,2264           34401                                    EP4(45)L                              
029725,001744: 16,2265           71214                           BON      DLOAD                                 
029726,001745: 16,2266           03705                                    NORMSW                                
029727,001746: 16,2267           34271                                    +2                                    
029728,001747: 16,2270           34403                                    EP4(10)L                              
029729,001748: 16,2271           77606                           PUSH                                           
029730,001749: 16,2272           45014                           CLEAR    CALL                                  
029731,001750: 16,2273           00675                                    GUESSW                                
029732,001751: 16,2274           22002                                    HAVEGUES                              
029733,001752: 16,2275           77776                           EXIT                                           
029734,001753: 16,2276           05301                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
029735,001754: 16,2277           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW

Page 677

029737,001756: 16,2300           10000                           OCT      10000                                 
029738,001757: 16,2301           06006                           TC       INTPRET                               
029739,001758: 16,2302           77614        ENDLAMB            BON                                            
029740,001759: 16,2303           01310                                    FIRSTFLG                              
029741,001760: 16,2304           34322                                    FIRSTTME                              
029742,001761: 16,2305           52375                           VLOAD    VSU                                   
029743,001762: 16,2306           03612                                    VIPRIME                               
029744,001763: 16,2307           03466                                    VRPREV                                
029745,001764: 16,2310           45325                           PDDL     DSU                                   
029746,001765: 16,2311           03474                                    TNIT                                  
029747,001766: 16,2312           03476                                    TNITPREV                              
029748,001767: 16,2313           55261                           SL       BDDV                                  
029749,001768: 16,2314           20222                                    17D                                   
029750,001769: 16,2315           34375                                    200CSHI                               
029751,001770: 16,2316           77761                           VXSC                                           
029752,001771: 16,2317           76451                           VSU      VSL1                                  
029753,001772: 16,2320           01207                                    GDT/2                                 
029754,001773: 16,2321           03705                           STORE    BDT                                   
029755,001774: 16,2322           57535        FIRSTTME           SLOAD    DCOMP                                 
029756,001775: 16,2323           03747                                    RTX2                                  
029757,001776: 16,2324           77640                           BMN                                            
029758,001777: 16,2325           34342                                    MOONCASE                              
029759,001778: 16,2326           53575                           VLOAD    UNIT                                  
029760,001779: 16,2327           01171                                    RN                                    
029761,001780: 16,2330           45345                           DLOAD    DSU                                   
029762,001781: 16,2331           01205                                    PIPTIME                               
029763,001782: 16,2332           03450                                    NOMTIG                                
029764,001783: 16,2333           56205                           DMP      DDV                                   
029765,001784: 16,2334           34377                                    EARTHMU                               
029766,001785: 16,2335           00043                                    34D                                   
029767,001786: 16,2336           53361                           VXSC     VAD                                   
029768,001787: 16,2337           01215                                    GOBL/2                                
029769,001788: 16,2340           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
029770,001789: 16,2341           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
029771,001790: 16,2342           77776        MOONCASE           EXIT                                           
029772,001791: 16,2343           05301                           TC       PHASCHNG                              
029773,001792: 16,2344           04021                           OCT      04021                                 #  C, JOB BELOW
029774,001793: 
029775,001794: 16,2345           06006        COPY40.9           TC       INTPRET                               
029776,001795: 16,2346           77745                           DLOAD                                          
029777,001796: 16,2347           03474                                    TNIT                                  
029778,001797: 16,2350           27476                           STOVL    TNITPREV                              
029779,001798: 16,2351           03612                                    VIPRIME                               
029780,001799: 16,2352           03466                           STORE    VRPREV                                
029781,001800: 16,2353           77414                           CLEAR    EXIT                                  
029782,001801: 16,2354           01270                                    FIRSTFLG                              
029783,001802: 16,2355           44712                 -2        CS       ONE                                   #  REDO40.9 (RESTART)  ENTRY TO END  S40.9
029784,001803: 16,2356           55746                           TS       NBRCYCLS                              
029785,001804: 16,2357           05301        ENDS40.9           TC       PHASCHNG                              
029786,001805: 16,2360           00001                           OCT      00001                                 

Page 678

029788,001807: 16,2361           15112                           TCF      ENDOFJOB                              
029789,001808: 
029790,001809: 16,2362           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
029791,001810: 16,2363           77775                           VLOAD                                          #       TERMINATE S40.9 SO THAT IT CAN BE
029792,001811: 16,2364           11453                                    LO6ZEROS                              #       SET UP WITH LATEST R,V,T NEXT PASS
029793,001812: 16,2365           17351                           STODL    DELVSUM                               #       (TYPE C PHASE POINTS '04021' WILL
029794,001813: 16,2366           11453                                    LO6ZEROS                              #       FORCE NORMAL S40.9 TERMINATIONS,
029795,001814: 16,2367           27347                           STOVL    NBRCYCLS                              #       RATHER THAN LOSE TIME OF BRAND NEW
029796,001815: 16,2370           03721                                    VGPREV                                #       PASS -- QUICK OLD DATA BETTER THAN
029797,001816: 16,2371           03646                           STORE    VGTEMP                                #       NONE) NOW CAN GO THRU SETUP.9
029798,001817: 16,2372           77776                           EXIT                                           #       WITHOUT DISTURBING VGPREV
029799,001818: 16,2373           12355                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
029800,001819: 
029801,001820: 16,2374           01440 00000  200CSHI            2DEC     200        B-12                       
029802,001821: 16,2376           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
029803,001822: 16,2400           04000 00000  EP4(45)L           2DEC     .125                                  
029804,001823: 16,2402           00707 03434  EP4(10)L           2DEC     .027777777                            
029805,001824: 

Page 679

029807,001826:                                                                                                  #  NAME        S40.13 - TIMEBURN
029808,001827:                                                                                                  #  FUNCTION    (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
029809,001828:                                                                                                  #              BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
029810,001829:                                                                                                  #              TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
029811,001830:                                                                                                  #              (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
029812,001831:                                                                                                  #              AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
029813,001832:                                                                                                  #  CALLING SEQ VIA FINDVAC AS NEW JOB.
029814,001833:                                                                                                  #  INPUT       VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
029815,001834:                                                                                                  #           WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
029816,001835:                                                                                                  #              F - ENGINE THRUST IN M.NEWTONS AT +7
029817,001836:                                                                                                  #              MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
029818,001837:                                                                                                  #                     IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
029819,001838:                                                                                                  #                     REQUIRE MODIFICATION FOR SATURN BURNS.
029820,001839:                                                                                                  #  OUTPUT      IMPULSW - ZERO FOR STEERING
029821,001840:                                                                                                  #                      - ONE FOR ATTITUDE HOLD
029822,001841:                                                                                                  #              TGO - TIME TO BURN IN CENTISECONDS AT +14
029823,001842:                                                                                                  #    THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
029824,001843:                                                                                                  #    (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
029825,001844:                                                                                                  #    (1) M.NEWTON = (10000) NEWTONS
029826,001845: 16,2404  E7,1427                                  EBANK=   TGO                                   
029827,001846: 16,2404                                           COUNT    16/40.13                              
029828,001847: 
029829,001848: 16,2404           06006        S40.13             TC       INTPRET                               
029830,001849: 16,2405           43001                           SETPD    SET                                   
029831,001850: 16,2406           00001                                    00D                                   
029832,001851: 16,2407           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
029833,001852: 16,2410           51575                           VLOAD    ABVAL                                 
029834,001853: 16,2411           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
029835,001854: 16,2412           77776                           EXIT                                           
029836,001855: 16,2413           34704                           CAF      BIT7                                  #  TEST +X TRANSLATION
029837,001856: 16,2414           00006                           EXTEND                                         
029838,001857: 16,2415           06031                           RXOR     CHAN31                                
029839,001858: 16,2416           74704                           MASK     BIT7                                  
029840,001859: 16,2417           00006                           EXTEND                                         
029841,001860: 16,2420           12502                           BZF      NOTADDUL                              
029842,001861: 16,2421           06006                           TC       INTPRET                               
029843,001862: 16,2422           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
029844,001863: 16,2423           36027                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
029845,001864: 16,2424           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
029846,001865: 16,2425           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
029847,001866: 16,2426           00700                                    NJETSFLG                              
029848,001867: 16,2427           34430                                    S40.130                               
029849,001868: 16,2430           77621        S40.130            BDSU                                           
029850,001869: 16,2431           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
029851,001870: 16,2432           36013                                    K1VAL                                 #  M.NETWON-CS AT +24
029852,001871: 16,2433           03076                                    WEIGHT/G                              
029853,001872: 16,2434           50021                           BDSU     BMN                                   
029854,001873: 16,2435           00001                                    00D                                   
029855,001874: 16,2436           34461                                    S40.131                               #  TGO LESS THAN 100 CS
029856,001875: 16,2437           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7

Page 680

029858,001877: 16,2440           36031                                    MDOTLO                                #  MDOT, SC.AT B+3 KG/CS
029859,001878: 16,2441           36023                                    3.5SEC                                #  350 CS AT +14
029860,001879: 16,2442           65221                           BDSU     PDDL                                  
029861,001880: 16,2443           03076                                    WEIGHT/G                              
029862,001881: 16,2444           03727                                    F                                     #  F AT +7
029863,001882: 16,2445           60405                           DMP      SR2                                   
029864,001883: 16,2446           36025                                    5SECOND                               #  500 CS AT +14
029865,001884: 16,2447           41471                           DDV      PUSH                                  #  04D = TEMP2
029866,001885: 16,2450           51021                           BDSU     BPL                                   
029867,001886: 16,2451           00003                                    02D                                   
029868,001887: 16,2452           34475                                    S40.133                               #  TGO GREATER THAN 600 CS
029869,001888: 16,2453           55345                           DLOAD    BDDV                                  
029870,001889: 16,2454           43205                           DMP      DAD                                   
029871,001890: 16,2455           36025                                    5SECOND                               #  500 CS AT +14
029872,001891: 16,2456           36021                                    1SEC2D                                #  100 CS AT +14
029873,001892: 16,2457           77650                           GOTO                                           
029874,001893: 16,2460           34466                                    S40.132                               
029875,001894: 16,2461           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
029876,001895: 16,2462           03076                                    WEIGHT/G                              
029877,001896: 16,2463           56215                           DAD      DDV                                   
029878,001897: 16,2464           36015                                    K2VAL                                 #  M.NEWTON-CS AT +24
029879,001898: 16,2465           36017                                    K3VAL                                 #  M.NEWTONS AT +10
029880,001899: 16,2466           77776        S40.132            EXIT                                           
029881,001900: 16,2467  E7,1427                                  EBANK=   TGO                                   
029882,001901: 16,2467           07226                           TC       TPAGREE                               
029883,001902: 16,2470           30154                           CA       MPAC                                  
029884,001903: 16,2471           56001                           XCH      L                                     
029885,001904: 16,2472           34714                           CA       ZERO                                  
029886,001905: 16,2473           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
029887,001906: 16,2474           02477                           TC       S40.134                               
029888,001907: 16,2475           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
029889,001908: 16,2476           01266                                    IMPULSW                               
029890,001909: 16,2477           05301        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
029891,001910: 16,2500           00003                           OCT      3                                     
029892,001911: 
029893,001912: 16,2501           15112                           TCF      ENDOFJOB                              
029894,001913: 
029895,001914: 
029896,001915: 16,2502           06006        NOTADDUL           TC       INTPRET                               
029897,001916: 16,2503           77650                           GOTO                                           
029898,001917: 16,2504           34431                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
029899,001918: 17,2000                                           SETLOC   DAPS7                                 
029900,001919: 17,2000                                           BANK                                           
029901,001920: 
029902,001921: 17,2012                                           COUNT    17/40.13                              
029903,001922: 
029904,001923: 17,2012           00001 27221  K1VAL              2DEC     884.52887  B-23                       #  19885 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
029905,001924: 17,2014           00000 22244  K2VAL              2DEC     293.137805 B-23                       #   6590 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2

Page 681

029907,001926: 17,2016           00570 33235  K3VAL              2DEC     11.7766668 B-9                        #  26475 LBS, SC.AT B+9 NEWTONS/E+4
029908,001927: 17,2020           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14
029909,001928: 17,2022           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
029910,001929: 17,2024           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
029911,001930: 17,2026           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
029912,001931:                                                                                                  #                                               7.96(199.6)COS(10)  LB-SEC,  SC.AT
029913,001932:                                                                                                  #                                               B+23 NEWTON-SEC/E+2  (7 SEC ULLAGE
029914,001933:                                                                                                  #                                               TO GO, PLUS 0.96 SEC FROM PIPTIME)
029915,001934: 17,2030           01120 25456  MDOTLO             2DEC     .289391932 B-3                        #  63.8 LB/SEC, SC.AT B+3 KG/CS   (=MDOTHI)
029916,001935: 

Page 682

029918,001937:                                                                                                  #  NAME     S40.6  GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
029919,001938:                                                                                                  #  MOD NO 5                        DATE 9 MARCH, 1967
029920,001939:                                                                                                  #  MOD BY   ENGEL                  LOG SECTION P40-P47
029921,001940:                                                                                                  #  FUNCTIONAL DESCRIPTION
029922,001941:                                                                                                  #       GIMBAL DRIVE TEST....0,+2,-2,0  DEGREE ENGINE COMMANDS, AT 2 SECOND
029923,001942:                                                                                                  #           INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
029924,001943:                                                                                                  #           OF GIMBAL MOTION ON GPI
029925,001944:                                                                                                  #       GIMBAL TRIM....AFTER A 4 SECOND DELAY,ENGINE COMMANDED TO
029926,001945:                                                                                                  #           PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
029927,001946:                                                                                                  #       PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
029928,001947:                                                                                                  #           IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
029929,001948:                                                                                                  #           BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
029930,001949:                                                                                                  #           IF TVC IS ON (TVCDAPON OR LATER)  THEN REDOTVC WILL TAKE CARE
029931,001950:                                                                                                  #           OF RESTARTING ACTUATORS.
029932,001951:                                                                                                  #  CALLING SEQUENCE....
029933,001952:                                                                                                  #       WAITLIST,  WITH 2CADR FOR S40.6 (OR PRE40.6),  WITH EBANK= CNTR
029934,001953:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
029935,001954:                                                                                                  #  SUBROUTINES CALLED....
029936,001955:                                                                                                  #       OUTPUT (INTERNAL)
029937,001956:                                                                                                  #       FIXDELAY
029938,001957:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
029939,001958:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
029940,001959:                                                                                                  #       CNTR = +0,  NORMALLY SET BY THE P40 CALL AT TST,TRIM
029941,001960:                                                                                                  #       MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
029942,001961:                                                                                                  #                 NEGATIVE FOR GIMBAL TRIM ONLY
029943,001962:                                                                                                  #       PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT  (V48N48 P,YTRIM)
029944,001963:                                                                                                  #       ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
029945,001964:                                                                                                  #       ACTIVE SPS GIMBAL MOTOR POWER(S),  PITCH, YAW
029946,001965:                                                                                                  #  OUTPUT
029947,001966:                                                                                                  #       TVCYAW, TVCPITCH (BITS RELEASED)
029948,001967:                                                                                                  #       TVC ENABLE  AND  OPTICS ERROR COUNTER ENABLE
029949,001968:                                                                                                  #  DEBRIS
029950,001969:                                                                                                  #       TEMPR60, CNTR
029951,001970: 
029952,001971: 
029953,001972: 
029954,001973: 17,2032                                           BANK     17                                    
029955,001974: 20,2000                                           SETLOC   DAPS6                                 
029956,001975: 20,2000                                           BANK                                           
029957,001976: 
029958,001977: 20,2040  E6,1447                                  EBANK=   CNTR                                  
029959,001978: 20,2040                                           COUNT    20/S40.6                              
029960,001979: 
029961,001980: 20,2040           30102        PRE40.6            CAE      FLAGWRD6                              #  RESTART ENTRY TO S40.6.  CHECK T5 BITS.
029962,001981: 20,2041           74105                           MASK     OCT60000                              
029963,001982: 20,2042           00006                           EXTEND                                         
029964,001983: 20,2043           65213                           BZMF     TASKOVER                              #  NOT RCS  (BITS NOT 01),  DONT DO S40.6
029965,001984: 
029966,001985: 20,2044           44712                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
029967,001986: 20,2045           55445                           TS       MRKRTMP                               

Page 683

029969,001988: 20,2046           34712                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
029970,001989: 20,2047           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
029971,001990:                                                                                                  #                                               NORMALLY +0, BY S40.6)
029972,001991: 
029973,001992: 
029974,001993: 20,2050  E6,1447                                  EBANK=   CNTR                                  
029975,001994: 20,2050           44714        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
029976,001995: 20,2051           55303                           TS       OPTIND                                
029977,001996: 
029978,001997: 20,2052           44711                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
029979,001998: 20,2053           00006                           EXTEND                                         #       AND INHIBIT PULSE TRANSMISSION -
029980,001999: 20,2054           03012                           WAND     CHAN12                                #       NORMAL STATE)
029981,002000: 
029982,002001: 20,2055           32142                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
029983,002002: 20,2056           00006                           EXTEND                                         #       VOLTAGES) AND DISENGAGE OPTICS/DAC
029984,002003: 20,2057           05012                           WOR      CHAN12                                
029985,002004: 
029986,002005: 20,2060           05156                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
029987,002006: 20,2061           00006                           DEC      6          B-14                       #       RELAY LATCHING
029988,002007: 
029989,002008: 20,2062           34711                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
029990,002009: 20,2063           00006                           EXTEND                                         
029991,002010: 20,2064           05012                           WOR      CHAN12                                
029992,002011: 
029993,002012: 20,2065           05156                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
029994,002013: 20,2066           00002                           DEC      2          B-14                       #       RELAY LATCHING
029995,002014: 
029996,002015: 20,2067           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
029997,002016: 20,2070           12130                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
029998,002017:                                                                                                  #                                               TST,TRIM SETS +0 ON NORMAL ENTRY
029999,002018: 
030000,002019: 20,2071           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
030001,002020: 20,2072           55447                           TS       CNTR                                  #       MRKRTMP SAVES CNTR FOR RESTARTS
030002,002021: 20,2073           00006                           EXTEND                                         
030003,002022: 20,2074           62126                           BZMF     GIMTRIM                               #  (TRIM ONLY)
030004,002023: 
030005,002024: 20,2075           44714        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
030006,002025: 20,2076           55447                           TS       CNTR                                  
030007,002026: 
030008,002027: 20,2077           32144        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
030009,002028: 20,2100           02113                           TC       OUTPUT                                #       (LEAVES GIMBAL AT +2 DEG)
030010,002029: 20,2101           32143                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
030011,002030: 20,2102           02113                           TC       OUTPUT                                
030012,002031: 20,2103           32144                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
030013,002032: 20,2104           02113                           TC       OUTPUT                                
030014,002033: 
030015,002034: 20,2105           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST
030016,002035: 20,2106           10000                           CCS      A                                     
030017,002036: 20,2107           12126                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
030018,002037: 20,2110           44712                           CS       BIT1                                  #  SET UP YAW TEST

Page 684

030020,002039: 20,2111           55447                           TS       CNTR                                  
030021,002040: 20,2112           12077                           TCF      GIMDTEST                              #  FOR YAW TEST
030022,002041: 
030023,002042: 
030024,002043: 20,2113           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
030025,002044: 20,2114           23146                           QXCH     TEMPR60                               
030026,002045: 
030027,002046: 20,2115           51447                           INDEX    CNTR                                  
030028,002047: 20,2116           54054                           TS       TVCPITCH                              
030029,002048: 
030030,002049: 20,2117           51447                           INDEX    CNTR                                  
030031,002050: 20,2120           34700                           CAF      BIT11                                 
030032,002051: 20,2121           00006                           EXTEND                                         
030033,002052: 20,2122           05014                           WOR      CHAN14                                
030034,002053: 
030035,002054: 20,2123           05156                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
030036,002055: 20,2124           00310                           DEC      200        B-14                       #       GIMBAL MOTION ON GPI
030037,002056: 20,2125           01146                           TC       TEMPR60                               
030038,002057: 
030039,002058: 
030040,002059: 20,2126           05156        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
030041,002060: 20,2127           00620                           DEC      400        B-14                       
030042,002061: 
030043,002062: 20,2130           44714                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
030044,002063: 20,2131           61425                           AD       PACTOFF                               #       (AVOID +0) ENTRY POINT FROM RSTRTST
030045,002064: 20,2132           54054                           TS       TVCPITCH                              #       ON A RESTART, TO AVOID 4SEC DELAY
030046,002065: 20,2133           44714                           CS       ZERO                                  
030047,002066: 20,2134           61426                           AD       YACTOFF                               
030048,002067: 20,2135           54053                           TS       TVCYAW                                
030049,002068: 
030050,002069: 20,2136           34755                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
030051,002070: 20,2137           00006                           EXTEND                                         
030052,002071: 20,2140           05014                           WOR      CHAN14                                
030053,002072: 
030054,002073: 20,2141           15213        ENDS40.6           TCF      TASKOVER                              
030055,002074: 
030056,002075: 
030057,002076: 20,2142           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
030058,002077: 20,2143           77526        -4ACTDEG           DEC      -169       B-14                       #  -4 DEG, SC.AT 85.41 ARCSEC/BIT (-169D)
030059,002078: 20,2144           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
030060,002079: 
030061,002080: 
030062,002081:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
030063,002082: 
030064,002083: 20,2145                                           COUNT    20/S41.2                              
030065,002084: 
030066,002085: 20,2145           31466        S41.2              CA       DAPDATR1                              
030067,002086: 20,2146           76214                           MASK     THREE                                 
030068,002087: 20,2147           60000                           AD       A                                     
030069,002088: 20,2150           55130                           TS       RATEINDX                              

Page 685

030071,002090: 20,2151           00004                           INHINT                                         
030072,002091: 20,2152           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
030073,002092: 20,2153           74371                           MASK     PRIO30                                #                    =10)
030074,002093: 20,2154           67705                           AD       -BIT14                                #  (OCT57777)
030075,002094: 20,2155           00006                           EXTEND                                         
030076,002095: 20,2156           12163                           BZF      TOGETHER                              #  YES
030077,002096: 
030078,002097: 20,2157           44711                           CS       BIT2                                  #  NO, UNSET FLAG
030079,002098: 20,2160           70103                           MASK     FLAGWRD7                              
030080,002099: 20,2161           54103                           TS       FLAGWRD7                              
030081,002100: 
030082,002101: 20,2162           12166                           TCF      +4                                    
030083,002102: 
030084,002103: 20,2163           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
030085,002104: 20,2164           74711                           MASK     BIT2                                  
030086,002105: 20,2165           26103                           ADS      FLAGWRD7                              
030087,002106: 
030088,002107: 20,2166           00003                           RELINT                                         
030089,002108: 
030090,002109: 20,2167           31466                           CA       DAPDATR1                              
030091,002110: 20,2170           74707                           MASK     BIT4                                  
030092,002111: 20,2171           00006                           EXTEND                                         
030093,002112: 20,2172           62174                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
030094,002113: 20,2173           32274                           CA       DEC409                                
030095,002114: 20,2174           62275                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
030096,002115: 20,2175           55655                           TS       ADB                                   
030097,002116: 
030098,002117: 20,2176           31466                           CA       DAPDATR1                              
030099,002118: 20,2177           74704                           MASK     BIT7                                  #  QUAD BD
030100,002119: 20,2200           00006                           EXTEND                                         
030101,002120: 20,2201           62203                           BZMF     +2                                    
030102,002121: 20,2202           34712                           CA       ONE                                   
030103,002122: 20,2203           55631                           TS       XTRANS                                
030104,002123: 20,2204           31466                           CA       DAPDATR1                              
030105,002124: 20,2205           74701                           MASK     BIT10                                 #  QUAD AC
030106,002125: 20,2206           00006                           EXTEND                                         
030107,002126: 20,2207           62211                           BZMF     +2                                    
030108,002127: 20,2210           44712                           CS       ONE                                   
030109,002128: 20,2211           27631                           ADS      XTRANS                                
030110,002129: 
030111,002130: 20,2212           00004                           INHINT                                         
030112,002131: 20,2213           00006                           EXTEND                                         
030113,002132: 20,2214           12221                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
030114,002133: 20,2215           40075                           CS       FLAGWRD1                              #  SET NJETSFLG   (2 JETS, AC OR BD QUADS)
030115,002134: 20,2216           74674                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
030116,002135: 20,2217           26075                           ADS      FLAGWRD1                              
030117,002136: 20,2220           12224                           TCF      +4                                    
030118,002137: 20,2221           44674                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
030119,002138: 20,2222           70075                           MASK     FLAGWRD1                              
030120,002139: 20,2223           54075                           TS       FLAGWRD1                              

Page 686

030122,002141: 20,2224           00003                           RELINT                                         
030123,002142: 20,2225           31467                           CA       DAPDATR2                              
030124,002143: 20,2226           74676                           MASK     BIT13                                 
030125,002144: 20,2227           00006                           EXTEND                                         
030126,002145: 20,2230           62232                           BZMF     +2                                    
030127,002146: 20,2231           12233                           TCF      +2                                    
030128,002147: 20,2232           44712                           CS       ONE                                   
030129,002148: 20,2233           40000                           COM                                            
030130,002149: 20,2234           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
030131,002150: 
030132,002151: 20,2235           31467                           CA       DAPDATR2                              
030133,002152: 20,2236           74701                           MASK     BIT10                                 
030134,002153: 20,2237           10000                           CCS      A                                     
030135,002154: 20,2240           12244                           TCF      +4                                    
030136,002155: 20,2241           34712                           CA       ONE                                   
030137,002156: 20,2242           55626                           TS       RACFAIL                               
030138,002157: 20,2243           12254                           TCF      BDFAIL                                
030139,002158: 20,2244           34714                           CA       ZERO                                  
030140,002159: 20,2245           55626                           TS       RACFAIL                               
030141,002160: 20,2246           31467                           CA       DAPDATR2                              
030142,002161: 20,2247           74707                           MASK     BIT4                                  
030143,002162: 20,2250           10000                           CCS      A                                     
030144,002163: 20,2251           12254                           TCF      BDFAIL                                
030145,002164: 20,2252           44712                           CS       ONE                                   
030146,002165: 20,2253           55626                           TS       RACFAIL                               
030147,002166: 20,2254           31467        BDFAIL             CA       DAPDATR2                              
030148,002167: 20,2255           74704                           MASK     BIT7                                  
030149,002168: 20,2256           10000                           CCS      A                                     
030150,002169: 20,2257           12263                           TCF      +4                                    
030151,002170: 20,2260           34712                           CA       ONE                                   
030152,002171: 20,2261           55627                           TS       RBDFAIL                               
030153,002172: 20,2262           00002                           TC       Q                                     
030154,002173: 20,2263           34714                           CA       ZERO                                  
030155,002174: 20,2264           55627                           TS       RBDFAIL                               
030156,002175: 20,2265           31467                           CA       DAPDATR2                              
030157,002176: 20,2266           74712                           MASK     BIT1                                  
030158,002177: 20,2267           10000                           CCS      A                                     
030159,002178: 20,2270           00002                           TC       Q                                     
030160,002179: 20,2271           44712                           CS       ONE                                   
030161,002180: 20,2272           55627                           TS       RBDFAIL                               
030162,002181: 20,2273           00002                           TC       Q                                     
030163,002182: 
030164,002183: 
030165,002184:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
030166,002185: 42,3521                                           BANK     42                                    
030167,002186: 42,2000                                           SETLOC   EXTVBS                                
030168,002187: 42,2000                                           BANK                                           
030169,002188: 
030170,002189: 42,3521           44702        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
030171,002190: 42,3522           00006                           EXTEND                                         

Page 687

030173,002192: 42,3523           03012                           WAND     CHAN12                                
030174,002193: 42,3524           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
030175,002194: 42,3525           00006                           EXTEND                                         
030176,002195: 42,3526           74710                           MP       BIT3                                  #       RIGHT SHIFT 4 OCTAL DIGITS
030177,002196: 42,3527           76214                           MASK     THREE                                 #       (IN CASE BIT 15 IS USED)
030178,002197: 42,3530           50000                           INDEX    A                                     
030179,002198: 42,3531           13532                           TCF      +1                                    #       BRANCH BASED ON CONFIG....
030180,002199: 
030181,002200: 42,3532           13544                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
030182,002201: 42,3533           13537                           TCF      RCSDAPUP                              #       CSM......ACTIVATE RCSDAP
030183,002202: 42,3534           13537                           TCF      RCSDAPUP                              #       CSM/LEM..ACTIVATE RCSDAP
030184,002203: 42,3535           04574                           TC       POSTJUMP                              
030185,002204: 42,3536           67210                           CADR     SATSTKON                              
030186,002205: 42,3537           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
030187,002206: 42,3540           04633                           TCR      IBNKCALL                              
030188,002207: 42,3541           42010                           CADR     RCSDAPON                              
030189,002208: 42,3542           00003                           RELINT                                         
030190,002209: 42,3543           13561                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
030191,002210: 42,3544           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
030192,002211: 42,3545           33564                           DCA      T5IDLDAP                              
030193,002212: 42,3546           53313                           DXCH     T5LOC                                 
030194,002213: 42,3547           05447                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
030195,002214: 42,3550           00132                           ADRES    DAPBIT1                               #  BIT 15  FLAG 6 = 0
030196,002215: 42,3551           05447                           TC       DOWNFLAG                              
030197,002216: 42,3552           00133                           ADRES    DAPBIT2                               #  BIT 14  FLAG 6 = 0
030198,002217: 42,3553           00004                           INHINT                                         
030199,002218: 42,3554           04633                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
030200,002219: 42,3555           42616                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
030201,002220: 42,3556           00003                           RELINT                                         
030202,002221: 42,3557           34712                           CAF      BIT1                                  #  KILL KALCMANU JOB
030203,002222: 42,3560           55332                           TS       HOLDFLAG                              
030204,002223: 42,3561           04574        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
030205,002224: 42,3562           66125                           CADR     GOPIN                                 
030206,002225: 42,3563  E6,1425                                  EBANK=   PACTOFF                               
030207,002226: 42,3563           03132 12106  T5IDLDAP           2CADR    T5IDLOC                               
030208,002227: 
030209,002228: 17,2032                                           BANK     17                                    
030210,002229: 20,2000                                           SETLOC   DAPS6                                 
030211,002230: 20,2000                                           BANK                                           
030212,002231: 
030213,002232: 20,2274           00631        DEC409             DEC      409        B-14                       
030214,002233: 20,2275           00056        DEC46              DEC      46         B-14                       
030215,002234: 
030216,002235: 
030217,002236:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
030218,002237: 
030219,002238: 20,2276           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
030220,002239: 20,2277           00006                           EXTEND                                         
030221,002240: 20,2300           72323                           MP       CONTONE                               

Page 688

030223,002242: 20,2301           55623                           TS       J/M                                   
030224,002243: 
030225,002244: 20,2302           31471                           CA       IAVG                                  
030226,002245: 20,2303           00006                           EXTEND                                         
030227,002246: 20,2304           72323                           MP       CONTONE                               
030228,002247: 20,2305           55624                           TS       J/M1                                  
030229,002248: 
030230,002249: 20,2306           55625                           TS       J/M2                                  
030231,002250: 
030232,002251: 20,2307           00006                           EXTEND                                         
030233,002252: 20,2310           32325                           DCA      CONTTWO                               
030234,002253: 20,2311           00006                           EXTEND                                         
030235,002254: 20,2312           11470                           DV       IXX                                   
030236,002255: 20,2313           55620                           TS       KMJ                                   
030237,002256: 
030238,002257: 20,2314           00006                           EXTEND                                         
030239,002258: 20,2315           32325                           DCA      CONTTWO                               
030240,002259: 20,2316           00006                           EXTEND                                         
030241,002260: 20,2317           11471                           DV       IAVG                                  
030242,002261: 20,2320           55621                           TS       KMJ1                                  
030243,002262: 
030244,002263: 20,2321           55622                           TS       KMJ2                                  
030245,002264: 
030246,002265: 20,2322           00002                           TC       Q                                     
030247,002266: 
030248,002267: 20,2323           25137        CONTONE            DEC      .662034                               #  2PI/M
030249,002268: 20,2324           00023 12522  CONTTWO            2DEC     .00118                                
030250,002269: 
030251,002270: 20,2326                                           COUNT    24/TVNG                               
030252,002271: 
030253,002272: 31,3215                                           BANK     31                                    
030254,002273: 24,2000                                           SETLOC   P40S                                  
030255,002274: 24,2000                                           BANK                                           
030256,002275: 
030257,002276: 24,3701           37405        POS-2.5            OCT      37405                                 

2016-08-14 RSB Added SBANK for addressing discrepancies.

030259,002278: 24,3702  40,2000                                  SBANK=   PINSUPER                              
030260,002279: 24,3702  E6,1466                                  EBANK=   DAPDATR1                              
030261,002280: 24,3702           02000 42106  RCSCADR            2CADR    RCSUP                                 
030262,002281: 24,3704           37704        6SECT5             OCT      37704                                 
030263,002282: 24,3705                                           COUNT    21/RCSUP                              
030264,002283: 
030265,002284: 20,2326                                           BANK     20                                    
030266,002285: 
030267,002286: 21,2000                                           SETLOC   DAPS3                                 
030268,002287: 21,2000                                           BANK                                           
030269,002288: 
030270,002289: 21,2000           22016        RCSUP              LXCH     BANKRUPT                              
030271,002290: 21,2001           00006                           EXTEND                                         
030272,002291: 21,2002           22012                           QXCH     QRUPT                                 
030273,002292: 

Page 689

030275,002294: 21,2003           02010                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
030276,002295: 
030277,002296: 21,2004           15222                           TCF      RESUME                                
030278,002297: 

2016-08-14 RSB Added SBANK for addressing discrepancies.

030280,002299: 21,2005  40,2000                                  SBANK=   PINSUPER                              
030281,002300: 21,2005  E6,1466                                  EBANK=   DAPDATR1                              
030282,002301: 21,2005           02106 42106  RCSADDR            2CADR    RCSATT                                
030283,002302: 
030284,002303: 
030285,002304: 21,2007           37704        0.6SECT5           OCT      37704                                 
030286,002305: 
030287,002306:                                                                                                  #                                          RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030288,002307: 21,2010           32007        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030289,002308: 21,2011           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
030290,002309: 21,2012           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
030291,002310: 
030292,002311: 21,2013           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
030293,002312: 21,2014           74710                           MASK     BIT3                                  #       DISPLAY, IN CASE SC CONT SWITCH
030294,002313: 21,2015           27501                           ADS      RCSFLAGS                              #       IN SCS NOT GNC (GUIDEMODE PRIMARY)
030295,002314: 
030296,002315: 21,2016           00006                           EXTEND                                         
030297,002316: 21,2017           32006                           DCA      RCSADDR                               #  (RCSATT)
030298,002317: 21,2020           53313                           DXCH     T5LOC                                 
030299,002318: 
030300,002319: 21,2021           44105                           CS       OCT60000                              #  SET BITS 15,14  TO  01  TO INDICATE
030301,002320: 21,2022           70102                           MASK     FLAGWRD6                              #       T5 TAKEOVER BY RCSDAP
030302,002321: 21,2023           64675                           AD       BIT14                                 
030303,002322: 21,2024           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
030304,002323: 
030305,002324: 21,2025           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)

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