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.

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

Page 637

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

Page 638

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

Page 639

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

Page 640

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

Page 641

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

Page 642

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

Page 643

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

Page 644

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

Page 645

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

Page 646

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

Page 647

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

Page 648

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

Page 649

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

Page 650

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

Page 651

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

Page 652

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

Page 653

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

Page 654

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

Page 655

028792,000822: 24,3173           13131                           TCF      SERVXT                                
028793,000823: 

Page 656

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

Page 657

028843,000873: 24,3241           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
028844,000874: 24,3242           77624                           CALL                                           #       PRIOR TO BLANKING AND AVEG (V16N85)
028845,000875: 24,3243           50314                                    P40CNV85                              
028846,000876: 24,3244           77776                           EXIT                                           
028847,000877: 24,3245           13256                           TCF      CKNVWRD1                              
028848,000878: 

Page 658

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

Page 659

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

029490,001520: 22,3435           74321                           MXV      VXSC                                  
029491,001521: 22,3436           05004                                    QUADROT                               
029492,001522: 22,3437           05443                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
029493,001523: 22,3440           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
029494,001524: 22,3441           03657                                    QTEMP                                 
029495,001525: 22,3442           24000 00000  TENBNK14           2DEC     10.        B-4                        
029496,001526: 

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

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

Page 681

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

Page 682

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

Page 683

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

Page 684

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

Page 685

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

Page 686

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

Page 687

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

Page 688

030213,002243: 20,2301           55623                           TS       J/M                                   
030214,002244: 
030215,002245: 20,2302           31471                           CA       IAVG                                  
030216,002246: 20,2303           00006                           EXTEND                                         
030217,002247: 20,2304           72323                           MP       CONTONE                               
030218,002248: 20,2305           55624                           TS       J/M1                                  
030219,002249: 
030220,002250: 20,2306           55625                           TS       J/M2                                  
030221,002251: 
030222,002252: 20,2307           00006                           EXTEND                                         
030223,002253: 20,2310           32325                           DCA      CONTTWO                               
030224,002254: 20,2311           00006                           EXTEND                                         
030225,002255: 20,2312           11470                           DV       IXX                                   
030226,002256: 20,2313           55620                           TS       KMJ                                   
030227,002257: 
030228,002258: 20,2314           00006                           EXTEND                                         
030229,002259: 20,2315           32325                           DCA      CONTTWO                               
030230,002260: 20,2316           00006                           EXTEND                                         
030231,002261: 20,2317           11471                           DV       IAVG                                  
030232,002262: 20,2320           55621                           TS       KMJ1                                  
030233,002263: 
030234,002264: 20,2321           55622                           TS       KMJ2                                  
030235,002265: 
030236,002266: 20,2322           00002                           TC       Q                                     
030237,002267: 
030238,002268: 20,2323           25137        CONTONE            DEC      .662034                               #  2PI/M
030239,002269: 20,2324           00023 12522  CONTTWO            2DEC     .00118                                
030240,002270: 
030241,002271: 20,2326                                           COUNT    24/TVNG                               
030242,002272: 
030243,002273: 31,3215                                           BANK     31                                    
030244,002274: 24,2000                                           SETLOC   P40S                                  
030245,002275: 24,2000                                           BANK                                           
030246,002276: 
030247,002277: 24,3701           37405        POS-2.5            OCT      37405                                 
030248,002278: 24,3702  E6,1466                                  EBANK=   DAPDATR1                              
030249,002279: 24,3702           02000 42106  RCSCADR            2CADR    RCSUP                                 
030250,002280: 24,3704           37704        6SECT5             OCT      37704                                 
030251,002281: 24,3705                                           COUNT    21/RCSUP                              
030252,002282: 
030253,002283: 20,2326                                           BANK     20                                    
030254,002284: 
030255,002285: 21,2000                                           SETLOC   DAPS3                                 
030256,002286: 21,2000                                           BANK                                           
030257,002287: 
030258,002288: 21,2000           22016        RCSUP              LXCH     BANKRUPT                              
030259,002289: 21,2001           00006                           EXTEND                                         
030260,002290: 21,2002           22012                           QXCH     QRUPT                                 
030261,002291: 

Page 689

030263,002293: 21,2003           02010                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
030264,002294: 
030265,002295: 21,2004           15222                           TCF      RESUME                                
030266,002296: 
030267,002297: 21,2005  E6,1466                                  EBANK=   DAPDATR1                              
030268,002298: 21,2005           02106 42106  RCSADDR            2CADR    RCSATT                                
030269,002299: 
030270,002300: 
030271,002301: 21,2007           37704        0.6SECT5           OCT      37704                                 
030272,002302: 
030273,002303:                                                                                                  #                                          RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030274,002304: 21,2010           32007        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030275,002305: 21,2011           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
030276,002306: 21,2012           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
030277,002307: 
030278,002308: 21,2013           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
030279,002309: 21,2014           74710                           MASK     BIT3                                  #       DISPLAY, IN CASE SC CONT SWITCH
030280,002310: 21,2015           27501                           ADS      RCSFLAGS                              #       IN SCS NOT GNC (GUIDEMODE PRIMARY)
030281,002311: 
030282,002312: 21,2016           00006                           EXTEND                                         
030283,002313: 21,2017           32006                           DCA      RCSADDR                               #  (RCSATT)
030284,002314: 21,2020           53313                           DXCH     T5LOC                                 
030285,002315: 
030286,002316: 21,2021           44105                           CS       OCT60000                              #  SET BITS 15,14  TO  01  TO INDICATE
030287,002317: 21,2022           70102                           MASK     FLAGWRD6                              #       T5 TAKEOVER BY RCSDAP
030288,002318: 21,2023           64675                           AD       BIT14                                 
030289,002319: 21,2024           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
030290,002320: 
030291,002321: 21,2025           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)

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