Source Code

These source-code files are part of a reconstructed copy of Artemis 071, the first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Artemis 072 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes between the two versions. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021154-. Note that page numbers in the reconstructed code match those on the Artemis 072 printout, although the changed code would likely have changed page numbers for a real Artemis 071 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

030565,000002:                                                                                                  ## Copyright:   Public domain.
030566,000003:                                                                                                  ## Filename:    P40-P47.agc
030567,000004:                                                                                                  ## Purpose:     A section of Artemis revision 071.
030568,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
030569,000006:                                                                                                  ##              release of the flight software for the Command Module's
030570,000007:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
030571,000008:                                                                                                  ##              17. The code has been recreated from a copy of Artemis 072.
030572,000009:                                                                                                  ##              It has been adapted such that the resulting bugger words
030573,000010:                                                                                                  ##              exactly match those specified for Artemis 071 in NASA
030574,000011:                                                                                                  ##              drawing 2021154-, which gives relatively high confidence
030575,000012:                                                                                                  ##              that the reconstruction is correct.
030576,000013:                                                                                                  ## Reference:   691
030577,000014:                                                                                                  ## Assembler:   yaYUL
030578,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030579,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030580,000017:                                                                                                  ## Mod history: 2019-08-14 MAS  Created from Artemis 072.
030581,000018: 

Page 691

030583,000020: 
030584,000021:                                                                                                  #  NAME          P40 - TVC (SPS BURN)
030585,000022:                                                                                                  #                MOD BY ALBERT, BEALS, AND DEMERY TO REORGANIZE
030586,000023:                                                                                                  #                AND REDUCE CODING 15AUG69
030587,000024: 
030588,000025:                                                                                                  #  FUNCTION      TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
030589,000026:                                                                                                  #                AND THRUSTING MANEUVER OF AN SPS BURN
030590,000027: 
030591,000028:                                                                                                  #                CLOKTASK        COMPUTE TIME-TO-GO TO IGNITION (FOR N35/40),
030592,000029:                                                                                                  #                                RECALL CLOKTASK, AND AFTER S40.6 COMPLETION
030593,000030:                                                                                                  #                                CALL CLOCKJOB TO DISPLAY V06N40
030594,000031: 
030595,000032:                                                                                                  #                R02BOTH         CHECK STATUS OF IMU
030596,000033: 
030597,000034:                                                                                                  #                S40.1           COMPUTE: INTIAL THRUST DIRECTION AND
030598,000035:                                                                                                  #                                         INTIAL VALUE OF VELOCITY-TO-BE-
030599,000036:                                                                                                  #                                         GAINED VECTOR (VGTIG)
030600,000037: 
030601,000038:                                                                                                  #                S40.2,3         COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
030602,000039:                                                                                                  #                                         OCCUR WITH PRESENT IMU ORIENTATION,
030603,000040:                                                                                                  #                                         XAXIS OF ENGINE BELL, 
030604,000041:                                                                                                  #                                         PREFERRED IMU ORIENTATION, AND
030605,000042:                                                                                                  #                                         DESIRED THRUST DIRECTION IN SM COORDS
030606,000043: 
030607,000044:                                                                                                  #                R60CSM          PERFORM ATTITUDE MANEUVER
030608,000045: 
030609,000046:                                                                                                  #                S40.6           HANDLE GIMBAL TEST AND TRIM OR TRIM ONLY
030610,000047: 
030611,000048:                                                                                                  #                MIDTOAV1        EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
030612,000049: 
030613,000050:                                                                                                  #                TIGBLNK         BLANK DSKY AT TIG-35 SECS AND
030614,000051:                                                                                                  #                                WAITLIST TIGAVEG IN 5 SECS
030615,000052: 
030616,000053:                                                                                                  #                TIGAVEG         UNBLANK DSKY, 
030617,000054:                                                                                                  #                                WAITLIST TIG-5 IN 24.96 SECS, AND
030618,000055:                                                                                                  #                                START SERVICER
030619,000056: 
030620,000057:                                                                                                  #                TIG-5           DISPLAY FLASHING V99N40:
030621,000058:                                                                                                  #                                ENGINE IGNITION ENABLE,
030622,000059:                                                                                                  #                                WAITLIST TIG-0 IN 5 SECS, AND
030623,000060:                                                                                                  #                                FINDVAC S40.13 TO DETERMINE IF THIS IS
030624,000061:                                                                                                  #                                AN IMPULSIVE OR STEERING BURN
030625,000062: 
030626,000063:                                                                                                  #                TIG-0           CHECK IF ASTRONAUT HAS O.K.ED IGNITION (PRIOR
030627,000064:                                                                                                  #                                PROCEED TO V99N40) - IF NOT, IGNITION WILL BE
030628,000065:                                                                                                  #                                ENTERED BY CLOCKJOB IN RESPONSE TO V99N40
030629,000066: 
030630,000067:                                                                                                  #                CLOCKJOB        (CALLED EVERY SEC)
030631,000068:                                                                                                  #                                DISPLAY V06N40 EXCEPT WHEN SIGNALED BY TIG-5
030632,000069:                                                                                                  #                                TO FLASH V99N40 AND
030633,000070:                                                                                                  #                                CALL IGNITION WHEN PROCEED RESPONSE TO V99N40
030634,000071:                                                                                                  #                                HAS OCCURRED AND TIG HAS PASSED

Page 692

030636,000073:                                                                                                  #                IGNITION        TURN ON ENGINE,
030637,000074:                                                                                                  #                                CHECK IF IMPULSIVE BURN, AND IF SO
030638,000075:                                                                                                  #                                SET UP ENGINOFF COMMAND
030639,000076: 
030640,000077:                                                                                                  #                S40.8           UPDATE VELOCITY TO-BE-GAINED VECTOR,
030641,000078:                                                                                                  #                                GENERATE ANGULAR RATE STEERING COMMANDS
030642,000079:                                                                                                  #                                FOR AUTO PILOT,
030643,000080:                                                                                                  #                                UPDATE CSMMASS,
030644,000081:                                                                                                  #                                ESTABLISH ENGINE CUT-OFF SIGNAL AT
030645,000082:                                                                                                  #                                APPROPRIATE TIME, AND
030646,000083:                                                                                                  #                                INITIATE R40, IF THRUST FAILS
030647,000084: 
030648,000085:                                                                                                  #                S40.9           (AIMPOINT MANEUVERS ONLY)
030649,000086:                                                                                                  #                                GENERATE REQUIRED VEL-TO-BE-GAINED VECTOR AND
030650,000087:                                                                                                  #                                UPDATE B-VECTOR WHICH IS USED IN FINAL
030651,000088:                                                                                                  #                                CALCULATION OF EXTRAPOLATING THE VG VECTOR
030652,000089: 
030653,000090:                                                                                                  #                ENGINOFF        WIPE OUT TVC,
030654,000091:                                                                                                  #                                TURN OFF CLOKTASK,
030655,000092:                                                                                                  #                                SHUT DOWN ENGINE,
030656,000093:                                                                                                  #                                ADJUST VEHICLE MASS PROPERTIES,
030657,000094:                                                                                                  #                                TURN ON RCS DAP, AND
030658,000095:                                                                                                  #                                UPDATE ENGINE TRIMS
030659,000096: 
030660,000097:                                                                                                  #                POSTBURN        DISPLAY FLASHING V16N40,
030661,000098:                                                                                                  #                                CLEAN UP AFTER ENGINE CUT-OFF, AND
030662,000099:                                                                                                  #                                MAINTAIN VG COMP FOR POSSIBLE RCS TRIM
030663,000100: 
030664,000101:                                                                                                  #                *************************************************
030665,000102:                                                                                                  #                PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
030666,000103:                                                                                                  #                *************************************************
030667,000104: 
030668,000105:                                                                                                  #  INPUT         XDELVFLG = 1 EXTERNAL DELTA V
030669,000106: 
030670,000107:                                                                                                  #                    DELVSIN     CHANGE OF VELOCITY (VECTOR)
030671,000108:                                                                                                  #                    RTIG        CSM POSITION AT TIG
030672,000109:                                                                                                  #                    VTIG        CSM VELOCITY AT TIG
030673,000110:                                                                                                  #                    TIG         IGNITION TIME
030674,000111:                                                                                                  #                    CSTEER =    0
030675,000112: 
030676,000113:                                                                                                  #                XDELVFLG = 0 LAMBERT (AIMPOINT)
030677,000114: 
030678,000115:                                                                                                  #                    RTARG       AIMPOINT POSITION VECTOR
030679,000116:                                                                                                  #                    TPASS4      TIME OF ARRIVAL AT AIMPOINT
030680,000117:                                                                                                  #                    TIG         IGNITION TIME
030681,000118:                                                                                                  #                    CSTEER =    1
030682,000119: 
030683,000120:                                                                                                  #  ALARMS        1407            VG INCREASING
030684,000121:                                                                                                  #                1703            INSUFFICIENT TIME FOR INTEGRATION
030685,000122:                                                                                                  #                                TIG WAS SLIPPED
030686,000123: 

Page 693

030688,000125: 27,3032  E6,1465                                  EBANK=   DAPDATR1                              
030689,000126: 24,2000                                           SETLOC   P40S                                  
030690,000127: 24,2000                                           BANK                                           
030691,000128: 24,2214                                           COUNT*   $$/P40                                
030692,000129: 24,2214           06006        P40CSM             TC       INTPRET                               
030693,000130: 24,2215           67214                           CLEAR    SLOAD                                 
030694,000131: 24,2216           00664                                    ENG2FLAG                              
030695,000132: 24,2217           03425                                    ECSTEER                               
030696,000133: 24,2220           71214                           BOFF     DLOAD                                 
030697,000134: 24,2221           01347                                    XDELVFLG                              #  EXTERNAL DELTA V ?
030698,000135: 24,2222           50224                                    P40S/C                                #  NO CSTEER = ECSTEER
030699,000136: 24,2223           15336                                    HI6ZEROS                              #  YES CSTEER = ZERO
030700,000137: 24,2224           17703        P40S/C             STODL    CSTEER                                
030701,000138: 24,2225           11532                                    FENG                                  #  SET UP THRUST FOR S40.1
030702,000139: 24,2226           17727        P40S/F             STODL    F                                     #  P41 ENTERS HERE
030703,000140: 24,2227           03413                                    TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
030704,000141: 24,2230           17450                           STODL    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
030705,000142: 24,2231           11530                                    SEC29.96                              
030706,000143: 24,2232           03460                           STORE    AVEGDT                                #  START AVERAGEG AT TIG-29.96
030707,000144: 24,2233           77414                           CLEAR    EXIT                                  
030708,000145: 24,2234           05265                                    BURNFLAG                              
030709,000146: 
030710,000147: 24,2235           04655        TFIGINIT           TC       POSTJUMP                              #  START CLOKTASK TO
030711,000148: 24,2236           73566                           CADR     STARTTGO                              #  CALCULATE TFI FOR N35/40
030712,000149: 24,2237           04636                 +2        TC       BANKCALL                              
030713,000150: 24,2240           03731                           CADR     R02BOTH                               #  IMU STATUS CHECK
030714,000151: 

Page 694

030716,000153:                                                                                                  #  NAME  S40.1
030717,000154: 
030718,000155:                                                                                                  #  FUNCTIONAL DESCRIPTION
030719,000156:                                                                                                  #        COMPUTE INITIAL THRUST DIRECTION (UT) AND INITIAL VALUE OF VG
030720,000157:                                                                                                  #        VECTOR (VGTIG).
030721,000158: 
030722,000159:                                                                                                  #  SUBROUTINES CALLED
030723,000160:                                                                                                  #        CSMPREC
030724,000161:                                                                                                  #        INITVEL
030725,000162:                                                                                                  #        CALCGRAV
030726,000163:                                                                                                  #        MIDGIM
030727,000164: 
030728,000165:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030729,000166:                                                                                                  #        WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP      B16 KGM
030730,000167:                                                                                                  #        XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
030731,000168:                                                                                                  #    IF DELTA-V MANEUVER
030732,000169:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V REQUIRED IN
030733,000170:                                                                                                  #                        INERTIAL COORDS. OF ACTIVE VEHICLE
030734,000171:                                                                                                  #                        AT TIME OF IGNITION                     VECTOR  B7 M/CS
030735,000172:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION            VECTOR  B29 M
030736,000173:                                                                                                  #        VTIG            VELOCITY AT TIME OF IGNITION            VECTOR  B7 M/CS
030737,000174:                                                                                                  #        CSTEER = 0                                              DP
030738,000175:                                                                                                  #    IF AIMPOINT STEERING
030739,000176:                                                                                                  #        TIG             TIME OF IGNITION                        DP      B28 CS
030740,000177:                                                                                                  #        RTARG           POSITION TARGET TIME                    VECTOR  B29 M
030741,000178:                                                                                                  #        TPASS4          TIME OF ARRIVAL AT AIMPOINT
030742,000179:                                                                                                  #        CSTEER = ECSTEER (GR 0)                                 DP      B1
030743,000180: 
030744,000181:                                                                                                  #  OUTPUT
030745,000182:                                                                                                  #        UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030746,000183:                                                                                                  #        VGTIG           INITIAL VALUE OF VELOCITY
030747,000184:                                                                                                  #                        TO BE GAINED (INERT. COORD.)            VECTOR  B7 M/CS
030748,000185:                                                                                                  #        DELVLVC         VGTIG IN LOC. VERT. COORDS.
030749,000186:                                                                                                  #        F               NOMINAL THRUST FOR ENGINE               DP      B7 M-NEWT
030750,000187:                                                                                                  #        BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030751,000188:                                                                                                  #        -GDT            FOR S40.13                              VECT    B7 M/CS
030752,000189:                                                                                                  #        RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR  B29M
030753,000190:                                                                                                  #                        POSITION AT TIME OF IGNITION
030754,000191: 
030755,000192: 24,2241                                           COUNT*   $$/S40.1                              
030756,000193: 24,2241           06006        S40.1              TC       INTPRET                               
030757,000194: 24,2242           77214                           SET      VLOAD                                 
030758,000195: 24,2243           01070                                    FIRSTFLG                              
030759,000196: 24,2244           15336                                    HI6ZEROS                              
030760,000197: 24,2245           03705                           STORE    BDT                                   
030761,000198: 24,2246           77614                           BOFF                                           
030762,000199: 24,2247           01347                                    XDELVFLG                              
030763,000200: 24,2250           34065                                    S40.1B                                #  LAMBERT
030764,000201: 24,2251           51575                           VLOAD    ABVAL                                 #  EXTERNAL DELTA-V
030765,000202: 24,2252           03646                                    DELVSIN                               
030766,000203: 24,2253           27654                           STOVL    DELVSAB                               
030767,000204: 24,2254           03640                                    VTIG                                  
030768,000205: 24,2255           03576                           STORE    VINIT                                 
030769,000206: 24,2256           53435                           VXV      UNIT                                  

Page 695

030771,000208: 24,2257           03632                                    RTIG                                  
030772,000209: 24,2260           27713                           STOVL    UT                                    #  UP IN UT
030773,000210: 24,2261           03632                                    RTIG                                  
030774,000211: 24,2262           03570                           STORE    RINIT                                 
030775,000212: 24,2263           65236                           VSQ      PDDL                                  
030776,000213: 24,2264           00045                                    36D                                   
030777,000214: 24,2265           56275                           DMPR     DDV                                   
030778,000215: 24,2266           17051                                    THETACON                              
030779,000216: 24,2267           41205                           DMP      DMP                                   
030780,000217: 24,2270           03654                                    DELVSAB                               
030781,000218: 24,2271           03076                                    WEIGHT/G                              
030782,000219: 24,2272           77671                           DDV                                            
030783,000220: 24,2273           03727                                    F                                     
030784,000221: 24,2274           24017                           STOVL    14D                                   
030785,000222: 24,2275           03646                                    DELVSIN                               
030786,000223: 24,2276           74241                           DOT      VXSC                                  
030787,000224: 24,2277           03713                                    UT                                    
030788,000225: 24,2300           03713                                    UT                                    
030789,000226: 24,2301           41552                           VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030790,000227: 24,2302           65245                           BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
030791,000228: 24,2303           03646                                    DELVSIN                               
030792,000229: 24,2304           00017                                    14D                                   
030793,000230: 24,2305           63356                           SIN      PDVL                                  
030794,000231: 24,2306           00007                                    6D                                    
030795,000232: 24,2307           53435                           VXV      UNIT                                  
030796,000233: 24,2310           03713                                    UT                                    
030797,000234: 24,2311           45561                           VXSC     STADR                                 
030798,000235: 24,2312           50056                           STOVL    VGTIG                                 #  UNIT(VP X UP)SIN(THETAT) IN VGTIG
030799,000236: 24,2313           65256                           UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
030800,000237: 24,2314           00017                                    14D                                   
030801,000238: 24,2315           74346                           COS      VXSC                                  
030802,000239: 24,2316           74255                           VAD      VXSC                                  
030803,000240: 24,2317           03721                                    VGTIG                                 
030804,000241: 24,2320           00045                                    36D                                   
030805,000242: 24,2321           53352                           VSL2     VAD                                   
030806,000243: 24,2322           77626                           STADR                                          
030807,000244: 24,2323           74056                           STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
030808,000245: 24,2324           77656                           UNIT                                           
030809,000246: 24,2325           27713                           STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
030810,000247: 24,2326           03721                                    VGTIG                                 
030811,000248: 24,2327           45006                           PUSH     CALL                                  
030812,000249: 24,2330           11200                                    GET.LVC                               #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030813,000250: 

Page 696

030815,000252:                                                                                                  #  NAME  S40.2,3
030816,000253: 
030817,000254:                                                                                                  #  FUNCTIONAL DESCRIPTION
030818,000255:                                                                                                  #        COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
030819,000256:                                                                                                  #        ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
030820,000257:                                                                                                  #        COMPUTE X AXIS OF ENGINE BELL
030821,000258:                                                                                                  #        COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
030822,000259:                                                                                                  #        FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
030823,000260:                                                                                                  #        YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
030824,000261:                                                                                                  #        NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
030825,000262:                                                                                                  #        COORDS. WILL BE PREFERRED IMU ORIENTATION.
030826,000263:                                                                                                  #        COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
030827,000264: 
030828,000265:                                                                                                  #  SUBROUTINES CALLED
030829,000266:                                                                                                  #        CALCGA
030830,000267: 
030831,000268:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030832,000269:                                                                                                  #        PACTOFF         TOTAL PITCH TRIM ANGLE                  SP AT 1.0795111 REV.
030833,000270:                                                                                                  #        YACTOFF         TOTAL YAW   TRIM ANGLE                  SP AT 1.0795111 REV.
030834,000271:                                                                                                  #        UT              DESIRED THRUST DIRECTION                VECT.   B2 M/(CS.CS)
030835,000272:                                                                                                  #        RTIG            POSITION AT TIME OF IGNITION            VECT.   B29 M
030836,000273:                                                                                                  #        ENG2FLAG        ON=RCS OFF=SPS
030837,000274: 
030838,000275:                                                                                                  #  OUTPUT
030839,000276:                                                                                                  #        SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR     B1
030840,000277:                                                                                                  #        XSCREF          UNIT VECTORS ALIGNED WITH PREFERRED IMU         B1
030841,000278:                                                                                                  #        YSCREF
030842,000279:                                                                                                  #        ZSCREF
030843,000280:                                                                                                  #        GIMBAL ANGLES IN THETAD
030844,000281:                                                                                                  #        POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
030845,000282: 
030846,000283: 24,2331                                           COUNT*   $$/S40.2                              
030847,000284: 24,2331           64375        S40.2,3            VLOAD    MXV                                   
030848,000285: 24,2332           03713                                    UT                                    
030849,000286: 24,2333           01734                                    REFSMMAT                              
030850,000287: 24,2334           40372                           VSL1     SETPD                                 
030851,000288: 24,2335           00001                                    00D                                   
030852,000289: 24,2336           17357                           STODL    POINTVSM                              
030853,000290: 24,2337           15336                                    HI6ZEROS                              
030854,000291: 24,2340           41414                           BON      PUSH                                  
030855,000292: 24,2341           00704                                    ENG2FLAG                              
030856,000293: 24,2342           34157                                    S40.2,3B                              
030857,000294: 24,2343           41335                           SLOAD    DMP                                   
030858,000295: 24,2344           03025                                    YACTOFF                               
030859,000296: 24,2345           11542                                    TRIMSCAL                              
030860,000297: 24,2346           43352                           SL1      DAD                                   
030861,000298: 24,2347           11544                                    YBIAS                                 
030862,000299: 24,2350           71406                           PUSH     COS                                   
030863,000300: 24,2351           73525                           PDDL     SIN                                   
030864,000301: 24,2352           67206                           PUSH     SLOAD                                 
030865,000302: 24,2353           03024                                    PACTOFF                               
030866,000303: 24,2354           72405                           DMP      SL1                                   
030867,000304: 24,2355           11542                                    TRIMSCAL                              
030868,000305: 24,2356           41415                           DAD      PUSH                                  

