Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

030685,000002:                                                                                                  ## Copyright:   Public domain.
030686,000003:                                                                                                  ## Filename:    P40-P47.agc
030687,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
030688,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
030689,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
030690,000007:                                                                                                  ##              Apollo 15-17.
030691,000008:                                                                                                  ## Assembler:   yaYUL
030692,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
030693,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030694,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
030695,000012:                                                                                                  ## Mod history: 2009-08-14 JL   Adapted from corresponding Comanche 055 file.
030696,000013:                                                                                                  ##              2009-09-03 JL   Comment out MINDB declaration, it's a comment 
030697,000014:                                                                                                  ##                              line in the page scan.
030698,000015:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
030699,000016:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
030700,000017:                                                                                                  ##              2010-02-02 JL   Fixed page number.
030701,000018:                                                                                                  ##              2010-02-13 JL   Fix errors on pages 699 and 711.
030702,000019:                                                                                                  ##              2010-02-14 JL   Fixed errors on pages 724 and 725.
030703,000020:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
030704,000021:                                                                                                  ##              2017-02-08 RSB  Proofed comment text with octopus/ProoferComments
030705,000022:                                                                                                  ##                              where the mismatch in the diff was too great.
030706,000023:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
030707,000024:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
030708,000025: 

Page 691

030710,000027: 
030711,000028:                                                                                                  #  NAME          P40 - TVC (SPS BURN)
030712,000029:                                                                                                  #                MOD BY ALBERT, BEALS, AND DEMERY TO REORGANIZE
030713,000030:                                                                                                  #                AND REDUCE CODING 15AUG69
030714,000031: 
030715,000032:                                                                                                  #  FUNCTION      TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
030716,000033:                                                                                                  #                AND THRUSTING MANEUVER OF AN SPS BURN
030717,000034: 
030718,000035:                                                                                                  #                CLOKTASK        COMPUTE TIME-TO-GO TO IGNITION (FOR N35/40),
030719,000036:                                                                                                  #                                RECALL CLOKTASK, AND AFTER S40.6 COMPLETION
030720,000037:                                                                                                  #                                CALL CLOCKJOB TO DISPLAY V06N40
030721,000038: 
030722,000039:                                                                                                  #                R02BOTH         CHECK STATUS OF IMU
030723,000040: 
030724,000041:                                                                                                  #                S40.1           COMPUTE: INTIAL THRUST DIRECTION AND
030725,000042:                                                                                                  #                                         INTIAL VALUE OF VELOCITY-TO-BE-
030726,000043:                                                                                                  #                                         GAINED VECTOR (VGTIG)
030727,000044: 
030728,000045:                                                                                                  #                S40.2,3         COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
030729,000046:                                                                                                  #                                         OCCUR WITH PRESENT IMU ORIENTATION,
030730,000047:                                                                                                  #                                         XAXIS OF ENGINE BELL, 
030731,000048:                                                                                                  #                                         PREFERRED IMU ORIENTATION, AND
030732,000049:                                                                                                  #                                         DESIRED THRUST DIRECTION IN SM COORDS
030733,000050: 
030734,000051:                                                                                                  #                R60CSM          PERFORM ATTITUDE MANEUVER
030735,000052: 
030736,000053:                                                                                                  #                S40.6           HANDLE GIMBAL TEST AND TRIM OR TRIM ONLY
030737,000054: 
030738,000055:                                                                                                  #                MIDTOAV1        EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
030739,000056: 
030740,000057:                                                                                                  #                TIGBLNK         BLANK DSKY AT TIG-35 SECS AND
030741,000058:                                                                                                  #                                WAITLIST TIGAVEG IN 5 SECS
030742,000059: 
030743,000060:                                                                                                  #                TIGAVEG         UNBLANK DSKY, 
030744,000061:                                                                                                  #                                WAITLIST TIG-5 IN 24.96 SECS, AND
030745,000062:                                                                                                  #                                START SERVICER
030746,000063: 
030747,000064:                                                                                                  #                TIG-5           DISPLAY FLASHING V99N40:
030748,000065:                                                                                                  #                                ENGINE IGNITION ENABLE,
030749,000066:                                                                                                  #                                WAITLIST TIG-0 IN 5 SECS, AND
030750,000067:                                                                                                  #                                FINDVAC S40.13 TO DETERMINE IF THIS IS
030751,000068:                                                                                                  #                                AN IMPULSIVE OR STEERING BURN
030752,000069: 
030753,000070:                                                                                                  #                TIG-0           CHECK IF ASTRONAUT HAS O.K.ED IGNITION (PRIOR
030754,000071:                                                                                                  #                                PROCEED TO V99N40) - IF NOT, IGNITION WILL BE
030755,000072:                                                                                                  #                                ENTERED BY CLOCKJOB IN RESPONSE TO V99N40
030756,000073: 
030757,000074:                                                                                                  #                CLOCKJOB        (CALLED EVERY SEC)
030758,000075:                                                                                                  #                                DISPLAY V06N40 EXCEPT WHEN SIGNALED BY TIG-5
030759,000076:                                                                                                  #                                TO FLASH V99N40 AND
030760,000077:                                                                                                  #                                CALL IGNITION WHEN PROCEED RESPONSE TO V99N40
030761,000078:                                                                                                  #                                HAS OCCURRED AND TIG HAS PASSED

Page 692

030763,000080:                                                                                                  #                IGNITION        TURN ON ENGINE,
030764,000081:                                                                                                  #                                CHECK IF IMPULSIVE BURN, AND IF SO
030765,000082:                                                                                                  #                                SET UP ENGINOFF COMMAND
030766,000083: 
030767,000084:                                                                                                  #                S40.8           UPDATE VELOCITY TO-BE-GAINED VECTOR,
030768,000085:                                                                                                  #                                GENERATE ANGULAR RATE STEERING COMMANDS
030769,000086:                                                                                                  #                                FOR AUTO PILOT,
030770,000087:                                                                                                  #                                UPDATE CSMMASS,
030771,000088:                                                                                                  #                                ESTABLISH ENGINE CUT-OFF SIGNAL AT
030772,000089:                                                                                                  #                                APPROPRIATE TIME, AND
030773,000090:                                                                                                  #                                INITIATE R40, IF THRUST FAILS
030774,000091: 
030775,000092:                                                                                                  #                S40.9           (AIMPOINT MANEUVERS ONLY)
030776,000093:                                                                                                  #                                GENERATE REQUIRED VEL-TO-BE-GAINED VECTOR AND
030777,000094:                                                                                                  #                                UPDATE B-VECTOR WHICH IS USED IN FINAL
030778,000095:                                                                                                  #                                CALCULATION OF EXTRAPOLATING THE VG VECTOR
030779,000096: 
030780,000097:                                                                                                  #                ENGINOFF        WIPE OUT TVC,
030781,000098:                                                                                                  #                                TURN OFF CLOKTASK,
030782,000099:                                                                                                  #                                SHUT DOWN ENGINE,
030783,000100:                                                                                                  #                                ADJUST VEHICLE MASS PROPERTIES,
030784,000101:                                                                                                  #                                TURN ON RCS DAP, AND
030785,000102:                                                                                                  #                                UPDATE ENGINE TRIMS
030786,000103: 
030787,000104:                                                                                                  #                POSTBURN        DISPLAY FLASHING V16N40,
030788,000105:                                                                                                  #                                CLEAN UP AFTER ENGINE CUT-OFF, AND
030789,000106:                                                                                                  #                                MAINTAIN VG COMP FOR POSSIBLE RCS TRIM
030790,000107: 
030791,000108:                                                                                                  #                *************************************************
030792,000109:                                                                                                  #                PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
030793,000110:                                                                                                  #                *************************************************
030794,000111: 
030795,000112:                                                                                                  #  INPUT         XDELVFLG = 1 EXTERNAL DELTA V
030796,000113: 
030797,000114:                                                                                                  #                    DELVSIN     CHANGE OF VELOCITY (VECTOR)
030798,000115:                                                                                                  #                    RTIG        CSM POSITION AT TIG
030799,000116:                                                                                                  #                    VTIG        CSM VELOCITY AT TIG
030800,000117:                                                                                                  #                    TIG         IGNITION TIME
030801,000118:                                                                                                  #                    CSTEER =    0
030802,000119: 
030803,000120:                                                                                                  #                XDELVFLG = 0 LAMBERT (AIMPOINT)
030804,000121: 
030805,000122:                                                                                                  #                    RTARG       AIMPOINT POSITION VECTOR
030806,000123:                                                                                                  #                    TPASS4      TIME OF ARRIVAL AT AIMPOINT
030807,000124:                                                                                                  #                    TIG         IGNITION TIME
030808,000125:                                                                                                  #                    CSTEER =    1
030809,000126: 
030810,000127:                                                                                                  #  ALARMS        1407            VG INCREASING
030811,000128:                                                                                                  #                1703            INSUFFICIENT TIME FOR INTEGRATION
030812,000129:                                                                                                  #                                TIG WAS SLIPPED
030813,000130: 

Page 693

030815,000132: 27,3032  E6,1465                                  EBANK=   DAPDATR1                              
030816,000133: 24,2000                                           SETLOC   P40S                                  
030817,000134: 24,2000                                           BANK                                           
030818,000135: 24,2214                                           COUNT*   $$/P40                                
030819,000136: 24,2214           06006        P40CSM             TC       INTPRET                               
030820,000137: 24,2215           67214                           CLEAR    SLOAD                                 
030821,000138: 24,2216           00664                                    ENG2FLAG                              
030822,000139: 24,2217           03425                                    ECSTEER                               
030823,000140: 24,2220           71214                           BOFF     DLOAD                                 
030824,000141: 24,2221           01347                                    XDELVFLG                              #  EXTERNAL DELTA V ?
030825,000142: 24,2222           50224                                    P40S/C                                #  NO CSTEER = ECSTEER
030826,000143: 24,2223           15336                                    HI6ZEROS                              #  YES CSTEER = ZERO
030827,000144: 24,2224           17703        P40S/C             STODL    CSTEER                                
030828,000145: 24,2225           11532                                    FENG                                  #  SET UP THRUST FOR S40.1
030829,000146: 24,2226           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
030830,000147: 24,2227           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
030831,000148: 24,2230           17450                           STODL    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
030832,000149: 24,2231           11530                                    SEC29.96                              
030833,000150: 24,2232           03460                           STORE    AVEGDT                                #  START AVERAGEG AT TIG-29.96
030834,000151: 24,2233           77414                           CLEAR    EXIT                                  
030835,000152: 24,2234           05265                                    BURNFLAG                              
030836,000153: 
030837,000154: 24,2235           04655        TFIGINIT           TC       POSTJUMP                              #  START CLOKTASK TO
030838,000155: 24,2236           73566                           CADR     STARTTGO                              #  CALCULATE TFI FOR N35/40
030839,000156: 24,2237           04636                 +2        TC       BANKCALL                              
030840,000157: 24,2240           03731                           CADR     R02BOTH                               #  IMU STATUS CHECK
030841,000158: 

Page 694

030843,000160:                                                                                                  #  NAME  S40.1
030844,000161: 
030845,000162:                                                                                                  #  FUNCTIONAL DESCRIPTION
030846,000163:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION (UT) AND INITIAL VALUE OF VG
030847,000164:                                                                                                  #        VECTOR (VGTIG).
030848,000165: 
030849,000166:                                                                                                  #  SUBROUTINES CALLED
030850,000167:                                                                                                  #        CSMPREC
030851,000168:                                                                                                  #        INITVEL
030852,000169:                                                                                                  #        CALCGRAV
030853,000170:                                                                                                  #        MIDGIM
030854,000171: 
030855,000172:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030856,000173:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP      B16 KGM
030857,000174:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
030858,000175:                                                                                                  #    IF DELTA-V MANEUVER
030859,000176:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
030860,000177:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
030861,000178:                                                                                                  #                        AT TIME OF IGNITION                     VECTOR  B7 M/CS
030862,000179:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION            VECTOR  B29 M
030863,000180:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION            VECTOR  B7 M/CS
030864,000181:                                                                                                  #        CSTEER = 0                                              DP
030865,000182:                                                                                                  #    IF AIMPOINT STEERING
030866,000183:                                                                                                  #        TIG             TIME OF IGNITION                        DP      B28 CS
030867,000184:                                                                                                  #        RTARG           POSITION TARGET TIME                    VECTOR  B29 M
030868,000185:                                                                                                  #        TPASS4          TIME OF ARRIVAL AT AIMPOINT
030869,000186:                                                                                                  #        CSTEER = ECSTEER (GR 0)                                 DP      B1
030870,000187: 
030871,000188:                                                                                                  #  OUTPUT
030872,000189:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030873,000190:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
030874,000191:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR  B7 M/CS
030875,000192:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.
030876,000193:                                                                                                  #        F               NOMINAL THRUST FOR ENGINE               DP      B7 M-NEWT
030877,000194:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030878,000195:                                                                                                  #        -GDT            FOR S40.13                              VECT    B7 M/CS
030879,000196:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR  B29M
030880,000197:                                                                                                  #                        POSITION AT TIME OF IGNITION
030881,000198: 
030882,000199: 24,2241                                           COUNT*   $$/S40.1                              
030883,000200: 24,2241           06006        S40.1              TC       INTPRET                               
030884,000201: 24,2242           77214                           SET      VLOAD                                 
030885,000202: 24,2243           01070                                    FIRSTFLG                              
030886,000203: 24,2244           15336                                    HI6ZEROS                              
030887,000204: 24,2245           03705                           STORE    BDT                                   
030888,000205: 24,2246           77614                           BOFF                                           
030889,000206: 24,2247           01347                                    XDELVFLG                              
030890,000207: 24,2250           34065                                    S40.1B                                #  LAMBERT
030891,000208: 24,2251           51575                           VLOAD    ABVAL                                 #  EXTERNAL DELTA-V
030892,000209: 24,2252           03646                                    DELVSIN                               
030893,000210: 24,2253           27654                           STOVL    DELVSAB                               
030894,000211: 24,2254           03640                                    VTIG                                  
030895,000212: 24,2255           03576                           STORE    VINIT                                 
030896,000213: 24,2256           53435                           VXV      UNIT                                  

Page 695

030898,000215: 24,2257           03632                                    RTIG                                  
030899,000216: 24,2260           27713                           STOVL    UT                                    #  UP IN UT
030900,000217: 24,2261           03632                                    RTIG                                  
030901,000218: 24,2262           03570                           STORE    RINIT                                 
030902,000219: 24,2263           65236                           VSQ      PDDL                                  
030903,000220: 24,2264           00045                                    36D                                   
030904,000221: 24,2265           56275                           DMPR     DDV                                   
030905,000222: 24,2266           17051                                    THETACON                              
030906,000223: 24,2267           41205                           DMP      DMP                                   
030907,000224: 24,2270           03654                                    DELVSAB                               
030908,000225: 24,2271           03076                                    WEIGHT/G                              
030909,000226: 24,2272           77671                           DDV                                            
030910,000227: 24,2273           03727                                    F                                     
030911,000228: 24,2274           24017                           STOVL    14D                                   
030912,000229: 24,2275           03646                                    DELVSIN                               
030913,000230: 24,2276           74241                           DOT      VXSC                                  
030914,000231: 24,2277           03713                                    UT                                    
030915,000232: 24,2300           03713                                    UT                                    
030916,000233: 24,2301           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030917,000234: 24,2302           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
030918,000235: 24,2303           03646                                    DELVSIN                               
030919,000236: 24,2304           00017                                    14D                                   
030920,000237: 24,2305           63356                           SIN      PDVL                                  
030921,000238: 24,2306           00007                                    6D                                    
030922,000239: 24,2307           53435                           VXV      UNIT                                  
030923,000240: 24,2310           03713                                    UT                                    
030924,000241: 24,2311           45561                           VXSC     STADR                                 
030925,000242: 24,2312           50056                           STOVL    VGTIG                                 #  UNIT(VP X UP)SIN(THETAT) IN VGTIG
030926,000243: 24,2313           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
030927,000244: 24,2314           00017                                    14D                                   
030928,000245: 24,2315           74346                           COS      VXSC                                  
030929,000246: 24,2316           74255                           VAD      VXSC                                  
030930,000247: 24,2317           03721                                    VGTIG                                 
030931,000248: 24,2320           00045                                    36D                                   
030932,000249: 24,2321           53352                           VSL2     VAD                                   
030933,000250: 24,2322           77626                           STADR                                          
030934,000251: 24,2323           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
030935,000252: 24,2324           77656                           UNIT                                           
030936,000253: 24,2325           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
030937,000254: 24,2326           03721                                    VGTIG                                 
030938,000255: 24,2327           45006                           PUSH     CALL                                  
030939,000256: 24,2330           11200                                    GET.LVC                               #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030940,000257: 

Page 696

