Source Code

These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2), the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 45/2, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 45 (itself previously accurately reconstructed). Comanche 45 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 45 and 45/2. The now-reconstructed Comanche 45/2 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code tend to match those in the Comanche 55, the most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy; the source code would likely have different page numbers in a contemporary Comanche 45 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 44. Here's a guide to the Apollo documentation referenced in those annotations:
Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

029682,000002:                                                                                                  ## Copyright:   Public domain.
029683,000003:                                                                                                  ## Filename:    P40-P47.agc
029684,000004:                                                                                                  ## Purpose:     A section of Manche45 revision 2.
029685,000005:                                                                                                  ##              It is part of the reconstructed source code for the
029686,000006:                                                                                                  ##              final, flown release of the flight software for the Command
029687,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
029688,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
029689,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
029690,000010:                                                                                                  ##              exactly match those specified for Manche 45/2 in NASA drawing
029691,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
029692,000012:                                                                                                  ##              reconstruction is correct.
029693,000013:                                                                                                  ## Assembler:   yaYUL
029694,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029695,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029696,000016:                                                                                                  ## Mod history: 2020-12-24 MAS  Created from Comanche 45.
029697,000017: 

Page 684

029699,000019:                                                                                                  #  PROGRAM DESCRIPTION ** P40CSM **
029700,000020: 
029701,000021: 35,3504  E6,1466                                  EBANK=   DAPDATR1                              
029702,000022: 31,3700                                           BANK     31                                    
029703,000023: 24,2000                                           SETLOC   P40S                                  
029704,000024: 24,2000                                           BANK                                           
029705,000025: 
029706,000026: 24,2073                                           COUNT    24/P40                                
029707,000027: 
029708,000028: 24,2073           05560        P40CSM             TC       DOWNFLAG                              
029709,000029: 24,2074           00023                           ADRES    ENG2FLAG                              
029710,000030: 
029711,000031: 24,2075           06006                           TC       INTPRET                               
029712,000032: 24,2076           43135                           SLOAD    BOFF                                  
029713,000033: 24,2077           03425                                    ECSTEER                               #  IS THIS AN EXTERNAL DELTA V BURN
029714,000034: 24,2100           01347                                    XDELVFLG                              
029715,000035: 24,2101           50104                                    P40S/C                                #  NO    CSTEER = ECSTEER
029716,000036: 24,2102           77745                           DLOAD                                          #  YES   CSTEER = ZERO
029717,000037: 24,2103           15335                                    HI6ZEROS                              
029718,000038: 24,2104           17703        P40S/C             STODL    CSTEER                                
029719,000039: 24,2105           10411                                    FENG                                  #  SET UP THRUST FOR P40 20,000 LBS
029720,000040: 24,2106           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
029721,000041: 24,2107           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
029722,000042: 24,2110           03450                           STORE    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
029723,000043: 
029724,000044: 24,2111           77776                           EXIT                                           
029725,000045: 24,2112           04662                           TC       BANKCALL                              
029726,000046: 24,2113           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
029727,000047: 
029728,000048: 24,2114           06006        P40PVA             TC       INTPRET                               
029729,000049: 24,2115           77624                           CALL                                           
029730,000050: 24,2116           34020                                    S40.1                                 #  COMPUTE VGTIG,UT
029731,000051: 24,2117           77624                           CALL                                           
029732,000052: 24,2120           51574                                    S40.2,3                               #  COMPUTE PREFERRED ATTITUDE
029733,000053: 24,2121           77414                           SET      EXIT                                  
029734,000054: 24,2122           01073                                    PFRATFLG                              
029735,000055: 24,2123           02303        P40SXTY            TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
029736,000056: 24,2124           00003                           RELINT                                         
029737,000057: 24,2125           04662                           TC       BANKCALL                              
029738,000058: 24,2126           56000                           CADR     R60CSM                                #  ATTITUDE MANEUVER
029739,000059: 24,2127           45017                           CS       ONE                                   #  FOR UPDATEVG
029740,000060: 24,2130           55742                           TS       NBRCYCLS                              
029741,000061: 24,2131           05546                           TC       UPFLAG                                
029742,000062: 24,2132           00155                           ADRES    TIMRFLAG                              #  ALLOW CLOCKTASK
029743,000063: 
029744,000064: 24,2133           02326                           TC       P41/P40                               
029745,000065: 24,2134           02343                           TC       P41/DSP                               #  P41
029746,000066: 
029747,000067: 24,2135           32425        P40TTOG            CAF      V06N40                                #  INITIALIZE FOR CLOCKTASK WHICH IS CALLED

Page 685

029749,000069: 24,2136           55145                           TS       NVWORD1                               #  BELOW
029750,000070: 
029751,000071: 24,2137           06006                           TC       INTPRET                               
029752,000072: 24,2140           51575                           VLOAD    ABVAL                                 #  FOR R2
029753,000073: 24,2141           03721                                    VGTIG                                 
029754,000074: 24,2142           17773                           STODL    VGDISP                                
029755,000075: 24,2143           15335                                    HI6ZEROS                              
029756,000076: 24,2144           03426                           STORE    DVTOTAL                               
029757,000077: 24,2145           77776                           EXIT                                           
029758,000078: 
029759,000079: 24,2146           00006                           EXTEND                                         
029760,000080: 24,2147           33061                           DCA      STEERADS                              #  SET FOR UPDATEVG AND TEST FOR STEERING
029761,000081: 24,2150           53223                           DXCH     AVEGEXIT                              #  AFTER AVERAGE G
029762,000082: 
029763,000083: 24,2151           32420        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
029764,000084: 24,2152           04662                           TC       BANKCALL                              
029765,000085: 24,2153           21045                           CADR     GOPERF1                               
029766,000086: 24,2154           12275                           TCF      POST41                                #  V34
029767,000087: 24,2155           12435                           TCF      TST,TRIM                              #  V33
029768,000088: 24,2156           45017        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
029769,000089: 24,2157           55445                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
029770,000090: 
029771,000091: 24,2160           35021                           CAF      ZERO                                  #  SET CNTR      +0 FOR RESTART LOGIC IN S40.6
029772,000092: 24,2161           55447                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
029773,000093:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
029774,000094: 
029775,000095: 24,2162           35017                           CAF      ONE                                   
029776,000096: 24,2163           05245                           TC       WAITLIST                              
029777,000097: 24,2164  E6,1466                                  EBANK=   DAPDATR1                              
029778,000098: 24,2164           02252 40066                     2CADR    S40.6                                 
029779,000099: 
029780,000100: 24,2166           11445                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
029781,000101: 24,2167           32417                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
029782,000102: 24,2170           12172                           TCF      +2                                    #  HOLE
029783,000103: 24,2171           33064                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
029784,000104: 24,2172           04662                           TC       BANKCALL                              
029785,000105: 24,2173           01732                           CADR     DELAYJOB                              
029786,000106: 24,2174           05372                           TC       2PHSCHNG                              
029787,000107: 24,2175           40026                           OCT      40026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
029788,000108: 24,2176           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
029789,000109: 24,2177           35017        P40S/RS            CAF      ONE                                   
029790,000110: 24,2200           05245                           TC       WAITLIST                              #  P41/SDP
029791,000111: 24,2201  E7,1412                                  EBANK=   TIG                                   
029792,000112: 24,2201           03260 50067                     2CADR    CLOKTASK                              
029793,000113: 
029794,000114: 24,2203           00003                           RELINT                                         
029795,000115: 
029796,000116: 24,2204           03366        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PRETECTS, PRIO12
029797,000117: 24,2205  E7,1412                                  EBANK=   TIG                                   

Page 686

029799,000119: 24,2205           06006                           TC       INTPRET                               
029800,000120: 24,2206           45345                           DLOAD    DSU                                   
029801,000121: 24,2207           03413                                    TIG                                   
029802,000122: 24,2210           10416                                    SEC29.96                              
029803,000123: 24,2211           00041                           STORE    TDEC1                                 
029804,000124: 
029805,000125: 24,2212           77624                           CALRB                                          #  RETURN IN BASIC
029806,000126: 24,2213           27553                                    MIDTOAV1                              
029807,000127: 24,2214           12216                           TCF      +2                                    
029808,000128: 24,2215           02237                           TC       P40SNEWM                              #  INTEGRATION TIME GREATER THAN ALLOWED
029809,000129: 24,2216           00006        P40SET             EXTEND                                         
029810,000130: 24,2217           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD (INT.INIT.)
029811,000131: 24,2220           53673                           DXCH     P40TMP                                
029812,000132: 24,2221           00006                           EXTEND                                         
029813,000133: 24,2222           43064                           DCS      5SECDP                                #  FOR TTGBLNK
029814,000134: 24,2223           21673                           DAS      P40TMP                                
029815,000135: 24,2224           00006                           EXTEND                                         
029816,000136: 24,2225           31673                           DCA      P40TMP                                
029817,000137: 24,2226           05342                           TC       LONGCALL                              
029818,000138: 24,2227  E7,1412                                  EBANK=   TIG                                   
029819,000139: 24,2227           02437 50067                     2CADR    TIGBLNK                               
029820,000140: 
029821,000141: 24,2231           05412                           TC       PHASCHNG                              
029822,000142: 24,2232           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
029823,000143: 
029824,000144: 24,2233           15217                           TCF      ENDOFJOB                              
029825,000145: 24,2234           04662        P40BLNKR           TC       BANKCALL                              
029826,000146: 24,2235           20703                           CADR     CLEANDSP                              #  REMOVE RESIDUE
029827,000147: 24,2236           15217                           TCF      ENDOFJOB                              
029828,000148: 24,2237  E7,1412                                  EBANK=   TIG                                   
029829,000149: 24,2237           00006        P40SNEWM           EXTEND                                         
029830,000150: 24,2240           31246                           DCA      PIPTIME1                              
029831,000151: 24,2241           53413                           DXCH     TIG                                   #  SET NEW TIG FOR 06 40
029832,000152: 24,2242           00006                           EXTEND                                         
029833,000153: 24,2243           32416                           DCA      SEC29.96                              
029834,000154: 24,2244           21413                           DAS      TIG                                   
029835,000155: 24,2245           12216                           TCF      P40SET                                #  FOR LONGCALL OF TIG-30 (OR -35)
029836,000156: 
029837,000157: 24,2246  E6,1466                                  EBANK=   DAPDATR1                              
029838,000158: 24,2246           32426        POSTBURN           CAF      V16N40                                
029839,000159: 24,2247           04662                           TC       BANKCALL                              
029840,000160: 24,2250           20704                           CADR     REFLASH                               
029841,000161: 24,2251           12275                           TCF      POST41                                #  V34 GO FINISH
029842,000162: 24,2252           12254                           TCF      P40RCS                                #  PROCEED
029843,000163: 24,2253           12246                           TCF      POSTBURN                              #  RECYCLE
029844,000164: 24,2254           00006        P40RCS             EXTEND                                         #  V99N40 ENTERS HERE ON A P40 BYPASS SPS
029845,000165: 24,2255           32462                           DCA      ACADN85                               
029846,000166: 24,2256           53223                           DXCH     AVEGEXIT                              
029847,000167: 24,2257           35042                           CAF      2SECS                                 #  WAIT FOR CALCN85 VIA AVEGEXIT
029848,000168: 24,2260           04662                           TC       BANKCALL                              

Page 687

029850,000170: 24,2261           01732                           CADR     DELAYJOB                              
029851,000171: 
029852,000172: 24,2262           02303        P40MINDB           TCR      SETMINDB   -1                         
029853,000173: 24,2263           00003                           RELINT                                         
029854,000174: 24,2264           05412        TIGNOW             TC       PHASCHNG                              
029855,000175: 24,2265           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
029856,000176: 24,2266           20000                           OCT      20000                                 #  PRIO 20
029857,000177: 24,2267           32424                           CAF      V16N85B                               
029858,000178: 24,2270           04662                           TC       BANKCALL                              
029859,000179: 24,2271           20704                           CADR     REFLASH                               
029860,000180: 24,2272           12275                           TCF      POST41                                #  FINISH P40/P41
029861,000181: 24,2273           12275                           TCF      POST41                                #  V03 PROCEED WITH REST OF THE CLEAN-UP
029862,000182: 24,2274           12264                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
029863,000183: 
029864,000184: 24,2275           00006        POST41             EXTEND                                         
029865,000185: 24,2276           32460                           DCA      SERVCADR                              
029866,000186: 24,2277           53223                           DXCH     AVEGEXIT                              
029867,000187: 24,2300           14106                           TCF      GOTOPOOH                              
029868,000188: 
029869,000189: 24,2301           00056        MINDB              DEC      46         B-14                       
029870,000190: 24,2302           00707        MAXDB              DEC      455        B-14                       
029871,000191: 24,2303  E6,1466                                  EBANK=   DAPDATR1                              
029872,000192: 24,2303           00004                 -1        INHINT                                         
029873,000193: 24,2304           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
029874,000194: 24,2305           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
029875,000195: 24,2306           00006                           EXTEND                                         #  IN AUTOPILOT
029876,000196: 24,2307           30034                           DCA      CDUY                                  
029877,000197: 24,2310           53574                           DXCH     THETADY                               
029878,000198: 24,2311           32301                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
029879,000199: 24,2312           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
029880,000200: 24,2313           45014                           CS       BIT4                                  #  EBANK = E6
029881,000201: 24,2314           71466                           MASK     DAPDATR1                              
029882,000202: 24,2315           55466                           TS       DAPDATR1                              
029883,000203: 24,2316           00002                           TC       Q                                     
029884,000204: 
029885,000205: 24,2317  E6,1466                                  EBANK=   DAPDATR1                              
029886,000206: 24,2317           00004                 -1        INHINT                                         
029887,000207: 24,2320           32302        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
029888,000208: 24,2321           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
029889,000209: 24,2322           41466                           CS       DAPDATR1                              
029890,000210: 24,2323           75014                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
029891,000211: 24,2324           27466                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
029892,000212: 24,2325           00002                           TC       Q                                     #  EBANK = E6
029893,000213: 

Page 688

029895,000215:                                                                                                  #  PROGRAM DESCRIPTION ** P41CSM **
029896,000216: 
029897,000217: 27,2000                                           SETLOC   P40S2                                 
029898,000218: 27,2000                                           BANK                                           
029899,000219: 
029900,000220: 27,2614  E6,1466                                  EBANK=   DAPDATR1                              
029901,000221: 27,2614                                           COUNT    24/P41                                
029902,000222: 
029903,000223: 27,2614           05546        P41CSM             TC       UPFLAG                                
029904,000224: 27,2615           00023                           ADRES    ENG2FLAG                              #  SET FOR RCS
029905,000225: 
029906,000226: 27,2616           06006                           TC       INTPRET                               
029907,000227: 27,2617           77745                           DLOAD                                          
029908,000228: 27,2620           15335                                    HI6ZEROS                              #  FOR P41 CSTEER =0
029909,000229: 27,2621           03703                           STORE    CSTEER                                
029910,000230: 
029911,000231: 27,2622           43145                           DLOAD    BON                                   
029912,000232: 27,2623           10413                                    FRCS2                                 #  2JET THRUST FOR S40.1
029913,000233: 27,2624           00700                                    NJETSFLG                              
029914,000234: 27,2625           50106                                    P40S/F                                #  NJETS = 1 2-JET
029915,000235: 27,2626           52015                           DAD      GOTO                                  #  NJETS = 0 4-JET
029916,000236: 27,2627           10413                                    FRCS2                                 
029917,000237: 27,2630           50106                                    P40S/F                                
029918,000238: 
029919,000239: 24,2000                                           SETLOC   P40S                                  
029920,000240: 24,2000                                           BANK                                           
029921,000241: 
029922,000242: 24,2326           41011        P41/P40            CS       MODREG                                
029923,000243: 24,2327           75017                           MASK     ONE                                   #  P41EXITS AT CALL LOC +1
029924,000244: 24,2330           00006                           EXTEND                                         
029925,000245: 24,2331           12333                           BZF      +2                                    #  P41
029926,000246: 24,2332           24002                           INCR     Q                                     #  P40 EXITS AT CALL LOC +2
029927,000247: 24,2333           00002                           TC       Q                                     
029928,000248: 
029929,000249: 24,2334           35002        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
029930,000250: 24,2335           05134                           TC       NOVAC                                 
029931,000251: 24,2336  E6,1466                                  EBANK=   DAPDATR1                              
029932,000252: 24,2336           02264 50066                     2CADR    TIGNOW                                
029933,000253: 
029934,000254: 24,2340           05560        P40CLK             TC       DOWNFLAG                              
029935,000255: 24,2341           00155                           ADRES    TIMRFLAG                              
029936,000256: 
029937,000257: 24,2342           15324                           TCF      TASKOVER                              
029938,000258: 
029939,000259: 24,2343           32423        P41/DSP            CAF      V06N85B                               #  SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
029940,000260: 24,2344           55145                           TS       NVWORD1                               
029941,000261: 
029942,000262: 24,2345           06006                           TC       INTPRET                               

Page 689