Page 697

030870,000307: 24,2357           11546                                    PBIAS                                 
030871,000308: 24,2360           65346                           COS      PDDL                                  #  COS(P +P0) PDL 6
030872,000309: 24,2361           41556                           SIN      PUSH                                  #  SIN(P +P0) PDL 8D
030873,000310: 24,2362           14323                           STODL    ZSCREF                                #  SIN(P +P0)
030874,000311: 24,2363           00007                                    6                                     
030875,000312: 24,2364           72405                           DMP      SL1                                   
030876,000313: 24,2365           00005                                    4                                     
030877,000314: 24,2366           65276                           DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
030878,000315: 24,2367           00007                                    6                                     
030879,000316: 24,2370           72405                           DMP      SL1                                   
030880,000317: 24,2371           00003                                    2                                     
030881,000318: 24,2372           77666                           VDEF                                           
030882,000319: 24,2373           14307                           STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
030883,000320: 24,2374           00323                                    ZSCREF                                
030884,000321: 24,2375           72405                           DMP      SL1                                   
030885,000322: 24,2376           00005                                    4                                     
030886,000323: 24,2377           41325                           PDDL     DMP                                   
030887,000324: 24,2400           00323                                    ZSCREF                                
030888,000325: 24,2401           00003                                    2                                     
030889,000326: 24,2402           57552                           SL1      DCOMP                                 
030890,000327: 24,2403           77666                           VDEF                                           
030891,000328: 24,2404           14323                           STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030892,000329: 24,2405           77666                           VDEF                                           
030893,000330: 24,2406           14315                           STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030894,000331: 24,2407           00323                                    ZSCREF                                
030895,000332: 24,2410           65325                           PDDL     PDDL                                  
030896,000333: 24,2411           00315                                    YSCREF                                
030897,000334: 24,2412           00307                                    XSCREF                                
030898,000335: 24,2413           77666                           VDEF                                           
030899,000336: 24,2414           27351                           STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
030900,000337: 24,2415           03713                                    UT                                    
030901,000338: 24,2416           53515                           PDVL     UNIT                                  
030902,000339: 24,2417           03632                                    RTIG                                  
030903,000340: 24,2420           57435                           VXV      VCOMP                                 
030904,000341: 24,2421           00001                                    0                                     
030905,000342: 24,2422           41456                           UNIT     PUSH                                  
030906,000343: 24,2423           77624                           CALL                                           
030907,000344: 24,2424           61702                                    TSTRXUT                               
030908,000345: 24,2425           57435                           VXV      VCOMP                                 
030909,000346: 24,2426           00001                                    0                                     
030910,000347: 24,2427           63372                           VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
030911,000348: 24,2430           00307                                    XSCREF                                
030912,000349: 24,2431           76505                           VXM      VSL1                                  
030913,000350: 24,2432           00001                                    0                                     
030914,000351: 24,2433           24307                           STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
030915,000352: 24,2434           00315                                    YSCREF                                
030916,000353: 24,2435           76505                           VXM      VSL1                                  
030917,000354: 24,2436           00001                                    0                                     
030918,000355: 24,2437           24315                           STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
030919,000356: 24,2440           00323                                    ZSCREF                                

Page 698

030921,000358: 24,2441           76505                           VXM      VSL1                                  
030922,000359: 24,2442           00001                                    0                                     
030923,000360: 24,2443           00323                           STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030924,000361: 24,2444                                           COUNT*   $$/P40                                
030925,000362: 
030926,000363: 24,2444           77414        P40SXTY            SET      EXIT                                  
030927,000364: 24,2445           01073                                    PFRATFLG                              
030928,000365: 24,2446           03202                           TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
030929,000366: 24,2447           05561                           TC       DOWNFLAG                              
030930,000367: 24,2450           00124                           ADRES    3AXISFLG                              
030931,000368: 24,2451           04636                           TC       BANKCALL                              
030932,000369: 24,2452           56074                           CADR     R60CSM                                #  ATTITUDE MANEUVER
030933,000370: 24,2453           05402                           TC       PHASCHNG                              #  COMPTGO DESTROYS
030934,000371: 24,2454           00014                           OCT      00014                                 #  4.1 RESTART SETUP
030935,000372: 24,2455           44770                           CS       ONE                                   #  FOR UPDATEVG
030936,000373: 24,2456           55724                           TS       NBRCYCLS                              
030937,000374: 24,2457           06006                           TC       INTPRET                               
030938,000375: 24,2460           77614                           BON                                            
030939,000376: 24,2461           00704                                    ENG2FLAG                              #  P40 OR P41 ?
030940,000377: 24,2462           51626                                    P41/DSP                               
030941,000378: 24,2463           51575                           VLOAD    ABVAL                                 #  FOR R2
030942,000379: 24,2464           03721                                    VGTIG                                 
030943,000380: 24,2465           17763                           STODL    VGDISP                                
030944,000381: 24,2466           15336                                    HI6ZEROS                              
030945,000382: 24,2467           17426                           STODL    DVTOTAL                               
030946,000383: 24,2470           11560                                    S40.8ADS                              
030947,000384: 24,2471           01062                           STORE    AVEGEXIT                              
030948,000385: 24,2472           77776                           EXIT                                           
030949,000386: 24,2473           33517        P40GMB             CAF      P40CKLS2                              #  (4.1 PROTECTION)
030950,000387: 24,2474           04636                           TC       BANKCALL                              
030951,000388: 24,2475           21067                           CADR     GOPERF1                               
030952,000389: 24,2476           13403                           TCF      POST41                                #  V34
030953,000390: 24,2477           12560                           TCF      TST,TRIM                              #  V33
030954,000391: 24,2500           44770        TRIMONLY           CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
030955,000392: 24,2501           55444                 +1        TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
030956,000393: 24,2502           34772                           CAF      ZERO                                  #  SET CNTR  +0 FOR RESTART LOGIC IN S40.6
030957,000394: 24,2503           55446                           TS       CNTR                                  #        +0 SAYS NORMAL ENTRY.
030958,000395:                                                                                                  #        +1 (PRE40.6) SAYS RESTART ENTRY
030959,000396: 24,2504           34770                           CAF      ONE                                   
030960,000397: 24,2505           05233                           TC       WAITLIST                              
030961,000398: 24,2506  E6,1465                                  EBANK=   DAPDATR1                              
030962,000399: 24,2506           02366 40066                     2CADR    S40.6                                 
030963,000400: 
030964,000401: 24,2510           11444                           CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
030965,000402: 24,2511           33523                           CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
030966,000403: 24,2512           12514                           TCF      +2                                    #  HOLE
030967,000404: 24,2513           33525                           CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
030968,000405: 24,2514           04636                           TC       BANKCALL                              
030969,000406: 24,2515           01731                           CADR     DELAYJOB                              
030970,000407: 24,2516           33514                           CAF      V06N40                                

Page 699

030972,000409: 24,2517           54777                           TS       NVWORD1                               #  FORCE CLOCKJOB
030973,000410: 24,2520           05362                           TC       2PHSCHNG                              
030974,000411: 24,2521           00026                           OCT      00026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
030975,000412: 24,2522           00234                           OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
030976,000413: 24,2523  01,2154               4P23SPT1           =        4.23SPOT                              
030977,000414: 24,2523  01,2317               6P2SPT1            =        6.2SPOT                               
030978,000415: 24,2523           04606        P40S/SV            TCR      E7SETTER                              #  JOB, 4.23 PROTECTS, PRIO12
030979,000416: 24,2524  E7,1412                                  EBANK=   TIG                                   
030980,000417: 24,2524           06006                           TC       INTPRET                               
030981,000418: 24,2525           45345                           DLOAD    DSU                                   
030982,000419: 24,2526           03413                                    TIG                                   
030983,000420: 24,2527           03460                                    AVEGDT                                #  29.96 SEC (P40) 100.00 SEC (P15)
030984,000421: 24,2530           00041                           STORE    TDEC1                                 
030985,000422: 24,2531           77624                           CALRB                                          #  RETURN IN BASIC
030986,000423: 24,2532           27576                                    MIDTOAV1                              
030987,000424: 24,2533           02542                           TC       P40SET                                #  P15 INTEGRATION ALWAYS RETURNS HERE
030988,000425: 24,2534           00006        P40SNEWM           EXTEND                                         #  INTEGRATION TIME GREATER THAN ALLOWED
030989,000426: 24,2535           31105                           DCA      PIPTIME1                              
030990,000427: 24,2536           53413                           DXCH     TIG                                   
030991,000428: 24,2537           00006                           EXTEND                                         
030992,000429: 24,2540           33530                           DCA      SEC29.96                              
030993,000430: 24,2541           21413                           DAS      TIG                                   #  SET NEW TIG FOR V06N40
030994,000431: 24,2542           00006        P40SET             EXTEND                                         
030995,000432: 24,2543           30155                           DCA      MPAC                                  #  DELTA TIME TO PREREAD
030996,000433: 24,2544           53673                           DXCH     P40TMP                                
030997,000434: 24,2545           00006                           EXTEND                                         
030998,000435: 24,2546           43525                           DCS      5SECDP                                #  FOR TIGBLNK
030999,000436: 24,2547           21673                           DAS      P40TMP                                
031000,000437: 24,2550           00006                           EXTEND                                         
031001,000438: 24,2551           31673                           DCA      P40TMP                                
031002,000439: 24,2552           05332                           TC       LONGCALL                              
031003,000440: 24,2553  E7,1412                                  EBANK=   TIG                                   
031004,000441: 24,2553           02565 50067                     2CADR    TIGBLNK                               
031005,000442: 
031006,000443: 24,2555           05402                           TC       PHASCHNG                              
031007,000444: 24,2556           20214                           OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
031008,000445: 24,2557  01,2151               4P21SPT1           =        4.21SPOT                              
031009,000446: 24,2557           15205                           TCF      ENDOFJOB                              
031010,000447: 
031011,000448: 24,2560           34770        TST,TRIM           CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
031012,000449: 24,2561           12501                           TCF      TRIMONLY   +1                         
031013,000450: 
031014,000451: 24,2562           04636        P40BLNKR           TC       BANKCALL                              
031015,000452: 24,2563           20715                           CADR     CLEANDSP                              #  REMOVE RESIDUE
031016,000453: 24,2564           15205                           TCF      ENDOFJOB                              
031017,000454: 

Page 700

031019,000456: 24,2565           33525        TIGBLNK            CAF      5SEC                                  #  CALL TIGAVEG IN 5 SEC AT TIG - AVEGDT
031020,000457: 24,2566           05223                           TC       TWIDDLE                               
031021,000458: 24,2567           02602                           ADRES    TIGAVEG                               
031022,000459: 24,2570           34772                           CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
031023,000460: 24,2571           54777                           TS       NVWORD1                               
031024,000461: 24,2572           35053                           CAF      PRIO14                                
031025,000462: 24,2573           05121                           TC       NOVAC                                 
031026,000463: 24,2574  E7,1412                                  EBANK=   TIG                                   
031027,000464: 24,2574           02562 50067                     2CADR    P40BLNKR                              #  DONT PROTECT - RESTARTS BLANK DSKY
031028,000465: 
031029,000466: 24,2576           44342                           CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
031030,000467: 24,2577           04126        P40TSK             TC       NEWPHASE                              
031031,000468: 24,2600           00004                           OCT      4                                     
031032,000469: 24,2601  01,2176               4P37SPT1           =        4.37SPOT                              
031033,000470: 24,2601           05314                           TC       TASKOVER                              
031034,000471: 
031035,000472: 24,2602  E7,1412                                  EBANK=   TIG                                   
031036,000473: 24,2602           31214        TIGAVEG            CAE      MODREG                                #  TASK (4.37 PROTECTS)
031037,000474: 24,2603           74763                           MASK     BIT6                                  
031038,000475: 24,2604           00006                           EXTEND                                         #  P15 OR P40/P41 ?
031039,000476: 24,2605           12631                           BZF      P15AVEG                               #  P15
031040,000477: 24,2606           44765                           CS       PFRATBIT                              #  P40/P41
031041,000478: 24,2607           70076                           MASK     FLAGWRD2                              
031042,000479: 24,2610           54076                           TS       FLAGWRD2                              
031043,000480: 24,2611           30075                           CAE      FLAGWRD1                              
031044,000481: 24,2612           74756                           MASK     ENG2BIT                               
031045,000482: 24,2613           10000                           CCS      A                                     #  P40 OR P41 ?
031046,000483: 24,2614           13642                           TCF      P41REDSP                              
031047,000484: 24,2615           33514                           CAF      V06N40                                #  UNBLANK DISPLAY
031048,000485: 24,2616           54777                           TS       NVWORD1                               
031049,000486: 24,2617           33522                           CAF      SEC24.96                              
031050,000487: 24,2620           05223                           TC       TWIDDLE                               
031051,000488: 24,2621           02634                           ADRES    TIG-5                                 
031052,000489: 24,2622           46211                           CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
031053,000490: 24,2623           04126        TTGPHS             TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
031054,000491: 24,2624           00004                           OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
031055,000492: 24,2625  01,2102               4P2SPT1            =        4.2SPOT                               
031056,000493: 24,2625  01,2110               4P4SPT1            =        4.4SPOT                               
031057,000494: 24,2625  01,2116               4P6SPT1            =        4.6SPOT                               
031058,000495: 24,2625           11166        PRECHECK           CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
031059,000496: 24,2626           15314                           TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
031060,000497: 24,2627           04655                           TC       POSTJUMP                              
031061,000498: 24,2630           76607                           CADR     PREREAD                               
031062,000499: 
031063,000500: 24,2631           33513        P15AVEG            CAF      V06N95B                               
031064,000501: 24,2632           54777                           TS       NVWORD1                               #  UNBLANK DISPLAY
031065,000502: 24,2633           12625                           TCF      PRECHECK                              
031066,000503: 

Page 701

031068,000505: 
031069,000506: 24,2634  E7,1412                                  EBANK=   TIG                                   
031070,000507: 24,2634           33525        TIG-5              CAF      5SEC                                  
031071,000508: 24,2635           05233                           TC       WAITLIST                              
031072,000509: 24,2636  E6,1465                                  EBANK=   DAPDATR1                              
031073,000510: 24,2636           02651 50066                     2CADR    TIG-0                                 
031074,000511: 
031075,000512: 24,2640           44760                           CS       BIT9                                  #  WILL CAUSE V99 FLASH
031076,000513: 24,2641           54777                           TS       NVWORD1                               
031077,000514: 24,2642           05362                           TC       2PHSCHNG                              
031078,000515: 24,2643           40074                           OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
031079,000516: 24,2644           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
031080,000517: 24,2645  01,2060               3P3SPT1            =        3.3SPOT                               
031081,000518: 24,2645  01,2132               4P7SPT1            =        4.7SPOT                               
031082,000519: 24,2645           05134                           TC       FINVAC20                              
031083,000520: 24,2646  E7,1427                                  EBANK=   TGO                                   
031084,000521: 24,2646           02534 34067                     2CADR    S40.13                                
031085,000522: 
031086,000523: 24,2650           15314                           TCF      TASKOVER                              
031087,000524: 

Page 702

031089,000526: 
031090,000527: 24,2651  E6,1465                                  EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE OR 4.11 (-0 CS IN R40)
031091,000528: 24,2651           40103        TIG-0              CS       FLAGWRD7                              #  SET IGN FLAG
031092,000529: 24,2652           74754                           MASK     IGNFLBIT                              
031093,000530: 24,2653           26103                           ADS      FLAGWRD7                              
031094,000531: 24,2654           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
031095,000532: 24,2655           74755                           MASK     BIT12                                 
031096,000533: 24,2656           00006                           EXTEND                                         
031097,000534: 24,2657           15314                           BZF      TASKOVER                              #  WAIT FOR V99P
031098,000535: 24,2660           33514                           CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
031099,000536: 24,2661           54777                           TS       NVWORD1                               #        DURING THE V99 SEQUENCE)
031100,000537: 24,2662           05402                           TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
031101,000538: 24,2663           00274                           OCT      00274                                 #  A, 4.27 = IGNITION (-0CS) TBASE OLD
031102,000539: 24,2664  01,2162               4P27SPT1           =        4.27SPOT                              
031103,000540: 24,2664           30032        IGNITION           CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
031104,000541: 24,2665           55447                           TS       OGAD                                  #        V99PJOB (CLOCKJOB) SETS UP IGNITION
031105,000542: 24,2666           00006                           EXTEND                                         #        TASK (4.61 PROTECTION)
031106,000543: 24,2667           30025                           DCA      TIME2                                 #        FOR RESTARTS
031107,000544: 24,2670           53022                           DXCH     TEVENT                                
031108,000545: 24,2671           40101                           CS       FLAGWRD5                              #  SET ENGONFLG
031109,000546: 24,2672           74762                           MASK     ENGONBIT                              
031110,000547: 24,2673           26101                           ADS      FLAGWRD5                              
031111,000548: 24,2674           34754        SPSON              CAF      BIT13                                 #  TURN ON SPS ENGINE
031112,000549: 24,2675           00006                           EXTEND                                         
031113,000550: 24,2676           05011                           WOR      DSALMOUT                              
031114,000551: 24,2677           40106                           CS       FLGWRD10                              #  SET BURNFLAG TO INDICATE
031115,000552: 24,2700           74757                           MASK     BURNBIT                               #  THAT THEN CSM DID THE BURN
031116,000553: 24,2701           26106                           ADS      FLGWRD10                              
031117,000554: 
031118,000555: 24,2702           34760        IMPULCHK           CAF      IMPULBIT                              #  CHECK FOR IMPULSIVE BURN
031119,000556: 24,2703           70076                           MASK     FLAGWRD2                              
031120,000557: 24,2704           10000                           CCS      A                                     
031121,000558: 24,2705           12773                           TCF      IMPLBURN                              #  IMPULSIVE
031122,000559: 24,2706           40102                           CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
031123,000560: 24,2707           74754                           MASK     STRULBIT                              
031124,000561: 24,2710           26102                           ADS      FLAGWRD6                              
031125,000562: 24,2711           44076        PREPTVC            CS       DPCONFIG                              #  RESET T5 BITS
031126,000563: 24,2712           70102                           MASK     FLAGWRD6                              
031127,000564: 24,2713           54102                           TS       FLAGWRD6                              
031128,000565: 24,2714           00006                           EXTEND                                         #  KILL RCS
031129,000566: 24,2715           33550                           DCA      T5IDL24                               
031130,000567: 24,2716           52113                           DXCH     T5LOC                                 
031131,000568: 24,2717           46214                           CS       THREE                                 #  4.3 = DOTVCON (40CS)
031132,000569: 24,2720           04126                           TC       NEWPHASE                              
031133,000570: 24,2721           00004                           OCT      4                                     
031134,000571: 24,2722  01,2124               4P3SPT1            =        4.3SPOT                               
031135,000572: 24,2722           05255                           TC       FIXDELAY                              
031136,000573: 24,2723           00050                           DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
031137,000574: 24,2724           44770        DOTVCON            CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
031138,000575: 24,2725           55635                           TS       TVCPHASE                              