030942,000259:                                                                                                  #  NAME  S40.2,3
030943,000260: 
030944,000261:                                                                                                  #  FUNCTIONAL DESCRIPTION
030945,000262:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
030946,000263:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
030947,000264:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
030948,000265:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
030949,000266:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
030950,000267:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
030951,000268:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
030952,000269:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
030953,000270:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
030954,000271: 
030955,000272:                                                                                                  #  SUBROUTINES CALLED
030956,000273:                                                                                                  #        CALCGA
030957,000274: 
030958,000275:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030959,000276:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE                  SP AT 1.0795111 REV.
030960,000277:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE                  SP AT 1.0795111 REV.
030961,000278:                                                                                                  #        UT              DESIRED THRUST DIRECTION                VECT.   B2 M/(CS.CS)
030962,000279:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION            VECT.   B29 M
030963,000280:                                                                                                  #        ENG2FLAG        ON=RCS OFF=SPS
030964,000281: 
030965,000282:                                                                                                  #  OUTPUT
030966,000283:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
030967,000284:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
030968,000285:                                                                                                  #        YSCREF
030969,000286:                                                                                                  #        ZSCREF
030970,000287:                                                                                                  #        GIMBAL ANGLES IN THETAD
030971,000288:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
030972,000289: 
030973,000290: 24,2331                                           COUNT*   $$/S40.2                              
030974,000291: 24,2331           64375        S40.2,3            VLOAD    MXV                                   
030975,000292: 24,2332           03713                                    UT                                    
030976,000293: 24,2333           01734                                    REFSMMAT                              
030977,000294: 24,2334           40372                           VSL1     SETPD                                 
030978,000295: 24,2335           00001                                    00D                                   
030979,000296: 24,2336           17357                           STODL    POINTVSM                              
030980,000297: 24,2337           15336                                    HI6ZEROS                              
030981,000298: 24,2340           41414                           BON      PUSH                                  
030982,000299: 24,2341           00704                                    ENG2FLAG                              
030983,000300: 24,2342           34157                                    S40.2,3B                              
030984,000301: 24,2343           41335                           SLOAD    DMP                                   
030985,000302: 24,2344           03025                                    YACTOFF                               
030986,000303: 24,2345           11542                                    TRIMSCAL                              
030987,000304: 24,2346           43352                           SL1      DAD                                   
030988,000305: 24,2347           11544                                    YBIAS                                 
030989,000306: 24,2350           71406                           PUSH     COS                                   
030990,000307: 24,2351           73525                           PDDL     SIN                                   
030991,000308: 24,2352           67206                           PUSH     SLOAD                                 
030992,000309: 24,2353           03024                                    PACTOFF                               
030993,000310: 24,2354           72405                           DMP      SL1                                   
030994,000311: 24,2355           11542                                    TRIMSCAL                              
030995,000312: 24,2356           41415                           DAD      PUSH                                  

Page 697

030997,000314: 24,2357           11546                                    PBIAS                                 
030998,000315: 24,2360           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
030999,000316: 24,2361           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
031000,000317: 24,2362           14323                           STODL    ZSCREF                                #  SIN(P +P0)
031001,000318: 24,2363           00007                                    6                                     
031002,000319: 24,2364           72405                           DMP      SL1                                   
031003,000320: 24,2365           00005                                    4                                     
031004,000321: 24,2366           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
031005,000322: 24,2367           00007                                    6                                     
031006,000323: 24,2370           72405                           DMP      SL1                                   
031007,000324: 24,2371           00003                                    2                                     
031008,000325: 24,2372           77666                           VDEF                                           
031009,000326: 24,2373           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
031010,000327: 24,2374           00323                                    ZSCREF                                
031011,000328: 24,2375           72405                           DMP      SL1                                   
031012,000329: 24,2376           00005                                    4                                     
031013,000330: 24,2377           41325                           PDDL     DMP                                   
031014,000331: 24,2400           00323                                    ZSCREF                                
031015,000332: 24,2401           00003                                    2                                     
031016,000333: 24,2402           57552                           SL1      DCOMP                                 
031017,000334: 24,2403           77666                           VDEF                                           
031018,000335: 24,2404           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
031019,000336: 24,2405           77666                           VDEF                                           
031020,000337: 24,2406           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
031021,000338: 24,2407           00323                                    ZSCREF                                
031022,000339: 24,2410           65325                           PDDL     PDDL                                  
031023,000340: 24,2411           00315                                    YSCREF                                
031024,000341: 24,2412           00307                                    XSCREF                                
031025,000342: 24,2413           77666                           VDEF                                           
031026,000343: 24,2414           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
031027,000344: 24,2415           03713                                    UT                                    
031028,000345: 24,2416           53515                           PDVL     UNIT                                  
031029,000346: 24,2417           03632                                    RTIG                                  
031030,000347: 24,2420           57435                           VXV      VCOMP                                 
031031,000348: 24,2421           00001                                    0                                     
031032,000349: 24,2422           41456                           UNIT     PUSH                                  
031033,000350: 24,2423           77624                           CALL                                           
031034,000351: 24,2424           61702                                    TSTRXUT                               
031035,000352: 24,2425           57435                           VXV      VCOMP                                 
031036,000353: 24,2426           00001                                    0                                     
031037,000354: 24,2427           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
031038,000355: 24,2430           00307                                    XSCREF                                
031039,000356: 24,2431           76505                           VXM      VSL1                                  
031040,000357: 24,2432           00001                                    0                                     
031041,000358: 24,2433           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
031042,000359: 24,2434           00315                                    YSCREF                                
031043,000360: 24,2435           76505                           VXM      VSL1                                  
031044,000361: 24,2436           00001                                    0                                     
031045,000362: 24,2437           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
031046,000363: 24,2440           00323                                    ZSCREF                                

Page 698

031048,000365: 24,2441           76505                           VXM      VSL1                                  
031049,000366: 24,2442           00001                                    0                                     
031050,000367: 24,2443           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
031051,000368: 24,2444                                           COUNT*   $$/P40                                
031052,000369: 
031053,000370: 24,2444           77414        P40SXTY            SET      EXIT                                  
031054,000371: 24,2445           01073                                    PFRATFLG                              
031055,000372: 24,2446           03202                           TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
031056,000373: 24,2447           05561                           TC       DOWNFLAG                              
031057,000374: 24,2450           00124                           ADRES    3AXISFLG                              
031058,000375: 24,2451           04636                           TC       BANKCALL                              
031059,000376: 24,2452           56074                           CADR     R60CSM                                #  ATTITUDE MANEUVER
031060,000377: 24,2453           05402                           TC       PHASCHNG                              #  COMPTGO DESTROYS
031061,000378: 24,2454           00014                           OCT      00014                                 #  4.1 RESTART SETUP
031062,000379: 24,2455           44770                           CS       ONE                                   #  FOR UPDATEVG
031063,000380: 24,2456           55724                           TS       NBRCYCLS                              
031064,000381: 24,2457           06006                           TC       INTPRET                               
031065,000382: 24,2460           77614                           BON                                            
031066,000383: 24,2461           00704                                    ENG2FLAG                              #  P40 OR P41 ?
031067,000384: 24,2462           51626                                    P41/DSP                               
031068,000385: 24,2463           51575                           VLOAD    ABVAL                                 #  FOR R2
031069,000386: 24,2464           03721                                    VGTIG                                 
031070,000387: 24,2465           17763                           STODL    VGDISP                                
031071,000388: 24,2466           15336                                    HI6ZEROS                              
031072,000389: 24,2467           17426                           STODL    DVTOTAL                               
031073,000390: 24,2470           11560                                    S40.8ADS                              
031074,000391: 24,2471           01062                           STORE    AVEGEXIT                              
031075,000392: 24,2472           77776                           EXIT                                           
031076,000393: 24,2473           33517        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
031077,000394: 24,2474           04636                           TC       BANKCALL                              
031078,000395: 24,2475           21067                           CADR     GOPERF1                               
031079,000396: 24,2476           13403                           TCF      POST41                                #  V34
031080,000397: 24,2477           12560                           TCF      TST,TRIM                              #  V33
031081,000398: 24,2500           44770        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
031082,000399: 24,2501           55444                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
031083,000400: 24,2502           34772                           CAF      ZERO                                  #  SET CNTR  +0 FOR RESTART LOGIC IN S40.6
031084,000401: 24,2503           55446                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
031085,000402:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
031086,000403: 24,2504           34770                           CAF      ONE                                   
031087,000404: 24,2505           05233                           TC       WAITLIST                              
031088,000405: 24,2506  E6,1465                                  EBANK=   DAPDATR1                              
031089,000406: 24,2506           02366 40066                     2CADR    S40.6                                 
031090,000407: 
031091,000408: 24,2510           11444                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
031092,000409: 24,2511           33523                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
031093,000410: 24,2512           12514                           TCF      +2                                    #  HOLE
031094,000411: 24,2513           33525                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
031095,000412: 24,2514           04636                           TC       BANKCALL                              
031096,000413: 24,2515           01731                           CADR     DELAYJOB                              
031097,000414: 24,2516           33514                           CAF      V06N40                                

Page 699

031099,000416: 24,2517           54777                           TS       NVWORD1                               #  FORCE CLOCKJOB
031100,000417: 24,2520           05362                           TC       2PHSCHNG                              
031101,000418: 24,2521           00026                           OCT      00026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
031102,000419: 24,2522           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
031103,000420: 24,2523  01,2154               4P23SPT1           =        4.23SPOT                              
031104,000421: 24,2523  01,2317               6P2SPT1            =        6.2SPOT                               
031105,000422: 24,2523           04606        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PROTECTS, PRIO12
031106,000423: 24,2524  E7,1412                                  EBANK=   TIG                                   
031107,000424: 24,2524           06006                           TC       INTPRET                               
031108,000425: 24,2525           45345                           DLOAD    DSU                                   
031109,000426: 24,2526           03413                                    TIG                                   
031110,000427: 24,2527           03460                                    AVEGDT                                #  29.96 SEC (P40) 100.00 SEC (P15)
031111,000428: 24,2530           00041                           STORE    TDEC1                                 
031112,000429: 24,2531           77624                           CALRB                                          #  RETURN IN BASIC
031113,000430: 24,2532           27576                                    MIDTOAV1                              
031114,000431: 24,2533           02542                           TC       P40SET                                #  P15 INTEGRATION ALWAYS RETURNS HERE
031115,000432: 24,2534           00006        P40SNEWM           EXTEND                                         #  INTEGRATION TIME GREATER THAN ALLOWED
031116,000433: 24,2535           31105                           DCA      PIPTIME1                              
031117,000434: 24,2536           53413                           DXCH     TIG                                   
031118,000435: 24,2537           00006                           EXTEND                                         
031119,000436: 24,2540           33530                           DCA      SEC29.96                              
031120,000437: 24,2541           21413                           DAS      TIG                                   #  SET NEW TIG FOR V06N40
031121,000438: 24,2542           00006        P40SET             EXTEND                                         
031122,000439: 24,2543           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD
031123,000440: 24,2544           53673                           DXCH     P40TMP                                
031124,000441: 24,2545           00006                           EXTEND                                         
031125,000442: 24,2546           43525                           DCS      5SECDP                                #  FOR TIGBLNK
031126,000443: 24,2547           21673                           DAS      P40TMP                                
031127,000444: 24,2550           00006                           EXTEND                                         
031128,000445: 24,2551           31673                           DCA      P40TMP                                
031129,000446: 24,2552           05332                           TC       LONGCALL                              
031130,000447: 24,2553  E7,1412                                  EBANK=   TIG                                   
031131,000448: 24,2553           02565 50067                     2CADR    TIGBLNK                               
031132,000449: 
031133,000450: 24,2555           05402                           TC       PHASCHNG                              
031134,000451: 24,2556           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
031135,000452: 24,2557  01,2151               4P21SPT1           =        4.21SPOT                              
031136,000453: 24,2557           15205                           TCF      ENDOFJOB                              
031137,000454: 
031138,000455: 24,2560           34770        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
031139,000456: 24,2561           12501                           TCF      TRIMONLY   +1                         
031140,000457: 
031141,000458: 24,2562           04636        P40BLNKR           TC       BANKCALL                              
031142,000459: 24,2563           20715                           CADR     CLEANDSP                              #  REMOVE RESIDUE
031143,000460: 24,2564           15205                           TCF      ENDOFJOB                              
031144,000461: 

Page 700

031146,000463: 24,2565           33525        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN 5 SEC AT TIG - AVEGDT
031147,000464: 24,2566           05223                           TC       TWIDDLE                               
031148,000465: 24,2567           02602                           ADRES    TIGAVEG                               
031149,000466: 24,2570           34772                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
031150,000467: 24,2571           54777                           TS       NVWORD1                               
031151,000468: 24,2572           35053                           CAF      PRIO14                                
031152,000469: 24,2573           05121                           TC       NOVAC                                 
031153,000470: 24,2574  E7,1412                                  EBANK=   TIG                                   
031154,000471: 24,2574           02562 50067                     2CADR    P40BLNKR                              #  DONT PROTECT - RESTARTS BLANK DSKY
031155,000472: 
031156,000473: 24,2576           44342                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
031157,000474: 24,2577           04126        P40TSK             TC       NEWPHASE                              
031158,000475: 24,2600           00004                           OCT      4                                     
031159,000476: 24,2601  01,2176               4P37SPT1           =        4.37SPOT                              
031160,000477: 24,2601           05314                           TC       TASKOVER                              
031161,000478: 
031162,000479: 24,2602  E7,1412                                  EBANK=   TIG                                   
031163,000480: 24,2602           31214        TIGAVEG            CAE      MODREG                                #  TASK (4.37 PROTECTS)
031164,000481: 24,2603           74763                           MASK     BIT6                                  
031165,000482: 24,2604           00006                           EXTEND                                         #  P15 OR P40/P41 ?
031166,000483: 24,2605           12631                           BZF      P15AVEG                               #  P15
031167,000484: 24,2606           44765                           CS       PFRATBIT                              #  P40/P41
031168,000485: 24,2607           70076                           MASK     FLAGWRD2                              
031169,000486: 24,2610           54076                           TS       FLAGWRD2                              
031170,000487: 24,2611           30075                           CAE      FLAGWRD1                              
031171,000488: 24,2612           74756                           MASK     ENG2BIT                               
031172,000489: 24,2613           10000                           CCS      A                                     #  P40 OR P41 ?
031173,000490: 24,2614           13642                           TCF      P41REDSP                              
031174,000491: 24,2615           33514                           CAF      V06N40                                #  UNBLANK DISPLAY
031175,000492: 24,2616           54777                           TS       NVWORD1                               
031176,000493: 24,2617           33522                           CAF      SEC24.96                              
031177,000494: 24,2620           05223                           TC       TWIDDLE                               
031178,000495: 24,2621           02634                           ADRES    TIG-5                                 
031179,000496: 24,2622           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
031180,000497: 24,2623           04126        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
031181,000498: 24,2624           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
031182,000499: 24,2625  01,2102               4P2SPT1            =        4.2SPOT                               
031183,000500: 24,2625  01,2110               4P4SPT1            =        4.4SPOT                               
031184,000501: 24,2625  01,2116               4P6SPT1            =        4.6SPOT                               
031185,000502: 24,2625           11166        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
031186,000503: 24,2626           15314                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
031187,000504: 24,2627           04655                           TC       POSTJUMP                              
031188,000505: 24,2630           76607                           CADR     PREREAD                               
031189,000506: 
031190,000507: 24,2631           33513        P15AVEG            CAF      V06N95B                               
031191,000508: 24,2632           54777                           TS       NVWORD1                               #  UNBLANK DISPLAY
031192,000509: 24,2633           12625                           TCF      PRECHECK                              
031193,000510: 

Page 701

031195,000512: 
031196,000513: 24,2634  E7,1412                                  EBANK=   TIG                                   
031197,000514: 24,2634           33525        TIG-5              CAF      5SEC                                  
031198,000515: 24,2635           05233                           TC       WAITLIST                              
031199,000516: 24,2636  E6,1465                                  EBANK=   DAPDATR1                              
031200,000517: 24,2636           02651 50066                     2CADR    TIG-0                                 
031201,000518: 
031202,000519: 24,2640           44760                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
031203,000520: 24,2641           54777                           TS       NVWORD1                               
031204,000521: 24,2642           05362                           TC       2PHSCHNG                              
031205,000522: 24,2643           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
031206,000523: 24,2644           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
031207,000524: 24,2645  01,2060               3P3SPT1            =        3.3SPOT                               
031208,000525: 24,2645  01,2132               4P7SPT1            =        4.7SPOT                               
031209,000526: 24,2645           05134                           TC       FINVAC20                              
031210,000527: 24,2646  E7,1427                                  EBANK=   TGO                                   
031211,000528: 24,2646           02534 34067                     2CADR    S40.13                                
031212,000529: 
031213,000530: 24,2650           15314                           TCF      TASKOVER                              
031214,000531: 

Page 702

031216,000533: 
031217,000534: 24,2651  E6,1465                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE OR 4.11 (-0 CS IN R40)
031218,000535: 24,2651           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
031219,000536: 24,2652           74754                           MASK     IGNFLBIT                              
031220,000537: 24,2653           26103                           ADS      FLAGWRD7                              
031221,000538: 24,2654           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
031222,000539: 24,2655           74755                           MASK     BIT12                                 
031223,000540: 24,2656           00006                           EXTEND                                         
031224,000541: 24,2657           15314                           BZF      TASKOVER                              #  WAIT FOR V99P
031225,000542: 24,2660           33514                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
031226,000543: 24,2661           54777                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
031227,000544: 24,2662           05402                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
031228,000545: 24,2663           00274                           OCT      00274                                 #  A, 4.27 = IGNITION (-0CS) TBASE OLD
031229,000546: 24,2664  01,2162               4P27SPT1           =        4.27SPOT                              
031230,000547: 24,2664           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
031231,000548: 24,2665           55447                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
031232,000549: 24,2666           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
031233,000550: 24,2667           30025                           DCA      TIME2                                 #        FOR RESTARTS
031234,000551: 24,2670           53022                           DXCH     TEVENT                                
031235,000552: 24,2671           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
031236,000553: 24,2672           74762                           MASK     ENGONBIT                              
031237,000554: 24,2673           26101                           ADS      FLAGWRD5                              
031238,000555: 24,2674           34754        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
031239,000556: 24,2675           00006                           EXTEND                                         
031240,000557: 24,2676           05011                           WOR      DSALMOUT                              
031241,000558: 24,2677           40106                           CS       FLGWRD10                              #  SET BURNFLAG TO INDICATE
031242,000559: 24,2700           74757                           MASK     BURNBIT                               #  THAT THEN CSM DID THE BURN
031243,000560: 24,2701           26106                           ADS      FLGWRD10                              
031244,000561: 
031245,000562: 24,2702           34760        IMPULCHK           CAF      IMPULBIT                              #  CHECK FOR IMPULSIVE BURN
031246,000563: 24,2703           70076                           MASK     FLAGWRD2                              
031247,000564: 24,2704           10000                           CCS      A                                     
031248,000565: 24,2705           12773                           TCF      IMPLBURN                              #  IMPULSIVE
031249,000566: 24,2706           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
031250,000567: 24,2707           74754                           MASK     STRULBIT                              
031251,000568: 24,2710           26102                           ADS      FLAGWRD6                              
031252,000569: 24,2711           44076        PREPTVC            CS       DPCONFIG                              #  RESET T5 BITS
031253,000570: 24,2712           70102                           MASK     FLAGWRD6                              
031254,000571: 24,2713           54102                           TS       FLAGWRD6                              
031255,000572: 24,2714           00006                           EXTEND                                         #  KILL RCS
031256,000573: 24,2715           33550                           DCA      T5IDL24                               
031257,000574: 24,2716           52113                           DXCH     T5LOC                                 
031258,000575: 24,2717           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
031259,000576: 24,2720           04126                           TC       NEWPHASE                              
031260,000577: 24,2721           00004                           OCT      4                                     
031261,000578: 24,2722  01,2124               4P3SPT1            =        4.3SPOT                               
031262,000579: 24,2722           05255                           TC       FIXDELAY                              
031263,000580: 24,2723           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
031264,000581: 24,2724           44770        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
031265,000582: 24,2725           55635                           TS       TVCPHASE                              