029944,000264: 24,2346           77624                           CALL                                           #  COMPUTE
029945,000265: 24,2347           50370                                    P40CNV85                              #        VGTIG IN CTRL COORDS
029946,000266: 24,2350           77776                           EXIT                                           
029947,000267: 24,2351           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
029948,000268: 24,2352           32462                           DCA      ACADN85                               
029949,000269: 24,2353           53223                           DXCH     AVEGEXIT                              
029950,000270: 24,2354           05372                           TC       2PHSCHNG                              
029951,000271: 24,2355           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
029952,000272: 24,2356           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
029953,000273: 
029954,000274: 24,2357           12177                           TCF      P40S/RS                               
029955,000275: 24,2360           32424        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
029956,000276: 24,2361           55145                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
029957,000277: 24,2362           32416                           CAF      SEC29.96   +1                         
029958,000278: 24,2363           05245                           TC       WAITLIST                              
029959,000279: 24,2364  E6,1466                                  EBANK=   DAPDATR1                              
029960,000280: 24,2364           02334 50066                     2CADR    TTG/0                                 
029961,000281: 
029962,000282: 24,2366           45015                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
029963,000283: 24,2367           12566                           TCF      TTGPHS                                
029964,000284: 24,2370           40220        P40CNV85           STQ      SETPD                                 
029965,000285: 24,2371           03730                                    QTEMP1                                
029966,000286: 24,2372           00001                                    0                                     
029967,000287: 24,2373           41575                           VLOAD    PUSH                                  
029968,000288: 24,2374           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
029969,000289: 24,2375           77624                           CALL                                           
029970,000290: 24,2376           45431                                    S41.1                                 
029971,000291: 24,2377           37665                           STCALL   VGBODY                                
029972,000292: 24,2400           03730                                    QTEMP1                                
029973,000293: 
029974,000294: 24,2401  E6,1466                                  EBANK=   DAPDATR1                              
029975,000295: 24,2401           06006        CALCN85            TC       INTPRET                               
029976,000296: 24,2402           77624                           CALL                                           
029977,000297: 24,2403           51104                                    UPDATEVG                              #  NEW VG, S40.8 (+MAYBE S40.9)
029978,000298: 24,2404           77624                           CALL                                           
029979,000299: 24,2405           50370                                    P40CNV85                              #  COMPUTE VGBODY
029980,000300: 24,2406           77776                           EXIT                                           
029981,000301: 24,2407           03215                           TC       SERVXT                                
029982,000302: 24,2410           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
029983,000303: 
029984,000304: 24,2412           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
029985,000305: 
029986,000306:                                                                                                  #        B+7 NEWTONS/E+4
029987,000307: 24,2414           04700        SEC24.96           DEC      2496       B-14                       
029988,000308: 24,2415           00000 05664  SEC29.96           2DEC     2996       B-28                       
029989,000309: 
029990,000310: 24,2417           03410        18SEC              DEC      1800       B-14                       
029991,000311: 24,2420           00204        P40CKLS2           OCT      204                                   
029992,000312: 24,2421           37730        40CST5             OCT      37730                                 #  40 CS FOR THE T5 CLOCK
029993,000313: 24,2422     4377               OCT12              =        TEN                                   

Page 690

029995,000315: 24,2422           04123        V1683              VN       1683                                  
029996,000316: 24,2423           01525        V06N85B            VN       0685                                  
029997,000317: 24,2424           04125        V16N85B            VN       1685                                  
029998,000318: 24,2425           01450        V06N40             VN       0640                                  
029999,000319: 24,2426           04050        V16N40             VN       1640                                  
030000,000320: 24,2427           00027        OCT27/24           OCT      27                                    
030001,000321: 24,2430           00053        OCT53              OCT      53                                    
030002,000322: 24,2431           00035        OCT35              OCT      35                                    
030003,000323: 24,2432  E6,1466                                  EBANK=   DAPDATR1                              
030004,000324: 24,2432           03153 12066  T5IDL24            2CADR    T5IDLOC                               
030005,000325: 
030006,000326: 24,2434           00026        3MDOT              DEC      86.6175796 B-16                       #  3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
030007,000327:                                                                                                  #  B+16 KG/SEC (NOTE, EMDOT IS PAD-LOADED,
030008,000328:                                                                                                  #  BUT 3MDOT IS NOT A CRITICAL QUANTITY, SO
030009,000329:                                                                                                  #  IT CAN REMAIN IN FIXED MEMORY)
030010,000330: 24,2435           35017        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
030011,000331: 24,2436           12157                           TCF      TRIMONLY   +1                         
030012,000332: 24,2437           33064        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG-30
030013,000333: 24,2440           05245                           TC       WAITLIST                              
030014,000334: 24,2441  E7,1412                                  EBANK=   TIG                                   
030015,000335: 24,2441           02555 50067                     2CADR    TIGAVEG                               
030016,000336: 
030017,000337: 24,2443           35021                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
030018,000338: 24,2444           55145                           TS       NVWORD1                               
030019,000339: 
030020,000340: 24,2445           35066                           CAF      PRIO14                                
030021,000341: 24,2446           05134                           TC       NOVAC                                 
030022,000342: 24,2447  E7,1412                                  EBANK=   TIG                                   
030023,000343: 24,2447           02234 50067                     2CADR    P40BLNKR                              #  DONT PROTECT-RESTARTS BLANK DSKY
030024,000344: 
030025,000345: 24,2451           44362                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
030026,000346: 24,2452           04114        P40TSK             TC       NEWPHASE                              
030027,000347: 24,2453           00004                           OCT      4                                     
030028,000348: 24,2454           05324                           TC       TASKOVER                              
030029,000349: 
030030,000350: 24,2455  E7,1412                                  EBANK=   TIG                                   
030031,000351: 24,2455           02511 50067  ACADN83            2CADR    CALCN83                               
030032,000352: 
030033,000353: 24,2457  E7,1412                                  EBANK=   TIG                                   
030034,000354: 24,2457           03226 76067  SERVCADR           2CADR    SERVEXIT                              
030035,000355: 
030036,000356: 24,2461  E6,1466                                  EBANK=   DAPDATR1                              
030037,000357: 24,2461           02401 50066  ACADN85            2CADR    CALCN85                               
030038,000358: 

Page 691

030040,000360:                                                                                                  #  PROGRAM DESCRIPTION ** P47CSM **
030041,000361: 
030042,000362: 24,2463                                           COUNT    24/P47                                
030043,000363: 
030044,000364: 24,2463  E7,1412                                  EBANK=   TIG                                   
030045,000365: 24,2463           04662        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
030046,000366: 24,2464           17653                           CADR     R02BOTH                               
030047,000367: 24,2465           06006                           TC       INTPRET                               
030048,000368: 24,2466           77624                           CALRB                                          
030049,000369: 24,2467           27543                                    MIDTOAV2                              
030050,000370: 24,2470           30155                           CA       MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 1000
030051,000371: 24,2471           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
030052,000372: 24,2472           05245                           TC       WAITLIST                              
030053,000373: 24,2473  E7,1412                                  EBANK=   TIG                                   
030054,000374: 24,2473           02500 50067                     2CADR    TIGON                                 #  TIGON IS REQUIRED TO MATHCHTAT AND AVEG
030055,000375: 
030056,000376: 24,2475           05412                           TC       PHASCHNG                              
030057,000377: 24,2476           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
030058,000378: 24,2477           15217                           TCF      ENDOFJOB                              
030059,000379: 
030060,000380: 24,2500  E7,1672                                  EBANK=   P40TMP                                
030061,000381: 24,2500           00006        TIGON              EXTEND                                         
030062,000382: 24,2501           32456                           DCA      ACADN83                               
030063,000383: 24,2502           53223                           DXCH     AVEGEXIT                              
030064,000384: 24,2503           34371                           CAF      PRIO30                                #  FORCE ZEROING OF N83 BEFORE SERVICER
030065,000385: 24,2504           05134                           TC       NOVAC                                 
030066,000386: 24,2505  E7,1412                                  EBANK=   TIG                                   
030067,000387: 24,2505           02534 50067                     2CADR    P47BODY                               
030068,000388: 
030069,000389: 24,2507           45016                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
030070,000390: 24,2510           12566                           TCF      TTGPHS                                
030071,000391: 
030072,000392: 24,2511  E7,1412                                  EBANK=   TIG                                   
030073,000393: 24,2511           06006        CALCN83            TC       INTPRET                               
030074,000394: 24,2512           77601                           SETPD                                          #  SET UP PUSHLIST FOR S41.1
030075,000395: 24,2513           00001                                    0                                     
030076,000396: 24,2514           53375                           VLOAD    VAD                                   
030077,000397: 24,2515           03665                                    DELVCTL                               
030078,000398: 24,2516           03433                                    DELVREF                               
030079,000399: 24,2517           03460                           STORE    DV47TEMP                              #  FOR COPYCYCLE BELOW
030080,000400: 24,2520           45006                           PUSH     CALL                                  
030081,000401: 24,2521           45431                                    S41.1                                 
030082,000402: 24,2522           37675                           STCALL   DELVIMU                               
030083,000403: 24,2523           70542                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
030084,000404: 24,2524           77776                           EXIT                                           
030085,000405: 24,2525           05412                           TC       PHASCHNG                              
030086,000406: 24,2526           10035                           OCT      10035                                 

Page 692

030088,000408: 24,2527           35022                           CAF      FIVE                                  
030089,000409: 24,2530           05606                           TC       GENTRAN                               
030090,000410: 24,2531           01457                           ADRES    DV47TEMP                              
030091,000411: 24,2532           01664                           ADRES    DELVCTL                               
030092,000412: 
030093,000413: 24,2533           03215                           TC       SERVXT                                
030094,000414: 24,2534           06006        P47BODY            TC       INTPRET                               
030095,000415: 24,2535           77775                           VLOAD                                          
030096,000416: 24,2536           15335                                    HI6ZEROS                              
030097,000417: 24,2537           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
030098,000418: 24,2540           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
030099,000419: 24,2541           77776                           EXIT                                           
030100,000420: 24,2542           35067        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
030101,000421: 24,2543           05210                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
030102,000422: 24,2544           05412                           TC       PHASCHNG                              
030103,000423: 24,2545           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
030104,000424: 24,2546           15000                           OCT      15000                                 #  PRIO 15
030105,000425: 24,2547           32422        P47/DSP            CAF      V1683                                 
030106,000426: 24,2550           04662                           TC       BANKCALL                              
030107,000427: 24,2551           20720                           CADR     GOFLASH                               
030108,000428: 24,2552           04106                           TC       GOTOPOOH                              
030109,000429: 24,2553           04106                           TC       GOTOPOOH                              
030110,000430: 24,2554           12534                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY
030111,000431: 

Page 693

030113,000433:                                                                                                  #  ROUTINE ** TIG-30 ** DESCRIPTION
030114,000434: 
030115,000435: 24,2555  E7,1412                                  EBANK=   TIG                                   
030116,000436: 24,2555                                           COUNT    24/P40                                
030117,000437: 
030118,000438: 24,2555           02326        TIGAVEG            TC       P41/P40                               #  TASK (4.37 PROTECTS)
030119,000439: 24,2556           12360                           TCF      P41REDSP                              #  P41
030120,000440: 
030121,000441: 24,2557           32425                           CAF      V06N40                                #  UNBLANK DISPLAY
030122,000442: 24,2560           55145                           TS       NVWORD1                               
030123,000443: 
030124,000444: 24,2561           32414                           CAF      SEC24.96                              
030125,000445: 24,2562           05245                           TC       WAITLIST                              
030126,000446: 24,2563  E7,1412                                  EBANK=   TIG                                   
030127,000447: 24,2563           02574 50067                     2CADR    TIG-5                                 
030128,000448: 
030129,000449: 24,2565           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
030130,000450: 24,2566           04114        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
030131,000451: 24,2567           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
030132,000452: 
030133,000453: 24,2570           10763        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
030134,000454: 24,2571           15324                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
030135,000455: 24,2572           04701                           TC       POSTJUMP                              
030136,000456: 24,2573           76700                           CADR     PREREAD                               
030137,000457: 

Page 694

030139,000459:                                                                                                  #  ROUTINE ** TIG-5 ** DESCRIPTION
030140,000460: 
030141,000461: 24,2574  E7,1412                                  EBANK=   TIG                                   
030142,000462: 24,2574           33064        TIG-5              CAF      5SEC                                  
030143,000463: 24,2575           05245                           TC       WAITLIST                              
030144,000464: 24,2576  E6,1466                                  EBANK=   DAPDATR1                              
030145,000465: 24,2576           02612 50066                     2CADR    TIG-0                                 
030146,000466: 
030147,000467: 24,2600           45007                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
030148,000468: 24,2601           55145                           TS       NVWORD1                               
030149,000469: 
030150,000470: 24,2602           05372                           TC       2PHSCHNG                              
030151,000471: 24,2603           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
030152,000472: 24,2604           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
030153,000473: 
030154,000474: 24,2605           35002                           CAF      PRIO20                                
030155,000475: 24,2606           05147                           TC       FINDVAC                               
030156,000476: 24,2607  E7,1427                                  EBANK=   TGO                                   
030157,000477: 24,2607           02424 34067                     2CADR    S40.13                                
030158,000478: 
030159,000479: 24,2611           15324                           TCF      TASKOVER                              
030160,000480: 

Page 695

030162,000482:                                                                                                  #  ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
030163,000483: 
030164,000484: 24,2612  E6,1466                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
030165,000485: 24,2612           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
030166,000486: 24,2613           75003                           MASK     BIT13                                 
030167,000487: 24,2614           26103                           ADS      FLAGWRD7                              
030168,000488: 
030169,000489: 24,2615           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
030170,000490: 24,2616           75004                           MASK     BIT12                                 
030171,000491: 24,2617           00006                           EXTEND                                         
030172,000492: 24,2620           15324                           BZF      TASKOVER                              #  WAIT FOR V99P
030173,000493: 
030174,000494: 24,2621           32425                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
030175,000495: 24,2622           55145                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
030176,000496: 
030177,000497: 24,2623           05412                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
030178,000498: 24,2624           00614                           OCT      00614                                 #  A, 4.61 = IGNITION (-0CS) TBASE OLD
030179,000499: 
030180,000500: 24,2625           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
030181,000501: 24,2626           55450                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
030182,000502: 24,2627           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
030183,000503: 24,2630           30025                           DCA      TIME2                                 #        FOR RESTARTS
030184,000504: 24,2631           53337                           DXCH     TEVENT                                
030185,000505: 24,2632           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
030186,000506: 24,2633           75011                           MASK     BIT7                                  
030187,000507: 24,2634           26101                           ADS      FLAGWRD5                              
030188,000508: 24,2635           35003        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
030189,000509: 24,2636           00006                           EXTEND                                         
030190,000510: 24,2637           05011                           WOR      DSALMOUT                              
030191,000511: 
030192,000512: 24,2640           35007        IMPULCHK           CAF      BIT9                                  #  CHECK FOR IMPULSIVE BURN
030193,000513: 24,2641           70076                           MASK     FLAGWRD2                              
030194,000514: 24,2642           10000                           CCS      A                                     
030195,000515: 24,2643           12733                           TCF      IMPLBURN                              #  IMPULSIVE
030196,000516: 24,2644           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
030197,000517: 24,2645           75003                           MASK     BIT13                                 
030198,000518: 24,2646           26102                           ADS      FLAGWRD6                              
030199,000519: 
030200,000520: 24,2647           44105        PREPTVC            CS       OCT60000                              #  RESET T5 BITS
030201,000521: 24,2650           70102                           MASK     FLAGWRD6                              
030202,000522: 24,2651           54102                           TS       FLAGWRD6                              
030203,000523: 
030204,000524: 24,2652           00006                           EXTEND                                         #  KILL RCS
030205,000525: 24,2653           32433                           DCA      T5IDL24                               
030206,000526: 24,2654           53313                           DXCH     T5LOC                                 
030207,000527: 
030208,000528: 24,2655           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
030209,000529: 24,2656           04114                           TC       NEWPHASE                              
030210,000530: 24,2657           00004                           OCT      4                                     
030211,000531: 

Page 696

030213,000533: 24,2660           05267                           TC       FIXDELAY                              
030214,000534: 24,2661           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
030215,000535: 
030216,000536: 24,2662           45017        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
030217,000537: 24,2663           55644                           TS       TVCPHASE                              
030218,000538: 24,2664           35021                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
030219,000539: 24,2665           55651                           TS       TVCEXPHS                              
030220,000540: 24,2666           44105                           CS       OCT60000                              #  SET T5 BITS TO INDICATE TVC TAKEOVER ....
030221,000541: 24,2667           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
030222,000542: 24,2670           65001                           AD       BIT15                                 
030223,000543: 24,2671           54102                           TS       FLAGWRD6                              
030224,000544: 
030225,000545: 24,2672           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
030226,000546: 24,2673           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
030227,000547: 24,2674           40000                           COM                                            
030228,000548: 24,2675           52765                           DXCH     -PHASE6                               
030229,000549: 
030230,000550: 24,2676           00006                           EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
030231,000551: 24,2677           41571                           DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
030232,000552: 24,2700           53703                           DXCH     ERRBTMP                               
030233,000553: 
030234,000554: 24,2701           45022                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
030235,000555: 24,2702           04114                           TC       NEWPHASE                              
030236,000556: 24,2703           00004                           OCT      4                                     
030237,000557: 
030238,000558: 24,2704           34777                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
030239,000559: 24,2705           54030                           TS       TIME5                                 
030240,000560: 24,2706           00006                           EXTEND                                         
030241,000561: 24,2707           33067                           DCA      TVCON2C                               #  (TVCDAPON)
030242,000562: 24,2710           53313                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
030243,000563: 
030244,000564: 24,2711           05267                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
030245,000565: 24,2712           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
030246,000566: 
030247,000567: 24,2713           35003        DOSTRULL           CAF      BIT13                                 #  CHECK STRULLSW FOR IMPULSIVE BURN
030248,000568: 24,2714           70102                           MASK     FLAGWRD6                              
030249,000569: 24,2715           10000                           CCS      A                                     
030250,000570: 24,2716           02724                           TCR      STEERULL                              #  NON-IMPULSIVE, STEERING AND ULLAGE OFF
030251,000571: 24,2717           02727                           TCR      ULAGEOFF                              #  ULLAGE OFF (ONLY, OR AGAIN)
030252,000572: 
030253,000573: 24,2720           00006                           EXTEND                                         
030254,000574: 24,2721           35021                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0,+0)
030255,000575: 24,2722           52761                           DXCH     -PHASE4                               
030256,000576: 
030257,000577: 24,2723           15324        ENDIGN             TCF      TASKOVER                              
030258,000578: 
030259,000579: 24,2724           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
030260,000580: 24,2725           75005                           MASK     BIT11                                 
030261,000581: 24,2726           26076                           ADS      FLAGWRD2                              
030262,000582: 

Page 697