Page 703

031140,000577: 24,2726           34772                           CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
031141,000578: 24,2727           55644                           TS       TVCEXPHS                              
031142,000579: 24,2730           44076                           CS       DPCONFIG                              #  SET T5 BITS TO INDICATE TVC TAKEOVER....
031143,000580: 24,2731           70102                           MASK     FLAGWRD6                              #        BITS 15,14 = 10
031144,000581: 24,2732           64752                           AD       DAP1BIT                               
031145,000582: 24,2733           54102                           TS       FLAGWRD6                              
031146,000583: 24,2734           36214                           CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
031147,000584: 24,2735           54001                           TS       L                                     #        WHICH IS HANDLED NOW BY REDOTVC
031148,000585: 24,2736           40000                           COM                                            
031149,000586: 24,2737           53170                           DXCH     -PHASE6                               
031150,000587: 24,2740  01,2325               6P3SPT2            =        6.3SPOT                               
031151,000588: 24,2740           00006                           EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
031152,000589: 24,2741           41571                           DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
031153,000590: 24,2742           53665                           DXCH     ERRBTMP                               
031154,000591: 24,2743           44773                           CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
031155,000592: 24,2744           04126                           TC       NEWPHASE                              
031156,000593: 24,2745           00004                           OCT      4                                     
031157,000594: 24,2746  01,2127               4P5SPT1            =        4.5SPOT                               
031158,000595: 24,2746           34750                           CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
031159,000596: 24,2747           54030                           TS       TIME5                                 
031160,000597: 24,2750           00006                           EXTEND                                         
031161,000598: 24,2751           33562                           DCA      TVCON2C                               #  (TVCDAPON)
031162,000599: 24,2752           52113                           DXCH     T5LOC                                 #  (KILLS RCS DAP)
031163,000600: 24,2753           05255                           TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
031164,000601: 24,2754           00240                           DEC      160        B-14                       #        STEERING (IF NON-IMPULSIVE)
031165,000602: 24,2755           40102        DOSTRULL           CS       FLAGWRD6                              #  CHECK STRULLSW FOR IMPULSIVE BURN
031166,000603: 24,2756           74754                           MASK     STRULBIT                              
031167,000604: 24,2757           10000                           CCS      A                                     
031168,000605: 24,2760           02764                           TC       ULAGEOFF                              #  ULLAGE OFF
031169,000606: 24,2761           40076        STEERULL           CS       FLAGWRD2                              #  SET STEERSW
031170,000607: 24,2762           74756                           MASK     STEERBIT                              
031171,000608: 24,2763           26076                           ADS      FLAGWRD2                              
031172,000609: 24,2764           34772        ULAGEOFF           CAF      ZERO                                  
031173,000610: 24,2765           00006                           EXTEND                                         
031174,000611: 24,2766           01005                           WRITE    CHAN5                                 #  ZERO CHANNEL 5
031175,000612: 24,2767           00006                           EXTEND                                         
031176,000613: 24,2770           34772                           DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0, +0)
031177,000614: 24,2771           53164                           DXCH     -PHASE4                               
031178,000615: 24,2772           15314        ENDIGN             TCF      TASKOVER                              
031179,000616: 
031180,000617: 24,2773           44754        IMPLBURN           CS       STRULBIT                              #  RESET STRULLSW (COULD BE AN IMPULSIVE
031181,000618: 24,2774           70102                           MASK     FLAGWRD6                              #        ENGINE FAIL)
031182,000619: 24,2775           54102                           TS       FLAGWRD6                              
031183,000620: 24,2776           04606                           TCR      E7SETTER                              
031184,000621: 24,2777  E7,1412                                  EBANK=   TIG                                   
031185,000622: 24,2777           00006                           EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
031186,000623: 24,3000           31430                           DCA      TGO                                   
031187,000624: 24,3001           53413                           DXCH     TIG                                   
031188,000625: 24,3002           00006                           EXTEND                                         
031189,000626: 24,3003           30025                           DCA      TIME2                                 

Page 704

031191,000628: 24,3004           21413                           DAS      TIG                                   
031192,000629: 24,3005           05362                           TC       2PHSCHNG                              
031193,000630: 24,3006           40053                           OCT      40053                                 #  A, 3.5 = ENGINOFF (TGO+1)....NOTE GROUP
031194,000631: 24,3007           07014                           OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
031195,000632: 24,3010  01,2063               3P5SPT1            =        3.5SPOT                               
031196,000633: 24,3010           77777                           DEC      -0         B-14                       #  -0 CS
031197,000634: 24,3011  E6,1465                                  EBANK=   DAPDATR1                              
031198,000635: 24,3011           03016 50066                     2CADR    IMPLCONT                              
031199,000636: 
031200,000637: 24,3013           31430                           CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
031201,000638: 24,3014           05223                           TC       TWIDDLE                               
031202,000639: 24,3015           03023                           ADRES    ENGINOFF                              
031203,000640: 24,3016           44760        IMPLCONT           CS       IMPULBIT                              #  RESET IMPULSW, ENGINOFF IS NOW SET UP
031204,000641: 24,3017           70076                           MASK     FLAGWRD2                              
031205,000642: 24,3020           54076                           TS       FLAGWRD2                              
031206,000643: 24,3021           04611                           TCR      E6SETTER                              
031207,000644: 24,3022  E6,1465                                  EBANK=   DAPDATR1                              
031208,000645: 24,3022           12711                           TCF      PREPTVC                               
031209,000646: 
031210,000647: 24,3023  E7,1427                                  EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
031211,000648: 24,3023           04611        ENGINOFF           TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)   GET E6
031212,000649: 24,3024  E6,1465                                  EBANK=   DAPDATR1                              
031213,000650: 24,3024           03045        DOSPSOFF           TCR      SPSOFF                                #  SHUT DOWN SPS
031214,000651: 24,3025           05255                           TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
031215,000652: 24,3026           00372                           DEC      250        B-14                       #  RESTART MAY DOUBLE THE DELAY, HIT TEVENT
031216,000653: 24,3027           03217        DOTVCRCS           TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
031217,000654: 24,3030           04714                           TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
031218,000655: 24,3031           42042                           CADR     RCSDAPON                              #        BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
031219,000656: 24,3032           04714                           TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
031220,000657: 24,3033           13313                           CADR     MASSPROP                              #        RCS DAP STARTUP IN 0.6 SECONDS
031221,000658: 24,3034           03161                           TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
031222,000659: 24,3035           05362                           TC       2PHSCHNG                              
031223,000660: 24,3036           00003                           OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF
031224,000661: 24,3037           00354                           OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
031225,000662: 24,3040  01,2173               4P35SPT1           =        4.35SPOT                              
031226,000663: 24,3040           34664                           CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
031227,000664: 24,3041           05121                           TC       NOVAC                                 
031228,000665: 24,3042  E6,1465                                  EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
031229,000666: 24,3042           03174 50066                     2CADR    POSTBURN                              
031230,000667: 
031231,000668: 24,3044           15314                           TCF      TASKOVER                              
031232,000669: 
031233,000670: 24,3045  E6,1465                                  EBANK=   DAPDATR1                              
031234,000671: 24,3045           00004        SPSOFF             INHINT                                         
031235,000672: 24,3046           00006                           EXTEND                                         #  ESTABLISH SPSOFF TEVENT
031236,000673: 24,3047           30025                           DCA      TIME2                                 
031237,000674: 24,3050           53022                           DXCH     TEVENT                                
031238,000675: 24,3051           44762                           CS       ENGONBIT                              #  RESET ENGONFLG
031239,000676: 24,3052           70101                           MASK     FLAGWRD5                              
031240,000677: 24,3053           54101                           TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)

Page 705

031242,000679: 24,3054           44754                           CS       BIT13                                 #  SHUT DOWN SPS ENGINE
031243,000680: 24,3055           00006                           EXTEND                                         
031244,000681: 24,3056           03011                           WAND     DSALMOUT                              
031245,000682: 24,3057           34753                           CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
031246,000683: 24,3060           00006                           EXTEND                                         #  FOR POSSIBLE BACK-UP USE
031247,000684: 24,3061           05012                           WOR      CHAN12                                
031248,000685: 24,3062           31635                           CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
031249,000686: 24,3063           64770                           AD       ONE                                   #        THESE CHECKS ARE ONLY NEEDED
031250,000687: 24,3064           00006                           EXTEND                                         #        FOR A LESS THAN 0.4 SEC BURN
031251,000688: 24,3065           13101                           BZF      BTRIMR                                #  NO, INITIALIZATION NOT COMPLETE
031252,000689: 24,3066           40102                           CS       FLAGWRD6                              #  YES, CHECK IF TVC
031253,000690: 24,3067           74076                           MASK     DPCONFIG                              
031254,000691: 24,3070           00006                           EXTEND                                         
031255,000692: 24,3071           63101                           BZMF     BTRIMR                                #  NO, NOT TVC YET       
031256,000693: 24,3072           31633                           CAE      REPFRAC                               #  NO TRIM UPDATES IF R40 (ENGFAIL) ACTIVE
031257,000694: 24,3073           00006                           EXTEND                                         #       (LOTHRUST SETS REPFRAC = 77777)
031258,000695: 24,3074           13101                           BZF      BTRIMR                                
031259,000696: 24,3075           31601        BESTTRIM           CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
031260,000697: 24,3076           55423                           TS       PACTOFF                               
031261,000698: 24,3077           31603                           CAE      DELYBAR                               
031262,000699: 24,3100           55424                           TS       YACTOFF                               
031263,000700: 24,3101           00002        BTRIMR             TC       Q                                     
031264,000701: 

Page 706

031266,000703: 24,3102                                           COUNT*   $$/S40.8                              
031267,000704: 24,3102  E6,1446                                  EBANK=   CNTR                                  
031268,000705: 24,3102           77775        S40.81             VLOAD                                          #  TGO LESS THAN 4 SECONDS
031269,000706: 24,3103           15336                                    HI6ZEROS                              
031270,000707: 24,3104           03126        RATEZRO            STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
031271,000708: 24,3105           77776                           EXIT                                           
031272,000709: 24,3106           34750                           CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
031273,000710: 24,3107           55446                           TS       CNTR                                  
031274,000711: 24,3110           04606                           TCR      E7SETTER                              
031275,000712: 24,3111  E7,1412                                  EBANK=   TIG                                   
031276,000713: 24,3111           00004                           INHINT                                         
031277,000714: 24,3112           00006                           EXTEND                                         
031278,000715: 24,3113           31413                           DCA      TIG                                   
031279,000716: 24,3114           52155                           DXCH     MPAC                                  
031280,000717: 24,3115           00006                           EXTEND                                         
031281,000718: 24,3116           40025                           DCS      TIME2                                 
031282,000719: 24,3117           20155                           DAS      MPAC                                  
031283,000720: 24,3120           07224                           TCR      DPAGREE                               
031284,000721: 24,3121           30155                           CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
031285,000722: 24,3122           00006                           EXTEND                                         
031286,000723: 24,3123           63125                           BZMF     +2                                    
031287,000724: 24,3124           13126                           TCF      +2                                    
031288,000725: 24,3125           34770                           CAF      ONE                                   
031289,000726: 24,3126           55430                           TS       TGO        +1                         
031290,000727: 24,3127           05223                           TC       TWIDDLE                               
031291,000728: 24,3130           03023                           ADRES    ENGINOFF                              
031292,000729: 24,3131           05362                           TC       2PHSCHNG                              
031293,000730: 24,3132           40053                           OCT      40053                                 #  A,3.5 = ENGINOFF (TGO+1)....NOTE GROUP
031294,000731: 24,3133           10035                           OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
031295,000732: 24,3134  01,2063               3P5SPT2            =        3.5SPOT                               
031296,000733: 24,3134  01,2250               5P3SPT2            =        5.3SPOT                               
031297,000734: 24,3134           05561        CLEARSTR           TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
031298,000735: 24,3135           00042                           ADRES    STEERSW                               #  RESTARTS OK
031299,000736: 24,3136           13614                           TCF      SERVXT                                
031300,000737: 
031301,000738: 24,3137           77776        INCRSVG            EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
031302,000739: 24,3140           05671                           TC       ALARM                                 #  IN WRONG DIRECTION.
031303,000740: 24,3141           01407                           OCT      01407                                 
031304,000741: 24,3142           13614                           TCF      SERVXT                                
031305,000742: 
031306,000743: 24,3143                                           COUNT*   $$/R40                                
031307,000744: 24,3143           77614        LOTHRUST           BOFF                                           
031308,000745: 24,3144           01344                                    STEERSW                               
031309,000746: 24,3145           51603                                    SERVXT1                               #  NO STEERING. EXIT
031310,000747: 24,3146           77214        R40CHECK           BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
031311,000748: 24,3147           00711                                    IDLEFAIL                              #  SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
031312,000749: 24,3150           51603                                    SERVXT1                               #  UNFAVORABLE STEERING SYNCH
031313,000750: 24,3151           15336        R40START                    HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
031314,000751: 24,3152           03126                           STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD

Page 707

031316,000753: 24,3153           77776                           EXIT                                           
031317,000754: 24,3154  E6,1465                                  EBANK=   DAPDATR1                              
031318,000755: 24,3154           44772                           CS       ZERO                                  
031319,000756: 24,3155           55633                           TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
031320,000757: 24,3156           54777                           TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
031321,000758: 24,3157           13134                           TCF      CLEARSTR                              
031322,000759: 

Page 708

031324,000761: 24,3160                                           COUNT*   $$/P40                                
031325,000762: 24,3160           00004                 -1        INHINT                                         
031326,000763: 24,3161           43520        TVCZAP             CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRS, REENGAGE
031327,000764: 24,3162           00006                           EXTEND                                         #        OPTICS DAC
031328,000765: 24,3163           03012                           WAND     CHAN12                                
031329,000766: 24,3164           44770                           CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR....PERMIT
031330,000767: 24,3165           55323                           TS       OPTIND                                #        OPTICS-ZERO BUT NOT OPTICS-DRIVE
031331,000768: 24,3166           34772                           CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
031332,000769: 24,3167           54777                           TS       NVWORD1                               
031333,000770: 24,3170           44756                           CS       TIMRBIT                               #  CLEAR TIMRFLAG TO STOP CLOKTASK
031334,000771: 24,3171           70103                           MASK     FLAGWRD7                              
031335,000772: 24,3172           54103                           TS       FLAGWRD7                              
031336,000773: 24,3173           00002                           TC       Q                                     
031337,000774: 
031338,000775: 24,3174  E6,1465                                  EBANK=   DAPDATR1                              
031339,000776: 24,3174           33515        POSTBURN           CAF      V16N40                                #  NOVAC, PRIO 12
031340,000777: 24,3175           04636                           TC       BANKCALL                              
031341,000778: 24,3176           20716                           CADR     REFLASH                               
031342,000779: 24,3177           13403                           TCF      POST41                                #  V34 GO FINISH
031343,000780: 24,3200           13441                           TCF      P40RCS                                #  PROCEED
031344,000781: 24,3201           13174                           TCF      POSTBURN                              #  RECYCLE
031345,000782: 
031346,000783: 24,3202  E6,1465                                  EBANK=   DAPDATR1                              
031347,000784: 24,3202           00004                 -1        INHINT                                         
031348,000785: 24,3203           30032        SETMINDB           CA       CDUX                                  #  ROUTINE FOR SETTING
031349,000786: 24,3204           55572                           TS       THETADX                               #  THE MINIMUM DEADBAND
031350,000787: 24,3205           00006                           EXTEND                                         #  IN AUTOPILOT
031351,000788: 24,3206           30034                           DCA      CDUY                                  
031352,000789: 24,3207           53574                           DXCH     THETADY                               
031353,000790: 24,3210           35007                           CA       MINDB                                 #  SHOULD BE CALLED UNDER
031354,000791: 24,3211           55655                           TS       ADB                                   #  INTERRUPT INHIBITED
031355,000792: 24,3212           44765                           CS       BIT4                                  #  EBANK = E6
031356,000793: 24,3213           71465                           MASK     DAPDATR1                              
031357,000794: 24,3214           55465                           TS       DAPDATR1                              
031358,000795: 24,3215           00002                           TC       Q                                     
031359,000796: 
031360,000797: 24,3216  E6,1465                                  EBANK=   DAPDATR1                              
031361,000798: 24,3216           00004                 -1        INHINT                                         
031362,000799: 24,3217           33521        SETMAXDB           CA       MAXDB                                 #  ROUTINE FOR SETTING
031363,000800: 24,3220           55655                           TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
031364,000801: 24,3221           41465                           CS       DAPDATR1                              
031365,000802: 24,3222           74765                           MASK     BIT4                                  #  SHOULD BE CALLED UNDER
031366,000803: 24,3223           27465                           ADS      DAPDATR1                              #  INTERRUPT INHIBITED
031367,000804: 24,3224           00002                           TC       Q                                     #  EBANK = E6
031368,000805: 

Page 709