Page 703

031267,000584: 24,2726           34772                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
031268,000585: 24,2727           55644                           TS       TVCEXPHS                              
031269,000586: 24,2730           44076                           CS       DPCONFIG                              #  SET T5 BITS TO INDICATE TVC TAKEOVER....
031270,000587: 24,2731           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
031271,000588: 24,2732           64752                           AD       DAP1BIT                               
031272,000589: 24,2733           54102                           TS       FLAGWRD6                              
031273,000590: 24,2734           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
031274,000591: 24,2735           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
031275,000592: 24,2736           40000                           COM                                            
031276,000593: 24,2737           53170                           DXCH     -PHASE6                               
031277,000594: 24,2740  01,2325               6P3SPT2            =        6.3SPOT                               
031278,000595: 24,2740           00006                           EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
031279,000596: 24,2741           41571                           DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
031280,000597: 24,2742           53665                           DXCH     ERRBTMP                               
031281,000598: 24,2743           44773                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
031282,000599: 24,2744           04126                           TC       NEWPHASE                              
031283,000600: 24,2745           00004                           OCT      4                                     
031284,000601: 24,2746  01,2127               4P5SPT1            =        4.5SPOT                               
031285,000602: 24,2746           34750                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
031286,000603: 24,2747           54030                           TS       TIME5                                 
031287,000604: 24,2750           00006                           EXTEND                                         
031288,000605: 24,2751           33562                           DCA      TVCON2C                               #  (TVCDAPON)
031289,000606: 24,2752           52113                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
031290,000607: 24,2753           05255                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
031291,000608: 24,2754           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
031292,000609: 24,2755           40102        DOSTRULL           CS       FLAGWRD6                              #  CHECK STRULLSW FOR IMPULSIVE BURN
031293,000610: 24,2756           74754                           MASK     STRULBIT                              
031294,000611: 24,2757           10000                           CCS      A                                     
031295,000612: 24,2760           02764                           TC       ULAGEOFF                              #  ULLAGE OFF
031296,000613: 24,2761           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
031297,000614: 24,2762           74756                           MASK     STEERBIT                              
031298,000615: 24,2763           26076                           ADS      FLAGWRD2                              
031299,000616: 24,2764           34772        ULAGEOFF           CAF      ZERO                                  
031300,000617: 24,2765           00006                           EXTEND                                         
031301,000618: 24,2766           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5
031302,000619: 24,2767           00006                           EXTEND                                         
031303,000620: 24,2770           34772                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0, +0)
031304,000621: 24,2771           53164                           DXCH     -PHASE4                               
031305,000622: 24,2772           15314        ENDIGN             TCF      TASKOVER                              
031306,000623: 
031307,000624: 24,2773           44754        IMPLBURN           CS       STRULBIT                              #  RESET STRULLSW (COULD BE AN IMPULSIVE
031308,000625: 24,2774           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
031309,000626: 24,2775           54102                           TS       FLAGWRD6                              
031310,000627: 24,2776           04606                           TCR      E7SETTER                              
031311,000628: 24,2777  E7,1412                                  EBANK=   TIG                                   
031312,000629: 24,2777           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
031313,000630: 24,3000           31430                           DCA      TGO                                   
031314,000631: 24,3001           53413                           DXCH     TIG                                   
031315,000632: 24,3002           00006                           EXTEND                                         
031316,000633: 24,3003           30025                           DCA      TIME2                                 

Page 704

031318,000635: 24,3004           21413                           DAS      TIG                                   
031319,000636: 24,3005           05362                           TC       2PHSCHNG                              
031320,000637: 24,3006           40053                           OCT      40053                                 #  A, 3.5 = ENGINOFF (TGO+1)....NOTE GROUP
031321,000638: 24,3007           07014                           OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
031322,000639: 24,3010  01,2063               3P5SPT1            =        3.5SPOT                               
031323,000640: 24,3010           77777                           DEC      -0         B-14                       #  -0 CS
031324,000641: 24,3011  E6,1465                                  EBANK=   DAPDATR1                              
031325,000642: 24,3011           03016 50066                     2CADR    IMPLCONT                              
031326,000643: 
031327,000644: 24,3013           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
031328,000645: 24,3014           05223                           TC       TWIDDLE                               
031329,000646: 24,3015           03023                           ADRES    ENGINOFF                              
031330,000647: 24,3016           44760        IMPLCONT           CS       IMPULBIT                              #  RESET IMPULSW, ENGINOFF IS NOW SET UP
031331,000648: 24,3017           70076                           MASK     FLAGWRD2                              
031332,000649: 24,3020           54076                           TS       FLAGWRD2                              
031333,000650: 24,3021           04611                           TCR      E6SETTER                              
031334,000651: 24,3022  E6,1465                                  EBANK=   DAPDATR1                              
031335,000652: 24,3022           12711                           TCF      PREPTVC                               
031336,000653: 
031337,000654: 24,3023  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
031338,000655: 24,3023           04611        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
031339,000656: 24,3024  E6,1465                                  EBANK=   DAPDATR1                              
031340,000657: 24,3024           03045        DOSPSOFF           TCR      SPSOFF                                #  SHUT DOWN SPS
031341,000658: 24,3025           05255                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
031342,000659: 24,3026           00372                           DEC      250        B-14                       #  RESTART MAY DOUBLE THE DELAY, HIT TEVENT
031343,000660: 24,3027           03217        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
031344,000661: 24,3030           04714                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
031345,000662: 24,3031           42042                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
031346,000663: 24,3032           04714                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
031347,000664: 24,3033           13313                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
031348,000665: 24,3034           03161                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
031349,000666: 24,3035           05362                           TC       2PHSCHNG                              
031350,000667: 24,3036           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF
031351,000668: 24,3037           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
031352,000669: 24,3040  01,2173               4P35SPT1           =        4.35SPOT                              
031353,000670: 24,3040           34664                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
031354,000671: 24,3041           05121                           TC       NOVAC                                 
031355,000672: 24,3042  E6,1465                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
031356,000673: 24,3042           03174 50066                     2CADR    POSTBURN                              
031357,000674: 
031358,000675: 24,3044           15314                           TCF      TASKOVER                              
031359,000676: 
031360,000677: 24,3045  E6,1465                                  EBANK=   DAPDATR1                              
031361,000678: 24,3045           00004        SPSOFF             INHINT                                         
031362,000679: 24,3046           00006                           EXTEND                                         #  ESTABLISH SPSOFF TEVENT
031363,000680: 24,3047           30025                           DCA      TIME2                                 
031364,000681: 24,3050           53022                           DXCH     TEVENT                                
031365,000682: 24,3051           44762                           CS       ENGONBIT                              #  RESET ENGONFLG
031366,000683: 24,3052           70101                           MASK     FLAGWRD5                              
031367,000684: 24,3053           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)

Page 705

031369,000686: 24,3054           44754                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
031370,000687: 24,3055           00006                           EXTEND                                         
031371,000688: 24,3056           03011                           WAND     DSALMOUT                              
031372,000689: 24,3057           34753                           CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
031373,000690: 24,3060           00006                           EXTEND                                         #  FOR POSSIBLE BACK-UP USE
031374,000691: 24,3061           05012                           WOR      CHAN12                                
031375,000692: 24,3062           31635                           CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
031376,000693: 24,3063           64770                           AD       ONE                                   #        THESE CHECKS ARE ONLY NEEDED
031377,000694: 24,3064           00006                           EXTEND                                         #        FOR A LESS THAN 0.4 SEC BURN
031378,000695: 24,3065           13101                           BZF      BTRIMR                                #  NO, INITIALIZATION NOT COMPLETE
031379,000696: 24,3066           40102                           CS       FLAGWRD6                              #  YES, CHECK IF TVC
031380,000697: 24,3067           74076                           MASK     DPCONFIG                              
031381,000698: 24,3070           00006                           EXTEND                                         
031382,000699: 24,3071           63101                           BZMF     BTRIMR                                #  NO, NOT TVC YET       
031383,000700: 24,3072           31633                           CAE      REPFRAC                               #  NO TRIM UPDATES IF R40 (ENGFAIL) ACTIVE
031384,000701: 24,3073           00006                           EXTEND                                         #       (LOTHRUST SETS REPFRAC = 77777)
031385,000702: 24,3074           13101                           BZF      BTRIMR                                
031386,000703: 24,3075           31601        BESTTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
031387,000704: 24,3076           55423                           TS       PACTOFF                               
031388,000705: 24,3077           31603                           CAE      DELYBAR                               
031389,000706: 24,3100           55424                           TS       YACTOFF                               
031390,000707: 24,3101           00002        BTRIMR             TC       Q                                     
031391,000708: 

Page 706

031393,000710: 24,3102                                           COUNT*   $$/S40.8                              
031394,000711: 24,3102  E6,1446                                  EBANK=   CNTR                                  
031395,000712: 24,3102           77775        S40.81             VLOAD                                          #  TGO LESS THAN 4 SECONDS
031396,000713: 24,3103           15336                                    HI6ZEROS                              
031397,000714: 24,3104           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
031398,000715: 24,3105           77776                           EXIT                                           
031399,000716: 24,3106           34750                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
031400,000717: 24,3107           55446                           TS       CNTR                                  
031401,000718: 24,3110           04606                           TCR      E7SETTER                              
031402,000719: 24,3111  E7,1412                                  EBANK=   TIG                                   
031403,000720: 24,3111           00004                           INHINT                                         
031404,000721: 24,3112           00006                           EXTEND                                         
031405,000722: 24,3113           31413                           DCA      TIG                                   
031406,000723: 24,3114           52155                           DXCH     MPAC                                  
031407,000724: 24,3115           00006                           EXTEND                                         
031408,000725: 24,3116           40025                           DCS      TIME2                                 
031409,000726: 24,3117           20155                           DAS      MPAC                                  
031410,000727: 24,3120           07224                           TCR      DPAGREE                               
031411,000728: 24,3121           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
031412,000729: 24,3122           00006                           EXTEND                                         
031413,000730: 24,3123           63125                           BZMF     +2                                    
031414,000731: 24,3124           13126                           TCF      +2                                    
031415,000732: 24,3125           34770                           CAF      ONE                                   
031416,000733: 24,3126           55430                           TS       TGO        +1                         
031417,000734: 24,3127           05223                           TC       TWIDDLE                               
031418,000735: 24,3130           03023                           ADRES    ENGINOFF                              
031419,000736: 24,3131           05362                           TC       2PHSCHNG                              
031420,000737: 24,3132           40053                           OCT      40053                                 #  A,3.5 = ENGINOFF (TGO+1)....NOTE GROUP
031421,000738: 24,3133           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
031422,000739: 24,3134  01,2063               3P5SPT2            =        3.5SPOT                               
031423,000740: 24,3134  01,2250               5P3SPT2            =        5.3SPOT                               
031424,000741: 24,3134           05561        CLEARSTR           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
031425,000742: 24,3135           00042                           ADRES    STEERSW                               #  RESTARTS OK
031426,000743: 24,3136           13614                           TCF      SERVXT                                
031427,000744: 
031428,000745: 24,3137           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
031429,000746: 24,3140           05671                           TC       ALARM                                 #  IN WRONG DIRECTION.
031430,000747: 24,3141           01407                           OCT      01407                                 
031431,000748: 24,3142           13614                           TCF      SERVXT                                
031432,000749: 
031433,000750: 24,3143                                           COUNT*   $$/R40                                
031434,000751: 24,3143           77614        LOTHRUST           BOFF                                           
031435,000752: 24,3144           01344                                    STEERSW                               
031436,000753: 24,3145           51603                                    SERVXT1                               #  NO STEERING. EXIT
031437,000754: 24,3146           77214        R40CHECK           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
031438,000755: 24,3147           00711                                    IDLEFAIL                              #  SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
031439,000756: 24,3150           51603                                    SERVXT1                               #  UNFAVORABLE STEERING SYNCH
031440,000757: 24,3151           15336        R40START                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
031441,000758: 24,3152           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD

Page 707

031443,000760: 24,3153           77776                           EXIT                                           
031444,000761: 24,3154  E6,1465                                  EBANK=   DAPDATR1                              
031445,000762: 24,3154           44772                           CS       ZERO                                  
031446,000763: 24,3155           55633                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
031447,000764: 24,3156           54777                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
031448,000765: 24,3157           13134                           TCF      CLEARSTR                              
031449,000766: 

Page 708

031451,000768: 24,3160                                           COUNT*   $$/P40                                
031452,000769: 24,3160           00004                 -1        INHINT                                         
031453,000770: 24,3161           43520        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
031454,000771: 24,3162           00006                           EXTEND                                         #        OPTICS DAC
031455,000772: 24,3163           03012                           WAND     CHAN12                                
031456,000773: 24,3164           44770                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR....PERMIT
031457,000774: 24,3165           55323                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
031458,000775: 24,3166           34772                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
031459,000776: 24,3167           54777                           TS       NVWORD1                               
031460,000777: 24,3170           44756                           CS       TIMRBIT                               #  CLEAR TIMRFLAG TO STOP CLOKTASK
031461,000778: 24,3171           70103                           MASK     FLAGWRD7                              
031462,000779: 24,3172           54103                           TS       FLAGWRD7                              
031463,000780: 24,3173           00002                           TC       Q                                     
031464,000781: 
031465,000782: 24,3174  E6,1465                                  EBANK=   DAPDATR1                              
031466,000783: 24,3174           33515        POSTBURN           CAF      V16N40                                #  NOVAC, PRIO 12
031467,000784: 24,3175           04636                           TC       BANKCALL                              
031468,000785: 24,3176           20716                           CADR     REFLASH                               
031469,000786: 24,3177           13403                           TCF      POST41                                #  V34 GO FINISH
031470,000787: 24,3200           13441                           TCF      P40RCS                                #  PROCEED
031471,000788: 24,3201           13174                           TCF      POSTBURN                              #  RECYCLE
031472,000789: 
031473,000790: 24,3202  E6,1465                                  EBANK=   DAPDATR1                              
031474,000791: 24,3202           00004                 -1        INHINT                                         
031475,000792: 24,3203           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
031476,000793: 24,3204           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
031477,000794: 24,3205           00006                           EXTEND                                         #  IN AUTOPILOT
031478,000795: 24,3206           30034                           DCA      CDUY                                  
031479,000796: 24,3207           53574                           DXCH     THETADY                               
031480,000797: 24,3210           35007                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
031481,000798: 24,3211           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
031482,000799: 24,3212           44765                           CS       BIT4                                  #  EBANK = E6
031483,000800: 24,3213           71465                           MASK     DAPDATR1                              
031484,000801: 24,3214           55465                           TS       DAPDATR1                              
031485,000802: 24,3215           00002                           TC       Q                                     
031486,000803: 
031487,000804: 24,3216  E6,1465                                  EBANK=   DAPDATR1                              
031488,000805: 24,3216           00004                 -1        INHINT                                         
031489,000806: 24,3217           33521        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
031490,000807: 24,3220           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
031491,000808: 24,3221           41465                           CS       DAPDATR1                              
031492,000809: 24,3222           74765                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
031493,000810: 24,3223           27465                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
031494,000811: 24,3224           00002                           TC       Q                                     #  EBANK = E6
031495,000812: 

Page 709