030264,000584: 
030265,000585: 24,2727           35021        ULAGEOFF           CAF      ZERO                                  
030266,000586: 24,2730           00006                           EXTEND                                         
030267,000587: 24,2731           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5
030268,000588: 24,2732           00002                           TC       Q                                     
030269,000589: 
030270,000590: 24,2733           45003        IMPLBURN           CS       BIT13                                 #  RESET STRULLSW (COULD BE AN IMPULSIVE
030271,000591: 24,2734           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
030272,000592: 24,2735           54102                           TS       FLAGWRD6                              
030273,000593: 
030274,000594: 24,2736           03366                           TCR      E7SETTER                              
030275,000595: 
030276,000596: 24,2737  E7,1412                                  EBANK=   TIG                                   
030277,000597: 24,2737           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
030278,000598: 24,2740           31430                           DCA      TGO                                   
030279,000599: 24,2741           53413                           DXCH     TIG                                   
030280,000600: 24,2742           00006                           EXTEND                                         
030281,000601: 24,2743           30025                           DCA      TIME2                                 
030282,000602: 24,2744           21413                           DAS      TIG                                   
030283,000603: 
030284,000604: 24,2745           05372                           TC       2PHSCHNG                              
030285,000605: 24,2746           40153                           OCT      40153                                 #  A,3.15 = ENGINOFF (TGO+1)....NOTE GROUP
030286,000606: 24,2747           07014                           OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
030287,000607: 24,2750           77777                           DEC      -0         B-14                       #  -0 CS
030288,000608: 24,2751  E6,1466                                  EBANK=   DAPDATR1                              
030289,000609: 24,2751           02757 50066                     2CADR    IMPLCONT                              
030290,000610: 
030291,000611: 24,2753           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
030292,000612: 24,2754           05245                           TC       WAITLIST                              
030293,000613: 24,2755  E7,1427                                  EBANK=   TGO                                   
030294,000614: 24,2755           02766 50067                     2CADR    ENGINOFF                              
030295,000615: 
030296,000616: 24,2757           45007        IMPLCONT           CS       BIT9                                  #  RESET IMPULSW, ENGINOFF IS NOW SET UP
030297,000617: 24,2760           70076                           MASK     FLAGWRD2                              
030298,000618: 24,2761           54076                           TS       FLAGWRD2                              
030299,000619: 
030300,000620: 24,2762           03371                           TCR      E6SETTER                              
030301,000621: 24,2763  E6,1466                                  EBANK=   DAPDATR1                              
030302,000622: 
030303,000623: 24,2763           35021                           CAF      ZERO                                  #  SET UP V97VCNTR IN CASE ENGINOFF (MASS-
030304,000624: 24,2764           55444                           TS       V97VCNTR                              #        BACK) ARRIVES BEFORE TVCDAPON
030305,000625: 
030306,000626: 24,2765           12647                           TCF      PREPTVC                               
030307,000627: 
030308,000628: 24,2766  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
030309,000629: 24,2766           03371        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
030310,000630: 24,2767  E6,1466                                  EBANK=   DAPDATR1                              
030311,000631: 24,2767           31474                           CAE      CSMMASS                               
030312,000632: 24,2770           55652                           TS       MASSTMP                               #  COPYCYCLE FOR MASSBACK

Page 698

030314,000634: 24,2771           05372                           TC       2PHSCHNG                              
030315,000635: 24,2772           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF, DO
030316,000636: 24,2773           40634                           OCT      40634                                 #  A, 4.63 = DOSPSOFF (-0CS)
030317,000637: 24,2774           03017        DOSPSOFF           TCR      SPSOFF                                #  SHUTDOWN SPS, MASS UPDATES, ETC.
030318,000638: 24,2775           42427                           CS       OCT27/24                              #  (OCTAL 27)
030319,000639: 24,2776           04114                           TC       NEWPHASE                              
030320,000640: 24,2777           00004                           OCT      4                                     #  4.27 = DOTVCRCS (250 CS)
030321,000641: 
030322,000642: 24,3000           05267                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
030323,000643: 24,3001           00372                           DEC      250        B-14                       
030324,000644: 
030325,000645: 24,3002           02320        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
030326,000646: 
030327,000647: 24,3003           04740                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
030328,000648: 24,3004           42024                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
030329,000649: 
030330,000650: 24,3005           04740                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
030331,000651: 24,3006           13366                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
030332,000652: 
030333,000653: 24,3007           03071                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
030334,000654: 
030335,000655: 24,3010           05412                           TC       PHASCHNG                              
030336,000656: 24,3011           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
030337,000657: 24,3012           34710                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
030338,000658: 24,3013           05134                           TC       NOVAC                                 
030339,000659: 24,3014  E6,1466                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
030340,000660: 24,3014           02246 50066                     2CADR    POSTBURN                              
030341,000661: 
030342,000662: 24,3016           15324                           TCF      TASKOVER                              
030343,000663: 
030344,000664: 24,3017  E6,1466                                  EBANK=   DAPDATR1                              
030345,000665: 24,3017           00006        SPSOFF             EXTEND                                         #  ESTABLISH SPSOFF TEVENT
030346,000666: 24,3020           30025                           DCA      TIME2                                 
030347,000667: 24,3021           53337                           DXCH     TEVENT                                
030348,000668: 24,3022           45011                           CS       BIT7                                  #  RESET ENGONFLG
030349,000669: 24,3023           70101                           MASK     FLAGWRD5                              
030350,000670: 24,3024           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
030351,000671: 24,3025           45003                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
030352,000672: 24,3026           00006                           EXTEND                                         
030353,000673: 24,3027           03011                           WAND     DSALMOUT                              
030354,000674: 
030355,000675: 24,3030           35002                           CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
030356,000676: 24,3031           00006                           EXTEND                                         #  FOR POSSIBLE BACK-UP USE
030357,000677: 24,3032           05012                           WOR      CHAN12                                
030358,000678: 24,3033           31444        MASSBACK           CAE      V97VCNTR                              #  RESTORE PART OF PRE-DECREMENTED MASS
030359,000679:                                                                                                  #        V97VCNTR = VCNTR UNLESS V97 IS
030360,000680:                                                                                                  #        ACTIVE.  ONLY V97VCNTR IS THEN RIGHT
030361,000681: 24,3034           00006                           EXTEND                                         #  VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
030362,000682: 24,3035           70110                           MP       EMDOT                                 #        MDOT, SC.AT B+3 KG/CS
030363,000683: 24,3036           22000                           LXCH     A                                     

Page 699

030365,000685: 24,3037           00006                           EXTEND                                         
030366,000686: 24,3040           75041                           MP       1SEC                                  #  DEC 100
030367,000687: 24,3041           61652                           AD       MASSTMP                               #  CORRECTION IS ACCURATE TO 5 CS OF FLOW
030368,000688: 24,3042           55474                           TS       CSMMASS                               #        (1.44 KG OR 0.4 BITS)
030369,000689: 
030370,000690: 24,3043           31644                           CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
030371,000691: 24,3044           65017                           AD       ONE                                   #        THESE CHECKS ARE ONLY NEEDED
030372,000692: 24,3045           00006                           EXTEND                                         #        FOR A LESS THAN 0.4 SEC BURN
030373,000693: 24,3046           13057                           BZF      BTRIMR                                #  NO.  INITIALIZATION NOT COMPLETE
030374,000694: 24,3047           40102                           CS       FLAGWRD6                              #  YES, CHECK IF TVC
030375,000695: 24,3050           74105                           MASK     OCT60000                              
030376,000696: 24,3051           00006                           EXTEND                                         
030377,000697: 24,3052           63057                           BZMF     BTRIMR                                #  NO, NOT TVC YET       
030378,000698: 24,3053           31601        BESTTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
030379,000699: 24,3054           55423                           TS       PACTOFF                               
030380,000700: 24,3055           31603                           CAE      DELYBAR                               
030381,000701: 24,3056           55424                           TS       YACTOFF                               
030382,000702: 24,3057           00002        BTRIMR             TC       Q                                     
030383,000703: 24,3060  E6,1466                                  EBANK=   DAPDATR1                              
030384,000704: 24,3060           03205 50066  STEERADS           2CADR    STEERING                              
030385,000705: 
030386,000706: 24,3062           37703        .6SECT5            OCT      37703                                 
030387,000707: 24,3063           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
030388,000708: 24,3064           00764        5SEC               DEC      500        B-14                       
030389,000709: 24,3065           02202        OCT02202           OCT      02202                                 #  BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
030390,000710: 24,3066  E6,1466                                  EBANK=   DAPDATR1                              
030391,000711: 24,3066           02153 36066  TVCON2C            2CADR    TVCDAPON                              
030392,000712: 
030393,000713: 24,3070           00004                 -1        INHINT                                         
030394,000714: 24,3071           43065        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
030395,000715: 24,3072           00006                           EXTEND                                         #        OPTICS DAC
030396,000716: 24,3073           03012                           WAND     CHAN12                                
030397,000717: 24,3074           45017                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR .... PERMIT
030398,000718: 24,3075           55303                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
030399,000719: 24,3076           35021                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
030400,000720: 24,3077           55145                           TS       NVWORD1                               
030401,000721: 24,3100           45005                           CS       BIT11                                 #  CLEAR TIMRFLAG TO STOP CLOKTASK
030402,000722: 24,3101           70103                           MASK     FLAGWRD7                              
030403,000723: 24,3102           54103                           TS       FLAGWRD7                              
030404,000724: 24,3103           00002                           TC       Q                                     
030405,000725: 24,3104  E6,1466                                  EBANK=   DAPDATR1                              
030406,000726: 24,3104           43020        UPDATEVG           STQ      BON                                   
030407,000727: 24,3105           03730                                    QTEMP1                                
030408,000728: 24,3106           01307                                    XDELVFLG                              
030409,000729: 24,3107           51133                                    CALL40.8                              
030410,000730: 
030411,000731: 24,3110           50135                           SLOAD    BMN                                   
030412,000732: 24,3111           03343                                    NBRCYCLS                              
030413,000733: 24,3112           51137                                    SETUP.9                               

Page 700

030415,000735: 
030416,000736: 24,3113           53375                           VLOAD    VAD                                   
030417,000737: 24,3114           03345                                    DELVSUM                               
030418,000738: 24,3115           03433                                    DELVREF                               
030419,000739: 24,3116           03353                           STORE    DELVSUMP                              
030420,000740: 24,3117           77776                           EXIT                                           
030421,000741: 24,3120           35017                           CA       ONE                                   
030422,000742: 24,3121           61742                           AD       NBRCYCLS                              
030423,000743: 24,3122           55743                           TS       NBRCYCLP                              
030424,000744: 
030425,000745: 24,3123           05412                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
030426,000746: 24,3124           10035                           OCT      10035                                 
030427,000747: 
030428,000748: 24,3125           31743                           CA       NBRCYCLP                              
030429,000749: 24,3126           55742                           TS       NBRCYCLS                              
030430,000750: 24,3127           06006                           TC       INTPRET                               
030431,000751: 24,3130           77775                           VLOAD                                          
030432,000752: 24,3131           03353                                    DELVSUMP                              
030433,000753: 24,3132           03345                           STORE    DELVSUM                               
030434,000754: 
030435,000755: 24,3133           77624        CALL40.8           CALL                                           
030436,000756: 24,3134           34150                                    S40.8                                 
030437,000757: 24,3135           77650                           GOTO                                           
030438,000758: 24,3136           03730                                    QTEMP1                                
030439,000759: 
030440,000760: 24,3137           67214        SETUP.9            BON      SLOAD                                 
030441,000761: 24,3140           01310                                    FIRSTFLG                              
030442,000762: 24,3141           51154                                    SURELY.9                              
030443,000763: 24,3142           03344                                    NBRCYCLP                              
030444,000764: 24,3143           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
030445,000765: 24,3144           00047                                    X1                                    
030446,000766: 24,3145           03705                                    BDT                                   
030447,000767: 24,3146           53257                           VSR*     VAD                                   
030448,000768: 24,3147           20563                                    0          -14D,1                     
030449,000769: 24,3150           03646                                    VGTEMP                                
030450,000770: 24,3151           77651                           VSU                                            
030451,000771: 24,3152           03345                                    DELVSUM                               
030452,000772: 24,3153           03721                           STORE    VGPREV                                
030453,000773: 24,3154           77776        SURELY.9           EXIT                                           
030454,000774: 24,3155           35003                           CAF      PRIO10                                
030455,000775: 24,3156           05147                           TC       FINDVAC                               
030456,000776: 24,3157  E6,1466                                  EBANK=   DAPDATR1                              
030457,000777: 24,3157           02277 34066                     2CADR    S40.9                                 
030458,000778: 
030459,000779: 24,3161           05372                           TC       2PHSCHNG                              
030460,000780: 24,3162           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
030461,000781: 24,3163           10035                           OCT      10035                                 
030462,000782: 24,3164           06006                           TC       INTPRET                               
030463,000783: 24,3165           77775                           VLOAD                                          
030464,000784: 24,3166           01171                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
030465,000785: 24,3167           27570                           STOVL    RINIT                                 

Page 701

030467,000787: 24,3170           01177                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
030468,000788: 24,3171           17576                           STODL    VINIT                                 
030469,000789: 24,3172           01205                                    PIPTIME                               
030470,000790: 24,3173           03474                           STORE    TNIT                                  
030471,000791: 24,3174           77621                           BDSU                                           
030472,000792: 24,3175           03656                                    TPASS4                                
030473,000793: 24,3176           27423                           STOVL    DELLT4                                
030474,000794: 24,3177           15335                                    HI6ZEROS                              
030475,000795: 24,3200           17345                           STODL    DELVSUM                               
030476,000796: 24,3201           15335                                    HI6ZEROS                              
030477,000797: 24,3202           03343                           STORE    NBRCYCLS                              
030478,000798: 24,3203           77650                           GOTO                                           
030479,000799: 24,3204           51133                                    CALL40.8                              
030480,000800: 24,3205  E6,1466                                  EBANK=   DAPDATR1                              
030481,000801: 24,3205           06006        STEERING           TC       INTPRET                               
030482,000802: 24,3206           77624                           CALL                                           
030483,000803: 24,3207           51104                                    UPDATEVG                              
030484,000804: 24,3210           77776                           EXIT                                           
030485,000805: 24,3211           35007                           CAF      BIT9                                  #  CHECK IMPULSW
030486,000806: 24,3212           70076                           MASK     FLAGWRD2                              
030487,000807: 24,3213           10000                           CCS      A                                     
030488,000808: 24,3214           13217                           TCF      +3                                    #  PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
030489,000809: 24,3215           04701        SERVXT             TC       POSTJUMP                              
030490,000810: 24,3216           77226                           CADR     SERVEXIT                              
030491,000811: 24,3217           35003                           CAF      BIT13                                 #  CHECK ENGINE-ON/-OFF
030492,000812: 24,3220           00006                           EXTEND                                         
030493,000813: 24,3221           02011                           RAND     DSALMOUT                              
030494,000814: 24,3222           00006                           EXTEND                                         
030495,000815: 24,3223           13215                           BZF      SERVXT                                #  ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
030496,000816: 24,3224           03366                           TCR      E7SETTER                              
030497,000817: 24,3225  E7,1412                                  EBANK=   TIG                                   
030498,000818: 24,3225           00004                           INHINT                                         
030499,000819: 24,3226           00006                           EXTEND                                         
030500,000820: 24,3227           31413                           DCA      TIG                                   
030501,000821: 24,3230           52155                           DXCH     MPAC                                  
030502,000822: 24,3231           00006                           EXTEND                                         
030503,000823: 24,3232           40025                           DCS      TIME2                                 
030504,000824: 24,3233           20155                           DAS      MPAC                                  
030505,000825: 24,3234           07224                           TCR      DPAGREE                               
030506,000826: 24,3235           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
030507,000827: 24,3236           10000                           CCS      A                                     #  PROTECT AGAINST NEG/ZRO W.L. CALL
030508,000828: 24,3237           13242                           TCF      +3                                    
030509,000829: 24,3240           13242                           TCF      +2                                    
030510,000830: 24,3241           35021                           CAF      ZERO                                  
030511,000831: 24,3242           65017                           AD       ONE                                   
030512,000832: 24,3243           56001                           XCH      L                                     
030513,000833: 24,3244           35021                           CA       ZERO                                  
030514,000834: 24,3245           53430                           DXCH     TGO                                   
030515,000835: 24,3246           31430                           CA       TGO        +1                         
030516,000836: 24,3247           05245                           TC       WAITLIST                              

Page 702

030518,000838: 24,3250  E7,1427                                  EBANK=   TGO                                   
030519,000839: 24,3250           02766 50067                     2CADR    ENGINOFF                              
030520,000840: 
030521,000841: 24,3252           05372                           TC       2PHSCHNG                              
030522,000842: 24,3253           40153                           OCT      40153                                 #  A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
030523,000843: 24,3254           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
030524,000844: 24,3255           05560                           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
030525,000845: 24,3256           00044                           ADRES    IMPULSW                               #  RESTARTS OK
030526,000846: 24,3257           13215                           TCF      SERVXT                                
030527,000847: 

Page 703

030529,000849:                                                                                                  #  ROUTINE ** CLOKTASK ** DESCRIPTION
030530,000850: 
030531,000851: 24,3260  E7,1412                                  EBANK=   TIG                                   
030532,000852: 24,3260           35005        CLOKTASK           CAF      BIT11                                 #  IS TIMRFLAG SET
030533,000853: 24,3261           70103                           MASK     FLAGWRD7                              
030534,000854: 24,3262           10000                           CCS      A                                     
030535,000855: 24,3263           13267                           TCF      CLOCKON                               
030536,000856: 24,3264           05412                           TC       PHASCHNG                              
030537,000857: 24,3265           00006                           OCT      00006                                 #  KILL RESTART
030538,000858: 24,3266           05324                           TC       TASKOVER                              
030539,000859: 
030540,000860: 24,3267           00006        CLOCKON            EXTEND                                         
030541,000861: 24,3270           30025                           DCA      TIME2                                 
030542,000862: 24,3271           53661                           DXCH     TTOGO                                 
030543,000863: 24,3272           00006                           EXTEND                                         
030544,000864: 24,3273           41413                           DCS      TIG                                   
030545,000865: 24,3274           21661                           DAS      TTOGO                                 
030546,000866: 
030547,000867: 24,3275           35041        SETCLOCK           CAF      1SEC                                  
030548,000868: 24,3276           05245                           TC       WAITLIST                              
030549,000869: 24,3277  E7,1412                                  EBANK=   TIG                                   
030550,000870: 24,3277           03260 50067                     2CADR    CLOKTASK                              
030551,000871: 
030552,000872: 24,3301           11145                           CCS      NVWORD1                               
030553,000873: 24,3302           13305                           TCF      +3                                    
030554,000874: 24,3303           13315                           TCF      SETTB6                                
030555,000875: 
030556,000876: 24,3304           13305                           TCF      +1                                    
030557,000877: 24,3305           42423                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
030558,000878: 24,3306           61145                           AD       NVWORD1                               
030559,000879: 24,3307           00006                           EXTEND                                         
030560,000880: 24,3310           13320                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
030561,000881: 
030562,000882: 24,3311           37664                           CAF      PRIO27                                
030563,000883: 24,3312           05134                           TC       NOVAC                                 
030564,000884: 24,3313  E6,1466                                  EBANK=   DAPDATR1                              
030565,000885: 24,3313           03332 50066                     2CADR    CLOCKJOB                              
030566,000886: 
030567,000887: 24,3315           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
030568,000888: 24,3316           55065                           TS       TBASE6                                
030569,000889: 24,3317           15324                           TCF      TASKOVER                              
030570,000890: 
030571,000891: 24,3320           37664        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
030572,000892: 24,3321           05147                           TC       FINDVAC                               
030573,000893: 24,3322  E6,1466                                  EBANK=   DAPDATR1                              
030574,000894: 24,3322           03325 50066                     2CADR    DYNDISP                               
030575,000895: 
030576,000896: 24,3324           13315                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK

