Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

027840,000002:                                                                                                 #  Copyright:    Public domain.
027841,000003:                                                                                                 #  Filename:      P40-P47.agc
027842,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
027843,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
027844,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
027845,000007:                                                                                                 #  Assembler:    yaYUL
027846,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
027847,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
027848,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
027849,000011:                                                                                                 #  Mod history:  2011-02-20 JL    Adapted from corresponding Colossus 249 file.
027850,000012:                                                                                                 #                 2011-04-24 JL   Fixed incorrect indentation of label.
027851,000013:                                                                                                 #                 2012-10-08 JL   Fixed incorrect opcode on p682.
027852,000014: 
027853,000015:                                                                                                 # # Page 637
027854,000016:                                                                                                 #  PROGRAM DESCRIPTION **P40CSM**
027855,000017: 
027856,000018: 
027857,000019: ???????  E6,1466                                 EBANK=   DAPDATR1                              
027858,000020: 31,3215                                          BANK     31                                    
027859,000021: 24,2000                                          SETLOC   P40S                                  
027860,000022: 24,2000                                          BANK                                           
027861,000023: 
027862,000024: 24,2002                                          COUNT    24/P40                                
027863,000025: 
027864,000026: 24,2002           05447        P40CSM            TC       DOWNFLAG                              
027865,000027: 24,2003           00023                          ADRES    ENG2FLAG                              
027866,000028: 
027867,000029: 24,2004           06006                          TC       INTPRET                               
027868,000030: 24,2005           43135                          SLOAD    BOFF                                  
027869,000031: 24,2006           03425                                   ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
027870,000032: 24,2007           01347                                   XDELVFLG                              
027871,000033: 24,2010           50013                                   P40S/C                                #  NO   CSTEER = ECSTEER
027872,000034: 24,2011           77745                          DLOAD                                          #  YES  CSTEER = ZERO
027873,000035: 24,2012           15332                                   HI6ZEROS                              
027874,000036: 24,2013           17703        P40S/C            STODL    CSTEER                                
027875,000037: 24,2014           10335                                   FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
027876,000038: 24,2015           17727        P40S/F            STODL    F                                     #  P41 ENTERS HERE
027877,000039: 24,2016           03413                                   TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
027878,000040: 24,2017           03450                          STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
027879,000041: 
027880,000042: 24,2020           77776                          EXIT                                           
027881,000043: 24,2021           04555                          TC       BANKCALL                              
027882,000044: 24,2022           17573                          CADR     R02BOTH                               #  IMU STATUS CHECK
027883,000045: 
027884,000046: 24,2023           06006        P40PVA            TC       INTPRET                               
027885,000047: 24,2024           77624                          CALL                                           
027886,000048: 24,2025           34000                                   S40.1                                 #  COMPUTE VGTIG,UT
027887,000049: 24,2026           77624                          CALL                                           
027888,000050: 24,2027           51514                                   S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
027889,000051: 24,2030           77414                          SET      EXIT                                  
027890,000052: 24,2031           01073                                   PFRATFLG                              
027891,000053: 24,2032           02212        P40SXTY           TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
027892,000054: 24,2033           00003                          RELINT                                         
027893,000055: 24,2034           04555                          TC       BANKCALL                              
027894,000056: 24,2035           56000                          CADR     R60CSM                                #  ATTITUDE MANEUVER
027895,000057: 24,2036           44712                          CS       ONE                                   #  FOR UPDATEVG
027896,000058: 24,2037           55746                          TS       NBRCYCLS                              
027897,000059: 24,2040           05435                          TC       UPFLAG                                
027898,000060: 24,2041           00155                          ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
027899,000061: 
027900,000062: 24,2042           02252                          TC       P41/P40                               
027901,000063: 24,2043           02267                          TC       P41/DSP                               #  P41
027902,000064: 
027903,000065: 24,2044           32351        P40TTOG           CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED
027904,000066:                                                                                                 # # Page 638
027905,000067: 24,2045           55145                          TS       NVWORD1                               #  BELOW
027906,000068: 
027907,000069: 24,2046           06006                          TC       INTPRET                               
027908,000070: 24,2047           51575                          VLOAD    ABVAL                                 #  FOR R2
027909,000071: 24,2050           03721                                   VGTIG                                 
027910,000072: 24,2051           17654                          STODL    VGDISP                                
027911,000073: 24,2052           15332                                   HI6ZEROS                              
027912,000074: 24,2053           03426                          STORE    DVTOTAL                               
027913,000075: 24,2054           77776                          EXIT                                           
027914,000076: 
027915,000077: 24,2055           00006                          EXTEND                                         
027916,000078: 24,2056           32775                          DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
027917,000079: 24,2057           53223                          DXCH     AVEGEXIT                              #  AFTER AVERAGE G
027918,000080: 
027919,000081: 24,2060           32344        P40GMB            CAF      P40CKLS2                              #  (4.1 PROTECTION)
027920,000082: 24,2061           04555                          TC       BANKCALL                              
027921,000083: 24,2062           20751                          CADR     GOPERF1                               
027922,000084: 24,2063           12204                          TCF      POST41                                #  V34
027923,000085: 24,2064           12364                          TCF      TST,TRIM                              #  V33
027924,000086: 24,2065           44712        TRIMONLY          CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM  (-1)
027925,000087: 24,2066           55445                 +1       TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
027926,000088: 
027927,000089: 24,2067           34714                          CAF      ZERO                                  #  SET CNTR  +0 FOR RESTART LOGIC IN S40.6
027928,000090: 24,2070           55447                          TS       CNTR                                  #       +0 SAYS NORMAL ENTRY.
027929,000091:                                                                                                 #                                                +1 (PRE40.6) SAYS RESTART ENTRY
027930,000092: 
027931,000093: 24,2071           34712                          CAF      ONE                                   
027932,000094: 24,2072           05140                          TC       WAITLIST                              
027933,000095: 24,2073  E6,1466                                 EBANK=   DAPDATR1                              
027934,000096: 24,2073           02050 40066                    2CADR    S40.6                                 
027935,000097: 24,2075           11445                          CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBALTEST
027936,000098: 24,2076           32343                          CAF      18SEC                                 #   PLUS, DELAY FOR 18 SECONDS
027937,000099: 24,2077           12101                          TCF      +2                                    #  HOLE
027938,000100: 24,2100           33000                          CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
027939,000101: 24,2101           04555                          TC       BANKCALL                              
027940,000102: 24,2102           01730                          CADR     DELAYJOB                              
027941,000103: 24,2103           05261                          TC       2PHSCHNG                              
027942,000104: 24,2104           40026                          OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
027943,000105: 24,2105           00234                          OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
027944,000106: 24,2106           34712        P40S/RS           CAF      ONE                                   
027945,000107: 24,2107           05140                          TC       WAITLIST                              #  P41/SDP
027946,000108: 24,2110  E7,1412                                 EBANK=   TIG                                   
027947,000109: 24,2110           03174 50067                    2CADR    CLOKTASK                              
027948,000110: 
027949,000111: 24,2112           00003                          RELINT                                         
027950,000112: 
027951,000113: 24,2113           03306        P40S/SV           TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
027952,000114: 24,2114  E7,1412                                 EBANK=   TIG                                   
027953,000115:                                                                                                 # # Page 639
027954,000116: 24,2114           06006                          TC       INTPRET                               
027955,000117: 24,2115           45345                          DLOAD    DSU                                   
027956,000118: 24,2116           03413                                   TIG                                   
027957,000119: 24,2117           10342                                   SEC29.96                              
027958,000120: 24,2120           00041                          STORE    TDEC1                                 
027959,000121: 
027960,000122: 24,2121           77624                          CALRB                                          #  RETURN IN BASIC
027961,000123: 24,2122           27574                                   MIDTOAV1                              
027962,000124: 24,2123           12125                          TCF      +2                                    
027963,000125: 24,2124           02146                          TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
027964,000126: 24,2125           00006        P40SET            EXTEND                                         
027965,000127: 24,2126           30155                          DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
027966,000128: 24,2127           53673                          DXCH     P40TMP                                
027967,000129: 24,2130           00006                          EXTEND                                         
027968,000130: 24,2131           43000                          DCS      5SECDP                                #  FOR TTGBLNK
027969,000131: 24,2132           21673                          DAS      P40TMP                                
027970,000132: 24,2133           00006                          EXTEND                                         
027971,000133: 24,2134           31673                          DCA      P40TMP                                
027972,000134: 24,2135           05231                          TC       LONGCALL                              
027973,000135: 24,2136  E7,1412                                 EBANK=   TIG                                   
027974,000136: 24,2136           02366 50067                    2CADR    TIGBLNK                               
027975,000137: 24,2140           05301                          TC       PHASCHNG                              
027976,000138: 24,2141           20214                          OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
027977,000139: 
027978,000140: 24,2142           15112                          TCF      ENDOFJOB                              
027979,000141: 24,2143           04555        P40BLNKR          TC       BANKCALL                              
027980,000142: 24,2144           20607                          CADR     CLEANDSP                              #  REMOVE RESIDUE
027981,000143: 24,2145           15112                          TCF      ENDOFJOB                              
027982,000144: 24,2146  E7,1412                                 EBANK=   TIG                                   
027983,000145: 24,2146           00006        P40SNEWM          EXTEND                                         
027984,000146: 24,2147           31246                          DCA      PIPTIME1                              
027985,000147: 24,2150           53413                          DXCH     TIG                                   #  SET NEW TIG FOR 06 40
027986,000148: 24,2151           00006                          EXTEND                                         
027987,000149: 24,2152           32342                          DCA      SEC29.96                              
027988,000150: 24,2153           21413                          DAS      TIG                                   
027989,000151: 24,2154           12125                          TCF      P40SET                                #  FOR LONGCALL OF TIG-30( OR -35)
027990,000152: 
027991,000153: 24,2155  E6,1466                                 EBANK=   DAPDATR1                              
027992,000154: 24,2155           32353        POSTBURN          CAF      V16N40                                
027993,000155: 24,2156           04555                          TC       BANKCALL                              
027994,000156: 24,2157           20610                          CADR     REFLASH                               
027995,000157: 24,2160           12204                          TCF      POST41                                #  V34 GO FINISH
027996,000158: 24,2161           12163                          TCF      P40RCS                                #  PROCEED
027997,000159: 24,2162           12155                          TCF      POSTBURN                              #  RECYCLE
027998,000160: 24,2163           00006        P40RCS            EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
027999,000161: 24,2164           32411                          DCA      ACADN85                               
028000,000162: 24,2165           53223                          DXCH     AVEGEXIT                              
028001,000163: 24,2166           34735                          CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
028002,000164: 24,2167           04555                          TC       BANKCALL                              
028003,000165:                                                                                                 # # Page 640
028004,000166: 24,2170           01730                          CADR     DELAYJOB                              
028005,000167: 
028006,000168: 24,2171           02212        P40MINDB          TCR      SETMINDB   -1                         
028007,000169: 24,2172           00003                          RELINT                                         
028008,000170: 24,2173           05301        TIGNOW            TC       PHASCHNG                              
028009,000171: 24,2174           05024                          OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
028010,000172: 24,2175           20000                          OCT      20000                                 #  PRIO 20
028011,000173: 24,2176           32350                          CAF      V16N85B                               
028012,000174: 24,2177           04555                          TC       BANKCALL                              
028013,000175: 24,2200           20610                          CADR     REFLASH                               
028014,000176: 24,2201           12204                          TCF      POST41                                #  FINISH P40/P41
028015,000177: 24,2202           12204                          TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
028016,000178: 24,2203           12173                          TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
028017,000179: 
028018,000180: 24,2204           00006        POST41            EXTEND                                         
028019,000181: 24,2205           32407                          DCA      SERVCADR                              
028020,000182: 24,2206           53223                          DXCH     AVEGEXIT                              
028021,000183: 24,2207           14106                          TCF      GOTOPOOH                              
028022,000184: 
028023,000185: 
028024,000186: 24,2210           00056        MINDB             DEC      46         B-14                       
028025,000187: 24,2211           00707        MAXDB             DEC      455        B-14                       
028026,000188: 24,2212  E6,1466                                 EBANK=   DAPDATR1                              
028027,000189: 24,2212           00004                 -1       INHINT                                         
028028,000190: 24,2213           30032        SETMINDB          CA       CDUX                                  #  ROUTINE FOR SETTING
028029,000191: 24,2214           55572                          TS       THETADX                               #  THE MINIMUM DEADBAND
028030,000192: 24,2215           00006                          EXTEND                                         #  IN AUTOPILOT
028031,000193: 24,2216           30034                          DCA      CDUY                                  
028032,000194: 24,2217           53574                          DXCH     THETADY                               
028033,000195: 24,2220           32210                          CA       MINDB                                 #  SHOULD BE CALLED UNDER
028034,000196: 24,2221           55655                          TS       ADB                                   #  INTERRUPT INHIBITED
028035,000197: 24,2222           44707                          CS       BIT4                                  #  EBANK = E6
028036,000198: 24,2223           71466                          MASK     DAPDATR1                              
028037,000199: 24,2224           55466                          TS       DAPDATR1                              
028038,000200: 24,2225           00002                          TC       Q                                     
028039,000201: 
028040,000202: 24,2226  E6,1466                                 EBANK=   DAPDATR1                              
028041,000203: 24,2226           00004                 -1       INHINT                                         
028042,000204: 24,2227           32211        SETMAXDB          CA       MAXDB                                 #  ROUTINE FOR SETTING
028043,000205: 24,2230           55655                          TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
028044,000206: 24,2231           41466                          CS       DAPDATR1                              
028045,000207: 24,2232           74707                          MASK     BIT4                                  #  SHOULD BE CALLED UNDER
028046,000208: 24,2233           27466                          ADS      DAPDATR1                              #  INTERRUPT INHIBITED
028047,000209: 24,2234           00002                          TC       Q                                     #  EBANK = E6
028048,000210: 
028049,000211:                                                                                                 # # Page 641
028050,000212:                                                                                                 #  PROGRAM DESCRIPTION **P41CSM**
028051,000213: 
028052,000214: 
028053,000215: 24,2235  E6,1466                                 EBANK=   DAPDATR1                              
028054,000216: 24,2235                                          COUNT    24/P41                                
028055,000217: 
028056,000218: 24,2235           05435        P41CSM            TC       UPFLAG                                
028057,000219: 24,2236           00023                          ADRES    ENG2FLAG                              #  SET FOR RCS
028058,000220: 
028059,000221: 24,2237           06006                          TC       INTPRET                               
028060,000222: 24,2240           77745                          DLOAD                                          
028061,000223: 24,2241           15332                                   HI6ZEROS                              #  FOR P41 CSTEER =0
028062,000224: 24,2242           03703                          STORE    CSTEER                                
028063,000225: 
028064,000226: 24,2243           43145                          DLOAD    BON                                   
028065,000227: 24,2244           10337                                   FRCS2                                 #  2JET THRUST FOR S40.1
028066,000228: 24,2245           00700                                   NJETSFLG                              
028067,000229: 24,2246           50015                                   P40S/F                                #  NJETS = 1 2-JET
028068,000230: 24,2247           52015                          DAD      GOTO                                  #  NJETS = 0  4-JET
028069,000231: 24,2250           10337                                   FRCS2                                 
028070,000232: 24,2251           50015                                   P40S/F                                
028071,000233: 
028072,000234: 24,2252           41011        P41/P40           CS       MODREG                                
028073,000235: 24,2253           74712                          MASK     ONE                                   #  P41EXITS AT CALL LOC +1
028074,000236: 24,2254           00006                          EXTEND                                         
028075,000237: 24,2255           12257                          BZF      +2                                    #  P41
028076,000238: 24,2256           24002                          INCR     Q                                     #  P40 EXITS AT CALL LOC +2
028077,000239: 24,2257           00002                          TC       Q                                     
028078,000240: 
028079,000241: 24,2260           34675        TTG/0             CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
028080,000242: 24,2261           05027                          TC       NOVAC                                 
028081,000243: 24,2262  E6,1466                                 EBANK=   DAPDATR1                              
028082,000244: 24,2262           02173 50066                    2CADR    TIGNOW                                
028083,000245: 
028084,000246: 24,2264           05447        P40CLK            TC       DOWNFLAG                              
028085,000247: 24,2265           00155                          ADRES    TIMRFLAG                              
028086,000248: 
028087,000249: 24,2266           15213                          TCF      TASKOVER                              
028088,000250: 
028089,000251: 24,2267           32347        P41/DSP           CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
028090,000252: 24,2270           55145                          TS       NVWORD1                               
028091,000253: 
028092,000254: 24,2271           06006                          TC       INTPRET                               
028093,000255: 24,2272           77624                          CALL                                           #  COMPUTE
028094,000256: 24,2273           50314                                   P40CNV85                              #          VGTIG IN CTRL COORDS
028095,000257: 24,2274           77776                          EXIT                                           
028096,000258: 24,2275           00006                          EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
028097,000259: 24,2276           32411                          DCA      ACADN85                               
028098,000260: 24,2277           53223                          DXCH     AVEGEXIT                              
028099,000261:                                                                                                 # # Page 642
028100,000262: 24,2300           05261                          TC       2PHSCHNG                              
028101,000263: 24,2301           40036                          OCT      40036                                 #  6.3=CLOKTASK(100CS)
028102,000264: 24,2302           00234                          OCT      234                                   #  4.23=P40S/SV(PRIO12)
028103,000265: 
028104,000266: 24,2303           12106                          TCF      P40S/RS                               
028105,000267: 24,2304           32350        P41REDSP          CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
028106,000268: 24,2305           55145                          TS       NVWORD1                               #   REDISPLAY NONFLASHING
028107,000269: 24,2306           32342                          CAF      SEC29.96   +1                         
028108,000270: 24,2307           05140                          TC       WAITLIST                              
028109,000271: 24,2310  E6,1466                                 EBANK=   DAPDATR1                              
028110,000272: 24,2310           02260 50066                    2CADR    TTG/0                                 
028111,000273: 24,2312           44710                          CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
028112,000274: 24,2313           12515                          TCF      TTGPHS                                
028113,000275: 24,2314           40220        P40CNV85          STQ      SETPD                                 
028114,000276: 24,2315           03730                                   QTEMP1                                
028115,000277: 24,2316           00001                                   0                                     
028116,000278: 24,2317           41575                          VLOAD    PUSH                                  
028117,000279: 24,2320           03721                                   VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
028118,000280: 24,2321           77624                          CALL                                           
028119,000281: 24,2322           45426                                   S41.1                                 
028120,000282: 24,2323           37665                          STCALL   VGBODY                                
028121,000283: 24,2324           03730                                   QTEMP1                                
028122,000284: 
028123,000285: 24,2325  E6,1466                                 EBANK=   DAPDATR1                              
028124,000286: 24,2325           06006        CALCN85           TC       INTPRET                               
028125,000287: 24,2326           77624                          CALL                                           
028126,000288: 24,2327           51020                                   UPDATEVG                              #  NEW VG, S40.8(+MAYBE S40.9)
028127,000289: 24,2330           77624                          CALL                                           
028128,000290: 24,2331           50314                                   P40CNV85                              #  COMPUTE VGBODY
028129,000291: 24,2332           77776                          EXIT                                           
028130,000292: 24,2333           03131                          TC       SERVXT                                
028131,000293: 24,2334           02217 06650  FENG              2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
028132,000294: 24,2336           00013 06112  FRCS2             2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
028133,000295:                                                                                                 #                                                B+7 NEWTONS/E+4
028134,000296: 24,2340           04700        SEC24.96          DEC      2496       B-14                       
028135,000297: 24,2341           00000 05664  SEC29.96          2DEC     2996       B-28                       
028136,000298: 24,2343           03410        18SEC             DEC      1800       B-14                       
028137,000299: 24,2344           00204        P40CKLS2          OCT      204                                   
028138,000300: 24,2345           37730        40CST5            OCT      37730                                 #  40 CS FOR THE T5 CLOCK
028139,000301: 24,2346     4377               OCT12             =        TEN                                   
028140,000302: 24,2346           04123        V1683             VN       1683                                  
028141,000303: 24,2347           01525        V06N85B           VN       0685                                  
028142,000304: 24,2350           04125        V16N85B           VN       1685                                  
028143,000305: 24,2351           01450        V06N40            VN       0640                                  
028144,000306: 24,2352           24020        P40OK99           OCT      24020                                 #  BITS 14,12, AND5 FOR LINUS VERB 99
028145,000307: 24,2353           04050        V16N40            VN       1640                                  
028146,000308:                                                                                                 # # Page 643
028147,000309: 24,2354           00027        OCT27/24          OCT      27                                    
028148,000310: 24,2355           00053        OCT53             OCT      53                                    
028149,000311: 24,2356           00035        OCT35             OCT      35                                    
028150,000312: 24,2357  E6,1466                                 EBANK=   DAPDATR1                              
028151,000313: 24,2357           03132 12066  T5IDL24           2CADR    T5IDLOC                               
028152,000314: 24,2361           01120 25456  MDOTHI            2DEC     .289391932 B-3                        #  63.8 LB/SEC, SC.AT B+3 KG/CS   (=MDOTLO)
028153,000315: 24,2363           00026        3MDOT             DEC      86.8175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
028154,000316:                                                                                                 #                                                B+16 KG/SEC
028155,000317: 24,2364           34712        TST,TRIM          CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
028156,000318: 24,2365           12066                          TCF      TRIMONLY   +1                         
028157,000319: 24,2366           33000        TIGBLNK           CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
028158,000320: 24,2367           05140                          TC       WAITLIST                              
028159,000321: 24,2370  E7,1412                                 EBANK=   TIG                                   
028160,000322: 24,2370           02504 50067                    2CADR    TIGAVEG                               
028161,000323: 24,2372           34714                          CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
028162,000324: 24,2373           55145                          TS       NVWORD1                               
028163,000325: 
028164,000326: 24,2374           34761                          CAF      PRIO14                                
028165,000327: 24,2375           05027                          TC       NOVAC                                 
028166,000328: 24,2376  E7,1412                                 EBANK=   TIG                                   
028167,000329: 24,2376           02143 50067                    2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
028168,000330: 24,2400           44362                          CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
028169,000331: 24,2401           04114        P40TSK            TC       NEWPHASE                              
028170,000332: 24,2402           00004                          OCT      4                                     
028171,000333: 24,2403           05213                          TC       TASKOVER                              
028172,000334: 
028173,000335: 24,2404  E7,1412                                 EBANK=   TIG                                   
028174,000336: 24,2404           02440 50067  ACADN83           2CADR    CALCN83                               
028175,000337: 24,2406  E7,1412                                 EBANK=   TIG                                   
028176,000338: 24,2406           03136 76067  SERVCADR          2CADR    SERVEXIT                              
028177,000339: 24,2410  E6,1466                                 EBANK=   DAPDATR1                              
028178,000340: 24,2410           02325 50066  ACADN85           2CADR    CALCN85                               
028179,000341: 
028180,000342:                                                                                                 # # Page 644
028181,000343:                                                                                                 #  PROGRAM DESCRIPTION **P47CSM**
028182,000344: 
028183,000345: 
028184,000346: 24,2412                                          COUNT    24/P47                                
028185,000347: 
028186,000348: 24,2412  E7,1412                                 EBANK=   TIG                                   
028187,000349: 24,2412           04555        P47CSM            TC       BANKCALL                              #    IMU STATUS CHECK
028188,000350: 24,2413           17573                          CADR     R02BOTH                               
028189,000351: 24,2414           06006                          TC       INTPRET                               
028190,000352: 24,2415           77624                          CALRB                                          
028191,000353: 24,2416           27570                                   MIDTOAV2                              
028192,000354: 24,2417           30155                          CAE      MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
028193,000355: 24,2420           55672                          TS       P40TMP                                #       CS, WITH A TPAGREE, INT.INIT.)
028194,000356: 24,2421           05140                          TC       WAITLIST                              
028195,000357: 24,2422  E7,1412                                 EBANK=   TIG                                   
028196,000358: 24,2422           02427 50067                    2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
028197,000359: 
028198,000360: 24,2424           05301                          TC       PHASCHNG                              
028199,000361: 24,2425           40574                          OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
028200,000362: 24,2426           15112                          TCF      ENDOFJOB                              
028201,000363: 
028202,000364: 24,2427  E7,1672                                 EBANK=   P40TMP                                
028203,000365: 24,2427           00006        TIGON             EXTEND                                         
028204,000366: 24,2430           32405                          DCA      ACADN83                               
028205,000367: 24,2431           53223                          DXCH     AVEGEXIT                              
028206,000368: 24,2432           34371                          CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
028207,000369: 24,2433           05027                          TC       NOVAC                                 
028208,000370: 24,2434  E7,1412                                 EBANK=   TIG                                   
028209,000371: 24,2434           02463 50067                    2CADR    P47BODY                               
028210,000372: 24,2436           44711                          CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
028211,000373: 24,2437           12515                          TCF      TTGPHS                                
028212,000374: 
028213,000375: 
028214,000376: 24,2440  E7,1412                                 EBANK=   TIG                                   
028215,000377: 24,2440           06006        CALCN83           TC       INTPRET                               
028216,000378: 24,2441           77601                          SETPD                                          #  SET UP PUSHLIST FOR S41.1
028217,000379: 24,2442           00001                                   0                                     
028218,000380: 24,2443           53375                          VLOAD    VAD                                   
028219,000381: 24,2444           03665                                   DELVCTL                               
028220,000382: 24,2445           03433                                   DELVREF                               
028221,000383: 24,2446           03460                          STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
028222,000384: 24,2447           45006                          PUSH     CALL                                  
028223,000385: 24,2450           45426                                   S41.1                                 
028224,000386: 24,2451           37675                          STCALL   DELVIMU                               
028225,000387: 24,2452           70436                                   S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
028226,000388: 24,2453           77776                          EXIT                                           
028227,000389: 24,2454           05301                          TC       PHASCHNG                              
028228,000390: 24,2455           10035                          OCT      10035                                 #  REREADAC AND HERE
028229,000391:                                                                                                 # # Page 645
028230,000392: 24,2456           34715                          CAF      FIVE                                  
028231,000393: 24,2457           05475                          TC       GENTRAN                               
028232,000394: 24,2460           01457                          ADRES    DV47TEMP                              
028233,000395: 24,2461           01664                          ADRES    DELVCTL                               
028234,000396: 
028235,000397: 24,2462           03131                          TC       SERVXT                                
028236,000398: 24,2463           06006        P47BODY           TC       INTPRET                               
028237,000399: 24,2464           77775                          VLOAD                                          
028238,000400: 24,2465           15332                                   HI6ZEROS                              
028239,000401: 24,2466           03675                          STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
028240,000402: 24,2467           03665                          STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
028241,000403: 24,2470           77776                          EXIT                                           
028242,000404: 24,2471           34762        P47BOD            CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
028243,000405: 24,2472           05103                          TC       PRIOCHNG                              #    TO PREVENT INTERRUPTSION OF CALCN83
028244,000406: 24,2473           05301                          TC       PHASCHNG                              
028245,000407: 24,2474           05024                          OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
028246,000408: 24,2475           15000                          OCT      15000                                 #  PRIO 15
028247,000409: 24,2476           32346        P47/DSP           CAF      V1683                                 
028248,000410: 24,2477           04555                          TC       BANKCALL                              
028249,000411: 24,2500           20624                          CADR     GOFLASH                               
028250,000412: 24,2501           04106                          TC       GOTOPOOH                              
028251,000413: 24,2502           04106                          TC       GOTOPOOH                              
028252,000414: 24,2503           12463                          TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
028253,000415: 
028254,000416:                                                                                                 # # Page 646
028255,000417:                                                                                                 #  ROUTINE **TIG-30** DESCRIPTION
028256,000418: 
028257,000419: 
028258,000420: 24,2504  E7,1412                                 EBANK=   TIG                                   
028259,000421: 24,2504                                          COUNT    24/P40                                
028260,000422: 
028261,000423: 24,2504           02252        TIGAVEG           TC       P41/P40                               #  TASK (4.37 PROTECTS)
028262,000424: 24,2505           12304                          TCF      P41REDSP                              
028263,000425: 
028264,000426: 24,2506           32351                          CAF      V06N40                                #  UNBLANK DISPLAY
028265,000427: 24,2507           55145                          TS       NVWORD1                               
028266,000428: 
028267,000429: 24,2510           32340                          CAF      SEC24.96                              
028268,000430: 24,2511           05140                          TC       WAITLIST                              
028269,000431: 24,2512  E7,1412                                 EBANK=   TIG                                   
028270,000432: 24,2512           02523 50067                    2CADR    TIG-5                                 
028271,000433: 24,2514           46211                          CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
028272,000434: 24,2515           04114        TTGPHS            TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
028273,000435: 24,2516           00004                          OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
028274,000436: 
028275,000437: 24,2517           10763        PRECHECK          CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
028276,000438: 24,2520           15213                          TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
028277,000439: 24,2521           04574                          TC       POSTJUMP                              
028278,000440: 24,2522           76604                          CADR     PREREAD                               
028279,000441: 
028280,000442:                                                                                                 # # Page 647
028281,000443:                                                                                                 #  ROUTINE **TIG-5** DESCRIPTION
028282,000444: 
028283,000445: 
028284,000446: 24,2523  E7,1412                                 EBANK=   TIG                                   
028285,000447: 24,2523           33000        TIG-5             CAF      5SEC                                  
028286,000448: 24,2524           05140                          TC       WAITLIST                              
028287,000449: 24,2525  E6,1466                                 EBANK=   DAPDATR1                              
028288,000450: 24,2525           02541 50066                    2CADR    TIG-0                                 
028289,000451: 24,2527           44702                          CS       BIT9                                  #  WILL CAUSE V99 FLASH
028290,000452: 24,2530           55145                          TS       NVWORD1                               
028291,000453: 
028292,000454: 24,2531           05261                          TC       2PHSCHNG                              
028293,000455: 24,2532           40074                          OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
028294,000456: 24,2533           00033                          OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
028295,000457: 
028296,000458: 24,2534           34675                          CAF      PRIO20                                
028297,000459: 24,2535           05042                          TC       FINDVAC                               
028298,000460: 24,2536  E7,1427                                 EBANK=   TGO                                   
028299,000461: 24,2536           02404 34067                    2CADR    S40.13                                
028300,000462: 24,2540           15213                          TCF      TASKOVER                              
028301,000463: 
028302,000464:                                                                                                 # # Page 648
028303,000465:                                                                                                 #  ROUTINES **TIG-0** AND **IGNITION** DESCRIPTION
028304,000466: 
028305,000467: 
028306,000468: 24,2541  E6,1466                                 EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
028307,000469: 24,2541           40103        TIG-0             CS       FLAGWRD7                              #  SET IGN FLAG
028308,000470: 24,2542           74676                          MASK     BIT13                                 
028309,000471: 24,2543           26103                          ADS      FLAGWRD7                              
028310,000472: 
028311,000473: 24,2544           30103                          CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
028312,000474: 24,2545           74677                          MASK     BIT12                                 
028313,000475: 24,2546           00006                          EXTEND                                         
028314,000476: 24,2547           15213                          BZF      TASKOVER                              #  WAIT FOR V99P
028315,000477: 
028316,000478: 24,2550           32351                          CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
028317,000479: 24,2551           55145                          TS       NVWORD1                               #       DURING THE V99 SEQUENCE)
028318,000480: 
028319,000481: 24,2552           05301                          TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
028320,000482: 24,2553           00614                          OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
028321,000483: 
028322,000484: 24,2554           30032        IGNITION          CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
028323,000485: 24,2555           55450                          TS       OGAD                                  #       V99PJOB (CLOCKJOB) SETS UP IGNITION
028324,000486: 24,2556           00006                          EXTEND                                         #       TASK (4.61 PROTECTION)
028325,000487: 24,2557           30025                          DCA      TIME2                                 #       FOR RESTARTS
028326,000488: 24,2560           53337                          DXCH     TEVENT                                
028327,000489: 24,2561           40101                          CS       FLAGWRD5                              #  SET ENGONFLG
028328,000490: 24,2562           74704                          MASK     BIT7                                  
028329,000491: 24,2563           26101                          ADS      FLAGWRD5                              
028330,000492: 24,2564           34676        SPSON             CAF      BIT13                                 #  TURN ON SPS ENGINE
028331,000493: 24,2565           00006                          EXTEND                                         
028332,000494: 24,2566           05011                          WOR      DSALMOUT                              
028333,000495: 
028334,000496: 24,2567           34702        IMPULCHK          CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
028335,000497: 24,2570           70076                          MASK     FLAGWRD2                              
028336,000498: 24,2571           10000                          CCS      A                                     
028337,000499: 24,2572           12657                          TCF      IMPLBURN                              #  IMPULSIVE
028338,000500: 24,2573           40102                          CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
028339,000501: 24,2574           74676                          MASK     BIT13                                 
028340,000502: 24,2575           26102                          ADS      FLAGWRD6                              
028341,000503: 
028342,000504: 24,2576           44105        PREPTVC           CS       OCT60000                              #  RESET T5 BITS
028343,000505: 24,2577           70102                          MASK     FLAGWRD6                              
028344,000506: 24,2600           54102                          TS       FLAGWRD6                              
028345,000507: 
028346,000508: 24,2601           00006                          EXTEND                                         #  KILL RCS
028347,000509: 24,2602           32360                          DCA      T5IDL24                               
028348,000510: 24,2603           53313                          DXCH     T5LOC                                 
028349,000511: 
028350,000512: 24,2604           46214                          CS       THREE                                 #  4.3 = DOTVCON (40CS)
028351,000513: 24,2605           04114                          TC       NEWPHASE                              
028352,000514: 24,2606           00004                          OCT      4                                     
028353,000515:                                                                                                 # # Page 649
028354,000516: 24,2607           05156                          TC       FIXDELAY                              
028355,000517: 24,2610           00050                          DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
028356,000518: 
028357,000519: 24,2611           44712        DOTVCON           CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
028358,000520: 24,2612           55654                          TS       TVCPHASE                              
028359,000521: 24,2613           34714                          CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
028360,000522: 24,2614           55661                          TS       TVCEXPHS                              
028361,000523: 24,2615           44105                          CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER....
028362,000524: 24,2616           70102                          MASK     FLAGWRD6                              #       BITS 15,14  =  10
028363,000525: 24,2617           64674                          AD       BIT15                                 
028364,000526: 24,2620           54102                          TS       FLAGWRD6                              
028365,000527: 
028366,000528: 24,2621           36214                          CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
028367,000529: 24,2622           54001                          TS       L                                     #       WHICH IS HANDLED NOW BY REDOTVC
028368,000530: 24,2623           40000                          COM                                            
028369,000531: 24,2624           52765                          DXCH     -PHASE6                               
028370,000532: 
028371,000533: 24,2625           44715                          CS       FIVE                                  #  4.5 = DOSTRULL  (160 CS)
028372,000534: 24,2626           04114                          TC       NEWPHASE                              
028373,000535: 24,2627           00004                          OCT      4                                     
028374,000536: 
028375,000537: 24,2630           34672                          CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
028376,000538: 24,2631           54030                          TS       TIME5                                 
028377,000539: 24,2632           00006                          EXTEND                                         
028378,000540: 24,2633           33003                          DCA      TVCON2C                               #  (TVCDAPON)
028379,000541: 24,2634           53313                          DXCH     T5LOC                                 #  (KILLS RCS DAP)
028380,000542: 
028381,000543: 24,2635           05156                          TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
028382,000544: 24,2636           00240                          DEC      160        B-14                       #       STEERING (IF NON-IMPULSIVE)
028383,000545: 
028384,000546: 24,2637           34676        DOSTRULL          CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
028385,000547: 24,2640           70102                          MASK     FLAGWRD6                              
028386,000548: 24,2641           10000                          CCS      A                                     
028387,000549: 24,2642           02650                          TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
028388,000550: 24,2643           02653                          TCR      ULAGEOFF                              #  ULLAGE OFF  (ONLY, OR AGAIN)
028389,000551: 
028390,000552: 24,2644           00006                          EXTEND                                         
028391,000553: 24,2645           34714                          DCA      NEG0                                  #  KILL GROUP 4  (DP NEG0 = -0,+0)
028392,000554: 24,2646           52761                          DXCH     -PHASE4                               
028393,000555: 
028394,000556: 24,2647           15213        ENDIGN            TCF      TASKOVER                              
028395,000557: 
028396,000558: 
028397,000559: 24,2650           40076        STEERULL          CS       FLAGWRD2                              #  SET STEERSW
028398,000560: 24,2651           74700                          MASK     BIT11                                 
028399,000561: 24,2652           26076                          ADS      FLAGWRD2                              
028400,000562: 
028401,000563: 24,2653           34714        ULAGEOFF          CAF      ZERO                                  
028402,000564: 24,2654           00006                          EXTEND                                         
028403,000565: 24,2655           01005                          WRITE    CHAN5                                 #  ZERO CHANNEL 5
028404,000566:                                                                                                 # # Page 650
028405,000567: 24,2656           00002                          TC       Q                                     
028406,000568: 
028407,000569: 
028408,000570: 24,2657           44676        IMPLBURN          CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
028409,000571: 24,2660           70102                          MASK     FLAGWRD6                              #       ENGINE FAIL)
028410,000572: 24,2661           54102                          TS       FLAGWRD6                              
028411,000573: 
028412,000574: 24,2662           03306                          TCR      E7SETTER                              
028413,000575: 
028414,000576: 24,2663  E7,1412                                 EBANK=   TIG                                   
028415,000577: 24,2663           00006                          EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
028416,000578: 24,2664           31430                          DCA      TGO                                   
028417,000579: 24,2665           53413                          DXCH     TIG                                   
028418,000580: 24,2666           00006                          EXTEND                                         
028419,000581: 24,2667           30025                          DCA      TIME2                                 
028420,000582: 24,2670           21413                          DAS      TIG                                   
028421,000583: 
028422,000584: 24,2671           31430                          CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
028423,000585: 24,2672           05140                          TC       WAITLIST                              
028424,000586: 24,2673  E7,1427                                 EBANK=   TGO                                   
028425,000587: 24,2673           02710 50067                    2CADR    ENGINOFF                              
028426,000588: 24,2675           05261                          TC       2PHSCHNG                              #  PROTECT....
028427,000589: 24,2676           40153                          OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
028428,000590: 24,2677           05014                          OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
028429,000591: 24,2700           77777                          DEC      -0         B-14                       #  -0 CS
028430,000592: 
028431,000593: 24,2701           44702                          CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
028432,000594: 24,2702           70076                          MASK     FLAGWRD2                              
028433,000595: 24,2703           54076                          TS       FLAGWRD2                              
028434,000596: 
028435,000597: 24,2704           03311                          TCR      E6SETTER                              
028436,000598: 24,2705  E6,1466                                 EBANK=   DAPDATR1                              
028437,000599: 
028438,000600: 24,2705           34714                          CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
028439,000601: 24,2706           55444                          TS       V97VCNTR                              #       BACK) ARRIVES BEFORE TVCDAPON
028440,000602: 
028441,000603: 24,2707           12576                          TCF      PREPTVC                               
028442,000604: 
028443,000605: 
028444,000606: 24,2710  E7,1427                                 EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
028445,000607: 24,2710           03311        ENGINOFF          TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)       GET E6
028446,000608: 24,2711  E6,1466                                 EBANK=   DAPDATR1                              
028447,000609: 24,2711           31474                          CAE      CSMMASS                               
028448,000610: 24,2712           55662                          TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK
028449,000611: 24,2713           05261                          TC       2PHSCHNG                              
028450,000612: 24,2714           00003                          OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
028451,000613: 24,2715           40634                          OCT      40634                                 #  A, 4.63 = DOSPSOFF  (-0CS)
028452,000614: 24,2716           02741        DOSPSOFF          TCR      SPSOFF                                #  SHUT DOWN SPS, MASS UPDATES, ETC.
028453,000615: 24,2717           42354                          CS       OCT27/24                              #  (OCTAL 27)
028454,000616:                                                                                                 # # Page 651
028455,000617: 24,2720           04114                          TC       NEWPHASE                              
028456,000618: 24,2721           00004                          OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
028457,000619: 
028458,000620: 24,2722           05156                          TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
028459,000621: 24,2723           00372                          DEC      250        B-14                       
028460,000622: 
028461,000623: 24,2724           02227        DOTVCRCS          TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
028462,000624: 
028463,000625: 24,2725           04633                          TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
028464,000626: 24,2726           42010                          CADR     RCSDAPON                              #       BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
028465,000627: 
028466,000628: 24,2727           04633                          TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
028467,000629: 24,2730           13176                          CADR     MASSPROP                              #       RCS DAP STARTUP IN 0.6 SECONDS
028468,000630: 
028469,000631: 24,2731           03005                          TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
028470,000632: 
028471,000633: 24,2732           05301                          TC       PHASCHNG                              
028472,000634: 24,2733           00354                          OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
028473,000635: 24,2734           34603                          CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
028474,000636: 24,2735           05027                          TC       NOVAC                                 
028475,000637: 24,2736  E6,1466                                 EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
028476,000638: 24,2736           02155 50066                    2CADR    POSTBURN                              
028477,000639: 24,2740           15213                          TCF      TASKOVER                              
028478,000640: 
028479,000641: 24,2741  E6,1466                                 EBANK=   DAPDATR1                              
028480,000642: 24,2741           00006        SPSOFF            EXTEND                                         #  ESTABLISH SPSOFF TEVENT
028481,000643: 24,2742           30025                          DCA      TIME2                                 
028482,000644: 24,2743           53337                          DXCH     TEVENT                                
028483,000645: 24,2744           44704                          CS       BIT7                                  #  RESET ENGONFLG
028484,000646: 24,2745           70101                          MASK     FLAGWRD5                              
028485,000647: 24,2746           54101                          TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
028486,000648: 24,2747           44676                          CS       BIT13                                 #  SHUT DOWN SPS ENGINE
028487,000649: 24,2750           00006                          EXTEND                                         
028488,000650: 24,2751           03011                          WAND     DSALMOUT                              
028489,000651: 
028490,000652: 24,2752           31444        MASSBACK          CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
028491,000653:                                                                                                 #                                                V97CNTR = VCNTR UNLESS V97 IS
028492,000654:                                                                                                 #                                                ACTIVE. ONLY V97CNTR IS THEN RIGHT
028493,000655: 24,2753           00006                          EXTEND                                         #    VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
028494,000656: 24,2754           72361                          MP       MDOTHI                                #       MDOT, SC<AT B+3 KG/CS
028495,000657: 24,2755           22000                          LXCH     A                                     
028496,000658: 24,2756           00006                          EXTEND                                         
028497,000659: 24,2757           74734                          MP       1SEC                                  #  DEC 100
028498,000660: 24,2760           61662                          AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
028499,000661: 24,2761           55474                          TS       CSMMASS                               #       (1.44 KG OR 0.4 BITS)
028500,000662: 
028501,000663: 24,2762           34674        BESTTRIM          CAF      BIT15                                 #  CHECK FOR SWITCHOVER, SELECT BEST TRIMS
028502,000664: 24,2763           70105                          MASK     FLAGWRD9                              #       FOR NEXT IGNITION (OR REIGNITION)
028503,000665: 24,2764           00006                          EXTEND                                         
028504,000666:                                                                                                 # # Page 652
028505,000667: 24,2765           12767                          BZF      DBARTRIM                              #  PRE-SWITCHOVER
028506,000668: 24,2766           00002                          TC       Q                                     #  POST-SWITCHOVER, SO LEAVE TRIMS AS ARE
028507,000669: 
028508,000670: 24,2767           31621        DBARTRIM          CAE      DELPBAR                               #  UPDATE TRIMS WITH DELP,YBAR
028509,000671: 24,2770           55425                          TS       PACTOFF                               
028510,000672: 24,2771           31623                          CAE      DELYBAR                               
028511,000673: 24,2772           55426                          TS       YACTOFF                               
028512,000674: 24,2773           00002                          TC       Q                                     
028513,000675: 
028514,000676: 24,2774  E6,1466                                 EBANK=   DAPDATR1                              
028515,000677: 24,2774           03121 50066  STEERADS          2CADR    STEERING                              
028516,000678: 24,2776           37703        .6SECT5           OCT      37703                                 
028517,000679: 24,2777           00000        5SECDP            DEC      0          B-14                       #  MAKE DP 5SEC
028518,000680: 24,3000           00764        5SEC              DEC      500        B-14                       
028519,000681: 24,3001           02202        OCT02202          OCT      02202                                 #  BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
028520,000682: 24,3002  E6,1466                                 EBANK=   DAPDATR1                              
028521,000683: 24,3002           02032 36066  TVCON2C           2CADR    TVCDAPON                              
028522,000684: 
028523,000685: 24,3004           00004                 -1       INHINT                                         
028524,000686: 24,3005           43001        TVCZAP            CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRLS, REENGAGE
028525,000687: 24,3006           00006                          EXTEND                                         #       OPTICS DAC
028526,000688: 24,3007           03012                          WAND     CHAN12                                
028527,000689: 24,3010           44712                          CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR....PERMIT
028528,000690: 24,3011           55303                          TS       OPTIND                                #      OPTICS-ZERO BUT NOT OPTICS-DRIVE
028529,000691: 24,3012           34714                          CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
028530,000692: 24,3013           55145                          TS       NVWORD1                               
028531,000693: 24,3014           44700                          CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
028532,000694: 24,3015           70103                          MASK     FLAGWRD7                              
028533,000695: 24,3016           54103                          TS       FLAGWRD7                              
028534,000696: 24,3017           00002                          TC       Q                                     
028535,000697: 24,3020  E6,1466                                 EBANK=   DAPDATR1                              
028536,000698: 24,3020           43020        UPDATEVG          STQ      BON                                   
028537,000699: 24,3021           03730                                   QTEMP1                                
028538,000700: 24,3022           01307                                   XDELVFLG                              
028539,000701: 24,3023           51047                                   CALL40.8                              
028540,000702: 
028541,000703: 24,3024           50135                          SLOAD    BMN                                   
028542,000704: 24,3025           03347                                   NBRCYCLS                              
028543,000705: 24,3026           51053                                   SETUP.9                               
028544,000706: 
028545,000707: 24,3027           53375                          VLOAD    VAD                                   
028546,000708: 24,3030           03351                                   DELVSUM                               
028547,000709: 24,3031           03433                                   DELVREF                               
028548,000710: 24,3032           03357                          STORE    DELVSUMP                              
028549,000711: 24,3033           77776                          EXIT                                           
028550,000712: 24,3034           34712                          CA       ONE                                   
028551,000713: 24,3035           61746                          AD       NBRCYCLS                              
028552,000714: 24,3036           55747                          TS       NBRCYCLP                              
028553,000715:                                                                                                 # # Page 653
028554,000716: 24,3037           05301                          TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
028555,000717: 24,3040           10035                          OCT      10035                                 
028556,000718: 
028557,000719: 24,3041           31747                          CA       NBRCYCLP                              
028558,000720: 24,3042           55746                          TS       NBRCYCLS                              
028559,000721: 24,3043           06006                          TC       INTPRET                               
028560,000722: 24,3044           77775                          VLOAD                                          
028561,000723: 24,3045           03357                                   DELVSUMP                              
028562,000724: 24,3046           03351                          STORE    DELVSUM                               
028563,000725: 
028564,000726: 24,3047           77624        CALL40.8          CALL                                           
028565,000727: 24,3050           34130                                   S40.8                                 
028566,000728: 24,3051           77650                          GOTO                                           
028567,000729: 24,3052           03730                                   QTEMP1                                
028568,000730: 
028569,000731: 24,3053           67214        SETUP.9           BON      SLOAD                                 
028570,000732: 24,3054           01310                                   FIRSTFLG                              
028571,000733: 24,3055           51070                                   SURELY.9                              
028572,000734: 24,3056           03350                                   NBRCYCLP                              
028573,000735: 24,3057           74301                          NORM     VXSC                                  #  (NORM  HANDLES ZERO PROPERLY)
028574,000736: 24,3060           00047                                   X1                                    
028575,000737: 24,3061           03705                                   BDT                                   
028576,000738: 24,3062           53257                          VSR*     VAD                                   
028577,000739: 24,3063           20563                                   0          -14D,1                     
028578,000740: 24,3064           03646                                   VGTEMP                                
028579,000741: 24,3065           77651                          VSU                                            
028580,000742: 24,3066           03351                                   DELVSUM                               
028581,000743: 24,3067           03721                          STORE    VGPREV                                
028582,000744: 24,3070           77776        SURELY.9          EXIT                                           
028583,000745: 24,3071           34676                          CAF      PRIO10                                
028584,000746: 24,3072           05042                          TC       FINDVAC                               
028585,000747: 24,3073  E6,1466                                 EBANK=   DAPDATR1                              
028586,000748: 24,3073           02257 34066                    2CADR    S40.9                                 
028587,000749: 24,3075           05261                          TC       2PHSCHNG                              
028588,000750: 24,3076           00051                          OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
028589,000751: 24,3077           10035                          OCT      10035                                 
028590,000752: 24,3100           06006                          TC       INTPRET                               
028591,000753: 24,3101           77775                          VLOAD                                          
028592,000754: 24,3102           01171                                   RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
028593,000755: 24,3103           27570                          STOVL    RINIT                                 
028594,000756: 24,3104           01177                                   VN                                    #  ACTIVE VEHICLE VELOCITY VECTORY AT T1
028595,000757: 24,3105           17576                          STODL    VINIT                                 
028596,000758: 24,3106           01205                                   PIPTIME                               
028597,000759: 24,3107           03474                          STORE    TNIT                                  
028598,000760: 24,3110           77621                          BDSU                                           
028599,000761: 24,3111           03656                                   TPASS4                                
028600,000762: 24,3112           27423                          STOVL    DELLT4                                
028601,000763: 24,3113           15332                                   HI6ZEROS                              
028602,000764: 24,3114           17351                          STODL    DELVSUM                               
028603,000765:                                                                                                 # # Page 654
028604,000766: 24,3115           15332                                   HI6ZEROS                              
028605,000767: 24,3116           03347                          STORE    NBRCYCLS                              
028606,000768: 24,3117           77650                          GOTO                                           
028607,000769: 24,3120           51047                                   CALL40.8                              
028608,000770: 24,3121  E6,1466                                 EBANK=   DAPDATR1                              
028609,000771: 24,3121           06006        STEERING          TC       INTPRET                               
028610,000772: 24,3122           77624                          CALL                                           
028611,000773: 24,3123           51020                                   UPDATEVG                              
028612,000774: 24,3124           77776                          EXIT                                           
028613,000775: 24,3125           34702                          CAF      BIT9                                  #  CHECK IMPULSW
028614,000776: 24,3126           70076                          MASK     FLAGWRD2                              
028615,000777: 24,3127           10000                          CCS      A                                     
028616,000778: 24,3130           13133                          TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
028617,000779: 24,3131           04574        SERVXT            TC       POSTJUMP                              
028618,000780: 24,3132           77136                          CADR     SERVEXIT                              
028619,000781: 24,3133           34676                          CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
028620,000782: 24,3134           00006                          EXTEND                                         
028621,000783: 24,3135           02011                          RAND     DSALMOUT                              
028622,000784: 24,3136           00006                          EXTEND                                         
028623,000785: 24,3137           13131                          BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
028624,000786: 24,3140           03306                          TCR      E7SETTER                              
028625,000787: 24,3141  E7,1412                                 EBANK=   TIG                                   
028626,000788: 24,3141           00004                          INHINT                                         
028627,000789: 24,3142           00006                          EXTEND                                         
028628,000790: 24,3143           31413                          DCA      TIG                                   
028629,000791: 24,3144           52155                          DXCH     MPAC                                  
028630,000792: 24,3145           00006                          EXTEND                                         
028631,000793: 24,3146           40025                          DCS      TIME2                                 
028632,000794: 24,3147           20155                          DAS      MPAC                                  
028633,000795: 24,3150           07224                          TCR      DPAGREE                               
028634,000796: 24,3151           30155                          CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
028635,000797: 24,3152           10000                          CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
028636,000798: 24,3153           13156                          TCF      +3                                    
028637,000799: 24,3154           13156                          TCF      +2                                    
028638,000800: 24,3155           34714                          CAF      ZERO                                  
028639,000801: 24,3156           64712                          AD       ONE                                   
028640,000802: 24,3157           56001                          XCH      L                                     
028641,000803: 24,3160           34714                          CA       ZERO                                  
028642,000804: 24,3161           53430                          DXCH     TGO                                   
028643,000805: 24,3162           31430                          CA       TGO        +1                         
028644,000806: 24,3163           05140                          TC       WAITLIST                              
028645,000807: 24,3164  E7,1427                                 EBANK=   TGO                                   
028646,000808: 24,3164           02710 50067                    2CADR    ENGINOFF                              
028647,000809: 
028648,000810: 24,3166           05261                          TC       2PHSCHNG                              
028649,000811: 24,3167           40153                          OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
028650,000812: 24,3170           10035                          OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
028651,000813: 24,3171           05447                          TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
028652,000814: 24,3172           00044                          ADRES    IMPULSW                               #  RESTARTS OK
028653,000815:                                                                                                 # # Page 655
028654,000816: 24,3173           13131                          TCF      SERVXT                                
028655,000817: 
028656,000818:                                                                                                 # # Page 656
028657,000819:                                                                                                 #  ROUTINE  **CLOKTASK** DESCRIPTION
028658,000820: 
028659,000821: 
028660,000822: 24,3174  E7,1412                                 EBANK=   TIG                                   
028661,000823: 24,3174           34700        CLOKTASK          CAF      BIT11                                 #  IS TIMRFLAG SET
028662,000824: 24,3175           70103                          MASK     FLAGWRD7                              
028663,000825: 24,3176           10000                          CCS      A                                     
028664,000826: 24,3177           13203                          TCF      CLOCKON                               
028665,000827: 24,3200           05301                          TC       PHASCHNG                              
028666,000828: 24,3201           00006                          OCT      00006                                 #  KILL RESTART
028667,000829: 24,3202           05213                          TC       TASKOVER                              
028668,000830: 
028669,000831: 24,3203           00006        CLOCKON           EXTEND                                         
028670,000832: 24,3204           30025                          DCA      TIME2                                 
028671,000833: 24,3205           53661                          DXCH     TTOGO                                 
028672,000834: 24,3206           00006                          EXTEND                                         
028673,000835: 24,3207           41413                          DCS      TIG                                   
028674,000836: 24,3210           21661                          DAS      TTOGO                                 
028675,000837: 
028676,000838: 24,3211           34734        SETCLOCK          CAF      1SEC                                  
028677,000839: 24,3212           05140                          TC       WAITLIST                              
028678,000840: 24,3213  E7,1412                                 EBANK=   TIG                                   
028679,000841: 24,3213           03174 50067                    2CADR    CLOKTASK                              
028680,000842: 
028681,000843: 24,3215           11145                          CCS      NVWORD1                               
028682,000844: 24,3216           13221                          TCF      +3                                    
028683,000845: 24,3217           13231                          TCF      SETTB6                                
028684,000846: 
028685,000847: 24,3220           13221                          TCF      +1                                    
028686,000848: 24,3221           42347                          CS       V06N85B                               #  CHECK FOR V06N85B (P41)
028687,000849: 24,3222           61145                          AD       NVWORD1                               
028688,000850: 24,3223           00006                          EXTEND                                         
028689,000851: 24,3224           13234                          BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
028690,000852: 
028691,000853: 24,3225           37664                          CAF      PRIO27                                
028692,000854: 24,3226           05027                          TC       NOVAC                                 
028693,000855: 24,3227  E6,1466                                 EBANK=   DAPDATR1                              
028694,000856: 24,3227           03246 50066                    2CADR    CLOCKJOB                              
028695,000857: 24,3231           40025        SETTB6            CS       TIME1                                 #  SET GROUP6 TIMEBASE
028696,000858: 24,3232           55065                          TS       TBASE6                                
028697,000859: 24,3233           15213                          TCF      TASKOVER                              
028698,000860: 
028699,000861: 24,3234           37664        SETUPDYN          CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
028700,000862: 24,3235           05042                          TC       FINDVAC                               
028701,000863: 24,3236  E6,1466                                 EBANK=   DAPDATR1                              
028702,000864: 24,3236           03241 50066                    2CADR    DYNDISP                               
028703,000865: 24,3240           13231                          TCF      SETTB6                                #  CLOSE OUT CLOCKTASK
028704,000866:                                                                                                 # # Page 657
028705,000867: 24,3241           06006        DYNDISP           TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
028706,000868: 24,3242           77624                          CALL                                           #       PRIOR TO BLANKING AND AVEG (V16N85)
028707,000869: 24,3243           50314                                   P40CNV85                              
028708,000870: 24,3244           77776                          EXIT                                           
028709,000871: 24,3245           13256                          TCF      CKNVWRD1                              
028710,000872: 
028711,000873:                                                                                                 # # Page 658
028712,000874:                                                                                                 #  ROUTINE  **CLOCKJOB** DESCRIPTION
028713,000875: 
028714,000876: 
028715,000877: 24,3246  E6,1466                                 EBANK=   DAPDATR1                              
028716,000878: 24,3246           30032        CLOCKJOB          CA       CDUX                                  
028717,000879: 24,3247           54772                          TS       CDUSPOTX                              
028718,000880: 24,3250           30033                          CA       CDUY                                  
028719,000881: 24,3251           54766                          TS       CDUSPOTY                              
028720,000882: 24,3252           30034                          CA       CDUZ                                  
028721,000883: 24,3253           54770                          TS       CDUSPOTZ                              
028722,000884: 24,3254           04555                          TC       BANKCALL                              
028723,000885: 24,3255           47510                          CADR     QUICTRIG                              
028724,000886: 24,3256           00004        CKNVWRD1          INHINT                                         
028725,000887: 24,3257           11145                          CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
028726,000888: 24,3260           13303                          TCF      NOFLASH                               
028727,000889: 24,3261           15112                          TCF      ENDOFJOB                              
028728,000890: 24,3262           13272                          TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
028729,000891: 24,3263           32351        FAILDSP           CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
028730,000892: 24,3264           04555                          TC       BANKCALL                              
028731,000893: 24,3265           20763                          CADR     GOFLASHR                              #  LINUS MAKES IT A REDO,  INHINT OK
028732,000894: 24,3266           13352                          TCF      V97T                                  #  TERMINATE
028733,000895: 24,3267           13405                          TCF      V97P                                  #  PROCEED
028734,000896: 24,3270           13434                          TCF      V97E                                  #  ENTER
028735,000897: 24,3271           13300                          TCF      PASTERET                              
028736,000898: 
028737,000899: 24,3272           32351        ENGREQST          CAF      V06N40                                
028738,000900: 24,3273           04555                          TC       BANKCALL                              
028739,000901: 24,3274           20763                          CADR     GOFLASHR                              #  LINUS MAKES IT A REDO,  INHINT OK
028740,000902: 24,3275           13322                          TCF      V99T                                  #  TERMINATE
028741,000903: 24,3276           13330                          TCF      V99P                                  #  PROCEED
028742,000904: 24,3277           13314                          TCF      V99E                                  #  ENTER
028743,000905: 
028744,000906: 24,3300           32352        PASTERET          CAF      P40OK99                               #  IMMED RETURN - SET UP V99 OR V97
028745,000907: 24,3301           05415                          TCR      LINUS                                 
028746,000908: 24,3302           15112                          TCF      ENDOFJOB                              
028747,000909: 
028748,000910: 
028749,000911: 24,3303           31145        NOFLASH           CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
028750,000912: 24,3304           04555                          TC       BANKCALL                              
028751,000913: 24,3305           20616                          CADR     REGODSP                               
028752,000914: 
028753,000915: 
028754,000916: 24,3306           34753        E7SETTER          CAF      EBANK7                                
028755,000917: 24,3307           54003                          TS       EBANK                                 
028756,000918: 24,3310  E7,1412                                 EBANK=   TIG                                   
028757,000919: 24,3310           00002                          TC       Q                                     
028758,000920: 
028759,000921: 24,3311           34752        E6SETTER          CAF      EBANK6                                #  SET UP EBANK6
028760,000922: 24,3312           54003                          TS       EBANK                                 
028761,000923: 24,3313  E6,1466                                 EBANK=   DAPDATR1                              
028762,000924:                                                                                                 # # Page 659
028763,000925: 24,3313           00002                          TC       Q                                     
028764,000926: 
028765,000927: 24,3314  E6,1466                                 EBANK=   DAPDATR1                              
028766,000928: 24,3314           05261        V99E              TC       2PHSCHNG                              
028767,000929: 24,3315           00006                          OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
028768,000930: 24,3316           05024                          OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
028769,000931: 24,3317           27000                          OCT      27000                                 
028770,000932: 24,3320           03004        V99EJOB           TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
028771,000933: 24,3321           12163                          TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
028772,000934: 
028773,000935: 24,3322  E6,1466                                 EBANK=   DAPDATR1                              
028774,000936: 24,3322           05261        V99T              TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
028775,000937: 24,3323           00006                          OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
028776,000938: 24,3324           05024                          OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
028777,000939: 24,3325           27000                          OCT      27000                                 
028778,000940: 24,3326           03004        V99TJOB           TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
028779,000941: 24,3327           12204                          TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
028780,000942: 
028781,000943: 
028782,000944: 24,3330           00004        V99P              INHINT                                         
028783,000945: 24,3331           30103                          CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
028784,000946: 24,3332           74677                          MASK     BIT12                                 
028785,000947: 24,3333           10000                          CCS      A                                     
028786,000948: 24,3334           13347                          TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
028787,000949: 
028788,000950: 24,3335           34677        ASTNV99P          CAF      BIT12                                 #  SET ASTN FLAG
028789,000951: 24,3336           26103                          ADS      FLAGWRD7                              
028790,000952: 24,3337           30103                          CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
028791,000953: 24,3340           74676                          MASK     BIT13                                 
028792,000954: 24,3341           00006                          EXTEND                                         
028793,000955: 24,3342           13347                          BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
028794,000956: 
028795,000957: 24,3343           34712        ENDV99PI          CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
028796,000958: 24,3344           05140                          TC       WAITLIST                              #  SET UP IGNITION HERE
028797,000959: 24,3345  E6,1466                                 EBANK=   DAPDATR1                              
028798,000960: 24,3345           02554 50066                    2CADR    IGNITION                              
028799,000961: 24,3347           32351        V99P/TIG          CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
028800,000962: 24,3350           55145                          TS       NVWORD1                               
028801,000963: 24,3351           15112        ENDV99P           TCF      ENDOFJOB                              
028802,000964: 
028803,000965: 24,3352  E6,1474                                 EBANK=   CSMMASS                               
028804,000966: 24,3352           05261        V97T              TC       2PHSCHNG                              
028805,000967: 24,3353           00006                          OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
028806,000968: 24,3354           40674                          OCT      40674                                 #  A, 4.67 = V97TTASK (-0 CS), TBASE NOW
028807,000969: 24,3355           34712                          CAF      BIT1                                  
028808,000970: 24,3356           05130                          TC       TWIDDLE                               
028809,000971: 24,3357           03361                          ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
028810,000972: 24,3360           15112                          TCF      ENDOFJOB                              
028811,000973:                                                                                                 # # Page 660
028812,000974: 24,3361  E6,1474                                 EBANK=   CSMMASS                               
028813,000975: 24,3361           34714        V97TTASK          CAF      ZERO                                  #  DISABLE CLOCKJOB
028814,000976: 24,3362           55145                          TS       NVWORD1                               
028815,000977: 24,3363           32363                          CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
028816,000978: 24,3364           61474                          AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
028817,000979: 24,3365           55662                          TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK
028818,000980: 24,3366           05301                          TC       PHASCHNG                              
028819,000981: 24,3367           05014                          OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
028820,000982: 24,3370           77777                          DEC      -0         B-14                       #  -0 CS
028821,000983: 
028822,000984: 24,3371           02741                          TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
028823,000985: 24,3372           05301                          TC       PHASCHNG                              
028824,000986: 24,3373           00714                          OCT      00714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE OLD
028825,000987: 24,3374           05156                          TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
028826,000988: 24,3375           00372                          DEC      250        B-14                       #       OFF (FALSE THRUST-LOSS)
028827,000989: 
028828,000990: 24,3376  E6,1466                                 EBANK=   DAPDATR1                              
028829,000991: 24,3376           04633        V97TRCS           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
028830,000992: 24,3377           42010                          CADR     RCSDAPON                              #       KILL TVCEXEC/TVCROLLDAP STARTS
028831,000993: 24,3400           37664                          CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
028832,000994: 24,3401           05027                          TC       NOVAC                                 #       MAXDB AND GOTOPOOH)
028833,000995: 24,3402  E6,1466                                 EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
028834,000996: 24,3402           03322 50066                    2CADR    V99T                                  
028835,000997: 24,3404           15213        ENDV97T           TCF      TASKOVER                              
028836,000998: 
028837,000999: 
028838,001000: 24,3405  E6,1444                                 EBANK=   V97VCNTR                              
028839,001001: 24,3405           05301        V97P              TC       PHASCHNG                              
028840,001002: 24,3406           40734                          OCT      40734                                 #  A, 4.73 = V97PTASK (-0 CS), TBASE NOW
028841,001003: 24,3407           34712                          CAF      BIT1                                  
028842,001004: 24,3410           05130                          TC       TWIDDLE                               
028843,001005: 24,3411           03413                          ADRES    V97PTASK                              
028844,001006: 24,3412           15112                          TCF      ENDOFJOB                              
028845,001007: 
028846,001008: 24,3413  E6,1444                                 EBANK=   V97VCNTR                              
028847,001009: 24,3413           31444        V97PTASK          CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
028848,001010: 24,3414           55653                          TS       VCNTR                                 #       (ERRORS IF FLASE THRUST-LOSS AND/OR
028849,001011:                                                                                                 #                                                 POOR SYNCH OF MANUAL ENGINE-ON AND
028850,001012:                                                                                                 #                                                 THE VERB 97 PROCEED)
028851,001013: 24,3415           32351                          CAF      V06N40                                #  REDISPLAY V06N40
028852,001014: 24,3416           55145                          TS       NVWORD1                               
028853,001015: 24,3417           05435                          TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
028854,001016: 24,3420           00030                          ADRES    IDLEFAIL                              #       CASE OF UNFAVORABLE S40.8 SYNCH
028855,001017: 24,3421           05435                          TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
028856,001018: 24,3422           00042                          ADRES    STEERSW                               
028857,001019: 24,3423           05301                          TC       PHASCHNG                              
028858,001020: 24,3424           00134                          OCT      00134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE OLD
028859,001021: 24,3425           05156                          TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
028860,001022: 24,3426           00310                          DEC      200        B-14                       
028861,001023:                                                                                                 # # Page 661
028862,001024: 24,3427  0003777                                 EBANK=   WHOCARES                              
028863,001025: 24,3427           05447        R40ENABL          TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
028864,001026: 24,3430           00030                          ADRES    IDLEFAIL                              
028865,001027: 24,3431           05301                          TC       PHASCHNG                              
028866,001028: 24,3432           00004                          OCT      00004                                 #  KILL GROUP 4
028867,001029: 24,3433           15213        ENDV97P           TCF      TASKOVER                              
028868,001030: 
028869,001031: 
028870,001032: 24,3434  0003777                                 EBANK=   WHOCARES                              
028871,001033: 24,3434           05301        V97E              TC       PHASCHNG                              
028872,001034: 24,3435           40534                          OCT      40534                                 #  A, 4.53 = V97ETASK (-0 CS), TBASE NOW
028873,001035: 24,3436           34712                          CAF      BIT1                                  
028874,001036: 24,3437           05140                          TC       WAITLIST                              
028875,001037: 24,3440  E7,1412                                 EBANK=   TIG                                   
028876,001038: 24,3440           03443 50067                    2CADR    V97ETASK                              
028877,001039: 24,3442           15112                          TCF      ENDOFJOB                              
028878,001040: 
028879,001041: 24,3443  E7,1412                                 EBANK=   TIG                                   
028880,001042: 24,3443           44112        V97ETASK          CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
028881,001043: 24,3444           55412                          TS       TIG                                   
028882,001044: 24,3445           32351                          CAF      V06N40                                #  REDISPLAY V06N40
028883,001045: 24,3446           55145                          TS       NVWORD1                               
028884,001046: 24,3447           03311                          TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
028885,001047: 24,3450  E6,1474                                 EBANK=   CSMMASS                               
028886,001048: 24,3450           32363                          CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
028887,001049: 24,3451           61474                          AD       CSMMASS                               #       DETECTION) NOT LOST BECAUSE THRUST
028888,001050: 24,3452           55662                          TS       MASSTMP                               #       FAILED....COPYCYCLE FOR MASSBACK
028889,001051: 24,3453           05301                          TC       PHASCHNG                              
028890,001052: 24,3454           00754                          OCT      00754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
028891,001053: 24,3455           02741        SPSOFF97          TCR      SPSOFF                                
028892,001054: 24,3456           05301                          TC       PHASCHNG                              
028893,001055: 24,3457           00114                          OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
028894,001056: 24,3460           05156                          TC       FIXDELAY                              #  DELAY 2.5 SECONDS  FOR (POSSIBLE) TAIL-
028895,001057: 24,3461           00372                          DEC      250        B-14                       #       OFF (FALSE THRUST-LOSS)
028896,001058: 
028897,001059: 24,3462  E6,1466                                 EBANK=   DAPDATR1                              
028898,001060: 24,3462           34712        V97E40.6          CAF      BIT1                                  
028899,001061: 24,3463           05140                          TC       WAITLIST                              
028900,001062: 24,3464  E6,1447                                 EBANK=   CNTR                                  
028901,001063: 24,3464           02040 40066                    2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
028902,001064: 24,3466           04633                          TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
028903,001065: 24,3467           42010                          CADR     RCSDAPON                              #       KILL TVCEXEC/TVCROLLDAP STARTS.
028904,001066:                                                                                                 #                                                LEAVE NARROW DEADBAND FOR REIGNITE
028905,001067: 24,3470           05261                          TC       2PHSCHNG                              
028906,001068: 24,3471           00026                          OCT      00026                                 #  A, 6.2 = PRE40.6 (-0CS), CLOKTASK (1SEC)
028907,001069: 24,3472           05014                          OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
028908,001070: 24,3473           77777                          DEC      -0         B-14                       #  -0 CS.
028909,001071:                                                                                                 # # Page 662
028910,001072: 24,3474           44761        QUICKIGN          CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
028911,001073: 24,3475           70103                          MASK     FLAGWRD7                              #       IMMEDIATE V99 RESPONSE
028912,001074: 24,3476           64676                          AD       BIT13                                 
028913,001075: 24,3477           54103                          TS       FLAGWRD7                              
028914,001076: 24,3500           05156                          TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6
028915,001077: 24,3501           00036                          DEC      30         B-14                       
028916,001078: 
028917,001079: 24,3502           44702        V99FLASH          CS       BIT9                                  #  CAUSE V99 TO FLASH
028918,001080: 24,3503           55145                          TS       NVWORD1                               
028919,001081: 24,3504           05261                          TC       2PHSCHNG                              
028920,001082: 24,3505           40774                          OCT      40774                                 #  A, 4.77 = TIG-0 (-0CS) TBASE FOR PREPTVC
028921,001083: 24,3506           00033                          OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
028922,001084: 24,3507           34675                          CAF      PRIO20                                #  SET UP TIMEBURN
028923,001085: 24,3510           05042                          TC       FINDVAC                               
028924,001086: 24,3511  E7,1427                                 EBANK=   TGO                                   
028925,001087: 24,3511           02404 34067                    2CADR    S40.13                                
028926,001088: 24,3513           15213        ENDV97E           TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
028927,001089:                                                                                                 #                                                TO FLASHING V99 RESPONSE
028928,001090: 
028929,001091: 
028930,001092:                                                                                                 #  MOD NO2         LOG SECTION  P40-P47
028931,001093:                                                                                                 #  MOD BY   ZELDIN
028932,001094:                                                                                                 #  FUNCTIONAL DESCRIPTION
028933,001095:                                                                                                 #           COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
028934,001096:                                                                                                 #           VECTOR(VGTIG).
028935,001097:                                                                                                 #  CALLING SEQUENCE
028936,001098:                                                                                                 #         L CALL
028937,001099:                                                                                                 #       L+1        S40.1
028938,001100:                                                                                                 #  NORMAL EXIT MODE
028939,001101:                                                                                                 #           AT L+2 OF CALLING SEQUENCE (GOTO L+2)  NORMAL RETURN OR
028940,001102:                                                                                                 #           ERROR RETURN IF NOSOFLAG =1
028941,001103:                                                                                                 #  SUBROUTINES CALLED
028942,001104:                                                                                                 #           CSMPREC
028943,001105:                                                                                                 #           INITVEL
028944,001106:                                                                                                 #           CALCGRAV
028945,001107:                                                                                                 #           MIDGIM
028946,001108:                                                                                                 #  ALARM OR ABORT EXIT MODES
028947,001109:                                                                                                 #       L+2 OF CALLING SEQUENCE,UNSOLVABLE CONIC IF NOSOFLAG=1
028948,001110:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
028949,001111:                                                                                                 #           WEIGHT/G   ANTICIPATED MAG. OF VEHICLE MASS     SP B16KGM
028950,001112:                                                                                                 #           XDELVFLG       1=DELTA-V MANEUVER,0=AIMPT STEER
028951,001113:                                                                                                 #        IF DELTA-V MANEUVER
028952,001114:                                                                                                 #           DELVSIN   SPECIFIED DELTA-V REQUIRED IN
028953,001115:                                                                                                 #                     INERTIAL COORDS. OF ACTIVE VEHICLE
028954,001116:                                                                                                 #                     AT TIME OF IGNITION                 VECTOR B7M/CS
028955,001117:                                                                                                 #           DELVSAB   MAG. OF DELVSIN                     DP     B7M/CS
028956,001118:                                                                                                 #           RTIG       POSITION AT TIME OF IGNITION       VECTOR B29M
028957,001119:                                                                                                 #           VTIG      VELOCITY AT TIME OF IGNITION       VECTOR B7M/CS.
028958,001120:                                                                                                 #           CSTEER = 0             DP
028959,001121:                                                                                                 # # Page 663
028960,001122:                                                                                                 #        IF AIMPOINT STEERING
028961,001123:                                                                                                 #        IF AIMPT STEER
028962,001124:                                                                                                 #           TIG       TIME OF IGNITION                    DP     B28CS
028963,001125:                                                                                                 #           RTARG     POSITION TARGET TIME               VECTOR B29M
028964,001126:                                                                                                 #           CSTEER = ECSTEER(GR 0) DP B1
028965,001127:                                                                                                 #           TPASS4 - TIME OF ARRIVAL AT AIMPOINT
028966,001128:                                                                                                 #  OUTPUT
028967,001129:                                                                                                 #           UT    1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
028968,001130:                                                                                                 #        VGTIG        INITIAL VALUE OF VELOCITY
028969,001131:                                                                                                 #                     TO BE GAINED (INERT. COORD.)        VECTOR B7M/CS
028970,001132:                                                                                                 #        DELVLVC      VGTIG IN LOC. VERT. COORDS.                B7M/CS
028971,001133:                                                                                                 #           F         NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
028972,001134:                                                                                                 #           BDT   V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
028973,001135:                                                                                                 #           -GDT  FOR S40.13                                   VECT  B7M/CS
028974,001136:                                                                                                 #        RTIG         CALC IN S40.1B(AIMPT) FOR S40.2,3   VECTOR B29M
028975,001137:                                                                                                 #                     POSITION AT TIME OF IGNITION
028976,001138:                                                                                                 #  DEBRIS      QTEMP1
028977,001139:                                                                                                 #        MPAC,QPRET
028978,001140:                                                                                                 #        PUSHLIST
028979,001141:                                                                                                 #           RTX2,RTX1
028980,001142: 14,2002                                          BANK     14                                    
028981,001143: 16,2000                                          SETLOC   P40S1                                 
028982,001144: 16,2000                                          BANK                                           
028983,001145: 
028984,001146: 16,2000                                          COUNT    16/S40.1                              
028985,001147: 
028986,001148: 16,2000           77214        S40.1             SET      VLOAD                                 
028987,001149: 16,2001           01070                                   FIRSTFLG                              
028988,001150: 16,2002           11453                                   LO6ZEROS                              
028989,001151: 16,2003           03705                          STORE    BDT                                   
028990,001152: 16,2004           43020                          STQ      BOF                                   
028991,001153: 16,2005           03657                                   QTEMP                                 
028992,001154: 16,2006           01347                                   XDELVFLG                              
028993,001155: 16,2007           34073                                   S40.1B                                #  LAMBERT
028994,001156: 16,2010           77201                          SETPD    VLOAD                                 #  EXTERNAL DELTA V
028995,001157: 16,2011           00001                                   0                                     
028996,001158: 16,2012           03640                                   VTIG                                  
028997,001159: 16,2013           03576                          STORE    VINIT                                 
028998,001160: 16,2014           53435                          VXV      UNIT                                  
028999,001161: 16,2015           03632                                   RTIG                                  
029000,001162: 16,2016           27713                          STOVL    UT                                    #  UP IN UT
029001,001163: 16,2017           03632                                   RTIG                                  
029002,001164: 16,2020           03570                          STORE    RINIT                                 
029003,001165: 16,2021           65236                          VSQ      PDDL                                  
029004,001166: 16,2022           00045                                   36D                                   
029005,001167: 16,2023           56205                          DMP      DDV                                   
029006,001168: 16,2024           34127                                   THETACON                              
029007,001169: 16,2025           41205                          DMP      DMP                                   
029008,001170: 16,2026           03654                                   DELVSAB                               
029009,001171: 16,2027           03076                                   WEIGHT/G                              
029010,001172:                                                                                                 # # Page 664
029011,001173: 16,2030           77671                          DDV                                            
029012,001174: 16,2031           03727                                   F                                     
029013,001175: 16,2032           24017                          STOVL    14D                                   
029014,001176: 16,2033           03646                                   DELVSIN                               
029015,001177: 
029016,001178: 16,2034           74241                          DOT      VXSC                                  
029017,001179: 16,2035           03713                                   UT                                    
029018,001180: 16,2036           03713                                   UT                                    
029019,001181: 16,2037           41552                          VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
029020,001182: 16,2040           65245                          BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
029021,001183: 16,2041           03646                                   DELVSIN                               
029022,001184: 16,2042           00017                                   14D                                   
029023,001185: 16,2043           63356                          SIN      PDVL                                  
029024,001186: 16,2044           00007                                   6D                                    
029025,001187: 16,2045           53435                          VXV      UNIT                                  
029026,001188: 16,2046           03713                                   UT                                    
029027,001189: 16,2047           45561                          VXSC     STADR                                 
029028,001190: 16,2050           50056                          STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
029029,001191: 16,2051           65256                          UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
029030,001192: 16,2052           00017                                   14D                                   
029031,001193: 16,2053           74346                          COS      VXSC                                  
029032,001194: 16,2054           74255                          VAD      VXSC                                  
029033,001195: 16,2055           03721                                   VGTIG                                 
029034,001196: 16,2056           00045                                   36D                                   
029035,001197: 16,2057           53352                          VSL2     VAD                                   
029036,001198: 16,2060           77626                          STADR                                          
029037,001199: 16,2061           74056                          STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7)M/CS
029038,001200: 
029039,001201: 16,2062           77656                          UNIT                                           
029040,001202: 16,2063           27713                          STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
029041,001203: 16,2064           03721                                   VGTIG                                 
029042,001204: 16,2065           43006                          PUSH     SET                                   
029043,001205: 16,2066           01072                                   AVFLAG                                
029044,001206: 16,2067           77624                          CALL                                           
029045,001207: 16,2070           10653                                   MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
029046,001208: 16,2071           77650                          GOTO                                           
029047,001209: 16,2072           03657                                   QTEMP                                 
029048,001210: 16,2073           45345        S40.1B            DLOAD    DSU                                   #  LAMBERT
029049,001211: 16,2074           03413                                   TIG                                   
029050,001212: 16,2075           36001                                   TWODT                                 
029051,001213: 16,2076           14041                          STODL    TDEC1                                 
029052,001214: 16,2077           03656                                   TPASS4                                
029053,001215: 16,2100           77625                          DSU                                            
029054,001216: 16,2101           00041                                   TDEC1                                 
029055,001217: 16,2102           37423                          STCALL   DELLT4                                
029056,001218: 16,2103           61663                                   AGAIN                                 
029057,001219: 16,2104           77775                          VLOAD                                          
029058,001220: 16,2105           03612                                   VIPRIME                               
029059,001221: 16,2106           17713                          STODL    UT                                    
029060,001222: 16,2107           03413                                   TIG                                   
029061,001223:                                                                                                 # # Page 665
029062,001224: 16,2110           00041                          STORE    TDEC1                                 
029063,001225: 16,2111           77621                          BDSU                                           
029064,001226: 16,2112           03656                                   TPASS4                                
029065,001227: 16,2113           37423                          STCALL   DELLT4                                
029066,001228: 16,2114           61663                                   AGAIN                                 
029067,001229: 16,2115           41575                          VLOAD    PUSH                                  
029068,001230: 16,2116           03646                                   DELVEET3                              
029069,001231: 16,2117           03721                          STORE    VGTIG                                 
029070,001232: 16,2120           45014                          SET      CALL                                  
029071,001233: 16,2121           01072                                   AVFLAG                                
029072,001234: 16,2122           10653                                   MIDGIM                                
029073,001235: 16,2123           52001                          SETPD    GOTO                                  
029074,001236: 16,2124           00001                                   0                                     
029075,001237: 16,2125           61716                                   CALCUT                                
029076,001238: 
029077,001239: 16,2126           00024 13714  THETACON          2DEC     .31830989  B-8                        
029078,001240: 30,2000                                          SETLOC   P40S3                                 
029079,001241: 30,2000                                          BANK                                           
029080,001242: 
029081,001243: 30,3657                                          COUNT    24/S40.1                              
029082,001244: 
029083,001245: 30,3657           04000 00000  EP4(45)H          2DEC     .125                                  
029084,001246: 30,3661           00707 03434  EP4(10)H          2DEC     .027777777                            
029085,001247: 
029086,001248: 30,3663           45020        AGAIN             STQ      CALL                                  
029087,001249: 30,3664           03730                                   QTEMP1                                
029088,001250: 30,3665           27022                                   THISPREC                              
029089,001251: 30,3666           66134                          SXA,2    SXA,1                                 
029090,001252: 30,3667           03746                                   RTX2                                  
029091,001253: 30,3670           03745                                   RTX1                                  
029092,001254: 30,3671           77775                          VLOAD                                          
029093,001255: 30,3672           00001                                   RATT                                  
029094,001256: 30,3673           03632                          STORE    RTIG                                  
029095,001257: 30,3674           27570                          STOVL    RINIT                                 
029096,001258: 30,3675           00007                                   VATT                                  
029097,001259: 30,3676           03640                          STORE    VTIG                                  
029098,001260: 30,3677           03576                          STORE    VINIT                                 
029099,001261: 30,3700           67201                          SETPD    SLOAD                                 
029100,001262: 30,3701           00001                                   0                                     
029101,001263: 30,3702           15332                                   HI6ZEROS                              
029102,001264: 30,3703           43125                          PDDL     BON                                   
029103,001265: 30,3704           21660                                   EP4(45)H                              
029104,001266: 30,3705           03705                                   NORMSW                                
029105,001267: 30,3706           61711                                   +3                                    
029106,001268: 30,3707           77745                          DLOAD                                          
029107,001269: 30,3710           21662                                   EP4(10)H                              
029108,001270: 30,3711           45006                          PUSH     CALL                                  
029109,001271: 30,3712           22000                                   INITVEL                               
029110,001272:                                                                                                 # # Page 666
029111,001273: 30,3713           52001                          SETPD    GOTO                                  
029112,001274: 30,3714           00001                                   0                                     
029113,001275: 30,3715           03730                                   QTEMP1                                
029114,001276: 30,3716           45175        CALCUT            VLOAD    CALL                                  
029115,001277: 30,3717           03632                                   RTIG                                  
029116,001278: 30,3720           77260                                   CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7)M/CS
029117,001279: 30,3721           70372                          VSL1     V/SC                                  
029118,001280: 30,3722           21761                                   200CS                                 #  G AT 2(-5) M/CS.CS
029119,001281: 30,3723           52315                          PDVL     VSU                                   
029120,001282: 30,3724           03612                                   VIPRIME                               
029121,001283: 30,3725           03713                                   UT                                    
029122,001284: 30,3726           52341                          V/SC     VSU                                   
029123,001285: 30,3727           21761                                   200CS                                 
029124,001286: 30,3730           72561                          VXSC     VSL2                                  
029125,001287: 30,3731           03703                                   CSTEER                                
029126,001288: 30,3732           24015                          STOVL    12D                                   #  B.C SCALED AT 2(-15) PDL 12D
029127,001289: 30,3733           03721                                   VGTIG                                 
029128,001290: 30,3734           41456                          UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
029129,001291: 
029130,001292: 30,3735           74241                          DOT      VXSC                                  
029131,001293: 30,3736           00015                                   12D                                   
029132,001294: 30,3737           00001                                   0                                     
029133,001295: 30,3740           51352                          VSL2     BVSU                                  
029134,001296: 30,3741           00015                                   12D                                   
029135,001297: 30,3742           14015                          STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
029136,001298: 30,3743           03727                                   F                                     
029137,001299: 30,3744           56261                          SRR      DDV                                   
029138,001300: 30,3745           21605                                   4                                     
029139,001301: 30,3746           03076                                   WEIGHT/G                              
029140,001302: 30,3747           63316                          DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
029141,001303: 30,3750           00015                                   12D                                   
029142,001304: 30,3751           77636                          VSQ                                            
029143,001305: 30,3752           75421                          BDSU     SQRT                                  
029144,001306: 30,3753           76561                          VXSC     VSL1                                  
029145,001307: 30,3754           53455                          VAD      UNIT                                  
029146,001308: 30,3755           00015                                   12D                                   
029147,001309: 30,3756           37713                          STCALL   UT                                    
029148,001310: 30,3757           03657                                   QTEMP                                 
029149,001311: 30,3760           01440 00000  200CS             2DEC     200        B-12                       
029150,001312: 
029151,001313:                                                                                                 # # Page 667
029152,001314:                                                                                                 #  PROGRAM DESCRIPTION S40.2,3  DATE 15,NOV,66
029153,001315:                                                                                                 #  MOD NO 2        LOG SECTION P40-P47
029154,001316:                                                                                                 #  MOD BY ZELDIN
029155,001317:                                                                                                 #  FUNCTIONAL DESCRIPTION
029156,001318:                                                                                                 #           COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
029157,001319:                                                                                                 #           ORIENTATION, WINGS LEVEL SPACECRAFT,HEADS UP
029158,001320:                                                                                                 #           COMPUTE X AXIS OF ENGINE BELL
029159,001321:                                                                                                 #           COMPUTE PREFERRED IMU ORIENTATION(XSCREF)
029160,001322:                                                                                                 #           FOR THIS CALCULATION,ASSUME X AXIS OF SC ALONG UT INITIALLY,
029161,001323:                                                                                                 #           YSC=UNIT(XXR),ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
029162,001324:                                                                                                 #           NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
029163,001325:                                                                                                 #           COORDS. WILL BE PREFERRED IMU ORIENTATION.
029164,001326:                                                                                                 #           COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
029165,001327:                                                                                                 #  CALLING SEQUENCE
029166,001328:                                                                                                 #         L CALL
029167,001329:                                                                                                 #        L+1 S40.2,3
029168,001330:                                                                                                 #  NORMAL EXIT MODE
029169,001331:                                                                                                 #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
029170,001332:                                                                                                 #  SUBROUTINES CALLED
029171,001333:                                                                                                 #           CALCGA
029172,001334:                                                                                                 #  ALARM OR ABORT MODES
029173,001335:                                                                                                 #           NONE
029174,001336:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
029175,001337:                                                                                                 #           PACTOFF      TOTAL PITCH TRIM ANGLE     SP  AT 1.0795111 REV.
029176,001338:                                                                                                 #           YACTOFF      TOTAL YAW   TRIM ANGLE     SP  AT 1.0795111 REV.
029177,001339:                                                                                                 #           UT           DESIRED THRUST DIRECTION          VECT.B2M/(CS.CS)
029178,001340:                                                                                                 #           RTIG         POSITION AT TIME OF IGNITION      VECT.    B29M
029179,001341:                                                                                                 #           ENG2FLAG     ON=RCS  OFF=SPS
029180,001342:                                                                                                 #  OUTPUT
029181,001343:                                                                                                 #           SCAXIS       UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR B1
029182,001344:                                                                                                 #           XSCREF       UNIT VECTORS ALIGNED WITH PREFERRED IMU     B1
029183,001345:                                                                                                 #           YSCREF
029184,001346:                                                                                                 #           ZSCREF
029185,001347:                                                                                                 #           GIMBAL ANGLES IN THETAD
029186,001348:                                                                                                 #           POINTVSM     UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
029187,001349:                                                                                                 #  DEBRIS
029188,001350:                                                                                                 #           PUSHLIST,QPRET,MPAC
029189,001351:                                                                                                 #           QTEMP  TEMP. ERASABLE
029190,001352: 24,3514                                          BANK     24                                    
029191,001353: 24,2000                                          SETLOC   P40S                                  
029192,001354: 24,2000                                          BANK                                           
029193,001355: 24,3514                                          COUNT*   $$/S40.2                              
029194,001356: 24,3514           64375        S40.2,3           VLOAD    MXV                                   
029195,001357: 24,3515           03713                                   UT                                    
029196,001358: 24,3516           01736                                   REFSMMAT                              
029197,001359: 24,3517           44172                          VSL1     STQ                                   
029198,001360: 24,3520           03657                                   QTEMP                                 
029199,001361: 24,3521           03357                          STORE    POINTVSM                              #  THRUST IN SM AT 2
029200,001362: 24,3522           43001                          SETPD    BON                                   
029201,001363: 24,3523           00001                                   0                                     
029202,001364:                                                                                                 # # Page 668
029203,001365: 24,3524           00704                                   ENG2FLAG                              
029204,001366: 24,3525           51635                                   S40.2,3B                              
029205,001367: 24,3526           77745                          DLOAD                                          
029206,001368: 24,3527           15332                                   HI6ZEROS                              
029207,001369: 24,3530           67206                          PUSH     SLOAD                                 #  ZERO PDL 0
029208,001370: 24,3531           03027                                   YACTOFF                               
029209,001371: 24,3532           72405                          DMP      SL1                                   
029210,001372: 24,3533           11674                                   TRIMSCAL                              
029211,001373: 24,3534           41415                          DAD      PUSH                                  
029212,001374: 24,3535           11676                                   YBIAS                                 
029213,001375: 24,3536           65346                          COS      PDDL                                  #  COS(Y +Y0) PDL 2
029214,001376: 24,3537           41556                          SIN      PUSH                                  #  CIN(Y +Y0) PDL 4
029215,001377: 24,3540           77735                          SLOAD                                          
029216,001378: 24,3541           03026                                   PACTOFF                               
029217,001379: 24,3542           72405                          DMP      SL1                                   
029218,001380: 24,3543           11674                                   TRIMSCAL                              
029219,001381: 24,3544           41415                          DAD      PUSH                                  
029220,001382: 24,3545           11700                                   PBIAS                                 
029221,001383: 24,3546           65346                          COS      PDDL                                  #  COS(P +P0) PDL 6
029222,001384: 24,3547           41556                          SIN      PUSH                                  #  SIN(P +P0) PDL 8D
029223,001385: 24,3550           14323                          STODL    ZSCREF                                #  SIN(P +P0)
029224,001386: 24,3551           00007                                   6                                     
029225,001387: 24,3552           72405                          DMP      SL1                                   
029226,001388: 24,3553           00005                                   4                                     
029227,001389: 24,3554           65276                          DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
029228,001390: 24,3555           00007                                   6                                     
029229,001391: 24,3556           72405                          DMP      SL1                                   
029230,001392: 24,3557           00003                                   2                                     
029231,001393: 24,3560           77666                          VDEF                                           
029232,001394: 
029233,001395: 24,3561           14307                          STODL    XSCREF                                #   PD POINTER AT 6 NEW SC X AXIS SCALED AT 
029234,001396: 24,3562           00323                                   ZSCREF                                
029235,001397: 24,3563           72405                          DMP      SL1                                   
029236,001398: 24,3564           00005                                   4                                     
029237,001399: 24,3565           41325                          PDDL     DMP                                   
029238,001400: 24,3566           00323                                   ZSCREF                                
029239,001401: 24,3567           00003                                   2                                     
029240,001402: 24,3570           57552                          SL1      DCOMP                                 
029241,001403: 24,3571           77666                          VDEF                                           
029242,001404: 
029243,001405: 24,3572           14323                          STODL    ZSCREF                                #  PD POINTER AT 4 NEW SCZ AXIS SCALED AT 2
029244,001406: 24,3573           77666                          VDEF                                           
029245,001407: 
029246,001408: 24,3574           14315                          STODL    YSCREF                                #  PD POINTER AT0 NEW SC Y AXIS SCALED AT 2
029247,001409: 24,3575           00323                                   ZSCREF                                
029248,001410: 24,3576           65325                          PDDL     PDDL                                  
029249,001411: 24,3577           00315                                   YSCREF                                
029250,001412: 24,3600           00307                                   XSCREF                                
029251,001413: 24,3601           77666                          VDEF                                           
029252,001414:                                                                                                 # # Page 669
029253,001415: 24,3602           27351                          STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
029254,001416: 24,3603           03713                                   UT                                    
029255,001417: 24,3604           53515                          PDVL     UNIT                                  
029256,001418: 24,3605           03632                                   RTIG                                  
029257,001419: 24,3606           57435                          VXV      VCOMP                                 
029258,001420: 24,3607           00001                                   0                                     
029259,001421: 24,3610           41456                          UNIT     PUSH                                  
029260,001422: 24,3611           77624                          CALL                                           
029261,001423: 24,3612           51654                                   TSTRXUT                               
029262,001424: 24,3613           57435                          VXV      VCOMP                                 
029263,001425: 24,3614           00001                                   0                                     
029264,001426: 24,3615           63372                          VSL1     PDVL                                  #  2 RF/SC  IN PDL  12D
029265,001427: 24,3616           00307                                   XSCREF                                
029266,001428: 24,3617           76505                          VXM      VSL1                                  
029267,001429: 24,3620           00001                                   0                                     
029268,001430: 24,3621           24307                          STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
029269,001431: 24,3622           00315                                   YSCREF                                
029270,001432: 24,3623           76505                          VXM      VSL1                                  
029271,001433: 24,3624           00001                                   0                                     
029272,001434: 24,3625           24315                          STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
029273,001435: 24,3626           00323                                   ZSCREF                                
029274,001436: 24,3627           76505                          VXM      VSL1                                  
029275,001437: 24,3630           00001                                   0                                     
029276,001438: 24,3631           00323                          STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
029277,001439: 24,3632           52001                          SETPD    GOTO                                  
029278,001440: 24,3633           00001                                   0                                     
029279,001441: 24,3634           03657                                   QTEMP                                 
029280,001442: 24,3635           77775        S40.2,3B          VLOAD                                          
029281,001443: 24,3636           15330                                   UNITX                                 
029282,001444: 24,3637           27351                          STOVL    SCAXIS                                
029283,001445: 24,3640           03713                                   UT                                    
029284,001446: 24,3641           00307                          STORE    XSCREF                                
029285,001447: 24,3642           53435                          VXV      UNIT                                  
029286,001448: 24,3643           03632                                   RTIG                                  
029287,001449: 24,3644           34007                          STCALL   6D                                    
029288,001450: 24,3645           51654                                   TSTRXUT                               
029289,001451: 24,3646           00315                          STORE    YSCREF                                
029290,001452: 24,3647           57435                          VXV      VCOMP                                 
029291,001453: 24,3650           00307                                   XSCREF                                
029292,001454: 24,3651           77772                          VSL1                                           
029293,001455: 24,3652           34323                          STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
029294,001456: 24,3653           03657                                   QTEMP                                 
029295,001457: 24,3654           46145        TSTRXUT           DLOAD    BHIZ                                  
029296,001458: 24,3655           00045                                   36D                                   
029297,001459: 24,3656           51661                                   BADVCTOR                              
029298,001460: 24,3657           43575                          VLOAD    RVQ                                   
029299,001461: 24,3660           00007                                   6D                                    
029300,001462: 24,3661           53575        BADVCTOR          VLOAD    UNIT                                  
029301,001463: 24,3662           03632                                   RTIG                                  
029302,001464: 24,3663           53515                          PDVL     UNIT                                  
029303,001465:                                                                                                 # # Page 670
029304,001466: 24,3664           03640                                   VTIG                                  
029305,001467: 24,3665           53322                          VSR3     VAD                                   
029306,001468: 24,3666           53435                          VXV      UNIT                                  
029307,001469: 24,3667           03713                                   UT                                    
029308,001470: 24,3670           77676                          VCOMP                                          
029309,001471: 24,3671           00007                          STORE    6D                                    
029310,001472: 24,3672           77616                          RVQ                                            
029311,001473: 24,3673           21215 12215  TRIMSCAL          2DEC     1.07975111 B-1                        
029312,001474: 24,3675           00053 07423  YBIAS             2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
029313,001475: 24,3677           77636 44653  PBIAS             2DEC     -.00597222222                            #  PITCH  MECH BIAS (-2.15 DEG, THRUST ON)
029314,001476:                                                                                                 #                                           REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
029315,001477:                                                                                                 #  PROGRAM DESCRIPTION S41.1  DATE 8DEC66
029316,001478:                                                                                                 #  MOD NO1   LOG SECTION P40-P47
029317,001479:                                                                                                 #  MOD BY ZELDIN
029318,001480:                                                                                                 #  FUNCTIONAL DESCRIPTION
029319,001481:                                                                                                 #           COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
029320,001482:                                                                                                 #           TO CONTROL COORDS.
029321,001483:                                                                                                 #  CALLING SEQUENCE
029322,001484:                                                                                                 #       L   CALL
029323,001485:                                                                                                 #       L+1        S41.1
029324,001486:                                                                                                 #  NORMAL EXIT MODE
029325,001487:                                                                                                 #           AT L +2 OF CALLING SEQUENCE
029326,001488:                                                                                                 #  SUBROUTINES CALLED:
029327,001489:                                                                                                 #           CALCSMSC
029328,001490:                                                                                                 #           CDUTRIG
029329,001491:                                                                                                 #  ALARM OR ABORT MODES
029330,001492:                                                                                                 #           NONE
029331,001493:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
029332,001494:                                                                                                 #           VG IN REF. COORD. PDL L POINTER AT L+5 .S41.1 WILL RETURN WITH
029333,001495:                                                                                                 #           POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
029334,001496:                                                                                                 #  OUTPUT
029335,001497:                                                                                                 #           MPAC CONTAINS VG IN CONTROL COORDS           VECT. B7M/CS
029336,001498:                                                                                                 #  DEBRIS:
029337,001499:                                                                                                 #         QTEMP    TEMP ERASABLE
029338,001500:                                                                                                 #         QPRET
029339,001501: 24,3701                                          COUNT    22/S41.1                              
029340,001502: 
029341,001503: 22,2000                                          SETLOC   P40S5                                 
029342,001504: 22,2000                                          BANK                                           
029343,001505: 
029344,001506: 22,3426           45020        S41.1             STQ      CALL                                  
029345,001507: 22,3427           03657                                   QTEMP                                 
029346,001508: 22,3430           47432                                   CDUTRIG                               
029347,001509: 22,3431           77775                          VLOAD                                          
029348,001510: 22,3432           45121                          MXV      CALL                                  
029349,001511: 22,3433           01736                                   REFSMMAT                              
029350,001512: 22,3434           47577                                   *SMNB*                                
029351,001513:                                                                                                 # # Page 671
029352,001514: 22,3435           74321                          MXV      VXSC                                  
029353,001515: 22,3436           05004                                   QUADROT                               
029354,001516: 22,3437           05443                                   TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
029355,001517: 22,3440           52072                          VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
029356,001518: 22,3441           03657                                   QTEMP                                 
029357,001519: 22,3442           24000 00000  TENBNK14          2DEC     10.        B-4                        
029358,001520: 
029359,001521:                                                                                                 # # Page 672
029360,001522:                                                                                                 #  NAME        S40.8 - CROSS PRODUCT STEERING
029361,001523:                                                                                                 #  FUNCTION    (1) UPDATES TEH VELOCITY-TO-BE-GAINED VECTOR.
029362,001524:                                                                                                 #              (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
029363,001525:                                                                                                 #              (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
029364,001526:                                                                                                 #              (4) INITIATES THRUST-FAIL ROUTINE, R40
029365,001527:                                                                                                 #  CALLING SEQ CALL S40.6
029366,001528:                                                                                                 #  INPUT       VGPREV  - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
029367,001529:                                                                                                 #                        PRIOR TO UPDATING IN METERS/CS AT +7.
029368,001530:                                                                                                 #              DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT
029369,001531:                                                                                                 #                        IN METERS/CS AT +7.
029370,001532:                                                                                                 #              BDT     - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
029371,001533:                                                                                                 #                        GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
029372,001534:                                                                                                 #                        METERS/CS AT +7.
029373,001535:                                                                                                 #              CSTEER  - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
029374,001536:                                                                                                 #                        SPS AIMPOINT STEERING MANEUVERS
029375,001537:                                                                                                 #              IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
029376,001538:                                                                                                 #              STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
029377,001539:                                                                                                 #              REFSMMAT, DAPDATR1, PIPTIME
029378,001540:                                                                                                 #              EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
029379,001541:                                                                                                 #  OUTPUT      TTOGO   - TIME REMAINING FOR ENGINE BURN IN CS AT +28
029380,001542:                                                                                                 #              OMEGAC  - DP VECTOR RATE COMMAND, SC.AT  1/(2TVCDT) REVS/SEC
029381,001543:                                                                                                 #              VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
029382,001544:                                                                                                 #              STEERSW, IMPULSW, NVWORD1
029383,001545:                                                                                                 #              REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
029384,001546:                                                                                                 #  DEBRIS      OMEGAXC,+1
029385,001547:                                                                                                 #  SUBROUTINES USED    - *SMNB* , ALARM
029386,001548: 
029387,001549: 16,2000                                          SETLOC   P40S1                                 
029388,001550: 16,2000                                          BANK                                           
029389,001551: 16,2130  E6,1466                                 EBANK=   DAPDATR1                              
029390,001552: 16,2130                                          COUNT    16/S40.8                              
029391,001553: 
029392,001554: 16,2130           44001        S40.8             SETPD    STQ                                   
029393,001555: 16,2131           00001        SPBIT1                     00D                                   
029394,001556: 16,2132           03657                                   QTEMP                                 
029395,001557: 16,2133           51375                          VLOAD    BVSU                                  #       CONSTRUCT DELVG, SC.AT B+7  M/CS
029396,001558: 16,2134           03433                                   DELVREF                               
029397,001559: 16,2135           03705                                   BDT                                   
029398,001560: 16,2136           77655                          VAD                                            
029399,001561: 16,2137           03721                                   VGPREV                                
029400,001562: 16,2140           03460                          STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7  M/CS
029401,001563: 
029402,001564: 16,2141           77646                          ABVAL                                          
029403,001565: 16,2142           03654                          STORE    VGDISP                                #  FOR DISPLAY PURPOSES
029404,001566: 16,2143           77776                          EXIT                                           
029405,001567: 16,2144           05301                          TC       PHASCHNG                              
029406,001568: 16,2145           10035                          OCT      10035                                 #  TYPE B  RESTART BELOW AND 5.3 REREADAC
029407,001569: 
029408,001570: 16,2146           06006                          TC       INTPRET                               
029409,001571: 16,2147           77775                          VLOAD                                          
029410,001572:                                                                                                 # # Page 673
029411,001573: 16,2150           03460                                   VG                                    
029412,001574: 16,2151           03721                          STORE    VGPREV                                
029413,001575: 16,2152           77214                          BOFF     VLOAD                                 
029414,001576: 16,2153           01344                                   STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
029415,001577: 16,2154           03657                                   QTEMP                                 
029416,001578: 16,2155           03433                                   DELVREF                               
029417,001579: 16,2156           41446                          ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
029418,001580: 16,2157           41335                          SLOAD    DMP                                   
029419,001581: 16,2160           01354                                   DVTHRESH                              #  SC.AT B-2 M/CS
029420,001582: 16,2161           36011                                   DPB-9                                 
029421,001583: 16,2162           77621                          BDSU                                           
029422,001584: 16,2163           77440                          BMN      EXIT                                  
029423,001585: 16,2164           40021                                   LOTHRUST                              
029424,001586: 16,2165           31466                          CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
029425,001587: 16,2166           74675                          MASK     BIT14                                 
029426,001588: 16,2167           10000                          CCS      A                                     
029427,001589: 16,2170           34712                          CAF      BIT1                                  
029428,001590: 16,2171           50000                          INDEX    A                                     #  LM-OFF, LM-ON VALUE
029429,001591: 16,2172           31423                          CAE      EREPFRAC                              
029430,001592: 16,2173           55652                          TS       REPFRAC                               
029431,001593: 
029432,001594: 16,2174           06006                          TC       INTPRET                               
029433,001595: 16,2175           51375        TGOCALC           VLOAD    BVSU                                  #  GET DELVG
029434,001596: 16,2176           03433                                   DELVREF                               
029435,001597: 16,2177           03705                                   BDT                                   
029436,001598: 16,2200           77656                          UNIT                                           
029437,001599: 16,2201           41441                          DOT      PUSH                                  #  (00D)
029438,001600: 16,2202           03460                                   VG                                    
029439,001601: 16,2203           56244                          BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
029440,001602: 16,2204           40013                                   INCRSVG                               #       DISPLAY ALARM IF NOT
029441,001603: 16,2205           36005                                   2VEXHUST                              
029442,001604: 16,2206           41215                          DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
029443,001605: 16,2207           11451                                   LODPHALF                              
029444,001606: 16,2210           70501                          NORM     SR1                                   
029445,001607: 16,2211           00047                                   X1                                    
029446,001608: 16,2212           60325                          PDDL     NORM                                  
029447,001609: 16,2213           00045                                   36D                                   #  (MAG DELVG)
029448,001610: 16,2214           00050                                   X2                                    
029449,001611: 16,2215           77665                          BDDV                                           
029450,001612: 16,2216           53664                          XSU,2    SL*                                   
029451,001613: 16,2217           00046                                   X1                                    
029452,001614: 16,2220           57607                                   0          -9D,2                      
029453,001615: 16,2221           41405                          DMP      PUSH                                  #  (00D)
029454,001616: 16,2222           36003                                   -FOURDT                               
029455,001617: 16,2223           54335                          SLOAD    SR                                    
029456,001618: 16,2224           03016                                   ETDECAY                               #  ETDECAY SC.AT B+14 CS
029457,001619: 16,2225           20617                                   14D                                   
029458,001620: 16,2226           45421                          BDSU     STADR                                 
029459,001621: 16,2227           74347                          STORE    TGO                                   #  TIME TO GO IN CS. AT +28
029460,001622: 16,2230           77615                          DAD                                            
029461,001623:                                                                                                 # # Page 674
029462,001624: 16,2231           01205                                   PIPTIME                               
029463,001625: 16,2232           17413                          STODL    TIG                                   
029464,001626: 16,2233           03430                                   TGO                                   
029465,001627: 16,2234           50025                          DSU      BMN                                   
029466,001628: 16,2235           36007                                   FOURSEC                               
029467,001629: 16,2236           40000                                   S40.81                                
029468,001630: 
029469,001631: 16,2237           74375        XPRODUCT          VLOAD    VXSC                                  
029470,001632: 16,2240           03705                                   BDT                                   
029471,001633: 16,2241           03703                                   CSTEER                                
029472,001634: 16,2242           52352                          VSL2     VSU                                   
029473,001635: 16,2243           03433                                   DELVREF                               
029474,001636: 16,2244           63256                          UNIT     PDVL                                  
029475,001637: 16,2245           03460                                   VG                                    
029476,001638: 16,2246           47256                          UNIT     VXV                                   
029477,001639: 16,2247           45121                          MXV      CALL                                  
029478,001640: 16,2250           01736                                   REFSMMAT                              #  (REFSMMAT/2)
029479,001641: 16,2251           47577                                   *SMNB*                                
029480,001642: 16,2252           77761                          VXSC                                           
029481,001643: 16,2253           03245                                   KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
029482,001644: 16,2254           03126        OMEGACLC          STORE    OMEGAC                                
029483,001645: 16,2255           77650                          GOTO                                           
029484,001646: 16,2256           03657                                   QTEMP                                 
029485,001647: 
029486,001648: 17,2000                                          SETLOC   DAPS7                                 
029487,001649: 17,2000                                          BANK                                           
029488,001650: 17,2000                                          COUNT    17/S40.8                              
029489,001651: 
029490,001652: 17,2000           00000 00310  TWODT             2DEC     200.0      B-28                       #  2 SEC
029491,001653: 17,2002           77715 77777  -FOURDT           2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
029492,001654: 17,2004           17602 25124  2VEXHUST          2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
029493,001655: 17,2006           00000 00620  FOURSEC           2DEC     400.0      B-28                       #  4 SEC
029494,001656: 17,2010           00040 00000  DPB-9             2DEC     1          B-9                        
029495,001657: 20,2000                                          SETLOC   DAPS6                                 
029496,001658: 20,2000                                          BANK                                           
029497,001659: 
029498,001660: 20,2000                                          COUNT    20/S40.8                              
029499,001661: 
029500,001662: 20,2000           77214        S40.81            SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
029501,001663: 20,2001           01066                                   IMPULSW                               #  FOR ENGINE-OFF CALL
029502,001664: 20,2002           15332                                   HI6ZEROS                              
029503,001665: 20,2003           03126        RATEZRO           STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
029504,001666: 20,2004           77776                          EXIT                                           
029505,001667: 20,2005           34672                          CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
029506,001668: 20,2006           55447                          TS       CNTR                                  
029507,001669:                                                                                                 # # Page 675
029508,001670: 20,2007           06006                          TC       INTPRET                               
029509,001671: 20,2010           52014                          CLEAR    GOTO                                  
029510,001672: 20,2011           01264                                   STEERSW                               #  RESTARTS OK
029511,001673: 20,2012           03657                                   QTEMP                                 
029512,001674: 20,2013           77776        INCRSVG           EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
029513,001675: 20,2014           05537                          TC       ALARM                                 #  IN WRONG DIRECTION.
029514,001676: 20,2015           01407                          OCT      01407                                 
029515,001677: 20,2016           06006                          TC       INTPRET                               
029516,001678: 20,2017           77650                          GOTO                                           
029517,001679: 20,2020           03657                                   QTEMP                                 
029518,001680: 
029519,001681: 20,2021           77214        LOTHRUST          BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
029520,001682: 20,2022           00711                                   IDLEFAIL                              #  SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
029521,001683: 20,2023           03657                                   QTEMP                                 #       UNFAVORABLE S40.8 SYNCH
029522,001684: 20,2024           15332                                   HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
029523,001685: 20,2025           03126                          STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
029524,001686: 20,2026           77776                          EXIT                                           
029525,001687: 
029526,001688: 20,2027           44714                          CS       ZERO                                  
029527,001689: 20,2030           55653                          TS       VCNTR                                 #  KILL CSMMASS UPDATING
029528,001690: 20,2031           55663                          TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
029529,001691: 20,2032           55652                          TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
029530,001692: 20,2033           55145                          TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
029531,001693: 
029532,001694: 20,2034           06006                          TC       INTPRET                               
029533,001695: 20,2035           52014                          CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
029534,001696: 20,2036           01264                                   STEERSW                               #       SHUTDOWN IF NOT SET UP AGAIN)
029535,001697: 20,2037           03657                                   QTEMP                                 #  RESTARTS OK
029536,001698: 
029537,001699:                                                                                                 # # Page 676
029538,001700:                                                                                                 #  NAME        S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
029539,001701:                                                                                                 #  FUNCTION    (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
029540,001702:                                                                                                 #              VECTORS FOR USE DURING AIMPOINT MANEUVERS
029541,001703:                                                                                                 #              (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
029542,001704:                                                                                                 #              CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
029543,001705:                                                                                                 #  CALLING SEQ VIA FINDVAC AS NEW JOB.
029544,001706:                                                                                                 #  INPUT       RNIT     - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
029545,001707:                                                                                                 #              VNIT     - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
029546,001708:                                                                                                 #              VRPREV   - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
029547,001709:                                                                                                 #                         METERS/CS AT +7.
029548,001710:                                                                                                 #              NOMTIG     - TIME OF IGN. USED IN TARGETTING ROUTINES%+28"
029549,001711:                                                                                                 #              DELLT4     - TRANSFER TIME FROM PIPTIME TO TARGET%+28"
029550,001712:                                                                                                 #              TNIT       - TIME OF RNIT AND VNIT IN CS AT +28
029551,001713:                                                                                                 #              GDT/2    - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
029552,001714:                                                                                                 #                         ACCERERATION OF GRAVITY IN METERS/CS AT +7.
029553,001715:                                                                                                 #              DELVREF  - CHANGE IN VELOCITY DURING LAST 2 SEC IN
029554,001716:                                                                                                 #                         METERS/CS AT +7.
029555,001717:                                                                                                 #           NORMSW   SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
029556,001718:                                                                                                 #                    165 TO 195 DEGREES
029557,001719:                                                                                                 #                    RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
029558,001720:                                                                                                 #  OUTPUT      VGTEMP   - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
029559,001721:                                                                                                 #              COGA       - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
029560,001722:                                                                                                 #                         OR PREVIOUS PASS THRU S40.9
029561,001723:                                                                                                 #              GOBL/2     -OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
029562,001724:                                                                                                 #              VRPREV   - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
029563,001725:                                                                                                 #              BDT      - B VECTOR IN METERS/CS AT +7.
029564,001726:                                                                                                 #  SUBROUTINES USED  -  INITVEL
029565,001727: 16,2000                                          SETLOC   P40S1                                 
029566,001728: 16,2000                                          BANK                                           
029567,001729: 
029568,001730: 16,2257  E6,1746                                 EBANK=   NBRCYCLS                              
029569,001731: 16,2257                                          COUNT    16/S40.9                              
029570,001732: 
029571,001733: 16,2257           06006        S40.9             TC       INTPRET                               
029572,001734: 16,2260           71201                          SETPD    DLOAD                                 
029573,001735: 16,2261           00001                                   00D                                   
029574,001736: 16,2262           11453                                   LO6ZEROS                              
029575,001737: 16,2263           77725                          PDDL                                           
029576,001738: 16,2264           34401                                   EP4(45)L                              
029577,001739: 16,2265           71214                          BON      DLOAD                                 
029578,001740: 16,2266           03705                                   NORMSW                                
029579,001741: 16,2267           34271                                   +2                                    
029580,001742: 16,2270           34403                                   EP4(10)L                              
029581,001743: 16,2271           77606                          PUSH                                           
029582,001744: 16,2272           45014                          CLEAR    CALL                                  
029583,001745: 16,2273           00675                                   GUESSW                                
029584,001746: 16,2274           22002                                   HAVEGUES                              
029585,001747: 16,2275           77776                          EXIT                                           
029586,001748: 16,2276           05301                          TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
029587,001749: 16,2277           05021                          OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW
029588,001750:                                                                                                 # # Page 677
029589,001751: 16,2300           10000                          OCT      10000                                 
029590,001752: 16,2301           06006                          TC       INTPRET                               
029591,001753: 16,2302           77614        ENDLAMB           BON                                            
029592,001754: 16,2303           01310                                   FIRSTFLG                              
029593,001755: 16,2304           34322                                   FIRSTTME                              
029594,001756: 16,2305           52375                          VLOAD    VSU                                   
029595,001757: 16,2306           03612                                   VIPRIME                               
029596,001758: 16,2307           03466                                   VRPREV                                
029597,001759: 16,2310           45325                          PDDL     DSU                                   
029598,001760: 16,2311           03474                                   TNIT                                  
029599,001761: 16,2312           03476                                   TNITPREV                              
029600,001762: 16,2313           55261                          SL       BDDV                                  
029601,001763: 16,2314           20222                                   17D                                   
029602,001764: 16,2315           34375                                   200CSHI                               
029603,001765: 16,2316           77761                          VXSC                                           
029604,001766: 16,2317           76451                          VSU      VSL1                                  
029605,001767: 16,2320           01207                                   GDT/2                                 
029606,001768: 16,2321           03705                          STORE    BDT                                   
029607,001769: 16,2322           57535        FIRSTTME          SLOAD    DCOMP                                 
029608,001770: 16,2323           03747                                   RTX2                                  
029609,001771: 16,2324           77640                          BMN                                            
029610,001772: 16,2325           34342                                   MOONCASE                              
029611,001773: 16,2326           53575                          VLOAD    UNIT                                  
029612,001774: 16,2327           01171                                   RN                                    
029613,001775: 16,2330           45345                          DLOAD    DSU                                   
029614,001776: 16,2331           01205                                   PIPTIME                               
029615,001777: 16,2332           03450                                   NOMTIG                                
029616,001778: 16,2333           56205                          DMP      DDV                                   
029617,001779: 16,2334           34377                                   EARTHMU                               
029618,001780: 16,2335           00043                                   34D                                   
029619,001781: 16,2336           53361                          VXSC     VAD                                   
029620,001782: 16,2337           01215                                   GOBL/2                                
029621,001783: 16,2340           03646                                   VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
029622,001784: 16,2341           03646                          STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
029623,001785: 16,2342           77776        MOONCASE          EXIT                                           
029624,001786: 16,2343           05301                          TC       PHASCHNG                              
029625,001787: 16,2344           04021                          OCT      04021                                 #  C, JOB BELOW
029626,001788: 
029627,001789: 16,2345           06006        COPY40.9          TC       INTPRET                               
029628,001790: 16,2346           77745                          DLOAD                                          
029629,001791: 16,2347           03474                                   TNIT                                  
029630,001792: 16,2350           27476                          STOVL    TNITPREV                              
029631,001793: 16,2351           03612                                   VIPRIME                               
029632,001794: 16,2352           03466                          STORE    VRPREV                                
029633,001795: 16,2353           77414                          CLEAR    EXIT                                  
029634,001796: 16,2354           01270                                   FIRSTFLG                              
029635,001797: 16,2355           44712                 -2       CS       ONE                                   #  REDO40.9 (RESTART)  ENTRY TO END  S40.9
029636,001798: 16,2356           55746                          TS       NBRCYCLS                              
029637,001799: 16,2357           05301        ENDS40.9          TC       PHASCHNG                              
029638,001800: 16,2360           00001                          OCT      00001                                 
029639,001801:                                                                                                 # # Page 678
029640,001802: 16,2361           15112                          TCF      ENDOFJOB                              
029641,001803: 
029642,001804: 16,2362           06006        REDO40.9          TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
029643,001805: 16,2363           77775                          VLOAD                                          #       TERMINATE S40.9 SO THAT IT CAN BE
029644,001806: 16,2364           11453                                   LO6ZEROS                              #       SET UP WITH LATEST R,V,T NEXT PASS
029645,001807: 16,2365           17351                          STODL    DELVSUM                               #       (TYPE C PHASE POINTS '04021' WILL
029646,001808: 16,2366           11453                                   LO6ZEROS                              #       FORCE NORMAL S40.9 TERMINATIONS,
029647,001809: 16,2367           27347                          STOVL    NBRCYCLS                              #       RATHER THAN LOSE TIME OF BRAND NEW
029648,001810: 16,2370           03721                                   VGPREV                                #       PASS -- QUICK OLD DATA BETTER THAN
029649,001811: 16,2371           03646                          STORE    VGTEMP                                #       NONE) NOW CAN GO THRU SETUP.9
029650,001812: 16,2372           77776                          EXIT                                           #       WITHOUT DISTURBING VGPREV
029651,001813: 16,2373           12355                          TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
029652,001814: 
029653,001815: 16,2374           01440 00000  200CSHI           2DEC     200        B-12                       
029654,001816: 16,2376           55340 61710  EARTHMU           2DEC*    -3.986032  E10        B-36*           
029655,001817: 16,2400           04000 00000  EP4(45)L          2DEC     .125                                  
029656,001818: 16,2402           00707 03434  EP4(10)L          2DEC     .027777777                            
029657,001819: 
029658,001820:                                                                                                 # # Page 679
029659,001821:                                                                                                 #  NAME        S40.13 - TIMEBURN
029660,001822:                                                                                                 #  FUNCTION    (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
029661,001823:                                                                                                 #              BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
029662,001824:                                                                                                 #              TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
029663,001825:                                                                                                 #              (2) THE MAGNITUDE OF THE RESULTING BURN TIME - IF IT IS SHORT -
029664,001826:                                                                                                 #              AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
029665,001827:                                                                                                 #  CALLING SEQ VIA FINDVAC AS A NEW JOB.
029666,001828:                                                                                                 #  INPUT       VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
029667,001829:                                                                                                 #           WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
029668,001830:                                                                                                 #              F - ENGINE THRUST IN M.NEWTONS AT +7
029669,001831:                                                                                                 #              MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
029670,001832:                                                                                                 #                     IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
029671,001833:                                                                                                 #                     REQUIRE MODIFICATION FOR SATURN BURNS.
029672,001834:                                                                                                 #  OUTPUT      IMPULSW - ZERO FOR STEERING
029673,001835:                                                                                                 #                      - ONE FOR ATTITUDE HOLD
029674,001836:                                                                                                 #              TGO - TIME TO BURN IN CENTISECONDS AT +14
029675,001837:                                                                                                 #    THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
029676,001838:                                                                                                 #    (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
029677,001839:                                                                                                 #    (1) M.NEWTON = (10000) NEWTONS
029678,001840: 16,2404  E7,1427                                 EBANK=   TGO                                   
029679,001841: 16,2404                                          COUNT    16/40.13                              
029680,001842: 
029681,001843: 16,2404           06006        S40.13            TC       INTPRET                               
029682,001844: 16,2405           43001                          SETPD    SET                                   
029683,001845: 16,2406           00001                                   00D                                   
029684,001846: 16,2407           01066                                   IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
029685,001847: 16,2410           51575                          VLOAD    ABVAL                                 
029686,001848: 16,2411           03721                                   VGTIG                                 #  VELOCITY TO BE GAINED AT +7
029687,001849: 16,2412           77776                          EXIT                                           
029688,001850: 16,2413           34704                          CAF      BIT7                                  #  TEST +X TRANSLATION
029689,001851: 16,2414           00006                          EXTEND                                         
029690,001852: 16,2415           06031                          RXOR     CHAN31                                
029691,001853: 16,2416           74704                          MASK     BIT7                                  
029692,001854: 16,2417           00006                          EXTEND                                         
029693,001855: 16,2420           12502                          BZF      NOTADDUL                              
029694,001856: 16,2421           06006                          TC       INTPRET                               
029695,001857: 16,2422           56325                          PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
029696,001858: 16,2423           36027                                   S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
029697,001859: 16,2424           03076                                   WEIGHT/G                              #  MASS IN KGMS AT +16
029698,001860: 16,2425           72414                          BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
029699,001861: 16,2426           00700                                   NJETSFLG                              
029700,001862: 16,2427           34430                                   S40.130                               
029701,001863: 16,2430           77621        S40.130           BDSU                                           
029702,001864: 16,2431           56325                          PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
029703,001865: 16,2432           36013                                   K1VAL                                 #  M.NEWTON-CS AT +24
029704,001866: 16,2433           03076                                   WEIGHT/G                              
029705,001867: 16,2434           50021                          BDSU     BMN                                   
029706,001868: 16,2435           00001                                   00D                                   
029707,001869: 16,2436           34461                                   S40.131                               #  TGO LESS THAN 100 CS
029708,001870: 16,2437           41325                          PDDL     DMP                                   #  02D = TEMP1 AT +7
029709,001871:                                                                                                 # # Page 680
029710,001872: 16,2440           36031                                   MDOTLO                                #  MDOT, SC.AT B+3 KG/CS
029711,001873: 16,2441           36023                                   3.5SEC                                #  350 CS AT +14
029712,001874: 16,2442           65221                          BDSU     PDDL                                  
029713,001875: 16,2443           03076                                   WEIGHT/G                              
029714,001876: 16,2444           03727                                   F                                     #  F AT +7
029715,001877: 16,2445           60405                          DMP      SR2                                   
029716,001878: 16,2446           36025                                   5SECOND                               #  500 CS AT +14
029717,001879: 16,2447           41471                          DDV      PUSH                                  #  04D = TEMP2
029718,001880: 16,2450           51021                          BDSU     BPL                                   
029719,001881: 16,2451           00003                                   02D                                   
029720,001882: 16,2452           34475                                   S40.133                               #  TGO GREATER THAN 600 CS
029721,001883: 16,2453           55345                          DLOAD    BDDV                                  
029722,001884: 16,2454           43205                          DMP      DAD                                   
029723,001885: 16,2455           36025                                   5SECOND                               #  500 CS AT +14
029724,001886: 16,2456           36021                                   1SEC2D                                #  100 CS AT +14
029725,001887: 16,2457           77650                          GOTO                                           
029726,001888: 16,2460           34466                                   S40.132                               
029727,001889: 16,2461           41345        S40.131           DLOAD    DMP                                   #  TGO LESS THAN 100 CS
029728,001890: 16,2462           03076                                   WEIGHT/G                              
029729,001891: 16,2463           56215                          DAD      DDV                                   
029730,001892: 16,2464           36015                                   K2VAL                                 #  M.NEWTON-CS AT +24
029731,001893: 16,2465           36017                                   K3VAL                                 #  M.NEWTONS AT +10
029732,001894: 16,2466           77776        S40.132           EXIT                                           
029733,001895: 16,2467  E7,1427                                 EBANK=   TGO                                   
029734,001896: 16,2467           07226                          TC       TPAGREE                               
029735,001897: 16,2470           30154                          CA       MPAC                                  
029736,001898: 16,2471           56001                          XCH      L                                     
029737,001899: 16,2472           34714                          CA       ZERO                                  
029738,001900: 16,2473           53430                          DXCH     TGO                                   #  TGO IN CS AT +28
029739,001901: 16,2474           02477                          TC       S40.134                               
029740,001902: 16,2475           77414        S40.133           CLEAR    EXIT                                  #  WILL STEER VEHICLE
029741,001903: 16,2476           01266                                   IMPULSW                               
029742,001904: 16,2477           05301        S40.134           TC       PHASCHNG                              #  KILL GROUP 3
029743,001905: 16,2500           00003                          OCT      3                                     
029744,001906: 
029745,001907: 16,2501           15112                          TCF      ENDOFJOB                              
029746,001908: 
029747,001909: 
029748,001910: 16,2502           06006        NOTADDUL          TC       INTPRET                               
029749,001911: 16,2503           77650                          GOTO                                           
029750,001912: 16,2504           34431                                   S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
029751,001913: 17,2000                                          SETLOC   DAPS7                                 
029752,001914: 17,2000                                          BANK                                           
029753,001915: 
029754,001916: 17,2012                                          COUNT    17/40.13                              
029755,001917: 
029756,001918: 17,2012           00001 27221  K1VAL             2DEC     884.52887  B-23                       #  19885 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
029757,001919: 17,2014           00000 22244  K2VAL             2DEC     293.137805 B-23                       #   6590 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
029758,001920:                                                                                                 # # Page 681
029759,001921: 17,2016           00570 33235  K3VAL             2DEC     11.7766668 B-9                        #  26475 LBS, SC.AT B+9 NEWTONS/E+4
029760,001922: 17,2020           00144 00000  1SEC2D            2DEC     100.0      B-14                       #  100.0 CS AT +14
029761,001923: 17,2022           01274 00000  3.5SEC            2DEC     350.0      B-13                       #  350 CS AT +13
029762,001924: 17,2024           00764 00000  5SECOND           2DEC     500.0      B-14                       #  500.0 CS AT +14
029763,001925: 17,2026           00000 04263  S40.135           2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
029764,001926:                                                                                                 #                                                7.96(199.6)COS(10)  LB-SEC,  SC.AT
029765,001927:                                                                                                 #                                                B+23 NEWTON-SEC/E+2  (7 SEC ULLAGE
029766,001928:                                                                                                 #                                                TO GO, PLUS 0.96 SEC FROM PIPTIME)
029767,001929: 17,2030           01120 25456  MDOTLO            2DEC     .289391932 B-3                        #  63.8 LB/SEC, SC.AT B+3 KG/CS   (=MDOTHI)
029768,001930: 
029769,001931:                                                                                                 # # Page 682
029770,001932:                                                                                                 #  NAME     S40.6  GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
029771,001933:                                                                                                 #  MOD NO 5                        DATE 9 MARCH, 1967
029772,001934:                                                                                                 #  MOD BY   ENGEL                  LOG SECTION P40-P47
029773,001935:                                                                                                 #  FUNCTIONAL DESCRIPTION
029774,001936:                                                                                                 #       GIMBAL DRIVE TEST....0,+2,-2,0  DEGREE ENGINE COMMANDS, AT 2 SECOND
029775,001937:                                                                                                 #           INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
029776,001938:                                                                                                 #           OF GIMBAL MOTION ON GPI
029777,001939:                                                                                                 #       GIMBAL TRIM....AFTER A 4 SECOND DELAY,ENGINE COMMANDED TO
029778,001940:                                                                                                 #           PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
029779,001941:                                                                                                 #       PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
029780,001942:                                                                                                 #           IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
029781,001943:                                                                                                 #           BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
029782,001944:                                                                                                 #           IF TVC IS ON (TVCDAPON OR LATER)  THEN REDOTVC WILL TAKE CARE
029783,001945:                                                                                                 #           OF RESTARTING ACTUATORS.
029784,001946:                                                                                                 #  CALLING SEQUENCE....
029785,001947:                                                                                                 #       WAITLIST,  WITH 2CADR FOR S40.6 (OR PRE40.6),  WITH EBANK= CNTR
029786,001948:                                                                                                 #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
029787,001949:                                                                                                 #  SUBROUTINES CALLED....
029788,001950:                                                                                                 #       OUTPUT (INTERNAL)
029789,001951:                                                                                                 #       FIXDELAY
029790,001952:                                                                                                 #  ALARM OR ABORT EXIT MODES - NONE
029791,001953:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
029792,001954:                                                                                                 #       CNTR = +0,  NORMALLY SET BY THE P40 CALL AT TST,TRIM
029793,001955:                                                                                                 #       MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
029794,001956:                                                                                                 #                 NEGATIVE FOR GIMBAL TRIM ONLY
029795,001957:                                                                                                 #       PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT  (V48N48 P,YTRIM)
029796,001958:                                                                                                 #       ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
029797,001959:                                                                                                 #       ACTIVE SPS GIMBAL MOTOR POWER(S),  PITCH, YAW
029798,001960:                                                                                                 #  OUTPUT
029799,001961:                                                                                                 #       TVCYAW, TVCPITCH (BITS RELEASED)
029800,001962:                                                                                                 #       TVC ENABLE  AND  OPTICS ERROR COUNTER ENABLE
029801,001963:                                                                                                 #  DEBRIS
029802,001964:                                                                                                 #       TBMPR60, CNTR
029803,001965: 
029804,001966: 
029805,001967: 
029806,001968: 17,2032                                          BANK     17                                    
029807,001969: 20,2000                                          SETLOC   DAPS6                                 
029808,001970: 20,2000                                          BANK                                           
029809,001971: 
029810,001972: 20,2040  E6,1447                                 EBANK=   CNTR                                  
029811,001973: 20,2040                                          COUNT    20/S40.6                              
029812,001974: 
029813,001975: 20,2040           30102        PRE40.6           CAE      FLAGWRD6                              #  RESTART ENTRY TO S40.6.  CHECK T5 BITS.
029814,001976: 20,2041           74105                          MASK     OCT60000                              
029815,001977: 20,2042           00006                          EXTEND                                         
029816,001978: 20,2043           65213                          BZMF     TASKOVER                              #  NOT RCS  (BITS NOT 01),  DONT DO S40.6
029817,001979: 
029818,001980: 20,2044           44712                          CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
029819,001981: 20,2045           55445                          TS       MRKRTMP                               
029820,001982:                                                                                                 # # Page 683
029821,001983: 20,2046           34712                          CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
029822,001984: 20,2047           55447                          TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR 1S
029823,001985:                                                                                                 #                                                NORMALLY +0, BY S40.6)
029824,001986: 
029825,001987: 
029826,001988: 20,2050  E6,1447                                 EBANK=   CNTR                                  
029827,001989: 20,2050           44714        S40.6             CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
029828,001990: 20,2051           55303                          TS       OPTIND                                
029829,001991: 
029830,001992: 20,2052           44711                          CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
029831,001993: 20,2053           00006                          EXTEND                                         #       AND INHIBIT PULSE TRANSMISSION -
029832,001994: 20,2054           03012                          WAND     CHAN12                                #       NORMAL STATE)
029833,001995: 
029834,001996: 20,2055           32142                          CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
029835,001997: 20,2056           00006                          EXTEND                                         #       VOLTAGES) AND DISENGAGE OPTICS/DAC
029836,001998: 20,2057           05012                          WOR      CHAN12                                
029837,001999: 
029838,002000: 20,2060           05156                          TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
029839,002001: 20,2061           00006                          DEC      6          B-14                       #       RELAY LATCHING
029840,002002: 
029841,002003: 20,2062           34711                          CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
029842,002004: 20,2063           00006                          EXTEND                                         
029843,002005: 20,2064           05012                          WOR      CHAN12                                
029844,002006: 
029845,002007: 20,2065           05156                          TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
029846,002008: 20,2066           00002                          DEC      2          B-14                       #       RELAY LATCHING
029847,002009: 
029848,002010: 20,2067           11447        RSTRTST           CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
029849,002011: 20,2070           12130                          TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
029850,002012:                                                                                                 #                                                TST,TRIM SETS +0 ON NORMAL ENTRY
029851,002013: 
029852,002014: 20,2071           31445                          CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
029853,002015: 20,2072           55447                          TS       CNTR                                  #       MRKRTMP SAVES CNTR FOR RESTARTS
029854,002016: 20,2073           00006                          EXTEND                                         
029855,002017: 20,2074           62126                          BZMF     GIMTRIM                               #  (TRIM ONLY)
029856,002018: 
029857,002019: 20,2075           44714        GDTSETUP          CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
029858,002020: 20,2076           55447                          TS       CNTR                                  
029859,002021: 
029860,002022: 20,2077           32144        GIMDTEST          CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
029861,002023: 20,2100           02113                          TC       OUTPUT                                #       (LEAVES GIMBAL AT +2 DEG)
029862,002024: 20,2101           32143                          CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
029863,002025: 20,2102           02113                          TC       OUTPUT                                
029864,002026: 20,2103           32144                          CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
029865,002027: 20,2104           02113                          TC       OUTPUT                                
029866,002028: 
029867,002029: 20,2105           41447                          CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST
029868,002030: 20,2106           10000                          CCS      A                                     
029869,002031: 20,2107           12126                          TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
029870,002032: 20,2110           44712                          CS       BIT1                                  #  SET UP YAW TEST
029871,002033:                                                                                                 # # Page 684
029872,002034: 20,2111           55447                          TS       CNTR                                  
029873,002035: 20,2112           12077                          TCF      GIMDTEST                              #  FOR YAW TEST
029874,002036: 
029875,002037: 
029876,002038: 20,2113           00006        OUTPUT            EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
029877,002039: 20,2114           23146                          QXCH     TEMPR60                               
029878,002040: 
029879,002041: 20,2115           51447                          INDEX    CNTR                                  
029880,002042: 20,2116           54054                          TS       TVCPITCH                              
029881,002043: 
029882,002044: 20,2117           51447                          INDEX    CNTR                                  
029883,002045: 20,2120           34700                          CAF      BIT11                                 
029884,002046: 20,2121           00006                          EXTEND                                         
029885,002047: 20,2122           05014                          WOR      CHAN14                                
029886,002048: 
029887,002049: 20,2123           05156                          TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
029888,002050: 20,2124           00310                          DEC      200        B-14                       #       GIMBAL MOTION ON GPI
029889,002051: 20,2125           01146                          TC       TEMPR60                               
029890,002052: 
029891,002053: 
029892,002054: 20,2126           05156        GIMTRIM           TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
029893,002055: 20,2127           00620                          DEC      400        B-14                       
029894,002056: 
029895,002057: 20,2130           44714                 +2       CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
029896,002058: 20,2131           61425                          AD       PACTOFF                               #       (AVOID +0) ENTRY POINT FROM RSTRTST
029897,002059: 20,2132           54054                          TS       TVCPITCH                              #       ON A RESTART, TO AVOID 4SEC DELAY
029898,002060: 20,2133           44714                          CS       ZERO                                  
029899,002061: 20,2134           61426                          AD       YACTOFF                               
029900,002062: 20,2135           54053                          TS       TVCYAW                                
029901,002063: 
029902,002064: 20,2136           34755                          CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
029903,002065: 20,2137           00006                          EXTEND                                         
029904,002066: 20,2140           05014                          WOR      CHAN14                                
029905,002067: 
029906,002068: 20,2141           15213        ENDS40.6          TCF      TASKOVER                              
029907,002069: 
029908,002070: 
029909,002071: 20,2142           02200        OCT02200          OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
029910,002072: 20,2143           77526        -4ACTDEG          DEC      -169       B-14                       #  -4 DEG, SC.AT 65.41 ARCSEC/BIT (-169D)
029911,002073: 20,2144           00124        +2ACTDEG          DEC      +84        B-14                       #  +2 DEG, SC.AT 65.41 ARCSEC/BIT (+84D)
029912,002074: 
029913,002075: 
029914,002076:                                                                                                 #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
029915,002077: 
029916,002078: 20,2145                                          COUNT    20/S41.2                              
029917,002079: 
029918,002080: 20,2145           31466        S41.2             CA       DAPDATR1                              
029919,002081: 20,2146           76214                          MASK     THREE                                 
029920,002082: 20,2147           60000                          AD       A                                     
029921,002083: 20,2150           55130                          TS       RATEINDX                              
029922,002084:                                                                                                 # # Page 685
029923,002085: 20,2151           00004                          INHINT                                         
029924,002086: 20,2152           31466                          CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
029925,002087: 20,2153           74371                          MASK     PRIO30                                #                    =10)
029926,002088: 20,2154           67705                          AD       -BIT14                                #  (OCT57777)
029927,002089: 20,2155           00006                          EXTEND                                         
029928,002090: 20,2156           12163                          BZF      TOGETHER                              #  YES
029929,002091: 
029930,002092: 20,2157           44711                          CS       BIT2                                  #  NO, UNSET FLAG
029931,002093: 20,2160           70103                          MASK     FLAGWRD7                              
029932,002094: 20,2161           54103                          TS       FLAGWRD7                              
029933,002095: 
029934,002096: 20,2162           12166                          TCF      +4                                    
029935,002097: 
029936,002098: 20,2163           40103        TOGETHER          CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
029937,002099: 20,2164           74711                          MASK     BIT2                                  
029938,002100: 20,2165           26103                          ADS      FLAGWRD7                              
029939,002101: 
029940,002102: 20,2166           00003                          RELINT                                         
029941,002103: 
029942,002104: 20,2167           31466                          CA       DAPDATR1                              
029943,002105: 20,2170           74707                          MASK     BIT4                                  
029944,002106: 20,2171           00006                          EXTEND                                         
029945,002107: 20,2172           62174                          BZMF     +2                                    #  DEC 46 MEANS NARROW DB
029946,002108: 20,2173           32274                          CA       DEC409                                
029947,002109: 20,2174           62275                          AD       DEC46                                 #  DEC 455 MEANS WIDE DB
029948,002110: 20,2175           55655                          TS       ADB                                   
029949,002111: 
029950,002112: 20,2176           31466                          CA       DAPDATR1                              
029951,002113: 20,2177           74704                          MASK     BIT7                                  #  QUAD BD
029952,002114: 20,2200           00006                          EXTEND                                         
029953,002115: 20,2201           62203                          BZMF     +2                                    
029954,002116: 20,2202           34712                          CA       ONE                                   
029955,002117: 20,2203           55631                          TS       XTRANS                                
029956,002118: 20,2204           31466                          CA       DAPDATR1                              
029957,002119: 20,2205           74701                          MASK     BIT10                                 #  QUAD AC
029958,002120: 20,2206           00006                          EXTEND                                         
029959,002121: 20,2207           62211                          BZMF     +2                                    
029960,002122: 20,2210           44712                          CS       ONE                                   
029961,002123: 20,2211           27631                          ADS      XTRANS                                
029962,002124: 
029963,002125: 20,2212           00004                          INHINT                                         
029964,002126: 20,2213           00006                          EXTEND                                         
029965,002127: 20,2214           12221                          BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
029966,002128: 20,2215           40075                          CS       FLAGWRD1                              #  SET NJETSFLG   (2 JETS, AC OR BD QUADS)
029967,002129: 20,2216           74674                          MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
029968,002130: 20,2217           26075                          ADS      FLAGWRD1                              
029969,002131: 20,2220           12224                          TCF      +4                                    
029970,002132: 20,2221           44674                          CS       BIT15                                 #  KJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
029971,002133: 20,2222           70075                          MASK     FLAGWRD1                              
029972,002134: 20,2223           54075                          TS       FLAGWRD1                              
029973,002135:                                                                                                 # # Page 686
029974,002136: 20,2224           00003                          RELINT                                         
029975,002137: 20,2225           31467                          CA       DAPDATR2                              
029976,002138: 20,2226           74676                          MASK     BIT13                                 
029977,002139: 20,2227           00006                          EXTEND                                         
029978,002140: 20,2230           62232                          BZMF     +2                                    
029979,002141: 20,2231           12233                          TCF      +2                                    
029980,002142: 20,2232           44712                          CS       ONE                                   
029981,002143: 20,2233           40000                          COM                                            
029982,002144: 20,2234           55630                          TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
029983,002145: 
029984,002146: 20,2235           31467                          CA       DAPDATR2                              
029985,002147: 20,2236           74701                          MASK     BIT10                                 
029986,002148: 20,2237           10000                          CCS      A                                     
029987,002149: 20,2240           12244                          TCF      +4                                    
029988,002150: 20,2241           34712                          CA       ONE                                   
029989,002151: 20,2242           55626                          TS       RACFAIL                               
029990,002152: 20,2243           12254                          TCF      BDFAIL                                
029991,002153: 20,2244           34714                          CA       ZERO                                  
029992,002154: 20,2245           55626                          TS       RACFAIL                               
029993,002155: 20,2246           31467                          CA       DAPDATR2                              
029994,002156: 20,2247           74707                          MASK     BIT4                                  
029995,002157: 20,2250           10000                          CCS      A                                     
029996,002158: 20,2251           12254                          TCF      BDFAIL                                
029997,002159: 20,2252           44712                          CS       ONE                                   
029998,002160: 20,2253           55626                          TS       RACFAIL                               
029999,002161: 20,2254           31467        BDFAIL            CA       DAPDATR2                              
030000,002162: 20,2255           74704                          MASK     BIT7                                  
030001,002163: 20,2256           10000                          CCS      A                                     
030002,002164: 20,2257           12263                          TCF      +4                                    
030003,002165: 20,2260           34712                          CA       ONE                                   
030004,002166: 20,2261           55627                          TS       RBDFAIL                               
030005,002167: 20,2262           00002                          TC       Q                                     
030006,002168: 20,2263           34714                          CA       ZERO                                  
030007,002169: 20,2264           55627                          TS       RBDFAIL                               
030008,002170: 20,2265           31467                          CA       DAPDATR2                              
030009,002171: 20,2266           74712                          MASK     BIT1                                  
030010,002172: 20,2267           10000                          CCS      A                                     
030011,002173: 20,2270           00002                          TC       Q                                     
030012,002174: 20,2271           44712                          CS       ONE                                   
030013,002175: 20,2272           55627                          TS       RBDFAIL                               
030014,002176: 20,2273           00002                          TC       Q                                     
030015,002177: 
030016,002178: 
030017,002179:                                                                                                 #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
030018,002180: 42,3521                                          BANK     42                                    
030019,002181: 42,2000                                          SETLOC   EXTVBS                                
030020,002182: 42,2000                                          BANK                                           
030021,002183: 
030022,002184: 42,3521           44702        DAPFIG            CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
030023,002185: 42,3522           00006                          EXTEND                                         
030024,002186:                                                                                                 # # Page 687
030025,002187: 42,3523           03012                          WAND     CHAN12                                
030026,002188: 42,3524           31466                          CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
030027,002189: 42,3525           00006                          EXTEND                                         
030028,002190: 42,3526           74710                          MP       BIT3                                  #       RIGHT SHIFT 4 OCTAL DIGITS
030029,002191: 42,3527           76214                          MASK     THREE                                 #       (IN CASE BIT 15 IS USED)
030030,002192: 42,3530           50000                          INDEX    A                                     
030031,002193: 42,3531           13532                          TCF      +1                                    #       BRANCH BASED ON CONFIG....
030032,002194: 
030033,002195: 42,3532           13544                          TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
030034,002196: 42,3533           13537                          TCF      RCSDAPUP                              #       CSM......ACTIVATE RCSDAP
030035,002197: 42,3534           13537                          TCF      RCSDAPUP                              #       CSM/LEM..ACTIVATE RCSDAP
030036,002198: 42,3535           04574                          TC       POSTJUMP                              
030037,002199: 42,3536           67210                          CADR     SATSTKON                              
030038,002200: 42,3537           00004        RCSDAPUP          INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
030039,002201: 42,3540           04633                          TCR      IBNKCALL                              
030040,002202: 42,3541           42010                          CADR     RCSDAPON                              
030041,002203: 42,3542           00003                          RELINT                                         
030042,002204: 42,3543           13561                          TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
030043,002205: 42,3544           00006        NODAPUP           EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
030044,002206: 42,3545           33564                          DCA      T5IDLDAP                              
030045,002207: 42,3546           53313                          DXCH     T5LOC                                 
030046,002208: 42,3547           05447                          TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
030047,002209: 42,3550           00132                          ADRES    DAPBIT1                               #  BIT 15  FLAG 6 = 0
030048,002210: 42,3551           05447                          TC       DOWNFLAG                              
030049,002211: 42,3552           00133                          ADRES    DAPBIT2                               #  BIT 14  FLAG 6 = 0
030050,002212: 42,3553           00004                          INHINT                                         
030051,002213: 42,3554           04633                          TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
030052,002214: 42,3555           42616                          CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
030053,002215: 42,3556           00003                          RELINT                                         
030054,002216: 42,3557           34712                          CAF      BIT1                                  #  KILL KALCMANU JOB
030055,002217: 42,3560           55332                          TS       HOLDFLAG                              
030056,002218: 42,3561           04574        ENDFIG            TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
030057,002219: 42,3562           66125                          CADR     GOPIN                                 
030058,002220: 42,3563  E6,1425                                 EBANK=   PACTOFF                               
030059,002221: 42,3563           03132 12106  T5IDLDAP          2CADR    T5IDLOC                               
030060,002222: 
030061,002223: 17,2032                                          BANK     17                                    
030062,002224: 20,2000                                          SETLOC   DAPS6                                 
030063,002225: 20,2000                                          BANK                                           
030064,002226: 
030065,002227: 20,2274           00631        DEC409            DEC      409        B-14                       
030066,002228: 20,2275           00056        DEC46             DEC      46         B-14                       
030067,002229: 
030068,002230: 
030069,002231:                                                                                                 #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
030070,002232: 
030071,002233: 20,2276           31470        S40.14            CAE      IXX                                   #  RCS ENTRY
030072,002234: 20,2277           00006                          EXTEND                                         
030073,002235: 20,2300           72323                          MP       CONTONE                               
030074,002236:                                                                                                 # # Page 688
030075,002237: 20,2301           55623                          TS       J/M                                   
030076,002238: 
030077,002239: 20,2302           31471                          CA       IAVG                                  
030078,002240: 20,2303           00006                          EXTEND                                         
030079,002241: 20,2304           72323                          MP       CONTONE                               
030080,002242: 20,2305           55624                          TS       J/M1                                  
030081,002243: 
030082,002244: 20,2306           55625                          TS       J/M2                                  
030083,002245: 
030084,002246: 20,2307           00006                          EXTEND                                         
030085,002247: 20,2310           32325                          DCA      CONTTWO                               
030086,002248: 20,2311           00006                          EXTEND                                         
030087,002249: 20,2312           11470                          DV       IXX                                   
030088,002250: 20,2313           55620                          TS       KMJ                                   
030089,002251: 
030090,002252: 20,2314           00006                          EXTEND                                         
030091,002253: 20,2315           32325                          DCA      CONTTWO                               
030092,002254: 20,2316           00006                          EXTEND                                         
030093,002255: 20,2317           11471                          DV       IAVG                                  
030094,002256: 20,2320           55621                          TS       KMJ1                                  
030095,002257: 
030096,002258: 20,2321           55622                          TS       KMJ2                                  
030097,002259: 
030098,002260: 20,2322           00002                          TC       Q                                     
030099,002261: 
030100,002262: 20,2323           25137        CONTONE           DEC      .662034                               #  2PI/M
030101,002263: 20,2324           00023 12522  CONTTWO           2DEC     .00118                                
030102,002264: 
030103,002265: 20,2326                                          COUNT    24/TVNG                               
030104,002266: 
030105,002267: 31,3215                                          BANK     31                                    
030106,002268: 24,2000                                          SETLOC   P40S                                  
030107,002269: 24,2000                                          BANK                                           
030108,002270: 
030109,002271: 24,3701           37405        POS-2.5           OCT      37405                                 
030110,002272: 24,3702  E6,1466                                 EBANK=   DAPDATR1                              
030111,002273: 24,3702           02000 42066  RCSCADR           2CADR    RCSUP                                 
030112,002274: 24,3704           37704        6SECT5            OCT      37704                                 
030113,002275: 24,3705                                          COUNT    21/RCSUP                              
030114,002276: 
030115,002277: 20,2326                                          BANK     20                                    
030116,002278: 
030117,002279: 21,2000                                          SETLOC   DAPS3                                 
030118,002280: 21,2000                                          BANK                                           
030119,002281: 
030120,002282: 21,2000           22016        RCSUP             LXCH     BANKRUPT                              
030121,002283: 21,2001           00006                          EXTEND                                         
030122,002284: 21,2002           22012                          QXCH     QRUPT                                 
030123,002285: 
030124,002286:                                                                                                 # # Page 689
030125,002287: 21,2003           02010                          TCR      RCSDAPON                              #  ACTIVATE RCS DAP
030126,002288: 
030127,002289: 21,2004           15222                          TCF      RESUME                                
030128,002290: 
030129,002291: 21,2005  E6,1466                                 EBANK=   DAPDATR1                              
030130,002292: 21,2005           02106 42066  RCSADDR           2CADR    RCSATT                                
030131,002293: 
030132,002294: 
030133,002295: 21,2007           37704        0.6SECT5          OCT      37704                                 
030134,002296: 
030135,002297:                                                                                                 #                                           RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030136,002298: 21,2010           32007        RCSDAPON          CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030137,002299: 21,2011           54030                 +1       TS       TIME5                                 #  ENTRY FROM R00TOPOO
030138,002300: 21,2012           55465                          TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
030139,002301: 
030140,002302: 21,2013           41501                          CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
030141,002303: 21,2014           74710                          MASK     BIT3                                  #       DISPLAY, IN CASE SC CONT SWITCH
030142,002304: 21,2015           27501                          ADS      RCSFLAGS                              #       IN SCS NOT GNC (GUIDEMODE PRIMARY)
030143,002305: 
030144,002306: 21,2016           00006                          EXTEND                                         
030145,002307: 21,2017           32006                          DCA      RCSADDR                               #  (RCSATT)
030146,002308: 21,2020           53313                          DXCH     T5LOC                                 
030147,002309: 
030148,002310: 21,2021           44105                          CS       OCT60000                              #  SEE BITS 15,14  TO  01  TO INDICATE
030149,002311: 21,2022           70102                          MASK     FLAGWRD6                              #       T5 TAKEOVER BY RCSDAP
030150,002312: 21,2023           64675                          AD       BIT14                                 
030151,002313: 21,2024           54102                          TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
030152,002314: 
030153,002315: 21,2025           00002                          TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)

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