031497,000814: 24,3225  E7,1412                                  EBANK=   TIG                                   
031498,000815: 24,3225           34756        CLOKTASK           CAF      TIMRBIT                               #  IS TIMRFLAG SET
031499,000816: 24,3226           70103                           MASK     FLAGWRD7                              
031500,000817: 24,3227           10000                           CCS      A                                     
031501,000818: 24,3230           13234                           TCF      CLOCKON                               
031502,000819: 24,3231           05402                           TC       PHASCHNG                              
031503,000820: 24,3232           00006                           OCT      00006                                 #  KILL RESTART
031504,000821: 24,3233           05314                           TC       TASKOVER                              
031505,000822: 24,3234           00006        CLOCKON            EXTEND                                         
031506,000823: 24,3235           30025                           DCA      TIME2                                 
031507,000824: 24,3236           53661                           DXCH     TTOGO                                 
031508,000825: 24,3237           00006                           EXTEND                                         
031509,000826: 24,3240           41413                           DCS      TIG                                   
031510,000827: 24,3241           21661                           DAS      TTOGO                                 
031511,000828: 24,3242           35016        SETCLOCK           CAF      1SEC                                  
031512,000829: 24,3243           05223                           TC       TWIDDLE                               
031513,000830: 24,3244           03225                           ADRES    CLOKTASK                              
031514,000831: 24,3245           10777                           CCS      NVWORD1                               
031515,000832: 24,3246           13251                           TCF      +3                                    
031516,000833: 24,3247           13261                           TCF      SETTB6                                
031517,000834: 24,3250           13251                           TCF      +1                                    
031518,000835: 24,3251           43511                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
031519,000836: 24,3252           60777                           AD       NVWORD1                               
031520,000837: 24,3253           00006                           EXTEND                                         
031521,000838: 24,3254           13264                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
031522,000839: 24,3255           37651                           CAF      PRIO27                                
031523,000840: 24,3256           05121                           TC       NOVAC                                 
031524,000841: 24,3257  E6,1465                                  EBANK=   DAPDATR1                              
031525,000842: 24,3257           03276 50066                     2CADR    CLOCKJOB                              
031526,000843: 
031527,000844: 24,3261           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
031528,000845: 24,3262           55271                           TS       TBASE6                                
031529,000846: 24,3263           15314                           TCF      TASKOVER                              
031530,000847: 
031531,000848: 24,3264           37651        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
031532,000849: 24,3265           05135                           TC       FINDVAC                               
031533,000850: 24,3266  E6,1465                                  EBANK=   DAPDATR1                              
031534,000851: 24,3266           03271 50066                     2CADR    DYNDISP                               
031535,000852: 
031536,000853: 24,3270           13261                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK
031537,000854: 
031538,000855: 24,3271           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
031539,000856: 24,3272           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
031540,000857: 24,3273           51651                                    P40CNV85                              
031541,000858: 24,3274           77776                           EXIT                                           
031542,000859: 24,3275           13306                           TCF      CKNVWRD1                              
031543,000860: 

Page 710

031545,000862: 24,3276  E6,1465                                  EBANK=   DAPDATR1                              
031546,000863: 24,3276           30032        CLOCKJOB           CA       CDUX                                  #  NOVAC, PRIO27
031547,000864: 24,3277           55175                           TS       CDUSPOTX                              
031548,000865: 24,3300           30033                           CA       CDUY                                  
031549,000866: 24,3301           55171                           TS       CDUSPOTY                              
031550,000867: 24,3302           30034                           CA       CDUZ                                  
031551,000868: 24,3303           55173                           TS       CDUSPOTZ                              
031552,000869: 24,3304           04636                           TC       BANKCALL                              
031553,000870: 24,3305           47602                           CADR     QUICTRIG                              
031554,000871: 24,3306           00004        CKNVWRD1           INHINT                                         
031555,000872: 24,3307           10777                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
031556,000873: 24,3310           13466                           TCF      NOFLASH                               
031557,000874: 24,3311           15205                           TCF      ENDOFJOB                              
031558,000875: 24,3312           13427                           TCF      ENGREQST                              
031559,000876: 24,3313           33514        FAILDSP            CAF      V06N40                                #  SPS ENGINE FAILED - FLASH V97
031560,000877: 24,3314           04636                           TC       BANKCALL                              
031561,000878: 24,3315           20727                           CADR     CLOCPLAY                              
031562,000879: 24,3316           13363                           TCF      V97T                                  #  TERMINATE
031563,000880: 24,3317           13407                           TCF      V97P                                  #  PROCEED
031564,000881: 24,3320           05402        V97E               TC       PHASCHNG                              #  ENTER
031565,000882: 24,3321           00534                           OCT      00534                                 #  A, 4.53 = V97EJOB (PRIO 30 NOVAC)
031566,000883: 24,3322  01,2220               4P53SPT1           =        4.53SPOT                              
031567,000884:                                                                                                  #  IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
031568,000885: 24,3322           33514        V97EJOB            CAF      V06N40                                #  REDISPLAY V06N40
031569,000886: 24,3323           54777                           TS       NVWORD1                               
031570,000887: 24,3324           04606                           TCR      E7SETTER                              
031571,000888: 24,3325  E7,1412                                  EBANK=   TIG                                   
031572,000889: 24,3325           44124                           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
031573,000890: 24,3326           55412                           TS       TIG                                   
031574,000891: 24,3327           04611                           TCR      E6SETTER                              
031575,000892: 24,3330  E6,1473                                  EBANK=   CSMMASS                               
031576,000893: 24,3330           03045        SPSOFF97           TCR      SPSOFF                                
031577,000894: 24,3331           33526                           CAF      SEC2.5                                #  DELAY 2.5 SECS FOR POSSIBLE TAILOFF
031578,000895: 24,3332           04636                           TC       BANKCALL                              
031579,000896: 24,3333           01731                           CADR     DELAYJOB                              #  **** RESTART CAN DOUBLE DELAY ****
031580,000897:                                                                                                  #  **** RESTART WILL ALTER TEVENT ****
031581,000898: 24,3334           34770        V97E40.6           CAF      BIT1                                  
031582,000899: 24,3335           05233                           TC       WAITLIST                              
031583,000900: 24,3336  E6,1446                                  EBANK=   CNTR                                  
031584,000901: 24,3336           02355 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
031585,000902: 
031586,000903: 24,3340           04714                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031587,000904: 24,3341           42042                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
031588,000905:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
031589,000906: 24,3342           05362                           TC       2PHSCHNG                              
031590,000907: 24,3343           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
031591,000908: 24,3344           05024                           OCT      05024                                 #  NOVAC BELOW, PRIO NEXT
031592,000909: 24,3345           50777                           OCT      50777                                 #  PRIO 27 NOVAC

Page 711

031594,000911: 24,3346  01,2317               6P2SPT2            =        6.2SPOT                               
031595,000912: 24,3346           05561        QUICKIGN           TC       DOWNFLAG                              #  CLEAR ASTNFLAG
031596,000913: 24,3347           00154                           ADRES    ASTNFLAG                              
031597,000914: 24,3350           05547                           TC       UPFLAG                                #  AND SET IGNFLAG
031598,000915: 24,3351           00153                           ADRES    IGNFLAG                               #  FOR IMMEDIATE V99 RESPONSE
031599,000916: 24,3352           44760        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
031600,000917: 24,3353           54777                           TS       NVWORD1                               
031601,000918: 24,3354           05362                           TC       2PHSCHNG                              
031602,000919: 24,3355           40114                           OCT      40114                                 #  A, 4.11 = TIG-0 (-0 CS) TBASE FOR PREPTVC
031603,000920: 24,3356           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
031604,000921: 24,3357  01,2060               3P3SPT2            =        3.3SPOT                               
031605,000922: 24,3357  01,2135               4P11SPT1           =        4.11SPOT                              
031606,000923: 24,3357           05134                           TC       FINVAC20                              #  SET UP TIMEBURN
031607,000924: 24,3360  E7,1427                                  EBANK=   TGO                                   
031608,000925: 24,3360           02534 34067                     2CADR    S40.13                                
031609,000926: 
031610,000927: 24,3362           15205        ENDV97E            TCF      ENDOFJOB                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
031611,000928: 
031612,000929: 24,3363  E6,1473                                  EBANK=   CSMMASS                               
031613,000930: 24,3363           05402        V97T               TC       PHASCHNG                              #  KILL CLOKTASK
031614,000931: 24,3364           00076                           OCT      00076                                 #  A, 6.7 = V97TJOB (PRIO 27 NOVAC)
031615,000932: 24,3365  01,2333               6P7SPT1            =        6.7SPOT                               
031616,000933: 24,3365           34772        V97TJOB            CAF      ZERO                                  #  DISABLE CLOCKJOB
031617,000934: 24,3366           54777                           TS       NVWORD1                               
031618,000935: 24,3367           03045                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE
031619,000936: 24,3370           33526                           CAF      SEC2.5                                #  DELAY 2.5 SECS FOR POSSIBLE TAILOFF :
031620,000937: 24,3371           04636                           TC       BANKCALL                              #  FALSE THRUST LOSS
031621,000938: 24,3372           01731                           CADR     DELAYJOB                              #  **** RESTART CAN DOUBLE DELAY ****
031622,000939:                                                                                                  #  **** RESTART WILL ALTER TEVENT ****
031623,000940: 24,3373           00004                           INHINT                                         
031624,000941: 24,3374           04714        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031625,000942: 24,3375           42042                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
031626,000943: 24,3376           05362        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
031627,000944: 24,3377           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031628,000945: 24,3400           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031629,000946: 24,3401           50777                           OCT      50777                                 #  PRIO 27 NOVAC
031630,000947: 24,3402           03160        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031631,000948: 24,3403           00006        POST41             EXTEND                                         
031632,000949: 24,3404           33554                           DCA      SERVCADR                              
031633,000950: 24,3405           53062                           DXCH     AVEGEXIT                              
031634,000951: 24,3406           14103                           TCF      GOTOPOOH                              
031635,000952: 
031636,000953: 24,3407  E6,1473                                  EBANK=   CSMMASS                               
031637,000954: 24,3407           05402        V97P               TC       PHASCHNG                              
031638,000955: 24,3410           00134                           OCT      00134                                 #  A, 4.13 = V97PJOB (PRIO 30 NOVAC)
031639,000956: 24,3411  01,2140               4P13SPT1           =        4.13SPOT                              
031640,000957:                                                                                                  #  IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
031641,000958: 24,3411           33514        V97PJOB            CAF      V06N40                                #  REDISPLAY V06N40
031642,000959: 24,3412           54777                           TS       NVWORD1                               
031643,000960: 24,3413           05547                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R40-BYPASS, IN

Page 712

031645,000962: 24,3414           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE STEERING SYNCH
031646,000963: 24,3415           05547                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
031647,000964: 24,3416           00042                           ADRES    STEERSW                               
031648,000965: 24,3417           35017                           CAF      2SECS                                 
031649,000966: 24,3420           04636                           TC       BANKCALL                              
031650,000967: 24,3421           01731                           CADR     DELAYJOB                              #  WAIT 2 SECONDS
031651,000968:                                                                                                  #  **** RESTART CAN DOUBLE DELAY ****
031652,000969:                                                                                                  #  **** RESTART WILL ALTER TEVENT ****
031653,000970: 24,3422           05561        R40ENABL           TC       DOWNFLAG                              #  THEN RE-ENABLE R40 BY CLEARING IDLEFLAIL
031654,000971: 24,3423           00030                           ADRES    IDLEFAIL                              
031655,000972: 24,3424           05402                           TC       PHASCHNG                              
031656,000973: 24,3425           00004                           OCT      00004                                 #  KILL GROUP 4
031657,000974: 24,3426           15205        ENDV97P            TCF      ENDOFJOB                              
031658,000975: 
031659,000976: 
031660,000977: 24,3427           33514        ENGREQST           CAF      V06N40                                
031661,000978: 24,3430           04636                           TC       BANKCALL                              
031662,000979: 24,3431           20727                           CADR     CLOCPLAY                              
031663,000980: 24,3432           13376                           TCF      V99T                                  #  TERMINATE
031664,000981: 24,3433           13471                           TCF      V99P                                  #  PROCEED
031665,000982: 24,3434           05362        V99E               TC       2PHSCHNG                              #  ENTER
031666,000983: 24,3435           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031667,000984: 24,3436           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031668,000985: 24,3437           50777                           OCT      50777                                 #  PRIO 27 NOVAC
031669,000986: 24,3440           03160        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031670,000987: 24,3441           00006        P40RCS             EXTEND                                         #  V16N40 ENTERS HERE
031671,000988: 24,3442           33556                           DCA      ACADN85                               
031672,000989: 24,3443           53062                           DXCH     AVEGEXIT                              
031673,000990: 24,3444           35017                           CAF      2SECS                                 
031674,000991: 24,3445           04636                           TC       BANKCALL                              
031675,000992: 24,3446           01731                           CADR     DELAYJOB                              
031676,000993: 24,3447           03202        P40MINDB           TCR      SETMINDB   -1                         
031677,000994: 24,3450           00003                           RELINT                                         
031678,000995: 24,3451           05402        TIGNOW             TC       PHASCHNG                              
031679,000996: 24,3452           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
031680,000997: 24,3453           57777                           OCT      57777                                 #  PRIO 20 NOVAC
031681,000998: 24,3454           33512                           CAF      V16N85B                               
031682,000999: 24,3455           04636                           TC       BANKCALL                              
031683,001000: 24,3456           20716                           CADR     REFLASH                               
031684,001001: 24,3457           13403                           TCF      POST41                                #  FINISH P40/41
031685,001002: 24,3460           13462                           TCF      MNKPST41                              
031686,001003: 24,3461           13451                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
031687,001004: 
031688,001005: 24,3462           00006        MNKPST41           EXTEND                                         
031689,001006: 24,3463           33554                           DCA      SERVCADR                              
031690,001007: 24,3464           53062                           DXCH     AVEGEXIT                              
031691,001008: 24,3465           14105                           TCF      MNKGOPOO                              
031692,001009: 
031693,001010: 24,3466           30777        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
031694,001011: 24,3467           04636                           TC       BANKCALL                              

Page 713

031696,001013: 24,3470           20721                           CADR     REGODSP                               
031697,001014: 
031698,001015:    4000                                           SETLOC   FFTAG12                               
031699,001016:    4000                                           BANK                                           
031700,001017: 
031701,001018:    4606                                           COUNT*   $$/R40                                
031702,001019:    4606           35046        E7SETTER           CAF      EBANK7                                
031703,001020:    4607           56003                           XCH      EBANK                                 
031704,001021:    4610  E7,1412                                  EBANK=   TIG                                   
031705,001022:    4610           00002                           TC       Q                                     
031706,001023: 
031707,001024:    4611           35045        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
031708,001025:    4612           56003                           XCH      EBANK                                 
031709,001026:    4613  E6,1465                                  EBANK=   DAPDATR1                              
031710,001027:    4613           00002                           TC       Q                                     
031711,001028: 
031712,001029: 24,2000                                           SETLOC   P40S                                  
031713,001030: 24,2000                                           BANK                                           
031714,001031: 
031715,001032: 24,3471                                           COUNT*   $$/R40                                
031716,001033: 24,3471  E6,1465                                  EBANK=   DAPDATR1                              
031717,001034: 24,3471           00004        V99P               INHINT                                         
031718,001035: 24,3472           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
031719,001036: 24,3473           74755                           MASK     ASTNBIT                               
031720,001037: 24,3474           10000                           CCS      A                                     
031721,001038: 24,3475           13506                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
031722,001039: 
031723,001040: 24,3476           34755        ASTNV99P           CAF      ASTNBIT                               #  SET ASTNFLAG
031724,001041: 24,3477           26103                           ADS      FLAGWRD7                              
031725,001042: 24,3500           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
031726,001043: 24,3501           74754                           MASK     IGNFLBIT                              
031727,001044: 24,3502           00006                           EXTEND                                         
031728,001045: 24,3503           13506                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
031729,001046: 
031730,001047: 24,3504           05222        ENDV99P1           TC       TWIDBIT1                              #  TIG-0 HAS COME ALREADY SET UP IGNTN HERE
031731,001048: 24,3505           02664                           ADRES    IGNITION                              
031732,001049: 24,3506           33514        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
031733,001050: 24,3507           54777                           TS       NVWORD1                               
031734,001051: 24,3510           15205        ENDV99P            TCF      ENDOFJOB                              
031735,001052: 
031736,001053: 24,3511                                           COUNT*   $$/P40                                

Page 714

031738,001055: 24,3511           01525        V06N85B            VN       0685                                  
031739,001056: 24,3512           04125        V16N85B            VN       1685                                  
031740,001057: 24,3513           01537        V06N95B            VN       0695                                  
031741,001058: 24,3514           01450        V06N40             VN       0640                                  
031742,001059: 24,3515           04050        V16N40             VN       1640                                  
031743,001060: 24,3516           04123        V1683              VN       1683                                  
031744,001061: 24,3517     4355               OCT12              =        TEN                                   
031745,001062: 24,3517           00204        P40CKLS2           OCT      204                                   
031746,001063: 24,3520     4615               OCT27/24           =        VBSP3LD                               
031747,001064: 24,3520           02202        OCT02202           OCT      02202                                 #  BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
031748,001065:                                                                                                  # MINDB          DEC     46
031749,001066: 24,3521           00707        MAXDB              DEC      455        B-14                       
031750,001067: 24,3522           04700        SEC24.96           DEC      2496       B-14                       
031751,001068: 24,3523           03410        18SEC              DEC      1800       B-14                       
031752,001069: 24,3524           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
031753,001070: 24,3525           00764        5SEC               DEC      500        B-14                       
031754,001071: 24,3526           00372        SEC2.5             DEC      250        B-14                       
031755,001072: 24,3527           00000 05664  SEC29.96           2DEC     2996       B-28                       
031756,001073: 24,3531           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
031757,001074: 
031758,001075: 24,3533           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
031759,001076:                                                                                                  #        B+7 NEWTONS/E+4
031760,001077: 24,3535           04000 00000  EP4(45)H           2DEC     .125                                  
031761,001078: 
031762,001079: 24,3537           00707 03434  EP4(10)H           2DEC     .027777777                            
031763,001080: 
031764,001081: 24,3541           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
031765,001082: 
031766,001083: 24,3543           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
031767,001084: 
031768,001085: 24,3545           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
031769,001086: 
031770,001087:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
031771,001088: 24,3547  E6,1465                                  EBANK=   DAPDATR1                              
031772,001089: 24,3547           03226 12066  T5IDL24            2CADR    T5IDLOC                               
031773,001090: 
031774,001091: 24,3551  E7,1412                                  EBANK=   TIG                                   
031775,001092: 24,3551           03706 50067  ACADN83            2CADR    CALCN83                               
031776,001093: 
031777,001094: 24,3553  E7,1412                                  EBANK=   TIG                                   
031778,001095: 24,3553           03143 76067  SERVCADR           2CADR    SERVEXIT                              
031779,001096: 
031780,001097: 24,3555  E6,1465                                  EBANK=   DAPDATR1                              
031781,001098: 24,3555           03576 50066  ACADN85            2CADR    CALCN85                               
031782,001099: 
031783,001100: 24,3557  E6,1465                                  EBANK=   DAPDATR1                              
031784,001101: 24,3557           02176 34066  S40.8ADS           2CADR    S40.8                                 
031785,001102: 