Page 704

030578,000898: 24,3325           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
030579,000899: 24,3326           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
030580,000900: 24,3327           50370                                    P40CNV85                              
030581,000901: 24,3330           77776                           EXIT                                           
030582,000902: 24,3331           13342                           TCF      CKNVWRD1                              
030583,000903: 

Page 705

030585,000905:                                                                                                  #  ROUTINE ** CLOCKJOB ** DESCRIPTION
030586,000906: 
030587,000907: 24,3332  E6,1466                                  EBANK=   DAPDATR1                              
030588,000908: 24,3332           30032        CLOCKJOB           CA       CDUX                                  
030589,000909: 24,3333           54772                           TS       CDUSPOTX                              
030590,000910: 24,3334           30033                           CA       CDUY                                  
030591,000911: 24,3335           54766                           TS       CDUSPOTY                              
030592,000912: 24,3336           30034                           CA       CDUZ                                  
030593,000913: 24,3337           54770                           TS       CDUSPOTZ                              
030594,000914: 24,3340           04662                           TC       BANKCALL                              
030595,000915: 24,3341           47555                           CADR     QUICTRIG                              
030596,000916: 24,3342           00004        CKNVWRD1           INHINT                                         
030597,000917: 24,3343           11145                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
030598,000918: 24,3344           13363                           TCF      NOFLASH                               
030599,000919: 24,3345           15217                           TCF      ENDOFJOB                              
030600,000920: 24,3346           13355                           TCF      ENGREQST                              #  SPS ENGINE-ON-ENABLE V99 FLASH
030601,000921: 24,3347           32425        FAILDSP            CAF      V06N40                                #  SPS ENGINE-FAILED V97 FLASH
030602,000922: 24,3350           04662                           TC       BANKCALL                              
030603,000923: 24,3351           20715                           CADR     CLOCPLAY                              
030604,000924: 24,3352           13432                           TCF      V97T                                  #  TERMINATE
030605,000925: 24,3353           13465                           TCF      V97P                                  #  PROCEED
030606,000926: 24,3354           13514                           TCF      V97E                                  #  ENTER
030607,000927: 
030608,000928: 24,3355           32425        ENGREQST           CAF      V06N40                                
030609,000929: 24,3356           04662                           TC       BANKCALL                              
030610,000930: 24,3357           20715                           CADR     CLOCPLAY                              
030611,000931: 24,3360           13402                           TCF      V99T                                  #  TERMINATE
030612,000932: 24,3361           13410                           TCF      V99P                                  #  PROCEED
030613,000933: 24,3362           13374                           TCF      V99E                                  #  ENTER
030614,000934: 
030615,000935: 24,3363           31145        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
030616,000936: 24,3364           04662                           TC       BANKCALL                              
030617,000937: 24,3365           20707                           CADR     REGODSP                               
030618,000938: 
030619,000939: 24,3366           35060        E7SETTER           CAF      EBANK7                                
030620,000940: 24,3367           54003                           TS       EBANK                                 
030621,000941: 24,3370  E7,1412                                  EBANK=   TIG                                   
030622,000942: 24,3370           00002                           TC       Q                                     
030623,000943: 
030624,000944: 24,3371           35057        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
030625,000945: 24,3372           54003                           TS       EBANK                                 
030626,000946: 24,3373  E6,1466                                  EBANK=   DAPDATR1                              
030627,000947: 24,3373           00002                           TC       Q                                     
030628,000948: 
030629,000949: 24,3374  E6,1466                                  EBANK=   DAPDATR1                              
030630,000950: 24,3374           05372        V99E               TC       2PHSCHNG                              
030631,000951: 24,3375           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
030632,000952: 24,3376           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW

Page 706

030634,000954: 24,3377           27000                           OCT      27000                                 
030635,000955: 24,3400           03070        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
030636,000956: 24,3401           12254                           TCF      P40RCS                                #  V16N85 POST-BURN OPERATIONS
030637,000957: 
030638,000958: 24,3402  E6,1466                                  EBANK=   DAPDATR1                              
030639,000959: 24,3402           05372        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
030640,000960: 24,3403           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
030641,000961: 24,3404           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
030642,000962: 24,3405           27000                           OCT      27000                                 
030643,000963: 24,3406           03070        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
030644,000964: 24,3407           12275                           TCF      POST41                                #  AVEGEXIT, SETMAXDB, GOTOPOOH
030645,000965: 
030646,000966: 24,3410           00004        V99P               INHINT                                         
030647,000967: 24,3411           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
030648,000968: 24,3412           75004                           MASK     BIT12                                 
030649,000969: 24,3413           10000                           CCS      A                                     
030650,000970: 24,3414           13427                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
030651,000971: 
030652,000972: 24,3415           35004        ASTNV99P           CAF      BIT12                                 #  SET ASTN FLAG
030653,000973: 24,3416           26103                           ADS      FLAGWRD7                              
030654,000974: 24,3417           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
030655,000975: 24,3420           75003                           MASK     BIT13                                 
030656,000976: 24,3421           00006                           EXTEND                                         
030657,000977: 24,3422           13427                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
030658,000978: 
030659,000979: 24,3423           35017        ENDV99PI           CAF      BIT1                                  #  TIG-0 HAS COME ALREADY
030660,000980: 24,3424           05245                           TC       WAITLIST                              #  SET UP IGNITION HERE
030661,000981: 24,3425  E6,1466                                  EBANK=   DAPDATR1                              
030662,000982: 24,3425           02625 50066                     2CADR    IGNITION                              
030663,000983: 
030664,000984: 24,3427           32425        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
030665,000985: 24,3430           55145                           TS       NVWORD1                               
030666,000986: 24,3431           15217        ENDV99P            TCF      ENDOFJOB                              
030667,000987: 
030668,000988: 24,3432  E6,1474                                  EBANK=   CSMMASS                               
030669,000989: 24,3432           05372        V97T               TC       2PHSCHNG                              
030670,000990: 24,3433           00006                           OCT      00006                                 #  KILL GROUP 6 (CLOKTASK)
030671,000991: 24,3434           40674                           OCT      40674                                 #  A, 4.67 = V97TTASK (-0 CS), TBASE NOW
030672,000992: 24,3435           35017                           CAF      BIT1                                  
030673,000993: 24,3436           05235                           TC       TWIDDLE                               
030674,000994: 24,3437           03441                           ADRES    V97TTASK                              #  KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
030675,000995: 24,3440           15217                           TCF      ENDOFJOB                              
030676,000996: 
030677,000997: 24,3441  E6,1474                                  EBANK=   CSMMASS                               
030678,000998: 24,3441           35021        V97TTASK           CAF      ZERO                                  #  DISABLE CLOCKJOB
030679,000999: 24,3442           55145                           TS       NVWORD1                               
030680,001000: 24,3443           32434                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030681,001001: 24,3444           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
030682,001002: 24,3445           55652                           TS       MASSTMP                               #        FAILED.  COPYCYCLE FOR MASSBACK

Page 707

030684,001004: 24,3446           05412                           TC       PHASCHNG                              
030685,001005: 24,3447           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
030686,001006: 24,3450           77777                           DEC      -0         B-14                       #  -0 CS
030687,001007: 
030688,001008: 24,3451           03017                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
030689,001009: 24,3452           05412                           TC       PHASCHNG                              
030690,001010: 24,3453           00714                           OCT      00714                                 #  A, 4.71 = V97TRCS (250 CS), TBASE OLD
030691,001011: 24,3454           05267                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030692,001012: 24,3455           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
030693,001013: 
030694,001014: 24,3456  E6,1466                                  EBANK=   DAPDATR1                              
030695,001015: 24,3456           04740        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030696,001016: 24,3457           42024                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
030697,001017: 24,3460           37664                           CAF      PRIO27                                #  SET UP V99T FOR TVCZAP AND POST41 (SET-
030698,001018: 24,3461           05134                           TC       NOVAC                                 #        MAXDB AND GOTOPOOH)
030699,001019: 24,3462  E6,1466                                  EBANK=   DAPDATR1                              #  EBANK6 FOR SETMAXDB IN POST41
030700,001020: 24,3462           03402 50066                     2CADR    V99T                                  
030701,001021: 
030702,001022: 24,3464           15324        ENDV97T            TCF      TASKOVER                              
030703,001023: 
030704,001024: 24,3465  E6,1444                                  EBANK=   V97VCNTR                              
030705,001025: 24,3465           05412        V97P               TC       PHASCHNG                              
030706,001026: 24,3466           40734                           OCT      40734                                 #  A, 4.73 = V97PTASK (-0 CS), TBASE NOW
030707,001027: 24,3467           35017                           CAF      BIT1                                  
030708,001028: 24,3470           05235                           TC       TWIDDLE                               
030709,001029: 24,3471           03473                           ADRES    V97PTASK                              
030710,001030: 24,3472           15217                           TCF      ENDOFJOB                              
030711,001031: 
030712,001032: 24,3473  E6,1444                                  EBANK=   V97VCNTR                              
030713,001033: 24,3473           31444        V97PTASK           CAE      V97VCNTR                              #  GET MASS UPDATES (TVCEXEC) GOING AGAIN
030714,001034: 24,3474           55643                           TS       VCNTR                                 #        (ERRORS IF FLASE THRUST-LOSS AND/OR
030715,001035:                                                                                                  #        POOR SYNCH OF MANUAL ENGINE-ON AND
030716,001036:                                                                                                  #        THE VERB 97 PROCEED)
030717,001037: 24,3475           32425                           CAF      V06N40                                #  REDISPLAY V06N40
030718,001038: 24,3476           55145                           TS       NVWORD1                               
030719,001039: 24,3477           05546                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
030720,001040: 24,3500           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE S40.8 SYNCH
030721,001041: 24,3501           05546                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
030722,001042: 24,3502           00042                           ADRES    STEERSW                               
030723,001043: 24,3503           05412                           TC       PHASCHNG                              
030724,001044: 24,3504           00134                           OCT      00134                                 #  A, 4.13 = R40ENABL (200 CS), TBASE OLD
030725,001045: 24,3505           05267                           TC       FIXDELAY                              #  WAIT 2 SECONDS, THEN
030726,001046: 24,3506           00310                           DEC      200        B-14                       
030727,001047: 
030728,001048: 24,3507  E7,1777                                  EBANK=   WHOCARES                              
030729,001049: 24,3507           05560        R40ENABL           TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
030730,001050: 24,3510           00030                           ADRES    IDLEFAIL                              
030731,001051: 24,3511           05412                           TC       PHASCHNG                              
030732,001052: 24,3512           00004                           OCT      00004                                 #  KILL GROUP 4

Page 708

030734,001054: 24,3513           15324        ENDV97P            TCF      TASKOVER                              
030735,001055: 
030736,001056: 24,3514  E7,1777                                  EBANK=   WHOCARES                              
030737,001057: 24,3514           05412        V97E               TC       PHASCHNG                              
030738,001058: 24,3515           40534                           OCT      40534                                 #  A, 4.53 = V97ETASK (-0 CS), TBASE NOW
030739,001059: 24,3516           35017                           CAF      BIT1                                  
030740,001060: 24,3517           05245                           TC       WAITLIST                              
030741,001061: 24,3520  E7,1412                                  EBANK=   TIG                                   
030742,001062: 24,3520           03523 50067                     2CADR    V97ETASK                              
030743,001063: 
030744,001064: 24,3522           15217                           TCF      ENDOFJOB                              
030745,001065: 
030746,001066: 24,3523  E7,1412                                  EBANK=   TIG                                   
030747,001067: 24,3523           44112        V97ETASK           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
030748,001068: 24,3524           55412                           TS       TIG                                   
030749,001069: 24,3525           32425                           CAF      V06N40                                #  REDISPLAY V06N40
030750,001070: 24,3526           55145                           TS       NVWORD1                               
030751,001071: 24,3527           03371                           TCR      E6SETTER                              #  RETURN TO EBANK6 FOR REST OF V97ETASK
030752,001072: 24,3530  E6,1474                                  EBANK=   CSMMASS                               
030753,001073: 24,3530           32434                           CAF      3MDOT                                 #  3 SECONDS OF MDOT (2-4 SEC ENGFAIL
030754,001074: 24,3531           61474                           AD       CSMMASS                               #        DETECTION) NOT LOST BECAUSE THRUST
030755,001075: 24,3532           55652                           TS       MASSTMP                               #        FAILED....COPYCYCLE FOR MASSBACK
030756,001076: 24,3533           05412                           TC       PHASCHNG                              
030757,001077: 24,3534           00754                           OCT      00754                                 #  A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
030758,001078: 24,3535           03017        SPSOFF97           TCR      SPSOFF                                
030759,001079: 24,3536           05412                           TC       PHASCHNG                              
030760,001080: 24,3537           00114                           OCT      00114                                 #  A, 4.11 = V97E40.6 (250 CS), TBASE OLD
030761,001081: 24,3540           05267                           TC       FIXDELAY                              #  DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
030762,001082: 24,3541           00372                           DEC      250        B-14                       #        OFF (FALSE THRUST-LOSS)
030763,001083: 
030764,001084: 24,3542  E6,1466                                  EBANK=   DAPDATR1                              
030765,001085: 24,3542           35017        V97E40.6           CAF      BIT1                                  
030766,001086: 24,3543           05245                           TC       WAITLIST                              
030767,001087: 24,3544  E6,1447                                  EBANK=   CNTR                                  
030768,001088: 24,3544           02241 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
030769,001089: 
030770,001090: 24,3546           04740                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
030771,001091: 24,3547           42024                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
030772,001092:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
030773,001093: 
030774,001094: 24,3550           05372                           TC       2PHSCHNG                              
030775,001095: 24,3551           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
030776,001096: 24,3552           05014                           OCT      05014                                 #  C, DELTAT NEXT, TASK BELOW, IN
030777,001097: 24,3553           77777                           DEC      -0         B-14                       #  -0 CS
030778,001098: 
030779,001099: 24,3554           45066        QUICKIGN           CS       PRIO14                                #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
030780,001100: 24,3555           70103                           MASK     FLAGWRD7                              #        IMMEDIATE V99 RESPONSE
030781,001101: 24,3556           65003                           AD       BIT13                                 
030782,001102: 24,3557           54103                           TS       FLAGWRD7                              
030783,001103: 24,3560           05267                           TC       FIXDELAY                              #  DELAY TO ALLOW TIME FOR PRE40.6

Page 709

030785,001105: 24,3561           00036                           DEC      30         B-14                       
030786,001106: 
030787,001107: 24,3562           45007        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
030788,001108: 24,3563           55145                           TS       NVWORD1                               
030789,001109: 24,3564           05372                           TC       2PHSCHNG                              
030790,001110: 24,3565           40774                           OCT      40774                                 #  A, 4.77 = TIG-0 (-0 CS) TBASE FOR PREPTVC
030791,001111: 24,3566           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
030792,001112: 24,3567           35002                           CAF      PRIO20                                #  SET UP TIMEBURN
030793,001113: 24,3570           05147                           TC       FINDVAC                               
030794,001114: 24,3571  E7,1427                                  EBANK=   TGO                                   
030795,001115: 24,3571           02424 34067                     2CADR    S40.13                                
030796,001116: 
030797,001117: 24,3573           15324        ENDV97E            TCF      TASKOVER                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
030798,001118:                                                                                                  #        TO FLASHING V99 RESPONSE
030799,001119: 
030800,001120:                                                                                                  #  MOD NO2                               LOG SECTION P40-P47
030801,001121:                                                                                                  #  MOD BY ZELDIN
030802,001122: 
030803,001123:                                                                                                  #  FUNCTIONAL DESCRIPTION
030804,001124:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
030805,001125:                                                                                                  #        VECTOR(VGTIG).
030806,001126: 
030807,001127:                                                                                                  #  CALLING SEQUENCE
030808,001128:                                                                                                  #        L       CALL
030809,001129:                                                                                                  #        L+1             S40.1
030810,001130: 
030811,001131:                                                                                                  #  NORMAL EXIT MODE
030812,001132:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
030813,001133:                                                                                                  #        ERROR RETURN IF NOSOFLAG =1
030814,001134: 
030815,001135:                                                                                                  #  SUBROUTINES CALLED
030816,001136:                                                                                                  #        CSMPREC
030817,001137:                                                                                                  #        INITVEL
030818,001138:                                                                                                  #        CALCGRAV
030819,001139:                                                                                                  #        MIDGIM
030820,001140: 
030821,001141:                                                                                                  #  ALARM OR ABORT EXIT MODES
030822,001142:                                                                                                  #        L+2 OF CALLING SEQUENCE, UNSOLVABLE CONIC IF NOSOFLAG=1
030823,001143: 
030824,001144:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030825,001145:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP B16 KGM
030826,001146:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
030827,001147:                                                                                                  #    IF DELTA-V MANEUVER
030828,001148:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
030829,001149:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
030830,001150:                                                                                                  #                        AT TIME OF IGNITION             VECTOR B7 M/CS
030831,001151:                                                                                                  #        DELVSAB         MAG. OF DELVSIN                 DP B7 M/CS
030832,001152:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECTOR B29 M
030833,001153:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION    VECTOR B7 M/CS
030834,001154:                                                                                                  #        CSTEER = 0                                      DP
030835,001155:                                                                                                  #    IF AIMPOINT STEERING
030836,001156:                                                                                                  #    IF AIMPT STEER
030837,001157:                                                                                                  #        TIG             TIME OF IGNITION                DP B28 CS
030838,001158:                                                                                                  #        RTARG           POSITION TARGET TIME            VECTOR B29 M
030839,001159:                                                                                                  #        CSTEER = ECSTEER (GR 0)                         DP B1