031370,000807: 24,3225  E7,1412                                  EBANK=   TIG                                   
031371,000808: 24,3225           34756        CLOKTASK           CAF      TIMRBIT                               #  IS TIMRFLAG SET
031372,000809: 24,3226           70103                           MASK     FLAGWRD7                              
031373,000810: 24,3227           10000                           CCS      A                                     
031374,000811: 24,3230           13234                           TCF      CLOCKON                               
031375,000812: 24,3231           05402                           TC       PHASCHNG                              
031376,000813: 24,3232           00006                           OCT      00006                                 #  KILL RESTART
031377,000814: 24,3233           05314                           TC       TASKOVER                              
031378,000815: 24,3234           00006        CLOCKON            EXTEND                                         
031379,000816: 24,3235           30025                           DCA      TIME2                                 
031380,000817: 24,3236           53661                           DXCH     TTOGO                                 
031381,000818: 24,3237           00006                           EXTEND                                         
031382,000819: 24,3240           41413                           DCS      TIG                                   
031383,000820: 24,3241           21661                           DAS      TTOGO                                 
031384,000821: 24,3242           35016        SETCLOCK           CAF      1SEC                                  
031385,000822: 24,3243           05223                           TC       TWIDDLE                               
031386,000823: 24,3244           03225                           ADRES    CLOKTASK                              
031387,000824: 24,3245           10777                           CCS      NVWORD1                               
031388,000825: 24,3246           13251                           TCF      +3                                    
031389,000826: 24,3247           13261                           TCF      SETTB6                                
031390,000827: 24,3250           13251                           TCF      +1                                    
031391,000828: 24,3251           43511                           CS       V06N85B                               #  CHECK FOR V06N85B (P41)
031392,000829: 24,3252           60777                           AD       NVWORD1                               
031393,000830: 24,3253           00006                           EXTEND                                         
031394,000831: 24,3254           13264                           BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
031395,000832: 24,3255           37651                           CAF      PRIO27                                
031396,000833: 24,3256           05121                           TC       NOVAC                                 
031397,000834: 24,3257  E6,1465                                  EBANK=   DAPDATR1                              
031398,000835: 24,3257           03276 50066                     2CADR    CLOCKJOB                              
031399,000836: 
031400,000837: 24,3261           40025        SETTB6             CS       TIME1                                 #  SET GROUP6 TIMEBASE
031401,000838: 24,3262           55271                           TS       TBASE6                                
031402,000839: 24,3263           15314                           TCF      TASKOVER                              
031403,000840: 
031404,000841: 24,3264           37651        SETUPDYN           CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
031405,000842: 24,3265           05135                           TC       FINDVAC                               
031406,000843: 24,3266  E6,1465                                  EBANK=   DAPDATR1                              
031407,000844: 24,3266           03271 50066                     2CADR    DYNDISP                               
031408,000845: 
031409,000846: 24,3270           13261                           TCF      SETTB6                                #  CLOSE OUT CLOCKTASK
031410,000847: 
031411,000848: 24,3271           06006        DYNDISP            TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
031412,000849: 24,3272           77624                           CALL                                           #        PRIOR TO BLANKING AND AVEG (V16N85)
031413,000850: 24,3273           51651                                    P40CNV85                              
031414,000851: 24,3274           77776                           EXIT                                           
031415,000852: 24,3275           13306                           TCF      CKNVWRD1                              
031416,000853: 

Page 710

031418,000855: 24,3276  E6,1465                                  EBANK=   DAPDATR1                              
031419,000856: 24,3276           30032        CLOCKJOB           CA       CDUX                                  #  NOVAC, PRIO27
031420,000857: 24,3277           55175                           TS       CDUSPOTX                              
031421,000858: 24,3300           30033                           CA       CDUY                                  
031422,000859: 24,3301           55171                           TS       CDUSPOTY                              
031423,000860: 24,3302           30034                           CA       CDUZ                                  
031424,000861: 24,3303           55173                           TS       CDUSPOTZ                              
031425,000862: 24,3304           04636                           TC       BANKCALL                              
031426,000863: 24,3305           47602                           CADR     QUICTRIG                              
031427,000864: 24,3306           00004        CKNVWRD1           INHINT                                         
031428,000865: 24,3307           10777                           CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
031429,000866: 24,3310           13466                           TCF      NOFLASH                               
031430,000867: 24,3311           15205                           TCF      ENDOFJOB                              
031431,000868: 24,3312           13427                           TCF      ENGREQST                              
031432,000869: 24,3313           33514        FAILDSP            CAF      V06N40                                #  SPS ENGINE FAILED - FLASH V97
031433,000870: 24,3314           04636                           TC       BANKCALL                              
031434,000871: 24,3315           20727                           CADR     CLOCPLAY                              
031435,000872: 24,3316           13363                           TCF      V97T                                  #  TERMINATE
031436,000873: 24,3317           13407                           TCF      V97P                                  #  PROCEED
031437,000874: 24,3320           05402        V97E               TC       PHASCHNG                              #  ENTER
031438,000875: 24,3321           00534                           OCT      00534                                 #  A, 4.53 = V97EJOB (PRIO 30 NOVAC)
031439,000876: 24,3322  01,2220               4P53SPT1           =        4.53SPOT                              
031440,000877:                                                                                                  #  IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
031441,000878: 24,3322           33514        V97EJOB            CAF      V06N40                                #  REDISPLAY V06N40
031442,000879: 24,3323           54777                           TS       NVWORD1                               
031443,000880: 24,3324           04606                           TCR      E7SETTER                              
031444,000881: 24,3325  E7,1412                                  EBANK=   TIG                                   
031445,000882: 24,3325           44124                           CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
031446,000883: 24,3326           55412                           TS       TIG                                   
031447,000884: 24,3327           04611                           TCR      E6SETTER                              
031448,000885: 24,3330  E6,1473                                  EBANK=   CSMMASS                               
031449,000886: 24,3330           03045        SPSOFF97           TCR      SPSOFF                                
031450,000887: 24,3331           33526                           CAF      SEC2.5                                #  DELAY 2.5 SECS FOR POSSIBLE TAILOFF
031451,000888: 24,3332           04636                           TC       BANKCALL                              
031452,000889: 24,3333           01731                           CADR     DELAYJOB                              #  **** RESTART CAN DOUBLE DELAY ****
031453,000890:                                                                                                  #  **** RESTART WILL ALTER TEVENT ****
031454,000891: 24,3334           34770        V97E40.6           CAF      BIT1                                  
031455,000892: 24,3335           05233                           TC       WAITLIST                              
031456,000893: 24,3336  E6,1446                                  EBANK=   CNTR                                  
031457,000894: 24,3336           02355 40066                     2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
031458,000895: 
031459,000896: 24,3340           04714                           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031460,000897: 24,3341           42042                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS.
031461,000898:                                                                                                  #        LEAVE NARROW DEADBAND FOR REIGNITE
031462,000899: 24,3342           05362                           TC       2PHSCHNG                              
031463,000900: 24,3343           00026                           OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
031464,000901: 24,3344           05024                           OCT      05024                                 #  NOVAC BELOW, PRIO NEXT
031465,000902: 24,3345           50777                           OCT      50777                                 #  PRIO 27 NOVAC

Page 711

031467,000904: 24,3346  01,2317               6P2SPT2            =        6.2SPOT                               
031468,000905: 24,3346           05561        QUICKIGN           TC       DOWNFLAG                              #  CLEAR ASTNFLAG
031469,000906: 24,3347           00154                           ADRES    ASTNFLAG                              
031470,000907: 24,3350           05547                           TC       UPFLAG                                #  AND SET IGNFLAG
031471,000908: 24,3351           00153                           ADRES    IGNFLAG                               #  FOR IMMEDIATE V99 RESPONSE
031472,000909: 24,3352           44760        V99FLASH           CS       BIT9                                  #  CAUSE V99 TO FLASH
031473,000910: 24,3353           54777                           TS       NVWORD1                               
031474,000911: 24,3354           05362                           TC       2PHSCHNG                              
031475,000912: 24,3355           40114                           OCT      40114                                 #  A, 4.11 = TIG-0 (-0 CS) TBASE FOR PREPTVC
031476,000913: 24,3356           00033                           OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
031477,000914: 24,3357  01,2060               3P3SPT2            =        3.3SPOT                               
031478,000915: 24,3357  01,2135               4P11SPT1           =        4.11SPOT                              
031479,000916: 24,3357           05134                           TC       FINVAC20                              #  SET UP TIMEBURN
031480,000917: 24,3360  E7,1427                                  EBANK=   TGO                                   
031481,000918: 24,3360           02534 34067                     2CADR    S40.13                                
031482,000919: 
031483,000920: 24,3362           15205        ENDV97E            TCF      ENDOFJOB                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
031484,000921: 
031485,000922: 24,3363  E6,1473                                  EBANK=   CSMMASS                               
031486,000923: 24,3363           05402        V97T               TC       PHASCHNG                              #  KILL CLOKTASK
031487,000924: 24,3364           00076                           OCT      00076                                 #  A, 6.7 = V97TJOB (PRIO 27 NOVAC)
031488,000925: 24,3365  01,2333               6P7SPT1            =        6.7SPOT                               
031489,000926: 24,3365           34772        V97TJOB            CAF      ZERO                                  #  DISABLE CLOCKJOB
031490,000927: 24,3366           54777                           TS       NVWORD1                               
031491,000928: 24,3367           03045                           TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE
031492,000929: 24,3370           33526                           CAF      SEC2.5                                #  DELAY 2.5 SECS FOR POSSIBLE TAILOFF :
031493,000930: 24,3371           04636                           TC       BANKCALL                              #  FALSE THRUST LOSS
031494,000931: 24,3372           01731                           CADR     DELAYJOB                              #  **** RESTART CAN DOUBLE DELAY ****
031495,000932:                                                                                                  #  **** RESTART WILL ALTER TEVENT ****
031496,000933: 24,3373           00004                           INHINT                                         
031497,000934: 24,3374           04714        V97TRCS            TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031498,000935: 24,3375           42042                           CADR     RCSDAPON                              #        KILL TVCEXEC/TVCROLLDAP STARTS
031499,000936: 24,3376           05362        V99T               TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
031500,000937: 24,3377           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031501,000938: 24,3400           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031502,000939: 24,3401           50777                           OCT      50777                                 #  PRIO 27 NOVAC
031503,000940: 24,3402           03160        V99TJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031504,000941: 24,3403           00006        POST41             EXTEND                                         
031505,000942: 24,3404           33554                           DCA      SERVCADR                              
031506,000943: 24,3405           53062                           DXCH     AVEGEXIT                              
031507,000944: 24,3406           14103                           TCF      GOTOPOOH                              
031508,000945: 
031509,000946: 24,3407  E6,1473                                  EBANK=   CSMMASS                               
031510,000947: 24,3407           05402        V97P               TC       PHASCHNG                              
031511,000948: 24,3410           00134                           OCT      00134                                 #  A, 4.13 = V97PJOB (PRIO 30 NOVAC)
031512,000949: 24,3411  01,2140               4P13SPT1           =        4.13SPOT                              
031513,000950:                                                                                                  #  IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
031514,000951: 24,3411           33514        V97PJOB            CAF      V06N40                                #  REDISPLAY V06N40
031515,000952: 24,3412           54777                           TS       NVWORD1                               
031516,000953: 24,3413           05547                           TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R40-BYPASS, IN

Page 712

031518,000955: 24,3414           00030                           ADRES    IDLEFAIL                              #        CASE OF UNFAVORABLE STEERING SYNCH
031519,000956: 24,3415           05547                           TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
031520,000957: 24,3416           00042                           ADRES    STEERSW                               
031521,000958: 24,3417           35017                           CAF      2SECS                                 
031522,000959: 24,3420           04636                           TC       BANKCALL                              
031523,000960: 24,3421           01731                           CADR     DELAYJOB                              #  WAIT 2 SECONDS
031524,000961:                                                                                                  #  **** RESTART CAN DOUBLE DELAY ****
031525,000962:                                                                                                  #  **** RESTART WILL ALTER TEVENT ****
031526,000963: 24,3422           05561        R40ENABL           TC       DOWNFLAG                              #  THEN RE-ENABLE R40 BY CLEARING IDLEFLAIL
031527,000964: 24,3423           00030                           ADRES    IDLEFAIL                              
031528,000965: 24,3424           05402                           TC       PHASCHNG                              
031529,000966: 24,3425           00004                           OCT      00004                                 #  KILL GROUP 4
031530,000967: 24,3426           15205        ENDV97P            TCF      ENDOFJOB                              
031531,000968: 
031532,000969: 
031533,000970: 24,3427           33514        ENGREQST           CAF      V06N40                                
031534,000971: 24,3430           04636                           TC       BANKCALL                              
031535,000972: 24,3431           20727                           CADR     CLOCPLAY                              
031536,000973: 24,3432           13376                           TCF      V99T                                  #  TERMINATE
031537,000974: 24,3433           13471                           TCF      V99P                                  #  PROCEED
031538,000975: 24,3434           05362        V99E               TC       2PHSCHNG                              #  ENTER
031539,000976: 24,3435           00006                           OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031540,000977: 24,3436           05024                           OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031541,000978: 24,3437           50777                           OCT      50777                                 #  PRIO 27 NOVAC
031542,000979: 24,3440           03160        V99EJOB            TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031543,000980: 24,3441           00006        P40RCS             EXTEND                                         #  V16N40 ENTERS HERE
031544,000981: 24,3442           33556                           DCA      ACADN85                               
031545,000982: 24,3443           53062                           DXCH     AVEGEXIT                              
031546,000983: 24,3444           35017                           CAF      2SECS                                 
031547,000984: 24,3445           04636                           TC       BANKCALL                              
031548,000985: 24,3446           01731                           CADR     DELAYJOB                              
031549,000986: 24,3447           03202        P40MINDB           TCR      SETMINDB   -1                         
031550,000987: 24,3450           00003                           RELINT                                         
031551,000988: 24,3451           05402        TIGNOW             TC       PHASCHNG                              
031552,000989: 24,3452           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
031553,000990: 24,3453           57777                           OCT      57777                                 #  PRIO 20 NOVAC
031554,000991: 24,3454           33512                           CAF      V16N85B                               
031555,000992: 24,3455           04636                           TC       BANKCALL                              
031556,000993: 24,3456           20716                           CADR     REFLASH                               
031557,000994: 24,3457           13403                           TCF      POST41                                #  FINISH P40/41
031558,000995: 24,3460           13462                           TCF      MNKPST41                              
031559,000996: 24,3461           13451                           TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
031560,000997: 
031561,000998: 24,3462           00006        MNKPST41           EXTEND                                         
031562,000999: 24,3463           33554                           DCA      SERVCADR                              
031563,001000: 24,3464           53062                           DXCH     AVEGEXIT                              
031564,001001: 24,3465           14105                           TCF      MNKGOPOO                              
031565,001002: 
031566,001003: 24,3466           30777        NOFLASH            CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
031567,001004: 24,3467           04636                           TC       BANKCALL                              

Page 713

031569,001006: 24,3470           20721                           CADR     REGODSP                               
031570,001007: 
031571,001008:    4000                                           SETLOC   FFTAG12                               
031572,001009:    4000                                           BANK                                           
031573,001010: 
031574,001011:    4606                                           COUNT*   $$/R40                                
031575,001012:    4606           35046        E7SETTER           CAF      EBANK7                                
031576,001013:    4607           56003                           XCH      EBANK                                 
031577,001014:    4610  E7,1412                                  EBANK=   TIG                                   
031578,001015:    4610           00002                           TC       Q                                     
031579,001016: 
031580,001017:    4611           35045        E6SETTER           CAF      EBANK6                                #  SET UP EBANK6
031581,001018:    4612           56003                           XCH      EBANK                                 
031582,001019:    4613  E6,1465                                  EBANK=   DAPDATR1                              
031583,001020:    4613           00002                           TC       Q                                     
031584,001021: 
031585,001022: 24,2000                                           SETLOC   P40S                                  
031586,001023: 24,2000                                           BANK                                           
031587,001024: 
031588,001025: 24,3471                                           COUNT*   $$/R40                                
031589,001026: 24,3471  E6,1465                                  EBANK=   DAPDATR1                              
031590,001027: 24,3471           00004        V99P               INHINT                                         
031591,001028: 24,3472           30103                           CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
031592,001029: 24,3473           74755                           MASK     ASTNBIT                               
031593,001030: 24,3474           10000                           CCS      A                                     
031594,001031: 24,3475           13506                           TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
031595,001032: 
031596,001033: 24,3476           34755        ASTNV99P           CAF      ASTNBIT                               #  SET ASTNFLAG
031597,001034: 24,3477           26103                           ADS      FLAGWRD7                              
031598,001035: 24,3500           30103                           CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
031599,001036: 24,3501           74754                           MASK     IGNFLBIT                              
031600,001037: 24,3502           00006                           EXTEND                                         
031601,001038: 24,3503           13506                           BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
031602,001039: 
031603,001040: 24,3504           05222        ENDV99P1           TC       TWIDBIT1                              #  TIG-0 HAS COME ALREADY SET UP IGNTN HERE
031604,001041: 24,3505           02664                           ADRES    IGNITION                              
031605,001042: 24,3506           33514        V99P/TIG           CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
031606,001043: 24,3507           54777                           TS       NVWORD1                               
031607,001044: 24,3510           15205        ENDV99P            TCF      ENDOFJOB                              
031608,001045: 
031609,001046: 24,3511                                           COUNT*   $$/P40                                

Page 714

031611,001048: 24,3511           01525        V06N85B            VN       0685                                  
031612,001049: 24,3512           04125        V16N85B            VN       1685                                  
031613,001050: 24,3513           01537        V06N95B            VN       0695                                  
031614,001051: 24,3514           01450        V06N40             VN       0640                                  
031615,001052: 24,3515           04050        V16N40             VN       1640                                  
031616,001053: 24,3516           04123        V1683              VN       1683                                  
031617,001054: 24,3517     4355               OCT12              =        TEN                                   
031618,001055: 24,3517           00204        P40CKLS2           OCT      204                                   
031619,001056: 24,3520     4615               OCT27/24           =        VBSP3LD                               
031620,001057: 24,3520           02202        OCT02202           OCT      02202                                 #  BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
031621,001058:                                                                                                  # MINDB          DEC     46
031622,001059: 24,3521           00707        MAXDB              DEC      455        B-14                       
031623,001060: 24,3522           04700        SEC24.96           DEC      2496       B-14                       
031624,001061: 24,3523           03410        18SEC              DEC      1800       B-14                       
031625,001062: 24,3524           00000        5SECDP             DEC      0          B-14                       #  MAKE DP 5SEC
031626,001063: 24,3525           00764        5SEC               DEC      500        B-14                       
031627,001064: 24,3526           00372        SEC2.5             DEC      250        B-14                       
031628,001065: 24,3527           00000 05664  SEC29.96           2DEC     2996       B-28                       
031629,001066: 24,3531           02217 06650  FENG               2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
031630,001067: 
031631,001068: 24,3533           00013 06112  FRCS2              2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
031632,001069:                                                                                                  #        B+7 NEWTONS/E+4
031633,001070: 24,3535           04000 00000  EP4(45)H           2DEC     .125                                  
031634,001071: 
031635,001072: 24,3537           00707 03434  EP4(10)H           2DEC     .027777777                            
031636,001073: 
031637,001074: 24,3541           21215 12215  TRIMSCAL           2DEC     1.07975111 B-1                        
031638,001075: 
031639,001076: 24,3543           00053 07423  YBIAS              2DEC     +.00263888889                            #  YAW   MECH BIAS (+0.95 DEG, THRUST ON)
031640,001077: 
031641,001078: 24,3545           77636 44653  PBIAS              2DEC     -.00597222222                            #  PITCH MECH BIAS (-2.15 DEG, THRUST ON)
031642,001079: 
031643,001080:                                                                                                  #  REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
031644,001081: 24,3547  E6,1465                                  EBANK=   DAPDATR1                              
031645,001082: 24,3547           03226 12066  T5IDL24            2CADR    T5IDLOC                               
031646,001083: 
031647,001084: 24,3551  E7,1412                                  EBANK=   TIG                                   
031648,001085: 24,3551           03706 50067  ACADN83            2CADR    CALCN83                               
031649,001086: 
031650,001087: 24,3553  E7,1412                                  EBANK=   TIG                                   
031651,001088: 24,3553           03143 76067  SERVCADR           2CADR    SERVEXIT                              
031652,001089: 
031653,001090: 24,3555  E6,1465                                  EBANK=   DAPDATR1                              
031654,001091: 24,3555           03576 50066  ACADN85            2CADR    CALCN85                               
031655,001092: 
031656,001093: 24,3557  E6,1465                                  EBANK=   DAPDATR1                              
031657,001094: 24,3557           02176 34066  S40.8ADS           2CADR    S40.8                                 
031658,001095: 