Page 715

031787,001104: 24,3561  E6,1465                                  EBANK=   DAPDATR1                              
031788,001105: 24,3561           02163 36066  TVCON2C            2CADR    TVCDAPON                              
031789,001106: 

Page 716

031791,001108: 30,2000                                           SETLOC   P40S3                                 
031792,001109: 30,2000                                           BANK                                           
031793,001110: 30,3650                                           COUNT*   $$/P40                                
031794,001111: 30,3650           45020        AGAIN              STQ      CALL                                  
031795,001112: 30,3651           03730                                    QTEMP1                                
031796,001113: 30,3652           27145                                    THISPREC                              
031797,001114: 30,3653           66134                           SXA,2    SXA,1                                 
031798,001115: 30,3654           03746                                    RTX2                                  
031799,001116: 30,3655           03745                                    RTX1                                  
031800,001117: 30,3656           40375                           VLOAD    SETPD                                 
031801,001118: 30,3657           00001                                    RATT                                  
031802,001119: 30,3660           00001                                    00D                                   
031803,001120: 30,3661           03632                           STORE    RTIG                                  
031804,001121: 30,3662           27570                           STOVL    RINIT                                 
031805,001122: 30,3663           00007                                    VATT                                  
031806,001123: 30,3664           03640                           STORE    VTIG                                  
031807,001124: 30,3665           03576                           STORE    VINIT                                 
031808,001125: 30,3666           65335                           SLOAD    PDDL                                  
031809,001126: 30,3667           15336                                    HI6ZEROS                              
031810,001127: 30,3670           11536                                    EP4(45)H                              
031811,001128: 30,3671           71214                           BON      DLOAD                                 
031812,001129: 30,3672           03705                                    NORMSW                                
031813,001130: 30,3673           61675                                    +2                                    
031814,001131: 30,3674           11540                                    EP4(10)H                              
031815,001132: 30,3675           45006                           PUSH     CALL                                  
031816,001133: 30,3676           22000                                    INITVEL                               
031817,001134: 30,3677           52001                           SETPD    GOTO                                  
031818,001135: 30,3700           00001                                    0                                     
031819,001136: 30,3701           03730                                    QTEMP1                                
031820,001137: 
031821,001138: 30,3702           46145        TSTRXUT            DLOAD    BHIZ                                  
031822,001139: 30,3703           00045                                    36D                                   
031823,001140: 30,3704           61707                                    BADVCTOR                              
031824,001141: 30,3705           43575                           VLOAD    RVQ                                   
031825,001142: 30,3706           00007                                    6D                                    
031826,001143: 30,3707           53575        BADVCTOR           VLOAD    UNIT                                  
031827,001144: 30,3710           03632                                    RTIG                                  
031828,001145: 30,3711           53515                           PDVL     UNIT                                  
031829,001146: 30,3712           03640                                    VTIG                                  
031830,001147: 30,3713           53322                           VSR3     VAD                                   
031831,001148: 30,3714           53435                           VXV      UNIT                                  
031832,001149: 30,3715           03713                                    UT                                    
031833,001150: 30,3716           77676                           VCOMP                                          
031834,001151: 30,3717           00007                           STORE    6D                                    
031835,001152: 30,3720           77616                           RVQ                                            
031836,001153: 

Page 717

031838,001155: 
031839,001156: 30,3721           67214        SETUP.9            BON      SLOAD                                 
031840,001157: 30,3722           01310                                    FIRSTFLG                              
031841,001158: 30,3723           61736                                    SURELY.9                              
031842,001159: 30,3724           03326                                    NBRCYCLP                              
031843,001160: 30,3725           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
031844,001161: 30,3726           00047                                    X1                                    
031845,001162: 30,3727           03705                                    BDT                                   
031846,001163: 30,3730           53257                           VSR*     VAD                                   
031847,001164: 30,3731           20563                                    0          -14D,1                     
031848,001165: 30,3732           03646                                    VGTEMP                                
031849,001166: 30,3733           77651                           VSU                                            
031850,001167: 30,3734           03327                                    DELVSUM                               
031851,001168: 30,3735           03721                           STORE    VGPREV                                
031852,001169: 30,3736           77776        SURELY.9           EXIT                                           
031853,001170: 30,3737           34754                           CAF      PRIO10                                
031854,001171: 30,3740           05135                           TC       FINDVAC                               
031855,001172: 30,3741  E6,1465                                  EBANK=   DAPDATR1                              
031856,001173: 30,3741           02400 34066                     2CADR    S40.9                                 
031857,001174: 
031858,001175: 30,3743           05362                           TC       2PHSCHNG                              
031859,001176: 30,3744           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
031860,001177: 30,3745           10035                           OCT      10035                                 
031861,001178: 30,3746  01,2017               1P5SPT1            =        1.5SPOT                               
031862,001179: 30,3746  01,2250               5P3SPT3            =        5.3SPOT                               
031863,001180: 30,3746           06006                           TC       INTPRET                               
031864,001181: 30,3747           77775                           VLOAD                                          
031865,001182: 30,3750           01030                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
031866,001183: 30,3751           27570                           STOVL    RINIT                                 
031867,001184: 30,3752           01036                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
031868,001185: 30,3753           17576                           STODL    VINIT                                 
031869,001186: 30,3754           01044                                    PIPTIME                               
031870,001187: 30,3755           03474                           STORE    TNIT                                  
031871,001188: 30,3756           77621                           BDSU                                           
031872,001189: 30,3757           03656                                    TPASS4                                
031873,001190: 30,3760           27423                           STOVL    DELLT4                                
031874,001191: 30,3761           15336                                    HI6ZEROS                              
031875,001192: 30,3762           17327                           STODL    DELVSUM                               
031876,001193: 30,3763           15336                                    HI6ZEROS                              
031877,001194: 30,3764           03325                           STORE    NBRCYCLS                              
031878,001195: 30,3765           77650                           GOTO                                           
031879,001196: 30,3766           34360                                    VGCOMP                                
031880,001197: 

Page 718

031882,001199:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031883,001200: 
031884,001201:                                                                                                  #  FUNCTIONAL DESCRIPTION
031885,001202:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031886,001203:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
031887,001204:                                                                                                  #                OF GIMBAL MOTION ON GPI
031888,001205:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031889,001206:                                                                                                  #                PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
031890,001207:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031891,001208:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031892,001209:                                                                                                  #                BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
031893,001210:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER)  THEN REDOTVC WILL TAKE CARE
031894,001211:                                                                                                  #                OF RESTARTING ACTUATORS.
031895,001212: 
031896,001213:                                                                                                  #  CALLING SEQUENCE....
031897,001214:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031898,001215: 
031899,001216:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
031900,001217: 
031901,001218:                                                                                                  #  SUBROUTINES CALLED....
031902,001219:                                                                                                  #        FIXDELAY
031903,001220: 
031904,001221:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
031905,001222:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
031906,001223:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031907,001224:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
031908,001225:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
031909,001226:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
031910,001227:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031911,001228: 
031912,001229:                                                                                                  #  OUTPUT
031913,001230:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
031914,001231:                                                                                                  #        TVC ENABLE  AND  OPTICS ERROR COUNTER ENABLE
031915,001232: 
031916,001233: 20,2000                                           SETLOC   DAPS6                                 
031917,001234: 20,2000                                           BANK                                           
031918,001235: 20,2355  E6,1446                                  EBANK=   CNTR                                  
031919,001236: 20,2355                                           COUNT*   $$/S40.6                              
031920,001237: 20,2355           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
031921,001238: 20,2356           74076                           MASK     DPCONFIG                              #  IF TVC, BITS 15,14 = 1,0)
031922,001239: 20,2357           00006                           EXTEND                                         
031923,001240: 20,2360           62362                           BZMF     +2                                    
031924,001241: 20,2361           15314                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
031925,001242: 20,2362           44770                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
031926,001243: 20,2363           55444                           TS       MRKRTMP                               
031927,001244: 20,2364           34770                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
031928,001245: 20,2365           55446                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR 1S
031929,001246:                                                                                                  #        NORMALLY +0, BY S40.6)
031930,001247: 20,2366  E6,1446                                  EBANK=   CNTR                                  
031931,001248: 20,2366           44772        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
031932,001249: 20,2367           55323                           TS       OPTIND                                
031933,001250: 20,2370           44767                           CS       BIT2                                  #  DISABLE OPTICS ERROR COUNTERS
031934,001251: 20,2371           00006                           EXTEND                                         
031935,001252: 20,2372           03012                           WAND     CHAN12                                
031936,001253: 
031937,001254: 20,2373           32460                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC

Page 719

031939,001256: 20,2374           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
031940,001257: 20,2375           05012                           WOR      CHAN12                                
031941,001258: 20,2376           05255                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031942,001259: 20,2377           00006                           DEC      6          B-14                       #        RELAY LATCHING
031943,001260: 20,2400           34767                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
031944,001261: 20,2401           00006                           EXTEND                                         
031945,001262: 20,2402           05012                           WOR      CHAN12                                
031946,001263: 20,2403           05255                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031947,001264: 20,2404           00002                           DEC      2          B-14                       #        RELAY LATCHING
031948,001265: 20,2405           11446        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
031949,001266: 20,2406           12446                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
031950,001267:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY                        
031951,001268: 20,2407           31444                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
031952,001269: 20,2410           55446                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
031953,001270: 20,2411           00006                           EXTEND                                         
031954,001271: 20,2412           62444                           BZMF     GIMTRIM                               #  (TRIM ONLY)
031955,001272: 20,2413           44772        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
031956,001273: 20,2414           55446                           TS       CNTR                                  
031957,001274: 20,2415           32462        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
031958,001275: 20,2416           02431                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
031959,001276: 20,2417           32461                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
031960,001277: 20,2420           02431                           TC       OUTPUT                                
031961,001278: 20,2421           32462                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
031962,001279: 20,2422           02431                           TC       OUTPUT                                
031963,001280: 20,2423           41446                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST
031964,001281: 20,2424           10000                           CCS      A                                     
031965,001282: 20,2425           12444                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
031966,001283: 20,2426           44770                           CS       BIT1                                  #  SET UP YAW TEST
031967,001284: 20,2427           55446                           TS       CNTR                                  
031968,001285: 20,2430           12415                           TCF      GIMDTEST                              #  FOR YAW TEST
031969,001286: 20,2431           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
031970,001287: 20,2432           23004                           QXCH     TEMPR60                               
031971,001288: 20,2433           51446                           INDEX    CNTR                                  
031972,001289: 20,2434           54054                           TS       TVCPITCH                              
031973,001290: 20,2435           51446                           INDEX    CNTR                                  
031974,001291: 20,2436           34756                           CAF      BIT11                                 
031975,001292: 20,2437           00006                           EXTEND                                         
031976,001293: 20,2440           05014                           WOR      CHAN14                                
031977,001294: 20,2441           05255                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031978,001295: 20,2442           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
031979,001296: 20,2443           01004                           TC       TEMPR60                               
031980,001297: 20,2444           05255        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
031981,001298: 20,2445           00620                           DEC      400        B-14                       
031982,001299: 20,2446           44772                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
031983,001300: 20,2447           61423                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
031984,001301: 20,2450           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
031985,001302: 20,2451           44772                           CS       ZERO                                  
031986,001303: 20,2452           61424                           AD       YACTOFF                               
031987,001304: 20,2453           54053                           TS       TVCYAW                                
031988,001305: 20,2454           35050                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12

Page 720

031990,001307: 20,2455           00006                           EXTEND                                         
031991,001308: 20,2456           05014                           WOR      CHAN14                                
031992,001309: 20,2457           15314        ENDS40.6           TCF      TASKOVER                              
031993,001310: 
031994,001311: 20,2460           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031995,001312: 20,2461           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031996,001313: 20,2462           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031997,001314: 
031998,001315: 
031999,001316: 27,2000                                           SETLOC   P40S5                                 
032000,001317: 27,2000                                           BANK                                           
032001,001318: 27,3032                                           COUNT*   $$/S41.1                              
032002,001319: 27,3032           45020        S41.1              STQ      CALL                                  
032003,001320: 27,3033           03657                                    QTEMP                                 
032004,001321: 27,3034           47530                                    CDUTRIG                               
032005,001322: 27,3035           77775                           VLOAD                                          
032006,001323: 27,3036           45121                           MXV      CALL                                  
032007,001324: 27,3037           01734                                    REFSMMAT                              
032008,001325: 27,3040           47633                                    *SMNB*                                
032009,001326: 27,3041           74321                           MXV      VXSC                                  
032010,001327: 27,3042           05014                                    QUADROT                               
032011,001328: 27,3043           17047                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
032012,001329: 27,3044           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
032013,001330: 27,3045           03657                                    QTEMP                                 
032014,001331: 27,3046           24000 00000  TENBNK14           2DEC     10.        B-4                        
032015,001332: 
032016,001333: 27,3050           00024 13714  THETACON           2DEC     .31830989  B-8                        
032017,001334: 
032018,001335: 
032019,001336:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
032020,001337: 
032021,001338: 20,2000                                           SETLOC   DAPS6                                 
032022,001339: 20,2000                                           BANK                                           #  VIA IBNKCALL
032023,001340: 20,2463                                           COUNT*   $$/S41.2                              
032024,001341: 20,2463           31465        S41.2              CA       DAPDATR1                              
032025,001342: 20,2464           76214                           MASK     THREE                                 
032026,001343: 20,2465           60000                           AD       A                                     
032027,001344: 20,2466           54774                           TS       RATEINDX                              
032028,001345: 20,2467           00004                           INHINT                                         
032029,001346: 20,2470           31465                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
032030,001347: 20,2471           74346                           MASK     PRIO30                                #                        =10)
032031,001348: 20,2472           64751                           AD       -BIT14                                #  (OCT57777)
032032,001349: 20,2473           00006                           EXTEND                                         
032033,001350: 20,2474           12501                           BZF      TOGETHER                              #  YES
032034,001351: 20,2475           44767                           CS       ATTCHBIT                              #  NO, UNSET FLAG
032035,001352: 20,2476           70103                           MASK     FLAGWRD7                              
032036,001353: 20,2477           54103                           TS       FLAGWRD7                              
032037,001354: 20,2500           12504                           TCF      +4                                    
032038,001355: 20,2501           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
032039,001356: 20,2502           74767                           MASK     ATTCHBIT                              

Page 721

032041,001358: 20,2503           26103                           ADS      FLAGWRD7                              
032042,001359: 20,2504           00003                           RELINT                                         
032043,001360: 20,2505           31465                           CA       DAPDATR1                              
032044,001361: 20,2506           74765                           MASK     BIT4                                  
032045,001362: 20,2507           00006                           EXTEND                                         
032046,001363: 20,2510           62512                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
032047,001364: 20,2511           32612                           CA       DEC409                                
032048,001365: 20,2512           62613                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
032049,001366: 20,2513           55655                           TS       ADB                                   
032050,001367: 20,2514           31465                           CA       DAPDATR1                              
032051,001368: 20,2515           74762                           MASK     BIT7                                  #  QUAD BD
032052,001369: 20,2516           00006                           EXTEND                                         
032053,001370: 20,2517           62521                           BZMF     +2                                    
032054,001371: 20,2520           34770                           CA       ONE                                   
032055,001372: 20,2521           55631                           TS       XTRANS                                
032056,001373: 20,2522           31465                           CA       DAPDATR1                              
032057,001374: 20,2523           74757                           MASK     BIT10                                 #  QUAD AC
032058,001375: 20,2524           00006                           EXTEND                                         
032059,001376: 20,2525           62527                           BZMF     +2                                    
032060,001377: 20,2526           44770                           CS       ONE                                   
032061,001378: 20,2527           27631                           ADS      XTRANS                                
032062,001379: 20,2530           00004                           INHINT                                         
032063,001380: 20,2531           00006                           EXTEND                                         
032064,001381: 20,2532           12537                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
032065,001382: 20,2533           40075                           CS       FLAGWRD1                              #  SET NJETSFLG   (2 JETS, AC OR BD QUADS)
032066,001383: 20,2534           74752                           MASK     NJETSBIT                              #  NJETSFLG=1 FOR 2 JET ULLAGE (AC OR BD)
032067,001384: 20,2535           26075                           ADS      FLAGWRD1                              
032068,001385: 20,2536           12542                           TCF      +4                                    
032069,001386: 20,2537           44752                           CS       NJETSBIT                              #  NJETSFLG=0 FOR 4 JET (OR 0 JET) ULLAGE
032070,001387: 20,2540           70075                           MASK     FLAGWRD1                              
032071,001388: 20,2541           54075                           TS       FLAGWRD1                              
032072,001389: 20,2542           00003                           RELINT                                         
032073,001390: 20,2543           31466                           CA       DAPDATR2                              
032074,001391: 20,2544           74754                           MASK     BIT13                                 
032075,001392: 20,2545           00006                           EXTEND                                         
032076,001393: 20,2546           62550                           BZMF     +2                                    
032077,001394: 20,2547           12551                           TCF      +2                                    
032078,001395: 20,2550           44770                           CS       ONE                                   
032079,001396: 20,2551           40000                           COM                                            
032080,001397: 20,2552           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
032081,001398: 20,2553           31466                           CA       DAPDATR2                              
032082,001399: 20,2554           74757                           MASK     BIT10                                 
032083,001400: 20,2555           10000                           CCS      A                                     
032084,001401: 20,2556           12562                           TCF      +4                                    
032085,001402: 20,2557           34770                           CA       ONE                                   
032086,001403: 20,2560           55626                           TS       RACFAIL                               
032087,001404: 20,2561           12572                           TCF      BDFAIL                                
032088,001405: 20,2562           34772                           CA       ZERO                                  
032089,001406: 20,2563           55626                           TS       RACFAIL                               
032090,001407: 20,2564           31466                           CA       DAPDATR2                              