Page 710

030841,001161:                                                                                                  #        TPASS4 - TIME OF ARRIVAL AT AIMPOINT
030842,001162: 
030843,001163:                                                                                                  #  OUTPUT
030844,001164:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030845,001165:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
030846,001166:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR B7 M/CS
030847,001167:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.             B7 M/CS
030848,001168:                                                                                                  #        F               NOMINAL THRUST FOR ENG USED FOR S40.13  DP B7 M-NEWT
030849,001169:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030850,001170:                                                                                                  #        -GDT            FOR S40.13                              VECT B7 M/CS
030851,001171:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR B29M
030852,001172:                                                                                                  #                        POSITION AT TIME OF IGNITION
030853,001173: 
030854,001174:                                                                                                  #  DEBRIS        QTEMP1
030855,001175:                                                                                                  #                MPAC, QPRET
030856,001176:                                                                                                  #                PUSHLIST
030857,001177:                                                                                                  #                RTX2,RTX1
030858,001178: 
030859,001179: 14,2011                                           BANK     14                                    
030860,001180: 16,2000                                           SETLOC   P40S1                                 
030861,001181: 16,2000                                           BANK                                           
030862,001182: 
030863,001183: 16,2020                                           COUNT    16/S40.1                              
030864,001184: 
030865,001185: 16,2020           77214        S40.1              SET      VLOAD                                 
030866,001186: 16,2021           01070                                    FIRSTFLG                              
030867,001187: 16,2022           11563                                    LO6ZEROS                              
030868,001188: 16,2023           03705                           STORE    BDT                                   
030869,001189: 16,2024           43020                           STQ      BOF                                   
030870,001190: 16,2025           03657                                    QTEMP                                 
030871,001191: 16,2026           01347                                    XDELVFLG                              
030872,001192: 16,2027           34113                                    S40.1B                                #  LAMBERT
030873,001193: 16,2030           45001                           SETPD    CALL                                  #  EXTERNAL DELTA V
030874,001194: 16,2031           00001                                    0                                     
030875,001195: 16,2032           35715                                    S40.1A                                #  JUMP TO END OF BANK TO CALCULATE DELVSAB 
030876,001196:                                                                                                  #        THUS PERMITTING MODULE-ONLY CHANGE
030877,001197: 16,2033           03576                           STORE    VINIT                                 
030878,001198: 16,2034           53435                           VXV      UNIT                                  
030879,001199: 16,2035           03632                                    RTIG                                  
030880,001200: 16,2036           27713                           STOVL    UT                                    #  UP IN UT
030881,001201: 16,2037           03632                                    RTIG                                  
030882,001202: 16,2040           03570                           STORE    RINIT                                 
030883,001203: 16,2041           65236                           VSQ      PDDL                                  
030884,001204: 16,2042           00045                                    36D                                   
030885,001205: 16,2043           56205                           DMP      DDV                                   
030886,001206: 16,2044           34147                                    THETACON                              
030887,001207: 16,2045           41205                           DMP      DMP                                   
030888,001208: 16,2046           03654                                    DELVSAB                               
030889,001209: 16,2047           03076                                    WEIGHT/G                              
030890,001210: 16,2050           77671                           DDV                                            

Page 711

030892,001212: 16,2051           03727                                    F                                     
030893,001213: 16,2052           24017                           STOVL    14D                                   
030894,001214: 16,2053           03646                                    DELVSIN                               
030895,001215: 
030896,001216: 16,2054           74241                           DOT      VXSC                                  
030897,001217: 16,2055           03713                                    UT                                    
030898,001218: 16,2056           03713                                    UT                                    
030899,001219: 16,2057           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030900,001220: 16,2060           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
030901,001221: 16,2061           03646                                    DELVSIN                               
030902,001222: 16,2062           00017                                    14D                                   
030903,001223: 16,2063           63356                           SIN      PDVL                                  
030904,001224: 16,2064           00007                                    6D                                    
030905,001225: 16,2065           53435                           VXV      UNIT                                  
030906,001226: 16,2066           03713                                    UT                                    
030907,001227: 16,2067           45561                           VXSC     STADR                                 
030908,001228: 16,2070           50056                           STOVL    VGTIG                                 #  UNIT(VPXUP)SIN(THETAT) IN VGTIG
030909,001229: 16,2071           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
030910,001230: 16,2072           00017                                    14D                                   
030911,001231: 16,2073           74346                           COS      VXSC                                  
030912,001232: 16,2074           74255                           VAD      VXSC                                  
030913,001233: 16,2075           03721                                    VGTIG                                 
030914,001234: 16,2076           00045                                    36D                                   
030915,001235: 16,2077           53352                           VSL2     VAD                                   
030916,001236: 16,2100           77626                           STADR                                          
030917,001237: 16,2101           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
030918,001238: 
030919,001239: 16,2102           77656                           UNIT                                           
030920,001240: 16,2103           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
030921,001241: 16,2104           03721                                    VGTIG                                 
030922,001242: 16,2105           43006                           PUSH     SET                                   
030923,001243: 16,2106           01072                                    AVFLAG                                
030924,001244: 16,2107           77624                           CALL                                           
030925,001245: 16,2110           10647                                    MIDGIM                                #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030926,001246: 16,2111           77650                           GOTO                                           
030927,001247: 16,2112           03657                                    QTEMP                                 
030928,001248: 16,2113           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
030929,001249: 16,2114           03413                                    TIG                                   
030930,001250: 16,2115           36001                                    TWODT                                 
030931,001251: 16,2116           14041                           STODL    TDEC1                                 
030932,001252: 16,2117           03656                                    TPASS4                                
030933,001253: 16,2120           77625                           DSU                                            
030934,001254: 16,2121           00041                                    TDEC1                                 
030935,001255: 16,2122           37423                           STCALL   DELLT4                                
030936,001256: 16,2123           61651                                    AGAIN                                 
030937,001257: 16,2124           77775                           VLOAD                                          
030938,001258: 16,2125           03612                                    VIPRIME                               
030939,001259: 16,2126           17713                           STODL    UT                                    
030940,001260: 16,2127           03413                                    TIG                                   
030941,001261: 16,2130           00041                           STORE    TDEC1                                 

Page 712

030943,001263: 16,2131           77621                           BDSU                                           
030944,001264: 16,2132           03656                                    TPASS4                                
030945,001265: 16,2133           37423                           STCALL   DELLT4                                
030946,001266: 16,2134           61651                                    AGAIN                                 
030947,001267: 16,2135           41575                           VLOAD    PUSH                                  
030948,001268: 16,2136           03646                                    DELVEET3                              
030949,001269: 16,2137           03721                           STORE    VGTIG                                 
030950,001270: 16,2140           45014                           SET      CALL                                  
030951,001271: 16,2141           01072                                    AVFLAG                                
030952,001272: 16,2142           10647                                    MIDGIM                                
030953,001273: 16,2143           52001                           SETPD    GOTO                                  
030954,001274: 16,2144           00001                                    0                                     
030955,001275: 16,2145           61704                                    CALCUT                                
030956,001276: 
030957,001277: 16,2146           00024 13714  THETACON           2DEC     .31830989  B-8                        
030958,001278: 
030959,001279: 30,2000                                           SETLOC   P40S3                                 
030960,001280: 30,2000                                           BANK                                           
030961,001281: 
030962,001282: 30,3645                                           COUNT    24/S40.1                              
030963,001283: 
030964,001284: 30,3645           04000 00000  EP4(45)H           2DEC     .125                                  
030965,001285: 
030966,001286: 30,3647           00707 03434  EP4(10)H           2DEC     .027777777                            
030967,001287: 
030968,001288: 30,3651           45020        AGAIN              STQ      CALL                                  
030969,001289: 30,3652           03730                                    QTEMP1                                
030970,001290: 30,3653           27071                                    THISPREC                              
030971,001291: 30,3654           66134                           SXA,2    SXA,1                                 
030972,001292: 30,3655           03746                                    RTX2                                  
030973,001293: 30,3656           03745                                    RTX1                                  
030974,001294: 30,3657           77775                           VLOAD                                          
030975,001295: 30,3660           00001                                    RATT                                  
030976,001296: 30,3661           03632                           STORE    RTIG                                  
030977,001297: 30,3662           27570                           STOVL    RINIT                                 
030978,001298: 30,3663           00007                                    VATT                                  
030979,001299: 30,3664           03640                           STORE    VTIG                                  
030980,001300: 30,3665           03576                           STORE    VINIT                                 
030981,001301: 30,3666           67201                           SETPD    SLOAD                                 
030982,001302: 30,3667           00001                                    0                                     
030983,001303: 30,3670           15335                                    HI6ZEROS                              
030984,001304: 30,3671           43125                           PDDL     BON                                   
030985,001305: 30,3672           21646                                    EP4(45)H                              
030986,001306: 30,3673           03705                                    NORMSW                                
030987,001307: 30,3674           61677                                    +3                                    
030988,001308: 30,3675           77745                           DLOAD                                          
030989,001309: 30,3676           21650                                    EP4(10)H                              
030990,001310: 30,3677           45006                           PUSH     CALL                                  
030991,001311: 30,3700           22000                                    INITVEL                               
030992,001312: 30,3701           52001                           SETPD    GOTO                                  

Page 713

030994,001314: 30,3702           00001                                    0                                     
030995,001315: 30,3703           03730                                    QTEMP1                                
030996,001316: 30,3704           45175        CALCUT             VLOAD    CALL                                  
030997,001317: 30,3705           03632                                    RTIG                                  
030998,001318: 30,3706           77352                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
030999,001319: 30,3707           70372                           VSL1     V/SC                                  
031000,001320: 30,3710           21747                                    200CS                                 #  G AT 2(-5) M/CS. CS
031001,001321: 30,3711           52315                           PDVL     VSU                                   
031002,001322: 30,3712           03612                                    VIPRIME                               
031003,001323: 30,3713           03713                                    UT                                    
031004,001324: 30,3714           52341                           V/SC     VSU                                   
031005,001325: 30,3715           21747                                    200CS                                 
031006,001326: 30,3716           72561                           VXSC     VSL2                                  
031007,001327: 30,3717           03703                                    CSTEER                                
031008,001328: 30,3720           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
031009,001329: 30,3721           03721                                    VGTIG                                 
031010,001330: 30,3722           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
031011,001331: 
031012,001332: 30,3723           74241                           DOT      VXSC                                  
031013,001333: 30,3724           00015                                    12D                                   
031014,001334: 30,3725           00001                                    0                                     
031015,001335: 30,3726           51352                           VSL2     BVSU                                  
031016,001336: 30,3727           00015                                    12D                                   
031017,001337: 30,3730           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)
031018,001338: 30,3731           03727                                    F                                     
031019,001339: 30,3732           56261                           SRR      DDV                                   
031020,001340: 30,3733           21605                                    4                                     
031021,001341: 30,3734           03076                                    WEIGHT/G                              
031022,001342: 30,3735           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
031023,001343: 30,3736           00015                                    12D                                   
031024,001344: 30,3737           77636                           VSQ                                            
031025,001345: 30,3740           75421                           BDSU     SQRT                                  
031026,001346: 30,3741           76561                           VXSC     VSL1                                  
031027,001347: 30,3742           53455                           VAD      UNIT                                  
031028,001348: 30,3743           00015                                    12D                                   
031029,001349: 30,3744           37713                           STCALL   UT                                    
031030,001350: 30,3745           03657                                    QTEMP                                 
031031,001351: 30,3746           01440 00000  200CS              2DEC     200        B-12                       
031032,001352: 

Page 714

031034,001354:                                                                                                  #  PROGRAM DESCRIPTION S40.2,3           DATE 15,NOV,66
031035,001355:                                                                                                  #  MOD NO 2                              LOG SECTION P40-P47
031036,001356:                                                                                                  #  MOD BY ZELDIN
031037,001357: 
031038,001358:                                                                                                  #  FUNCTIONAL DESCRIPTION
031039,001359:                                                                                                  #        
031040,001360:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
031041,001361:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
031042,001362:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
031043,001363:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
031044,001364:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
031045,001365:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
031046,001366:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
031047,001367:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
031048,001368:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
031049,001369: 
031050,001370:                                                                                                  #  CALLING SEQUENCE
031051,001371:                                                                                                  #        L       CALL
031052,001372:                                                                                                  #        L+1             S40.2,3
031053,001373: 
031054,001374:                                                                                                  #  NORMAL EXIT MODE
031055,001375:                                                                                                  #        AT L+2 OF CALLING SEQUENCE (GOTO L+2)
031056,001376: 
031057,001377:                                                                                                  #  SUBROUTINES CALLED
031058,001378:                                                                                                  #        CALCGA
031059,001379: 
031060,001380:                                                                                                  #  ALARM OR ABORT MODES
031061,001381:                                                                                                  #        NONE
031062,001382: 
031063,001383:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
031064,001384:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE          SP AT 1.0795111 REV.
031065,001385:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE          SP AT 1.0795111 REV.
031066,001386:                                                                                                  #        UT              DESIRED THRUST DIRECTION        VECT. B2 M/(CS.CS)
031067,001387:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION    VECT. B29 M
031068,001388:                                                                                                  #        ENG2FLAG        ON=RCS  OFF=SPS
031069,001389: 
031070,001390:                                                                                                  #  OUTPUT
031071,001391:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
031072,001392:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
031073,001393:                                                                                                  #        YSCREF
031074,001394:                                                                                                  #        ZSCREF
031075,001395:                                                                                                  #        GIMBAL ANGLES IN THETAD
031076,001396:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
031077,001397: 
031078,001398:                                                                                                  #  DEBRIS
031079,001399:                                                                                                  #        PUSHLIST, QPRET, MPAC
031080,001400:                                                                                                  #        QTEMP   TEMP. ERASABLE
031081,001401: 
031082,001402: 24,3574                                           BANK     24                                    
031083,001403: 24,2000                                           SETLOC   P40S                                  
031084,001404: 24,2000                                           BANK                                           
031085,001405: 24,3574                                           COUNT*   $$/S40.2                              
031086,001406: 24,3574           64375        S40.2,3            VLOAD    MXV                                   
031087,001407: 24,3575           03713                                    UT                                    
031088,001408: 24,3576           01736                                    REFSMMAT                              
031089,001409: 24,3577           44172                           VSL1     STQ                                   
031090,001410: 24,3600           03657                                    QTEMP                                 
031091,001411: 24,3601           03357                           STORE    POINTVSM                              #  THRUST IN SM AT 2
031092,001412: 24,3602           43001                           SETPD    BON                                   
031093,001413: 24,3603           00001                                    0                                     

Page 715

031095,001415: 24,3604           00704                                    ENG2FLAG                              
031096,001416: 24,3605           51715                                    S40.2,3B                              
031097,001417: 24,3606           77745                           DLOAD                                          
031098,001418: 24,3607           15335                                    HI6ZEROS                              
031099,001419: 24,3610           67206                           PUSH     SLOAD                                 #  ZERO PDL 0
031100,001420: 24,3611           03025                                    YACTOFF                               
031101,001421: 24,3612           72405                           DMP      SL1                                   
031102,001422: 24,3613           11754                                    TRIMSCAL                              
031103,001423: 24,3614           41415                           DAD      PUSH                                  
031104,001424: 24,3615           11756                                    YBIAS                                 
031105,001425: 24,3616           65346                           COS      PDDL                                  #  COS(Y +Y0) PDL 2
031106,001426: 24,3617           41556                           SIN      PUSH                                  #  SIN(Y +Y0) PDL 4
031107,001427: 24,3620           77735                           SLOAD                                          
031108,001428: 24,3621           03024                                    PACTOFF                               
031109,001429: 24,3622           72405                           DMP      SL1                                   
031110,001430: 24,3623           11754                                    TRIMSCAL                              
031111,001431: 24,3624           41415                           DAD      PUSH                                  
031112,001432: 24,3625           11760                                    PBIAS                                 
031113,001433: 24,3626           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
031114,001434: 24,3627           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
031115,001435: 24,3630           14323                           STODL    ZSCREF                                #  SIN(P +P0)
031116,001436: 24,3631           00007                                    6                                     
031117,001437: 24,3632           72405                           DMP      SL1                                   
031118,001438: 24,3633           00005                                    4                                     
031119,001439: 24,3634           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
031120,001440: 24,3635           00007                                    6                                     
031121,001441: 24,3636           72405                           DMP      SL1                                   
031122,001442: 24,3637           00003                                    2                                     
031123,001443: 24,3640           77666                           VDEF                                           
031124,001444: 
031125,001445: 24,3641           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
031126,001446: 24,3642           00323                                    ZSCREF                                
031127,001447: 24,3643           72405                           DMP      SL1                                   
031128,001448: 24,3644           00005                                    4                                     
031129,001449: 24,3645           41325                           PDDL     DMP                                   
031130,001450: 24,3646           00323                                    ZSCREF                                
031131,001451: 24,3647           00003                                    2                                     
031132,001452: 24,3650           57552                           SL1      DCOMP                                 
031133,001453: 24,3651           77666                           VDEF                                           
031134,001454: 
031135,001455: 24,3652           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
031136,001456: 24,3653           77666                           VDEF                                           
031137,001457: 
031138,001458: 24,3654           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
031139,001459: 24,3655           00323                                    ZSCREF                                
031140,001460: 24,3656           65325                           PDDL     PDDL                                  
031141,001461: 24,3657           00315                                    YSCREF                                
031142,001462: 24,3660           00307                                    XSCREF                                
031143,001463: 24,3661           77666                           VDEF                                           

Page 716