Page 715

031660,001097: 24,3561  E6,1465                                  EBANK=   DAPDATR1                              
031661,001098: 24,3561           02163 36066  TVCON2C            2CADR    TVCDAPON                              
031662,001099: 

Page 716

031664,001101: 30,2000                                           SETLOC   P40S3                                 
031665,001102: 30,2000                                           BANK                                           
031666,001103: 30,3650                                           COUNT*   $$/P40                                
031667,001104: 30,3650           45020        AGAIN              STQ      CALL                                  
031668,001105: 30,3651           03730                                    QTEMP1                                
031669,001106: 30,3652           27145                                    THISPREC                              
031670,001107: 30,3653           66134                           SXA,2    SXA,1                                 
031671,001108: 30,3654           03746                                    RTX2                                  
031672,001109: 30,3655           03745                                    RTX1                                  
031673,001110: 30,3656           40375                           VLOAD    SETPD                                 
031674,001111: 30,3657           00001                                    RATT                                  
031675,001112: 30,3660           00001                                    00D                                   
031676,001113: 30,3661           03632                           STORE    RTIG                                  
031677,001114: 30,3662           27570                           STOVL    RINIT                                 
031678,001115: 30,3663           00007                                    VATT                                  
031679,001116: 30,3664           03640                           STORE    VTIG                                  
031680,001117: 30,3665           03576                           STORE    VINIT                                 
031681,001118: 30,3666           65335                           SLOAD    PDDL                                  
031682,001119: 30,3667           15336                                    HI6ZEROS                              
031683,001120: 30,3670           11536                                    EP4(45)H                              
031684,001121: 30,3671           71214                           BON      DLOAD                                 
031685,001122: 30,3672           03705                                    NORMSW                                
031686,001123: 30,3673           61675                                    +2                                    
031687,001124: 30,3674           11540                                    EP4(10)H                              
031688,001125: 30,3675           45006                           PUSH     CALL                                  
031689,001126: 30,3676           22000                                    INITVEL                               
031690,001127: 30,3677           52001                           SETPD    GOTO                                  
031691,001128: 30,3700           00001                                    0                                     
031692,001129: 30,3701           03730                                    QTEMP1                                
031693,001130: 
031694,001131: 30,3702           46145        TSTRXUT            DLOAD    BHIZ                                  
031695,001132: 30,3703           00045                                    36D                                   
031696,001133: 30,3704           61707                                    BADVCTOR                              
031697,001134: 30,3705           43575                           VLOAD    RVQ                                   
031698,001135: 30,3706           00007                                    6D                                    
031699,001136: 30,3707           53575        BADVCTOR           VLOAD    UNIT                                  
031700,001137: 30,3710           03632                                    RTIG                                  
031701,001138: 30,3711           53515                           PDVL     UNIT                                  
031702,001139: 30,3712           03640                                    VTIG                                  
031703,001140: 30,3713           53322                           VSR3     VAD                                   
031704,001141: 30,3714           53435                           VXV      UNIT                                  
031705,001142: 30,3715           03713                                    UT                                    
031706,001143: 30,3716           77676                           VCOMP                                          
031707,001144: 30,3717           00007                           STORE    6D                                    
031708,001145: 30,3720           77616                           RVQ                                            
031709,001146: 

Page 717

031711,001148: 
031712,001149: 30,3721           67214        SETUP.9            BON      SLOAD                                 
031713,001150: 30,3722           01310                                    FIRSTFLG                              
031714,001151: 30,3723           61736                                    SURELY.9                              
031715,001152: 30,3724           03326                                    NBRCYCLP                              
031716,001153: 30,3725           74301                           NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
031717,001154: 30,3726           00047                                    X1                                    
031718,001155: 30,3727           03705                                    BDT                                   
031719,001156: 30,3730           53257                           VSR*     VAD                                   
031720,001157: 30,3731           20563                                    0          -14D,1                     
031721,001158: 30,3732           03646                                    VGTEMP                                
031722,001159: 30,3733           77651                           VSU                                            
031723,001160: 30,3734           03327                                    DELVSUM                               
031724,001161: 30,3735           03721                           STORE    VGPREV                                
031725,001162: 30,3736           77776        SURELY.9           EXIT                                           
031726,001163: 30,3737           34754                           CAF      PRIO10                                
031727,001164: 30,3740           05135                           TC       FINDVAC                               
031728,001165: 30,3741  E6,1465                                  EBANK=   DAPDATR1                              
031729,001166: 30,3741           02400 34066                     2CADR    S40.9                                 
031730,001167: 
031731,001168: 30,3743           05362                           TC       2PHSCHNG                              
031732,001169: 30,3744           00051                           OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
031733,001170: 30,3745           10035                           OCT      10035                                 
031734,001171: 30,3746  01,2017               1P5SPT1            =        1.5SPOT                               
031735,001172: 30,3746  01,2250               5P3SPT3            =        5.3SPOT                               
031736,001173: 30,3746           06006                           TC       INTPRET                               
031737,001174: 30,3747           77775                           VLOAD                                          
031738,001175: 30,3750           01030                                    RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
031739,001176: 30,3751           27570                           STOVL    RINIT                                 
031740,001177: 30,3752           01036                                    VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
031741,001178: 30,3753           17576                           STODL    VINIT                                 
031742,001179: 30,3754           01044                                    PIPTIME                               
031743,001180: 30,3755           03474                           STORE    TNIT                                  
031744,001181: 30,3756           77621                           BDSU                                           
031745,001182: 30,3757           03656                                    TPASS4                                
031746,001183: 30,3760           27423                           STOVL    DELLT4                                
031747,001184: 30,3761           15336                                    HI6ZEROS                              
031748,001185: 30,3762           17327                           STODL    DELVSUM                               
031749,001186: 30,3763           15336                                    HI6ZEROS                              
031750,001187: 30,3764           03325                           STORE    NBRCYCLS                              
031751,001188: 30,3765           77650                           GOTO                                           
031752,001189: 30,3766           34360                                    VGCOMP                                
031753,001190: 

Page 718

031755,001192:                                                                                                  #  NAME          S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031756,001193: 
031757,001194:                                                                                                  #  FUNCTIONAL DESCRIPTION
031758,001195:                                                                                                  #        GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031759,001196:                                                                                                  #                INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
031760,001197:                                                                                                  #                OF GIMBAL MOTION ON GPI
031761,001198:                                                                                                  #        GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031762,001199:                                                                                                  #                PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
031763,001200:                                                                                                  #        PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031764,001201:                                                                                                  #                IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031765,001202:                                                                                                  #                BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
031766,001203:                                                                                                  #                IF TVC IS ON (TVCDAPON OR LATER)  THEN REDOTVC WILL TAKE CARE
031767,001204:                                                                                                  #                OF RESTARTING ACTUATORS.
031768,001205: 
031769,001206:                                                                                                  #  CALLING SEQUENCE....
031770,001207:                                                                                                  #        WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031771,001208: 
031772,001209:                                                                                                  #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
031773,001210: 
031774,001211:                                                                                                  #  SUBROUTINES CALLED....
031775,001212:                                                                                                  #        FIXDELAY
031776,001213: 
031777,001214:                                                                                                  #  ERASEABLE INITIALIZATION REQUIRED
031778,001215:                                                                                                  #        CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
031779,001216:                                                                                                  #        MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031780,001217:                                                                                                  #                   NEGATIVE FOR GIMBAL TRIM ONLY
031781,001218:                                                                                                  #        PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
031782,001219:                                                                                                  #        ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
031783,001220:                                                                                                  #        ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031784,001221: 
031785,001222:                                                                                                  #  OUTPUT
031786,001223:                                                                                                  #        TVCYAW, TVCPITCH (BITS RELEASED)
031787,001224:                                                                                                  #        TVC ENABLE  AND  OPTICS ERROR COUNTER ENABLE
031788,001225: 
031789,001226: 20,2000                                           SETLOC   DAPS6                                 
031790,001227: 20,2000                                           BANK                                           
031791,001228: 20,2355  E6,1446                                  EBANK=   CNTR                                  
031792,001229: 20,2355                                           COUNT*   $$/S40.6                              
031793,001230: 20,2355           40102        PRE40.6            CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
031794,001231: 20,2356           74076                           MASK     DPCONFIG                              #  IF TVC, BITS 15,14 = 1,0)
031795,001232: 20,2357           00006                           EXTEND                                         
031796,001233: 20,2360           62362                           BZMF     +2                                    
031797,001234: 20,2361           15314                           TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
031798,001235: 20,2362           44770                           CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
031799,001236: 20,2363           55444                           TS       MRKRTMP                               
031800,001237: 20,2364           34770                           CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
031801,001238: 20,2365           55446                           TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR 1S
031802,001239:                                                                                                  #        NORMALLY +0, BY S40.6)
031803,001240: 20,2366  E6,1446                                  EBANK=   CNTR                                  
031804,001241: 20,2366           44772        S40.6              CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
031805,001242: 20,2367           55323                           TS       OPTIND                                
031806,001243: 20,2370           44767                           CS       BIT2                                  #  DISABLE OPTICS ERROR COUNTERS
031807,001244: 20,2371           00006                           EXTEND                                         
031808,001245: 20,2372           03012                           WAND     CHAN12                                
031809,001246: 
031810,001247: 20,2373           32460                           CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC

Page 719

031812,001249: 20,2374           00006                           EXTEND                                         #        VOLTAGES) AND DISENGAGE OPTICS/DAC
031813,001250: 20,2375           05012                           WOR      CHAN12                                
031814,001251: 20,2376           05255                           TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031815,001252: 20,2377           00006                           DEC      6          B-14                       #        RELAY LATCHING
031816,001253: 20,2400           34767                           CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
031817,001254: 20,2401           00006                           EXTEND                                         
031818,001255: 20,2402           05012                           WOR      CHAN12                                
031819,001256: 20,2403           05255                           TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031820,001257: 20,2404           00002                           DEC      2          B-14                       #        RELAY LATCHING
031821,001258: 20,2405           11446        RSTRTST            CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
031822,001259: 20,2406           12446                           TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
031823,001260:                                                                                                  #        TST,TRIM SETS +0 ON NORMAL ENTRY                        
031824,001261: 20,2407           31444                           CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
031825,001262: 20,2410           55446                           TS       CNTR                                  #        MRKRTMP SAVES CNTR FOR RESTARTS
031826,001263: 20,2411           00006                           EXTEND                                         
031827,001264: 20,2412           62444                           BZMF     GIMTRIM                               #  (TRIM ONLY)
031828,001265: 20,2413           44772        GDTSETUP           CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
031829,001266: 20,2414           55446                           TS       CNTR                                  
031830,001267: 20,2415           32462        GIMDTEST           CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
031831,001268: 20,2416           02431                           TC       OUTPUT                                #        (LEAVES GIMBAL AT +2 DEG)
031832,001269: 20,2417           32461                           CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
031833,001270: 20,2420           02431                           TC       OUTPUT                                
031834,001271: 20,2421           32462                           CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
031835,001272: 20,2422           02431                           TC       OUTPUT                                
031836,001273: 20,2423           41446                           CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST
031837,001274: 20,2424           10000                           CCS      A                                     
031838,001275: 20,2425           12444                           TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
031839,001276: 20,2426           44770                           CS       BIT1                                  #  SET UP YAW TEST
031840,001277: 20,2427           55446                           TS       CNTR                                  
031841,001278: 20,2430           12415                           TCF      GIMDTEST                              #  FOR YAW TEST
031842,001279: 20,2431           00006        OUTPUT             EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
031843,001280: 20,2432           23004                           QXCH     TEMPR60                               
031844,001281: 20,2433           51446                           INDEX    CNTR                                  
031845,001282: 20,2434           54054                           TS       TVCPITCH                              
031846,001283: 20,2435           51446                           INDEX    CNTR                                  
031847,001284: 20,2436           34756                           CAF      BIT11                                 
031848,001285: 20,2437           00006                           EXTEND                                         
031849,001286: 20,2440           05014                           WOR      CHAN14                                
031850,001287: 20,2441           05255                           TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031851,001288: 20,2442           00310                           DEC      200        B-14                       #        GIMBAL MOTION ON GPI
031852,001289: 20,2443           01004                           TC       TEMPR60                               
031853,001290: 20,2444           05255        GIMTRIM            TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
031854,001291: 20,2445           00620                           DEC      400        B-14                       
031855,001292: 20,2446           44772                 +2        CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
031856,001293: 20,2447           61423                           AD       PACTOFF                               #        (AVOID +0) ENTRY POINT FROM RSTRTST
031857,001294: 20,2450           54054                           TS       TVCPITCH                              #        ON A RESTART, TO AVOID 4SEC DELAY
031858,001295: 20,2451           44772                           CS       ZERO                                  
031859,001296: 20,2452           61424                           AD       YACTOFF                               
031860,001297: 20,2453           54053                           TS       TVCYAW                                
031861,001298: 20,2454           35050                           CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12

Page 720

031863,001300: 20,2455           00006                           EXTEND                                         
031864,001301: 20,2456           05014                           WOR      CHAN14                                
031865,001302: 20,2457           15314        ENDS40.6           TCF      TASKOVER                              
031866,001303: 
031867,001304: 20,2460           02200        OCT02200           OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031868,001305: 20,2461           77527        -4ACTDEG           DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031869,001306: 20,2462           00124        +2ACTDEG           DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031870,001307: 
031871,001308: 
031872,001309: 27,2000                                           SETLOC   P40S5                                 
031873,001310: 27,2000                                           BANK                                           
031874,001311: 27,3032                                           COUNT*   $$/S41.1                              
031875,001312: 27,3032           45020        S41.1              STQ      CALL                                  
031876,001313: 27,3033           03657                                    QTEMP                                 
031877,001314: 27,3034           47530                                    CDUTRIG                               
031878,001315: 27,3035           77775                           VLOAD                                          
031879,001316: 27,3036           45121                           MXV      CALL                                  
031880,001317: 27,3037           01734                                    REFSMMAT                              
031881,001318: 27,3040           47633                                    *SMNB*                                
031882,001319: 27,3041           74321                           MXV      VXSC                                  
031883,001320: 27,3042           05014                                    QUADROT                               
031884,001321: 27,3043           17047                                    TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
031885,001322: 27,3044           52072                           VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
031886,001323: 27,3045           03657                                    QTEMP                                 
031887,001324: 27,3046           24000 00000  TENBNK14           2DEC     10.        B-4                        
031888,001325: 
031889,001326: 27,3050           00024 13714  THETACON           2DEC     .31830989  B-8                        
031890,001327: 
031891,001328: 
031892,001329:                                                                                                  #  CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
031893,001330: 
031894,001331: 20,2000                                           SETLOC   DAPS6                                 
031895,001332: 20,2000                                           BANK                                           #  VIA IBNKCALL
031896,001333: 20,2463                                           COUNT*   $$/S41.2                              
031897,001334: 20,2463           31465        S41.2              CA       DAPDATR1                              
031898,001335: 20,2464           76214                           MASK     THREE                                 
031899,001336: 20,2465           60000                           AD       A                                     
031900,001337: 20,2466           54774                           TS       RATEINDX                              
031901,001338: 20,2467           00004                           INHINT                                         
031902,001339: 20,2470           31465                           CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
031903,001340: 20,2471           74346                           MASK     PRIO30                                #                        =10)
031904,001341: 20,2472           64751                           AD       -BIT14                                #  (OCT57777)
031905,001342: 20,2473           00006                           EXTEND                                         
031906,001343: 20,2474           12501                           BZF      TOGETHER                              #  YES
031907,001344: 20,2475           44767                           CS       ATTCHBIT                              #  NO, UNSET FLAG
031908,001345: 20,2476           70103                           MASK     FLAGWRD7                              
031909,001346: 20,2477           54103                           TS       FLAGWRD7                              
031910,001347: 20,2500           12504                           TCF      +4                                    
031911,001348: 20,2501           40103        TOGETHER           CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
031912,001349: 20,2502           74767                           MASK     ATTCHBIT                              

Page 721

031914,001351: 20,2503           26103                           ADS      FLAGWRD7                              
031915,001352: 20,2504           00003                           RELINT                                         
031916,001353: 20,2505           31465                           CA       DAPDATR1                              
031917,001354: 20,2506           74765                           MASK     BIT4                                  
031918,001355: 20,2507           00006                           EXTEND                                         
031919,001356: 20,2510           62512                           BZMF     +2                                    #  DEC 46 MEANS NARROW DB
031920,001357: 20,2511           32612                           CA       DEC409                                
031921,001358: 20,2512           62613                           AD       DEC46                                 #  DEC 455 MEANS WIDE DB
031922,001359: 20,2513           55655                           TS       ADB                                   
031923,001360: 20,2514           31465                           CA       DAPDATR1                              
031924,001361: 20,2515           74762                           MASK     BIT7                                  #  QUAD BD
031925,001362: 20,2516           00006                           EXTEND                                         
031926,001363: 20,2517           62521                           BZMF     +2                                    
031927,001364: 20,2520           34770                           CA       ONE                                   
031928,001365: 20,2521           55631                           TS       XTRANS                                
031929,001366: 20,2522           31465                           CA       DAPDATR1                              
031930,001367: 20,2523           74757                           MASK     BIT10                                 #  QUAD AC
031931,001368: 20,2524           00006                           EXTEND                                         
031932,001369: 20,2525           62527                           BZMF     +2                                    
031933,001370: 20,2526           44770                           CS       ONE                                   
031934,001371: 20,2527           27631                           ADS      XTRANS                                
031935,001372: 20,2530           00004                           INHINT                                         
031936,001373: 20,2531           00006                           EXTEND                                         
031937,001374: 20,2532           12537                           BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
031938,001375: 20,2533           40075                           CS       FLAGWRD1                              #  SET NJETSFLG   (2 JETS, AC OR BD QUADS)
031939,001376: 20,2534           74752                           MASK     NJETSBIT                              #  NJETSFLG=1 FOR 2 JET ULLAGE (AC OR BD)
031940,001377: 20,2535           26075                           ADS      FLAGWRD1                              
031941,001378: 20,2536           12542                           TCF      +4                                    
031942,001379: 20,2537           44752                           CS       NJETSBIT                              #  NJETSFLG=0 FOR 4 JET (OR 0 JET) ULLAGE
031943,001380: 20,2540           70075                           MASK     FLAGWRD1                              
031944,001381: 20,2541           54075                           TS       FLAGWRD1                              
031945,001382: 20,2542           00003                           RELINT                                         
031946,001383: 20,2543           31466                           CA       DAPDATR2                              
031947,001384: 20,2544           74754                           MASK     BIT13                                 
031948,001385: 20,2545           00006                           EXTEND                                         
031949,001386: 20,2546           62550                           BZMF     +2                                    
031950,001387: 20,2547           12551                           TCF      +2                                    
031951,001388: 20,2550           44770                           CS       ONE                                   
031952,001389: 20,2551           40000                           COM                                            
031953,001390: 20,2552           55630                           TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
031954,001391: 20,2553           31466                           CA       DAPDATR2                              
031955,001392: 20,2554           74757                           MASK     BIT10                                 
031956,001393: 20,2555           10000                           CCS      A                                     
031957,001394: 20,2556           12562                           TCF      +4                                    
031958,001395: 20,2557           34770                           CA       ONE                                   
031959,001396: 20,2560           55626                           TS       RACFAIL                               
031960,001397: 20,2561           12572                           TCF      BDFAIL                                
031961,001398: 20,2562           34772                           CA       ZERO                                  
031962,001399: 20,2563           55626                           TS       RACFAIL                               
031963,001400: 20,2564           31466                           CA       DAPDATR2                              