Page 722

032092,001409: 20,2565           74765                           MASK     BIT4                                  
032093,001410: 20,2566           10000                           CCS      A                                     
032094,001411: 20,2567           12572                           TCF      BDFAIL                                
032095,001412: 20,2570           44770                           CS       ONE                                   
032096,001413: 20,2571           55626                           TS       RACFAIL                               
032097,001414: 20,2572           31466        BDFAIL             CA       DAPDATR2                              
032098,001415: 20,2573           74762                           MASK     BIT7                                  
032099,001416: 20,2574           10000                           CCS      A                                     
032100,001417: 20,2575           12601                           TCF      +4                                    
032101,001418: 20,2576           34770                           CA       ONE                                   
032102,001419: 20,2577           55627                           TS       RBDFAIL                               
032103,001420: 20,2600           00002                           TC       Q                                     
032104,001421: 20,2601           34772                           CA       ZERO                                  
032105,001422: 20,2602           55627                           TS       RBDFAIL                               
032106,001423: 20,2603           31466                           CA       DAPDATR2                              
032107,001424: 20,2604           74770                           MASK     BIT1                                  
032108,001425: 20,2605           10000                           CCS      A                                     
032109,001426: 20,2606           00002                           TC       Q                                     
032110,001427: 20,2607           44770                           CS       ONE                                   
032111,001428: 20,2610           55627                           TS       RBDFAIL                               
032112,001429: 20,2611           00002                           TC       Q                                     
032113,001430: 

Page 723

032115,001432: 16,2000                                           SETLOC   P40S1                                 
032116,001433: 16,2000                                           BANK                                           
032117,001434: 16,2065  E6,1724                                  EBANK=   NBRCYCLS                              
032118,001435: 16,2065                                           COUNT*   $$/S40.1                              
032119,001436: 16,2065           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
032120,001437: 16,2066           03413                                    TIG                                   
032121,001438: 16,2067           34531                                    TWODT                                 
032122,001439: 16,2070           14041                           STODL    TDEC1                                 
032123,001440: 16,2071           03656                                    TPASS4                                
032124,001441: 16,2072           77625                           DSU                                            
032125,001442: 16,2073           00041                                    TDEC1                                 
032126,001443: 16,2074           37423                           STCALL   DELLT4                                
032127,001444: 16,2075           61650                                    AGAIN                                 
032128,001445: 16,2076           77775                           VLOAD                                          
032129,001446: 16,2077           03612                                    VIPRIME                               
032130,001447: 16,2100           17713                           STODL    UT                                    
032131,001448: 16,2101           03413                                    TIG                                   
032132,001449: 16,2102           00041                           STORE    TDEC1                                 
032133,001450: 16,2103           77621                           BDSU                                           
032134,001451: 16,2104           03656                                    TPASS4                                
032135,001452: 16,2105           37423                           STCALL   DELLT4                                
032136,001453: 16,2106           61650                                    AGAIN                                 
032137,001454: 16,2107           41575                           VLOAD    PUSH                                  
032138,001455: 16,2110           03646                                    DELVEET3                              
032139,001456: 16,2111           37721                           STCALL   VGTIG                                 
032140,001457: 16,2112           11200                                    GET.LVC                               
032141,001458: 16,2113           77601                           SETPD                                          
032142,001459: 16,2114           00001                                    00D                                   
032143,001460: 16,2115           45175        CALCUT             VLOAD    CALL                                  
032144,001461: 16,2116           03632                                    RTIG                                  
032145,001462: 16,2117           77270                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
032146,001463: 16,2120           70372                           VSL1     V/SC                                  
032147,001464: 16,2121           34523                                    200CS                                 #  G AT 2(-5) M/CS.CS
032148,001465: 16,2122           52315                           PDVL     VSU                                   
032149,001466: 16,2123           03612                                    VIPRIME                               
032150,001467: 16,2124           03713                                    UT                                    
032151,001468: 16,2125           52341                           V/SC     VSU                                   
032152,001469: 16,2126           34523                                    200CS                                 
032153,001470: 16,2127           72561                           VXSC     VSL2                                  
032154,001471: 16,2130           03703                                    CSTEER                                
032155,001472: 16,2131           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
032156,001473: 16,2132           03721                                    VGTIG                                 
032157,001474: 16,2133           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
032158,001475: 16,2134           74241                           DOT      VXSC                                  
032159,001476: 16,2135           00015                                    12D                                   
032160,001477: 16,2136           00001                                    0                                     
032161,001478: 16,2137           51352                           VSL2     BVSU                                  
032162,001479: 16,2140           00015                                    12D                                   
032163,001480: 16,2141           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)

Page 724

032165,001482: 16,2142           03727                                    F                                     
032166,001483: 16,2143           56261                           SRR      DDV                                   
032167,001484: 16,2144           21605                                    4                                     
032168,001485: 16,2145           03076                                    WEIGHT/G                              
032169,001486: 16,2146           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
032170,001487: 16,2147           00015                                    12D                                   
032171,001488: 16,2150           77636                           VSQ                                            
032172,001489: 16,2151           75421                           BDSU     SQRT                                  
032173,001490: 16,2152           76561                           VXSC     VSL1                                  
032174,001491: 16,2153           53455                           VAD      UNIT                                  
032175,001492: 16,2154           00015                                    12D                                   
032176,001493: 16,2155           37713                           STCALL   UT                                    
032177,001494: 16,2156           50331                                    S40.2,3                               #  **** NO RETURN **** SAME AS GOTO S40.2,3
032178,001495: 
032179,001496: 16,2157                                           COUNT*   $$/S40.2                              
032180,001497: 16,2157           77775        S40.2,3B           VLOAD                                          
032181,001498: 16,2160           11760                                    XUNIT                                 
032182,001499: 16,2161           27351                           STOVL    SCAXIS                                
032183,001500: 16,2162           03713                                    UT                                    
032184,001501: 16,2163           00307                           STORE    XSCREF                                
032185,001502: 16,2164           53435                           VXV      UNIT                                  
032186,001503: 16,2165           03632                                    RTIG                                  
032187,001504: 16,2166           34007                           STCALL   6D                                    
032188,001505: 16,2167           61702                                    TSTRXUT                               
032189,001506: 16,2170           00315                           STORE    YSCREF                                
032190,001507: 16,2171           57435                           VXV      VCOMP                                 
032191,001508: 16,2172           00307                                    XSCREF                                
032192,001509: 16,2173           77772                           VSL1                                           
032193,001510: 16,2174           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
032194,001511: 16,2175           50444                                    P40SXTY                               #  **** NO RETURN **** SAME AS GOTO P40SXTY
032195,001512: 

Page 725

032197,001514: 
032198,001515:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
032199,001516:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
032200,001517:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
032201,001518:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
032202,001519:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
032203,001520:                                                                                                  #                (5) UPDATES CSMMASS
032204,001521: 
032205,001522:                                                                                                  #  INPUT         VGPREV  - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
032206,001523:                                                                                                  #                          PRIOR TO UPDATING IN METERS/CS AT +7.
032207,001524:                                                                                                  #                DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
032208,001525:                                                                                                  #                          IN METERS/CS AT +7.
032209,001526:                                                                                                  #                BDT     - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
032210,001527:                                                                                                  #                          GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
032211,001528:                                                                                                  #                          METERS/CS AT +7.
032212,001529:                                                                                                  #                CSTEER  - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
032213,001530:                                                                                                  #                          SPS AIMPOINT STEERING MANEUVERS
032214,001531:                                                                                                  #                IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
032215,001532:                                                                                                  #                STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
032216,001533:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
032217,001534:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
032218,001535: 
032219,001536:                                                                                                  #  OUTPUT        TTOGO   - TIME REMAINING FOR ENGINE BURN IN CS AT +28
032220,001537:                                                                                                  #                OMEGAC  - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
032221,001538:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
032222,001539:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
032223,001540:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
032224,001541: 
032225,001542:                                                                                                  #  SUBROUTINES USED      - *SMNB*, ALARM
032226,001543: 
032227,001544: 16,2176  E6,1465                                  EBANK=   DAPDATR1                              
032228,001545: 16,2176                                           COUNT*   $$/S40.8                              
032229,001546: 16,2176           06006        S40.8              TC       INTPRET                               
032230,001547: 16,2177           45001                           SETPD    CALL                                  
032231,001548: 16,2200           00001                                    00D                                   
032232,001549: 16,2201           34331                                    UPDATEVG                              
032233,001550: 16,2202           77745                           DLOAD                                          
032234,001551: 16,2203           03074                                    CSMMASS                               #                                KG      B-16
032235,001552: 16,2204           03335                           STORE    MASSTMP                               
032236,001553: 16,2205           77776                           EXIT                                           
032237,001554: 16,2206           05402                           TC       PHASCHNG                              
032238,001555: 16,2207           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
032239,001556: 16,2210  01,2250               5P3SPT4            =        5.3SPOT                               
032240,001557: 16,2210           06006                           TC       INTPRET                               
032241,001558: 16,2211           51575                           VLOAD    ABVAL                                 
032242,001559: 16,2212           03432                                    DELVREF                               #  DELTA V                       M/CS    B-7
032243,001560: 16,2213           67206                           PUSH     SLOAD                                 #  00D = DELTA V MAG             M/CS    B-7
032244,001561: 16,2214           01345                                    DVTHRESH                              #                                M/CS    B+2
032245,001562: 16,2215           44205                           DMP      BDSU                                  
032246,001563: 16,2216           34533                                    DPB-9                                 #  DVTHRESH                      M/CS    B-7
032247,001564: 16,2217           67240        LOCHECK            BMN      SLOAD                                 
032248,001565: 16,2220           51143                                    LOTHRUST                              #  ** MAYBE THRUST BAD **
032249,001566:                                                                                                  #  THRUST GOOD : UPDATE CSMMASS
032250,001567: 16,2221           01351                                    EMDOT                                 #  FLOW RATE                     KG/CS   B-3

Page 726

032252,001569: 16,2222           44205                           DMP      BDSU                                  
032253,001570: 16,2223           34530                                    FOURSEC    +1                         #  20D B-13 : MPAC = 2 SECS MASS LOSS
032254,001571: 16,2224           03335                                    MASSTMP                               
032255,001572: 16,2225           03074        UPD8MASS           STORE    CSMMASS                               #  CSMMASS UPDATED FOR LAST 2 SECS
032256,001573: 16,2226           77614                           BOFF                                           
032257,001574: 16,2227           01344                                    STEERSW                               #  NO STEERING :
032258,001575: 16,2230           51603                                    SERVXT1                               #  BYPASS TGOCALC AND X-PRODUT
032259,001576: 16,2231           77414        CGTRACK            BON      EXIT                                  #  ENABLE TVCDAP CG TRACKING
032260,001577: 16,2232           04700                                    SWTOVER                               
032261,001578: 16,2233           34325                                    FREPSET                               #  V46 SWITCHOVER HAS OCCURRED (CSM/LM)
032262,001579: 16,2234           31465                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
032263,001580: 16,2235           74753                           MASK     BIT14                                 
032264,001581: 16,2236           10000                           CCS      A                                     
032265,001582: 16,2237           34770                           CAF      BIT1                                  
032266,001583: 16,2240           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
032267,001584: 16,2241           31421                           CAE      EREPFRAC                              
032268,001585: 16,2242           55633        REPFRACS           TS       REPFRAC                               
032269,001586: 
032270,001587: 16,2243           06006                           TC       INTPRET                               
032271,001588: 16,2244           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
032272,001589: 16,2245           03432                                    DELVREF                               
032273,001590: 16,2246           03705                                    BDT                                   
032274,001591: 16,2247           77656                           UNIT                                           
032275,001592: 16,2250           41441                           DOT      PUSH                                  #  (00D)
032276,001593: 16,2251           03460                                    VG                                    
032277,001594: 16,2252           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
032278,001595: 16,2253           51137                                    INCRSVG                               #        DISPLAY ALARM IF NOT
032279,001596: 16,2254           34632                                    2VEXHUST                              
032280,001597: 16,2255           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
032281,001598: 16,2256           11760                                    LODPHALF                              
032282,001599: 16,2257           70501                           NORM     SR1                                   
032283,001600: 16,2260           00047                                    X1                                    
032284,001601: 16,2261           60325                           PDDL     NORM                                  
032285,001602: 16,2262           00045                                    36D                                   #  (MAG DELVG)
032286,001603: 16,2263           00050                                    X2                                    
032287,001604: 16,2264           77665                           BDDV                                           
032288,001605: 16,2265           53664                           XSU,2    SL*                                   
032289,001606: 16,2266           00046                                    X1                                    
032290,001607: 16,2267           57607                                    0          -9D,2                      
032291,001608: 16,2270           41405                           DMP      PUSH                                  #  (00D)
032292,001609: 16,2271           34525                                    -FOURDT                               
032293,001610: 16,2272           54335                           SLOAD    SR                                    
032294,001611: 16,2273           03014                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
032295,001612: 16,2274           20617                                    14D                                   
032296,001613: 16,2275           45421                           BDSU     STADR                                 
032297,001614: 16,2276           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
032298,001615: 16,2277           77615                           DAD                                            
032299,001616: 16,2300           01044                                    PIPTIME                               
032300,001617: 16,2301           17413                           STODL    TIG                                   
032301,001618: 16,2302           03430                                    TGO                                   

Page 727

032303,001620: 16,2303           50025                           DSU      BMN                                   
032304,001621: 16,2304           34527                                    FOURSEC                               
032305,001622: 16,2305           51102                                    S40.81                                
032306,001623: 
032307,001624: 16,2306           74375        XPRODUCT           VLOAD    VXSC                                  
032308,001625: 16,2307           03705        STEERING                    BDT                                   
032309,001626: 16,2310           03703                                    CSTEER                                
032310,001627: 16,2311           52352                           VSL2     VSU                                   
032311,001628: 16,2312           03432                                    DELVREF                               
032312,001629: 16,2313           63256                           UNIT     PDVL                                  
032313,001630: 16,2314           03460                                    VG                                    
032314,001631: 16,2315           47256                           UNIT     VXV                                   
032315,001632: 16,2316           45121                           MXV      CALL                                  
032316,001633: 16,2317           01734                                    REFSMMAT                              #  (REFSMMAT/2)
032317,001634: 16,2320           47633                                    *SMNB*                                
032318,001635: 16,2321           77761                           VXSC                                           
032319,001636: 16,2322           03227                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
032320,001637: 16,2323           37126        OMEGACLC           STCALL   OMEGAC                                
032321,001638: 16,2324           51603                                    SERVXT1                               
032322,001639: 16,2325           77545        FREPSET            DLOAD    EXIT                                  #  POST-SQITCHOVER CSM/LM.  LOAD FROM LOW-
032323,001640: 16,2326           36534                                    FREPFRAC                              #        BANDWIDTH PARAMETER IN FIXED MEMORY
032324,001641: 16,2327           30154                           CAE      MPAC                                  
032325,001642: 16,2330           12242                           TCF      REPFRACS                              
032326,001643: 

Page 728

032328,001645: 
032329,001646: 16,2331           43020        UPDATEVG           STQ      BON                                   
032330,001647: 16,2332           03374                                    R61CNTR                               
032331,001648: 16,2333           01307                                    XDELVFLG                              
032332,001649: 16,2334           34360                                    VGCOMP                                
032333,001650: 16,2335           50135                           SLOAD    BMN                                   
032334,001651: 16,2336           03325                                    NBRCYCLS                              
032335,001652: 16,2337           61721                                    SETUP.9                               
032336,001653: 16,2340           53375                           VLOAD    VAD                                   
032337,001654: 16,2341           03327                                    DELVSUM                               
032338,001655: 16,2342           03432                                    DELVREF                               
032339,001656: 16,2343           03335                           STORE    DELVSUMP                              
032340,001657: 16,2344           77776                           EXIT                                           
032341,001658: 16,2345           34770                           CA       ONE                                   
032342,001659: 16,2346           61724                           AD       NBRCYCLS                              
032343,001660: 16,2347           55725                           TS       NBRCYCLP                              
032344,001661: 16,2350           05402                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
032345,001662: 16,2351           10035                           OCT      10035                                 
032346,001663: 16,2352  01,2250               5P3SPT5            =        5.3SPOT                               
032347,001664: 16,2352           31725                           CA       NBRCYCLP                              
032348,001665: 16,2353           55724                           TS       NBRCYCLS                              
032349,001666: 16,2354           06006                           TC       INTPRET                               
032350,001667: 16,2355           77775                           VLOAD                                          
032351,001668: 16,2356           03335                                    DELVSUMP                              
032352,001669: 16,2357           03327                           STORE    DELVSUM                               
032353,001670: 16,2360           77775        VGCOMP             VLOAD                                          
032354,001671: 16,2361           03432                                    DELVREF                               #  CONSTRUCT DELVG, SC.AT B-7 M/CS
032355,001672: 16,2362           53245                           BVSU     VAD                                   
032356,001673: 16,2363           03705                                    BDT                                   
032357,001674: 16,2364           03721                                    VGPREV                                
032358,001675: 16,2365           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B-7  M/CS
032359,001676: 16,2366           77646                           ABVAL                                          
032360,001677: 16,2367           03763                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
032361,001678: 16,2370           77776                           EXIT                                           
032362,001679: 16,2371           05402                           TC       PHASCHNG                              
032363,001680: 16,2372           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
032364,001681: 16,2373  01,2250               5P3SPT6            =        5.3SPOT                               
032365,001682: 16,2373           06006                           TC       INTPRET                               
032366,001683: 16,2374           77775                           VLOAD                                          
032367,001684: 16,2375           03460                                    VG                                    
032368,001685: 16,2376           37721                           STCALL   VGPREV                                
032369,001686: 16,2377           03374                                    R61CNTR                               
032370,001687: 