031145,001465: 24,3662           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
031146,001466: 24,3663           03713                                    UT                                    
031147,001467: 24,3664           53515                           PDVL     UNIT                                  
031148,001468: 24,3665           03632                                    RTIG                                  
031149,001469: 24,3666           57435                           VXV      VCOMP                                 
031150,001470: 24,3667           00001                                    0                                     
031151,001471: 24,3670           41456                           UNIT     PUSH                                  
031152,001472: 24,3671           77624                           CALL                                           
031153,001473: 24,3672           51734                                    TSTRXUT                               
031154,001474: 24,3673           57435                           VXV      VCOMP                                 
031155,001475: 24,3674           00001                                    0                                     
031156,001476: 24,3675           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
031157,001477: 24,3676           00307                                    XSCREF                                
031158,001478: 24,3677           76505                           VXM      VSL1                                  
031159,001479: 24,3700           00001                                    0                                     
031160,001480: 24,3701           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
031161,001481: 24,3702           00315                                    YSCREF                                
031162,001482: 24,3703           76505                           VXM      VSL1                                  
031163,001483: 24,3704           00001                                    0                                     
031164,001484: 24,3705           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
031165,001485: 24,3706           00323                                    ZSCREF                                
031166,001486: 24,3707           76505                           VXM      VSL1                                  
031167,001487: 24,3710           00001                                    0                                     
031168,001488: 24,3711           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
031169,001489: 24,3712           52001                           SETPD    GOTO                                  
031170,001490: 24,3713           00001                                    0                                     
031171,001491: 24,3714           03657                                    QTEMP                                 
031172,001492: 24,3715           77775        S40.2,3B           VLOAD                                          
031173,001493: 24,3716           15333                                    UNITX                                 
031174,001494: 24,3717           27351                           STOVL    SCAXIS                                
031175,001495: 24,3720           03713                                    UT                                    
031176,001496: 24,3721           00307                           STORE    XSCREF                                
031177,001497: 24,3722           53435                           VXV      UNIT                                  
031178,001498: 24,3723           03632                                    RTIG                                  
031179,001499: 24,3724           34007                           STCALL   6D                                    
031180,001500: 24,3725           51734                                    TSTRXUT                               
031181,001501: 24,3726           00315                           STORE    YSCREF                                
031182,001502: 24,3727           57435                           VXV      VCOMP                                 
031183,001503: 24,3730           00307                                    XSCREF                                
031184,001504: 24,3731           77772                           VSL1                                           
031185,001505: 24,3732           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
031186,001506: 24,3733           03657                                    QTEMP                                 
031187,001507: 24,3734           46145        TSTRXUT            DLOAD    BHIZ                                  
031188,001508: 24,3735           00045                                    36D                                   
031189,001509: 24,3736           51741                                    BADVCTOR                              
031190,001510: 24,3737           43575                           VLOAD    RVQ                                   
031191,001511: 24,3740           00007                                    6D                                    
031192,001512: 24,3741           53575        BADVCTOR           VLOAD    UNIT                                  
031193,001513: 24,3742           03632                                    RTIG                                  
031194,001514: 24,3743           53515                           PDVL     UNIT                                  

Page 717

031196,001516: 24,3744           03640                                    VTIG                                  
031197,001517: 24,3745           53322                           VSR3     VAD                                   
031198,001518: 24,3746           53435                           VXV      UNIT                                  
031199,001519: 24,3747           03713                                    UT                                    
031200,001520: 24,3750           77676                           VCOMP                                          
031201,001521: 24,3751           00007                           STORE    6D                                    
031202,001522: 24,3752           77616                           RVQ                                            
031203,001523: 24,3753           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
031204,001524: 
031205,001525: 24,3755           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
031206,001526: 
031207,001527: 24,3757           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
031208,001528: 
031209,001529:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
031210,001530: 
031211,001531:                                                                                                  #  PROGRAM DESCRIPTION S41.1             DATE 8 DEC 66
031212,001532:                                                                                                  #  MOD NO 1                              LOG SECTION P40-P47
031213,001533:                                                                                                  #  MOD BY ZELDIN
031214,001534: 
031215,001535:                                                                                                  #  FUNCTIONAL DESCRIPTION
031216,001536: 
031217,001537:                                                                                                  #        COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
031218,001538:                                                                                                  #        TO CONTROL COORDS.
031219,001539: 
031220,001540:                                                                                                  #  CALLING SEQUENCE
031221,001541: 
031222,001542:                                                                                                  #        L       CALL
031223,001543:                                                                                                  #        L+1             S41.1
031224,001544: 
031225,001545:                                                                                                  #  NORMAL EXIT MODE
031226,001546:                                                                                                  #        
031227,001547:                                                                                                  #        AT L +2 OF CALLING SEQUENCE
031228,001548: 
031229,001549:                                                                                                  #  SUBROUTINES CALLED:
031230,001550: 
031231,001551:                                                                                                  #        CALCSMSC
031232,001552:                                                                                                  #        CDUTRIG
031233,001553: 
031234,001554:                                                                                                  #  ALARM OR ABORT MODES
031235,001555: 
031236,001556:                                                                                                  #        NONE
031237,001557: 
031238,001558:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
031239,001559: 
031240,001560:                                                                                                  #        VG IN REF. COORD. PDL L POINTER AT L+5.  S41.1 WILL RETURN WITH
031241,001561:                                                                                                  #        POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
031242,001562: 
031243,001563:                                                                                                  #  OUTPUT
031244,001564: 
031245,001565:                                                                                                  #        MPAC CONTAINS VG IN CONTROL COORDS              VECT. B7 M/CS
031246,001566: 
031247,001567:                                                                                                  #  DEBRIS:
031248,001568: 
031249,001569:                                                                                                  #        QTEMP           TEMP ERASABLE
031250,001570:                                                                                                  #        QPRET
031251,001571: 
031252,001572: 24,3761                                           COUNT    22/S41.1                              
031253,001573: 
031254,001574: 22,2000                                           SETLOC   P40S5                                 
031255,001575: 22,2000                                           BANK                                           
031256,001576: 
031257,001577: 22,3431           45020        S41.1              STQ      CALL                                  
031258,001578: 22,3432           03657                                    QTEMP                                 
031259,001579: 22,3433           47477                                    CDUTRIG                               
031260,001580: 22,3434           77775                           VLOAD                                          
031261,001581: 22,3435           45121                           MXV      CALL                                  
031262,001582: 22,3436           01736                                    REFSMMAT                              
031263,001583: 22,3437           47644                                    *SMNB*                                

Page 718

031265,001585: 22,3440           74321                           MXV      VXSC                                  
031266,001586: 22,3441           05003                                    QUADROT                               
031267,001587: 22,3442           05446                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
031268,001588: 22,3443           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
031269,001589: 22,3444           03657                                    QTEMP                                 
031270,001590: 22,3445           24000 00000  TENBNK14           2DEC     10.        B-4                        
031271,001591: 

Page 719

031273,001593:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
031274,001594:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
031275,001595:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
031276,001596:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
031277,001597:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
031278,001598:                                                                                                  #  CALLING SEQ   CALL S40.8
031279,001599:                                                                                                  #  INPUT         VGPREV  -       LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
031280,001600:                                                                                                  #                                PRIOR TO UPDATING IN METERS/CS AT +7.
031281,001601:                                                                                                  #                DELVREF -       CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
031282,001602:                                                                                                  #                                IN METERS/CS AT +7.
031283,001603:                                                                                                  #                BDT     -       EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
031284,001604:                                                                                                  #                                GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
031285,001605:                                                                                                  #                                METERS/CS AT +7.
031286,001606:                                                                                                  #                CSTEER  -       A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
031287,001607:                                                                                                  #                                SPS AIMPOINT STEERING MANEUVERS
031288,001608:                                                                                                  #                IDLEFAIL -      A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
031289,001609:                                                                                                  #                STEERSW -       A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
031290,001610:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
031291,001611:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
031292,001612:                                                                                                  #  OUTPUT        TTOGO   -       TIME REMAINING FOR ENGINE BURN IN CS AT +28
031293,001613:                                                                                                  #                OMEGAC  -       DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
031294,001614:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
031295,001615:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
031296,001616:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
031297,001617:                                                                                                  #  DEBRIS        OMEGAXC, +1
031298,001618:                                                                                                  #  SUBROUTINES USED      -       *SMNB*, ALARM
031299,001619: 
031300,001620: 16,2000                                           SETLOC   P40S1                                 
031301,001621: 16,2000                                           BANK                                           
031302,001622: 16,2150  E6,1466                                  EBANK=   DAPDATR1                              
031303,001623: 16,2150                                           COUNT    16/S40.8                              
031304,001624: 
031305,001625: 16,2150           44001        S40.8              SETPD    STQ                                   
031306,001626: 16,2151           00001        SPBIT1                      00D                                   
031307,001627: 16,2152           03657                                    QTEMP                                 
031308,001628: 16,2153           51375                           VLOAD    BVSU                                  #  CONSTRUCT DELVG, SC.AT B+7 M/CS
031309,001629: 16,2154           03433                                    DELVREF                               
031310,001630: 16,2155           03705                                    BDT                                   
031311,001631: 16,2156           77655                           VAD                                            
031312,001632: 16,2157           03721                                    VGPREV                                
031313,001633: 16,2160           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
031314,001634: 
031315,001635: 16,2161           77646                           ABVAL                                          
031316,001636: 16,2162           03773                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
031317,001637: 16,2163           77776                           EXIT                                           
031318,001638: 16,2164           05412                           TC       PHASCHNG                              
031319,001639: 16,2165           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
031320,001640: 
031321,001641: 16,2166           06006                           TC       INTPRET                               
031322,001642: 16,2167           77775                           VLOAD                                          

Page 720

031324,001644: 16,2170           03460                                    VG                                    
031325,001645: 16,2171           03721                           STORE    VGPREV                                
031326,001646: 16,2172           77214                           BOFF     VLOAD                                 
031327,001647: 16,2173           01344                                    STEERSW                               #  SKIP TGO AND CROSS-PRODUCT
031328,001648: 16,2174           03657                                    QTEMP                                 
031329,001649: 16,2175           03433                                    DELVREF                               
031330,001650: 16,2176           41446                           ABVAL    PUSH                                  #  CHECK FOR LOTHRUST
031331,001651: 16,2177           41335                           SLOAD    DMP                                   
031332,001652: 16,2200           01354                                    DVTHRESH                              #  SC.AT B-2 M/CS
031333,001653: 16,2201           36011                                    DPB-9                                 
031334,001654: 16,2202           77621                           BDSU                                           
031335,001655: 16,2203           77440                           BMN      EXIT                                  
031336,001656: 16,2204           40222                                    LOTHRUST                              
031337,001657: 16,2205           31466                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
031338,001658: 16,2206           75002                           MASK     BIT14                                 
031339,001659: 16,2207           10000                           CCS      A                                     
031340,001660: 16,2210           35017                           CAF      BIT1                                  
031341,001661: 16,2211           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
031342,001662: 16,2212           31421                           CAE      EREPFRAC                              
031343,001663: 16,2213           55642                           TS       REPFRAC                               
031344,001664: 
031345,001665: 16,2214           06006                           TC       INTPRET                               
031346,001666: 16,2215           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
031347,001667: 16,2216           03433                                    DELVREF                               
031348,001668: 16,2217           03705                                    BDT                                   
031349,001669: 16,2220           77656                           UNIT                                           
031350,001670: 16,2221           41441                           DOT      PUSH                                  #  (00D)
031351,001671: 16,2222           03460                                    VG                                    
031352,001672: 16,2223           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
031353,001673: 16,2224           40214                                    INCRSVG                               #        DISPLAY ALARM IF NOT
031354,001674: 16,2225           36005                                    2VEXHUST                              
031355,001675: 16,2226           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
031356,001676: 16,2227           11561                                    LODPHALF                              
031357,001677: 16,2230           70501                           NORM     SR1                                   
031358,001678: 16,2231           00047                                    X1                                    
031359,001679: 16,2232           60325                           PDDL     NORM                                  
031360,001680: 16,2233           00045                                    36D                                   #  (MAG DELVG)
031361,001681: 16,2234           00050                                    X2                                    
031362,001682: 16,2235           77665                           BDDV                                           
031363,001683: 16,2236           53664                           XSU,2    SL*                                   
031364,001684: 16,2237           00046                                    X1                                    
031365,001685: 16,2240           57607                                    0          -9D,2                      
031366,001686: 16,2241           41405                           DMP      PUSH                                  #  (00D)
031367,001687: 16,2242           36003                                    -FOURDT                               
031368,001688: 16,2243           54335                           SLOAD    SR                                    
031369,001689: 16,2244           03013                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
031370,001690: 16,2245           20617                                    14D                                   
031371,001691: 16,2246           45421                           BDSU     STADR                                 
031372,001692: 16,2247           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
031373,001693: 16,2250           77615                           DAD                                            

Page 721

031375,001695: 16,2251           01205                                    PIPTIME                               
031376,001696: 16,2252           17413                           STODL    TIG                                   
031377,001697: 16,2253           03430                                    TGO                                   
031378,001698: 16,2254           50025                           DSU      BMN                                   
031379,001699: 16,2255           36007                                    FOURSEC                               
031380,001700: 16,2256           40201                                    S40.81                                
031381,001701: 
031382,001702: 16,2257           74375        XPRODUCT           VLOAD    VXSC                                  
031383,001703: 16,2260           03705                                    BDT                                   
031384,001704: 16,2261           03703                                    CSTEER                                
031385,001705: 16,2262           52352                           VSL2     VSU                                   
031386,001706: 16,2263           03433                                    DELVREF                               
031387,001707: 16,2264           63256                           UNIT     PDVL                                  
031388,001708: 16,2265           03460                                    VG                                    
031389,001709: 16,2266           47256                           UNIT     VXV                                   
031390,001710: 16,2267           45121                           MXV      CALL                                  
031391,001711: 16,2270           01736                                    REFSMMAT                              #  (REFSMMAT/2)
031392,001712: 16,2271           47644                                    *SMNB*                                
031393,001713: 16,2272           77761                           VXSC                                           
031394,001714: 16,2273           03235                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
031395,001715: 16,2274           03126        OMEGACLC           STORE    OMEGAC                                
031396,001716: 16,2275           77650                           GOTO                                           
031397,001717: 16,2276           03657                                    QTEMP                                 
031398,001718: 
031399,001719: 17,2000                                           SETLOC   DAPS7                                 
031400,001720: 17,2000                                           BANK                                           
031401,001721: 17,2000                                           COUNT    17/S40.8                              
031402,001722: 
031403,001723: 17,2000           00000 00310  TWODT              2DEC     200.0      B-28                       #  2 SEC
031404,001724: 
031405,001725: 17,2002           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
031406,001726: 
031407,001727: 17,2004           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
031408,001728: 
031409,001729: 17,2006           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
031410,001730: 
031411,001731: 17,2010           00040 00000  DPB-9              2DEC     1          B-9                        
031412,001732: 
031413,001733: 20,2000                                           SETLOC   DAPS6                                 
031414,001734: 20,2000                                           BANK                                           
031415,001735: 
031416,001736: 20,2201                                           COUNT    20/S40.8                              
031417,001737: 
031418,001738: 20,2201           77214        S40.81             SET      VLOAD                                 #  TGO LESS THAN 4 SECONDS
031419,001739: 20,2202           01066                                    IMPULSW                               #  FOR ENGINE-OFF CALL
031420,001740: 20,2203           15335                                    HI6ZEROS                              
031421,001741: 20,2204           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
031422,001742: 20,2205           77776                           EXIT                                           
031423,001743: 20,2206           34777                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
031424,001744: 20,2207           55447                           TS       CNTR                                  

Page 722

031426,001746: 20,2210           06006                           TC       INTPRET                               
031427,001747: 20,2211           52014                           CLEAR    GOTO                                  
031428,001748: 20,2212           01264                                    STEERSW                               #  RESTARTS OK
031429,001749: 20,2213           03657                                    QTEMP                                 
031430,001750: 20,2214           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
031431,001751: 20,2215           05650                           TC       ALARM                                 #  IN WRONG DIRECTION.
031432,001752: 20,2216           01407                           OCT      01407                                 
031433,001753: 20,2217           06006                           TC       INTPRET                               
031434,001754: 20,2220           77650                           GOTO                                           
031435,001755: 20,2221           03657                                    QTEMP                                 
031436,001756: 
031437,001757: 20,2222           77214        LOTHRUST           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
031438,001758: 20,2223           00711                                    IDLEFAIL                              #  SET BY V97P.  ALLOWS 1 BYPASS IN CASE OF
031439,001759: 20,2224           03657                                    QTEMP                                 #        UNFAVORABLE S40.8 SYNCH
031440,001760: 20,2225           15335                                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
031441,001761: 20,2226           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
031442,001762: 20,2227           77776                           EXIT                                           
031443,001763: 
031444,001764: 20,2230           45021                           CS       ZERO                                  
031445,001765: 20,2231           55643                           TS       VCNTR                                 #  KILL CSMMASS UPDATING
031446,001766: 20,2232           55653                           TS       VCNTRTMP                              #  (TVCEXEC LOGIC REQUIRES THIS TOO)
031447,001767: 20,2233           55642                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
031448,001768: 20,2234           55145                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
031449,001769: 
031450,001770: 20,2235           06006                           TC       INTPRET                               
031451,001771: 20,2236           52014                           CLEAR    GOTO                                  #  INHIBIT STEERING AND TGO CALC (MANUAL
031452,001772: 20,2237           01264                                    STEERSW                               #        SHUTDOWN IF NOT SET UP AGAIN)
031453,001773: 20,2240           03657                                    QTEMP                                 #  RESTARTS OK
031454,001774: 

Page 723