Page 722

031965,001402: 20,2565           74765                           MASK     BIT4                                  
031966,001403: 20,2566           10000                           CCS      A                                     
031967,001404: 20,2567           12572                           TCF      BDFAIL                                
031968,001405: 20,2570           44770                           CS       ONE                                   
031969,001406: 20,2571           55626                           TS       RACFAIL                               
031970,001407: 20,2572           31466        BDFAIL             CA       DAPDATR2                              
031971,001408: 20,2573           74762                           MASK     BIT7                                  
031972,001409: 20,2574           10000                           CCS      A                                     
031973,001410: 20,2575           12601                           TCF      +4                                    
031974,001411: 20,2576           34770                           CA       ONE                                   
031975,001412: 20,2577           55627                           TS       RBDFAIL                               
031976,001413: 20,2600           00002                           TC       Q                                     
031977,001414: 20,2601           34772                           CA       ZERO                                  
031978,001415: 20,2602           55627                           TS       RBDFAIL                               
031979,001416: 20,2603           31466                           CA       DAPDATR2                              
031980,001417: 20,2604           74770                           MASK     BIT1                                  
031981,001418: 20,2605           10000                           CCS      A                                     
031982,001419: 20,2606           00002                           TC       Q                                     
031983,001420: 20,2607           44770                           CS       ONE                                   
031984,001421: 20,2610           55627                           TS       RBDFAIL                               
031985,001422: 20,2611           00002                           TC       Q                                     
031986,001423: 

Page 723

031988,001425: 16,2000                                           SETLOC   P40S1                                 
031989,001426: 16,2000                                           BANK                                           
031990,001427: 16,2065  E6,1724                                  EBANK=   NBRCYCLS                              
031991,001428: 16,2065                                           COUNT*   $$/S40.1                              
031992,001429: 16,2065           45345        S40.1B             DLOAD    DSU                                   #  LAMBERT
031993,001430: 16,2066           03413                                    TIG                                   
031994,001431: 16,2067           34531                                    TWODT                                 
031995,001432: 16,2070           14041                           STODL    TDEC1                                 
031996,001433: 16,2071           03656                                    TPASS4                                
031997,001434: 16,2072           77625                           DSU                                            
031998,001435: 16,2073           00041                                    TDEC1                                 
031999,001436: 16,2074           37423                           STCALL   DELLT4                                
032000,001437: 16,2075           61650                                    AGAIN                                 
032001,001438: 16,2076           77775                           VLOAD                                          
032002,001439: 16,2077           03612                                    VIPRIME                               
032003,001440: 16,2100           17713                           STODL    UT                                    
032004,001441: 16,2101           03413                                    TIG                                   
032005,001442: 16,2102           00041                           STORE    TDEC1                                 
032006,001443: 16,2103           77621                           BDSU                                           
032007,001444: 16,2104           03656                                    TPASS4                                
032008,001445: 16,2105           37423                           STCALL   DELLT4                                
032009,001446: 16,2106           61650                                    AGAIN                                 
032010,001447: 16,2107           41575                           VLOAD    PUSH                                  
032011,001448: 16,2110           03646                                    DELVEET3                              
032012,001449: 16,2111           37721                           STCALL   VGTIG                                 
032013,001450: 16,2112           11200                                    GET.LVC                               
032014,001451: 16,2113           77601                           SETPD                                          
032015,001452: 16,2114           00001                                    00D                                   
032016,001453: 16,2115           45175        CALCUT             VLOAD    CALL                                  
032017,001454: 16,2116           03632                                    RTIG                                  
032018,001455: 16,2117           77270                                    CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
032019,001456: 16,2120           70372                           VSL1     V/SC                                  
032020,001457: 16,2121           34523                                    200CS                                 #  G AT 2(-5) M/CS.CS
032021,001458: 16,2122           52315                           PDVL     VSU                                   
032022,001459: 16,2123           03612                                    VIPRIME                               
032023,001460: 16,2124           03713                                    UT                                    
032024,001461: 16,2125           52341                           V/SC     VSU                                   
032025,001462: 16,2126           34523                                    200CS                                 
032026,001463: 16,2127           72561                           VXSC     VSL2                                  
032027,001464: 16,2130           03703                                    CSTEER                                
032028,001465: 16,2131           24015                           STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
032029,001466: 16,2132           03721                                    VGTIG                                 
032030,001467: 16,2133           41456                           UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
032031,001468: 16,2134           74241                           DOT      VXSC                                  
032032,001469: 16,2135           00015                                    12D                                   
032033,001470: 16,2136           00001                                    0                                     
032034,001471: 16,2137           51352                           VSL2     BVSU                                  
032035,001472: 16,2140           00015                                    12D                                   
032036,001473: 16,2141           14015                           STODL    12D                                   #  Q PDL 12D SCALED AT 2(-5)

Page 724

032038,001475: 16,2142           03727                                    F                                     
032039,001476: 16,2143           56261                           SRR      DDV                                   
032040,001477: 16,2144           21605                                    4                                     
032041,001478: 16,2145           03076                                    WEIGHT/G                              
032042,001479: 16,2146           63316                           DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
032043,001480: 16,2147           00015                                    12D                                   
032044,001481: 16,2150           77636                           VSQ                                            
032045,001482: 16,2151           75421                           BDSU     SQRT                                  
032046,001483: 16,2152           76561                           VXSC     VSL1                                  
032047,001484: 16,2153           53455                           VAD      UNIT                                  
032048,001485: 16,2154           00015                                    12D                                   
032049,001486: 16,2155           37713                           STCALL   UT                                    
032050,001487: 16,2156           50331                                    S40.2,3                               #  **** NO RETURN **** SAME AS GOTO S40.2,3
032051,001488: 
032052,001489: 16,2157                                           COUNT*   $$/S40.2                              
032053,001490: 16,2157           77775        S40.2,3B           VLOAD                                          
032054,001491: 16,2160           11760                                    XUNIT                                 
032055,001492: 16,2161           27351                           STOVL    SCAXIS                                
032056,001493: 16,2162           03713                                    UT                                    
032057,001494: 16,2163           00307                           STORE    XSCREF                                
032058,001495: 16,2164           53435                           VXV      UNIT                                  
032059,001496: 16,2165           03632                                    RTIG                                  
032060,001497: 16,2166           34007                           STCALL   6D                                    
032061,001498: 16,2167           61702                                    TSTRXUT                               
032062,001499: 16,2170           00315                           STORE    YSCREF                                
032063,001500: 16,2171           57435                           VXV      VCOMP                                 
032064,001501: 16,2172           00307                                    XSCREF                                
032065,001502: 16,2173           77772                           VSL1                                           
032066,001503: 16,2174           34323                           STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
032067,001504: 16,2175           50444                                    P40SXTY                               #  **** NO RETURN **** SAME AS GOTO P40SXTY
032068,001505: 

Page 725

032070,001507: 
032071,001508:                                                                                                  #  NAME          S40.8 - CROSS PRODUCT STEERING
032072,001509:                                                                                                  #  FUNCTION      (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
032073,001510:                                                                                                  #                (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
032074,001511:                                                                                                  #                (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
032075,001512:                                                                                                  #                (4) INITIATES THRUST-FAIL ROUTINE, R40
032076,001513:                                                                                                  #                (5) UPDATES CSMMASS
032077,001514: 
032078,001515:                                                                                                  #  INPUT         VGPREV  - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
032079,001516:                                                                                                  #                          PRIOR TO UPDATING IN METERS/CS AT +7.
032080,001517:                                                                                                  #                DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
032081,001518:                                                                                                  #                          IN METERS/CS AT +7.
032082,001519:                                                                                                  #                BDT     - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
032083,001520:                                                                                                  #                          GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
032084,001521:                                                                                                  #                          METERS/CS AT +7.
032085,001522:                                                                                                  #                CSTEER  - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
032086,001523:                                                                                                  #                          SPS AIMPOINT STEERING MANEUVERS
032087,001524:                                                                                                  #                IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
032088,001525:                                                                                                  #                STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
032089,001526:                                                                                                  #                REFSMMAT, DAPDATR1, PIPTIME
032090,001527:                                                                                                  #                EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
032091,001528: 
032092,001529:                                                                                                  #  OUTPUT        TTOGO   - TIME REMAINING FOR ENGINE BURN IN CS AT +28
032093,001530:                                                                                                  #                OMEGAC  - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
032094,001531:                                                                                                  #                VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
032095,001532:                                                                                                  #                STEERSW, IMPULSW, NVWORD1
032096,001533:                                                                                                  #                REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
032097,001534: 
032098,001535:                                                                                                  #  SUBROUTINES USED      - *SMNB*, ALARM
032099,001536: 
032100,001537: 16,2176  E6,1465                                  EBANK=   DAPDATR1                              
032101,001538: 16,2176                                           COUNT*   $$/S40.8                              
032102,001539: 16,2176           06006        S40.8              TC       INTPRET                               
032103,001540: 16,2177           45001                           SETPD    CALL                                  
032104,001541: 16,2200           00001                                    00D                                   
032105,001542: 16,2201           34331                                    UPDATEVG                              
032106,001543: 16,2202           77745                           DLOAD                                          
032107,001544: 16,2203           03074                                    CSMMASS                               #                                KG      B-16
032108,001545: 16,2204           03335                           STORE    MASSTMP                               
032109,001546: 16,2205           77776                           EXIT                                           
032110,001547: 16,2206           05402                           TC       PHASCHNG                              
032111,001548: 16,2207           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
032112,001549: 16,2210  01,2250               5P3SPT4            =        5.3SPOT                               
032113,001550: 16,2210           06006                           TC       INTPRET                               
032114,001551: 16,2211           51575                           VLOAD    ABVAL                                 
032115,001552: 16,2212           03432                                    DELVREF                               #  DELTA V                       M/CS    B-7
032116,001553: 16,2213           67206                           PUSH     SLOAD                                 #  00D = DELTA V MAG             M/CS    B-7
032117,001554: 16,2214           01345                                    DVTHRESH                              #                                M/CS    B+2
032118,001555: 16,2215           44205                           DMP      BDSU                                  
032119,001556: 16,2216           34533                                    DPB-9                                 #  DVTHRESH                      M/CS    B-7
032120,001557: 16,2217           67240        LOCHECK            BMN      SLOAD                                 
032121,001558: 16,2220           51143                                    LOTHRUST                              #  ** MAYBE THRUST BAD **
032122,001559:                                                                                                  #  THRUST GOOD : UPDATE CSMMASS
032123,001560: 16,2221           01351                                    EMDOT                                 #  FLOW RATE                     KG/CS   B-3

Page 726

032125,001562: 16,2222           44205                           DMP      BDSU                                  
032126,001563: 16,2223           34530                                    FOURSEC    +1                         #  20D B-13 : MPAC = 2 SECS MASS LOSS
032127,001564: 16,2224           03335                                    MASSTMP                               
032128,001565: 16,2225           03074        UPD8MASS           STORE    CSMMASS                               #  CSMMASS UPDATED FOR LAST 2 SECS
032129,001566: 16,2226           77614                           BOFF                                           
032130,001567: 16,2227           01344                                    STEERSW                               #  NO STEERING :
032131,001568: 16,2230           51603                                    SERVXT1                               #  BYPASS TGOCALC AND X-PRODUT
032132,001569: 16,2231           77414        CGTRACK            BON      EXIT                                  #  ENABLE TVCDAP CG TRACKING
032133,001570: 16,2232           04700                                    SWTOVER                               
032134,001571: 16,2233           34325                                    FREPSET                               #  V46 SWITCHOVER HAS OCCURRED (CSM/LM)
032135,001572: 16,2234           31465                           CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
032136,001573: 16,2235           74753                           MASK     BIT14                                 
032137,001574: 16,2236           10000                           CCS      A                                     
032138,001575: 16,2237           34770                           CAF      BIT1                                  
032139,001576: 16,2240           50000                           INDEX    A                                     #  LM-OFF, LM-ON VALUE
032140,001577: 16,2241           31421                           CAE      EREPFRAC                              
032141,001578: 16,2242           55633        REPFRACS           TS       REPFRAC                               
032142,001579: 
032143,001580: 16,2243           06006                           TC       INTPRET                               
032144,001581: 16,2244           51375        TGOCALC            VLOAD    BVSU                                  #  GET DELVG
032145,001582: 16,2245           03432                                    DELVREF                               
032146,001583: 16,2246           03705                                    BDT                                   
032147,001584: 16,2247           77656                           UNIT                                           
032148,001585: 16,2250           41441                           DOT      PUSH                                  #  (00D)
032149,001586: 16,2251           03460                                    VG                                    
032150,001587: 16,2252           56244                           BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
032151,001588: 16,2253           51137                                    INCRSVG                               #        DISPLAY ALARM IF NOT
032152,001589: 16,2254           34632                                    2VEXHUST                              
032153,001590: 16,2255           41215                           DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
032154,001591: 16,2256           11760                                    LODPHALF                              
032155,001592: 16,2257           70501                           NORM     SR1                                   
032156,001593: 16,2260           00047                                    X1                                    
032157,001594: 16,2261           60325                           PDDL     NORM                                  
032158,001595: 16,2262           00045                                    36D                                   #  (MAG DELVG)
032159,001596: 16,2263           00050                                    X2                                    
032160,001597: 16,2264           77665                           BDDV                                           
032161,001598: 16,2265           53664                           XSU,2    SL*                                   
032162,001599: 16,2266           00046                                    X1                                    
032163,001600: 16,2267           57607                                    0          -9D,2                      
032164,001601: 16,2270           41405                           DMP      PUSH                                  #  (00D)
032165,001602: 16,2271           34525                                    -FOURDT                               
032166,001603: 16,2272           54335                           SLOAD    SR                                    
032167,001604: 16,2273           03014                                    ETDECAY                               #  ETDECAY SC.AT B+14 CS
032168,001605: 16,2274           20617                                    14D                                   
032169,001606: 16,2275           45421                           BDSU     STADR                                 
032170,001607: 16,2276           74347                           STORE    TGO                                   #  TIME TO GO IN CS. AT +28
032171,001608: 16,2277           77615                           DAD                                            
032172,001609: 16,2300           01044                                    PIPTIME                               
032173,001610: 16,2301           17413                           STODL    TIG                                   
032174,001611: 16,2302           03430                                    TGO                                   

Page 727

032176,001613: 16,2303           50025                           DSU      BMN                                   
032177,001614: 16,2304           34527                                    FOURSEC                               
032178,001615: 16,2305           51102                                    S40.81                                
032179,001616: 
032180,001617: 16,2306           74375        XPRODUCT           VLOAD    VXSC                                  
032181,001618: 16,2307           03705        STEERING                    BDT                                   
032182,001619: 16,2310           03703                                    CSTEER                                
032183,001620: 16,2311           52352                           VSL2     VSU                                   
032184,001621: 16,2312           03432                                    DELVREF                               
032185,001622: 16,2313           63256                           UNIT     PDVL                                  
032186,001623: 16,2314           03460                                    VG                                    
032187,001624: 16,2315           47256                           UNIT     VXV                                   
032188,001625: 16,2316           45121                           MXV      CALL                                  
032189,001626: 16,2317           01734                                    REFSMMAT                              #  (REFSMMAT/2)
032190,001627: 16,2320           47633                                    *SMNB*                                
032191,001628: 16,2321           77761                           VXSC                                           
032192,001629: 16,2322           03227                                    KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
032193,001630: 16,2323           37126        OMEGACLC           STCALL   OMEGAC                                
032194,001631: 16,2324           51603                                    SERVXT1                               
032195,001632: 16,2325           77545        FREPSET            DLOAD    EXIT                                  #  POST-SQITCHOVER CSM/LM.  LOAD FROM LOW-
032196,001633: 16,2326           36534                                    FREPFRAC                              #        BANDWIDTH PARAMETER IN FIXED MEMORY
032197,001634: 16,2327           30154                           CAE      MPAC                                  
032198,001635: 16,2330           12242                           TCF      REPFRACS                              
032199,001636: 

Page 728

032201,001638: 
032202,001639: 16,2331           43020        UPDATEVG           STQ      BON                                   
032203,001640: 16,2332           03374                                    R61CNTR                               
032204,001641: 16,2333           01307                                    XDELVFLG                              
032205,001642: 16,2334           34360                                    VGCOMP                                
032206,001643: 16,2335           50135                           SLOAD    BMN                                   
032207,001644: 16,2336           03325                                    NBRCYCLS                              
032208,001645: 16,2337           61721                                    SETUP.9                               
032209,001646: 16,2340           53375                           VLOAD    VAD                                   
032210,001647: 16,2341           03327                                    DELVSUM                               
032211,001648: 16,2342           03432                                    DELVREF                               
032212,001649: 16,2343           03335                           STORE    DELVSUMP                              
032213,001650: 16,2344           77776                           EXIT                                           
032214,001651: 16,2345           34770                           CA       ONE                                   
032215,001652: 16,2346           61724                           AD       NBRCYCLS                              
032216,001653: 16,2347           55725                           TS       NBRCYCLP                              
032217,001654: 16,2350           05402                           TC       PHASCHNG                              #  TYPE B RESTART BELOW AND 5.3 REREADACCS
032218,001655: 16,2351           10035                           OCT      10035                                 
032219,001656: 16,2352  01,2250               5P3SPT5            =        5.3SPOT                               
032220,001657: 16,2352           31725                           CA       NBRCYCLP                              
032221,001658: 16,2353           55724                           TS       NBRCYCLS                              
032222,001659: 16,2354           06006                           TC       INTPRET                               
032223,001660: 16,2355           77775                           VLOAD                                          
032224,001661: 16,2356           03335                                    DELVSUMP                              
032225,001662: 16,2357           03327                           STORE    DELVSUM                               
032226,001663: 16,2360           77775        VGCOMP             VLOAD                                          
032227,001664: 16,2361           03432                                    DELVREF                               #  CONSTRUCT DELVG, SC.AT B-7 M/CS
032228,001665: 16,2362           53245                           BVSU     VAD                                   
032229,001666: 16,2363           03705                                    BDT                                   
032230,001667: 16,2364           03721                                    VGPREV                                
032231,001668: 16,2365           03460                           STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B-7  M/CS
032232,001669: 16,2366           77646                           ABVAL                                          
032233,001670: 16,2367           03763                           STORE    VGDISP                                #  FOR DISPLAY PURPOSES
032234,001671: 16,2370           77776                           EXIT                                           
032235,001672: 16,2371           05402                           TC       PHASCHNG                              
032236,001673: 16,2372           10035                           OCT      10035                                 #  TYPE B RESTART BELOW AND 5.3 REREADAC
032237,001674: 16,2373  01,2250               5P3SPT6            =        5.3SPOT                               
032238,001675: 16,2373           06006                           TC       INTPRET                               
032239,001676: 16,2374           77775                           VLOAD                                          
032240,001677: 16,2375           03460                                    VG                                    
032241,001678: 16,2376           37721                           STCALL   VGPREV                                
032242,001679: 16,2377           03374                                    R61CNTR                               
032243,001680: 