Page 729

032372,001689: 
032373,001690:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
032374,001691: 
032375,001692:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
032376,001693:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
032377,001694:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
032378,001695:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
032379,001696: 
032380,001697:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
032381,001698: 
032382,001699:                                                                                                  #  INPUT         RNIT    - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
032383,001700:                                                                                                  #                VNIT    - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
032384,001701:                                                                                                  #                VRPREV  - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
032385,001702:                                                                                                  #                          METERS/CS AT +7.
032386,001703:                                                                                                  #                NOMTIG  - TIME OF IGN. USED IN TARGETTING ROUTINES@+28"
032387,001704:                                                                                                  #                DELLT4  - TRANSFER TIME FROM PIPTIME TO TARGET@+28"
032388,001705:                                                                                                  #                TNIT    - TIME OF RNIT AND VNIT IN CS AT +28
032389,001706:                                                                                                  #                GDT/2   - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
032390,001707:                                                                                                  #                          ACCERERATION OF GRAVITY IN METERS/CS AT +7.
032391,001708:                                                                                                  #                DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
032392,001709:                                                                                                  #                          METERS/CS AT +7.
032393,001710:                                                                                                  #                NORMSW  SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
032394,001711:                                                                                                  #                        165 TO 195 DEGREES
032395,001712:                                                                                                  #                        RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
032396,001713: 
032397,001714:                                                                                                  #  OUTPUT        VGTEMP  - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
032398,001715:                                                                                                  #                COGA    - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
032399,001716:                                                                                                  #                          OR PREVIOUS PASS THRU S40.9
032400,001717:                                                                                                  #                GOBL/2  - OBLATENESS TERM IN AVG GRAV CALC - GOBL*RSQ/MU
032401,001718:                                                                                                  #                VRPREV  - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
032402,001719:                                                                                                  #                BDT     - B VECTOR IN METERS/CS AT +7.
032403,001720: 
032404,001721:                                                                                                  #  SUBROUTINES USED  -  INITVEL
032405,001722: 
032406,001723: 16,2400                                           COUNT*   $$/S40.9                              
032407,001724: 16,2400           06006        S40.9              TC       INTPRET                               
032408,001725: 16,2401           71201                           SETPD    DLOAD                                 
032409,001726: 16,2402           00001                                    00D                                   
032410,001727: 16,2403           11762                                    LO6ZEROS                              
032411,001728: 16,2404           43125                           PDDL     BON                                   
032412,001729: 16,2405           34517                                    EP4(45)L                              
032413,001730: 16,2406           03705                                    NORMSW                                
032414,001731: 16,2407           34412                                    +3                                    
032415,001732: 16,2410           77745                           DLOAD                                          
032416,001733: 16,2411           34521                                    EP4(10)L                              
032417,001734: 16,2412           77606                           PUSH                                           
032418,001735: 16,2413           45014                           CLEAR    CALL                                  
032419,001736: 16,2414           00675                                    GUESSW                                
032420,001737: 16,2415           22002                                    HAVEGUES                              
032421,001738: 16,2416           77776                           EXIT                                           
032422,001739: 16,2417           05402                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
032423,001740: 16,2420           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW
032424,001741: 16,2421           10000                           OCT      10000                                 
032425,001742: 16,2422           06006                           TC       INTPRET                               
032426,001743: 16,2423           77214        ENDLAMB            BON      VLOAD                                 
032427,001744: 16,2424           01310                                    FIRSTFLG                              

Page 730

032429,001746: 16,2425           34442                                    FIRSTTME                              
032430,001747: 16,2426           03612                                    VIPRIME                               
032431,001748: 16,2427           65251                           VSU      PDDL                                  
032432,001749: 16,2430           03466                                    VRPREV                                
032433,001750: 16,2431           03474                                    TNIT                                  
032434,001751: 16,2432           54225                           DSU      SL                                    
032435,001752: 16,2433           03476                                    TNITPREV                              
032436,001753: 16,2434           20222                                    17D                                   
032437,001754: 16,2435           74265                           BDDV     VXSC                                  
032438,001755: 16,2436           34523                                    200CS                                 
032439,001756: 16,2437           76451                           VSU      VSL1                                  
032440,001757: 16,2440           01046                                    GDT/2                                 
032441,001758: 16,2441           03705                           STORE    BDT                                   
032442,001759: 16,2442           57535        FIRSTTME           SLOAD    DCOMP                                 
032443,001760: 16,2443           03747                                    RTX2                                  
032444,001761: 16,2444           77640                           BMN                                            
032445,001762: 16,2445           34462                                    MOONCASE                              
032446,001763: 16,2446           53575                           VLOAD    UNIT                                  
032447,001764: 16,2447           01030                                    RN                                    
032448,001765: 16,2450           45345                           DLOAD    DSU                                   
032449,001766: 16,2451           01044                                    PIPTIME                               
032450,001767: 16,2452           03450                                    NOMTIG                                
032451,001768: 16,2453           56205                           DMP      DDV                                   
032452,001769: 16,2454           34515                                    EARTHMU                               
032453,001770: 16,2455           00043                                    34D                                   
032454,001771: 16,2456           53361                           VXSC     VAD                                   
032455,001772: 16,2457           01054                                    GOBL/2                                
032456,001773: 16,2460           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
032457,001774: 16,2461           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
032458,001775: 16,2462           77776        MOONCASE           EXIT                                           
032459,001776: 16,2463           05402                           TC       PHASCHNG                              
032460,001777: 16,2464           04021                           OCT      04021                                 #  C, JOB BELOW
032461,001778: 16,2465           06006        COPY40.9           TC       INTPRET                               
032462,001779: 16,2466           77745                           DLOAD                                          
032463,001780: 16,2467           03474                                    TNIT                                  
032464,001781: 16,2470           27476                           STOVL    TNITPREV                              
032465,001782: 16,2471           03612                                    VIPRIME                               
032466,001783: 16,2472           03466                           STORE    VRPREV                                
032467,001784: 16,2473           77414                           CLEAR    EXIT                                  
032468,001785: 16,2474           01270                                    FIRSTFLG                              
032469,001786: 16,2475           44770                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
032470,001787: 16,2476           55724                           TS       NBRCYCLS                              
032471,001788: 16,2477           05402        ENDS40.9           TC       PHASCHNG                              
032472,001789: 16,2500           00001                           OCT      00001                                 
032473,001790: 16,2501           15205                           TCF      ENDOFJOB                              
032474,001791: 
032475,001792: 16,2502           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
032476,001793: 16,2503           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
032477,001794: 16,2504           11762                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
032478,001795: 16,2505           17327                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL

Page 731

032480,001797: 16,2506           11762                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
032481,001798: 16,2507           27325                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
032482,001799: 16,2510           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
032483,001800: 16,2511           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
032484,001801: 16,2512           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
032485,001802: 16,2513           12475                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
032486,001803: 
032487,001804: 16,2514           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
032488,001805: 
032489,001806: 16,2516           04000 00000  EP4(45)L           2DEC     .125                                  
032490,001807: 
032491,001808: 16,2520           00707 03434  EP4(10)L           2DEC     .027777777                            
032492,001809: 
032493,001810: 16,2522           01440 00000  200CS              2DEC     200        B-12                       
032494,001811: 
032495,001812: 16,2524           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), AT B+18CS (-4 FOR SCALING)
032496,001813: 
032497,001814: 16,2526           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
032498,001815: 
032499,001816: 16,2530           00000 00310  TWODT              2DEC     200.0      B-28                       #  **** MUST FOLLOW 2DEC FOURSEC TO   ****
032500,001817:                                                                                                  #  **** MAKE FOURSEC +1 2DEC 200 B-13 ****
032501,001818: 
032502,001819: 16,2532           00040 00000  DPB-9              2DEC     1          B-9                        
032503,001820: 

Page 732

032505,001822: 
032506,001823:                                                                                                  #  NAME                  S40.13 - TIMEBURN
032507,001824: 
032508,001825:                                                                                                  #  FUNCTION              TO DETERMINE
032509,001826:                                                                                                  #                        (1) WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
032510,001827:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
032511,001828:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN
032512,001829:                                                                                                  #                        (2) THE MAGNITUDE OF THE RESULTING BURN TIME, AND
032513,001830:                                                                                                  #                        (3) IF THE BURN TIME IS < 6 SECONDS,
032514,001831:                                                                                                  #                        THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL
032515,001832: 
032516,001833:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
032517,001834: 
032518,001835:                                                                                                  #  INPUT                 VGDISP   - MAGNITUDE OF VGTIG IN M/CS AT +7
032519,001836:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KG AT TIG (+16)
032520,001837:                                                                                                  #                        F        - ENGINE THRUST IN M.NEWTONS AT +7
032521,001838:                                                                                                  #                        MDOT     - RATE OF DECREASE OF VEHICLE MASS DURING 
032522,001839:                                                                                                  #                                   BURN IN KG/CS AT +3
032523,001840: 
032524,001841:                                                                                                  #  OUTPUT                IMPULSW  - ZERO FOR STEERING
032525,001842:                                                                                                  #                                 - ONE FOR ATTITUDE HOLD
032526,001843:                                                                                                  #                        TGO      - BURN TIME IN CS AT +28
032527,001844: 
032528,001845:                                                                                                  #        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
032529,001846:                                                                                                  #        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
032530,001847:                                                                                                  #        (1) M.NEWTON = (10000) NEWTONS
032531,001848: 
032532,001849: 16,2534                                           COUNT*   $$/40.13                              
032533,001850: 16,2534           34762        S40.13             CAF      BIT7                                  #  TEST +X TRANSLATION
032534,001851: 16,2535           00006                           EXTEND                                         
032535,001852: 16,2536           06031                           RXOR     CHAN31                                
032536,001853: 16,2537           74762                           MASK     BIT7                                  
032537,001854: 16,2540           54157                           TS       MPAC       +3                         
032538,001855: 16,2541           06006                           TC       INTPRET                               
032539,001856: 16,2542           41545                           DLOAD    PUSH                                  #  00D = |VGTIG| AT +7
032540,001857: 16,2543           03763                                    VGDISP                                
032541,001858: 16,2544           53135                           SLOAD    BZE                                   
032542,001859: 16,2545           00160                                    MPAC       +3                         #  BIT7 CHAN31
032543,001860: 16,2546           34556                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SECS OF ULLAGE
032544,001861: 16,2547           56345                           DLOAD    DDV                                   
032545,001862: 16,2550           34630                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
032546,001863: 16,2551           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
032547,001864: 16,2552           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
032548,001865: 16,2553           00700                                    NJETSFLG                              
032549,001866: 16,2554           34555                                    S40.130                               
032550,001867: 16,2555           41421        S40.130            BDSU     PUSH                                  #  00D = MAG(VGTIG) @ B+7 M/CS, ADJUSTED 
032551,001868:                                                                                                  #        FOR ULLAGE.
032552,001869: 16,2556           56345                 +1        DLOAD    DDV                                   #  ENTRY POINT IF ULLAGE OFF
032553,001870: 16,2557           00001                                    00D                                   #  MAKE SURE MPAC CONTAINS MAG(VGTIG)
032554,001871: 16,2560           34632                                    2VEXHUST                              #  2 VEXHAUST (=2G ISP) @ B+7 M/CS
032555,001872: 16,2561           44342                           SR1      BDSU                                  
032556,001873: 16,2562           11760                                    LODPHALF                              #  0.5
032557,001874: 16,2563           41205                           DMP      DMP                                   
032558,001875: 16,2564           03076                                    WEIGHT/G                              #  TOTAL MASS @ B+16 KG
032559,001876: 16,2565           00001                                    00D                                   #  MAG(VGTIG) @ B+7 M/CS
032560,001877: 16,2566           40061                           SL       BOV                                   
032561,001878: 16,2567           20213                                    10D                                   #  SCALING

Page 733

032563,001880: 16,2570           34617                                    S40.133                               #  LARGE VG : STEERING BURN INDICATED
032564,001881: 16,2571           41225                           DSU      DMP                                   
032565,001882: 16,2572           01764                                    EIMP1SEC                              #  IMP BURN LOGIC B.P. @ E+2B+14 NEWT-SEC
032566,001883: 16,2573           34624                                    100B-14                               #  1SEC @ B+14CS
032567,001884: 16,2574           41471                           DDV      PUSH                                  #  02D=(DELTET-1SEC) @ B+14CS, FIMP16 SLOPE
032568,001885: 16,2575           01766                                    EFIMP16                               #  IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
032569,001886: 16,2576           51025                           DSU      BPL                                   
032570,001887: 16,2577           34626                                    500B-14                               #  5SEC @ B+14CS
032571,001888: 16,2600           34617                                    S40.133                               #  STEERING BURN INDICATED, DELTAT > 6 SEC
032572,001889: 16,2601           51145                           DLOAD    BPL                                   
032573,001890: 16,2602           00003                                    02D                                   #  (DELTAT-1SEC) @ B+14CS, FIMP16 SLOPE
032574,001891: 16,2603           34607                                    S40.132                               #  1<DELTAT<6SEC, SO FIMP16 SLOPE USE IS OK
032575,001892: 16,2604           56205                           DMP      DDV                                   #  0<DELTAT<1SEC, SO USE FIMP01 NOT FIMP16
032576,001893: 16,2605           01766                                    EFIMP16                               #  IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
032577,001894: 16,2606           01765                                    EFIMP01                               #  IMP B.LOGIC 0-1SEC SLOPE @ E+2B+14 NEWT
032578,001895: 16,2607           77414        S40.132            SET      EXIT                                  
032579,001896: 16,2610           01066                                    IMPULSW                               #  IMPULSIVE BURN
032580,001897: 16,2611           07224                           TC       DPAGREE                               
032581,001898: 16,2612           06006                           TC       INTPRET                               
032582,001899: 16,2613           54215                           DAD      SR                                    #  MPAC CONTAINS (DELTA-1SEC), GET DELTAT
032583,001900: 16,2614           34624                                    100B-14                               #  1SEC @ B+14CS
032584,001901: 16,2615           20617                                    14D                                   #  DELTAT @ B+28CS
032585,001902: 16,2616           03430                           STORE    TGO                                   
032586,001903: 16,2617           77776        S40.133            EXIT                                           
032587,001904: 16,2620           05402                           TC       PHASCHNG                              
032588,001905: 16,2621           00003                           OCT      3                                     
032589,001906: 16,2622           15205                           TCF      ENDOFJOB                              
032590,001907: 
032591,001908: 16,2623                                           COUNT    17/40.13                              
032592,001909: 
032593,001910: 16,2623           00144 00000  100B-14            2DEC     100.00     B-14                       #  1SEC @ B+14CS
032594,001911: 
032595,001912: 16,2625  16,2623               1SEC2D             =        100B-14                               
032596,001913: 
032597,001914: 16,2625           00764 00000  500B-14            2DEC     500.00     B-14                       #  5SEC @ B+14CS
032598,001915: 16,2627  16,2625               5SECOND            =        500B-14                               
032599,001916: 16,2627           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
032600,001917:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
032601,001918:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
032602,001919:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)
032603,001920: 
032604,001921: 16,2631           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), AT B+7 M/CS
032605,001922: 
032606,001923: 16,2633  30,2000                                  SBANK=   LOWSUPER                              
032607,001924: 20,2000                                           SETLOC   DAPS6                                 
032608,001925: 20,2000                                           BANK                                           
032609,001926: 
032610,001927: 20,2612                                           COUNT*   $$/40.14                              
032611,001928: 20,2612           00631        DEC409             DEC      409        B-14                       
032612,001929: 20,2613           00056        DEC46              DEC      46         B-14                       
032613,001930: 

Page 734

032615,001932: 
032616,001933:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
032617,001934: 
032618,001935: 20,2614  E6,1465                                  EBANK=   DAPDATR1                              
032619,001936: 20,2614           31467        S40.14             CAE      IXX                                   #  RCS ENTRY
032620,001937: 20,2615           00006                           EXTEND                                         
032621,001938: 20,2616           72641                           MP       CONTONE                               
032622,001939: 20,2617           55623                           TS       J/M                                   
032623,001940: 20,2620           31470                           CA       IAVG                                  
032624,001941: 20,2621           00006                           EXTEND                                         
032625,001942: 20,2622           72641                           MP       CONTONE                               
032626,001943: 20,2623           55624                           TS       J/M1                                  
032627,001944: 20,2624           55625                           TS       J/M2                                  
032628,001945: 20,2625           00006                           EXTEND                                         
032629,001946: 20,2626           32643                           DCA      CONTTWO                               
032630,001947: 20,2627           00006                           EXTEND                                         
032631,001948: 20,2630           11467                           DV       IXX                                   
032632,001949: 20,2631           55620                           TS       KMJ                                   
032633,001950: 20,2632           00006                           EXTEND                                         
032634,001951: 20,2633           32643                           DCA      CONTTWO                               
032635,001952: 20,2634           00006                           EXTEND                                         
032636,001953: 20,2635           11470                           DV       IAVG                                  
032637,001954: 20,2636           55621                           TS       KMJ1                                  
032638,001955: 
032639,001956: 20,2637           55622                           TS       KMJ2                                  
032640,001957: 20,2640           00002                           TC       Q                                     
032641,001958: 
032642,001959: 20,2641           25137        CONTONE            DEC      .662034                               #  2PI/M
032643,001960: 20,2642           00023 12522  CONTTWO            2DEC     .00118                                
032644,001961: 
032645,001962: 21,2000                                           SETLOC   DAPS3                                 
032646,001963: 21,2000                                           BANK                                           
032647,001964: 21,2032                                           COUNT*   $$/RCSUP                              
032648,001965: 21,2032           22016        RCSUP              LXCH     BANKRUPT                              
032649,001966: 21,2033           00006                           EXTEND                                         
032650,001967: 21,2034           22012                           QXCH     QRUPT                                 
032651,001968: 21,2035           02042                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
032652,001969: 21,2036           15323                           TCF      RESUME                                
032653,001970: 
032654,001971: 21,2037  E6,1465                                  EBANK=   DAPDATR1                              
032655,001972: 21,2037           02140 42066  RCSADDR            2CADR    RCSATT                                
032656,001973: 
032657,001974: 21,2041           37704        0.6SECT5           OCT      37704                                 
032658,001975: 
032659,001976: 21,2042  E6,1465                                  EBANK=   DAPDATR1                              
032660,001977:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
032661,001978: 21,2042           32041        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE

Page 735

032663,001980: 21,2043           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
032664,001981: 21,2044           55464                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
032665,001982: 21,2045           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
032666,001983: 21,2046           74766                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
032667,001984: 21,2047           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
032668,001985: 21,2050           00006                           EXTEND                                         
032669,001986: 21,2051           32040                           DCA      RCSADDR                               #  (RCSATT)
032670,001987: 21,2052           52113                           DXCH     T5LOC                                 
032671,001988: 21,2053           44076                           CS       DPCONFIG                              #  SET BITS 15,14 TO 01 TO INDICATE
032672,001989: 21,2054           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
032673,001990: 21,2055           64753                           AD       DAP2BIT                               
032674,001991: 21,2056           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
032675,001992: 21,2057           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOFF OR RCSDAPUP)
032676,001993: 35,2000                                           SETLOC   P30S1                                 
032677,001994: 35,2000                                           BANK                                           
032678,001995: 35,3566                                           COUNT*   $$/P40                                
032679,001996: 35,3566           03525        STARTTGO           TC       COMPTGO                               #  COMPTGO CAN NOT BE CALLED DIRECTLY
032680,001997: 35,3567           04655                           TC       POSTJUMP                              #  VIA BANKCALL DUE TO RESTART PROBLEMS
032681,001998: 35,3570           50237                           CADR     TFIGINIT   +2                         
032682,001999: 

Page 736

032684,002001: 
032685,002002:                                                                                                  #  NAME          P41 - RCS BURN
032686,002003: 
032687,002004:                                                                                                  #  FUNCTION      TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
032688,002005:                                                                                                  #                AND THRUSTING MANEUVER OF AN RCS BURN
032689,002006: 
032690,002007:                                                                                                  #                        R02BOTH         CHECK STATUS OF IMU
032691,002008: 
032692,002009:                                                                                                  #                        S40.1           COMPUTE: INTIAL THRUST DIRECTION AND
032693,002010:                                                                                                  #                                                 INTIAL VALUE OF VELOCITY-TO-BE-
032694,002011:                                                                                                  #                                                 GAINED VECTOR (VGTIG)
032695,002012: 
032696,002013:                                                                                                  #                        S40.2,3         COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
032697,002014:                                                                                                  #                                                 OCCUR WITH PRESENT IMU ORIENTATION,
032698,002015:                                                                                                  #                                                 PREFERRED IMU ORIENTATION, AND
032699,002016:                                                                                                  #                                                 DESIRED THRUST DIRECTION IN SM COORDS
032700,002017: 
032701,002018:                                                                                                  #                        R60CSM          PERFORM ATTITUDE MANEUVER
032702,002019: 
032703,002020:                                                                                                  #                        MIDTOAV1        EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
032704,002021: 
032705,002022:                                                                                                  #                        CLOKTASK        COMPUTE TIME-TO-GO TO IGNITION, 
032706,002023:                                                                                                  #                                        RECALL CLOKTASK, 
032707,002024:                                                                                                  #                                        UPDATE N 85, AND
032708,002025:                                                                                                  #                                        CALL CLOCKJOB TO DISPLAY V06N85
032709,002026: 
032710,002027:                                                                                                  #                        TIGBLNK         BLANK DSKY AT TIG-35 SECS AND
032711,002028:                                                                                                  #                                        WAITLIST TIGAVEG IN 5 SECS
032712,002029: 
032713,002030:                                                                                                  #                        TIGAVEG         UNBLANK DSKY,
032714,002031:                                                                                                  #                                        CAUSE CLOCKJOB TO DISPLAY NON FLASH V16N85,
032715,002032:                                                                                                  #                                        WAITLIST TTG/0 IN 29.96 SECS, AND
032716,002033:                                                                                                  #                                        START SERVICER
032717,002034: 
032718,002035:                                                                                                  #                        CLOCKJOB        (CALLED EVERY SEC)
032719,002036:                                                                                                  #                                        DISPLAY NON FLASH V06N85 UNTIL TIG - 29.96:
032720,002037:                                                                                                  #                                        THEN DISPLAY NON FLASH V16N85
032721,002038: 
032722,002039:                                                                                                  #                        TTG/0           NOVAC TIGNOW
032723,002040: 
032724,002041:                                                                                                  #                        TIGNOW          DISPLAY FLASHING V16N85
032725,002042: 
032726,002043:                                                                                                  #                        POST41          CLEAN UP AFTER BURN
032727,002044: 
032728,002045:                                                                                                  #                        *************************************************
032729,002046:                                                                                                  #                        PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
032730,002047:                                                                                                  #                        *************************************************
032731,002048: 
032732,002049:                                                                                                  #  INPUT         SAME AS P40
032733,002050: 
032734,002051:                                                                                                  #  ALARMS        1703            INSUFFICIENT TIME FOR INTEGRATION
032735,002052:                                                                                                  #                                TIG WAS SLIPPED
032736,002053: 

Page 737

032738,002055: 35,3571  E6,1465                                  EBANK=   DAPDATR1                              
032739,002056: 24,2000                                           SETLOC   P40S                                  
032740,002057: 24,2000                                           BANK                                           
032741,002058: 24,3563                                           COUNT*   $$/P41                                
032742,002059: 24,3563           06006        P41CSM             TC       INTPRET                               
032743,002060: 24,3564           71214                           SET      DLOAD                                 
032744,002061: 24,3565           00464                                    ENG2FLAG                              #  SET FOR RCS
032745,002062: 24,3566           15336                                    HI6ZEROS                              #  CSTEER = 0 FOR P41
032746,002063: 24,3567           03703                           STORE    CSTEER                                
032747,002064: 24,3570           43145                           DLOAD    BON                                   
032748,002065: 24,3571           11534                                    FRCS2                                 #  2JET THRUST FOR S40.1
032749,002066: 24,3572           00700                                    NJETSFLG                              
032750,002067: 24,3573           50226                                    P40S/F                                #  NJETS = 1 2-JET
032751,002068: 24,3574           52152                           SL1      GOTO                                  #  NJETS = 0 4-JET
032752,002069: 24,3575           50226                                    P40S/F                                
032753,002070: 24,3576  E6,1465                                  EBANK=   DAPDATR1                              
032754,002071: 24,3576           06006        CALCN85            TC       INTPRET                               
032755,002072: 24,3577           77624                           CALL                                           
032756,002073: 24,3600           34331                                    UPDATEVG                              #  NEW VG FROM VGCOMP (+ MAYBE S40.9)
032757,002074: 24,3601           77624                           CALL                                           
032758,002075: 24,3602           51651                                    P40CNV85                              #  COMPUTE VGBODY
032759,002076: 24,3603           77776        SERVXT1            EXIT                                           
032760,002077: 24,3604           33616                           CAF      NEJETBTS                              
032761,002078: 24,3605           00006                           EXTEND                                         
032762,002079: 24,3606           06031                           RXOR     CHAN31                                #  ARE ANY RCS JETS FIRING
032763,002080: 24,3607           73616                           MASK     NEJETBTS                              #  NULLING OUT RESIDUAL VG'S FROM P40?
032764,002081: 24,3610           00006                           EXTEND                                         #  OR PERFORMING P41?
032765,002082: 24,3611           13614                           BZF      SERVXT                                #  NO
032766,002083: 
032767,002084: 24,3612           05547                           TC       UPFLAG                                #  YES - SET BURNFLAG TO INDICATE
032768,002085: 24,3613           00233                           ADRES    BURNFLAG                              #  THAT THE CSM DID THE BURN
032769,002086: 
032770,002087: 24,3614           04655        SERVXT             TC       POSTJUMP                              
032771,002088: 24,3615           77143                           CADR     SERVEXIT                              
032772,002089: 
032773,002090: 24,3616           07700        NEJETBTS           OCT      07700                                 
032774,002091: 
032775,002092: 24,3617           34753        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
032776,002093: 24,3620           05121                           TC       NOVAC                                 
032777,002094: 24,3621  E6,1465                                  EBANK=   DAPDATR1                              
032778,002095: 24,3621           03451 50066                     2CADR    TIGNOW                                
032779,002096: 
032780,002097: 24,3623           05561        P40CLK             TC       DOWNFLAG                              
032781,002098: 24,3624           00155                           ADRES    TIMRFLAG                              
032782,002099: 24,3625           15314                           TCF      TASKOVER                              
032783,002100: 
032784,002101: 24,3626           77624        P41/DSP            CALL                                           #  COMPUTE
032785,002102: 24,3627           51651                                    P40CNV85                              #        VGTIG IN CTRL COORDS
032786,002103: 24,3630           77776                           EXIT                                           

Page 738

032788,002105: 24,3631           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
032789,002106: 24,3632           33556                           DCA      ACADN85                               
032790,002107: 24,3633           53062                           DXCH     AVEGEXIT                              
032791,002108: 24,3634           33511                           CAF      V06N85B                               
032792,002109: 24,3635           54777                           TS       NVWORD1                               #  FORCE CLOCKJOB
032793,002110: 24,3636           05362                           TC       2PHSCHNG                              
032794,002111: 24,3637           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
032795,002112: 24,3640           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
032796,002113: 24,3641  01,2154               4P23SPT2           =        4.23SPOT                              
032797,002114: 24,3641  01,2325               6P3SPT3            =        6.3SPOT                               
032798,002115: 24,3641           12523                           TCF      P40S/SV                               
032799,002116: 24,3642           33512        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
032800,002117: 24,3643           54777                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
032801,002118: 24,3644           33530                           CAF      SEC29.96   +1                         
032802,002119: 24,3645           05223                           TC       TWIDDLE                               
032803,002120: 24,3646           03617                           ADRES    TTG/0                                 
032804,002121: 24,3647           44766                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
032805,002122: 24,3650           12623                           TCF      TTGPHS                                
032806,002123: 
032807,002124: 24,3651           40220        P40CNV85           STQ      SETPD                                 
032808,002125: 24,3652           03730                                    QTEMP1                                
032809,002126: 24,3653           00001                                    0                                     
032810,002127: 24,3654           41575                           VLOAD    PUSH                                  
032811,002128: 24,3655           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
032812,002129: 24,3656           77624                           CALL                                           
032813,002130: 24,3657           57032                                    S41.1                                 
032814,002131: 24,3660           37665                           STCALL   VGBODY                                
032815,002132: 24,3661           03730                                    QTEMP1                                
032816,002133: 

Page 739

032818,002135: 
032819,002136:                                                                                                  #  NAME          P47 - DELTA V MONITOR
032820,002137: 
032821,002138:                                                                                                  #  FUNCTION      TO MONITOR VEHICLE ACCELERATION AND
032822,002139:                                                                                                  #                DISPLAY ACCUMULATED VG IN CONTROL COORDINATES
032823,002140: 
032824,002141:                                                                                                  #                        R02BOTH         CHECK STATUS OF IMU
032825,002142: 
032826,002143:                                                                                                  #                        MIDTOAV2        EXTRAPOLATE STATE VECTOR TO CURRENT TIME
032827,002144:                                                                                                  #                                        + INCREMENT OF TIMEDELT
032828,002145: 
032829,002146:                                                                                                  #                        SETUPTIG        WAITLIST TIGON IN NO. OF CS FOUND
032830,002147:                                                                                                  #                                        IN MPAC +1 AFTER MIDTOAV2 RETURN
032831,002148: 
032832,002149:                                                                                                  #                        TIGON           SET CALCN83 INTO AVGGEXIT,
032833,002150:                                                                                                  #                                        NOVAC P47BODY, AND
032834,002151:                                                                                                  #                                        START SERVICER
032835,002152: 
032836,002153:                                                                                                  #                        CALCN83         ADD PIPA CONTENTS TO ACCUMULATED DELTA V AND
032837,002154:                                                                                                  #                                        CONVERT TO CONTROL COORDINATES AND
032838,002155:                                                                                                  #                                        CALCULATE INERTIAL VELOCITY, R, AND
032839,002156:                                                                                                  #                                        HDOT FOR NOUN 62
032840,002157: 
032841,002158:                                                                                                  #                        P47BODY         ZERO DELVIMU INITIALLY AND
032842,002159:                                                                                                  #                                        GENERATE MONITORING DISPLAY OF ACCUMULATED
032843,002160:                                                                                                  #                                        DELTA V IN CONTROL COORDINATES
032844,002161: 
032845,002162:                                                                                                  #                        *************************************************
032846,002163:                                                                                                  #                        PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
032847,002164:                                                                                                  #                        *************************************************
032848,002165: 

Page 740

032850,002167: 24,3662                                           COUNT*   $$/P47                                
032851,002168: 24,3662  E7,1412                                  EBANK=   TIG                                   
032852,002169: 24,3662           04636        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
032853,002170: 24,3663           03731                           CADR     R02BOTH                               
032854,002171: 24,3664           06006                           TC       INTPRET                               
032855,002172: 24,3665           77624                           CALRB                                          
032856,002173: 24,3666           27566                                    MIDTOAV2                              
032857,002174: 24,3667           30155        SETUPTIG           CAE      MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 100
032858,002175: 24,3670           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
032859,002176: 24,3671           05223                           TC       TWIDDLE                               
032860,002177: 24,3672           03676                           ADRES    TIGON                                 
032861,002178: 24,3673           05402                           TC       PHASCHNG                              
032862,002179: 24,3674           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
032863,002180: 24,3675  01,2226               4P57SPT1           =        4.57SPOT                              
032864,002181: 24,3675           15205                           TCF      ENDOFJOB                              
032865,002182: 
032866,002183: 24,3676  E7,1672                                  EBANK=   P40TMP                                
032867,002184: 24,3676           00006        TIGON              EXTEND                                         
032868,002185: 24,3677           33552                           DCA      ACADN83                               
032869,002186: 24,3700           53062                           DXCH     AVEGEXIT                              
032870,002187: 24,3701           05120                           TC       NOVAC30                               #  FORCE ZEROING OF N83 BEFORE SERVICER
032871,002188: 24,3702  E7,1412                                  EBANK=   TIG                                   
032872,002189: 24,3702           03730 50067                     2CADR    P47BODY                               
032873,002190: 
032874,002191: 24,3704           44767                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
032875,002192: 24,3705           12623                           TCF      TTGPHS                                
032876,002193: 
032877,002194: 24,3706  E7,1412                                  EBANK=   TIG                                   
032878,002195: 24,3706           06006        CALCN83            TC       INTPRET                               
032879,002196: 24,3707           77201                           SETPD    VLOAD                                 
032880,002197: 24,3710           00001                                    0                                     
032881,002198: 24,3711           03665                                    DELVCTL                               
032882,002199: 24,3712           41455                           VAD      PUSH                                  
032883,002200: 24,3713           03432                                    DELVREF                               
032884,002201: 24,3714           37460                           STCALL   DV47TEMP                              
032885,002202: 24,3715           57032                                    S41.1                                 
032886,002203: 24,3716           37675                           STCALL   DELVIMU                               
032887,002204: 24,3717           70537                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
032888,002205: 24,3720           77776                           EXIT                                           
032889,002206: 24,3721           05402                           TC       PHASCHNG                              
032890,002207: 24,3722           10035                           OCT      10035                                 
032891,002208: 24,3723  01,2250               5P3SPT7            =        5.3SPOT                               
032892,002209: 24,3723           34773                           CAF      FIVE                                  
032893,002210: 24,3724           05607                           TC       GENTRAN                               
032894,002211: 24,3725           01457                           ADRES    DV47TEMP                              
032895,002212: 24,3726           01664                           ADRES    DELVCTL                               
032896,002213: 24,3727           03614                           TC       SERVXT                                
032897,002214: 
032898,002215: 24,3730           06006        P47BODY            TC       INTPRET                               

Page 741

032900,002217: 24,3731           77775                           VLOAD                                          
032901,002218: 24,3732           15336                                    HI6ZEROS                              
032902,002219: 24,3733           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
032903,002220: 24,3734           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
032904,002221: 24,3735           77776                           EXIT                                           
032905,002222: 24,3736           35054        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
032906,002223: 24,3737           05176                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
032907,002224: 24,3740           05402                           TC       PHASCHNG                              
032908,002225: 24,3741           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
032909,002226: 24,3742           62777                           OCT      62777                                 #  PRIO 15 NOVAC
032910,002227: 24,3743           33516        P47/DSP            CAF      V1683                                 
032911,002228: 24,3744           04636                           TC       BANKCALL                              
032912,002229: 24,3745           20743                           CADR     GOFLASH                               
032913,002230: 24,3746           04103                           TC       GOTOPOOH                              
032914,002231: 24,3747           04103                           TC       GOTOPOOH                              
032915,002232: 24,3750           13730                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY

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