031456,001776:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
031457,001777:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
031458,001778:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
031459,001779:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
031460,001780:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
031461,001781:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
031462,001782:                                                                                                  #  INPUT         RNIT    -       ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
031463,001783:                                                                                                  #                VNIT    -       ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
031464,001784:                                                                                                  #                VRPREV  -       LAST COMPUTED VELOCITY REQUIRED VECTOR IN
031465,001785:                                                                                                  #                                METERS/CS AT +7.
031466,001786:                                                                                                  #                NOMTIG  -       TIME OF IGN.  USED IN TARGETTING ROUTINES %+28"
031467,001787:                                                                                                  #                DELLT4  -       TRANSFER TIME FROM PIPTIME TO TARGET %+28"
031468,001788:                                                                                                  #                TNIT    -       TIME OF RNIT AND VNIT IN CS AT +28
031469,001789:                                                                                                  #                GDT/2   -       HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
031470,001790:                                                                                                  #                                ACCERERATION OF GRAVITY IN METERS/CS AT +7.
031471,001791:                                                                                                  #                DELVREF -       CHANGE IN VELOCITY DURING LAST 2 SEC IN
031472,001792:                                                                                                  #                                METERS/CS AT +7.
031473,001793:                                                                                                  #                NORMSW          SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
031474,001794:                                                                                                  #                                165 TO 195 DEGREES
031475,001795:                                                                                                  #                                RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
031476,001796:                                                                                                  #  OUTPUT        VGTEMP  -       VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
031477,001797:                                                                                                  #                COGA    -       INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
031478,001798:                                                                                                  #                                OR PREVIOUS PASS THRU S40.9
031479,001799:                                                                                                  #                GOBL/2  -       OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
031480,001800:                                                                                                  #                VRPREV  -       VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
031481,001801:                                                                                                  #                BDT     -       B VECTOR IN METERS/CS AT +7.
031482,001802:                                                                                                  #  SUBROUTINES USED -    INITVEL
031483,001803: 
031484,001804: 16,2000                                           SETLOC   P40S1                                 
031485,001805: 16,2000                                           BANK                                           
031486,001806: 
031487,001807: 16,2277  E6,1742                                  EBANK=   NBRCYCLS                              
031488,001808: 16,2277                                           COUNT    16/S40.9                              
031489,001809: 
031490,001810: 16,2277           06006        S40.9              TC       INTPRET                               
031491,001811: 16,2300           71201                           SETPD    DLOAD                                 
031492,001812: 16,2301           00001                                    00D                                   
031493,001813: 16,2302           11563                                    LO6ZEROS                              
031494,001814: 16,2303           77725                           PDDL                                           
031495,001815: 16,2304           34421                                    EP4(45)L                              
031496,001816: 16,2305           71214                           BON      DLOAD                                 
031497,001817: 16,2306           03705                                    NORMSW                                
031498,001818: 16,2307           34311                                    +2                                    
031499,001819: 16,2310           34423                                    EP4(10)L                              
031500,001820: 16,2311           77606                           PUSH                                           
031501,001821: 16,2312           45014                           CLEAR    CALL                                  
031502,001822: 16,2313           00675                                    GUESSW                                
031503,001823: 16,2314           22002                                    HAVEGUES                              
031504,001824: 16,2315           77776                           EXIT                                           
031505,001825: 16,2316           05412                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
031506,001826: 16,2317           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW

Page 724

031508,001828: 16,2320           10000                           OCT      10000                                 
031509,001829: 16,2321           06006                           TC       INTPRET                               
031510,001830: 16,2322           77614        ENDLAMB            BON                                            
031511,001831: 16,2323           01310                                    FIRSTFLG                              
031512,001832: 16,2324           34342                                    FIRSTTME                              
031513,001833: 16,2325           52375                           VLOAD    VSU                                   
031514,001834: 16,2326           03612                                    VIPRIME                               
031515,001835: 16,2327           03466                                    VRPREV                                
031516,001836: 16,2330           45325                           PDDL     DSU                                   
031517,001837: 16,2331           03474                                    TNIT                                  
031518,001838: 16,2332           03476                                    TNITPREV                              
031519,001839: 16,2333           55261                           SL       BDDV                                  
031520,001840: 16,2334           20222                                    17D                                   
031521,001841: 16,2335           34415                                    200CSHI                               
031522,001842: 16,2336           77761                           VXSC                                           
031523,001843: 16,2337           76451                           VSU      VSL1                                  
031524,001844: 16,2340           01207                                    GDT/2                                 
031525,001845: 16,2341           03705                           STORE    BDT                                   
031526,001846: 16,2342           57535        FIRSTTME           SLOAD    DCOMP                                 
031527,001847: 16,2343           03747                                    RTX2                                  
031528,001848: 16,2344           77640                           BMN                                            
031529,001849: 16,2345           34362                                    MOONCASE                              
031530,001850: 16,2346           53575                           VLOAD    UNIT                                  
031531,001851: 16,2347           01171                                    RN                                    
031532,001852: 16,2350           45345                           DLOAD    DSU                                   
031533,001853: 16,2351           01205                                    PIPTIME                               
031534,001854: 16,2352           03450                                    NOMTIG                                
031535,001855: 16,2353           56205                           DMP      DDV                                   
031536,001856: 16,2354           34417                                    EARTHMU                               
031537,001857: 16,2355           00043                                    34D                                   
031538,001858: 16,2356           53361                           VXSC     VAD                                   
031539,001859: 16,2357           01215                                    GOBL/2                                
031540,001860: 16,2360           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
031541,001861: 16,2361           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
031542,001862: 16,2362           77776        MOONCASE           EXIT                                           
031543,001863: 16,2363           05412                           TC       PHASCHNG                              
031544,001864: 16,2364           04021                           OCT      04021                                 #  C, JOB BELOW
031545,001865: 
031546,001866: 16,2365           06006        COPY40.9           TC       INTPRET                               
031547,001867: 16,2366           77745                           DLOAD                                          
031548,001868: 16,2367           03474                                    TNIT                                  
031549,001869: 16,2370           27476                           STOVL    TNITPREV                              
031550,001870: 16,2371           03612                                    VIPRIME                               
031551,001871: 16,2372           03466                           STORE    VRPREV                                
031552,001872: 16,2373           77414                           CLEAR    EXIT                                  
031553,001873: 16,2374           01270                                    FIRSTFLG                              
031554,001874: 16,2375           45017                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
031555,001875: 16,2376           55742                           TS       NBRCYCLS                              
031556,001876: 16,2377           05412        ENDS40.9           TC       PHASCHNG                              
031557,001877: 16,2400           00001                           OCT      00001                                 

Page 725

031559,001879: 16,2401           15217                           TCF      ENDOFJOB                              
031560,001880: 
031561,001881: 16,2402           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
031562,001882: 16,2403           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
031563,001883: 16,2404           11563                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
031564,001884: 16,2405           17345                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL
031565,001885: 16,2406           11563                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
031566,001886: 16,2407           27343                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
031567,001887: 16,2410           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
031568,001888: 16,2411           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
031569,001889: 16,2412           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
031570,001890: 16,2413           12375                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
031571,001891: 
031572,001892: 16,2414           01440 00000  200CSHI            2DEC     200        B-12                       
031573,001893: 
031574,001894: 16,2416           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
031575,001895: 
031576,001896: 16,2420           04000 00000  EP4(45)L           2DEC     .125                                  
031577,001897: 
031578,001898: 16,2422           00707 03434  EP4(10)L           2DEC     .027777777                            
031579,001899: 

Page 726

031581,001901:                                                                                                  #  NAME                  S40.13 - TIMEBURN
031582,001902: 
031583,001903:                                                                                                  #  FUNCTION              (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
031584,001904:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
031585,001905:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
031586,001906:                                                                                                  #                        (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
031587,001907:                                                                                                  #                        AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
031588,001908: 
031589,001909:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
031590,001910: 
031591,001911:                                                                                                  #  INPUT                 VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
031592,001912:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
031593,001913:                                                                                                  #                        F - ENGINE THRUST IN M.NEWTONS AT +7
031594,001914:                                                                                                  #                        MDOT -  RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
031595,001915:                                                                                                  #                                IN KILOGRAMS/CENTISECOND AT +3.  THIS SCALING MAY
031596,001916:                                                                                                  #                                REQUIRE MODIFICATION FOR SATURN BURNS.
031597,001917: 
031598,001918:                                                                                                  #  OUTPUT                IMPULSW -       ZERO FOR STEERING
031599,001919:                                                                                                  #                                -       ONE FOR ATTITUDE HOLD
031600,001920:                                                                                                  #                        TGO     -       TIME TO BURN IN CENTISECONDS AT +14
031601,001921:                                                                                                  #                        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
031602,001922:                                                                                                  #                        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
031603,001923:                                                                                                  #                        (1) M.NEWTON = (10000) NEWTONS
031604,001924: 
031605,001925: 16,2424  E7,1427                                  EBANK=   TGO                                   
031606,001926: 16,2424                                           COUNT    16/40.13                              
031607,001927: 
031608,001928: 16,2424           06006        S40.13             TC       INTPRET                               
031609,001929: 16,2425           43001                           SETPD    SET                                   
031610,001930: 16,2426           00001                                    00D                                   
031611,001931: 16,2427           01066                                    IMPULSW                               #  ASSUME NO STEERING UNTIL FOUND OTHERWISE
031612,001932: 16,2430           51575                           VLOAD    ABVAL                                 
031613,001933: 16,2431           03721                                    VGTIG                                 #  VELOCITY TO BE GAINED AT +7
031614,001934: 16,2432           77776                           EXIT                                           
031615,001935: 16,2433           35011                           CAF      BIT7                                  #  TEST +X TRANSLATION
031616,001936: 16,2434           00006                           EXTEND                                         
031617,001937: 16,2435           06031                           RXOR     CHAN31                                
031618,001938: 16,2436           75011                           MASK     BIT7                                  
031619,001939: 16,2437           00006                           EXTEND                                         
031620,001940: 16,2440           12522                           BZF      NOTADDUL                              
031621,001941: 16,2441           06006                           TC       INTPRET                               
031622,001942: 16,2442           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG AT +7
031623,001943: 16,2443           36025                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
031624,001944: 16,2444           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
031625,001945: 16,2445           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
031626,001946: 16,2446           00700                                    NJETSFLG                              
031627,001947: 16,2447           34450                                    S40.130                               
031628,001948: 16,2450           77621        S40.130            BDSU                                           
031629,001949: 16,2451           56325                           PDDL     DDV                                   #  00D = MAG OF VGTIG CORRECTED FOR ULLAGE
031630,001950: 16,2452           01770                                    K1VAL                                 #  M.NETWON-CS AT +24
031631,001951: 16,2453           03076                                    WEIGHT/G                              
031632,001952: 16,2454           50021                           BDSU     BMN                                   
031633,001953: 16,2455           00001                                    00D                                   
031634,001954: 16,2456           34501                                    S40.131                               #  TGO LESS THAN 100 CS
031635,001955: 16,2457           41325                           PDDL     DMP                                   #  02D = TEMP1 AT +7

Page 727

031637,001957: 16,2460           00111                                    EMDOT                                 #  SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
031638,001958: 16,2461           36021                                    3.5SEC                                #  350 CS AT +14
031639,001959: 16,2462           65221                           BDSU     PDDL                                  
031640,001960: 16,2463           03076                                    WEIGHT/G                              
031641,001961: 16,2464           01772                                    FANG                                  
031642,001962: 16,2465           60405                           DMP      SR2                                   
031643,001963: 16,2466           36023                                    5SECOND                               #  500 CS AT +14
031644,001964: 16,2467           41471                           DDV      PUSH                                  #  04D = TEMP2
031645,001965: 16,2470           51021                           BDSU     BPL                                   
031646,001966: 16,2471           00003                                    02D                                   
031647,001967: 16,2472           34515                                    S40.133                               #  TGO GREATER THAN 600 CS
031648,001968: 16,2473           55345                           DLOAD    BDDV                                  
031649,001969: 16,2474           43205                           DMP      DAD                                   
031650,001970: 16,2475           36023                                    5SECOND                               #  500 CS AT +14
031651,001971: 16,2476           36017                                    1SEC2D                                #  100 CS AT +14
031652,001972: 16,2477           77650                           GOTO                                           
031653,001973: 16,2500           34506                                    S40.132                               
031654,001974: 16,2501           41345        S40.131            DLOAD    DMP                                   #  TGO LESS THAN 100 CS
031655,001975: 16,2502           03076                                    WEIGHT/G                              
031656,001976: 16,2503           56215                           DAD      DDV                                   
031657,001977: 16,2504           36013                                    K2VAL                                 #  M.NEWTON-CS AT +24
031658,001978: 16,2505           36015                                    K3VAL                                 #  M.NEWTONS AT +10
031659,001979: 16,2506           77776        S40.132            EXIT                                           
031660,001980: 16,2507  E7,1427                                  EBANK=   TGO                                   
031661,001981: 16,2507           07226                           TC       TPAGREE                               
031662,001982: 16,2510           30154                           CA       MPAC                                  
031663,001983: 16,2511           56001                           XCH      L                                     
031664,001984: 16,2512           35021                           CA       ZERO                                  
031665,001985: 16,2513           53430                           DXCH     TGO                                   #  TGO IN CS AT +28
031666,001986: 16,2514           02517                           TC       S40.134                               
031667,001987: 16,2515           77414        S40.133            CLEAR    EXIT                                  #  WILL STEER VEHICLE
031668,001988: 16,2516           01266                                    IMPULSW                               
031669,001989: 16,2517           05412        S40.134            TC       PHASCHNG                              #  KILL GROUP 3
031670,001990: 16,2520           00003                           OCT      3                                     
031671,001991: 
031672,001992: 16,2521           15217                           TCF      ENDOFJOB                              
031673,001993: 
031674,001994: 16,2522           06006        NOTADDUL           TC       INTPRET                               
031675,001995: 16,2523           77650                           GOTO                                           
031676,001996: 16,2524           34451                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
031677,001997: 17,2000                                           SETLOC   DAPS7                                 
031678,001998: 17,2000                                           BANK                                           
031679,001999: 
031680,002000: 17,2012                                           COUNT    17/40.13                              
031681,002001: 
031682,002002: 17,2012  E3,1767               K1VAL              =        EK1VAL                                #  DP PAD LOAD B+23 NEWTON-SEC/E+2
031683,002003: 17,2012           00000 15715  K2VAL              2DEC     222.411081 B-23                       #   5000 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
031684,002004: 17,2014           00552 37144  K3VAL              2DEC     11.3429651 B-9                        #  25500 LBS, SC.AT B+9 NEWTONS/E+4
031685,002005: 17,2016           00144 00000  1SEC2D             2DEC     100.0      B-14                       #  100.0 CS AT +14

Page 728

031687,002007: 17,2020           01274 00000  3.5SEC             2DEC     350.0      B-13                       #  350.0 CS AT +13
031688,002008: 
031689,002009: 17,2022           00764 00000  5SECOND            2DEC     500.0      B-14                       #  500 CS AT +14
031690,002010: 
031691,002011: 17,2024           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
031692,002012:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
031693,002013:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
031694,002014:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)
031695,002015: 

Page 729

031697,002017:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031698,002018:                                                                                                  #  MOD NO 5                              DATE 9 MARCH, 1967
031699,002019:                                                                                                  #  MOD BY ENGEL                          LOG SECTION P40-P47
031700,002020: 
031701,002021:                                                                                                  #  FUNCTIONAL DESCRIPTION
031702,002022:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031703,002023:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW.  ASTRONAUT VERIFICATION
031704,002024:                                                                                                  #                OF GIMBAL MOTION ON GPI
031705,002025:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031706,002026:                                                                                                  #                PRE-COMPUTED TRIM POSITION.  ASTRONAUT VERIFICATION ON GPI.
031707,002027:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031708,002028:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031709,002029:                                                                                                  #                BYPASS 4 SEC DELAY.  SPEED IS CRITICAL NEAR IGNITION.
031710,002030:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
031711,002031:                                                                                                  #                OF RESTARTING ACTUATORS.
031712,002032: 
031713,002033:                                                                                                  #  CALLING SEQUENCE....
031714,002034:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031715,002035: 
031716,002036:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
031717,002037: 
031718,002038:                                                                                                  #  SUBROUTINES CALLED....
031719,002039:                                                                                                  #        OUTPUT (INTERNAL)
031720,002040:                                                                                                  #        FIXDELAY
031721,002041: 
031722,002042:                                                                                                  #  ALARM OR ABORT EXIT MODES - NONE
031723,002043: 
031724,002044:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
031725,002045:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
031726,002046:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031727,002047:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
031728,002048:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P, YTRIM)
031729,002049:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
031730,002050:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031731,002051: 
031732,002052:                                                                                                  #  OUTPUT
031733,002053:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
031734,002054:                                                                                                  #        TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
031735,002055: 
031736,002056:                                                                                                  #  DEBRIS
031737,002057:                                                                                                  #        TEMPR60, CNTR
031738,002058: 
031739,002059: 17,2026                                           BANK     17                                    
031740,002060: 20,2000                                           SETLOC   DAPS6                                 
031741,002061: 20,2000                                           BANK                                           
031742,002062: 
031743,002063: 20,2241  E6,1447                                  EBANK=   CNTR                                  
031744,002064: 20,2241                                           COUNT    20/S40.6                              
031745,002065: 
031746,002066: 20,2241           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
031747,002067: 20,2242           74105                           MASK     OCT60000                              #        IF TVC, BITS 15,|4 = 1,0)
031748,002068: 20,2243           00006                           EXTEND                                         
031749,002069: 20,2244           62246                           BZMF     +2                                    
031750,002070: 20,2245           15324                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
031751,002071: 
031752,002072: 20,2246           45017                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY

Page 730