Page 729

032245,001682: 
032246,001683:                                                                                                  #  NAME          S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
032247,001684: 
032248,001685:                                                                                                  #  FUNCTION      (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
032249,001686:                                                                                                  #                VECTORS FOR USE DURING AIMPOINT MANEUVERS
032250,001687:                                                                                                  #                (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
032251,001688:                                                                                                  #                CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
032252,001689: 
032253,001690:                                                                                                  #  CALLING SEQ   VIA FINDVAC AS NEW JOB.
032254,001691: 
032255,001692:                                                                                                  #  INPUT         RNIT    - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
032256,001693:                                                                                                  #                VNIT    - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
032257,001694:                                                                                                  #                VRPREV  - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
032258,001695:                                                                                                  #                          METERS/CS AT +7.
032259,001696:                                                                                                  #                NOMTIG  - TIME OF IGN. USED IN TARGETTING ROUTINES@+28"
032260,001697:                                                                                                  #                DELLT4  - TRANSFER TIME FROM PIPTIME TO TARGET@+28"
032261,001698:                                                                                                  #                TNIT    - TIME OF RNIT AND VNIT IN CS AT +28
032262,001699:                                                                                                  #                GDT/2   - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
032263,001700:                                                                                                  #                          ACCERERATION OF GRAVITY IN METERS/CS AT +7.
032264,001701:                                                                                                  #                DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
032265,001702:                                                                                                  #                          METERS/CS AT +7.
032266,001703:                                                                                                  #                NORMSW  SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
032267,001704:                                                                                                  #                        165 TO 195 DEGREES
032268,001705:                                                                                                  #                        RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
032269,001706: 
032270,001707:                                                                                                  #  OUTPUT        VGTEMP  - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
032271,001708:                                                                                                  #                COGA    - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
032272,001709:                                                                                                  #                          OR PREVIOUS PASS THRU S40.9
032273,001710:                                                                                                  #                GOBL/2  - OBLATENESS TERM IN AVG GRAV CALC - GOBL*RSQ/MU
032274,001711:                                                                                                  #                VRPREV  - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
032275,001712:                                                                                                  #                BDT     - B VECTOR IN METERS/CS AT +7.
032276,001713: 
032277,001714:                                                                                                  #  SUBROUTINES USED  -  INITVEL
032278,001715: 
032279,001716: 16,2400                                           COUNT*   $$/S40.9                              
032280,001717: 16,2400           06006        S40.9              TC       INTPRET                               
032281,001718: 16,2401           71201                           SETPD    DLOAD                                 
032282,001719: 16,2402           00001                                    00D                                   
032283,001720: 16,2403           11762                                    LO6ZEROS                              
032284,001721: 16,2404           43125                           PDDL     BON                                   
032285,001722: 16,2405           34517                                    EP4(45)L                              
032286,001723: 16,2406           03705                                    NORMSW                                
032287,001724: 16,2407           34412                                    +3                                    
032288,001725: 16,2410           77745                           DLOAD                                          
032289,001726: 16,2411           34521                                    EP4(10)L                              
032290,001727: 16,2412           77606                           PUSH                                           
032291,001728: 16,2413           45014                           CLEAR    CALL                                  
032292,001729: 16,2414           00675                                    GUESSW                                
032293,001730: 16,2415           22002                                    HAVEGUES                              
032294,001731: 16,2416           77776                           EXIT                                           
032295,001732: 16,2417           05402                           TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
032296,001733: 16,2420           05021                           OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW
032297,001734: 16,2421           10000                           OCT      10000                                 
032298,001735: 16,2422           06006                           TC       INTPRET                               
032299,001736: 16,2423           77214        ENDLAMB            BON      VLOAD                                 
032300,001737: 16,2424           01310                                    FIRSTFLG                              

Page 730

032302,001739: 16,2425           34442                                    FIRSTTME                              
032303,001740: 16,2426           03612                                    VIPRIME                               
032304,001741: 16,2427           65251                           VSU      PDDL                                  
032305,001742: 16,2430           03466                                    VRPREV                                
032306,001743: 16,2431           03474                                    TNIT                                  
032307,001744: 16,2432           54225                           DSU      SL                                    
032308,001745: 16,2433           03476                                    TNITPREV                              
032309,001746: 16,2434           20222                                    17D                                   
032310,001747: 16,2435           74265                           BDDV     VXSC                                  
032311,001748: 16,2436           34523                                    200CS                                 
032312,001749: 16,2437           76451                           VSU      VSL1                                  
032313,001750: 16,2440           01046                                    GDT/2                                 
032314,001751: 16,2441           03705                           STORE    BDT                                   
032315,001752: 16,2442           57535        FIRSTTME           SLOAD    DCOMP                                 
032316,001753: 16,2443           03747                                    RTX2                                  
032317,001754: 16,2444           77640                           BMN                                            
032318,001755: 16,2445           34462                                    MOONCASE                              
032319,001756: 16,2446           53575                           VLOAD    UNIT                                  
032320,001757: 16,2447           01030                                    RN                                    
032321,001758: 16,2450           45345                           DLOAD    DSU                                   
032322,001759: 16,2451           01044                                    PIPTIME                               
032323,001760: 16,2452           03450                                    NOMTIG                                
032324,001761: 16,2453           56205                           DMP      DDV                                   
032325,001762: 16,2454           34515                                    EARTHMU                               
032326,001763: 16,2455           00043                                    34D                                   
032327,001764: 16,2456           53361                           VXSC     VAD                                   
032328,001765: 16,2457           01054                                    GOBL/2                                
032329,001766: 16,2460           03646                                    VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
032330,001767: 16,2461           03646                           STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
032331,001768: 16,2462           77776        MOONCASE           EXIT                                           
032332,001769: 16,2463           05402                           TC       PHASCHNG                              
032333,001770: 16,2464           04021                           OCT      04021                                 #  C, JOB BELOW
032334,001771: 16,2465           06006        COPY40.9           TC       INTPRET                               
032335,001772: 16,2466           77745                           DLOAD                                          
032336,001773: 16,2467           03474                                    TNIT                                  
032337,001774: 16,2470           27476                           STOVL    TNITPREV                              
032338,001775: 16,2471           03612                                    VIPRIME                               
032339,001776: 16,2472           03466                           STORE    VRPREV                                
032340,001777: 16,2473           77414                           CLEAR    EXIT                                  
032341,001778: 16,2474           01270                                    FIRSTFLG                              
032342,001779: 16,2475           44770                 -2        CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
032343,001780: 16,2476           55724                           TS       NBRCYCLS                              
032344,001781: 16,2477           05402        ENDS40.9           TC       PHASCHNG                              
032345,001782: 16,2500           00001                           OCT      00001                                 
032346,001783: 16,2501           15205                           TCF      ENDOFJOB                              
032347,001784: 
032348,001785: 16,2502           06006        REDO40.9           TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
032349,001786: 16,2503           77775                           VLOAD                                          #        TERMINATE S40.9 SO THAT IT CAN BE
032350,001787: 16,2504           11762                                    LO6ZEROS                              #        SET UP WITH LATEST R,V,T NEXT PASS
032351,001788: 16,2505           17327                           STODL    DELVSUM                               #        (TYPE C PHASE POINTS '04021' WILL

Page 731

032353,001790: 16,2506           11762                                    LO6ZEROS                              #        FORCE NORMAL S40.9 TERMINATIONS,
032354,001791: 16,2507           27325                           STOVL    NBRCYCLS                              #        RATHER THAN LOSE TIME OF BRAND NEW
032355,001792: 16,2510           03721                                    VGPREV                                #        PASS -- QUICK OLD DATA BETTER THAN
032356,001793: 16,2511           03646                           STORE    VGTEMP                                #        NONE) NOW CAN GO THRU SETUP.9
032357,001794: 16,2512           77776                           EXIT                                           #        WITHOUT DISTURBING VGPREV
032358,001795: 16,2513           12475                           TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
032359,001796: 
032360,001797: 16,2514           55340 61710  EARTHMU            2DEC*    -3.986032  E10        B-36*           
032361,001798: 
032362,001799: 16,2516           04000 00000  EP4(45)L           2DEC     .125                                  
032363,001800: 
032364,001801: 16,2520           00707 03434  EP4(10)L           2DEC     .027777777                            
032365,001802: 
032366,001803: 16,2522           01440 00000  200CS              2DEC     200        B-12                       
032367,001804: 
032368,001805: 16,2524           77715 77777  -FOURDT            2DEC     -800       B-18                       #  -4(200CS), AT B+18CS (-4 FOR SCALING)
032369,001806: 
032370,001807: 16,2526           00000 00620  FOURSEC            2DEC     400.0      B-28                       #  4 SEC
032371,001808: 
032372,001809: 16,2530           00000 00310  TWODT              2DEC     200.0      B-28                       #  **** MUST FOLLOW 2DEC FOURSEC TO   ****
032373,001810:                                                                                                  #  **** MAKE FOURSEC +1 2DEC 200 B-13 ****
032374,001811: 
032375,001812: 16,2532           00040 00000  DPB-9              2DEC     1          B-9                        
032376,001813: 

Page 732

032378,001815: 
032379,001816:                                                                                                  #  NAME                  S40.13 - TIMEBURN
032380,001817: 
032381,001818:                                                                                                  #  FUNCTION              TO DETERMINE
032382,001819:                                                                                                  #                        (1) WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
032383,001820:                                                                                                  #                        BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
032384,001821:                                                                                                  #                        TO ALLOW STEERING AT THE VEHICLE DURING THE BURN
032385,001822:                                                                                                  #                        (2) THE MAGNITUDE OF THE RESULTING BURN TIME, AND
032386,001823:                                                                                                  #                        (3) IF THE BURN TIME IS < 6 SECONDS,
032387,001824:                                                                                                  #                        THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL
032388,001825: 
032389,001826:                                                                                                  #  CALLING SEQ           VIA FINDVAC AS NEW JOB.
032390,001827: 
032391,001828:                                                                                                  #  INPUT                 VGDISP   - MAGNITUDE OF VGTIG IN M/CS AT +7
032392,001829:                                                                                                  #                        WEIGHT/G - MASS OF VEHICLE IN KG AT TIG (+16)
032393,001830:                                                                                                  #                        F        - ENGINE THRUST IN M.NEWTONS AT +7
032394,001831:                                                                                                  #                        MDOT     - RATE OF DECREASE OF VEHICLE MASS DURING 
032395,001832:                                                                                                  #                                   BURN IN KG/CS AT +3
032396,001833: 
032397,001834:                                                                                                  #  OUTPUT                IMPULSW  - ZERO FOR STEERING
032398,001835:                                                                                                  #                                 - ONE FOR ATTITUDE HOLD
032399,001836:                                                                                                  #                        TGO      - BURN TIME IN CS AT +28
032400,001837: 
032401,001838:                                                                                                  #        THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
032402,001839:                                                                                                  #        (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
032403,001840:                                                                                                  #        (1) M.NEWTON = (10000) NEWTONS
032404,001841: 
032405,001842: 16,2534                                           COUNT*   $$/40.13                              
032406,001843: 16,2534           34762        S40.13             CAF      BIT7                                  #  TEST +X TRANSLATION
032407,001844: 16,2535           00006                           EXTEND                                         
032408,001845: 16,2536           06031                           RXOR     CHAN31                                
032409,001846: 16,2537           74762                           MASK     BIT7                                  
032410,001847: 16,2540           54157                           TS       MPAC       +3                         
032411,001848: 16,2541           06006                           TC       INTPRET                               
032412,001849: 16,2542           41545                           DLOAD    PUSH                                  #  00D = |VGTIG| AT +7
032413,001850: 16,2543           03763                                    VGDISP                                
032414,001851: 16,2544           53135                           SLOAD    BZE                                   
032415,001852: 16,2545           00160                                    MPAC       +3                         #  BIT7 CHAN31
032416,001853: 16,2546           34556                                    S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SECS OF ULLAGE
032417,001854: 16,2547           56345                           DLOAD    DDV                                   
032418,001855: 16,2550           34630                                    S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
032419,001856: 16,2551           03076                                    WEIGHT/G                              #  MASS IN KGMS AT +16
032420,001857: 16,2552           72414                           BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
032421,001858: 16,2553           00700                                    NJETSFLG                              
032422,001859: 16,2554           34555                                    S40.130                               
032423,001860: 16,2555           41421        S40.130            BDSU     PUSH                                  #  00D = MAG(VGTIG) @ B+7 M/CS, ADJUSTED 
032424,001861:                                                                                                  #        FOR ULLAGE.
032425,001862: 16,2556           56345                 +1        DLOAD    DDV                                   #  ENTRY POINT IF ULLAGE OFF
032426,001863: 16,2557           00001                                    00D                                   #  MAKE SURE MPAC CONTAINS MAG(VGTIG)
032427,001864: 16,2560           34632                                    2VEXHUST                              #  2 VEXHAUST (=2G ISP) @ B+7 M/CS
032428,001865: 16,2561           44342                           SR1      BDSU                                  
032429,001866: 16,2562           11760                                    LODPHALF                              #  0.5
032430,001867: 16,2563           41205                           DMP      DMP                                   
032431,001868: 16,2564           03076                                    WEIGHT/G                              #  TOTAL MASS @ B+16 KG
032432,001869: 16,2565           00001                                    00D                                   #  MAG(VGTIG) @ B+7 M/CS
032433,001870: 16,2566           40061                           SL       BOV                                   
032434,001871: 16,2567           20213                                    10D                                   #  SCALING

Page 733

032436,001873: 16,2570           34617                                    S40.133                               #  LARGE VG : STEERING BURN INDICATED
032437,001874: 16,2571           41225                           DSU      DMP                                   
032438,001875: 16,2572           01764                                    EIMP1SEC                              #  IMP BURN LOGIC B.P. @ E+2B+14 NEWT-SEC
032439,001876: 16,2573           34624                                    100B-14                               #  1SEC @ B+14CS
032440,001877: 16,2574           41471                           DDV      PUSH                                  #  02D=(DELTET-1SEC) @ B+14CS, FIMP16 SLOPE
032441,001878: 16,2575           01766                                    EFIMP16                               #  IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
032442,001879: 16,2576           51025                           DSU      BPL                                   
032443,001880: 16,2577           34626                                    500B-14                               #  5SEC @ B+14CS
032444,001881: 16,2600           34617                                    S40.133                               #  STEERING BURN INDICATED, DELTAT > 6 SEC
032445,001882: 16,2601           51145                           DLOAD    BPL                                   
032446,001883: 16,2602           00003                                    02D                                   #  (DELTAT-1SEC) @ B+14CS, FIMP16 SLOPE
032447,001884: 16,2603           34607                                    S40.132                               #  1<DELTAT<6SEC, SO FIMP16 SLOPE USE IS OK
032448,001885: 16,2604           56205                           DMP      DDV                                   #  0<DELTAT<1SEC, SO USE FIMP01 NOT FIMP16
032449,001886: 16,2605           01766                                    EFIMP16                               #  IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
032450,001887: 16,2606           01765                                    EFIMP01                               #  IMP B.LOGIC 0-1SEC SLOPE @ E+2B+14 NEWT
032451,001888: 16,2607           77414        S40.132            SET      EXIT                                  
032452,001889: 16,2610           01066                                    IMPULSW                               #  IMPULSIVE BURN
032453,001890: 16,2611           07224                           TC       DPAGREE                               
032454,001891: 16,2612           06006                           TC       INTPRET                               
032455,001892: 16,2613           54215                           DAD      SR                                    #  MPAC CONTAINS (DELTA-1SEC), GET DELTAT
032456,001893: 16,2614           34624                                    100B-14                               #  1SEC @ B+14CS
032457,001894: 16,2615           20617                                    14D                                   #  DELTAT @ B+28CS
032458,001895: 16,2616           03430                           STORE    TGO                                   
032459,001896: 16,2617           77776        S40.133            EXIT                                           
032460,001897: 16,2620           05402                           TC       PHASCHNG                              
032461,001898: 16,2621           00003                           OCT      3                                     
032462,001899: 16,2622           15205                           TCF      ENDOFJOB                              
032463,001900: 
032464,001901: 16,2623                                           COUNT    17/40.13                              
032465,001902: 
032466,001903: 16,2623           00144 00000  100B-14            2DEC     100.00     B-14                       #  1SEC @ B+14CS
032467,001904: 
032468,001905: 16,2625  16,2623               1SEC2D             =        100B-14                               
032469,001906: 
032470,001907: 16,2625           00764 00000  500B-14            2DEC     500.00     B-14                       #  5SEC @ B+14CS
032471,001908: 16,2627  16,2625               5SECOND            =        500B-14                               
032472,001909: 16,2627           00000 04263  S40.135            2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
032473,001910:                                                                                                  #        7.96 (199.6)COS(10) LB-SEC, SC.AT
032474,001911:                                                                                                  #        B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
032475,001912:                                                                                                  #        TO GO, PLUS 0.96 SEC FROM PIPTIME)
032476,001913: 
032477,001914: 16,2631           17602 25124  2VEXHUST           2DEC     63.020792  B-7                        #  2(10338.0564 FPS), AT B+7 M/CS
032478,001915: 
032479,001916: 16,2633  30,2000                                  SBANK=   LOWSUPER                              
032480,001917: 20,2000                                           SETLOC   DAPS6                                 
032481,001918: 20,2000                                           BANK                                           
032482,001919: 
032483,001920: 20,2612                                           COUNT*   $$/40.14                              
032484,001921: 20,2612           00631        DEC409             DEC      409        B-14                       
032485,001922: 20,2613           00056        DEC46              DEC      46         B-14                       
032486,001923: 

Page 734

