Source Code

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

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

030541,000002:                                                                                                 #  Copyright:     Public domain.
030542,000003:                                                                                                 #  Filename:      P40-P47.agc
030543,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
030544,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
030545,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
030546,000007:                                                                                                 #                 Apollo 15-17.
030547,000008:                                                                                                 #  Assembler:     yaYUL
030548,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
030549,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
030550,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
030551,000012:                                                                                                 #  Mod history:   2009-08-14 JL   Adapted from corresponding Comanche 055 file.
030552,000013:                                                                                                 #                 2009-09-03 JL   Comment out MINDB declaration, it's a comment line in the page scan.
030553,000014:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
030554,000015:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
030555,000016:                                                                                                 #                 2010-02-02 JL   Fixed page number.
030556,000017:                                                                                                 #                 2010-02-13 JL   Fix errors on pages 699 and 711.
030557,000018:                                                                                                 #                 2010-02-14 JL   Fixed errors on pages 724 and 725.
030558,000019:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
030559,000020: 
030560,000021:                                                                                                 # # Page 691
030561,000022: 
030562,000023:                                                                                                 #  NAME           P40 - TVC (SPS BURN)
030563,000024:                                                                                                 #                 MOD BY ALBERT, BEALS, AND DEMERY TO REORGANIZE
030564,000025:                                                                                                 #                 AND REDUCE CODING 15AUG69
030565,000026: 
030566,000027:                                                                                                 #  FUNCTION       TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
030567,000028:                                                                                                 #                 AND THRUSTING MANEUVER OF AN SPS BURN
030568,000029: 
030569,000030:                                                                                                 #                 CLOKTASK        COMPUTE TIME-TO-GO TO IGNITION (FOR N35/40),
030570,000031:                                                                                                 #                                 RECALL CLOKTASK, AND AFTER S40.6 COMPLETION
030571,000032:                                                                                                 #                                 CALL CLOCKJOB TO DISPLAY V06N40
030572,000033: 
030573,000034:                                                                                                 #                 R02BOTH         CHECK STATUS OF IMU
030574,000035: 
030575,000036:                                                                                                 #                 S40.1           COMPUTE: INITIAL THRUST DIRECTION AND
030576,000037:                                                                                                 #                                          INITIAL VALUE OF VELOCITY-TO-BE-
030577,000038:                                                                                                 #                                          GAINED VECTOR (VGTIG)
030578,000039: 
030579,000040:                                                                                                 #                 S40.2,3         COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
030580,000041:                                                                                                 #                                          OCCUR WITH PRESENT IMU ORIENTATION,
030581,000042:                                                                                                 #                                          XAXIS OF ENGINE BELL, 
030582,000043:                                                                                                 #                                          PREFERRED IMU ORIENTATION, AND
030583,000044:                                                                                                 #                                          DESIRED THRUST DIRECTION IN SM COORDS
030584,000045: 
030585,000046:                                                                                                 #                 R60CSM          PERFORM ATTITUDE MANEUVER
030586,000047: 
030587,000048:                                                                                                 #                 S40.6           HANDLE GIMBAL TEST AND TRIM OR TRIM ONLY
030588,000049: 
030589,000050:                                                                                                 #                 MIDTOAV1        EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
030590,000051: 
030591,000052:                                                                                                 #                 TIGBLNK         BLANK DSKY AT TIG-35 SECS AND
030592,000053:                                                                                                 #                                 WAITLIST TIGAVEG IN 5 SECS
030593,000054: 
030594,000055:                                                                                                 #                 TIGAVEG         UNBLANK DSKY, 
030595,000056:                                                                                                 #                                 WAITLIST TIG-5 IN 24.96 SECS, AND
030596,000057:                                                                                                 #                                 START SERVICER
030597,000058: 
030598,000059:                                                                                                 #                 TIG-5           DISPLAY FLASHING V99N40:
030599,000060:                                                                                                 #                                 ENGINE IGNITION ENABLE,
030600,000061:                                                                                                 #                                 WAITLIST TIG-0 IN 5 SECS, AND
030601,000062:                                                                                                 #                                 FINDVAC S40.13 TO DETERMINE IF THIS IS
030602,000063:                                                                                                 #                                 AN IMPULSIVE OR STEERING BURN.
030603,000064: 
030604,000065:                                                                                                 #                 TIG-0           CHECK IF ASTRONAUT HAS O.K.ED IGNITION (PRIOR
030605,000066:                                                                                                 #                                 PROCEED TO V99N40) - IF NOT, IGNITION WILL BE
030606,000067:                                                                                                 #                                 ENTERED BY CLOCKJOB IN RESPONSE TO V99N40
030607,000068: 
030608,000069:                                                                                                 #                 CLOCKJOB        (CALLED EVERY SEC)
030609,000070:                                                                                                 #                                 DISPLAY V06N40 EXCEPT WHEN SIGNALLED BY TIG-5
030610,000071:                                                                                                 #                                 TO FLAHS V99N40 AND
030611,000072:                                                                                                 #                                 CALL IGNITION WHEN PROCEED RESPONSE TO V99N40
030612,000073:                                                                                                 #                                 HAS OCCURRED AND TIG HAS PASSED
030613,000074:                                                                                                 # # Page 692
030614,000075:                                                                                                 #                 IGNITION        TURN ON ENGINE,
030615,000076:                                                                                                 #                                 CHECK IF IMPULSIVE BURN, AND IF SO
030616,000077:                                                                                                 #                                 SET UP ENGINOFF COMMAND
030617,000078: 
030618,000079:                                                                                                 #                 S40.8           UPDATE VELOCITY TO-BE-GAINED VECTOR,
030619,000080:                                                                                                 #                                 GENERATE ANGULAR RATE STEERING COMMANDS
030620,000081:                                                                                                 #                                 FOR AUTO PILOT,
030621,000082:                                                                                                 #                                 UPDATE CSMMASS,
030622,000083:                                                                                                 #                                 ESTABLISH ENGINE CUT-OFF SIGNAL AT
030623,000084:                                                                                                 #                                 APPROPRIATE TIME, AND
030624,000085:                                                                                                 #                                 INITIATE R40, IF THRUST FAILS
030625,000086: 
030626,000087:                                                                                                 #                 S40.9           (AIMPOINT MANEUVERS ONLY)
030627,000088:                                                                                                 #                                 GENERATE REQUIRED VEL-TO-BE-GAINED VECTOR AND
030628,000089:                                                                                                 #                                 UPDATE B-VECTOR WHICH IS USED IN FINAL
030629,000090:                                                                                                 #                                 CALCULATION OF EXTRAPOLATING THE VG VECTOR
030630,000091: 
030631,000092:                                                                                                 #                 ENGINOFF        WIPE OUT TVC,
030632,000093:                                                                                                 #                                 TURN OFF CLOKTASK,
030633,000094:                                                                                                 #                                 SHUT DOWN ENGINE,
030634,000095:                                                                                                 #                                 ADJUST VEHICLE MASS PROPERTIES,
030635,000096:                                                                                                 #                                 TURN ON RCS DAP, AND
030636,000097:                                                                                                 #                                 UPDATE ENGINE TRIMS
030637,000098: 
030638,000099:                                                                                                 #                 POSTBURN        DISPLAY FLASHING V16N40,
030639,000100:                                                                                                 #                                 CLEAN UP AFTER ENGINE CUT-OFF, AND
030640,000101:                                                                                                 #                                 MAINTAIN VG COMP FOR POSSIBLE RCS TRIM
030641,000102: 
030642,000103:                                                                                                 #                 *************************************************
030643,000104:                                                                                                 #                 PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
030644,000105:                                                                                                 #                 *************************************************
030645,000106: 
030646,000107:                                                                                                 #  INPUT          XDELVFLG = 1 EXTERNAL DELTA V
030647,000108: 
030648,000109:                                                                                                 #                     DELVSIN     CHANGE OF VELOCITY (VECTOR)
030649,000110:                                                                                                 #                     RTIG        CSM POSITION AT TIG
030650,000111:                                                                                                 #                     VTIG        CSM VELOCITY AT TIG
030651,000112:                                                                                                 #                     TIG         IGNITION TIME
030652,000113:                                                                                                 #                     CSTEER =    0
030653,000114: 
030654,000115:                                                                                                 #                 XDELVFLG = 0 LAMBERT (AIMPOINT)
030655,000116: 
030656,000117:                                                                                                 #                     RTARG       AIMPOINT POSITION VECTOR
030657,000118:                                                                                                 #                     TPASS4      TIME OF ARRIVAL AT AIMPOINT
030658,000119:                                                                                                 #                     TIG         IGNITION TIME
030659,000120:                                                                                                 #                     CSTEER =    1
030660,000121: 
030661,000122:                                                                                                 #  ALARMS 1407            VG INCREASING
030662,000123:                                                                                                 #                 1703            INSUFFICIENT TIME FOR INTEGRATION
030663,000124:                                                                                                 #                                 TIG WAS SLIPPED
030664,000125: 
030665,000126:                                                                                                 # # Page 693
030666,000127: ???????  E6,1465                                 EBANK=   DAPDATR1                              
030667,000128: 24,2000                                          SETLOC   P40S                                  
030668,000129: 24,2000                                          BANK                                           
030669,000130: 24,2214                                          COUNT*   $$/P40                                
030670,000131: 24,2214           06006        P40CSM            TC       INTPRET                               
030671,000132: 24,2215           67214                          CLEAR    SLOAD                                 
030672,000133: 24,2216           00664                                   ENG2FLAG                              
030673,000134: 24,2217           03425                                   ECSTEER                               
030674,000135: 24,2220           71214                          BOFF     DLOAD                                 
030675,000136: 24,2221           01347                                   XDELVFLG                              #  EXTERNAL DELTA V ?
030676,000137: 24,2222           50224                                   P40S/C                                #  NO CSTEER = ECSTEER
030677,000138: 24,2223           15336                                   HI6ZEROS                              #  YES CSTEER = ZERO
030678,000139: 24,2224           17703        P40S/C            STODL    CSTEER                                
030679,000140: 24,2225           11532                                   FENG                                  #  SET UP THRUST FOR S40.1
030680,000141: 24,2226           17727        P40S/F            STODL    F                                     #  P41 ENTERS HERE
030681,000142: 24,2227           03413                                   TIG                                   #  ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
030682,000143: 24,2230           17450                          STODL    NOMTIG                                #  SET ORIGINAL TIME OF IGNITION FOR S40.9
030683,000144: 24,2231           11530                                   SEC29.96                              
030684,000145: 24,2232           03460                          STORE    AVEGDT                                #  START AVERAGEG AT TIG-29.96
030685,000146: 24,2233           77414                          CLEAR    EXIT                                  
030686,000147: 24,2234           05265                                   BURNFLAG                              
030687,000148: 
030688,000149: 24,2235           04655        TFIGINIT          TC       POSTJUMP                              #  START CLOKTASK TO
030689,000150: 24,2236           73566                          CADR     STARTTGO                              #  CALCULATE TFI FOR N35/40
030690,000151: 24,2237           04636                 +2       TC       BANKCALL                              
030691,000152: 24,2240           03731                          CADR     R02BOTH                               #  IMU STATUS CHECK
030692,000153: 
030693,000154:                                                                                                 # # Page 694
030694,000155:                                                                                                 #  NAME   S40.1
030695,000156: 
030696,000157:                                                                                                 #  FUNCTIONAL DESCRIPTION
030697,000158:                                                                                                 #         COMPUTE INITIAL THRUST DIRECTION (UT) AND INITIAL VALUE OF VG
030698,000159:                                                                                                 #         VECTOR (VGTIG).
030699,000160: 
030700,000161:                                                                                                 #  SUBROUTINES CALLED
030701,000162:                                                                                                 #         CSMPREC
030702,000163:                                                                                                 #         INITVEL
030703,000164:                                                                                                 #         CALCGRAV
030704,000165:                                                                                                 #         MIDGIM
030705,000166: 
030706,000167:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
030707,000168:                                                                                                 #         WEIGHT/G        ANTICIPATED MAG. OF VEHICLE MASS        SP      B16 KGM
030708,000169:                                                                                                 #         XDELVFLG        1=DELTA-V MANEUVER, 0=AIMPT STEER
030709,000170:                                                                                                 #    IF DELTA-V MANEUVER:
030710,000171:                                                                                                 #         DELVSIN         SPECIFIED DELTA-V REQUIRED IN
030711,000172:                                                                                                 #                         INERTIAL COORDS. OF ACTIVE VEHICLE
030712,000173:                                                                                                 #                         AT TIME OF IGNITION                     VECTOR  B7 M/CS
030713,000174:                                                                                                 #         RTIG            POSITION AT TIME OF IGNITION            VECTOR  B29 M
030714,000175:                                                                                                 #         VTIG            VELOCITY AT TIME OF IGNITION            VECTOR  B7 M/CS.
030715,000176:                                                                                                 #         CSTEER = 0                                              DP
030716,000177:                                                                                                 #    IF AIMPOINT STEERING:
030717,000178:                                                                                                 #         TIG             TIME OF IGNITION                        DP      B28 CS
030718,000179:                                                                                                 #         RTARG           POSITION TARGET TIME                    VECTOR  B29 M
030719,000180:                                                                                                 #         TPASS4          TIME OF ARRIVAL AT AIMPOINT
030720,000181:                                                                                                 #         CSTEER = ECSTEER (GR 0)                                 DP      B1
030721,000182:                                                                                                 #         TPASS4 -- TIME OF ARRIVAL AT AIMPOINT
030722,000183: 
030723,000184:                                                                                                 #  OUTPUT
030724,000185:                                                                                                 #         UT              1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
030725,000186:                                                                                                 #         VGTIG           INITIAL VALUE OF VELOCITY
030726,000187:                                                                                                 #                         TO BE GAINED (INERT. COORD.)            VECTOR  B7 M/CS
030727,000188:                                                                                                 #         DELVLVC         VGTIG IN LOC. VERT. COORDS.
030728,000189:                                                                                                 #         F               NOMINAL THRUST FOR ENGINE               DP      B7 M-NEWT
030729,000190:                                                                                                 #         BDT             V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
030730,000191:                                                                                                 #         -GDT            FOR S40.13                              VECT    B7 M/CS
030731,000192:                                                                                                 #         RTIG            CALC IN S40.1B (AIMPT) FOR S40.2,3      VECTOR  B29M
030732,000193:                                                                                                 #                         POSITION AT TIME OF IGNITION
030733,000194: 
030734,000195: 24,2241                                          COUNT*   $$/S40.1                              
030735,000196: 24,2241           06006        S40.1             TC       INTPRET                               
030736,000197: 24,2242           77214                          SET      VLOAD                                 
030737,000198: 24,2243           01070                                   FIRSTFLG                              
030738,000199: 24,2244           15336                                   HI6ZEROS                              
030739,000200: 24,2245           03705                          STORE    BDT                                   
030740,000201: 24,2246           77614                          BOFF                                           
030741,000202: 24,2247           01347                                   XDELVFLG                              
030742,000203: 24,2250           34065                                   S40.1B                                #  LAMBERT
030743,000204: 24,2251           51575                          VLOAD    ABVAL                                 #  EXTERNAL DELTA-V
030744,000205: 24,2252           03646                                   DELVSIN                               
030745,000206: 24,2253           27654                          STOVL    DELVSAB                               
030746,000207: 24,2254           03640                                   VTIG                                  
030747,000208: 24,2255           03576                          STORE    VINIT                                 
030748,000209: 24,2256           53435                          VXV      UNIT                                  
030749,000210:                                                                                                 # # Page 695
030750,000211: 24,2257           03632                                   RTIG                                  
030751,000212: 24,2260           27713                          STOVL    UT                                    #  UP IN UT
030752,000213: 24,2261           03632                                   RTIG                                  
030753,000214: 24,2262           03570                          STORE    RINIT                                 
030754,000215: 24,2263           65236                          VSQ      PDDL                                  
030755,000216: 24,2264           00045                                   36D                                   
030756,000217: 24,2265           56275                          DMPR     DDV                                   
030757,000218: 24,2266           17051                                   THETACON                              
030758,000219: 24,2267           41205                          DMP      DMP                                   
030759,000220: 24,2270           03654                                   DELVSAB                               
030760,000221: 24,2271           03076                                   WEIGHT/G                              
030761,000222: 24,2272           77671                          DDV                                            
030762,000223: 24,2273           03727                                   F                                     
030763,000224: 24,2274           24017                          STOVL    14D                                   
030764,000225: 24,2275           03646                                   DELVSIN                               
030765,000226: 24,2276           74241                          DOT      VXSC                                  
030766,000227: 24,2277           03713                                   UT                                    
030767,000228: 24,2300           03713                                   UT                                    
030768,000229: 24,2301           41552                          VSL2     PUSH                                  #  (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
030769,000230: 24,2302           65245                          BVSU     PDDL                                  #  DELTA VP SCALED AT 2(+7) P.D.L. 6
030770,000231: 24,2303           03646                                   DELVSIN                               
030771,000232: 24,2304           00017                                   14D                                   
030772,000233: 24,2305           63356                          SIN      PDVL                                  
030773,000234: 24,2306           00007                                   6D                                    
030774,000235: 24,2307           53435                          VXV      UNIT                                  
030775,000236: 24,2310           03713                                   UT                                    
030776,000237: 24,2311           45561                          VXSC     STADR                                 
030777,000238: 24,2312           50056                          STOVL    VGTIG                                 #  UNIT(VP X UP)SIN(THETAT) IN VGTIG
030778,000239: 24,2313           65256                          UNIT     PDDL                                  #  UNIT(DELTA VP) IN P.D.L. 6
030779,000240: 24,2314           00017                                   14D                                   
030780,000241: 24,2315           74346                          COS      VXSC                                  
030781,000242: 24,2316           74255                          VAD      VXSC                                  
030782,000243: 24,2317           03721                                   VGTIG                                 
030783,000244: 24,2320           00045                                   36D                                   
030784,000245: 24,2321           53352                          VSL2     VAD                                   
030785,000246: 24,2322           77626                          STADR                                          
030786,000247: 24,2323           74056                          STORE    VGTIG                                 #  VG IGNITION SCALED AT 2(+7) M/CS
030787,000248: 24,2324           77656                          UNIT                                           
030788,000249: 24,2325           27713                          STOVL    UT                                    #  THRUST DIRECTION SCALED AT 2(+1)
030789,000250: 24,2326           03721                                   VGTIG                                 
030790,000251: 24,2327           45006                          PUSH     CALL                                  
030791,000252: 24,2330           11200                                   GET.LVC                               #  VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
030792,000253: 
030793,000254:                                                                                                 # # Page 696
030794,000255:                                                                                                 #  NAME   S40.2,3
030795,000256: 
030796,000257:                                                                                                 #  FUNCTIONAL DESCRIPTION
030797,000258:                                                                                                 #         COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
030798,000259:                                                                                                 #         ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
030799,000260:                                                                                                 #         COMPUTE X AXIS OF ENGINE BELL
030800,000261:                                                                                                 #         COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
030801,000262:                                                                                                 #         FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
030802,000263:                                                                                                 #         YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT.
030803,000264:                                                                                                 #         NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
030804,000265:                                                                                                 #         COORDS. WILL BE PREFERRED IMU ORIENTATION.
030805,000266:                                                                                                 #         COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
030806,000267: 
030807,000268:                                                                                                 #  SUBROUTINES CALLED
030808,000269:                                                                                                 #         CALCGA
030809,000270: 
030810,000271:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
030811,000272:                                                                                                 #         PACTOFF         TOTAL PITCH TRIM ANGLE                  SP AT 1.0795111 REV.
030812,000273:                                                                                                 #         YACTOFF         TOTAL YAW   TRIM ANGLE                  SP AT 1.0795111 REV.
030813,000274:                                                                                                 #         UT              DESIRED THRUST DIRECTION                VECT.   B2 M/(CS.CS)
030814,000275:                                                                                                 #         RTIG            POSITION AT TIME OF IGNITION            VECT.   B29 M
030815,000276:                                                                                                 #         ENG2FLAG        ON=RCS OFF=SPS
030816,000277: 
030817,000278:                                                                                                 #  OUTPUT
030818,000279:                                                                                                 #         SCAXIS          UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR.    B1
030819,000280:                                                                                                 #         XSCREF          UNIT VECTORS ALIGNED WTH PREFERRED IMU          B1
030820,000281:                                                                                                 #         YSCREF
030821,000282:                                                                                                 #         ZSCREF
030822,000283:                                                                                                 #         GIMBAL ANGLES IN THETAD
030823,000284:                                                                                                 #         POINTVSM        UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM  B1
030824,000285: 
030825,000286: 24,2331                                          COUNT*   $$/S40.2                              
030826,000287: 24,2331           64375        S40.2,3           VLOAD    MXV                                   
030827,000288: 24,2332           03713                                   UT                                    
030828,000289: 24,2333           01734                                   REFSMMAT                              
030829,000290: 24,2334           40372                          VSL1     SETPD                                 
030830,000291: 24,2335           00001                                   00D                                   
030831,000292: 24,2336           17357                          STODL    POINTVSM                              
030832,000293: 24,2337           15336                                   HI6ZEROS                              
030833,000294: 24,2340           41414                          BON      PUSH                                  
030834,000295: 24,2341           00704                                   ENG2FLAG                              
030835,000296: 24,2342           34157                                   S40.2,3B                              
030836,000297: 24,2343           41335                          SLOAD    DMP                                   
030837,000298: 24,2344           03025                                   YACTOFF                               
030838,000299: 24,2345           11542                                   TRIMSCAL                              
030839,000300: 24,2346           43352                          SL1      DAD                                   
030840,000301: 24,2347           11544                                   YBIAS                                 
030841,000302: 24,2350           71406                          PUSH     COS                                   
030842,000303: 24,2351           73525                          PDDL     SIN                                   
030843,000304: 24,2352           67206                          PUSH     SLOAD                                 
030844,000305: 24,2353           03024                                   PACTOFF                               
030845,000306: 24,2354           72405                          DMP      SL1                                   
030846,000307: 24,2355           11542                                   TRIMSCAL                              
030847,000308: 24,2356           41415                          DAD      PUSH                                  
030848,000309:                                                                                                 # # Page 697
030849,000310: 24,2357           11546                                   PBIAS                                 
030850,000311: 24,2360           65346                          COS      PDDL                                  #  COS(P +P0) PDL 6
030851,000312: 24,2361           41556                          SIN      PUSH                                  #  SIN(P +P0) PDL 8D
030852,000313: 24,2362           14323                          STODL    ZSCREF                                #  SIN(P +P0)
030853,000314: 24,2363           00007                                   6                                     
030854,000315: 24,2364           72405                          DMP      SL1                                   
030855,000316: 24,2365           00005                                   4                                     
030856,000317: 24,2366           65276                          DCOMP    PDDL                                  #  -SIN(Y+Y0)COS(P+P0) PDL 10
030857,000318: 24,2367           00007                                   6                                     
030858,000319: 24,2370           72405                          DMP      SL1                                   
030859,000320: 24,2371           00003                                   2                                     
030860,000321: 24,2372           77666                          VDEF                                           
030861,000322: 24,2373           14307                          STODL    XSCREF                                #  PD POINTER AT 6 NEW SC X AXIS SCALED AT 
030862,000323: 24,2374           00323                                   ZSCREF                                
030863,000324: 24,2375           72405                          DMP      SL1                                   
030864,000325: 24,2376           00005                                   4                                     
030865,000326: 24,2377           41325                          PDDL     DMP                                   
030866,000327: 24,2400           00323                                   ZSCREF                                
030867,000328: 24,2401           00003                                   2                                     
030868,000329: 24,2402           57552                          SL1      DCOMP                                 
030869,000330: 24,2403           77666                          VDEF                                           
030870,000331: 24,2404           14323                          STODL    ZSCREF                                #  PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
030871,000332: 24,2405           77666                          VDEF                                           
030872,000333: 24,2406           14315                          STODL    YSCREF                                #  PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
030873,000334: 24,2407           00323                                   ZSCREF                                
030874,000335: 24,2410           65325                          PDDL     PDDL                                  
030875,000336: 24,2411           00315                                   YSCREF                                
030876,000337: 24,2412           00307                                   XSCREF                                
030877,000338: 24,2413           77666                          VDEF                                           
030878,000339: 24,2414           27351                          STOVL    SCAXIS                                #  ENGINE BELL SCALED AT 2
030879,000340: 24,2415           03713                                   UT                                    
030880,000341: 24,2416           53515                          PDVL     UNIT                                  
030881,000342: 24,2417           03632                                   RTIG                                  
030882,000343: 24,2420           57435                          VXV      VCOMP                                 
030883,000344: 24,2421           00001                                   0                                     
030884,000345: 24,2422           41456                          UNIT     PUSH                                  
030885,000346: 24,2423           77624                          CALL                                           
030886,000347: 24,2424           61702                                   TSTRXUT                               
030887,000348: 24,2425           57435                          VXV      VCOMP                                 
030888,000349: 24,2426           00001                                   0                                     
030889,000350: 24,2427           63372                          VSL1     PDVL                                  #  2 RF/SC IN PDL 12D
030890,000351: 24,2430           00307                                   XSCREF                                
030891,000352: 24,2431           76505                          VXM      VSL1                                  
030892,000353: 24,2432           00001                                   0                                     
030893,000354: 24,2433           24307                          STOVL    XSCREF                                #  X OF PREF IMU,X OF SC IN REF COOR. AT 2
030894,000355: 24,2434           00315                                   YSCREF                                
030895,000356: 24,2435           76505                          VXM      VSL1                                  
030896,000357: 24,2436           00001                                   0                                     
030897,000358: 24,2437           24315                          STOVL    YSCREF                                #  Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
030898,000359: 24,2440           00323                                   ZSCREF                                
030899,000360:                                                                                                 # # Page 698
030900,000361: 24,2441           76505                          VXM      VSL1                                  
030901,000362: 24,2442           00001                                   0                                     
030902,000363: 24,2443           00323                          STORE    ZSCREF                                #  Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
030903,000364: 24,2444                                          COUNT*   $$/P40                                
030904,000365: 
030905,000366: 24,2444           77414        P40SXTY           SET      EXIT                                  
030906,000367: 24,2445           01073                                   PFRATFLG                              
030907,000368: 24,2446           03202                          TCR      SETMINDB   -1                         #  NARROW DEADBAND FOR MANEUVER (EBANK6)
030908,000369: 24,2447           05561                          TC       DOWNFLAG                              
030909,000370: 24,2450           00124                          ADRES    3AXISFLG                              
030910,000371: 24,2451           04636                          TC       BANKCALL                              
030911,000372: 24,2452           56074                          CADR     R60CSM                                #  ATTITUDE MANEUVER
030912,000373: 24,2453           05402                          TC       PHASCHNG                              #  COMPTGO DESTROYS
030913,000374: 24,2454           00014                          OCT      00014                                 #  4.1 RESTART SETUP
030914,000375: 24,2455           44770                          CS       ONE                                   #  FOR UPDATEVG
030915,000376: 24,2456           55724                          TS       NBRCYCLS                              
030916,000377: 24,2457           06006                          TC       INTPRET                               
030917,000378: 24,2460           77614                          BON                                            
030918,000379: 24,2461           00704                                   ENG2FLAG                              #  P40 OR P41 ?
030919,000380: 24,2462           51626                                   P41/DSP                               
030920,000381: 24,2463           51575                          VLOAD    ABVAL                                 #  FOR R2
030921,000382: 24,2464           03721                                   VGTIG                                 
030922,000383: 24,2465           17763                          STODL    VGDISP                                
030923,000384: 24,2466           15336                                   HI6ZEROS                              
030924,000385: 24,2467           17426                          STODL    DVTOTAL                               
030925,000386: 24,2470           11560                                   S40.8ADS                              
030926,000387: 24,2471           01062                          STORE    AVEGEXIT                              
030927,000388: 24,2472           77776                          EXIT                                           
030928,000389: 24,2473           33517        P40GMB            CAF      P40CKLS2                              #  (4.1 PROTECTION)
030929,000390: 24,2474           04636                          TC       BANKCALL                              
030930,000391: 24,2475           21067                          CADR     GOPERF1                               
030931,000392: 24,2476           13403                          TCF      POST41                                #  V34
030932,000393: 24,2477           12560                          TCF      TST,TRIM                              #  V33
030933,000394: 24,2500           44770        TRIMONLY          CS       BIT1                                  #  SET MRKRTEMP FOR GIMBAL TRIM (-1)
030934,000395: 24,2501           55444                 +1       TS       MRKRTMP                               #  ENTRY FROM TST,TRIM
030935,000396: 24,2502           34772                          CAF      ZERO                                  #  SET CNTR  +0 FOR RESTART LOGIC IN S40.6
030936,000397: 24,2503           55446                          TS       CNTR                                  #         +0 SAYS NORMAL ENTRY
030937,000398:                                                                                                 #         +1 (PRE40.6) SAYS RESTART ENTRY
030938,000399: 24,2504           34770                          CAF      ONE                                   
030939,000400: 24,2505           05233                          TC       WAITLIST                              
030940,000401: 24,2506  E6,1465                                 EBANK=   DAPDATR1                              
030941,000402: 24,2506           02366 40066                    2CADR    S40.6                                 
030942,000403: 
030943,000404: 24,2510           11444                          CCS      MRKRTMP                               #  TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
030944,000405: 24,2511           33523                          CAF      18SEC                                 #  PLUS, DELAY FOR 18 SECONDS
030945,000406: 24,2512           12514                          TCF      +2                                    #  HOLE
030946,000407: 24,2513           33525                          CAF      5SEC                                  #  DELAY FOR TRIM ONLY TASK
030947,000408: 24,2514           04636                          TC       BANKCALL                              
030948,000409: 24,2515           01731                          CADR     DELAYJOB                              
030949,000410: 24,2516           33514                          CAF      V06N40                                
030950,000411:                                                                                                 # # Page 699
030951,000412: 24,2517           54777                          TS       NVWORD1                               #  FORCE CLOCKJOB
030952,000413: 24,2520           05362                          TC       2PHSCHNG                              
030953,000414: 24,2521           00026                          OCT      00026                                 #  6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
030954,000415: 24,2522           00234                          OCT      00234                                 #  4.23 = P40S/SV (PRIO12)
030955,000416: 24,2523  01,2154               4P23SPT1          =        4.23SPOT                              
030956,000417: 24,2523  01,2317               6P2SPT1           =        6.2SPOT                               
030957,000418: 24,2523           04606        P40S/SV           TCR      E7SETTER                              #  JOB, 4.23 PROTECTS, PRIO12
030958,000419: 24,2524  E7,1412                                 EBANK=   TIG                                   
030959,000420: 24,2524           06006                          TC       INTPRET                               
030960,000421: 24,2525           45345                          DLOAD    DSU                                   
030961,000422: 24,2526           03413                                   TIG                                   
030962,000423: 24,2527           03460                                   AVEGDT                                #  29.96 SEC (P40) 100.00 SEC (P15)
030963,000424: 24,2530           00041                          STORE    TDEC1                                 
030964,000425: 24,2531           77624                          CALRB                                          #  RETURN IN BASIC
030965,000426: 24,2532           27576                                   MIDTOAV1                              
030966,000427: 24,2533           02542                          TC       P40SET                                #  P15 INTEGRATION ALWAYS RETURNS HERE
030967,000428: 24,2534           00006        P40SNEWM          EXTEND                                         #  INTEGRATION TIME GREATER THAN ALLOWED
030968,000429: 24,2535           31105                          DCA      PIPTIME1                              
030969,000430: 24,2536           53413                          DXCH     TIG                                   
030970,000431: 24,2537           00006                          EXTEND                                         
030971,000432: 24,2540           33530                          DCA      SEC29.96                              
030972,000433: 24,2541           21413                          DAS      TIG                                   #  SET NEW TIG FOR V06N40
030973,000434: 24,2542           00006        P40SET            EXTEND                                         
030974,000435: 24,2543           30155                          DCA      MPAC                                  #  DELTA TIME TO PREREAD
030975,000436: 24,2544           53673                          DXCH     P40TMP                                
030976,000437: 24,2545           00006                          EXTEND                                         
030977,000438: 24,2546           43525                          DCS      5SECDP                                #  FOR TIGBLNK
030978,000439: 24,2547           21673                          DAS      P40TMP                                
030979,000440: 24,2550           00006                          EXTEND                                         
030980,000441: 24,2551           31673                          DCA      P40TMP                                
030981,000442: 24,2552           05332                          TC       LONGCALL                              
030982,000443: 24,2553  E7,1412                                 EBANK=   TIG                                   
030983,000444: 24,2553           02565 50067                    2CADR    TIGBLNK                               
030984,000445: 
030985,000446: 24,2555           05402                          TC       PHASCHNG                              
030986,000447: 24,2556           20214                          OCT      20214                                 #  4.21 = TIGBLNK (P40TMP CS)
030987,000448: 24,2557  01,2151               4P21SPT1          =        4.21SPOT                              
030988,000449: 24,2557           15205                          TCF      ENDOFJOB                              
030989,000450: 
030990,000451: 24,2560           34770        TST,TRIM          CAF      BIT1                                  #  SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
030991,000452: 24,2561           12501                          TCF      TRIMONLY   +1                         
030992,000453: 
030993,000454: 24,2562           04636        P40BLNKR          TC       BANKCALL                              
030994,000455: 24,2563           20715                          CADR     CLEANDSP                              #  REMOVE RESIDUE
030995,000456: 24,2564           15205                          TCF      ENDOFJOB                              
030996,000457: 
030997,000458:                                                                                                 # # Page 700
030998,000459: 24,2565           33525        TIGBLNK           CAF      5SEC                                  #  CALL TIGAVEG IN FIVE SEC AT TIG - AVEGDT
030999,000460: 24,2566           05223                          TC       TWIDDLE                               
031000,000461: 24,2567           02602                          ADRES    TIGAVEG                               
031001,000462: 24,2570           34772                          CAF      ZERO                                  #  DISABLE HERE, NOT IN P40BLNKR
031002,000463: 24,2571           54777                          TS       NVWORD1                               
031003,000464: 24,2572           35053                          CAF      PRIO14                                
031004,000465: 24,2573           05121                          TC       NOVAC                                 
031005,000466: 24,2574  E7,1412                                 EBANK=   TIG                                   
031006,000467: 24,2574           02562 50067                    2CADR    P40BLNKR                              #  DONT PROTECT - RESTARTS BLANK DSKY
031007,000468: 
031008,000469: 24,2576           44342                          CS       OCT37                                 #  4.37 = TIGAVEG (500CS)
031009,000470: 24,2577           04126        P40TSK            TC       NEWPHASE                              
031010,000471: 24,2600           00004                          OCT      4                                     
031011,000472: 24,2601  01,2176               4P37SPT1          =        4.37SPOT                              
031012,000473: 24,2601           05314                          TC       TASKOVER                              
031013,000474: 
031014,000475: 24,2602  E7,1412                                 EBANK=   TIG                                   
031015,000476: 24,2602           31214        TIGAVEG           CAE      MODREG                                #  TASK (4.37 PROTECTS)
031016,000477: 24,2603           74763                          MASK     BIT6                                  
031017,000478: 24,2604           00006                          EXTEND                                         
031018,000479: 24,2605           12631                          BZF      P15AVEG                               #  P15
031019,000480: 24,2606           44765                          CS       PFRATBIT                              #  P40/P41
031020,000481: 24,2607           70076                          MASK     FLAGWRD2                              
031021,000482: 24,2610           54076                          TS       FLAGWRD2                              
031022,000483: 24,2611           30075                          CAE      FLAGWRD1                              
031023,000484: 24,2612           74756                          MASK     ENG2BIT                               
031024,000485: 24,2613           10000                          CCS      A                                     #  P40 OR P41 ?
031025,000486: 24,2614           13642                          TCF      P41REDSP                              
031026,000487: 24,2615           33514                          CAF      V06N40                                #  UNBLANK DISPLAY
031027,000488: 24,2616           54777                          TS       NVWORD1                               
031028,000489: 24,2617           33522                          CAF      SEC24.96                              
031029,000490: 24,2620           05223                          TC       TWIDDLE                               
031030,000491: 24,2621           02634                          ADRES    TIG-5                                 
031031,000492: 24,2622           46211                          CS       SIX                                   #  4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
031032,000493: 24,2623           04126        TTGPHS            TC       NEWPHASE                              #  ENTRY FROM P41REDSP (P41) WITH A=-4, OR
031033,000494: 24,2624           00004                          OCT      4                                     #        FROM TIGON    (P47) WITH A=-2
031034,000495: 24,2625  01,2102               4P2SPT1           =        4.2SPOT                               
031035,000496: 24,2625  01,2110               4P4SPT1           =        4.4SPOT                               
031036,000497: 24,2625  01,2116               4P6SPT1           =        4.6SPOT                               
031037,000498: 24,2625           11166        PRECHECK          CCS      PHASE5                                #  HAS SERVICER BEEN RESTARTED
031038,000499: 24,2626           15314                          TCF      TASKOVER                              #  YES, DONT START ANOTHER ONE
031039,000500: 24,2627           04655                          TC       POSTJUMP                              
031040,000501: 24,2630           76607                          CADR     PREREAD                               
031041,000502: 
031042,000503: 24,2631           33513        P15AVEG           CAF      V06N95B                               
031043,000504: 24,2632           54777                          TS       NVWORD1                               #  UNBLANK DISPLAY
031044,000505: 24,2633           12625                          TCF      PRECHECK                              
031045,000506: 
031046,000507:                                                                                                 # # Page 701
031047,000508: 
031048,000509: 24,2634  E7,1412                                 EBANK=   TIG                                   
031049,000510: 24,2634           33525        TIG-5             CAF      5SEC                                  
031050,000511: 24,2635           05233                          TC       WAITLIST                              
031051,000512: 24,2636  E6,1465                                 EBANK=   DAPDATR1                              
031052,000513: 24,2636           02651 50066                    2CADR    TIG-0                                 
031053,000514: 
031054,000515: 24,2640           44760                          CS       BIT9                                  #  WILL CAUSE V99 FLASH
031055,000516: 24,2641           54777                          TS       NVWORD1                               
031056,000517: 24,2642           05362                          TC       2PHSCHNG                              
031057,000518: 24,2643           40074                          OCT      40074                                 #  A, 4.7 = TIG-0 (500CS)
031058,000519: 24,2644           00033                          OCT      00033                                 #  A, 3.3 = S40.13 (PRIO20)
031059,000520: 24,2645  01,2060               3P3SPT1           =        3.3SPOT                               
031060,000521: 24,2645  01,2132               4P7SPT1           =        4.7SPOT                               
031061,000522: 24,2645           05134                          TC       FINVAC20                              
031062,000523: 24,2646  E7,1427                                 EBANK=   TGO                                   
031063,000524: 24,2646           02534 34067                    2CADR    S40.13                                
031064,000525: 
031065,000526: 24,2650           15314                          TCF      TASKOVER                              
031066,000527: 
031067,000528:                                                                                                 # # Page 702
031068,000529: 
031069,000530: 24,2651  E6,1465                                 EBANK=   DAPDATR1                              #  TASK, 4.7 PHASE, OR 4.11 (-0CS IN R40)
031070,000531: 24,2651           40103        TIG-0             CS       FLAGWRD7                              #  SET IGN FLAG
031071,000532: 24,2652           74754                          MASK     IGNFLBIT                              
031072,000533: 24,2653           26103                          ADS      FLAGWRD7                              
031073,000534: 24,2654           30103                          CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR V99 RESPONSE
031074,000535: 24,2655           74755                          MASK     BIT12                                 
031075,000536: 24,2656           00006                          EXTEND                                         
031076,000537: 24,2657           15314                          BZF      TASKOVER                              #  WAIT FOR V99P
031077,000538: 24,2660           33514                          CAF      V06N40                                #  CLEAR THE V99 (IN CASE OF A RESTART
031078,000539: 24,2661           54777                          TS       NVWORD1                               #         DURING THE V99 SEQUENCE)
031079,000540: 24,2662           05402                          TC       PHASCHNG                              #  V99P HAS COME ALREADY, DO IGNITION NOW
031080,000541: 24,2663           00274                          OCT      00274                                 #  A, 4.27 = IGNITION (-0CS) TBASE OLD
031081,000542: 24,2664  01,2162               4P27SPT1          =        4.27SPOT                              
031082,000543: 24,2664           30032        IGNITION          CAE      CDUX                                  #  SAVE FOR ROLL DAP REFERENCE OGAD
031083,000544: 24,2665           55447                          TS       OGAD                                  #         V99PJOB (CLOCKJOB) SETS UP IGNITION
031084,000545: 24,2666           00006                          EXTEND                                         #         TASK (4.61 PROTECTION)
031085,000546: 24,2667           30025                          DCA      TIME2                                 #         FOR RESTARTS
031086,000547: 24,2670           53022                          DXCH     TEVENT                                
031087,000548: 24,2671           40101                          CS       FLAGWRD5                              #  SET ENGONFLG
031088,000549: 24,2672           74762                          MASK     ENGONBIT                              
031089,000550: 24,2673           26101                          ADS      FLAGWRD5                              
031090,000551: 24,2674           34754        SPSON             CAF      BIT13                                 #  TURN ON SPS ENGINE
031091,000552: 24,2675           00006                          EXTEND                                         
031092,000553: 24,2676           05011                          WOR      DSALMOUT                              
031093,000554: 24,2677           40106                          CS       FLGWRD10                              #  SET BURNFLAG TO INDICATE
031094,000555: 24,2700           74757                          MASK     BURNBIT                               #  THAT THEN CSM DID THE BURN
031095,000556: 24,2701           26106                          ADS      FLGWRD10                              
031096,000557: 
031097,000558: 24,2702           34760        IMPULCHK          CAF      IMPULBIT                              #  CHECK FOR IMPULSIVE BURN
031098,000559: 24,2703           70076                          MASK     FLAGWRD2                              
031099,000560: 24,2704           10000                          CCS      A                                     
031100,000561: 24,2705           12773                          TCF      IMPLBURN                              #  IMPULSIVE
031101,000562: 24,2706           40102                          CS       FLAGWRD6                              #  NON-IMPULSIVE, SET STRULLSW FOR STEERULL
031102,000563: 24,2707           74754                          MASK     STRULBIT                              
031103,000564: 24,2710           26102                          ADS      FLAGWRD6                              
031104,000565: 24,2711           44076        PREPTVC           CS       DPCONFIG                              #  RESET T5 BITS
031105,000566: 24,2712           70102                          MASK     FLAGWRD6                              
031106,000567: 24,2713           54102                          TS       FLAGWRD6                              
031107,000568: 24,2714           00006                          EXTEND                                         #  KILL RCS
031108,000569: 24,2715           33550                          DCA      T5IDL24                               
031109,000570: 24,2716           52113                          DXCH     T5LOC                                 
031110,000571: 24,2717           46214                          CS       THREE                                 #  4.3 = DOTVCON (40CS)
031111,000572: 24,2720           04126                          TC       NEWPHASE                              
031112,000573: 24,2721           00004                          OCT      4                                     
031113,000574: 24,2722  01,2124               4P3SPT1           =        4.3SPOT                               
031114,000575: 24,2722           05255                          TC       FIXDELAY                              
031115,000576: 24,2723           00050                          DEC      40         B-14                       #  0.4 SECOND DELAY FOR THRUST BUILDUP
031116,000577: 24,2724           44770        DOTVCON           CS       BIT1                                  #  SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
031117,000578: 24,2725           55635                          TS       TVCPHASE                              
031118,000579:                                                                                                 # # Page 703
031119,000580: 24,2726           34772                          CAF      ZERO                                  #  SET TVCEXECUTIVE PHASE
031120,000581: 24,2727           55644                          TS       TVCEXPHS                              
031121,000582: 24,2730           44076                          CS       DPCONFIG                              #  SET T5 BITS TO INDICATE TVC TAKEOVER....
031122,000583: 24,2731           70102                          MASK     FLAGWRD6                              #         BITS 15,14 = 10
031123,000584: 24,2732           64752                          AD       DAP1BIT                               
031124,000585: 24,2733           54102                          TS       FLAGWRD6                              
031125,000586: 24,2734           36214                          CAF      THREE                                 #  6.3 = CLOKTASK (100CS), DROPPING PRE40.6
031126,000587: 24,2735           54001                          TS       L                                     #         WHICH IS HANDLED NOW BY REDOTVC
031127,000588: 24,2736           40000                          COM                                            
031128,000589: 24,2737           53170                          DXCH     -PHASE6                               
031129,000590: 24,2740  01,2325               6P3SPT2           =        6.3SPOT                               
031130,000591: 24,2740           00006                          EXTEND                                         #  STORE RCS ATTITUDE ERRORS FOR USE IN
031131,000592: 24,2741           41571                          DCS      ERRORY                                #  INITIALIZING TVC ATTITUDE ERRORS
031132,000593: 24,2742           53665                          DXCH     ERRBTMP                               
031133,000594: 24,2743           44773                          CS       FIVE                                  #  4.5 = DOSTRULL (160 CS)
031134,000595: 24,2744           04126                          TC       NEWPHASE                              
031135,000596: 24,2745           00004                          OCT      4                                     
031136,000597: 24,2746  01,2127               4P5SPT1           =        4.5SPOT                               
031137,000598: 24,2746           34750                          CAF      POSMAX                                #  SET TIME5 FOR STARTING RIGHT AWAY
031138,000599: 24,2747           54030                          TS       TIME5                                 
031139,000600: 24,2750           00006                          EXTEND                                         
031140,000601: 24,2751           33562                          DCA      TVCON2C                               #  (TVCDAPON)
031141,000602: 24,2752           52113                          DXCH     T5LOC                                 #  (KILLS RCS DAP)
031142,000603: 24,2753           05255                          TC       FIXDELAY                              #  0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
031143,000604: 24,2754           00240                          DEC      160        B-14                       #         STEERING (IF NON-IMPULSIVE)
031144,000605: 24,2755           40102        DOSTRULL          CS       FLAGWRD6                              #  CHECK STRULLSW FOR IMPULSIVE BURN
031145,000606: 24,2756           74754                          MASK     STRULBIT                              
031146,000607: 24,2757           10000                          CCS      A                                     
031147,000608: 24,2760           02764                          TC       ULAGEOFF                              #  ULLAGE OFF
031148,000609: 24,2761           40076        STEERULL          CS       FLAGWRD2                              #  SET STEERSW
031149,000610: 24,2762           74756                          MASK     STEERBIT                              
031150,000611: 24,2763           26076                          ADS      FLAGWRD2                              
031151,000612: 24,2764           34772        ULAGEOFF          CAF      ZERO                                  
031152,000613: 24,2765           00006                          EXTEND                                         
031153,000614: 24,2766           01005                          WRITE    CHAN5                                 #  ZERO CHANNEL 5
031154,000615: 24,2767           00006                          EXTEND                                         
031155,000616: 24,2770           34772                          DCA      NEG0                                  #  KILL GROUP 4 (DP NEG0 = -0, +0)
031156,000617: 24,2771           53164                          DXCH     -PHASE4                               
031157,000618: 24,2772           15314        ENDIGN            TCF      TASKOVER                              
031158,000619: 
031159,000620: 24,2773           44754        IMPLBURN          CS       STRULBIT                              #  RESET STRULLSW (COULD BE AN IMPULSIVE
031160,000621: 24,2774           70102                          MASK     FLAGWRD6                              #         ENGINE FAIL)
031161,000622: 24,2775           54102                          TS       FLAGWRD6                              
031162,000623: 24,2776           04606                          TCR      E7SETTER                              
031163,000624: 24,2777  E7,1412                                 EBANK=   TIG                                   
031164,000625: 24,2777           00006                          EXTEND                                         #  PREPARE FOR R1 OF V06N40 (CLOCKTASK)
031165,000626: 24,3000           31430                          DCA      TGO                                   
031166,000627: 24,3001           53413                          DXCH     TIG                                   
031167,000628: 24,3002           00006                          EXTEND                                         
031168,000629: 24,3003           30025                          DCA      TIME2                                 
031169,000630:                                                                                                 # # Page 704
031170,000631: 24,3004           21413                          DAS      TIG                                   
031171,000632: 24,3005           05362                          TC       2PHSCHNG                              
031172,000633: 24,3006           40053                          OCT      40053                                 #  A, 3.5 = ENGINOFF (TGO+1)....NOTE GROUP
031173,000634: 24,3007           07014                          OCT      07014                                 #  C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
031174,000635: 24,3010  01,2063               3P5SPT1           =        3.5SPOT                               
031175,000636: 24,3010           77777                          DEC      -0         B-14                       #  -0 CS
031176,000637: 24,3011  E6,1465                                 EBANK=   DAPDATR1                              
031177,000638: 24,3011           03016 50066                    2CADR    IMPLCONT                              
031178,000639: 
031179,000640: 24,3013           31430                          CAE      TGO        +1                         #  (TPAGREE IN S40.13, LESS THAN 600CS)
031180,000641: 24,3014           05223                          TC       TWIDDLE                               
031181,000642: 24,3015           03023                          ADRES    ENGINOFF                              
031182,000643: 24,3016           44760        IMPLCONT          CS       IMPULBIT                              #  RESET IMPULSW, ENGINOFF IS NOW SET UP
031183,000644: 24,3017           70076                          MASK     FLAGWRD2                              
031184,000645: 24,3020           54076                          TS       FLAGWRD2                              
031185,000646: 24,3021           04611                          TCR      E6SETTER                              
031186,000647: 24,3022  E6,1465                                 EBANK=   DAPDATR1                              
031187,000648: 24,3022           12711                          TCF      PREPTVC                               
031188,000649: 
031189,000650: 24,3023  E7,1427                                 EBANK=   TGO                                   #  E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
031190,000651: 24,3023           04611        ENGINOFF          TCR      E6SETTER                              #  TASK, 3.15 PHASE (TGO+1 CS)    GET E6
031191,000652: 24,3024  E6,1465                                 EBANK=   DAPDATR1                              
031192,000653: 24,3024           03045        DOSPSOFF          TCR      SPSOFF                                #  SHUT DOWN SPS
031193,000654: 24,3025           05255                          TC       FIXDELAY                              #  2.5 SECOND DELAY FOR SPS TAILOFF
031194,000655: 24,3026           00372                          DEC      250        B-14                       #  RESTART MAY DOUBLE THE DELAY, HIT TEVENT
031195,000656: 24,3027           03217        DOTVCRCS          TCR      SETMAXDB                              #  WIDE DEADBAND FOR CUTOFF TRANSIENT
031196,000657: 24,3030           04714                          TC       IBNKCALL                              #  SET UP RCS DAP (KILLS TVCDAPS, SETS T5
031197,000658: 24,3031           42042                          CADR     RCSDAPON                              #         BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
031198,000659: 24,3032           04714                          TC       IBNKCALL                              #  UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
031199,000660: 24,3033           13313                          CADR     MASSPROP                              #         RCS DAP STARTUP IN 0.6 SECONDS
031200,000661: 24,3034           03161                          TCR      TVCZAP                                #  WIPE OUT TVC, TURN OFF CLOKTASK
031201,000662: 24,3035           05362                          TC       2PHSCHNG                              
031202,000663: 24,3036           00003                          OCT      00003                                 #  KILL GROUP 3 PROTECTION OF ENGINOFF
031203,000664: 24,3037           00354                          OCT      00354                                 #  A, 4.35 = POSTBURN (NOVAC, PRIO12)
031204,000665: 24,3040  01,2173               4P35SPT1          =        4.35SPOT                              
031205,000666: 24,3040           34664                          CAF      PRIO12                                #  SET UP POSTBURN V16N40 JOB
031206,000667: 24,3041           05121                          TC       NOVAC                                 
031207,000668: 24,3042  E6,1465                                 EBANK=   DAPDATR1                              #  (SET MAXDB IN POST41)
031208,000669: 24,3042           03174 50066                    2CADR    POSTBURN                              
031209,000670: 
031210,000671: 24,3044           15314                          TCF      TASKOVER                              
031211,000672: 
031212,000673: 24,3045  E6,1465                                 EBANK=   DAPDATR1                              
031213,000674: 24,3045           00004        SPSOFF            INHINT                                         
031214,000675: 24,3046           00006                          EXTEND                                         #  ESTABLISH SPSOFF TEVENT
031215,000676: 24,3047           30025                          DCA      TIME2                                 
031216,000677: 24,3050           53022                          DXCH     TEVENT                                
031217,000678: 24,3051           44762                          CS       ENGONBIT                              #  RESET ENGONFLG
031218,000679: 24,3052           70101                          MASK     FLAGWRD5                              
031219,000680: 24,3053           54101                          TS       FLAGWRD5                              #  (RESTARTS WILL SHUT DOWN SPS NOW)
031220,000681:                                                                                                 # # Page 705
031221,000682: 24,3054           44754                          CS       BIT13                                 #  SHUT DOWN SPS ENGINE
031222,000683: 24,3055           00006                          EXTEND                                         
031223,000684: 24,3056           03011                          WAND     DSALMOUT                              
031224,000685: 24,3057           34753                          CAF      BIT14                                 #  ISSUE SIV CUTOFF COMMAND
031225,000686: 24,3060           00006                          EXTEND                                         #  FOR POSSIBLE BACK-UP USE
031226,000687: 24,3061           05012                          WOR      CHAN12                                
031227,000688: 24,3062           31635                          CA       TVCPHASE                              #  CHECK IF OK FOR TRIM UPDATE
031228,000689: 24,3063           64770                          AD       ONE                                   #         THESE CHECKS ARE ONLY NEEDED
031229,000690: 24,3064           00006                          EXTEND                                         #         FOR A LESS THAN 0.4 SEC BURN
031230,000691: 24,3065           13101                          BZF      BTRIMR                                #  NO, INITIALIZATION NOT COMPLETE
031231,000692: 24,3066           40102                          CS       FLAGWRD6                              #  YES, CHECK IF TVC
031232,000693: 24,3067           74076                          MASK     DPCONFIG                              
031233,000694: 24,3070           00006                          EXTEND                                         
031234,000695: 24,3071           63101                          BZMF     BTRIMR                                #  NO, NOT TVC YET        
031235,000696: 24,3072           31633                          CAE      REPFRAC                               #  NO TRIM UPDATES IF R40 (ENGFAIL) ACTIVE
031236,000697: 24,3073           00006                          EXTEND                                         
031237,000698: 24,3074           13101                          BZF      BTRIMR                                
031238,000699: 24,3075           31601        BESTTRIM          CAE      DELPBAR                               #  UPDATE TRIMS WITH DELFILTER VALUES
031239,000700: 24,3076           55423                          TS       PACTOFF                               
031240,000701: 24,3077           31603                          CAE      DELYBAR                               
031241,000702: 24,3100           55424                          TS       YACTOFF                               
031242,000703: 24,3101           00002        BTRIMR            TC       Q                                     
031243,000704: 
031244,000705:                                                                                                 # # Page 706
031245,000706: 24,3102                                          COUNT*   $$/S40.8                              
031246,000707: 24,3102  E6,1446                                 EBANK=   CNTR                                  
031247,000708: 24,3102           77775        S40.81            VLOAD                                          #  TGO LESS THAN 4 SECONDS
031248,000709: 24,3103           15336                                   HI6ZEROS                              
031249,000710: 24,3104           03126        RATEZRO           STORE    OMEGAC                                #  TVC TO ATTITUDE HOLD
031250,000711: 24,3105           77776                          EXIT                                           
031251,000712: 24,3106           34750                          CAF      POSMAX                                #  INHIBIT SWITCHOVER/TVC EG TRACKING
031252,000713: 24,3107           55446                          TS       CNTR                                  
031253,000714: 24,3110           04606                          TCR      E7SETTER                              
031254,000715: 24,3111  E7,1412                                 EBANK=   TIG                                   
031255,000716: 24,3111           00004                          INHINT                                         
031256,000717: 24,3112           00006                          EXTEND                                         
031257,000718: 24,3113           31413                          DCA      TIG                                   
031258,000719: 24,3114           52155                          DXCH     MPAC                                  
031259,000720: 24,3115           00006                          EXTEND                                         
031260,000721: 24,3116           40025                          DCS      TIME2                                 
031261,000722: 24,3117           20155                          DAS      MPAC                                  
031262,000723: 24,3120           07224                          TCR      DPAGREE                               
031263,000724: 24,3121           30155                          CAE      MPAC       +1                         #  (LESS THAN 6 (OR 4) SECONDS TO GO)
031264,000725: 24,3122           00006                          EXTEND                                         
031265,000726: 24,3123           63125                          BZMF     +2                                    
031266,000727: 24,3124           13126                          TCF      +2                                    
031267,000728: 24,3125           34770                          CAF      ONE                                   
031268,000729: 24,3126           55430                          TS       TGO        +1                         
031269,000730: 24,3127           05223                          TC       TWIDDLE                               
031270,000731: 24,3130           03023                          ADRES    ENGINOFF                              
031271,000732: 24,3131           05362                          TC       2PHSCHNG                              
031272,000733: 24,3132           40053                          OCT      40053                                 #  A,3.5 = ENGINOFF (TGO+1)....NOTE GROUP
031273,000734: 24,3133           10035                          OCT      10035                                 #  B, 5.3 = REREADAC, AND START BELOW
031274,000735: 24,3134  01,2063               3P5SPT2           =        3.5SPOT                               
031275,000736: 24,3134  01,2250               5P3SPT2           =        5.3SPOT                               
031276,000737: 24,3134           05561        CLEARSTR          TC       DOWNFLAG                              #  CLEAR IMPULSW, ENGINOFF IS NOW SET UP
031277,000738: 24,3135           00042                          ADRES    STEERSW                               #  RESTARTS OK
031278,000739: 24,3136           13614                          TCF      SERVXT                                
031279,000740: 
031280,000741: 24,3137           77776        INCRSVG           EXIT                                           #  ALARM INDICATING THAT THRUST IS POINTING
031281,000742: 24,3140           05671                          TC       ALARM                                 #  IN WRONG DIRECTION.
031282,000743: 24,3141           01407                          OCT      01407                                 
031283,000744: 24,3142           13614                          TCF      SERVXT                                
031284,000745: 
031285,000746: 24,3143                                          COUNT*   $$/R40                                
031286,000747: 24,3143           77614        LOTHRUST          BOFF                                           
031287,000748: 24,3144           01344                                   STEERSW                               
031288,000749: 24,3145           51603                                   SERVXT1                               #  NO STEERING. EXIT
031289,000750: 24,3146           77214        R40CHECK          BON      VLOAD                                 #  THRUST FAILURE (LO-OR-NO) INDICATED
031290,000751: 24,3147           00711                                   IDLEFAIL                              #  SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
031291,000752: 24,3150           51603                                   SERVXT1                               #  UNFAVORABLE STEERING SYNCH
031292,000753: 24,3151           15336        R40START                   HI6ZEROS                              #  START OF ENGINE-FAIL (R40) OPERATIONS
031293,000754: 24,3152           03126                          STORE    OMEGAC                                #  PUT TVC IN ATTITUDE HOLD
031294,000755:                                                                                                 # # Page 707
031295,000756: 24,3153           77776                          EXIT                                           
031296,000757: 24,3154  E6,1465                                 EBANK=   DAPDATR1                              
031297,000758: 24,3154           44772                          CS       ZERO                                  
031298,000759: 24,3155           55633                          TS       REPFRAC                               #  KILL TVCDAP CG TRIM TRACKING
031299,000760: 24,3156           54777                          TS       NVWORD1                               #  SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
031300,000761: 24,3157           13134                          TCF      CLEARSTR                              
031301,000762: 
031302,000763:                                                                                                 # # Page 708
031303,000764: 24,3160                                          COUNT*   $$/P40                                
031304,000765: 24,3160           00004                 -1       INHINT                                         
031305,000766: 24,3161           43520        TVCZAP            CS       OCT02202                              #  DISABLE TVC AND OPT ERR CNTRLS, REENGAGE
031306,000767: 24,3162           00006                          EXTEND                                         #         OPTICS DAC
031307,000768: 24,3163           03012                          WAND     CHAN12                                
031308,000769: 24,3164           44770                          CS       BIT1                                  #  ENABLE T4RUPT OPTICS MONITOR....PERMIT
031309,000770: 24,3165           55323                          TS       OPTIND                                #         OPTICS-ZERO BUT NOT OPTICS-DRIVE
031310,000771: 24,3166           34772                          CAF      ZERO                                  #  CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
031311,000772: 24,3167           54777                          TS       NVWORD1                               
031312,000773: 24,3170           44756                          CS       TIMRBIT                               #  CLEAR TIMRFLAG TO STOP CLOKTASK
031313,000774: 24,3171           70103                          MASK     FLAGWRD7                              
031314,000775: 24,3172           54103                          TS       FLAGWRD7                              
031315,000776: 24,3173           00002                          TC       Q                                     
031316,000777: 
031317,000778: 24,3174  E6,1465                                 EBANK=   DAPDATR1                              
031318,000779: 24,3174           33515        POSTBURN          CAF      V16N40                                #  NOVAC, PRIO 12
031319,000780: 24,3175           04636                          TC       BANKCALL                              
031320,000781: 24,3176           20716                          CADR     REFLASH                               
031321,000782: 24,3177           13403                          TCF      POST41                                #  V34 GO FINISH
031322,000783: 24,3200           13441                          TCF      P40RCS                                #  PROCEED
031323,000784: 24,3201           13174                          TCF      POSTBURN                              #  RECYCLE
031324,000785: 
031325,000786: 24,3202  E6,1465                                 EBANK=   DAPDATR1                              
031326,000787: 24,3202           00004                 -1       INHINT                                         
031327,000788: 24,3203           30032        SETMINDB          CA       CDUX                                  #  ROUTINE FOR SETTING
031328,000789: 24,3204           55572                          TS       THETADX                               #  THE MINIMUM DEADBAND
031329,000790: 24,3205           00006                          EXTEND                                         #  IN AUTOPILOT
031330,000791: 24,3206           30034                          DCA      CDUY                                  
031331,000792: 24,3207           53574                          DXCH     THETADY                               
031332,000793: 24,3210           35007                          CA       MINDB                                 #  SHOULD BE CALLED UNDER
031333,000794: 24,3211           55655                          TS       ADB                                   #  INTERRUPT INHIBITED
031334,000795: 24,3212           44765                          CS       BIT4                                  #  EBANK = E6
031335,000796: 24,3213           71465                          MASK     DAPDATR1                              
031336,000797: 24,3214           55465                          TS       DAPDATR1                              
031337,000798: 24,3215           00002                          TC       Q                                     
031338,000799: 
031339,000800: 24,3216  E6,1465                                 EBANK=   DAPDATR1                              
031340,000801: 24,3216           00004                 -1       INHINT                                         
031341,000802: 24,3217           33521        SETMAXDB          CA       MAXDB                                 #  ROUTINE FOR SETTING
031342,000803: 24,3220           55655                          TS       ADB                                   #  THE MAXIMUM DEADBAND IN AUTOPILOT
031343,000804: 24,3221           41465                          CS       DAPDATR1                              
031344,000805: 24,3222           74765                          MASK     BIT4                                  #  SHOULD BE CALLED UNDER
031345,000806: 24,3223           27465                          ADS      DAPDATR1                              #  INTERRUPT INHIBITED
031346,000807: 24,3224           00002                          TC       Q                                     #  EBANK = E6
031347,000808: 
031348,000809:                                                                                                 # # Page 709
031349,000810: 24,3225  E7,1412                                 EBANK=   TIG                                   
031350,000811: 24,3225           34756        CLOKTASK          CAF      TIMRBIT                               #  IS TIMRFLAG SET
031351,000812: 24,3226           70103                          MASK     FLAGWRD7                              
031352,000813: 24,3227           10000                          CCS      A                                     
031353,000814: 24,3230           13234                          TCF      CLOCKON                               
031354,000815: 24,3231           05402                          TC       PHASCHNG                              
031355,000816: 24,3232           00006                          OCT      00006                                 #  KILL RESTART
031356,000817: 24,3233           05314                          TC       TASKOVER                              
031357,000818: 24,3234           00006        CLOCKON           EXTEND                                         
031358,000819: 24,3235           30025                          DCA      TIME2                                 
031359,000820: 24,3236           53661                          DXCH     TTOGO                                 
031360,000821: 24,3237           00006                          EXTEND                                         
031361,000822: 24,3240           41413                          DCS      TIG                                   
031362,000823: 24,3241           21661                          DAS      TTOGO                                 
031363,000824: 24,3242           35016        SETCLOCK          CAF      1SEC                                  
031364,000825: 24,3243           05223                          TC       TWIDDLE                               
031365,000826: 24,3244           03225                          ADRES    CLOKTASK                              
031366,000827: 24,3245           10777                          CCS      NVWORD1                               
031367,000828: 24,3246           13251                          TCF      +3                                    
031368,000829: 24,3247           13261                          TCF      SETTB6                                
031369,000830: 24,3250           13251                          TCF      +1                                    
031370,000831: 24,3251           43511                          CS       V06N85B                               #  CHECK FOR V06N85B (P41)
031371,000832: 24,3252           60777                          AD       NVWORD1                               
031372,000833: 24,3253           00006                          EXTEND                                         
031373,000834: 24,3254           13264                          BZF      SETUPDYN                              #  V06N85, SO UPDATE N85 FOR DYNAMIC DISP
031374,000835: 24,3255           37651                          CAF      PRIO27                                
031375,000836: 24,3256           05121                          TC       NOVAC                                 
031376,000837: 24,3257  E6,1465                                 EBANK=   DAPDATR1                              
031377,000838: 24,3257           03276 50066                    2CADR    CLOCKJOB                              
031378,000839: 
031379,000840: 24,3261           40025        SETTB6            CS       TIME1                                 #  SET GROUP6 TIMEBASE
031380,000841: 24,3262           55271                          TS       TBASE6                                
031381,000842: 24,3263           15314                          TCF      TASKOVER                              
031382,000843: 
031383,000844: 24,3264           37651        SETUPDYN          CAF      PRIO27                                #  SET UP A JOB TO UPDATE N85 (FOR P41=V06)
031384,000845: 24,3265           05135                          TC       FINDVAC                               
031385,000846: 24,3266  E6,1465                                 EBANK=   DAPDATR1                              
031386,000847: 24,3266           03271 50066                    2CADR    DYNDISP                               
031387,000848: 
031388,000849: 24,3270           13261                          TCF      SETTB6                                #  CLOSE OUT CLOCKTASK
031389,000850: 
031390,000851: 24,3271           06006        DYNDISP           TC       INTPRET                               #  UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
031391,000852: 24,3272           77624                          CALL                                           #         PRIOR TO BLANKING AND AVEG (V16N85)
031392,000853: 24,3273           51651                                   P40CNV85                              
031393,000854: 24,3274           77776                          EXIT                                           
031394,000855: 24,3275           13306                          TCF      CKNVWRD1                              
031395,000856: 
031396,000857:                                                                                                 # # Page 710
031397,000858: 24,3276  E6,1465                                 EBANK=   DAPDATR1                              
031398,000859: 24,3276           30032        CLOCKJOB          CA       CDUX                                  #  NOVAC, PRIO27
031399,000860: 24,3277           55175                          TS       CDUSPOTX                              
031400,000861: 24,3300           30033                          CA       CDUY                                  
031401,000862: 24,3301           55171                          TS       CDUSPOTY                              
031402,000863: 24,3302           30034                          CA       CDUZ                                  
031403,000864: 24,3303           55173                          TS       CDUSPOTZ                              
031404,000865: 24,3304           04636                          TC       BANKCALL                              
031405,000866: 24,3305           47602                          CADR     QUICTRIG                              
031406,000867: 24,3306           00004        CKNVWRD1          INHINT                                         
031407,000868: 24,3307           10777                          CCS      NVWORD1                               #  DETERMINE FUNCTION, INDICATED BY NVWORD1
031408,000869: 24,3310           13466                          TCF      NOFLASH                               
031409,000870: 24,3311           15205                          TCF      ENDOFJOB                              
031410,000871: 24,3312           13427                          TCF      ENGREQST                              
031411,000872: 24,3313           33514        FAILDSP           CAF      V06N40                                #  SPS ENGINE FAILED - FLASH V97
031412,000873: 24,3314           04636                          TC       BANKCALL                              
031413,000874: 24,3315           20727                          CADR     CLOCPLAY                              
031414,000875: 24,3316           13363                          TCF      V97T                                  #  TERMINATE
031415,000876: 24,3317           13407                          TCF      V97P                                  #  PROCEED
031416,000877: 24,3320           05402        V97E              TC       PHASCHNG                              #  ENTER
031417,000878: 24,3321           00534                          OCT      00534                                 #  A, 4.53 = V97EJOB (PRIO 30 NOVAC)
031418,000879: 24,3322  01,2220               4P53SPT1          =        4.53SPOT                              
031419,000880:                                                                                                 #  IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
031420,000881: 24,3322           33514        V97EJOB           CAF      V06N40                                #  REDISPLAY V06N40
031421,000882: 24,3323           54777                          TS       NVWORD1                               
031422,000883: 24,3324           04606                          TCR      E7SETTER                              
031423,000884: 24,3325  E7,1412                                 EBANK=   TIG                                   
031424,000885: 24,3325           44124                          CS       OCT24                                 #  FORCE R1 OF V06N40 TO READ  59X59
031425,000886: 24,3326           55412                          TS       TIG                                   
031426,000887: 24,3327           04611                          TCR      E6SETTER                              
031427,000888: 24,3330  E6,1473                                 EBANK=   CSMMASS                               
031428,000889: 24,3330           03045        SPSOFF97          TCR      SPSOFF                                
031429,000890: 24,3331           33526                          CAF      SEC2.5                                #  DELAY 2.5 SECONDS FOR POSSIBLE TAILOFF
031430,000891: 24,3332           04636                          TC       BANKCALL                              
031431,000892: 24,3333           01731                          CADR     DELAYJOB                              #  **** RESTART CAN DOUBLE DELAY ****
031432,000893:                                                                                                 #  **** RESTART WILL ALTER TEVENT ****
031433,000894: 24,3334           34770        V97E40.6          CAF      BIT1                                  
031434,000895: 24,3335           05233                          TC       WAITLIST                              
031435,000896: 24,3336  E6,1446                                 EBANK=   CNTR                                  
031436,000897: 24,3336           02355 40066                    2CADR    PRE40.6                               #  USE S40.6 RESTART ENTRY TO TRIM ENGINE
031437,000898: 
031438,000899: 24,3340           04714                          TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031439,000900: 24,3341           42042                          CADR     RCSDAPON                              #         KILL TVCEXEC/TVCROLLDAP STARTS.
031440,000901:                                                                                                 #         LEAVE NARROW DEADBAND FOR REIGNITE.
031441,000902: 24,3342           05362                          TC       2PHSCHNG                              
031442,000903: 24,3343           00026                          OCT      00026                                 #  A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
031443,000904: 24,3344           05024                          OCT      05024                                 #  NOVAC BELOW, PRIO NEXT
031444,000905: 24,3345           50777                          OCT      50777                                 #  PRIO 27 NOVAC
031445,000906:                                                                                                 # # Page 711
031446,000907: 24,3346  01,2317               6P2SPT2           =        6.2SPOT                               
031447,000908: 24,3346           05561        QUICKIGN          TC       DOWNFLAG                              #  CLEAR ASTNFLAG AND SET IGNFLAG FOR
031448,000909: 24,3347           00154                          ADRES    ASTNFLAG                              
031449,000910: 24,3350           05547                          TC       UPFLAG                                #  AND SET IGNFLAG
031450,000911: 24,3351           00153                          ADRES    IGNFLAG                               #  FOR IMMEDIATE V99 RESPONSE
031451,000912: 24,3352           44760        V99FLASH          CS       BIT9                                  #  CAUSE V99 TO FLASH
031452,000913: 24,3353           54777                          TS       NVWORD1                               
031453,000914: 24,3354           05362                          TC       2PHSCHNG                              
031454,000915: 24,3355           40114                          OCT      40114                                 #  A, 4.11 = TIG-0 (-0 CS) TBASE FOR PREPTVC
031455,000916: 24,3356           00033                          OCT      00033                                 #  A, 3.3 = S40.13 (PRIO 20)
031456,000917: 24,3357  01,2060               3P3SPT2           =        3.3SPOT                               
031457,000918: 24,3357  01,2135               4P11SPT1          =        4.11SPOT                              
031458,000919: 24,3357           05134                          TC       FINVAC20                              #  SET UP TIMEBURN
031459,000920: 24,3360  E7,1427                                 EBANK=   TGO                                   
031460,000921: 24,3360           02534 34067                    2CADR    S40.13                                
031461,000922: 
031462,000923: 24,3362           15205        ENDV97E           TCF      ENDOFJOB                              #  WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
031463,000924: 
031464,000925: 24,3363  E6,1473                                 EBANK=   CSMMASS                               
031465,000926: 24,3363           05402        V97T              TC       PHASCHNG                              #  KILL CLOKTASK
031466,000927: 24,3364           00076                          OCT      00076                                 #  A, 6.7 = V97TJOB (PRIO 27 NOVAC)
031467,000928: 24,3365  01,2333               6P7SPT1           =        6.7SPOT                               
031468,000929: 24,3365           34772        V97TJOB           CAF      ZERO                                  #  DISABLE CLOCKJOB
031469,000930: 24,3366           54777                          TS       NVWORD1                               
031470,000931: 24,3367           03045                          TCR      SPSOFF                                #  SHUTDOWN SPS ENGINE
031471,000932: 24,3370           33526                          CAF      SEC2.5                                #  DELAY 2.5 SECS FOR POSSIBLE TAILOFF :
031472,000933: 24,3371           04636                          TC       BANKCALL                              #  FALSE THRUST LOSS
031473,000934: 24,3372           01731                          CADR     DELAYJOB                              #  **** RESTART CAN DOUBLE DELAY ****
031474,000935:                                                                                                 #  **** RESTART WILL ALTER TEVENT ****
031475,000936: 24,3373           00004                          INHINT                                         
031476,000937: 24,3374           04714        V97TRCS           TC       IBNKCALL                              #  RCS DAP IN 0.6SEC, SETTING T5 BITS TO
031477,000938: 24,3375           42042                          CADR     RCSDAPON                              #         KILL TVCEXEC/TVCROLLDAP STARTS
031478,000939: 24,3376           05362        V99T              TC       2PHSCHNG                              #  (ENTRY FROM V97T FLOW TOO)
031479,000940: 24,3377           00006                          OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031480,000941: 24,3400           05024                          OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031481,000942: 24,3401           50777                          OCT      50777                                 #  PRIO 27 NOVAC
031482,000943: 24,3402           03160        V99TJOB           TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031483,000944: 24,3403           00006        POST41            EXTEND                                         
031484,000945: 24,3404           33554                          DCA      SERVCADR                              
031485,000946: 24,3405           53062                          DXCH     AVEGEXIT                              
031486,000947: 24,3406           14103                          TCF      GOTOPOOH                              
031487,000948: 
031488,000949: 24,3407  E6,1473                                 EBANK=   CSMMASS                               
031489,000950: 24,3407           05402        V97P              TC       PHASCHNG                              
031490,000951: 24,3410           00134                          OCT      00134                                 #  A, 4.13 = V97PJOB (PRIO 30 NOVAC)
031491,000952: 24,3411  01,2140               4P13SPT1          =        4.13SPOT                              
031492,000953:                                                                                                 #  IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
031493,000954: 24,3411           33514        V97PJOB           CAF      V06N40                                #  REDISPLAY V06N40
031494,000955: 24,3412           54777                          TS       NVWORD1                               
031495,000956: 24,3413           05547                          TC       UPFLAG                                #  SET IDLEFAIL TO ALLOW R41-BYPASS, IN
031496,000957:                                                                                                 # # Page 712
031497,000958: 24,3414           00030                          ADRES    IDLEFAIL                              #         CASE OF UNFAVORABLE STEERING SYNCH
031498,000959: 24,3415           05547                          TC       UPFLAG                                #  SET STEERSW TO RE-ENABLE STEERING
031499,000960: 24,3416           00042                          ADRES    STEERSW                               
031500,000961: 24,3417           35017                          CAF      2SECS                                 
031501,000962: 24,3420           04636                          TC       BANKCALL                              
031502,000963: 24,3421           01731                          CADR     DELAYJOB                              #  WAIT 2 SECONDS
031503,000964:                                                                                                 #  **** RESTART CAN DOUBLE DELAY ****
031504,000965:                                                                                                 #  **** RESTART WILL ALTER TEVENT ****
031505,000966: 24,3422           05561        R40ENABL          TC       DOWNFLAG                              #  RE-ENABLE R40 BY CLEARING IDLEFAIL
031506,000967: 24,3423           00030                          ADRES    IDLEFAIL                              
031507,000968: 24,3424           05402                          TC       PHASCHNG                              
031508,000969: 24,3425           00004                          OCT      00004                                 #  KILL GROUP 4
031509,000970: 24,3426           15205        ENDV97P           TCF      ENDOFJOB                              
031510,000971: 
031511,000972: 
031512,000973: 24,3427           33514        ENGREQST          CAF      V06N40                                
031513,000974: 24,3430           04636                          TC       BANKCALL                              
031514,000975: 24,3431           20727                          CADR     CLOCPLAY                              
031515,000976: 24,3432           13376                          TCF      V99T                                  #  TERMINATE
031516,000977: 24,3433           13471                          TCF      V99P                                  #  PROCEED
031517,000978: 24,3434           05362        V99E              TC       2PHSCHNG                              #  ENTER
031518,000979: 24,3435           00006                          OCT      00006                                 #  KILL PRE40.6/CLOKTASK PROTECTION
031519,000980: 24,3436           05024                          OCT      05024                                 #  C, PRIORITY NEXT, JOB BELOW
031520,000981: 24,3437           50777                          OCT      50777                                 #  PRIO 27 NOVAC
031521,000982: 24,3440           03160        V99EJOB           TCR      TVCZAP     -1                         #  WIPE OUT TVC, CLOKTASK
031522,000983: 24,3441           00006        P40RCS            EXTEND                                         #  V16N40 ENTERS HERE
031523,000984: 24,3442           33556                          DCA      ACADN85                               
031524,000985: 24,3443           53062                          DXCH     AVEGEXIT                              
031525,000986: 24,3444           35017                          CAF      2SECS                                 
031526,000987: 24,3445           04636                          TC       BANKCALL                              
031527,000988: 24,3446           01731                          CADR     DELAYJOB                              
031528,000989: 24,3447           03202        P40MINDB          TCR      SETMINDB   -1                         
031529,000990: 24,3450           00003                          RELINT                                         
031530,000991: 24,3451           05402        TIGNOW            TC       PHASCHNG                              
031531,000992: 24,3452           05024                          OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 85
031532,000993: 24,3453           57777                          OCT      57777                                 #  PRIO 20 NOVAC
031533,000994: 24,3454           33512                          CAF      V16N85B                               
031534,000995: 24,3455           04636                          TC       BANKCALL                              
031535,000996: 24,3456           20716                          CADR     REFLASH                               
031536,000997: 24,3457           13403                          TCF      POST41                                #  FINISH P40/P41
031537,000998: 24,3460           13462                          TCF      MNKPST41                              
031538,000999: 24,3461           13451                          TCF      TIGNOW                                #  V32 NOT GSOP RESPONSE BUT REDISPLAY N85
031539,001000: 
031540,001001: 24,3462           00006        MNKPST41          EXTEND                                         
031541,001002: 24,3463           33554                          DCA      SERVCADR                              
031542,001003: 24,3464           53062                          DXCH     AVEGEXIT                              
031543,001004: 24,3465           14105                          TCF      MNKGOPOO                              
031544,001005: 
031545,001006: 24,3466           30777        NOFLASH           CAE      NVWORD1                               #  DISPLAY NVWORD1 NORMALLY
031546,001007: 24,3467           04636                          TC       BANKCALL                              
031547,001008:                                                                                                 # # Page 713
031548,001009: 24,3470           20721                          CADR     REGODSP                               
031549,001010: 
031550,001011:    4000                                          SETLOC   FFTAG12                               
031551,001012:    4000                                          BANK                                           
031552,001013: 
031553,001014:    4606                                          COUNT*   $$/R40                                
031554,001015:    4606           35046        E7SETTER          CAF      EBANK7                                
031555,001016:    4607           56003                          XCH      EBANK                                 
031556,001017:    4610  E7,1412                                 EBANK=   TIG                                   
031557,001018:    4610           00002                          TC       Q                                     
031558,001019: 
031559,001020:    4611           35045        E6SETTER          CAF      EBANK6                                #  SET UP EBANK6
031560,001021:    4612           56003                          XCH      EBANK                                 
031561,001022:    4613  E6,1465                                 EBANK=   DAPDATR1                              
031562,001023:    4613           00002                          TC       Q                                     
031563,001024: 
031564,001025: 24,2000                                          SETLOC   P40S                                  
031565,001026: 24,2000                                          BANK                                           
031566,001027: 
031567,001028: 24,3471                                          COUNT*   $$/R40                                
031568,001029: 24,3471  E6,1465                                 EBANK=   DAPDATR1                              
031569,001030: 24,3471           00004        V99P              INHINT                                         
031570,001031: 24,3472           30103                          CAE      FLAGWRD7                              #  CHECK ASTN FLAG FOR PRIOR V99P
031571,001032: 24,3473           74755                          MASK     ASTNBIT                               
031572,001033: 24,3474           10000                          CCS      A                                     
031573,001034: 24,3475           13506                          TCF      V99P/TIG                              #  YES, THIS MUST BE A RESTART ENTRY
031574,001035: 
031575,001036: 24,3476           34755        ASTNV99P          CAF      ASTNBIT                               #  SET ASTNFLAG
031576,001037: 24,3477           26103                          ADS      FLAGWRD7                              
031577,001038: 24,3500           30103                          CAE      FLAGWRD7                              #  CHECK IGN FLAG FOR TIG-0 ARRIVAL
031578,001039: 24,3501           74754                          MASK     IGNFLBIT                              
031579,001040: 24,3502           00006                          EXTEND                                         
031580,001041: 24,3503           13506                          BZF      V99P/TIG                              #  NO, CLEAR THE V99 AND WAIT FOR TIG-0
031581,001042: 
031582,001043: 24,3504           05222        ENDV99P1          TC       TWIDBIT1                              #  TIG-0 HAS COME ALREADY SET UP IGNTN HERE
031583,001044: 24,3505           02664                          ADRES    IGNITION                              
031584,001045: 24,3506           33514        V99P/TIG          CAF      V06N40                                #  CLEAR THE V99 FLASH AND WAIT FOR TIG-0
031585,001046: 24,3507           54777                          TS       NVWORD1                               
031586,001047: 24,3510           15205        ENDV99P           TCF      ENDOFJOB                              
031587,001048: 
031588,001049: 24,3511                                          COUNT*   $$/P40                                
031589,001050:                                                                                                 # # Page 714
031590,001051: 24,3511           01525        V06N85B           VN       0685                                  
031591,001052: 24,3512           04125        V16N85B           VN       1685                                  
031592,001053: 24,3513           01537        V06N95B           VN       0695                                  
031593,001054: 24,3514           01450        V06N40            VN       0640                                  
031594,001055: 24,3515           04050        V16N40            VN       1640                                  
031595,001056: 24,3516           04123        V1683             VN       1683                                  
031596,001057: 24,3517     4355               OCT12             =        TEN                                   
031597,001058: 24,3517           00204        P40CKLS2          OCT      204                                   
031598,001059: 24,3520     4615               OCT27/24          =        VBSP3LD                               
031599,001060: 24,3520           02202        OCT02202          OCT      02202                                 #  BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
031600,001061:                                                                                                 # MINDB           DEC     46
031601,001062: 24,3521           00707        MAXDB             DEC      455        B-14                       
031602,001063: 24,3522           04700        SEC24.96          DEC      2496       B-14                       
031603,001064: 24,3523           03410        18SEC             DEC      1800       B-14                       
031604,001065: 24,3524           00000        5SECDP            DEC      0          B-14                       #  MAKE DP 5SEC
031605,001066: 24,3525           00764        5SEC              DEC      500        B-14                       
031606,001067: 24,3526           00372        SEC2.5            DEC      250        B-14                       
031607,001068: 24,3527           00000 05664  SEC29.96          2DEC     2996       B-28                       
031608,001069: 24,3531           02217 06650  FENG              2DEC     9.1188544  B-7                        #  SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
031609,001070: 
031610,001071: 24,3533           00013 06112  FRCS2             2DEC     .087437837 B-7                        #  RCS ULLAGE (199.6COS10 LBS), SC.AT
031611,001072:                                                                                                 #         B+7 NEWTONS/E+4
031612,001073: 24,3535           04000 00000  EP4(45)H          2DEC     .125                                  
031613,001074: 
031614,001075: 24,3537           00707 03434  EP4(10)H          2DEC     .027777777                            
031615,001076: 
031616,001077: 24,3541           21215 12215  TRIMSCAL          2DEC     1.07975111 B-1                        
031617,001078: 
031618,001079: 24,3543           00053 07423  YBIAS             2DEC     +.00263888889                            #  YAW    MECH BIAS (+0.95 DEG, THRUST ON)
031619,001080: 
031620,001081: 24,3545           77636 44653  PBIAS             2DEC     -.00597222222                            #  PITCH  MECH BIAS (-2.15 DEG, THRUST ON)
031621,001082: 
031622,001083:                                                                                                 #  REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
031623,001084: 24,3547  E6,1465                                 EBANK=   DAPDATR1                              
031624,001085: 24,3547           03226 12066  T5IDL24           2CADR    T5IDLOC                               
031625,001086: 
031626,001087: 24,3551  E7,1412                                 EBANK=   TIG                                   
031627,001088: 24,3551           03706 50067  ACADN83           2CADR    CALCN83                               
031628,001089: 
031629,001090: 24,3553  E7,1412                                 EBANK=   TIG                                   
031630,001091: 24,3553           03143 76067  SERVCADR          2CADR    SERVEXIT                              
031631,001092: 
031632,001093: 24,3555  E6,1465                                 EBANK=   DAPDATR1                              
031633,001094: 24,3555           03576 50066  ACADN85           2CADR    CALCN85                               
031634,001095: 
031635,001096: 24,3557  E6,1465                                 EBANK=   DAPDATR1                              
031636,001097: 24,3557           02176 34066  S40.8ADS          2CADR    S40.8                                 
031637,001098: 
031638,001099:                                                                                                 # # Page 715
031639,001100: 24,3561  E6,1465                                 EBANK=   DAPDATR1                              
031640,001101: 24,3561           02163 36066  TVCON2C           2CADR    TVCDAPON                              
031641,001102: 
031642,001103:                                                                                                 # # Page 716
031643,001104: 30,2000                                          SETLOC   P40S3                                 
031644,001105: 30,2000                                          BANK                                           
031645,001106: 30,3650                                          COUNT*   $$/P40                                
031646,001107: 30,3650           45020        AGAIN             STQ      CALL                                  
031647,001108: 30,3651           03730                                   QTEMP1                                
031648,001109: 30,3652           27145                                   THISPREC                              
031649,001110: 30,3653           66134                          SXA,2    SXA,1                                 
031650,001111: 30,3654           03746                                   RTX2                                  
031651,001112: 30,3655           03745                                   RTX1                                  
031652,001113: 30,3656           40375                          VLOAD    SETPD                                 
031653,001114: 30,3657           00001                                   RATT                                  
031654,001115: 30,3660           00001                                   00D                                   
031655,001116: 30,3661           03632                          STORE    RTIG                                  
031656,001117: 30,3662           27570                          STOVL    RINIT                                 
031657,001118: 30,3663           00007                                   VATT                                  
031658,001119: 30,3664           03640                          STORE    VTIG                                  
031659,001120: 30,3665           03576                          STORE    VINIT                                 
031660,001121: 30,3666           65335                          SLOAD    PDDL                                  
031661,001122: 30,3667           15336                                   HI6ZEROS                              
031662,001123: 30,3670           11536                                   EP4(45)H                              
031663,001124: 30,3671           71214                          BON      DLOAD                                 
031664,001125: 30,3672           03705                                   NORMSW                                
031665,001126: 30,3673           61675                                   +2                                    
031666,001127: 30,3674           11540                                   EP4(10)H                              
031667,001128: 30,3675           45006                          PUSH     CALL                                  
031668,001129: 30,3676           22000                                   INITVEL                               
031669,001130: 30,3677           52001                          SETPD    GOTO                                  
031670,001131: 30,3700           00001                                   0                                     
031671,001132: 30,3701           03730                                   QTEMP1                                
031672,001133: 
031673,001134: 30,3702           46145        TSTRXUT           DLOAD    BHIZ                                  
031674,001135: 30,3703           00045                                   36D                                   
031675,001136: 30,3704           61707                                   BADVCTOR                              
031676,001137: 30,3705           43575                          VLOAD    RVQ                                   
031677,001138: 30,3706           00007                                   6D                                    
031678,001139: 30,3707           53575        BADVCTOR          VLOAD    UNIT                                  
031679,001140: 30,3710           03632                                   RTIG                                  
031680,001141: 30,3711           53515                          PDVL     UNIT                                  
031681,001142: 30,3712           03640                                   VTIG                                  
031682,001143: 30,3713           53322                          VSR3     VAD                                   
031683,001144: 30,3714           53435                          VXV      UNIT                                  
031684,001145: 30,3715           03713                                   UT                                    
031685,001146: 30,3716           77676                          VCOMP                                          
031686,001147: 30,3717           00007                          STORE    6D                                    
031687,001148: 30,3720           77616                          RVQ                                            
031688,001149: 
031689,001150:                                                                                                 # # Page 717
031690,001151: 
031691,001152: 30,3721           67214        SETUP.9           BON      SLOAD                                 
031692,001153: 30,3722           01310                                   FIRSTFLG                              
031693,001154: 30,3723           61736                                   SURELY.9                              
031694,001155: 30,3724           03326                                   NBRCYCLP                              
031695,001156: 30,3725           74301                          NORM     VXSC                                  #  (NORM HANDLES ZERO PROPERLY)
031696,001157: 30,3726           00047                                   X1                                    
031697,001158: 30,3727           03705                                   BDT                                   
031698,001159: 30,3730           53257                          VSR*     VAD                                   
031699,001160: 30,3731           20563                                   0          -14D,1                     
031700,001161: 30,3732           03646                                   VGTEMP                                
031701,001162: 30,3733           77651                          VSU                                            
031702,001163: 30,3734           03327                                   DELVSUM                               
031703,001164: 30,3735           03721                          STORE    VGPREV                                
031704,001165: 30,3736           77776        SURELY.9          EXIT                                           
031705,001166: 30,3737           34754                          CAF      PRIO10                                
031706,001167: 30,3740           05135                          TC       FINDVAC                               
031707,001168: 30,3741  E6,1465                                 EBANK=   DAPDATR1                              
031708,001169: 30,3741           02400 34066                    2CADR    S40.9                                 
031709,001170: 
031710,001171: 30,3743           05362                          TC       2PHSCHNG                              
031711,001172: 30,3744           00051                          OCT      00051                                 #  A, 1.5 = REDO40.9, PRIO 10
031712,001173: 30,3745           10035                          OCT      10035                                 
031713,001174: 30,3746  01,2017               1P5SPT1           =        1.5SPOT                               
031714,001175: 30,3746  01,2250               5P3SPT3           =        5.3SPOT                               
031715,001176: 30,3746           06006                          TC       INTPRET                               
031716,001177: 30,3747           77775                          VLOAD                                          
031717,001178: 30,3750           01030                                   RN                                    #  ACTIVE VEHICLE RADIUS VECTOR AT T1
031718,001179: 30,3751           27570                          STOVL    RINIT                                 
031719,001180: 30,3752           01036                                   VN                                    #  ACTIVE VEHICLE VELOCITY VECTOR AT T1
031720,001181: 30,3753           17576                          STODL    VINIT                                 
031721,001182: 30,3754           01044                                   PIPTIME                               
031722,001183: 30,3755           03474                          STORE    TNIT                                  
031723,001184: 30,3756           77621                          BDSU                                           
031724,001185: 30,3757           03656                                   TPASS4                                
031725,001186: 30,3760           27423                          STOVL    DELLT4                                
031726,001187: 30,3761           15336                                   HI6ZEROS                              
031727,001188: 30,3762           17327                          STODL    DELVSUM                               
031728,001189: 30,3763           15336                                   HI6ZEROS                              
031729,001190: 30,3764           03325                          STORE    NBRCYCLS                              
031730,001191: 30,3765           77650                          GOTO                                           
031731,001192: 30,3766           34360                                   VGCOMP                                
031732,001193: 
031733,001194:                                                                                                 # # Page 718
031734,001195:                                                                                                 #  NAME           S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
031735,001196: 
031736,001197:                                                                                                 #  FUNCTIONAL DESCRIPTION
031737,001198:                                                                                                 #         GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
031738,001199:                                                                                                 #                 INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
031739,001200:                                                                                                 #                 OF GIMBAL MOTION ON GPI
031740,001201:                                                                                                 #         GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
031741,001202:                                                                                                 #                 PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
031742,001203:                                                                                                 #         PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
031743,001204:                                                                                                 #                 IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
031744,001205:                                                                                                 #                 BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
031745,001206:                                                                                                 #                 IF TVC IS ON (TVCDAPON OR LATER)  THEN REDOTVC WILL TAKE CARE
031746,001207:                                                                                                 #                 OF RESTARTING ACTUATORS.
031747,001208: 
031748,001209:                                                                                                 #  CALLING SEQUENCE....
031749,001210:                                                                                                 #         WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
031750,001211: 
031751,001212:                                                                                                 #  NORMAL EXIT MODE - FIXDELAY, TASKOVER
031752,001213: 
031753,001214:                                                                                                 #  SUBROUTINES CALLED....
031754,001215:                                                                                                 #         FIXDELAY
031755,001216: 
031756,001217:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
031757,001218:                                                                                                 #         CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM.
031758,001219:                                                                                                 #         MRKRTMP....POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
031759,001220:                                                                                                 #                    NEGATIVE FOR GIMBAL TRIM ONLY
031760,001221:                                                                                                 #         PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
031761,001222:                                                                                                 #         "SC CONT" SWITCH AT "CMC" (A/P CONTROL SWITCH AT "GNC")
031762,001223:                                                                                                 #         ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
031763,001224: 
031764,001225:                                                                                                 #  OUTPUT
031765,001226:                                                                                                 #         TVCYAW, TVCPITCH (BITS RELEASED)
031766,001227:                                                                                                 #         TVC ENABLE  AND  OPTICS ERROR COUNTER ENABLE
031767,001228: 
031768,001229: 20,2000                                          SETLOC   DAPS6                                 
031769,001230: 20,2000                                          BANK                                           
031770,001231: 20,2355  E6,1446                                 EBANK=   CNTR                                  
031771,001232: 20,2355                                          COUNT*   $$/S40.6                              
031772,001233: 20,2355           40102        PRE40.6           CS       FLAGWRD6                              #  RESTART ENTRY TO S40.6 (DO NOT PERMIT
031773,001234: 20,2356           74076                          MASK     DPCONFIG                              #  IF TVC, BITS 15,14 = 1,0)
031774,001235: 20,2357           00006                          EXTEND                                         
031775,001236: 20,2360           62362                          BZMF     +2                                    
031776,001237: 20,2361           15314                          TCF      TASKOVER                              #  TVC, REDOTVC WILL REESTABLISH INTERFACE
031777,001238: 20,2362           44770                          CS       BIT1                                  #  RCS, SO DO S40.6, GIMTRIM ONLY
031778,001239: 20,2363           55444                          TS       MRKRTMP                               
031779,001240: 20,2364           34770                          CAF      BIT1                                  #  FOR REVISED S40.6 TIMING FOR RESTARTS...
031780,001241: 20,2365           55446                          TS       CNTR                                  #  TO INDICATE A RESTART ENTRY (CNTR 1S
031781,001242:                                                                                                 #         NORMALLY +0, BY S40.6)
031782,001243: 20,2366  E6,1446                                 EBANK=   CNTR                                  
031783,001244: 20,2366           44772        S40.6             CS       ZERO                                  #  INHIBIT OPTICS ACTIVITY
031784,001245: 20,2367           55323                          TS       OPTIND                                
031785,001246: 20,2370           44767                          CS       BIT2                                  #  DISABLE OPTICS ERROR COUNTERS
031786,001247: 20,2371           00006                          EXTEND                                         
031787,001248: 20,2372           03012                          WAND     CHAN12                                
031788,001249: 
031789,001250: 20,2373           32460                          CAF      OCT02200                              #  TVC ENABLE (SPS SERVO AMPS SEE DAC
031790,001251:                                                                                                 # # Page 719
031791,001252: 20,2374           00006                          EXTEND                                         #         VOLTAGES) AND DISENGAGE OPTICS/DAC
031792,001253: 20,2375           05012                          WOR      CHAN12                                
031793,001254: 20,2376           05255                          TC       FIXDELAY                              #  60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
031794,001255: 20,2377           00006                          DEC      6          B-14                       #         RELAY LATCHING
031795,001256: 20,2400           34767                          CAF      BIT2                                  #  ENABLE OPTICS ERROR COUNTERS
031796,001257: 20,2401           00006                          EXTEND                                         
031797,001258: 20,2402           05012                          WOR      CHAN12                                
031798,001259: 20,2403           05255                          TC       FIXDELAY                              #  20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
031799,001260: 20,2404           00002                          DEC      2          B-14                       #         RELAY LATCHING
031800,001261: 20,2405           11446        RSTRTST           CCS      CNTR                                  #  CHECK FOR RESTART ENTRY (PRE40.6)
031801,001262: 20,2406           12446                          TCF      GIMTRIM    +2                         #  RESTART ENTRY....BYPASS 4 SECOND DELAY
031802,001263:                                                                                                 #         TST,TRIM SETS +0 ON NORMAL ENTRY                        
031803,001264: 20,2407           31444                          CAE      MRKRTMP                               #  CHECK FOR TEST/TRIM OR TRIM ONLY
031804,001265: 20,2410           55446                          TS       CNTR                                  #         MRKRTMP SAVES CNTR FOR RESTARTS
031805,001266: 20,2411           00006                          EXTEND                                         
031806,001267: 20,2412           62444                          BZMF     GIMTRIM                               #  (TRIM ONLY)
031807,001268: 20,2413           44772        GDTSETUP          CS       ZERO                                  #  GIMBAL DRIVE TEST SETUP, FOR PITCH
031808,001269: 20,2414           55446                          TS       CNTR                                  
031809,001270: 20,2415           32462        GIMDTEST          CAF      +2ACTDEG                              #  GIMBAL DRIVE TEST, 1ST INCREMENT
031810,001271: 20,2416           02431                          TC       OUTPUT                                #         (LEAVES GIMBAL AT +2 DEG)
031811,001272: 20,2417           32461                          CAF      -4ACTDEG                              #  2ND INCREMENT (LEAVES GIMBAL AT -2)
031812,001273: 20,2420           02431                          TC       OUTPUT                                
031813,001274: 20,2421           32462                          CAF      +2ACTDEG                              #  3RD INCREMENT (LEAVES GIMBAL AT -0)
031814,001275: 20,2422           02431                          TC       OUTPUT                                
031815,001276: 20,2423           41446                          CS       CNTR                                  #  CHECK FOR COMPLETION OF YAW TEST.
031816,001277: 20,2424           10000                          CCS      A                                     
031817,001278: 20,2425           12444                          TCF      GIMTRIM                               #  COMPLETED, GO TO GIMBAL TRIM ROUTINE
031818,001279: 20,2426           44770                          CS       BIT1                                  #  SET UP YAW TEST
031819,001280: 20,2427           55446                          TS       CNTR                                  
031820,001281: 20,2430           12415                          TCF      GIMDTEST                              #  FOR YAW TEST
031821,001282: 20,2431           00006        OUTPUT            EXTEND                                         #  OUTPUT THE INCREMENT....SAVE Q
031822,001283: 20,2432           23004                          QXCH     TEMPR60                               
031823,001284: 20,2433           51446                          INDEX    CNTR                                  
031824,001285: 20,2434           54054                          TS       TVCPITCH                              
031825,001286: 20,2435           51446                          INDEX    CNTR                                  
031826,001287: 20,2436           34756                          CAF      BIT11                                 
031827,001288: 20,2437           00006                          EXTEND                                         
031828,001289: 20,2440           05014                          WOR      CHAN14                                
031829,001290: 20,2441           05255                          TC       FIXDELAY                              #  WAIT 2SEC, WHILE ASTRONAUT VERIFIES
031830,001291: 20,2442           00310                          DEC      200        B-14                       #         GIMBAL MOTION ON GPI
031831,001292: 20,2443           01004                          TC       TEMPR60                               
031832,001293: 20,2444           05255        GIMTRIM           TC       FIXDELAY                              #  WAIT 4 SECONDS BEFORE GIMBAL TRIM
031833,001294: 20,2445           00620                          DEC      400        B-14                       
031834,001295: 20,2446           44772                 +2       CS       ZERO                                  #  PICK UP TRIM VALUES AND OUTPUT THEM
031835,001296: 20,2447           61423                          AD       PACTOFF                               #         (AVOID +0) ENTRY POINT FROM RSTRTST
031836,001297: 20,2450           54054                          TS       TVCPITCH                              #         ON A RESTART, TO AVOID 4SEC DELAY
031837,001298: 20,2451           44772                          CS       ZERO                                  
031838,001299: 20,2452           61424                          AD       YACTOFF                               
031839,001300: 20,2453           54053                          TS       TVCYAW                                
031840,001301: 20,2454           35050                          CAF      PRIO6                                 #  RELEASE THE COUNTERS, BITS 11,12
031841,001302:                                                                                                 # # Page 720
031842,001303: 20,2455           00006                          EXTEND                                         
031843,001304: 20,2456           05014                          WOR      CHAN14                                
031844,001305: 20,2457           15314        ENDS40.6          TCF      TASKOVER                              
031845,001306: 
031846,001307: 20,2460           02200        OCT02200          OCT      02200                                 #  BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
031847,001308: 20,2461           77527        -4ACTDEG          DEC      -168       B-14                       #  -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
031848,001309: 20,2462           00124        +2ACTDEG          DEC      +84        B-14                       #  +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
031849,001310: 
031850,001311: 
031851,001312: 27,2000                                          SETLOC   P40S5                                 
031852,001313: 27,2000                                          BANK                                           
031853,001314: 27,3032                                          COUNT*   $$/S41.1                              
031854,001315: 27,3032           45020        S41.1             STQ      CALL                                  
031855,001316: 27,3033           03657                                   QTEMP                                 
031856,001317: 27,3034           47530                                   CDUTRIG                               
031857,001318: 27,3035           77775                          VLOAD                                          
031858,001319: 27,3036           45121                          MXV      CALL                                  
031859,001320: 27,3037           01734                                   REFSMMAT                              
031860,001321: 27,3040           47633                                   *SMNB*                                
031861,001322: 27,3041           74321                          MXV      VXSC                                  
031862,001323: 27,3042           05014                                   QUADROT                               
031863,001324: 27,3043           17047                                   TENBNK14                              #  VG IN CONTROL COORD IN MPAC SCALED AT
031864,001325: 27,3044           52072                          VSL5     GOTO                                  #  VG IN CONTROL COORDS. IN MPAC AT 2(+7)
031865,001326: 27,3045           03657                                   QTEMP                                 
031866,001327: 27,3046           24000 00000  TENBNK14          2DEC     10.        B-4                        
031867,001328: 
031868,001329: 27,3050           00024 13714  THETACON          2DEC     .31830989  B-8                        
031869,001330: 
031870,001331: 
031871,001332:                                                                                                 #  CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP)
031872,001333: 
031873,001334: 20,2000                                          SETLOC   DAPS6                                 
031874,001335: 20,2000                                          BANK                                           
031875,001336: 20,2463                                          COUNT*   $$/S41.2                              
031876,001337: 20,2463           31465        S41.2             CA       DAPDATR1                              
031877,001338: 20,2464           76214                          MASK     THREE                                 
031878,001339: 20,2465           60000                          AD       A                                     
031879,001340: 20,2466           54774                          TS       RATEINDX                              
031880,001341: 20,2467           00004                          INHINT                                         
031881,001342: 20,2470           31465                          CAE      DAPDATR1                              #  IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
031882,001343: 20,2471           74346                          MASK     PRIO30                                #                         =10)
031883,001344: 20,2472           64751                          AD       -BIT14                                #  (OCT57777)
031884,001345: 20,2473           00006                          EXTEND                                         
031885,001346: 20,2474           12501                          BZF      TOGETHER                              #  YES
031886,001347: 20,2475           44767                          CS       ATTCHBIT                              #  NO, UNSET FLAG
031887,001348: 20,2476           70103                          MASK     FLAGWRD7                              
031888,001349: 20,2477           54103                          TS       FLAGWRD7                              
031889,001350: 20,2500           12504                          TCF      +4                                    
031890,001351: 20,2501           40103        TOGETHER          CS       FLAGWRD7                              #  ATTACHED, SET FLAG FOR INTEGRATION
031891,001352: 20,2502           74767                          MASK     ATTCHBIT                              
031892,001353:                                                                                                 # # Page 721
031893,001354: 20,2503           26103                          ADS      FLAGWRD7                              
031894,001355: 20,2504           00003                          RELINT                                         
031895,001356: 20,2505           31465                          CA       DAPDATR1                              
031896,001357: 20,2506           74765                          MASK     BIT4                                  
031897,001358: 20,2507           00006                          EXTEND                                         
031898,001359: 20,2510           62512                          BZMF     +2                                    #  DEC 46 MEANS NARROW DB
031899,001360: 20,2511           32612                          CA       DEC409                                
031900,001361: 20,2512           62613                          AD       DEC46                                 #  DEC 455 MEANS WIDE DB
031901,001362: 20,2513           55655                          TS       ADB                                   
031902,001363: 20,2514           31465                          CA       DAPDATR1                              
031903,001364: 20,2515           74762                          MASK     BIT7                                  #  QUAD BD
031904,001365: 20,2516           00006                          EXTEND                                         
031905,001366: 20,2517           62521                          BZMF     +2                                    
031906,001367: 20,2520           34770                          CA       ONE                                   
031907,001368: 20,2521           55631                          TS       XTRANS                                
031908,001369: 20,2522           31465                          CA       DAPDATR1                              
031909,001370: 20,2523           74757                          MASK     BIT10                                 #  QUAD AC
031910,001371: 20,2524           00006                          EXTEND                                         
031911,001372: 20,2525           62527                          BZMF     +2                                    
031912,001373: 20,2526           44770                          CS       ONE                                   
031913,001374: 20,2527           27631                          ADS      XTRANS                                
031914,001375: 20,2530           00004                          INHINT                                         
031915,001376: 20,2531           00006                          EXTEND                                         
031916,001377: 20,2532           12537                          BZF      +5                                    #  CLEAR NJETSFLG (4 JETS, OR NO JETS)
031917,001378: 20,2533           40075                          CS       FLAGWRD1                              #  SET NJETSFLG    (2 JETS, AC OR BD QUADS)
031918,001379: 20,2534           74752                          MASK     NJETSBIT                              #  NJETSFLG=1 FOR 2 JET ULLAGE (AC OR BD)
031919,001380: 20,2535           26075                          ADS      FLAGWRD1                              
031920,001381: 20,2536           12542                          TCF      +4                                    
031921,001382: 20,2537           44752                          CS       NJETSBIT                              #  NJETSFLG=0 FOR 4 JET (OR 0 JET) ULLAGE
031922,001383: 20,2540           70075                          MASK     FLAGWRD1                              
031923,001384: 20,2541           54075                          TS       FLAGWRD1                              
031924,001385: 20,2542           00003                          RELINT                                         
031925,001386: 20,2543           31466                          CA       DAPDATR2                              
031926,001387: 20,2544           74754                          MASK     BIT13                                 
031927,001388: 20,2545           00006                          EXTEND                                         
031928,001389: 20,2546           62550                          BZMF     +2                                    
031929,001390: 20,2547           12551                          TCF      +2                                    
031930,001391: 20,2550           44770                          CS       ONE                                   
031931,001392: 20,2551           40000                          COM                                            
031932,001393: 20,2552           55630                          TS       ACORBD                                #  MINUS FOR A-C, PLUS FOR B-D
031933,001394: 20,2553           31466                          CA       DAPDATR2                              
031934,001395: 20,2554           74757                          MASK     BIT10                                 
031935,001396: 20,2555           10000                          CCS      A                                     
031936,001397: 20,2556           12562                          TCF      +4                                    
031937,001398: 20,2557           34770                          CA       ONE                                   
031938,001399: 20,2560           55626                          TS       RACFAIL                               
031939,001400: 20,2561           12572                          TCF      BDFAIL                                
031940,001401: 20,2562           34772                          CA       ZERO                                  
031941,001402: 20,2563           55626                          TS       RACFAIL                               
031942,001403: 20,2564           31466                          CA       DAPDATR2                              
031943,001404:                                                                                                 # # Page 722
031944,001405: 20,2565           74765                          MASK     BIT4                                  
031945,001406: 20,2566           10000                          CCS      A                                     
031946,001407: 20,2567           12572                          TCF      BDFAIL                                
031947,001408: 20,2570           44770                          CS       ONE                                   
031948,001409: 20,2571           55626                          TS       RACFAIL                               
031949,001410: 20,2572           31466        BDFAIL            CA       DAPDATR2                              
031950,001411: 20,2573           74762                          MASK     BIT7                                  
031951,001412: 20,2574           10000                          CCS      A                                     
031952,001413: 20,2575           12601                          TCF      +4                                    
031953,001414: 20,2576           34770                          CA       ONE                                   
031954,001415: 20,2577           55627                          TS       RBDFAIL                               
031955,001416: 20,2600           00002                          TC       Q                                     
031956,001417: 20,2601           34772                          CA       ZERO                                  
031957,001418: 20,2602           55627                          TS       RBDFAIL                               
031958,001419: 20,2603           31466                          CA       DAPDATR2                              
031959,001420: 20,2604           74770                          MASK     BIT1                                  
031960,001421: 20,2605           10000                          CCS      A                                     
031961,001422: 20,2606           00002                          TC       Q                                     
031962,001423: 20,2607           44770                          CS       ONE                                   
031963,001424: 20,2610           55627                          TS       RBDFAIL                               
031964,001425: 20,2611           00002                          TC       Q                                     
031965,001426: 
031966,001427:                                                                                                 # # Page 723
031967,001428: 16,2000                                          SETLOC   P40S1                                 
031968,001429: 16,2000                                          BANK                                           
031969,001430: 16,2065  E6,1724                                 EBANK=   NBRCYCLS                              
031970,001431: 16,2065                                          COUNT*   $$/S40.1                              
031971,001432: 16,2065           45345        S40.1B            DLOAD    DSU                                   #  LAMBERT
031972,001433: 16,2066           03413                                   TIG                                   
031973,001434: 16,2067           34531                                   TWODT                                 
031974,001435: 16,2070           14041                          STODL    TDEC1                                 
031975,001436: 16,2071           03656                                   TPASS4                                
031976,001437: 16,2072           77625                          DSU                                            
031977,001438: 16,2073           00041                                   TDEC1                                 
031978,001439: 16,2074           37423                          STCALL   DELLT4                                
031979,001440: 16,2075           61650                                   AGAIN                                 
031980,001441: 16,2076           77775                          VLOAD                                          
031981,001442: 16,2077           03612                                   VIPRIME                               
031982,001443: 16,2100           17713                          STODL    UT                                    
031983,001444: 16,2101           03413                                   TIG                                   
031984,001445: 16,2102           00041                          STORE    TDEC1                                 
031985,001446: 16,2103           77621                          BDSU                                           
031986,001447: 16,2104           03656                                   TPASS4                                
031987,001448: 16,2105           37423                          STCALL   DELLT4                                
031988,001449: 16,2106           61650                                   AGAIN                                 
031989,001450: 16,2107           41575                          VLOAD    PUSH                                  
031990,001451: 16,2110           03646                                   DELVEET3                              
031991,001452: 16,2111           37721                          STCALL   VGTIG                                 
031992,001453: 16,2112           11200                                   GET.LVC                               
031993,001454: 16,2113           77601                          SETPD                                          
031994,001455: 16,2114           00001                                   00D                                   
031995,001456: 16,2115           45175        CALCUT            VLOAD    CALL                                  
031996,001457: 16,2116           03632                                   RTIG                                  
031997,001458: 16,2117           77270                                   CALCGRAV                              #  GDELTAT IN MPAC AT 2(+7) M/CS
031998,001459: 16,2120           70372                          VSL1     V/SC                                  
031999,001460: 16,2121           34523                                   200CS                                 #  G AT 2(-5) M/CS.CS
032000,001461: 16,2122           52315                          PDVL     VSU                                   
032001,001462: 16,2123           03612                                   VIPRIME                               
032002,001463: 16,2124           03713                                   UT                                    
032003,001464: 16,2125           52341                          V/SC     VSU                                   
032004,001465: 16,2126           34523                                   200CS                                 
032005,001466: 16,2127           72561                          VXSC     VSL2                                  
032006,001467: 16,2130           03703                                   CSTEER                                
032007,001468: 16,2131           24015                          STOVL    12D                                   #  B.C SCALED AT 2(-5) PDL 12D
032008,001469: 16,2132           03721                                   VGTIG                                 
032009,001470: 16,2133           41456                          UNIT     PUSH                                  #  UG PDL 0 SCALED AT 2(+1)
032010,001471: 16,2134           74241                          DOT      VXSC                                  
032011,001472: 16,2135           00015                                   12D                                   
032012,001473: 16,2136           00001                                   0                                     
032013,001474: 16,2137           51352                          VSL2     BVSU                                  
032014,001475: 16,2140           00015                                   12D                                   
032015,001476: 16,2141           14015                          STODL    12D                                   #  Q PDL SCALED AT 2(-5)
032016,001477:                                                                                                 # # Page 724
032017,001478: 16,2142           03727                                   F                                     
032018,001479: 16,2143           56261                          SRR      DDV                                   
032019,001480: 16,2144           21605                                   4                                     
032020,001481: 16,2145           03076                                   WEIGHT/G                              
032021,001482: 16,2146           63316                          DSQ      PDVL                                  #  F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
032022,001483: 16,2147           00015                                   12D                                   
032023,001484: 16,2150           77636                          VSQ                                            
032024,001485: 16,2151           75421                          BDSU     SQRT                                  
032025,001486: 16,2152           76561                          VXSC     VSL1                                  
032026,001487: 16,2153           53455                          VAD      UNIT                                  
032027,001488: 16,2154           00015                                   12D                                   
032028,001489: 16,2155           37713                          STCALL   UT                                    
032029,001490: 16,2156           50331                                   S40.2,3                               #  **** NO RETURN **** SAME AS GOTO S40.2,3
032030,001491: 
032031,001492: 16,2157                                          COUNT*   $$/S40.2                              
032032,001493: 16,2157           77775        S40.2,3B          VLOAD                                          
032033,001494: 16,2160           11760                                   XUNIT                                 
032034,001495: 16,2161           27351                          STOVL    SCAXIS                                
032035,001496: 16,2162           03713                                   UT                                    
032036,001497: 16,2163           00307                          STORE    XSCREF                                
032037,001498: 16,2164           53435                          VXV      UNIT                                  
032038,001499: 16,2165           03632                                   RTIG                                  
032039,001500: 16,2166           34007                          STCALL   6D                                    
032040,001501: 16,2167           61702                                   TSTRXUT                               
032041,001502: 16,2170           00315                          STORE    YSCREF                                
032042,001503: 16,2171           57435                          VXV      VCOMP                                 
032043,001504: 16,2172           00307                                   XSCREF                                
032044,001505: 16,2173           77772                          VSL1                                           
032045,001506: 16,2174           34323                          STCALL   ZSCREF                                #  ZNB AXIS IN REF COOR
032046,001507: 16,2175           50444                                   P40SXTY                               #  **** NO RETURN **** SAME AS GOTO P40SXTY
032047,001508: 
032048,001509:                                                                                                 # # Page 725
032049,001510: 
032050,001511:                                                                                                 #  NAME           S40.8 - CROSS PRODUCT STEERING
032051,001512:                                                                                                 #  FUNCTION       (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
032052,001513:                                                                                                 #                 (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
032053,001514:                                                                                                 #                 (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
032054,001515:                                                                                                 #                 (4) INITIATES THRUST-FAIL ROUTINE, R40
032055,001516:                                                                                                 #                 (5) UPDATES CSMMASS
032056,001517: 
032057,001518:                                                                                                 #  INPUT          VGPREV  - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
032058,001519:                                                                                                 #                           PRIOR TO UPDATING IN METERS/CS AT +7.
032059,001520:                                                                                                 #                 DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUREMENT
032060,001521:                                                                                                 #                           IN METERS/CS AT +7.
032061,001522:                                                                                                 #                 BDT     - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
032062,001523:                                                                                                 #                           GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
032063,001524:                                                                                                 #                           METERS/CS AT +7.
032064,001525:                                                                                                 #                 CSTEER  - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
032065,001526:                                                                                                 #                           SPS AIMPOINT STEERING MANEUVERS
032066,001527:                                                                                                 #                 IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
032067,001528:                                                                                                 #                 STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
032068,001529:                                                                                                 #                 REFSMMAT, DAPDATR1, PIPTIME
032069,001530:                                                                                                 #                 EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
032070,001531: 
032071,001532:                                                                                                 #  OUTPUT TTOGO   - TIME REMAINING FOR ENGINE BURN IN CS AT +28
032072,001533:                                                                                                 #                 OMEGAC  - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
032073,001534:                                                                                                 #                 VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
032074,001535:                                                                                                 #                 STEERSW, IMPULSW, NVWORD1
032075,001536:                                                                                                 #                 REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
032076,001537: 
032077,001538:                                                                                                 #  SUBROUTINES USED       - *SMNB*, ALARM
032078,001539: 
032079,001540: 16,2176  E6,1465                                 EBANK=   DAPDATR1                              
032080,001541: 16,2176                                          COUNT*   $$/S40.8                              
032081,001542: 16,2176           06006        S40.8             TC       INTPRET                               
032082,001543: 16,2177           45001                          SETPD    CALL                                  
032083,001544: 16,2200           00001                                   00D                                   
032084,001545: 16,2201           34331                                   UPDATEVG                              
032085,001546: 16,2202           77745                          DLOAD                                          
032086,001547: 16,2203           03074                                   CSMMASS                               #                                 KG      B-16
032087,001548: 16,2204           03335                          STORE    MASSTMP                               
032088,001549: 16,2205           77776                          EXIT                                           
032089,001550: 16,2206           05402                          TC       PHASCHNG                              
032090,001551: 16,2207           10035                          OCT      10035                                 #  TYPE B RESTART RESTART BELOW AND 5.3 REREADAC
032091,001552: 16,2210  01,2250               5P3SPT4           =        5.3SPOT                               
032092,001553: 16,2210           06006                          TC       INTPRET                               
032093,001554: 16,2211           51575                          VLOAD    ABVAL                                 
032094,001555: 16,2212           03432                                   DELVREF                               #  DELTA V                        M/CS    B-7
032095,001556: 16,2213           67206                          PUSH     SLOAD                                 #  00D = DELTA V MAG              M/CS    B-7
032096,001557: 16,2214           01345                                   DVTHRESH                              #                                 M/CS    B+2
032097,001558: 16,2215           44205                          DMP      BDSU                                  
032098,001559: 16,2216           34533                                   DPB-9                                 #  DVTHRESH                       M/CS    B-7
032099,001560: 16,2217           67240        LOCHECK           BMN      SLOAD                                 
032100,001561: 16,2220           51143                                   LOTHRUST                              #  ** MAYBE THRUST BAD **
032101,001562:                                                                                                 #  THRUST GOOD : UPDATE CSMMASS
032102,001563: 16,2221           01351                                   EMDOT                                 #  FLOW RATE                      KG/CS   B-3
032103,001564:                                                                                                 # # Page 726
032104,001565: 16,2222           44205                          DMP      BDSU                                  
032105,001566: 16,2223           34530                                   FOURSEC    +1                         #  20D B-13 : MPAC = 2 SECS MASS LOSS
032106,001567: 16,2224           03335                                   MASSTMP                               
032107,001568: 16,2225           03074        UPD8MASS          STORE    CSMMASS                               #  CSMMASS UPDATED FOR LAST 2 SECS
032108,001569: 16,2226           77614                          BOFF                                           
032109,001570: 16,2227           01344                                   STEERSW                               #  NO STEERING :
032110,001571: 16,2230           51603                                   SERVXT1                               #  BYPASS TGOCALC AND X-PRODUT
032111,001572: 16,2231           77414        CGTRACK           BON      EXIT                                  #  ENABLE TVCDAP CG TRACKING
032112,001573: 16,2232           04700                                   SWTOVER                               
032113,001574: 16,2233           34325                                   FREPSET                               #  V46 SWITCHOVER HAS OCCURRED (CSM/LM)
032114,001575: 16,2234           31465                          CAE      DAPDATR1                              #  ENABLE TVCDAP CG TRACKING
032115,001576: 16,2235           74753                          MASK     BIT14                                 
032116,001577: 16,2236           10000                          CCS      A                                     
032117,001578: 16,2237           34770                          CAF      BIT1                                  
032118,001579: 16,2240           50000                          INDEX    A                                     #  LM-OFF, LM-ON VALUE
032119,001580: 16,2241           31421                          CAE      EREPFRAC                              
032120,001581: 16,2242           55633        REPFRACS          TS       REPFRAC                               
032121,001582: 
032122,001583: 16,2243           06006                          TC       INTPRET                               
032123,001584: 16,2244           51375        TGOCALC           VLOAD    BVSU                                  #  GET DELVG
032124,001585: 16,2245           03432                                   DELVREF                               
032125,001586: 16,2246           03705                                   BDT                                   
032126,001587: 16,2247           77656                          UNIT                                           
032127,001588: 16,2250           41441                          DOT      PUSH                                  #  (00D)
032128,001589: 16,2251           03460                                   VG                                    
032129,001590: 16,2252           56244                          BPL      DDV                                   #  ANGLE SHOULD BE GREATER THAN PI/2
032130,001591: 16,2253           51137                                   INCRSVG                               #         DISPLAY ALARM IF NOT
032131,001592: 16,2254           34632                                   2VEXHUST                              
032132,001593: 16,2255           41215                          DAD      DMP                                   #  (DOT PRODUCT UP FROM 00D)
032133,001594: 16,2256           11760                                   LODPHALF                              
032134,001595: 16,2257           70501                          NORM     SR1                                   
032135,001596: 16,2260           00047                                   X1                                    
032136,001597: 16,2261           60325                          PDDL     NORM                                  
032137,001598: 16,2262           00045                                   36D                                   #  (MAG DELVG)
032138,001599: 16,2263           00050                                   X2                                    
032139,001600: 16,2264           77665                          BDDV                                           
032140,001601: 16,2265           53664                          XSU,2    SL*                                   
032141,001602: 16,2266           00046                                   X1                                    
032142,001603: 16,2267           57607                                   0          -9D,2                      
032143,001604: 16,2270           41405                          DMP      PUSH                                  #  (00D)
032144,001605: 16,2271           34525                                   -FOURDT                               
032145,001606: 16,2272           54335                          SLOAD    SR                                    
032146,001607: 16,2273           03014                                   ETDECAY                               #  ETDECAY SC.AT B+14 CS
032147,001608: 16,2274           20617                                   14D                                   
032148,001609: 16,2275           45421                          BDSU     STADR                                 
032149,001610: 16,2276           74347                          STORE    TGO                                   #  TIME TO GO IN CS. AT +28
032150,001611: 16,2277           77615                          DAD                                            
032151,001612: 16,2300           01044                                   PIPTIME                               
032152,001613: 16,2301           17413                          STODL    TIG                                   
032153,001614: 16,2302           03430                                   TGO                                   
032154,001615:                                                                                                 # # Page 727
032155,001616: 16,2303           50025                          DSU      BMN                                   
032156,001617: 16,2304           34527                                   FOURSEC                               
032157,001618: 16,2305           51102                                   S40.81                                
032158,001619: 
032159,001620: 16,2306           74375        XPRODUCT          VLOAD    VXSC                                  
032160,001621: 16,2307           03705        STEERING                   BDT                                   
032161,001622: 16,2310           03703                                   CSTEER                                
032162,001623: 16,2311           52352                          VSL2     VSU                                   
032163,001624: 16,2312           03432                                   DELVREF                               
032164,001625: 16,2313           63256                          UNIT     PDVL                                  
032165,001626: 16,2314           03460                                   VG                                    
032166,001627: 16,2315           47256                          UNIT     VXV                                   
032167,001628: 16,2316           45121                          MXV      CALL                                  
032168,001629: 16,2317           01734                                   REFSMMAT                              #  (REFSMMAT/2)
032169,001630: 16,2320           47633                                   *SMNB*                                
032170,001631: 16,2321           77761                          VXSC                                           
032171,001632: 16,2322           03227                                   KPRIMEDT                              #  (KPRIMEDT SCIAT PI/8 RAD)
032172,001633: 16,2323           37126        OMEGACLC          STCALL   OMEGAC                                
032173,001634: 16,2324           51603                                   SERVXT1                               
032174,001635: 16,2325           77545        FREPSET           DLOAD    EXIT                                  #  POST-SQITCHOVER CSM/LM.  LOAD FROM LOW-
032175,001636: 16,2326           36534                                   FREPFRAC                              #         BANDWIDTH PARAMETER IN FIXED MEMORY
032176,001637: 16,2327           30154                          CAE      MPAC                                  
032177,001638: 16,2330           12242                          TCF      REPFRACS                              
032178,001639: 
032179,001640:                                                                                                 # # Page 728
032180,001641: 
032181,001642: 16,2331           43020        UPDATEVG          STQ      BON                                   
032182,001643: 16,2332           03374                                   R61CNTR                               
032183,001644: 16,2333           01307                                   XDELVFLG                              
032184,001645: 16,2334           34360                                   VGCOMP                                
032185,001646: 16,2335           50135                          SLOAD    BMN                                   
032186,001647: 16,2336           03325                                   NBRCYCLS                              
032187,001648: 16,2337           61721                                   SETUP.9                               
032188,001649: 16,2340           53375                          VLOAD    VAD                                   
032189,001650: 16,2341           03327                                   DELVSUM                               
032190,001651: 16,2342           03432                                   DELVREF                               
032191,001652: 16,2343           03335                          STORE    DELVSUMP                              
032192,001653: 16,2344           77776                          EXIT                                           
032193,001654: 16,2345           34770                          CA       ONE                                   
032194,001655: 16,2346           61724                          AD       NBRCYCLS                              
032195,001656: 16,2347           55725                          TS       NBRCYCLP                              
032196,001657: 16,2350           05402                          TC       PHASCHNG                              #  TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS
032197,001658: 16,2351           10035                          OCT      10035                                 
032198,001659: 16,2352  01,2250               5P3SPT5           =        5.3SPOT                               
032199,001660: 16,2352           31725                          CA       NBRCYCLP                              
032200,001661: 16,2353           55724                          TS       NBRCYCLS                              
032201,001662: 16,2354           06006                          TC       INTPRET                               
032202,001663: 16,2355           77775                          VLOAD                                          
032203,001664: 16,2356           03335                                   DELVSUMP                              
032204,001665: 16,2357           03327                          STORE    DELVSUM                               
032205,001666: 16,2360           77775        VGCOMP            VLOAD                                          
032206,001667: 16,2361           03432                                   DELVREF                               #  CONSTRUCT DELVG, SC.AT B-7 M/CS
032207,001668: 16,2362           53245                          BVSU     VAD                                   
032208,001669: 16,2363           03705                                   BDT                                   
032209,001670: 16,2364           03721                                   VGPREV                                
032210,001671: 16,2365           03460                          STORE    VG                                    #  VELOCITY-TO-BE-GAINED, SC.AT B-7  M/CS
032211,001672: 16,2366           77646                          ABVAL                                          
032212,001673: 16,2367           03763                          STORE    VGDISP                                #  FOR DISPLAY PURPOSES
032213,001674: 16,2370           77776                          EXIT                                           
032214,001675: 16,2371           05402                          TC       PHASCHNG                              
032215,001676: 16,2372           10035                          OCT      10035                                 #  TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS
032216,001677: 16,2373  01,2250               5P3SPT6           =        5.3SPOT                               
032217,001678: 16,2373           06006                          TC       INTPRET                               
032218,001679: 16,2374           77775                          VLOAD                                          
032219,001680: 16,2375           03460                                   VG                                    
032220,001681: 16,2376           37721                          STCALL   VGPREV                                
032221,001682: 16,2377           03374                                   R61CNTR                               
032222,001683: 
032223,001684:                                                                                                 # # Page 729
032224,001685: 
032225,001686:                                                                                                 #  NAME           S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
032226,001687: 
032227,001688:                                                                                                 #  FUNCTION       (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
032228,001689:                                                                                                 #                 VECTORS FOR USE DURING AIMPOINT MANEUVERS
032229,001690:                                                                                                 #                 (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL 
032230,001691:                                                                                                 #                 CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
032231,001692: 
032232,001693:                                                                                                 #  CALLING SEQ    VIA FINDVAC AS NEW JOB.
032233,001694: 
032234,001695:                                                                                                 #  INPUT          RNIT    - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
032235,001696:                                                                                                 #                 VNIT    - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
032236,001697:                                                                                                 #                 VRPREV  - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
032237,001698:                                                                                                 #                           METERS/CS AT +7.
032238,001699:                                                                                                 #                 NOMTIG  - TIME OF IGN. USED IN TARGETTING ROUTINES B+28
032239,001700:                                                                                                 #                 DELLT4  - TRANSFER TIME FROM PIPTIME TO TARGET B+28
032240,001701:                                                                                                 #                 TNIT    - TIME OF RNIT AND VNIT IN CS AT +28
032241,001702:                                                                                                 #                 GDT/2   - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
032242,001703:                                                                                                 #                           ACCELERATION OF GRAVITY IN METERS/CS AT +7.
032243,001704:                                                                                                 #                 DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
032244,001705:                                                                                                 #                           METERS/CS AT +7.
032245,001706:                                                                                                 #                 NORMSW  SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
032246,001707:                                                                                                 #                         165 TO 195 DEGREES
032247,001708:                                                                                                 #                         RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
032248,001709: 
032249,001710:                                                                                                 #  OUTPUT VGTEMP  - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
032250,001711:                                                                                                 #                 COGA    - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
032251,001712:                                                                                                 #                           OR PREVIOUS PASS THRU S40.9
032252,001713:                                                                                                 #                 GOBL/2  - OBLATENESS TERM IN AVG GRAV CALC - GOBL*RSQ/MU
032253,001714:                                                                                                 #                 VRPREV  - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
032254,001715:                                                                                                 #                 BDT     - B VECTOR IN METERS/CS AT +7.
032255,001716: 
032256,001717:                                                                                                 #  SUBROUTINES USED  -  INITVEL
032257,001718: 
032258,001719: 16,2400                                          COUNT*   $$/S40.9                              
032259,001720: 16,2400           06006        S40.9             TC       INTPRET                               
032260,001721: 16,2401           71201                          SETPD    DLOAD                                 
032261,001722: 16,2402           00001                                   00D                                   
032262,001723: 16,2403           11762                                   LO6ZEROS                              
032263,001724: 16,2404           43125                          PDDL     BON                                   
032264,001725: 16,2405           34517                                   EP4(45)L                              
032265,001726: 16,2406           03705                                   NORMSW                                
032266,001727: 16,2407           34412                                   +3                                    
032267,001728: 16,2410           77745                          DLOAD                                          
032268,001729: 16,2411           34521                                   EP4(10)L                              
032269,001730: 16,2412           77606                          PUSH                                           
032270,001731: 16,2413           45014                          CLEAR    CALL                                  
032271,001732: 16,2414           00675                                   GUESSW                                
032272,001733: 16,2415           22002                                   HAVEGUES                              
032273,001734: 16,2416           77776                          EXIT                                           
032274,001735: 16,2417           05402                          TC       PHASCHNG                              #  SAVE TIME BY NOT REDOING LAMBERT CALCS
032275,001736: 16,2420           05021                          OCT      05021                                 #  C, PRIORITY NEXT, JOB BELOW
032276,001737: 16,2421           10000                          OCT      10000                                 
032277,001738: 16,2422           06006                          TC       INTPRET                               
032278,001739: 16,2423           77214        ENDLAMB           BON      VLOAD                                 
032279,001740: 16,2424           01310                                   FIRSTFLG                              
032280,001741:                                                                                                 # # Page 730
032281,001742: 16,2425           34442                                   FIRSTTME                              
032282,001743: 16,2426           03612                                   VIPRIME                               
032283,001744: 16,2427           65251                          VSU      PDDL                                  
032284,001745: 16,2430           03466                                   VRPREV                                
032285,001746: 16,2431           03474                                   TNIT                                  
032286,001747: 16,2432           54225                          DSU      SL                                    
032287,001748: 16,2433           03476                                   TNITPREV                              
032288,001749: 16,2434           20222                                   17D                                   
032289,001750: 16,2435           74265                          BDDV     VXSC                                  
032290,001751: 16,2436           34523                                   200CS                                 
032291,001752: 16,2437           76451                          VSU      VSL1                                  
032292,001753: 16,2440           01046                                   GDT/2                                 
032293,001754: 16,2441           03705                          STORE    BDT                                   
032294,001755: 16,2442           57535        FIRSTTME          SLOAD    DCOMP                                 
032295,001756: 16,2443           03747                                   RTX2                                  
032296,001757: 16,2444           77640                          BMN                                            
032297,001758: 16,2445           34462                                   MOONCASE                              
032298,001759: 16,2446           53575                          VLOAD    UNIT                                  
032299,001760: 16,2447           01030                                   RN                                    
032300,001761: 16,2450           45345                          DLOAD    DSU                                   
032301,001762: 16,2451           01044                                   PIPTIME                               
032302,001763: 16,2452           03450                                   NOMTIG                                
032303,001764: 16,2453           56205                          DMP      DDV                                   
032304,001765: 16,2454           34515                                   EARTHMU                               
032305,001766: 16,2455           00043                                   34D                                   
032306,001767: 16,2456           53361                          VXSC     VAD                                   
032307,001768: 16,2457           01054                                   GOBL/2                                
032308,001769: 16,2460           03646                                   VGTEMP                                #  NOTE  NO TEST IS MADE TO SUBTRACT GOBL
032309,001770: 16,2461           03646                          STORE    VGTEMP                                #  INSIDE 165-195 DEGREE CONE AREA.
032310,001771: 16,2462           77776        MOONCASE          EXIT                                           
032311,001772: 16,2463           05402                          TC       PHASCHNG                              
032312,001773: 16,2464           04021                          OCT      04021                                 #  C, JOB BELOW
032313,001774: 16,2465           06006        COPY40.9          TC       INTPRET                               
032314,001775: 16,2466           77745                          DLOAD                                          
032315,001776: 16,2467           03474                                   TNIT                                  
032316,001777: 16,2470           27476                          STOVL    TNITPREV                              
032317,001778: 16,2471           03612                                   VIPRIME                               
032318,001779: 16,2472           03466                          STORE    VRPREV                                
032319,001780: 16,2473           77414                          CLEAR    EXIT                                  
032320,001781: 16,2474           01270                                   FIRSTFLG                              
032321,001782: 16,2475           44770                 -2       CS       ONE                                   #  REDO40.9 (RESTART) ENTRY TO END S40.9
032322,001783: 16,2476           55724                          TS       NBRCYCLS                              
032323,001784: 16,2477           05402        ENDS40.9          TC       PHASCHNG                              
032324,001785: 16,2500           00001                          OCT      00001                                 
032325,001786: 16,2501           15205                          TCF      ENDOFJOB                              
032326,001787: 
032327,001788: 16,2502           06006        REDO40.9          TC       INTPRET                               #  S40.9 RESTARTS COME HERE TO GRACEFULLY
032328,001789: 16,2503           77775                          VLOAD                                          #         TERMINATE S40.9 SO THAT IT CAN BE
032329,001790: 16,2504           11762                                   LO6ZEROS                              #         SET UP WITH LATEST R,V,T NEXT PASS
032330,001791: 16,2505           17327                          STODL    DELVSUM                               #         (TYPE C PHASE POINTS '04021' WILL
032331,001792:                                                                                                 # # Page 731
032332,001793: 16,2506           11762                                   LO6ZEROS                              #         FORCE NORMAL S40.9 TERMINATIONS,
032333,001794: 16,2507           27325                          STOVL    NBRCYCLS                              #         RATHER THAN LOSE TIME OF BRAND NEW
032334,001795: 16,2510           03721                                   VGPREV                                #         PASS -- QUICK OLD DATA BETTER THAN
032335,001796: 16,2511           03646                          STORE    VGTEMP                                #         NONE) NOW CAN GO THRU SETUP.9
032336,001797: 16,2512           77776                          EXIT                                           #         WITHOUT DISTURBING VGPREV
032337,001798: 16,2513           12475                          TCF      ENDS40.9   -2                         #  STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
032338,001799: 
032339,001800: 16,2514           55340 61710  EARTHMU           2DEC*    -3.986032  E10        B-36*           
032340,001801: 
032341,001802: 16,2516           04000 00000  EP4(45)L          2DEC     .125                                  
032342,001803: 
032343,001804: 16,2520           00707 03434  EP4(10)L          2DEC     .027777777                            
032344,001805: 
032345,001806: 16,2522           01440 00000  200CS             2DEC     200        B-12                       
032346,001807: 
032347,001808: 16,2524           77715 77777  -FOURDT           2DEC     -800       B-18                       #  -4(200CS), AT B+18CS (-4 FOR SCALING)
032348,001809: 
032349,001810: 16,2526           00000 00620  FOURSEC           2DEC     400.0      B-28                       #  4 SEC
032350,001811: 
032351,001812: 16,2530           00000 00310  TWODT             2DEC     200.0      B-28                       #  **** MUST FOLLOW 2DEC FOURSEC TO   ****
032352,001813:                                                                                                 #  **** MAKE FOURSEC +1 2DEC 200 B-13 ****
032353,001814: 
032354,001815: 16,2532           00040 00000  DPB-9             2DEC     1          B-9                        
032355,001816: 
032356,001817:                                                                                                 # # Page 732
032357,001818: 
032358,001819:                                                                                                 #  NAME:                  S40.13 - TIMEBURN
032359,001820: 
032360,001821:                                                                                                 #  FUNCTION               TO DETERMINE
032361,001822:                                                                                                 #                         (1) WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
032362,001823:                                                                                                 #                         BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 
032363,001824:                                                                                                 #                         TO ALLOW STEERING AT THE VEHICLE DURING THE BURN
032364,001825:                                                                                                 #                         (2) THE MAGNITUDE OF THE RESULTING BURN TIME, AND
032365,001826:                                                                                                 #                         (3) IF THE BURN TIME IS < 6 SECONDS,
032366,001827:                                                                                                 #                         THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
032367,001828: 
032368,001829:                                                                                                 #  CALLING SEQUENCE       VIA FINDVAC AS A NEW JOB.
032369,001830: 
032370,001831:                                                                                                 #  INPUT                  VGTIG    - MAGNITUDE OF VGTIG IN METERS/CS) AT +7
032371,001832:                                                                                                 #                         WEIGHT/G - MASS OF VEHICLE IN KG AT TIG (+16)
032372,001833:                                                                                                 #                         F        - ENGINE THRUST IN M.NEWTONS AT +7
032373,001834:                                                                                                 #                         MDOT     - RATE OF DECREASE OF VEHICLE MASS DURING 
032374,001835:                                                                                                 #                                    BURN IN KG/CS AT +3
032375,001836: 
032376,001837:                                                                                                 #  OUTPUT         IMPULSW  - ZERO FOR STEERING
032377,001838:                                                                                                 #                                  - ONE FOR ATTITUDE HOLD
032378,001839:                                                                                                 #                         TGO      - BURN TIME IN CS AT +28
032379,001840: 
032380,001841:                                                                                                 #         THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
032381,001842:                                                                                                 #         (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
032382,001843:                                                                                                 #         (1) M.NEWTON = (10000) NEWTONS
032383,001844: 
032384,001845: 16,2534                                          COUNT*   $$/40.13                              
032385,001846: 16,2534           34762        S40.13            CAF      BIT7                                  #  TEST +X TRANSLATION
032386,001847: 16,2535           00006                          EXTEND                                         
032387,001848: 16,2536           06031                          RXOR     CHAN31                                
032388,001849: 16,2537           74762                          MASK     BIT7                                  
032389,001850: 16,2540           54157                          TS       MPAC       +3                         
032390,001851: 16,2541           06006                          TC       INTPRET                               
032391,001852: 16,2542           41545                          DLOAD    PUSH                                  #  00D = |VGTIG| AT +7
032392,001853: 16,2543           03763                                   VGDISP                                
032393,001854: 16,2544           53135                          SLOAD    BZE                                   
032394,001855: 16,2545           00160                                   MPAC       +3                         #  BIT7 CHAN31
032395,001856: 16,2546           34556                                   S40.130    +1                         #  DO NOT COMPENSATE FOR 7 SECS OF ULLAGE
032396,001857: 16,2547           56345                          DLOAD    DDV                                   
032397,001858: 16,2550           34630                                   S40.135                               #  COMPENSATION FOR 2 JET ULLAGE AT +24
032398,001859: 16,2551           03076                                   WEIGHT/G                              #  MASS IN KGMS AT +16
032399,001860: 16,2552           72414                          BON      SL1                                   #  DOUBLE CORRECTION IF FOUR JETS
032400,001861: 16,2553           00700                                   NJETSFLG                              
032401,001862: 16,2554           34555                                   S40.130                               
032402,001863: 16,2555           41421        S40.130           BDSU     PUSH                                  #  00D = MAG(VGTIG) @ B+7 M/CS, ADJUSTED 
032403,001864:                                                                                                 #         FOR ULLAGE.
032404,001865: 16,2556           56345                 +1       DLOAD    DDV                                   #  ENTRY POINT IF ULLAGE OFF
032405,001866: 16,2557           00001                                   00D                                   #  MAKE SURE MPAC CONTAINS MAG(VGTIG)
032406,001867: 16,2560           34632                                   2VEXHUST                              #  2 VEXHUST (=2G ISP) @ B+7 M/CS
032407,001868: 16,2561           44342                          SR1      BDSU                                  
032408,001869: 16,2562           11760                                   LODPHALF                              #  0.5
032409,001870: 16,2563           41205                          DMP      DMP                                   
032410,001871: 16,2564           03076                                   WEIGHT/G                              #  TOTAL MASS @ B+16 KG
032411,001872: 16,2565           00001                                   00D                                   #  MAG(VGTIG) @ B+7 M/CS
032412,001873: 16,2566           40061                          SL       BOV                                   
032413,001874: 16,2567           20213                                   10D                                   #  SCALING
032414,001875:                                                                                                 # # Page 733
032415,001876: 16,2570           34617                                   S40.133                               #  LARGE VG : STEERING BURN INDICATED
032416,001877: 16,2571           41225                          DSU      DMP                                   
032417,001878: 16,2572           01764                                   EIMP1SEC                              #  IMP BURN LOGIC B.P. @ E+2B+14 NEWT-SEC
032418,001879: 16,2573           34624                                   100B-14                               #  1SEC @ B+14CS
032419,001880: 16,2574           41471                          DDV      PUSH                                  #  02D=(DELTET-1SEC) @ B+14CS, FIMP16 SLOPE
032420,001881: 16,2575           01766                                   EFIMP16                               #  IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
032421,001882: 16,2576           51025                          DSU      BPL                                   
032422,001883: 16,2577           34626                                   500B-14                               #  5SEC @ B+14CS
032423,001884: 16,2600           34617                                   S40.133                               #  STEERING BURN INDICATED, DELTAT > 6 SEC
032424,001885: 16,2601           51145                          DLOAD    BPL                                   
032425,001886: 16,2602           00003                                   02D                                   #  (DELTAT-1SEC) @ B+14CS, FIMP16 SLOPE
032426,001887: 16,2603           34607                                   S40.132                               #  1<DELTAT<6SEC, SO FIMP16 SLOPE USE IS OK
032427,001888: 16,2604           56205                          DMP      DDV                                   #  0<DELTAT<1SEC, SO USE FIMP01 NOT FIMP16
032428,001889: 16,2605           01766                                   EFIMP16                               #  IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
032429,001890: 16,2606           01765                                   EFIMP01                               #  IMP B.LOGIC 0-1SEC SLOPE @ E+2B+14 NEWT
032430,001891: 16,2607           77414        S40.132           SET      EXIT                                  
032431,001892: 16,2610           01066                                   IMPULSW                               #  IMPULSIVE BURN
032432,001893: 16,2611           07224                          TC       DPAGREE                               
032433,001894: 16,2612           06006                          TC       INTPRET                               
032434,001895: 16,2613           54215                          DAD      SR                                    #  MPAC CONTAINS (DELTA-1SEC), GET DELTAT
032435,001896: 16,2614           34624                                   100B-14                               #  1SEC @ B+14CS
032436,001897: 16,2615           20617                                   14D                                   #  DELTAT @ B+28CS
032437,001898: 16,2616           03430                          STORE    TGO                                   
032438,001899: 16,2617           77776        S40.133           EXIT                                           
032439,001900: 16,2620           05402                          TC       PHASCHNG                              
032440,001901: 16,2621           00003                          OCT      3                                     
032441,001902: 16,2622           15205                          TCF      ENDOFJOB                              
032442,001903: 
032443,001904: 16,2623                                          COUNT    17/40.13                              
032444,001905: 
032445,001906: 16,2623           00144 00000  100B-14           2DEC     100.00     B-14                       #  1SEC @ AT B+14CS
032446,001907: 
032447,001908: 16,2625  16,2623               1SEC2D            =        100B-14                               
032448,001909: 
032449,001910: 16,2625           00764 00000  500B-14           2DEC     500.00     B-14                       #  5SEC @ AT B+14CS
032450,001911: 16,2627  16,2625               5SECOND           =        500B-14                               
032451,001912: 16,2627           00000 04263  S40.135           2DEC     69.6005183 B-23                       #  IMPULSE FROM 7.96 SECS OF 2-JET FIRING
032452,001913:                                                                                                 #         7.96 (199.6)COS(10) LB-SEC, SC.AT
032453,001914:                                                                                                 #         B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
032454,001915:                                                                                                 #         TO GO, PLUS 0.96 SEC FROM PIPTIME)
032455,001916: 
032456,001917: 16,2631           17602 25124  2VEXHUST          2DEC     63.020792  B-7                        #  2(10338.0564 FPS), SC.AT B+7 M/CS
032457,001918: 
032458,001919: 16,2633  30,2000                                 SBANK=   LOWSUPER                              
032459,001920: 20,2000                                          SETLOC   DAPS6                                 
032460,001921: 20,2000                                          BANK                                           
032461,001922: 
032462,001923: 20,2612                                          COUNT*   $$/40.14                              
032463,001924: 20,2612           00631        DEC409            DEC      409        B-14                       
032464,001925: 20,2613           00056        DEC46             DEC      46         B-14                       
032465,001926: 
032466,001927:                                                                                                 # # Page 734
032467,001928: 
032468,001929:                                                                                                 #  CALLED BY "DONOUN47" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP)
032469,001930: 
032470,001931: 20,2614  E6,1465                                 EBANK=   DAPDATR1                              
032471,001932: 20,2614           31467        S40.14            CAE      IXX                                   #  RCS ENTRY
032472,001933: 20,2615           00006                          EXTEND                                         
032473,001934: 20,2616           72641                          MP       CONTONE                               
032474,001935: 20,2617           55623                          TS       J/M                                   
032475,001936: 20,2620           31470                          CA       IAVG                                  
032476,001937: 20,2621           00006                          EXTEND                                         
032477,001938: 20,2622           72641                          MP       CONTONE                               
032478,001939: 20,2623           55624                          TS       J/M1                                  
032479,001940: 20,2624           55625                          TS       J/M2                                  
032480,001941: 20,2625           00006                          EXTEND                                         
032481,001942: 20,2626           32643                          DCA      CONTTWO                               
032482,001943: 20,2627           00006                          EXTEND                                         
032483,001944: 20,2630           11467                          DV       IXX                                   
032484,001945: 20,2631           55620                          TS       KMJ                                   
032485,001946: 20,2632           00006                          EXTEND                                         
032486,001947: 20,2633           32643                          DCA      CONTTWO                               
032487,001948: 20,2634           00006                          EXTEND                                         
032488,001949: 20,2635           11470                          DV       IAVG                                  
032489,001950: 20,2636           55621                          TS       KMJ1                                  
032490,001951: 
032491,001952: 20,2637           55622                          TS       KMJ2                                  
032492,001953: 20,2640           00002                          TC       Q                                     
032493,001954: 
032494,001955: 20,2641           25137        CONTONE           DEC      .662034                               #  2PI/M
032495,001956: 20,2642           00023 12522  CONTTWO           2DEC     .00118                                
032496,001957: 
032497,001958: 21,2000                                          SETLOC   DAPS3                                 
032498,001959: 21,2000                                          BANK                                           
032499,001960: 21,2032                                          COUNT*   $$/RCSUP                              
032500,001961: 21,2032           22016        RCSUP             LXCH     BANKRUPT                              
032501,001962: 21,2033           00006                          EXTEND                                         
032502,001963: 21,2034           22012                          QXCH     QRUPT                                 
032503,001964: 21,2035           02042                          TCR      RCSDAPON                              #  ACTIVATE RCS DAP
032504,001965: 21,2036           15323                          TCF      RESUME                                
032505,001966: 
032506,001967: 21,2037  E6,1465                                 EBANK=   DAPDATR1                              
032507,001968: 21,2037           02140 42066  RCSADDR           2CADR    RCSATT                                
032508,001969: 
032509,001970: 21,2041           37704        0.6SECT5          OCT      37704                                 
032510,001971: 
032511,001972: 21,2042  E6,1465                                 EBANK=   DAPDATR1                              
032512,001973:                                                                                                 #  RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
032513,001974: 21,2042           32041        RCSDAPON          CAF      0.6SECT5                              #  0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
032514,001975:                                                                                                 # # Page 735
032515,001976: 21,2043           54030                 +1       TS       TIME5                                 #  ENTRY FROM ROOTOPOO
032516,001977: 21,2044           55464                          TS       T5PHASE                               #  WILL CAUSE FRESHDAP (+1)
032517,001978: 21,2045           41501                          CS       RCSFLAGS                              #  SET BIT3 TO REINITIALIZE FDAI ERROR
032518,001979: 21,2046           74766                          MASK     BIT3                                  #         DISPLAY, IN CASE SC CONT SWITCH
032519,001980: 21,2047           27501                          ADS      RCSFLAGS                              #         IN SCS NOT GNC (GUIDEMODE PRIMARY)
032520,001981: 21,2050           00006                          EXTEND                                         
032521,001982: 21,2051           32040                          DCA      RCSADDR                               #  (RCSATT)
032522,001983: 21,2052           52113                          DXCH     T5LOC                                 
032523,001984: 21,2053           44076                          CS       DPCONFIG                              #  SET BITS 15,14 TO 01 TO INDICATE
032524,001985: 21,2054           70102                          MASK     FLAGWRD6                              #         T5 TAKEOVER BY RCSDAP
032525,001986: 21,2055           64753                          AD       DAP2BIT                               
032526,001987: 21,2056           54102                          TS       FLAGWRD6                              #  KILLS TVCEXEC AND ROLLDAP STARTS
032527,001988: 21,2057           00002                          TC       Q                                     #  RETURN TO CALLER (TVCDAPOFF OR RCSDAPUP)
032528,001989: 35,2000                                          SETLOC   P30S1                                 
032529,001990: 35,2000                                          BANK                                           
032530,001991: 35,3566                                          COUNT*   $$/P40                                
032531,001992: 35,3566           03525        STARTTGO          TC       COMPTGO                               #  COMPTGO CAN NOT BE CALLED DIRECTLY
032532,001993: 35,3567           04655                          TC       POSTJUMP                              #  VIA BANKCALL DUE TO RESTART PROBLEMS
032533,001994: 35,3570           50237                          CADR     TFIGINIT   +2                         
032534,001995: 
032535,001996:                                                                                                 # # Page 736
032536,001997: 
032537,001998:                                                                                                 #  NAME:          P41 - RCS BURN
032538,001999: 
032539,002000:                                                                                                 #  FUNCTION       TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
032540,002001:                                                                                                 #                 AND THRUSTING MANEUVER OF AN RCS BURN
032541,002002: 
032542,002003:                                                                                                 #                         R02BOTH         CHECK STATUS OF IMU
032543,002004: 
032544,002005:                                                                                                 #                         S40.1           COMPUTE: INITIAL THRUST DIRECTION AND
032545,002006:                                                                                                 #                                                  INITIAL VALUE OF VELOCITY-TO-BE-
032546,002007:                                                                                                 #                                                  GAINED VECTOR (VGTIG)
032547,002008: 
032548,002009:                                                                                                 #                         S40.2,3         COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
032549,002010:                                                                                                 #                                                  OCCUR WITH PRESENT IMU ORIENTATION,
032550,002011:                                                                                                 #                                                  PREFERRED IMU ORIENTATION, AND
032551,002012:                                                                                                 #                                                  DESIRED THRUST DIRECTION IN SM COORDS
032552,002013: 
032553,002014:                                                                                                 #                         R60CSM          PERFORM ATTITUDE MANEUVER
032554,002015: 
032555,002016:                                                                                                 #                         MIDTOAV1        EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
032556,002017: 
032557,002018:                                                                                                 #                         CLOKTASK        COMPUTE TIME-TO-GO TO IGNITION, 
032558,002019:                                                                                                 #                                         RECALL CLOKTASK, 
032559,002020:                                                                                                 #                                         UPDATE N 85, AND
032560,002021:                                                                                                 #                                         CALL CLOCKJOB TO DISPLAY V06N85
032561,002022: 
032562,002023:                                                                                                 #                         TIGBLNK         BLANK DSKY AT TIG-35 SECS AND
032563,002024:                                                                                                 #                                         WAITLIST TIGAVEG IN 5 SECS
032564,002025: 
032565,002026:                                                                                                 #                         TIGAVEG         UNBLANK DSKY,
032566,002027:                                                                                                 #                                         CAUSE CLOCKJOB TO DISPLAY NON FLASH V16N85,
032567,002028:                                                                                                 #                                         WAITLIST TTG/0 IN 29.96 SECS, AND
032568,002029:                                                                                                 #                                         START SERVICER
032569,002030: 
032570,002031:                                                                                                 #                         CLOCKJOB        (CALLED EVERY SEC)
032571,002032:                                                                                                 #                                         DISPLAY NON FLASH V06N85 UNTIL TIG - 29.96:
032572,002033:                                                                                                 #                                         THEN DISPLAY NON FLASH V16N85
032573,002034: 
032574,002035:                                                                                                 #                         TTG/0           NOVAC TIGNOW
032575,002036: 
032576,002037:                                                                                                 #                         TIGNOW          DISPLAY FLASHING V16N85
032577,002038: 
032578,002039:                                                                                                 #                         POST41          CLEAN UP AFTER BURN
032579,002040: 
032580,002041:                                                                                                 #                         *************************************************
032581,002042:                                                                                                 #                         PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
032582,002043:                                                                                                 #                         *************************************************
032583,002044: 
032584,002045:                                                                                                 #  INPUT          SAME AS P40
032585,002046: 
032586,002047:                                                                                                 #  ALARMS 1703            INSUFFICIENT TIME FOR INTEGRATION
032587,002048:                                                                                                 #                                 TIG WAS SLIPPED
032588,002049: 
032589,002050:                                                                                                 # # Page 737
032590,002051: 35,3571  E6,1465                                 EBANK=   DAPDATR1                              
032591,002052: 24,2000                                          SETLOC   P40S                                  
032592,002053: 24,2000                                          BANK                                           
032593,002054: 24,3563                                          COUNT*   $$/P41                                
032594,002055: 24,3563           06006        P41CSM            TC       INTPRET                               
032595,002056: 24,3564           71214                          SET      DLOAD                                 
032596,002057: 24,3565           00464                                   ENG2FLAG                              #  SET FOR RCS
032597,002058: 24,3566           15336                                   HI6ZEROS                              #  CSTEER = 0 FOR P41
032598,002059: 24,3567           03703                          STORE    CSTEER                                
032599,002060: 24,3570           43145                          DLOAD    BON                                   
032600,002061: 24,3571           11534                                   FRCS2                                 #  2JET THRUST FOR S40.1
032601,002062: 24,3572           00700                                   NJETSFLG                              
032602,002063: 24,3573           50226                                   P40S/F                                #  NJETS = 1 2-JET
032603,002064: 24,3574           52152                          SL1      GOTO                                  #  NJETS = 0 4-JET
032604,002065: 24,3575           50226                                   P40S/F                                
032605,002066: 24,3576  E6,1465                                 EBANK=   DAPDATR1                              
032606,002067: 24,3576           06006        CALCN85           TC       INTPRET                               
032607,002068: 24,3577           77624                          CALL                                           
032608,002069: 24,3600           34331                                   UPDATEVG                              #  NEW VG FROM VCOMP (+ MAYBE S40.9)
032609,002070: 24,3601           77624                          CALL                                           
032610,002071: 24,3602           51651                                   P40CNV85                              #  COMPUTE VGBODY
032611,002072: 24,3603           77776        SERVXT1           EXIT                                           
032612,002073: 24,3604           33616                          CAF      NEJETBTS                              
032613,002074: 24,3605           00006                          EXTEND                                         
032614,002075: 24,3606           06031                          RXOR     CHAN31                                #  ARE ANY RCS JETS FIRING
032615,002076: 24,3607           73616                          MASK     NEJETBTS                              #  NULLING OUT RESIDUAL VG'S FROM P40?
032616,002077: 24,3610           00006                          EXTEND                                         #  OR PERFORMING P41?
032617,002078: 24,3611           13614                          BZF      SERVXT                                #  NO
032618,002079: 
032619,002080: 24,3612           05547                          TC       UPFLAG                                #  YES - SET BURNFLAG TO INDICATE
032620,002081: 24,3613           00233                          ADRES    BURNFLAG                              #  THAT THE CSM DID THE BURN
032621,002082: 
032622,002083: 24,3614           04655        SERVXT            TC       POSTJUMP                              
032623,002084: 24,3615           77143                          CADR     SERVEXIT                              
032624,002085: 
032625,002086: 24,3616           07700        NEJETBTS          OCT      07700                                 
032626,002087: 
032627,002088: 24,3617           34753        TTG/0             CAF      PRIO20                                #  TASK (4.4 PROTECTS IN P41)
032628,002089: 24,3620           05121                          TC       NOVAC                                 
032629,002090: 24,3621  E6,1465                                 EBANK=   DAPDATR1                              
032630,002091: 24,3621           03451 50066                    2CADR    TIGNOW                                
032631,002092: 
032632,002093: 24,3623           05561        P40CLK            TC       DOWNFLAG                              
032633,002094: 24,3624           00155                          ADRES    TIMRFLAG                              
032634,002095: 24,3625           15314                          TCF      TASKOVER                              
032635,002096: 
032636,002097: 24,3626           77624        P41/DSP           CALL                                           #  COMPUTE
032637,002098: 24,3627           51651                                   P40CNV85                              #         VGTIG IN CTRL COORDS
032638,002099: 24,3630           77776                          EXIT                                           
032639,002100:                                                                                                 # # Page 738
032640,002101: 24,3631           00006                          EXTEND                                         #  DO CONTROL COORD CALCULATION AFTER AVEG
032641,002102: 24,3632           33556                          DCA      ACADN85                               
032642,002103: 24,3633           53062                          DXCH     AVEGEXIT                              
032643,002104: 24,3634           33511                          CAF      V06N85B                               
032644,002105: 24,3635           54777                          TS       NVWORD1                               #  FORCE CLOCKJOB
032645,002106: 24,3636           05362                          TC       2PHSCHNG                              
032646,002107: 24,3637           40036                          OCT      40036                                 #  6.3=CLOKTASK(100CS)
032647,002108: 24,3640           00234                          OCT      234                                   #  4.23=P40S/SV(PRIO12)
032648,002109: 24,3641  01,2154               4P23SPT2          =        4.23SPOT                              
032649,002110: 24,3641  01,2325               6P3SPT3           =        6.3SPOT                               
032650,002111: 24,3641           12523                          TCF      P40S/SV                               
032651,002112: 24,3642           33512        P41REDSP          CAF      V16N85B                               #  ENTER FROM P41 SIDE OF TIGAVEG
032652,002113: 24,3643           54777                          TS       NVWORD1                               #  REDISPLAY NONFLASHING
032653,002114: 24,3644           33530                          CAF      SEC29.96   +1                         
032654,002115: 24,3645           05223                          TC       TWIDDLE                               
032655,002116: 24,3646           03617                          ADRES    TTG/0                                 
032656,002117: 24,3647           44766                          CS       BIT3                                  #  4.4 = TTG/0(2996CS), PRECHECK(-0CS)
032657,002118: 24,3650           12623                          TCF      TTGPHS                                
032658,002119: 
032659,002120: 24,3651           40220        P40CNV85          STQ      SETPD                                 
032660,002121: 24,3652           03730                                   QTEMP1                                
032661,002122: 24,3653           00001                                   0                                     
032662,002123: 24,3654           41575                          VLOAD    PUSH                                  
032663,002124: 24,3655           03721                                   VGPREV                                #  EQUALS VGTIG (TARGETTING INPUT)
032664,002125: 24,3656           77624                          CALL                                           
032665,002126: 24,3657           57032                                   S41.1                                 
032666,002127: 24,3660           37665                          STCALL   VGBODY                                
032667,002128: 24,3661           03730                                   QTEMP1                                
032668,002129: 
032669,002130:                                                                                                 # # Page 739
032670,002131: 
032671,002132:                                                                                                 #  NAME:          P47 - DELTA V MONITOR
032672,002133: 
032673,002134:                                                                                                 #  FUNCTION       TO MONITOR VEHICLE ACCELERATION AND
032674,002135:                                                                                                 #                 DISPLAY ACCUMULATED VG IN CONTROL COORDINATES
032675,002136: 
032676,002137:                                                                                                 #                         R02BOTH         CHECK STATUS OF IMU
032677,002138: 
032678,002139:                                                                                                 #                         MIDTOAV2        EXTRAPOLATE STATE VECTOR TO CURRENT TIME
032679,002140:                                                                                                 #                                         + INCREMENT OF TIMEDELT
032680,002141: 
032681,002142:                                                                                                 #                         SETUPTIG        WAITLIST TIGON IN NO. OF CS FOUND
032682,002143:                                                                                                 #                                         IN MPAC +1 AFTER MIDTOAV2 RETURN
032683,002144: 
032684,002145:                                                                                                 #                         TIGON           SET CALCN83 INTO AVGEXIT,
032685,002146:                                                                                                 #                                         NOVAC P47BODY, AND
032686,002147:                                                                                                 #                                         START SERVICER
032687,002148: 
032688,002149:                                                                                                 #                         CALCN83         ADD PIPA CONTENTS TO ACCUMULATED DELTA V AND
032689,002150:                                                                                                 #                                         CONVERT TO CONTROL COORDINATES AND
032690,002151:                                                                                                 #                                         CALCULATE INERTIAL VELOCITY, R, AND
032691,002152:                                                                                                 #                                         HDOT FOR NOUN 62
032692,002153: 
032693,002154:                                                                                                 #                         P47BODY         ZERO DELVIMU INITIALLY AND
032694,002155:                                                                                                 #                                         GENERATE MONITORING DISPLAY OF ACCUMULATED
032695,002156:                                                                                                 #                                         DELTA V IN CONTROL COORDINATES
032696,002157: 
032697,002158:                                                                                                 #                         *************************************************
032698,002159:                                                                                                 #                         PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
032699,002160:                                                                                                 #                         *************************************************
032700,002161: 
032701,002162:                                                                                                 # # Page 740
032702,002163: 24,3662                                          COUNT*   $$/P47                                
032703,002164: 24,3662  E7,1412                                 EBANK=   TIG                                   
032704,002165: 24,3662           04636        P47CSM            TC       BANKCALL                              #  IMU STATUS CHECK
032705,002166: 24,3663           03731                          CADR     R02BOTH                               
032706,002167: 24,3664           06006                          TC       INTPRET                               
032707,002168: 24,3665           77624                          CALRB                                          
032708,002169: 24,3666           27566                                   MIDTOAV2                              
032709,002170: 24,3667           30155        SETUPTIG          CAE      MPAC       +1                         #  DELTA TIME TO RPEREAD (LESS THAN 100
032710,002171: 24,3670           55672                          TS       P40TMP                                #         CS, WITH A TPAGREE, INT.INIT.)
032711,002172: 24,3671           05223                          TC       TWIDDLE                               
032712,002173: 24,3672           03676                          ADRES    TIGON                                 
032713,002174: 24,3673           05402                          TC       PHASCHNG                              
032714,002175: 24,3674           40574                          OCT      40574                                 #  A, 4.57 = TIGON (P40TMP CS)
032715,002176: 24,3675  01,2226               4P57SPT1          =        4.57SPOT                              
032716,002177: 24,3675           15205                          TCF      ENDOFJOB                              
032717,002178: 
032718,002179: 24,3676  E7,1672                                 EBANK=   P40TMP                                
032719,002180: 24,3676           00006        TIGON             EXTEND                                         
032720,002181: 24,3677           33552                          DCA      ACADN83                               
032721,002182: 24,3700           53062                          DXCH     AVEGEXIT                              
032722,002183: 24,3701           05120                          TC       NOVAC30                               #  FORCE ZEROING OF N83 BEFORE SERVICER
032723,002184: 24,3702  E7,1412                                 EBANK=   TIG                                   
032724,002185: 24,3702           03730 50067                    2CADR    P47BODY                               
032725,002186: 
032726,002187: 24,3704           44767                          CS       BIT2                                  #  4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
032727,002188: 24,3705           12623                          TCF      TTGPHS                                
032728,002189: 
032729,002190: 24,3706  E7,1412                                 EBANK=   TIG                                   
032730,002191: 24,3706           06006        CALCN83           TC       INTPRET                               
032731,002192: 24,3707           77201                          SETPD    VLOAD                                 
032732,002193: 24,3710           00001                                   0                                     
032733,002194: 24,3711           03665                                   DELVCTL                               
032734,002195: 24,3712           41455                          VAD      PUSH                                  
032735,002196: 24,3713           03432                                   DELVREF                               
032736,002197: 24,3714           37460                          STCALL   DV47TEMP                              
032737,002198: 24,3715           57032                                   S41.1                                 
032738,002199: 24,3716           37675                          STCALL   DELVIMU                               
032739,002200: 24,3717           70537                                   S11.1                                 #  CALC. VI, H, HDOT FOR NOUN 62
032740,002201: 24,3720           77776                          EXIT                                           
032741,002202: 24,3721           05402                          TC       PHASCHNG                              
032742,002203: 24,3722           10035                          OCT      10035                                 
032743,002204: 24,3723  01,2250               5P3SPT7           =        5.3SPOT                               
032744,002205: 24,3723           34773                          CAF      FIVE                                  
032745,002206: 24,3724           05607                          TC       GENTRAN                               
032746,002207: 24,3725           01457                          ADRES    DV47TEMP                              
032747,002208: 24,3726           01664                          ADRES    DELVCTL                               
032748,002209: 24,3727           03614                          TC       SERVXT                                
032749,002210: 
032750,002211: 24,3730           06006        P47BODY           TC       INTPRET                               
032751,002212:                                                                                                 # # Page 741
032752,002213: 24,3731           77775                          VLOAD                                          
032753,002214: 24,3732           15336                                   HI6ZEROS                              
032754,002215: 24,3733           03675                          STORE    DELVIMU                               #  CLEAR DISPLAY AND ACCUMULATOR STORAGE
032755,002216: 24,3734           03665                          STORE    DELVCTL                               #  UPON INITIATION OR-ENTER-RESPONSE
032756,002217: 24,3735           77776                          EXIT                                           
032757,002218: 24,3736           35054        P47BOD            CAF      PRIO15                                #  LOWER PRIO THAN CALCN83 (20)
032758,002219: 24,3737           05176                          TC       PRIOCHNG                              #         TO PREVENT INTERRUPTION OF CALCN83
032759,002220: 24,3740           05402                          TC       PHASCHNG                              
032760,002221: 24,3741           05024                          OCT      05024                                 #  TYPE C GROUP 4 BELOW FOR NOUN 83
032761,002222: 24,3742           62777                          OCT      62777                                 #  PRIO 15 NOVAC
032762,002223: 24,3743           33516        P47/DSP           CAF      V1683                                 
032763,002224: 24,3744           04636                          TC       BANKCALL                              
032764,002225: 24,3745           20743                          CADR     GOFLASH                               
032765,002226: 24,3746           04103                          TC       GOTOPOOH                              
032766,002227: 24,3747           04103                          TC       GOTOPOOH                              
032767,002228: 24,3750           13730                          TCF      P47BODY                               #  RECYCLE - CLEAR ACCUMULATED VELOCITY

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