031754,002074: 20,2247           55445                           TS       MRKRTMP                               
031755,002075: 
031756,002076: 20,2250           35017                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
031757,002077: 20,2251           55447                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR IS
031758,002078:                                                                                                  #        NORMALLY +0, BY S40.6)
031759,002079: 
031760,002080: 20,2252  E6,1447                                  EBANK=   CNTR                                  
031761,002081: 20,2252           45021        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
031762,002082: 20,2253           55303                           TS       OPTIND                                
031763,002083: 
031764,002084: 20,2254           45016                           CS       BIT2                                  #  DISENABLE OPTICS ERROR COUNTERS (ZERO,
031765,002085: 20,2255           00006                           EXTEND                                         #        AND INHIBIT PULSE TRANSMISSION -
031766,002086: 20,2256           03012                           WAND     CHAN12                                #        NORMAL STATE)
031767,002087: 
031768,002088: 20,2257           32344                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
031769,002089: 20,2260           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
031770,002090: 20,2261           05012                           WOR      CHAN12                                
031771,002091: 
031772,002092: 20,2262           05267                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031773,002093: 20,2263           00006                           DEC      6          B-14                       #        RELAY LATCHING
031774,002094: 
031775,002095: 20,2264           35016                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
031776,002096: 20,2265           00006                           EXTEND                                         
031777,002097: 20,2266           05012                           WOR      CHAN12                                
031778,002098: 
031779,002099: 20,2267           05267                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031780,002100: 20,2270           00002                           DEC      2          B-14                       #        RELAY LATCHING
031781,002101: 
031782,002102: 20,2271           11447        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
031783,002103: 20,2272           12332                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
031784,002104:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY
031785,002105: 
031786,002106: 20,2273           31445                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
031787,002107: 20,2274           55447                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
031788,002108: 20,2275           00006                           EXTEND                                         
031789,002109: 20,2276           62330                           BZMF     GIMTRIM                               #  (TRIM ONLY)
031790,002110: 
031791,002111: 20,2277           45021        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
031792,002112: 20,2300           55447                           TS       CNTR                                  
031793,002113: 
031794,002114: 20,2301           32346        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
031795,002115: 20,2302           02315                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
031796,002116: 20,2303           32345                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
031797,002117: 20,2304           02315                           TC       OUTPUT                                
031798,002118: 20,2305           32346                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
031799,002119: 20,2306           02315                           TC       OUTPUT                                
031800,002120: 
031801,002121: 20,2307           41447                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST

Page 731

031803,002123: 20,2310           10000                           CCS      A                                     
031804,002124: 20,2311           12330                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
031805,002125: 20,2312           45017                           CS       BIT1                                  #  SET UP YAW TEST
031806,002126: 20,2313           55447                           TS       CNTR                                  
031807,002127: 20,2314           12301                           TCF      GIMDTEST                              #  FOR YAW TEST
031808,002128: 
031809,002129: 20,2315           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
031810,002130: 20,2316           23146                           QXCH     TEMPR60                               
031811,002131: 
031812,002132: 20,2317           51447                           INDEX    CNTR                                  
031813,002133: 20,2320           54054                           TS       TVCPITCH                              
031814,002134: 
031815,002135: 20,2321           51447                           INDEX    CNTR                                  
031816,002136: 20,2322           35005                           CAF      BIT11                                 
031817,002137: 20,2323           00006                           EXTEND                                         
031818,002138: 20,2324           05014                           WOR      CHAN14                                
031819,002139: 
031820,002140: 20,2325           05267                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031821,002141: 20,2326           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
031822,002142: 20,2327           01146                           TC       TEMPR60                               
031823,002143: 
031824,002144: 20,2330           05267        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
031825,002145: 20,2331           00620                           DEC      400        B-14                       
031826,002146: 
031827,002147: 20,2332           45021                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
031828,002148: 20,2333           61423                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
031829,002149: 20,2334           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
031830,002150: 20,2335           45021                           CS       ZERO                                  
031831,002151: 20,2336           61424                           AD       YACTOFF                               
031832,002152: 20,2337           54053                           TS       TVCYAW                                
031833,002153: 
031834,002154: 20,2340           35062                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
031835,002155: 20,2341           00006                           EXTEND                                         
031836,002156: 20,2342           05014                           WOR      CHAN14                                
031837,002157: 
031838,002158: 20,2343           15324        ENDS40.6           TCF      TASKOVER                              
031839,002159: 
031840,002160: 20,2344           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031841,002161: 20,2345           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031842,002162: 20,2346           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031843,002163: 
031844,002164:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
031845,002165: 
031846,002166: 20,2347                                           COUNT    20/S41.2                              
031847,002167: 
031848,002168: 20,2347           31466        S41.2              CA       DAPDATR1                              

Page 732

031850,002170: 20,2350           76214                           MASK     THREE                                 
031851,002171: 20,2351           60000                           AD       A                                     
031852,002172: 20,2352           55130                           TS       RATEINDX                              
031853,002173: 
031854,002174: 20,2353           00004                           INHINT                                         
031855,002175: 20,2354           31466                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
031856,002176: 20,2355           74371                           MASK     PRIO30                                #        =10)
031857,002177: 20,2356           67705                           AD       -BIT14                                #  (OCT57777)
031858,002178: 20,2357           00006                           EXTEND                                         
031859,002179: 20,2360           12365                           BZF      TOGETHER                              #  YES
031860,002180: 
031861,002181: 20,2361           45016                           CS       BIT2                                  #  NO, UNSET FLAG
031862,002182: 20,2362           70103                           MASK     FLAGWRD7                              
031863,002183: 20,2363           54103                           TS       FLAGWRD7                              
031864,002184: 
031865,002185: 20,2364           12370                           TCF      +4                                    
031866,002186: 
031867,002187: 20,2365           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
031868,002188: 20,2366           75016                           MASK     BIT2                                  
031869,002189: 20,2367           26103                           ADS      FLAGWRD7                              
031870,002190: 
031871,002191: 20,2370           00003                           RELINT                                         
031872,002192: 
031873,002193: 20,2371           31466                           CA       DAPDATR1                              
031874,002194: 20,2372           75014                           MASK     BIT4                                  
031875,002195: 20,2373           00006                           EXTEND                                         
031876,002196: 20,2374           62376                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
031877,002197: 20,2375           32476                           CA       DEC409                                
031878,002198: 20,2376           62477                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
031879,002199: 20,2377           55655                           TS       ADB                                   
031880,002200: 
031881,002201: 20,2400           31466                           CA       DAPDATR1                              
031882,002202: 20,2401           75011                           MASK     BIT7                                  #  QUAD BD
031883,002203: 20,2402           00006                           EXTEND                                         
031884,002204: 20,2403           62405                           BZMF     +2                                    
031885,002205: 20,2404           35017                           CA       ONE                                   
031886,002206: 20,2405           55631                           TS       XTRANS                                
031887,002207: 20,2406           31466                           CA       DAPDATR1                              
031888,002208: 20,2407           75006                           MASK     BIT10                                 #  QUAD AC
031889,002209: 20,2410           00006                           EXTEND                                         
031890,002210: 20,2411           62413                           BZMF     +2                                    
031891,002211: 20,2412           45017                           CS       ONE                                   
031892,002212: 20,2413           27631                           ADS      XTRANS                                
031893,002213: 
031894,002214: 20,2414           00004                           INHINT                                         
031895,002215: 20,2415           00006                           EXTEND                                         
031896,002216: 20,2416           12423                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
031897,002217: 20,2417           40075                           CS       FLAGWRD1                              #  SET NJETSFLG (2 JETS, AC OR BD QUADS)
031898,002218: 20,2420           75001                           MASK     BIT15                                 #  NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
031899,002219: 20,2421           26075                           ADS      FLAGWRD1                              

Page 733

031901,002221: 20,2422           12426                           TCF      +4                                    
031902,002222: 20,2423           45001                           CS       BIT15                                 #  NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
031903,002223: 20,2424           70075                           MASK     FLAGWRD1                              
031904,002224: 20,2425           54075                           TS       FLAGWRD1                              
031905,002225: 20,2426           00003                           RELINT                                         
031906,002226: 20,2427           31467                           CA       DAPDATR2                              
031907,002227: 20,2430           75003                           MASK     BIT13                                 
031908,002228: 20,2431           00006                           EXTEND                                         
031909,002229: 20,2432           62434                           BZMF     +2                                    
031910,002230: 20,2433           12435                           TCF      +2                                    
031911,002231: 20,2434           45017                           CS       ONE                                   
031912,002232: 20,2435           40000                           COM                                            
031913,002233: 20,2436           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
031914,002234: 
031915,002235: 20,2437           31467                           CA       DAPDATR2                              
031916,002236: 20,2440           75006                           MASK     BIT10                                 
031917,002237: 20,2441           10000                           CCS      A                                     
031918,002238: 20,2442           12446                           TCF      +4                                    
031919,002239: 20,2443           35017                           CA       ONE                                   
031920,002240: 20,2444           55626                           TS       RACFAIL                               
031921,002241: 20,2445           12456                           TCF      BDFAIL                                
031922,002242: 20,2446           35021                           CA       ZERO                                  
031923,002243: 20,2447           55626                           TS       RACFAIL                               
031924,002244: 20,2450           31467                           CA       DAPDATR2                              
031925,002245: 20,2451           75014                           MASK     BIT4                                  
031926,002246: 20,2452           10000                           CCS      A                                     
031927,002247: 20,2453           12456                           TCF      BDFAIL                                
031928,002248: 20,2454           45017                           CS       ONE                                   
031929,002249: 20,2455           55626                           TS       RACFAIL                               
031930,002250: 20,2456           31467        BDFAIL             CA       DAPDATR2                              
031931,002251: 20,2457           75011                           MASK     BIT7                                  
031932,002252: 20,2460           10000                           CCS      A                                     
031933,002253: 20,2461           12465                           TCF      +4                                    
031934,002254: 20,2462           35017                           CA       ONE                                   
031935,002255: 20,2463           55627                           TS       RBDFAIL                               
031936,002256: 20,2464           00002                           TC       Q                                     
031937,002257: 20,2465           35021                           CA       ZERO                                  
031938,002258: 20,2466           55627                           TS       RBDFAIL                               
031939,002259: 20,2467           31467                           CA       DAPDATR2                              
031940,002260: 20,2470           75017                           MASK     BIT1                                  
031941,002261: 20,2471           10000                           CCS      A                                     
031942,002262: 20,2472           00002                           TC       Q                                     
031943,002263: 20,2473           45017                           CS       ONE                                   
031944,002264: 20,2474           55627                           TS       RBDFAIL                               
031945,002265: 20,2475           00002                           TC       Q                                     
031946,002266: 
031947,002267:                                                                                                  #  DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
031948,002268: 
031949,002269: 42,3606                                           BANK     42                                    
031950,002270: 42,2000                                           SETLOC   EXTVBS                                

Page 734

031952,002272: 42,2000                                           BANK                                           
031953,002273: 
031954,002274: 42,3606           45007        DAPFIG             CS       BIT9                                  #  TURN OFF SIVB TAKEOVER
031955,002275: 42,3607           00006                           EXTEND                                         
031956,002276: 42,3610           03012                           WAND     CHAN12                                
031957,002277: 42,3611           31466                           CAE      DAPDATR1                              #  DETERMINE VEHICLE CONFIGURATION
031958,002278: 42,3612           00006                           EXTEND                                         
031959,002279: 42,3613           75015                           MP       BIT3                                  #        RIGHT SHIFT 4 OCTAL DIGITS
031960,002280: 42,3614           76214                           MASK     THREE                                 #        (IN CASE BIT 15 IS USED)
031961,002281: 42,3615           50000                           INDEX    A                                     
031962,002282: 42,3616           13617                           TCF      +1                                    #        BRANCH BASED ON CONFIG....
031963,002283: 
031964,002284: 42,3617           13631                           TCF      NODAPUP                               #  CM.......ACTIVATE NODAP
031965,002285: 42,3620           13624                           TCF      RCSDAPUP                              #        CSM......ACTIVATE RCSDAP
031966,002286: 42,3621           13624                           TCF      RCSDAPUP                              #        CSM/LEM..ACTIVATE RCSDAP
031967,002287: 42,3622           04701                           TC       POSTJUMP                              
031968,002288: 42,3623           67215                           CADR     SATSTKON                              
031969,002289: 42,3624           00004        RCSDAPUP           INHINT                                         #  CALL TO ACTIVATE RCSDAP, AND RETURN
031970,002290: 42,3625           04740                           TCR      IBNKCALL                              
031971,002291: 42,3626           42024                           CADR     RCSDAPON                              
031972,002292: 42,3627           00003                           RELINT                                         
031973,002293: 42,3630           13646                           TCF      ENDFIG                                #  CAME IN VIA V46, GO OUT VIA GOPIN
031974,002294: 42,3631           00006        NODAPUP            EXTEND                                         #  T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
031975,002295: 42,3632           33651                           DCA      T5IDLDAP                              
031976,002296: 42,3633           53313                           DXCH     T5LOC                                 
031977,002297: 42,3634           05560                           TC       DOWNFLAG                              #  RESET T5-USAGE FLAGS FOR NODAP
031978,002298: 42,3635           00132                           ADRES    DAPBIT1                               #  BIT 15 FLAG 6 = 0
031979,002299: 42,3636           05560                           TC       DOWNFLAG                              
031980,002300: 42,3637           00133                           ADRES    DAPBIT2                               #  BIT 14 FLAG 6 = 0
031981,002301: 42,3640           00004                           INHINT                                         
031982,002302: 42,3641           04740                           TC       IBNKCALL                              #  ZERO JET CHANNELS IN 14 MS AND THEN
031983,002303: 42,3642           42632                           CADR     ZEROJET                               #  LEAVE THE T6 CLOCK DISABLED.
031984,002304: 42,3643           00003                           RELINT                                         
031985,002305: 42,3644           35017                           CAF      BIT1                                  #  KILL KALCMANU JOB
031986,002306: 42,3645           55332                           TS       HOLDFLAG                              
031987,002307: 42,3646           04701        ENDFIG             TC       POSTJUMP                              #  CAME IN VIA V46, GO OUT VIA GOPIN
031988,002308: 42,3647           66121                           CADR     GOPIN                                 
031989,002309: 42,3650  E6,1423                                  EBANK=   PACTOFF                               
031990,002310: 42,3650           03153 12106  T5IDLDAP           2CADR    T5IDLOC                               
031991,002311: 
031992,002312: 42,3652  30,2000                                  SBANK=   LOWSUPER                              
031993,002313: 17,2026                                           BANK     17                                    
031994,002314: 20,2000                                           SETLOC   DAPS6                                 
031995,002315: 20,2000                                           BANK                                           
031996,002316: 
031997,002317: 20,2476           00631        DEC409             DEC      409        B-14                       
031998,002318: 20,2477           00056        DEC46              DEC      46         B-14                       
031999,002319: 

Page 735

032001,002321: 
032002,002322:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
032003,002323: 20,2500           31470        S40.14             CAE      IXX                                   #  RCS ENTRY
032004,002324: 20,2501           00006                           EXTEND                                         
032005,002325: 20,2502           72525                           MP       CONTONE                               
032006,002326: 20,2503           55623                           TS       J/M                                   
032007,002327: 
032008,002328: 20,2504           31471                           CA       IAVG                                  
032009,002329: 20,2505           00006                           EXTEND                                         
032010,002330: 20,2506           72525                           MP       CONTONE                               
032011,002331: 20,2507           55624                           TS       J/M1                                  
032012,002332: 
032013,002333: 20,2510           55625                           TS       J/M2                                  
032014,002334: 
032015,002335: 20,2511           00006                           EXTEND                                         
032016,002336: 20,2512           32527                           DCA      CONTTWO                               
032017,002337: 20,2513           00006                           EXTEND                                         
032018,002338: 20,2514           11470                           DV       IXX                                   
032019,002339: 20,2515           55620                           TS       KMJ                                   
032020,002340: 
032021,002341: 20,2516           00006                           EXTEND                                         
032022,002342: 20,2517           32527                           DCA      CONTTWO                               
032023,002343: 20,2520           00006                           EXTEND                                         
032024,002344: 20,2521           11471                           DV       IAVG                                  
032025,002345: 20,2522           55621                           TS       KMJ1                                  
032026,002346: 
032027,002347: 20,2523           55622                           TS       KMJ2                                  
032028,002348: 
032029,002349: 20,2524           00002                           TC       Q                                     
032030,002350: 
032031,002351: 20,2525           25137        CONTONE            DEC      .662034                               #  2PI/M
032032,002352: 20,2526           00023 12522  CONTTWO            2DEC     .00118                                
032033,002353: 
032034,002354: 20,2530                                           COUNT    24/TVNG                               
032035,002355: 
032036,002356: 31,3700                                           BANK     31                                    
032037,002357: 24,2000                                           SETLOC   P40S                                  
032038,002358: 24,2000                                           BANK                                           
032039,002359: 
032040,002360: 24,3761           37405        POS-2.5            OCT      37405                                 
032041,002361: 24,3762  E6,1466                                  EBANK=   DAPDATR1                              
032042,002362: 24,3762           02014 42066  RCSCADR            2CADR    RCSUP                                 
032043,002363: 
032044,002364: 24,3764           37704        6SECT5             OCT      37704                                 
032045,002365: 24,3765                                           COUNT    21/RCSUP                              
032046,002366: 
032047,002367: 20,2530                                           BANK     20                                    
032048,002368: 
032049,002369: 21,2000                                           SETLOC   DAPS3                                 
032050,002370: 21,2000                                           BANK                                           
032051,002371: 

Page 736

032053,002373: 
032054,002374: 21,2014           22016        RCSUP              LXCH     BANKRUPT                              
032055,002375: 21,2015           00006                           EXTEND                                         
032056,002376: 21,2016           22012                           QXCH     QRUPT                                 
032057,002377: 
032058,002378: 21,2017           02024                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
032059,002379: 
032060,002380: 21,2020           15333                           TCF      RESUME                                
032061,002381: 
032062,002382: 21,2021  E6,1466                                  EBANK=   DAPDATR1                              
032063,002383: 21,2021           02122 42066  RCSADDR            2CADR    RCSATT                                
032064,002384: 
032065,002385: 21,2023           37704        0.6SECT5           OCT      37704                                 
032066,002386: 
032067,002387:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
032068,002388: 21,2024           32023        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
032069,002389: 21,2025           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
032070,002390: 21,2026           55465                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
032071,002391: 
032072,002392: 21,2027           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
032073,002393: 21,2030           75015                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
032074,002394: 21,2031           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
032075,002395: 
032076,002396: 21,2032           00006                           EXTEND                                         
032077,002397: 21,2033           32022                           DCA      RCSADDR                               #  (RCSATT)
032078,002398: 21,2034           53313                           DXCH     T5LOC                                 
032079,002399: 
032080,002400: 21,2035           44105                           CS       OCT60000                              #  SET BITS 15,14 TO 01 TO INDICATE
032081,002401: 21,2036           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
032082,002402: 21,2037           65002                           AD       BIT14                                 
032083,002403: 21,2040           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
032084,002404: 
032085,002405: 21,2041           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
032086,002406: 
032087,002407: 

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