032488,001925: 
032489,001926:                                                                                                  #  CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
032490,001927: 
032491,001928: 20,2614  E6,1465                                  EBANK=   DAPDATR1                              
032492,001929: 20,2614           31467        S40.14             CAE      IXX                                   #  RCS ENTRY
032493,001930: 20,2615           00006                           EXTEND                                         
032494,001931: 20,2616           72641                           MP       CONTONE                               
032495,001932: 20,2617           55623                           TS       J/M                                   
032496,001933: 20,2620           31470                           CA       IAVG                                  
032497,001934: 20,2621           00006                           EXTEND                                         
032498,001935: 20,2622           72641                           MP       CONTONE                               
032499,001936: 20,2623           55624                           TS       J/M1                                  
032500,001937: 20,2624           55625                           TS       J/M2                                  
032501,001938: 20,2625           00006                           EXTEND                                         
032502,001939: 20,2626           32643                           DCA      CONTTWO                               
032503,001940: 20,2627           00006                           EXTEND                                         
032504,001941: 20,2630           11467                           DV       IXX                                   
032505,001942: 20,2631           55620                           TS       KMJ                                   
032506,001943: 20,2632           00006                           EXTEND                                         
032507,001944: 20,2633           32643                           DCA      CONTTWO                               
032508,001945: 20,2634           00006                           EXTEND                                         
032509,001946: 20,2635           11470                           DV       IAVG                                  
032510,001947: 20,2636           55621                           TS       KMJ1                                  
032511,001948: 
032512,001949: 20,2637           55622                           TS       KMJ2                                  
032513,001950: 20,2640           00002                           TC       Q                                     
032514,001951: 
032515,001952: 20,2641           25137        CONTONE            DEC      .662034                               #  2PI/M
032516,001953: 20,2642           00023 12522  CONTTWO            2DEC     .00118                                
032517,001954: 
032518,001955: 21,2000                                           SETLOC   DAPS3                                 
032519,001956: 21,2000                                           BANK                                           
032520,001957: 21,2032                                           COUNT*   $$/RCSUP                              
032521,001958: 21,2032           22016        RCSUP              LXCH     BANKRUPT                              
032522,001959: 21,2033           00006                           EXTEND                                         
032523,001960: 21,2034           22012                           QXCH     QRUPT                                 
032524,001961: 21,2035           02042                           TCR      RCSDAPON                              #  ACTIVATE RCS DAP
032525,001962: 21,2036           15323                           TCF      RESUME                                
032526,001963: 
032527,001964: 21,2037  E6,1465                                  EBANK=   DAPDATR1                              
032528,001965: 21,2037           02140 42066  RCSADDR            2CADR    RCSATT                                
032529,001966: 
032530,001967: 21,2041           37704        0.6SECT5           OCT      37704                                 
032531,001968: 
032532,001969: 21,2042  E6,1465                                  EBANK=   DAPDATR1                              
032533,001970:                                                                                                  #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
032534,001971: 21,2042           32041        RCSDAPON           CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE

Page 735

032536,001973: 21,2043           54030                 +1        TS       TIME5                                 #  ENTRY FROM ROOTOPOO
032537,001974: 21,2044           55464                           TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
032538,001975: 21,2045           41501                           CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
032539,001976: 21,2046           74766                           MASK     BIT3                                  #        DISPLAY, IN CASE SC CONT SWITCH
032540,001977: 21,2047           27501                           ADS      RCSFLAGS                              #        IN SCS NOT GNC (GUIDEMODE PRIMARY)
032541,001978: 21,2050           00006                           EXTEND                                         
032542,001979: 21,2051           32040                           DCA      RCSADDR                               #  (RCSATT)
032543,001980: 21,2052           52113                           DXCH     T5LOC                                 
032544,001981: 21,2053           44076                           CS       DPCONFIG                              #  SET BITS 15,14 TO 01 TO INDICATE
032545,001982: 21,2054           70102                           MASK     FLAGWRD6                              #        T5 TAKEOVER BY RCSDAP
032546,001983: 21,2055           64753                           AD       DAP2BIT                               
032547,001984: 21,2056           54102                           TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
032548,001985: 21,2057           00002                           TC       Q                                     #  RETURN TO CALLER (TVCDAPOFF OR RCSDAPUP)
032549,001986: 35,2000                                           SETLOC   P30S1                                 
032550,001987: 35,2000                                           BANK                                           
032551,001988: 35,3566                                           COUNT*   $$/P40                                
032552,001989: 35,3566           03525        STARTTGO           TC       COMPTGO                               #  COMPTGO CAN NOT BE CALLED DIRECTLY
032553,001990: 35,3567           04655                           TC       POSTJUMP                              #  VIA BANKCALL DUE TO RESTART PROBLEMS
032554,001991: 35,3570           50237                           CADR     TFIGINIT   +2                         
032555,001992: 

Page 736

032557,001994: 
032558,001995:                                                                                                  #  NAME          P41 - RCS BURN
032559,001996: 
032560,001997:                                                                                                  #  FUNCTION      TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
032561,001998:                                                                                                  #                AND THRUSTING MANEUVER OF AN RCS BURN
032562,001999: 
032563,002000:                                                                                                  #                        R02BOTH         CHECK STATUS OF IMU
032564,002001: 
032565,002002:                                                                                                  #                        S40.1           COMPUTE: INTIAL THRUST DIRECTION AND
032566,002003:                                                                                                  #                                                 INTIAL VALUE OF VELOCITY-TO-BE-
032567,002004:                                                                                                  #                                                 GAINED VECTOR (VGTIG)
032568,002005: 
032569,002006:                                                                                                  #                        S40.2,3         COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
032570,002007:                                                                                                  #                                                 OCCUR WITH PRESENT IMU ORIENTATION,
032571,002008:                                                                                                  #                                                 PREFERRED IMU ORIENTATION, AND
032572,002009:                                                                                                  #                                                 DESIRED THRUST DIRECTION IN SM COORDS
032573,002010: 
032574,002011:                                                                                                  #                        R60CSM          PERFORM ATTITUDE MANEUVER
032575,002012: 
032576,002013:                                                                                                  #                        MIDTOAV1        EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
032577,002014: 
032578,002015:                                                                                                  #                        CLOKTASK        COMPUTE TIME-TO-GO TO IGNITION, 
032579,002016:                                                                                                  #                                        RECALL CLOKTASK, 
032580,002017:                                                                                                  #                                        UPDATE N 85, AND
032581,002018:                                                                                                  #                                        CALL CLOCKJOB TO DISPLAY V06N85
032582,002019: 
032583,002020:                                                                                                  #                        TIGBLNK         BLANK DSKY AT TIG-35 SECS AND
032584,002021:                                                                                                  #                                        WAITLIST TIGAVEG IN 5 SECS
032585,002022: 
032586,002023:                                                                                                  #                        TIGAVEG         UNBLANK DSKY,
032587,002024:                                                                                                  #                                        CAUSE CLOCKJOB TO DISPLAY NON FLASH V16N85,
032588,002025:                                                                                                  #                                        WAITLIST TTG/0 IN 29.96 SECS, AND
032589,002026:                                                                                                  #                                        START SERVICER
032590,002027: 
032591,002028:                                                                                                  #                        CLOCKJOB        (CALLED EVERY SEC)
032592,002029:                                                                                                  #                                        DISPLAY NON FLASH V06N85 UNTIL TIG - 29.96:
032593,002030:                                                                                                  #                                        THEN DISPLAY NON FLASH V16N85
032594,002031: 
032595,002032:                                                                                                  #                        TTG/0           NOVAC TIGNOW
032596,002033: 
032597,002034:                                                                                                  #                        TIGNOW          DISPLAY FLASHING V16N85
032598,002035: 
032599,002036:                                                                                                  #                        POST41          CLEAN UP AFTER BURN
032600,002037: 
032601,002038:                                                                                                  #                        *************************************************
032602,002039:                                                                                                  #                        PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
032603,002040:                                                                                                  #                        *************************************************
032604,002041: 
032605,002042:                                                                                                  #  INPUT         SAME AS P40
032606,002043: 
032607,002044:                                                                                                  #  ALARMS        1703            INSUFFICIENT TIME FOR INTEGRATION
032608,002045:                                                                                                  #                                TIG WAS SLIPPED
032609,002046: 

Page 737

032611,002048: 35,3571  E6,1465                                  EBANK=   DAPDATR1                              
032612,002049: 24,2000                                           SETLOC   P40S                                  
032613,002050: 24,2000                                           BANK                                           
032614,002051: 24,3563                                           COUNT*   $$/P41                                
032615,002052: 24,3563           06006        P41CSM             TC       INTPRET                               
032616,002053: 24,3564           71214                           SET      DLOAD                                 
032617,002054: 24,3565           00464                                    ENG2FLAG                              #  SET FOR RCS
032618,002055: 24,3566           15336                                    HI6ZEROS                              #  CSTEER = 0 FOR P41
032619,002056: 24,3567           03703                           STORE    CSTEER                                
032620,002057: 24,3570           43145                           DLOAD    BON                                   
032621,002058: 24,3571           11534                                    FRCS2                                 #  2JET THRUST FOR S40.1
032622,002059: 24,3572           00700                                    NJETSFLG                              
032623,002060: 24,3573           50226                                    P40S/F                                #  NJETS = 1 2-JET
032624,002061: 24,3574           52152                           SL1      GOTO                                  #  NJETS = 0 4-JET
032625,002062: 24,3575           50226                                    P40S/F                                
032626,002063: 24,3576  E6,1465                                  EBANK=   DAPDATR1                              
032627,002064: 24,3576           06006        CALCN85            TC       INTPRET                               
032628,002065: 24,3577           77624                           CALL                                           
032629,002066: 24,3600           34331                                    UPDATEVG                              #  NEW VG FROM VGCOMP (+ MAYBE S40.9)
032630,002067: 24,3601           77624                           CALL                                           
032631,002068: 24,3602           51651                                    P40CNV85                              #  COMPUTE VGBODY
032632,002069: 24,3603           77776        SERVXT1            EXIT                                           
032633,002070: 24,3604           33616                           CAF      NEJETBTS                              
032634,002071: 24,3605           00006                           EXTEND                                         
032635,002072: 24,3606           06031                           RXOR     CHAN31                                #  ARE ANY RCS JETS FIRING
032636,002073: 24,3607           73616                           MASK     NEJETBTS                              #  NULLING OUT RESIDUAL VG'S FROM P40?
032637,002074: 24,3610           00006                           EXTEND                                         #  OR PERFORMING P41?
032638,002075: 24,3611           13614                           BZF      SERVXT                                #  NO
032639,002076: 
032640,002077: 24,3612           05547                           TC       UPFLAG                                #  YES - SET BURNFLAG TO INDICATE
032641,002078: 24,3613           00233                           ADRES    BURNFLAG                              #  THAT THE CSM DID THE BURN
032642,002079: 
032643,002080: 24,3614           04655        SERVXT             TC       POSTJUMP                              
032644,002081: 24,3615           77143                           CADR     SERVEXIT                              
032645,002082: 
032646,002083: 24,3616           07700        NEJETBTS           OCT      07700                                 
032647,002084: 
032648,002085: 24,3617           34753        TTG/0              CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
032649,002086: 24,3620           05121                           TC       NOVAC                                 
032650,002087: 24,3621  E6,1465                                  EBANK=   DAPDATR1                              
032651,002088: 24,3621           03451 50066                     2CADR    TIGNOW                                
032652,002089: 
032653,002090: 24,3623           05561        P40CLK             TC       DOWNFLAG                              
032654,002091: 24,3624           00155                           ADRES    TIMRFLAG                              
032655,002092: 24,3625           15314                           TCF      TASKOVER                              
032656,002093: 
032657,002094: 24,3626           77624        P41/DSP            CALL                                           #  COMPUTE
032658,002095: 24,3627           51651                                    P40CNV85                              #        VGTIG IN CTRL COORDS
032659,002096: 24,3630           77776                           EXIT                                           

Page 738

032661,002098: 24,3631           00006                           EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
032662,002099: 24,3632           33556                           DCA      ACADN85                               
032663,002100: 24,3633           53062                           DXCH     AVEGEXIT                              
032664,002101: 24,3634           33511                           CAF      V06N85B                               
032665,002102: 24,3635           54777                           TS       NVWORD1                               #  FORCE CLOCKJOB
032666,002103: 24,3636           05362                           TC       2PHSCHNG                              
032667,002104: 24,3637           40036                           OCT      40036                                 #  6.3=CLOKTASK(100CS)
032668,002105: 24,3640           00234                           OCT      234                                   #  4.23=P40S/SV(PRIO12)
032669,002106: 24,3641  01,2154               4P23SPT2           =        4.23SPOT                              
032670,002107: 24,3641  01,2325               6P3SPT3            =        6.3SPOT                               
032671,002108: 24,3641           12523                           TCF      P40S/SV                               
032672,002109: 24,3642           33512        P41REDSP           CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
032673,002110: 24,3643           54777                           TS       NVWORD1                               #  REDISPLAY NONFLASHING
032674,002111: 24,3644           33530                           CAF      SEC29.96   +1                         
032675,002112: 24,3645           05223                           TC       TWIDDLE                               
032676,002113: 24,3646           03617                           ADRES    TTG/0                                 
032677,002114: 24,3647           44766                           CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
032678,002115: 24,3650           12623                           TCF      TTGPHS                                
032679,002116: 
032680,002117: 24,3651           40220        P40CNV85           STQ      SETPD                                 
032681,002118: 24,3652           03730                                    QTEMP1                                
032682,002119: 24,3653           00001                                    0                                     
032683,002120: 24,3654           41575                           VLOAD    PUSH                                  
032684,002121: 24,3655           03721                                    VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
032685,002122: 24,3656           77624                           CALL                                           
032686,002123: 24,3657           57032                                    S41.1                                 
032687,002124: 24,3660           37665                           STCALL   VGBODY                                
032688,002125: 24,3661           03730                                    QTEMP1                                
032689,002126: 

Page 739

032691,002128: 
032692,002129:                                                                                                  #  NAME          P47 - DELTA V MONITOR
032693,002130: 
032694,002131:                                                                                                  #  FUNCTION      TO MONITOR VEHICLE ACCELERATION AND
032695,002132:                                                                                                  #                DISPLAY ACCUMULATED VG IN CONTROL COORDINATES
032696,002133: 
032697,002134:                                                                                                  #                        R02BOTH         CHECK STATUS OF IMU
032698,002135: 
032699,002136:                                                                                                  #                        MIDTOAV2        EXTRAPOLATE STATE VECTOR TO CURRENT TIME
032700,002137:                                                                                                  #                                        + INCREMENT OF TIMEDELT
032701,002138: 
032702,002139:                                                                                                  #                        SETUPTIG        WAITLIST TIGON IN NO. OF CS FOUND
032703,002140:                                                                                                  #                                        IN MPAC +1 AFTER MIDTOAV2 RETURN
032704,002141: 
032705,002142:                                                                                                  #                        TIGON           SET CALCN83 INTO AVGGEXIT,
032706,002143:                                                                                                  #                                        NOVAC P47BODY, AND
032707,002144:                                                                                                  #                                        START SERVICER
032708,002145: 
032709,002146:                                                                                                  #                        CALCN83         ADD PIPA CONTENTS TO ACCUMULATED DELTA V AND
032710,002147:                                                                                                  #                                        CONVERT TO CONTROL COORDINATES AND
032711,002148:                                                                                                  #                                        CALCULATE INERTIAL VELOCITY, R, AND
032712,002149:                                                                                                  #                                        HDOT FOR NOUN 62
032713,002150: 
032714,002151:                                                                                                  #                        P47BODY         ZERO DELVIMU INITIALLY AND
032715,002152:                                                                                                  #                                        GENERATE MONITORING DISPLAY OF ACCUMULATED
032716,002153:                                                                                                  #                                        DELTA V IN CONTROL COORDINATES
032717,002154: 
032718,002155:                                                                                                  #                        *************************************************
032719,002156:                                                                                                  #                        PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
032720,002157:                                                                                                  #                        *************************************************
032721,002158: 

Page 740

032723,002160: 24,3662                                           COUNT*   $$/P47                                
032724,002161: 24,3662  E7,1412                                  EBANK=   TIG                                   
032725,002162: 24,3662           04636        P47CSM             TC       BANKCALL                              #  IMU STATUS CHECK
032726,002163: 24,3663           03731                           CADR     R02BOTH                               
032727,002164: 24,3664           06006                           TC       INTPRET                               
032728,002165: 24,3665           77624                           CALRB                                          
032729,002166: 24,3666           27566                                    MIDTOAV2                              
032730,002167: 24,3667           30155        SETUPTIG           CAE      MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 100
032731,002168: 24,3670           55672                           TS       P40TMP                                #        CS, WITH A TPAGREE, INT.INIT.)
032732,002169: 24,3671           05223                           TC       TWIDDLE                               
032733,002170: 24,3672           03676                           ADRES    TIGON                                 
032734,002171: 24,3673           05402                           TC       PHASCHNG                              
032735,002172: 24,3674           40574                           OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
032736,002173: 24,3675  01,2226               4P57SPT1           =        4.57SPOT                              
032737,002174: 24,3675           15205                           TCF      ENDOFJOB                              
032738,002175: 
032739,002176: 24,3676  E7,1672                                  EBANK=   P40TMP                                
032740,002177: 24,3676           00006        TIGON              EXTEND                                         
032741,002178: 24,3677           33552                           DCA      ACADN83                               
032742,002179: 24,3700           53062                           DXCH     AVEGEXIT                              
032743,002180: 24,3701           05120                           TC       NOVAC30                               #  FORCE ZEROING OF N83 BEFORE SERVICER
032744,002181: 24,3702  E7,1412                                  EBANK=   TIG                                   
032745,002182: 24,3702           03730 50067                     2CADR    P47BODY                               
032746,002183: 
032747,002184: 24,3704           44767                           CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
032748,002185: 24,3705           12623                           TCF      TTGPHS                                
032749,002186: 
032750,002187: 24,3706  E7,1412                                  EBANK=   TIG                                   
032751,002188: 24,3706           06006        CALCN83            TC       INTPRET                               
032752,002189: 24,3707           77201                           SETPD    VLOAD                                 
032753,002190: 24,3710           00001                                    0                                     
032754,002191: 24,3711           03665                                    DELVCTL                               
032755,002192: 24,3712           41455                           VAD      PUSH                                  
032756,002193: 24,3713           03432                                    DELVREF                               
032757,002194: 24,3714           37460                           STCALL   DV47TEMP                              
032758,002195: 24,3715           57032                                    S41.1                                 
032759,002196: 24,3716           37675                           STCALL   DELVIMU                               
032760,002197: 24,3717           70537                                    S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
032761,002198: 24,3720           77776                           EXIT                                           
032762,002199: 24,3721           05402                           TC       PHASCHNG                              
032763,002200: 24,3722           10035                           OCT      10035                                 
032764,002201: 24,3723  01,2250               5P3SPT7            =        5.3SPOT                               
032765,002202: 24,3723           34773                           CAF      FIVE                                  
032766,002203: 24,3724           05607                           TC       GENTRAN                               
032767,002204: 24,3725           01457                           ADRES    DV47TEMP                              
032768,002205: 24,3726           01664                           ADRES    DELVCTL                               
032769,002206: 24,3727           03614                           TC       SERVXT                                
032770,002207: 
032771,002208: 24,3730           06006        P47BODY            TC       INTPRET                               

Page 741

032773,002210: 24,3731           77775                           VLOAD                                          
032774,002211: 24,3732           15336                                    HI6ZEROS                              
032775,002212: 24,3733           03675                           STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
032776,002213: 24,3734           03665                           STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
032777,002214: 24,3735           77776                           EXIT                                           
032778,002215: 24,3736           35054        P47BOD             CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
032779,002216: 24,3737           05176                           TC       PRIOCHNG                              #        TO PREVENT INTERRUPTION OF CALCN83
032780,002217: 24,3740           05402                           TC       PHASCHNG                              
032781,002218: 24,3741           05024                           OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
032782,002219: 24,3742           62777                           OCT      62777                                 #  PRIO 15 NOVAC
032783,002220: 24,3743           33516        P47/DSP            CAF      V1683                                 
032784,002221: 24,3744           04636                           TC       BANKCALL                              
032785,002222: 24,3745           20743                           CADR     GOFLASH                               
032786,002223: 24,3746           04103                           TC       GOTOPOOH                              
032787,002224: 24,3747           04103                           TC       GOTOPOOH                              
032788,002225: 24,3750           13730                           TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY

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