Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
028497,000002: ## Copyright: Public domain.
028498,000003: ## Filename: P40-P47.agc
028499,000004: ## Purpose: A section of Skylark revision 048.
028500,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
028501,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
028502,000007: ## this software are available; instead, this file was created via
028503,000008: ## disassembly of dumps of the core rope modules actually flown on
028504,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
028505,000010: ## Museum of Space History.
028506,000011: ## Assembler: yaYUL
028507,000012: ## Contact: Ron Burkey <info@sandroid.org>.
028508,000013: ## Website: www.ibiblio.org/apollo/index.html
028509,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
028510,000015: ## 2024-03-05 MAS Updated for Skylark 48.
028511,000016:
028512,000017:
028513,000018: # NAME P40 - TVC (SPS BURN)
028514,000019: # MOD BY ALBERT, BEALS, AND DEMERY TO REORGANIZE
028515,000020: # AND REDUCE CODING 15AUG69
028516,000021:
028517,000022: # FUNCTION TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
028518,000023: # AND THRUSTING MANEUVER OF AN SPS BURN
028519,000024:
028520,000025: # CLOKTASK COMPUTE TIME-TO-GO TO IGNITION (FOR N35/40),
028521,000026: # RECALL CLOKTASK, AND AFTER S40.6 COMPLETION
028522,000027: # CALL CLOCKJOB TO DISPLAY V06N40
028523,000028:
028524,000029: # R02BOTH CHECK STATUS OF IMU
028525,000030:
028526,000031: # S40.1 COMPUTE: INTIAL THRUST DIRECTION AND
028527,000032: # INTIAL VALUE OF VELOCITY-TO-BE-
028528,000033: # GAINED VECTOR (VGTIG)
028529,000034:
028530,000035: # S40.2,3 COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
028531,000036: # OCCUR WITH PRESENT IMU ORIENTATION,
028532,000037: # XAXIS OF ENGINE BELL,
028533,000038: # PREFERRED IMU ORIENTATION, AND
028534,000039: # DESIRED THRUST DIRECTION IN SM COORDS
028535,000040:
028536,000041: # R60CSM PERFORM ATTITUDE MANEUVER
028537,000042:
028538,000043: # S40.6 HANDLE GIMBAL TEST AND TRIM OR TRIM ONLY
028539,000044:
028540,000045: # MIDTOAV1 EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
028541,000046:
028542,000047: # TIGBLNK BLANK DSKY AT TIG-35 SECS AND
028543,000048: # WAITLIST TIGAVEG IN 5 SECS
028544,000049:
028545,000050: # TIGAVEG UNBLANK DSKY,
028546,000051: # WAITLIST TIG-5 IN 24.96 SECS, AND
028547,000052: # START SERVICER
028548,000053:
028549,000054: # TIG-5 DISPLAY FLASHING V99N40:
028550,000055: # ENGINE IGNITION ENABLE,
028551,000056: # WAITLIST TIG-0 IN 5 SECS, AND
028552,000057: # FINDVAC S40.13 TO DETERMINE IF THIS IS
028553,000058: # AN IMPULSIVE OR STEERING BURN
028554,000059:
028555,000060: # TIG-0 CHECK IF ASTRONAUT HAS O.K.ED IGNITION (PRIOR
028556,000061: # PROCEED TO V99N40) - IF NOT, IGNITION WILL BE
028557,000062: # ENTERED BY CLOCKJOB IN RESPONSE TO V99N40
028558,000063:
028559,000064: # CLOCKJOB (CALLED EVERY SEC)
028560,000065: # DISPLAY V06N40 EXCEPT WHEN SIGNALED BY TIG-5
028561,000066: # TO FLASH V99N40 AND
028562,000067: # CALL IGNITION WHEN PROCEED RESPONSE TO V99N40
028563,000068: # HAS OCCURRED AND TIG HAS PASSED
028564,000069: # IGNITION TURN ON ENGINE,
028565,000070: # CHECK IF IMPULSIVE BURN, AND IF SO
028566,000071: # SET UP ENGINOFF COMMAND
028567,000072:
028568,000073: # S40.8 UPDATE VELOCITY TO-BE-GAINED VECTOR,
028569,000074: # GENERATE ANGULAR RATE STEERING COMMANDS
028570,000075: # FOR AUTO PILOT,
028571,000076: # UPDATE CSMMASS,
028572,000077: # ESTABLISH ENGINE CUT-OFF SIGNAL AT
028573,000078: # APPROPRIATE TIME, AND
028574,000079: # INITIATE R40, IF THRUST FAILS
028575,000080:
028576,000081: # S40.9 (AIMPOINT MANEUVERS ONLY)
028577,000082: # GENERATE REQUIRED VEL-TO-BE-GAINED VECTOR AND
028578,000083: # UPDATE B-VECTOR WHICH IS USED IN FINAL
028579,000084: # CALCULATION OF EXTRAPOLATING THE VG VECTOR
028580,000085:
028581,000086: # ENGINOFF WIPE OUT TVC,
028582,000087: # TURN OFF CLOKTASK,
028583,000088: # SHUT DOWN ENGINE,
028584,000089: # ADJUST VEHICLE MASS PROPERTIES,
028585,000090: # TURN ON RCS DAP, AND
028586,000091: # UPDATE ENGINE TRIMS
028587,000092:
028588,000093: # POSTBURN DISPLAY FLASHING V16N40,
028589,000094: # CLEAN UP AFTER ENGINE CUT-OFF, AND
028590,000095: # MAINTAIN VG COMP FOR POSSIBLE RCS TRIM
028591,000096:
028592,000097: # *************************************************
028593,000098: # PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
028594,000099: # *************************************************
028595,000100:
028596,000101: # INPUT XDELVFLG = 1 EXTERNAL DELTA V
028597,000102:
028598,000103: # DELVSIN CHANGE OF VELOCITY (VECTOR)
028599,000104: # RTIG CSM POSITION AT TIG
028600,000105: # VTIG CSM VELOCITY AT TIG
028601,000106: # TIG IGNITION TIME
028602,000107: # CSTEER = 0
028603,000108:
028604,000109: # XDELVFLG = 0 LAMBERT (AIMPOINT)
028605,000110:
028606,000111: # RTARG AIMPOINT POSITION VECTOR
028607,000112: # TPASS4 TIME OF ARRIVAL AT AIMPOINT
028608,000113: # TIG IGNITION TIME
028609,000114: # CSTEER = 1
028610,000115:
028611,000116: # ALARMS 1407 VG INCREASING
028612,000117: # 1703 INSUFFICIENT TIME FOR INTEGRATION
028613,000118: # TIG WAS SLIPPED
028614,000119:
028615,000120: 22,3474 E6,1514 EBANK= DAPDATR1
028616,000121: 24,2000 SETLOC P40S
028617,000122: 24,2000 BANK
028618,000123: 24,2000 COUNT* $$/P40
028619,000124: 24,2000 06006 P40CSM TC INTPRET
028620,000125: 24,2001 67214 CLEAR SLOAD
028621,000126: 24,2002 00664 ENG2FLAG
028622,000127: 24,2003 15174 DP1/4TH
028623,000128: 24,2004 77614 SET
028624,000129: 24,2005 01074 SBFLAG
028625,000130: 24,2006 71214 BOFF DLOAD
028626,000131: 24,2007 01347 XDELVFLG # EXTERNAL DELTA V ?
028627,000132: 24,2010 50012 P40S/C # NO CSTEER = ECSTEER
028628,000133: 24,2011 15204 HI6ZEROS # YES CSTEER = ZERO
028629,000134: 24,2012 17663 P40S/C STODL CSTEER
028630,000135: 24,2013 11377 FENG # SET UP THRUST FOR S40.1
028631,000136: 24,2014 17701 P40S/F STODL F # P41 ENTERS HERE
028632,000137: 24,2015 03413 TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
028633,000138: 24,2016 03450 STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9
028634,000139: 24,2017 44234 RTB BDSU
028635,000140: 24,2020 45563 LOADTIME
028636,000141: 24,2021 03413 TIG
028637,000142: 24,2022 77414 SET EXIT
028638,000143: 24,2023 03464 TIMRFLAG
028639,000144:
028640,000145: 24,2024 35003 CAF ZERO
028641,000146: 24,2025 54772 TS NVWORD1
028642,000147: 24,2026 35030 CAF 1SEC
028643,000148: 24,2027 52155 DXCH MPAC
028644,000149: 24,2030 00006 EXTEND
028645,000150: 24,2031 10154 DV MPAC
028646,000151: 24,2032 30001 CA L
028647,000152: 24,2033 61455 AD CLOKDELT
028648,000153: 24,2034 05246 TC WAITLIST
028649,000154: 24,2035 E7,1412 EBANK= TIG
028650,000155: 24,2035 03071 50067 2CADR CLOKTASK
028651,000156:
028652,000157: 24,2037 05375 TC 2PHSCHNG
028653,000158: 24,2040 40036 OCT 40036
028654,000159: 24,2041 04024 OCT 04024
028655,000160: 24,2042 01,2333 6P3SPT1 = 6.3SPOT
028656,000161:
028657,000162: 24,2042 04647 +2 TC BANKCALL
028658,000163: 24,2043 03737 CADR R02BOTH # IMU STATUS CHECK
028659,000164:
028660,000165: # NAME S40.1
028661,000166:
028662,000167: # FUNCTIONAL DESCRIPTION
028663,000168: # COMPUTE INITIAL THRUST DIRECTION (UT) AND INITIAL VALUE OF VG
028664,000169: # VECTOR (VGTIG).
028665,000170:
028666,000171: # SUBROUTINES CALLED
028667,000172: # CSMPREC
028668,000173: # INITVEL
028669,000174: # CALCGRAV
028670,000175: # MIDGIM
028671,000176:
028672,000177: # ERASABLE INITIALIZATION REQUIRED
028673,000178: # WEIGHT/G ANTICIPATED MAG. OF VEHICLE MASS SP B16 KGM
028674,000179: # XDELVFLG 1=DELTA-V MANEUVER, 0=AIMPT STEER
028675,000180: # IF DELTA-V MANEUVER
028676,000181: # DELVSIN SPECIFIED DELTA-V REQUIRED IN
028677,000182: # INERTIAL COORDS. OF ACTIVE VEHICLE
028678,000183: # AT TIME OF IGNITION VECTOR B7 M/CS
028679,000184: # RTIG POSITION AT TIME OF IGNITION VECTOR B29 M
028680,000185: # VTIG VELOCITY AT TIME OF IGNITION VECTOR B7 M/CS
028681,000186: # CSTEER = 0 DP
028682,000187: # IF AIMPOINT STEERING
028683,000188: # TIG TIME OF IGNITION DP B28 CS
028684,000189: # RTARG POSITION TARGET TIME VECTOR B29 M
028685,000190: # TPASS4 TIME OF ARRIVAL AT AIMPOINT
028686,000191: # CSTEER = ECSTEER (GR 0) DP B1
028687,000192:
028688,000193: # OUTPUT
028689,000194: # UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
028690,000195: # VGTIG INITIAL VALUE OF VELOCITY
028691,000196: # TO BE GAINED (INERT. COORD.) VECTOR B7 M/CS
028692,000197: # DELVLVC VGTIG IN LOC. VERT. COORDS.
028693,000198: # F NOMINAL THRUST FOR ENGINE DP B7 M-NEWT
028694,000199: # BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
028695,000200: # -GDT FOR S40.13 VECT B7 M/CS
028696,000201: # RTIG CALC IN S40.1B (AIMPT) FOR S40.2,3 VECTOR B29M
028697,000202: # POSITION AT TIME OF IGNITION
028698,000203:
028699,000204: 24,2044 COUNT* $$/S40.1
028700,000205: 24,2044 06006 S40.1 TC INTPRET
028701,000206: 24,2045 77214 SET VLOAD
028702,000207: 24,2046 01070 FIRSTFLG
028703,000208: 24,2047 15204 HI6ZEROS
028704,000209: 24,2050 03665 STORE BDT
028705,000210: 24,2051 77614 BOFF
028706,000211: 24,2052 01347 XDELVFLG
028707,000212: 24,2053 34020 S40.1B # LAMBERT
028708,000213: 24,2054 51575 VLOAD ABVAL # EXTERNAL DELTA-V
028709,000214: 24,2055 03624 DELVSIN
028710,000215: 24,2056 27632 STOVL DELVSAB
028711,000216: 24,2057 03616 VTIG
028712,000217: 24,2060 03554 STORE VINIT
028713,000218: 24,2061 53435 VXV UNIT
028714,000219: 24,2062 03610 RTIG
028715,000220: 24,2063 27673 STOVL UT # UP IN UT
028716,000221: 24,2064 03610 RTIG
028717,000222: 24,2065 03546 STORE RINIT
028718,000223: 24,2066 65236 VSQ PDDL
028719,000224: 24,2067 00045 36D
028720,000225: 24,2070 56275 DMPR DDV
028721,000226: 24,2071 16765 THETACON
028722,000227: 24,2072 41205 DMP DMP
028723,000228: 24,2073 03632 DELVSAB
028724,000229: 24,2074 03125 WEIGHT/G
028725,000230: 24,2075 77671 DDV
028726,000231: 24,2076 03701 F
028727,000232: 24,2077 24017 STOVL 14D
028728,000233: 24,2100 03624 DELVSIN
028729,000234: 24,2101 74241 DOT VXSC
028730,000235: 24,2102 03673 UT
028731,000236: 24,2103 03673 UT
028732,000237: 24,2104 41552 VSL2 PUSH # (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
028733,000238: 24,2105 65245 BVSU PDDL # DELTA VP SCALED AT 2(+7) P.D.L. 6
028734,000239: 24,2106 03624 DELVSIN
028735,000240: 24,2107 00017 14D
028736,000241: 24,2110 63356 SIN PDVL
028737,000242: 24,2111 00007 6D
028738,000243: 24,2112 53435 VXV UNIT
028739,000244: 24,2113 03673 UT
028740,000245: 24,2114 45561 VXSC STADR
028741,000246: 24,2115 50005 STOVL VGTIG # UNIT(VP X UP)SIN(THETAT) IN VGTIG
028742,000247: 24,2116 65256 UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6
028743,000248: 24,2117 00017 14D
028744,000249: 24,2120 74346 COS VXSC
028745,000250: 24,2121 74255 VAD VXSC
028746,000251: 24,2122 03772 VGTIG
028747,000252: 24,2123 00045 36D
028748,000253: 24,2124 53352 VSL2 VAD
028749,000254: 24,2125 77626 STADR
028750,000255: 24,2126 74005 STORE VGTIG # VG IGNITION SCALED AT 2(+7) M/CS
028751,000256: 24,2127 77656 UNIT
028752,000257: 24,2130 27673 STOVL UT # THRUST DIRECTION SCALED AT 2(+1)
028753,000258: 24,2131 03772 VGTIG
028754,000259: 24,2132 45006 PUSH CALL
028755,000260: 24,2133 11151 GET.LVC # VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
028756,000261:
028757,000262: # NAME S40.2,3
028758,000263:
028759,000264: # FUNCTIONAL DESCRIPTION
028760,000265: # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
028761,000266: # ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
028762,000267: # COMPUTE X AXIS OF ENGINE BELL
028763,000268: # COMPUTE PREFERRED IMU ORIENTATION (XSCREF)
028764,000269: # FOR THIS CALCULATION, ASSUME X AXIS OF SC ALONG UT INITIALLY,
028765,000270: # YSC=UNIT(XXR), ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
028766,000271: # NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
028767,000272: # COORDS. WILL BE PREFERRED IMU ORIENTATION.
028768,000273: # COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
028769,000274:
028770,000275: # SUBROUTINES CALLED
028771,000276: # CALCGA
028772,000277:
028773,000278: # ERASABLE INITIALIZATION REQUIRED
028774,000279: # PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV.
028775,000280: # YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV.
028776,000281: # UT DESIRED THRUST DIRECTION VECT. B2 M/(CS.CS)
028777,000282: # RTIG POSITION AT TIME OF IGNITION VECT. B29 M
028778,000283: # ENG2FLAG ON=RCS OFF=SPS
028779,000284:
028780,000285: # OUTPUT
028781,000286: # SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR B1
028782,000287: # XSCREF UNIT VECTORS ALIGNED WITH PREFERRED IMU B1
028783,000288: # YSCREF
028784,000289: # ZSCREF
028785,000290: # GIMBAL ANGLES IN THETAD
028786,000291: # POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
028787,000292:
028788,000293: 24,2134 COUNT* $$/S40.2
028789,000294: 24,2134 64375 S40.2,3 VLOAD MXV
028790,000295: 24,2135 03673 UT
028791,000296: 24,2136 01720 REFSMMAT
028792,000297: 24,2137 40372 VSL1 SETPD
028793,000298: 24,2140 00001 00D
028794,000299: 24,2141 17362 STODL POINTVSM
028795,000300: 24,2142 15204 HI6ZEROS
028796,000301: 24,2143 41414 BON PUSH
028797,000302: 24,2144 00704 ENG2FLAG
028798,000303: 24,2145 34112 S40.2,3B
028799,000304: 24,2146 41335 SLOAD DMP
028800,000305: 24,2147 03012 YACTOFF
028801,000306: 24,2150 11407 TRIMSCAL
028802,000307: 24,2151 43352 SL1 DAD
028803,000308: 24,2152 11411 YBIAS
028804,000309: 24,2153 71406 PUSH COS
028805,000310: 24,2154 73525 PDDL SIN
028806,000311: 24,2155 67206 PUSH SLOAD
028807,000312: 24,2156 03011 PACTOFF
028808,000313: 24,2157 72405 DMP SL1
028809,000314: 24,2160 11407 TRIMSCAL
028810,000315: 24,2161 41415 DAD PUSH
028811,000316: 24,2162 11413 PBIAS
028812,000317: 24,2163 65346 COS PDDL # COS(P +P0) PDL 6
028813,000318: 24,2164 41556 SIN PUSH # SIN(P +P0) PDL 8D
028814,000319: 24,2165 14323 STODL ZSCREF # SIN(P +P0)
028815,000320: 24,2166 00007 6
028816,000321: 24,2167 72405 DMP SL1
028817,000322: 24,2170 00005 4
028818,000323: 24,2171 65276 DCOMP PDDL # -SIN(Y+Y0)COS(P+P0) PDL 10
028819,000324: 24,2172 00007 6
028820,000325: 24,2173 72405 DMP SL1
028821,000326: 24,2174 00003 2
028822,000327: 24,2175 77666 VDEF
028823,000328: 24,2176 14307 STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT
028824,000329: 24,2177 00323 ZSCREF
028825,000330: 24,2200 72405 DMP SL1
028826,000331: 24,2201 00005 4
028827,000332: 24,2202 41325 PDDL DMP
028828,000333: 24,2203 00323 ZSCREF
028829,000334: 24,2204 00003 2
028830,000335: 24,2205 57552 SL1 DCOMP
028831,000336: 24,2206 77666 VDEF
028832,000337: 24,2207 14323 STODL ZSCREF # PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
028833,000338: 24,2210 77666 VDEF
028834,000339: 24,2211 14315 STODL YSCREF # PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
028835,000340: 24,2212 00323 ZSCREF
028836,000341: 24,2213 65325 PDDL PDDL
028837,000342: 24,2214 00315 YSCREF
028838,000343: 24,2215 00307 XSCREF
028839,000344: 24,2216 77666 VDEF
028840,000345: 24,2217 27354 STOVL SCAXIS # ENGINE BELL SCALED AT 2
028841,000346: 24,2220 03673 UT
028842,000347: 24,2221 53515 PDVL UNIT
028843,000348: 24,2222 03610 RTIG
028844,000349: 24,2223 57435 VXV VCOMP
028845,000350: 24,2224 00001 0
028846,000351: 24,2225 41456 UNIT PUSH
028847,000352: 24,2226 77624 CALL
028848,000353: 24,2227 62623 TSTRXUT
028849,000354: 24,2230 57435 VXV VCOMP
028850,000355: 24,2231 00001 0
028851,000356: 24,2232 63372 VSL1 PDVL # 2 RF/SC IN PDL 12D
028852,000357: 24,2233 00307 XSCREF
028853,000358: 24,2234 76505 VXM VSL1
028854,000359: 24,2235 00001 0
028855,000360: 24,2236 24307 STOVL XSCREF # X OF PREF IMU,X OF SC IN REF COOR. AT 2
028856,000361: 24,2237 00315 YSCREF
028857,000362: 24,2240 76505 VXM VSL1
028858,000363: 24,2241 00001 0
028859,000364: 24,2242 24315 STOVL YSCREF # Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
028860,000365: 24,2243 00323 ZSCREF
028861,000366: 24,2244 76505 VXM VSL1
028862,000367: 24,2245 00001 0
028863,000368: 24,2246 00323 STORE ZSCREF # Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
028864,000369: 24,2247 COUNT* $$/P40
028865,000370:
028866,000371: 24,2247 77414 P40SXTY SET EXIT
028867,000372: 24,2250 01073 PFRATFLG
028868,000373: 24,2251 35030 CAF 1SEC
028869,000374: 24,2252 04647 TC BANKCALL
028870,000375: 24,2253 01731 CADR DELAYJOB
028871,000376: 24,2254 03034 TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6)
028872,000377: 24,2255 07722 TC DOWNFLAG
028873,000378: 24,2256 00124 ADRES 3AXISFLG
028874,000379: 24,2257 04647 TC BANKCALL
028875,000380: 24,2260 56000 CADR R60CSM # ATTITUDE MANEUVER
028876,000381: 24,2261 05415 TC PHASCHNG # COMPTGO DESTROYS
028877,000382: 24,2262 00014 OCT 00014 # 4.1 RESTART SETUP
028878,000383: 24,2263 45001 CS ONE # FOR UPDATEVG
028879,000384: 24,2264 55753 TS NBRCYCLS
028880,000385: 24,2265 06006 TC INTPRET
028881,000386: 24,2266 77614 BON
028882,000387: 24,2267 00704 ENG2FLAG # P40 OR P41 ?
028883,000388: 24,2270 51740 P41/DSP
028884,000389: 24,2271 51575 VLOAD ABVAL # FOR R2
028885,000390: 24,2272 03772 VGTIG
028886,000391: 24,2273 17764 STODL VGDISP
028887,000392: 24,2274 15204 HI6ZEROS
028888,000393: 24,2275 17426 STODL DVTOTAL
028889,000394: 24,2276 11423 S40.8ADS
028890,000395: 24,2277 01054 STORE AVEGEXIT
028891,000396: 24,2300 77776 EXIT
028892,000397: 24,2301 33363 P40GMB CAF P40CKLS2 # (4.1 PROTECTION)
028893,000398: 24,2302 04647 TC BANKCALL
028894,000399: 24,2303 20747 CADR GOPERF1
028895,000400: 24,2304 13251 TCF POST41 # V34
028896,000401: 24,2305 12366 TCF TST,TRIM # V33
028897,000402: 24,2306 45001 TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1)
028898,000403: 24,2307 55451 +1 TS MRKRTMP # ENTRY FROM TST,TRIM
028899,000404: 24,2310 35003 CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6
028900,000405: 24,2311 55453 TS CNTR # +0 SAYS NORMAL ENTRY.
028901,000406: # +1 (PRE40.6) SAYS RESTART ENTRY
028902,000407: 24,2312 35001 CAF ONE
028903,000408: 24,2313 05246 TC WAITLIST
028904,000409: 24,2314 E6,1514 EBANK= DAPDATR1
028905,000410: 24,2314 02323 40066 2CADR S40.6
028906,000411:
028907,000412: 24,2316 11451 CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
028908,000413: 24,2317 33367 CAF 18SEC # PLUS, DELAY FOR 18 SECONDS
028909,000414: 24,2320 12322 TCF +2 # HOLE
028910,000415: 24,2321 33371 CAF 5SEC # DELAY FOR TRIM ONLY TASK
028911,000416: 24,2322 04647 TC BANKCALL
028912,000417: 24,2323 01731 CADR DELAYJOB
028913,000418: 24,2324 33361 CAF V06N40
028914,000419: 24,2325 54772 TS NVWORD1 # FORCE CLOCKJOB
028915,000420: 24,2326 05375 TC 2PHSCHNG
028916,000421: 24,2327 00026 OCT 00026 # 6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
028917,000422: 24,2330 00234 OCT 00234 # 4.23 = P40S/SV (PRIO12)
028918,000423: 24,2331 01,2162 4P23SPT1 = 4.23SPOT
028919,000424: 24,2331 01,2325 6P2SPT1 = 6.2SPOT
028920,000425: 24,2331 04606 P40S/SV TCR E7SETTER # JOB, 4.23 PROTECTS, PRIO12
028921,000426: 24,2332 E7,1412 EBANK= TIG
028922,000427: 24,2332 06006 TC INTPRET
028923,000428: 24,2333 45345 DLOAD DSU
028924,000429: 24,2334 03413 TIG
028925,000430: 24,2335 11375 SEC29.96
028926,000431: 24,2336 00041 STORE TDEC1
028927,000432: 24,2337 77624 CALRB # RETURN IN BASIC
028928,000433: 24,2340 27545 MIDTOAV1
028929,000434: 24,2341 02350 TC P40SET # P15 INTEGRATION ALWAYS RETURNS HERE
028930,000435: 24,2342 00006 P40SNEWM EXTEND # INTEGRATION TIME GREATER THAN ALLOWED
028931,000436: 24,2343 31077 DCA PIPTIME1
028932,000437: 24,2344 53413 DXCH TIG
028933,000438: 24,2345 00006 EXTEND
028934,000439: 24,2346 33375 DCA SEC29.96
028935,000440: 24,2347 21413 DAS TIG # SET NEW TIG FOR V06N40
028936,000441: 24,2350 00006 P40SET EXTEND
028937,000442: 24,2351 30155 DCA MPAC # DELTA TIME TO PREREAD
028938,000443: 24,2352 53653 DXCH P40TMP
028939,000444: 24,2353 00006 EXTEND
028940,000445: 24,2354 43371 DCS 5SECDP # FOR TIGBLNK
028941,000446: 24,2355 21653 DAS P40TMP
028942,000447: 24,2356 00006 EXTEND
028943,000448: 24,2357 31653 DCA P40TMP
028944,000449: 24,2360 05345 TC LONGCALL
028945,000450: 24,2361 E7,1412 EBANK= TIG
028946,000451: 24,2361 02373 50067 2CADR TIGBLNK
028947,000452:
028948,000453: 24,2363 05415 TC PHASCHNG
028949,000454: 24,2364 20214 OCT 20214 # 4.21 = TIGBLNK (P40TMP CS)
028950,000455: 24,2365 01,2157 4P21SPT1 = 4.21SPOT
028951,000456: 24,2365 15220 TCF ENDOFJOB
028952,000457:
028953,000458: 24,2366 35001 TST,TRIM CAF BIT1 # SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
028954,000459: 24,2367 12307 TCF TRIMONLY +1
028955,000460:
028956,000461: 24,2370 04647 P40BLNKR TC BANKCALL
028957,000462: 24,2371 20575 CADR CLEANDSP # REMOVE RESIDUE
028958,000463: 24,2372 15220 TCF ENDOFJOB
028959,000464:
028960,000465: 24,2373 33371 TIGBLNK CAF 5SEC # CALL TIGAVEG IN 5 SEC AT TIG - AVEGDT
028961,000466: 24,2374 05236 TC TWIDDLE
028962,000467: 24,2375 02410 ADRES TIGAVEG
028963,000468: 24,2376 35003 CAF ZERO # DISABLE HERE, NOT IN P40BLNKR
028964,000469: 24,2377 54772 TS NVWORD1
028965,000470: 24,2400 35065 CAF PRIO14
028966,000471: 24,2401 05134 TC NOVAC
028967,000472: 24,2402 E7,1412 EBANK= TIG
028968,000473: 24,2402 02370 50067 2CADR P40BLNKR # DONT PROTECT - RESTARTS BLANK DSKY
028969,000474:
028970,000475: 24,2404 44342 CS OCT37 # 4.37 = TIGAVEG (500CS)
028971,000476: 24,2405 04126 P40TSK TC NEWPHASE
028972,000477: 24,2406 00004 OCT 4
028973,000478: 24,2407 01,2204 4P37SPT1 = 4.37SPOT
028974,000479: 24,2407 05327 TC TASKOVER
028975,000480:
028976,000481: 24,2410 E7,1412 EBANK= TIG
028977,000482: 24,2410 44776 TIGAVEG CS PFRATBIT # TASK (4.37 PROTECTS)
028978,000483: 24,2411 70076 MASK FLAGWRD2
028979,000484: 24,2412 54076 TS FLAGWRD2
028980,000485: 24,2413 30075 CAE FLAGWRD1
028981,000486: 24,2414 74767 MASK ENG2BIT
028982,000487: 24,2415 10000 CCS A # P40 OR P41 ?
028983,000488: 24,2416 13754 TCF P41REDSP
028984,000489: 24,2417 33361 CAF V06N40 # UNBLANK DISPLAY
028985,000490: 24,2420 54772 TS NVWORD1
028986,000491: 24,2421 33366 CAF SEC24.96
028987,000492: 24,2422 05236 TC TWIDDLE
028988,000493: 24,2423 02433 ADRES TIG-5
028989,000494: 24,2424 46211 CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
028990,000495: 24,2425 04126 TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR
028991,000496: 24,2426 00004 OCT 4 # FROM TIGON (P47) WITH A=-2
028992,000497: 24,2427 01,2110 4P2SPT1 = 4.2SPOT
028993,000498: 24,2427 01,2116 4P4SPT1 = 4.4SPOT
028994,000499: 24,2427 01,2124 4P6SPT1 = 4.6SPOT
028995,000500: 24,2427 11156 PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED
028996,000501: 24,2430 15327 TCF TASKOVER # YES, DONT START ANOTHER ONE
028997,000502: 24,2431 04666 TC POSTJUMP
028998,000503: 24,2432 76447 CADR PREREAD
028999,000504:
029000,000505: 24,2433 E7,1412 EBANK= TIG
029001,000506: 24,2433 33371 TIG-5 CAF 5SEC
029002,000507: 24,2434 05246 TC WAITLIST
029003,000508: 24,2435 E6,1514 EBANK= DAPDATR1
029004,000509: 24,2435 02450 50066 2CADR TIG-0
029005,000510:
029006,000511: 24,2437 44771 CS BIT9 # WILL CAUSE V99 FLASH
029007,000512: 24,2440 54772 TS NVWORD1
029008,000513: 24,2441 05375 TC 2PHSCHNG
029009,000514: 24,2442 40074 OCT 40074 # A, 4.7 = TIG-0 (500CS)
029010,000515: 24,2443 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO20)
029011,000516: 24,2444 01,2060 3P3SPT1 = 3.3SPOT
029012,000517: 24,2444 01,2140 4P7SPT1 = 4.7SPOT
029013,000518: 24,2444 05147 TC FINVAC20
029014,000519: 24,2445 E7,1427 EBANK= TGO
029015,000520: 24,2445 02463 34067 2CADR S40.13
029016,000521:
029017,000522: 24,2447 15327 TCF TASKOVER
029018,000523:
029019,000524:
029020,000525: 24,2450 E6,1514 EBANK= DAPDATR1 # TASK, 4.7 PHASE OR 4.11 (-0 CS IN R40)
029021,000526: 24,2450 40103 TIG-0 CS FLAGWRD7 # SET IGN FLAG
029022,000527: 24,2451 74765 MASK IGNFLBIT
029023,000528: 24,2452 26103 ADS FLAGWRD7
029024,000529: 24,2453 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE
029025,000530: 24,2454 74766 MASK BIT12
029026,000531: 24,2455 00006 EXTEND
029027,000532: 24,2456 15327 BZF TASKOVER # WAIT FOR V99P
029028,000533: 24,2457 33361 CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART
029029,000534: 24,2460 54772 TS NVWORD1 # DURING THE V99 SEQUENCE)
029030,000535: 24,2461 05415 TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW
029031,000536: 24,2462 00274 OCT 00274 # A, 4.27 = IGNITION (-0CS) TBASE OLD
029032,000537: 24,2463 01,2170 4P27SPT1 = 4.27SPOT
029033,000538: 24,2463 30032 IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD
029034,000539: 24,2464 55454 TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION
029035,000540: 24,2465 00006 EXTEND # TASK (4.61 PROTECTION)
029036,000541: 24,2466 30025 DCA TIME2 # FOR RESTARTS
029037,000542: 24,2467 53015 DXCH TEVENT
029038,000543: 24,2470 40101 CS FLAGWRD5 # SET ENGONFLG
029039,000544: 24,2471 74773 MASK ENGONBIT
029040,000545: 24,2472 26101 ADS FLAGWRD5
029041,000546: 24,2473 34765 SPSON CAF BIT13 # TURN ON SPS ENGINE
029042,000547: 24,2474 00006 EXTEND
029043,000548: 24,2475 05011 WOR DSALMOUT
029044,000549:
029045,000550: 24,2476 34771 IMPULCHK CAF IMPULBIT # CHECK FOR IMPULSIVE BURN
029046,000551: 24,2477 70076 MASK FLAGWRD2
029047,000552: 24,2500 10000 CCS A
029048,000553: 24,2501 12567 TCF IMPLBURN # IMPULSIVE
029049,000554: 24,2502 40102 CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL
029050,000555: 24,2503 74765 MASK STRULBIT
029051,000556: 24,2504 26102 ADS FLAGWRD6
029052,000557: 24,2505 44076 PREPTVC CS DPCONFIG # RESET T5 BITS
029053,000558: 24,2506 70102 MASK FLAGWRD6
029054,000559: 24,2507 54102 TS FLAGWRD6
029055,000560: 24,2510 00006 EXTEND # KILL RCS
029056,000561: 24,2511 33415 DCA T5IDL24
029057,000562: 24,2512 52113 DXCH T5LOC
029058,000563: 24,2513 46214 CS THREE # 4.3 = DOTVCON (40CS)
029059,000564: 24,2514 04126 TC NEWPHASE
029060,000565: 24,2515 00004 OCT 4
029061,000566: 24,2516 01,2132 4P3SPT1 = 4.3SPOT
029062,000567: 24,2516 05270 TC FIXDELAY
029063,000568: 24,2517 00050 DEC 40 B-14 # 0.4 SECOND DELAY FOR THRUST BUILDUP
029064,000569: 24,2520 45001 DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
029065,000570: 24,2521 55664 TS TVCPHASE
029066,000571: 24,2522 35003 CAF ZERO # SET TVCEXECUTIVE PHASE
029067,000572: 24,2523 55673 TS TVCEXPHS
029068,000573: 24,2524 44076 CS DPCONFIG # SET T5 BITS TO INDICATE TVC TAKEOVER....
029069,000574: 24,2525 70102 MASK FLAGWRD6 # BITS 15,14 = 10
029070,000575: 24,2526 64763 AD DAP1BIT
029071,000576: 24,2527 54102 TS FLAGWRD6
029072,000577: 24,2530 36214 CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6
029073,000578: 24,2531 54001 TS L # WHICH IS HANDLED NOW BY REDOTVC
029074,000579: 24,2532 40000 COM
029075,000580: 24,2533 53160 DXCH -PHASE6
029076,000581: 24,2534 01,2333 6P3SPT2 = 6.3SPOT
029077,000582: 24,2534 00006 EXTEND # STORE RCS ATTITUDE ERRORS FOR USE IN
029078,000583: 24,2535 41622 DCS ERRORY # INITIALIZING TVC ATTITUDE ERRORS
029079,000584: 24,2536 53714 DXCH ERRBTMP
029080,000585: 24,2537 45004 CS FIVE # 4.5 = DOSTRULL (160 CS)
029081,000586: 24,2540 04126 TC NEWPHASE
029082,000587: 24,2541 00004 OCT 4
029083,000588: 24,2542 01,2135 4P5SPT1 = 4.5SPOT
029084,000589: 24,2542 34761 CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY
029085,000590: 24,2543 54030 TS TIME5
029086,000591: 24,2544 00006 EXTEND
029087,000592: 24,2545 33425 DCA TVCON2C # (TVCDAPON)
029088,000593: 24,2546 52113 DXCH T5LOC # (KILLS RCS DAP)
029089,000594: 24,2547 05270 TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
029090,000595: 24,2550 00240 DEC 160 B-14 # STEERING (IF NON-IMPULSIVE)
029091,000596: 24,2551 40102 DOSTRULL CS FLAGWRD6 # CHECK STRULLSW FOR IMPULSIVE BURN
029092,000597: 24,2552 74765 MASK STRULBIT
029093,000598: 24,2553 10000 CCS A
029094,000599: 24,2554 02560 TC ULAGEOFF # ULLAGE OFF
029095,000600: 24,2555 40076 STEERULL CS FLAGWRD2 # SET STEERSW
029096,000601: 24,2556 74767 MASK STEERBIT
029097,000602: 24,2557 26076 ADS FLAGWRD2
029098,000603: 24,2560 35003 ULAGEOFF CAF ZERO
029099,000604: 24,2561 00006 EXTEND
029100,000605: 24,2562 01005 WRITE CHAN5 # ZERO CHANNEL 5
029101,000606: 24,2563 00006 EXTEND
029102,000607: 24,2564 35003 DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0, +0)
029103,000608: 24,2565 53154 DXCH -PHASE4
029104,000609: 24,2566 15327 ENDIGN TCF TASKOVER
029105,000610:
029106,000611: 24,2567 44765 IMPLBURN CS STRULBIT # RESET STRULLSW (COULD BE AN IMPULSIVE
029107,000612: 24,2570 70102 MASK FLAGWRD6 # ENGINE FAIL)
029108,000613: 24,2571 54102 TS FLAGWRD6
029109,000614: 24,2572 04606 TCR E7SETTER
029110,000615: 24,2573 E7,1412 EBANK= TIG
029111,000616: 24,2573 00006 EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK)
029112,000617: 24,2574 31430 DCA TGO
029113,000618: 24,2575 53413 DXCH TIG
029114,000619: 24,2576 00006 EXTEND
029115,000620: 24,2577 30025 DCA TIME2
029116,000621: 24,2600 21413 DAS TIG
029117,000622: 24,2601 40076 CS FLAGWRD2
029118,000623: 24,2602 74777 MASK SBFLGBIT
029119,000624: 24,2603 10000 CCS A
029120,000625: 24,2604 12637 TCF LONGBURN
029121,000626: 24,2605 31430 CA TGO +1
029122,000627: 24,2606 00006 EXTEND
029123,000628: 24,2607 73373 MP DEC.1
029124,000629: 24,2610 00006 EXTEND
029125,000630: 24,2611 74355 MP TEN
029126,000631: 24,2612 41424 CS SBDELT
029127,000632: 24,2613 60001 AD L
029128,000633: 24,2614 00006 EXTEND
029129,000634: 24,2615 62617 BZMF +2
029130,000635: 24,2616 12627 TCF SBCALL
029131,000636: 24,2617 54001 TS L
029132,000637: 24,2620 34355 CAF TEN
029133,000638: 24,2621 54002 TS Q
029134,000639: 24,2622 35002 CAF NEG0
029135,000640: 24,2623 00006 EXTEND
029136,000641: 24,2624 10002 DV Q
029137,000642: 24,2625 34124 CAF DEC20
029138,000643: 24,2626 60001 AD L
|
|
The name of the following label is a guess.
|
029140,000645: 24,2627 55470 SBCALL TS SBTEMP
029141,000646: 24,2630 05236 TC TWIDDLE
029142,000647: 24,2631 03474 ADRES SBTASK
029143,000648: 24,2632 05375 TC 2PHSCHNG
029144,000649: 24,2633 40153 OCT 40153
029145,000650: 24,2634 05014 OCT 05014
029146,000651: 24,2635 01,2077 3P15SPT1 = 3.15SPOT
029147,000652: 24,2635 77777 DEC -0 B-14 # -0 CS
029148,000653: 24,2636 12650 TCF IMPLCONT
029149,000654:
|
|
The name of the following label is a guess.
|
029151,000656: 24,2637 05375 LONGBURN TC 2PHSCHNG
029152,000657: 24,2640 40053 OCT 40053 # A, 3.5 = ENGINOFF (TGO+1)....NOTE GROUP
029153,000658: 24,2641 07014 OCT 07014 # C, DELTAT AND 2CADR FOLLOW FOR TASK BELO
029154,000659: 24,2642 01,2063 3P5SPT1 = 3.5SPOT
029155,000660: 24,2642 77777 DEC -0 B-14 # -0 CS
029156,000661: 24,2643 E6,1514 EBANK= DAPDATR1
029157,000662: 24,2643 02650 50066 2CADR IMPLCONT
029158,000663:
029159,000664: 24,2645 31430 CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS)
029160,000665: 24,2646 05236 TC TWIDDLE
029161,000666: 24,2647 02655 ADRES ENGINOFF
029162,000667: 24,2650 44771 IMPLCONT CS IMPULBIT # RESET IMPULSW, ENGINOFF IS NOW SET UP
029163,000668: 24,2651 70076 MASK FLAGWRD2
029164,000669: 24,2652 54076 TS FLAGWRD2
029165,000670: 24,2653 04611 TCR E6SETTER
029166,000671: 24,2654 E6,1514 EBANK= DAPDATR1
029167,000672: 24,2654 12505 TCF PREPTVC
029168,000673:
029169,000674: 24,2655 E7,1427 EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
029170,000675: 24,2655 04611 ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6
029171,000676: 24,2656 E6,1514 EBANK= DAPDATR1
029172,000677: 24,2656 02677 DOSPSOFF TCR SPSOFF # SHUT DOWN SPS
029173,000678: 24,2657 05270 TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF
029174,000679: 24,2660 00372 DEC 250 B-14 # RESTART MAY DOUBLE THE DELAY, HIT TEVENT
029175,000680: 24,2661 03057 DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT
029176,000681: 24,2662 04725 TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5
029177,000682: 24,2663 45504 CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
029178,000683: 24,2664 04725 TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
029179,000684: 24,2665 13311 CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS
029180,000685: 24,2666 03013 TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK
029181,000686: 24,2667 05375 TC 2PHSCHNG
029182,000687: 24,2670 00003 OCT 00003 # KILL GROUP 3 PROTECTION OF ENGINOFF
029183,000688: 24,2671 00354 OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12)
029184,000689: 24,2672 01,2201 4P35SPT1 = 4.35SPOT
029185,000690: 24,2672 34675 CAF PRIO12 # SET UP POSTBURN V16N40 JOB
029186,000691: 24,2673 05134 TC NOVAC
029187,000692: 24,2674 E6,1514 EBANK= DAPDATR1 # (SET MAXDB IN POST41)
029188,000693: 24,2674 03026 50066 2CADR POSTBURN
029189,000694:
029190,000695: 24,2676 15327 TCF TASKOVER
029191,000696:
029192,000697: 24,2677 E6,1514 EBANK= DAPDATR1
029193,000698: 24,2677 00004 SPSOFF INHINT
029194,000699: 24,2700 00006 EXTEND # ESTABLISH SPSOFF TEVENT
029195,000700: 24,2701 30025 DCA TIME2
029196,000701: 24,2702 53015 DXCH TEVENT
029197,000702: 24,2703 44773 CS ENGONBIT # RESET ENGONFLG
029198,000703: 24,2704 70101 MASK FLAGWRD5
029199,000704: 24,2705 54101 TS FLAGWRD5 # (RESTARTS WILL SHUT DOWN SPS NOW)
029200,000705: 24,2706 44765 CS BIT13 # SHUT DOWN SPS ENGINE
029201,000706: 24,2707 00006 EXTEND
029202,000707: 24,2710 03011 WAND DSALMOUT
029203,000708: 24,2711 34764 CAF BIT14 # ISSUE SIV CUTOFF COMMAND
029204,000709: 24,2712 00006 EXTEND # FOR POSSIBLE BACK-UP USE
029205,000710: 24,2713 05012 WOR CHAN12
029206,000711: 24,2714 31664 CA TVCPHASE # CHECK IF OK FOR TRIM UPDATE
029207,000712: 24,2715 65001 AD ONE # THESE CHECKS ARE ONLY NEEDED
029208,000713: 24,2716 00006 EXTEND # FOR A LESS THAN 0.4 SEC BURN
029209,000714: 24,2717 12733 BZF BTRIMR # NO, INITIALIZATION NOT COMPLETE
029210,000715: 24,2720 40102 CS FLAGWRD6 # YES, CHECK IF TVC
029211,000716: 24,2721 74076 MASK DPCONFIG
029212,000717: 24,2722 00006 EXTEND
029213,000718: 24,2723 62733 BZMF BTRIMR # NO, NOT TVC YET
029214,000719: 24,2724 31662 CAE REPFRAC # NO TRIM UPDATES IF R40 (ENGFAIL) ACTIVE
029215,000720: 24,2725 00006 EXTEND # (LOTHRUST SETS REPFRAC = 77777)
029216,000721: 24,2726 12733 BZF BTRIMR
029217,000722: 24,2727 31630 BESTTRIM CAE DELPBAR # UPDATE TRIMS WITH DELFILTER VALUES
029218,000723: 24,2730 55410 TS PACTOFF
029219,000724: 24,2731 31632 CAE DELYBAR
029220,000725: 24,2732 55411 TS YACTOFF
029221,000726: 24,2733 00002 BTRIMR TC Q
029222,000727:
029223,000728: 24,2734 COUNT* $$/S40.8
029224,000729: 24,2734 E6,1453 EBANK= CNTR
029225,000730: 24,2734 77775 S40.81 VLOAD # TGO LESS THAN 4 SECONDS
029226,000731: 24,2735 15204 HI6ZEROS
029227,000732: 24,2736 03155 RATEZRO STORE OMEGAC # TVC TO ATTITUDE HOLD
029228,000733: 24,2737 77776 EXIT
029229,000734: 24,2740 34761 CAF POSMAX # INHIBIT SWITCHOVER/TVC EG TRACKING
029230,000735: 24,2741 55453 TS CNTR
029231,000736: 24,2742 04606 TCR E7SETTER
029232,000737: 24,2743 E7,1412 EBANK= TIG
029233,000738: 24,2743 00004 INHINT
029234,000739: 24,2744 00006 EXTEND
029235,000740: 24,2745 31413 DCA TIG
029236,000741: 24,2746 52155 DXCH MPAC
029237,000742: 24,2747 00006 EXTEND
029238,000743: 24,2750 40025 DCS TIME2
029239,000744: 24,2751 20155 DAS MPAC
029240,000745: 24,2752 07224 TCR DPAGREE
029241,000746: 24,2753 30155 CAE MPAC +1 # (LESS THAN 6 (OR 4) SECONDS TO GO)
029242,000747: 24,2754 00006 EXTEND
029243,000748: 24,2755 62757 BZMF +2
029244,000749: 24,2756 12760 TCF +2
029245,000750: 24,2757 35001 CAF ONE
029246,000751: 24,2760 55430 TS TGO +1
029247,000752: 24,2761 05236 TC TWIDDLE
029248,000753: 24,2762 02655 ADRES ENGINOFF
029249,000754: 24,2763 05375 TC 2PHSCHNG
029250,000755: 24,2764 40053 OCT 40053 # A,3.5 = ENGINOFF (TGO+1)....NOTE GROUP
029251,000756: 24,2765 10035 OCT 10035 # B, 5.3 = REREADAC, AND START BELOW
029252,000757: 24,2766 01,2063 3P5SPT2 = 3.5SPOT
029253,000758: 24,2766 01,2253 5P3SPT2 = 5.3SPOT
029254,000759: 24,2766 07722 CLEARSTR TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP
029255,000760: 24,2767 00042 ADRES STEERSW # RESTARTS OK
029256,000761: 24,2770 13726 TCF SERVXT
029257,000762:
029258,000763: 24,2771 77776 INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING
029259,000764: 24,2772 05644 TC ALARM # IN WRONG DIRECTION.
029260,000765: 24,2773 01407 OCT 01407
029261,000766: 24,2774 13726 TCF SERVXT
029262,000767:
029263,000768: 24,2775 COUNT* $$/R40
029264,000769: 24,2775 77614 LOTHRUST BOFF
029265,000770: 24,2776 01344 STEERSW
029266,000771: 24,2777 51725 SERVXT1 # NO STEERING. EXIT
029267,000772: 24,3000 77214 R40CHECK BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
029268,000773: 24,3001 00711 IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
029269,000774: 24,3002 51725 SERVXT1 # UNFAVORABLE STEERING SYNCH
029270,000775: 24,3003 15204 R40START HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS
029271,000776: 24,3004 03155 STORE OMEGAC # PUT TVC IN ATTITUDE HOLD
029272,000777: 24,3005 77776 EXIT
029273,000778: 24,3006 E6,1514 EBANK= DAPDATR1
029274,000779: 24,3006 45003 CS ZERO
029275,000780: 24,3007 55662 TS REPFRAC # KILL TVCDAP CG TRIM TRACKING
029276,000781: 24,3010 54772 TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
029277,000782: 24,3011 12766 TCF CLEARSTR
029278,000783:
029279,000784: 24,3012 COUNT* $$/P40
029280,000785: 24,3012 00004 -1 INHINT
029281,000786: 24,3013 43364 TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRS, REENGAGE
029282,000787: 24,3014 00006 EXTEND # OPTICS DAC
029283,000788: 24,3015 03012 WAND CHAN12
029284,000789: 24,3016 45001 CS BIT1 # ENABLE T4RUPT OPTICS MONITOR....PERMIT
029285,000790: 24,3017 55313 TS OPTIND # OPTICS-ZERO BUT NOT OPTICS-DRIVE
029286,000791: 24,3020 35003 CAF ZERO # CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
029287,000792: 24,3021 54772 TS NVWORD1
029288,000793: 24,3022 44767 CS TIMRBIT # CLEAR TIMRFLAG TO STOP CLOKTASK
029289,000794: 24,3023 70103 MASK FLAGWRD7
029290,000795: 24,3024 54103 TS FLAGWRD7
029291,000796: 24,3025 00002 TC Q
029292,000797:
029293,000798: 24,3026 E6,1514 EBANK= DAPDATR1
029294,000799: 24,3026 33362 POSTBURN CAF V16N40 # NOVAC, PRIO 12
029295,000800: 24,3027 04647 TC BANKCALL
029296,000801: 24,3030 20576 CADR REFLASH
029297,000802: 24,3031 13251 TCF POST41 # V34 GO FINISH
029298,000803: 24,3032 13307 TCF P40RCS # PROCEED
029299,000804: 24,3033 13026 TCF POSTBURN # RECYCLE
029300,000805:
029301,000806: 24,3034 E6,1514 EBANK= DAPDATR1
029302,000807: 24,3034 00004 -1 INHINT
029303,000808: 24,3035 51475 SETMINDB INDEX WHICHDAP
029304,000809: 24,3036 13037 TCF +1
029305,000810: 24,3037 13043 TCF +4
029306,000811: 24,3040 31474 CA DKDB
029307,000812: 24,3041 55706 TS ADB
029308,000813: 24,3042 00002 TC Q
029309,000814:
029310,000815: 24,3043 30032 CA CDUX # ROUTINE FOR SETTING
029311,000816: 24,3044 55623 TS THETADX # THE MINIMUM DEADBAND
029312,000817: 24,3045 00006 EXTEND # IN AUTOPILOT
029313,000818: 24,3046 30034 DCA CDUY
029314,000819: 24,3047 53625 DXCH THETADY
029315,000820: 24,3050 35021 CA MINDB # SHOULD BE CALLED UNDER
029316,000821: 24,3051 55706 TS ADB # INTERRUPT INHIBITED
029317,000822: 24,3052 44776 CS BIT4 # EBANK = E6
029318,000823: 24,3053 71514 MASK DAPDATR1
029319,000824: 24,3054 55514 TS DAPDATR1
029320,000825: 24,3055 00002 TC Q
029321,000826:
029322,000827: 24,3056 E6,1514 EBANK= DAPDATR1
029323,000828: 24,3056 00004 -1 INHINT
029324,000829: 24,3057 51475 SETMAXDB INDEX WHICHDAP
029325,000830: 24,3060 13061 TCF +1
029326,000831: 24,3061 13063 TCF +2
029327,000832: 24,3062 13040 TCF SETMINDB +3
029328,000833:
029329,000834: 24,3063 33365 CA MAXDB # ROUTINE FOR SETTING
029330,000835: 24,3064 55706 TS ADB # THE MAXIMUM DEADBAND IN AUTOPILOT
029331,000836: 24,3065 41514 CS DAPDATR1
029332,000837: 24,3066 74776 MASK BIT4 # SHOULD BE CALLED UNDER
029333,000838: 24,3067 27514 ADS DAPDATR1 # INTERRUPT INHIBITED
029334,000839: 24,3070 00002 TC Q # EBANK = E6
029335,000840:
029336,000841: 24,3071 E7,1412 EBANK= TIG
029337,000842: 24,3071 34767 CLOKTASK CAF TIMRBIT # IS TIMRFLAG SET
029338,000843: 24,3072 70103 MASK FLAGWRD7
029339,000844: 24,3073 10000 CCS A
029340,000845: 24,3074 13100 TCF CLOCKON
029341,000846: 24,3075 05415 TC PHASCHNG
029342,000847: 24,3076 00006 OCT 00006 # KILL RESTART
029343,000848: 24,3077 05327 TC TASKOVER
029344,000849: 24,3100 00006 CLOCKON EXTEND
029345,000850: 24,3101 30025 DCA TIME2
029346,000851: 24,3102 53637 DXCH TTOGO
029347,000852: 24,3103 00006 EXTEND
029348,000853: 24,3104 41413 DCS TIG
029349,000854: 24,3105 21637 DAS TTOGO
029350,000855: 24,3106 35030 SETCLOCK CAF 1SEC
029351,000856: 24,3107 05236 TC TWIDDLE
029352,000857: 24,3110 03071 ADRES CLOKTASK
029353,000858: 24,3111 10772 CCS NVWORD1
029354,000859: 24,3112 13115 TCF +3
029355,000860: 24,3113 13125 TCF SETTB6
029356,000861: 24,3114 13115 TCF +1
029357,000862: 24,3115 43357 CS V06N85B # CHECK FOR V06N85B (P41)
029358,000863: 24,3116 60772 AD NVWORD1
029359,000864: 24,3117 00006 EXTEND
029360,000865: 24,3120 13130 BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP
029361,000866: 24,3121 37651 CAF PRIO27
029362,000867: 24,3122 05134 TC NOVAC
029363,000868: 24,3123 E6,1514 EBANK= DAPDATR1
029364,000869: 24,3123 03142 50066 2CADR CLOCKJOB
029365,000870:
029366,000871: 24,3125 40025 SETTB6 CS TIME1 # SET GROUP6 TIMEBASE
029367,000872: 24,3126 55261 TS TBASE6
029368,000873: 24,3127 15327 TCF TASKOVER
029369,000874:
029370,000875: 24,3130 37651 SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06)
029371,000876: 24,3131 05150 TC FINDVAC
029372,000877: 24,3132 E6,1514 EBANK= DAPDATR1
029373,000878: 24,3132 03135 50066 2CADR DYNDISP
029374,000879:
029375,000880: 24,3134 13125 TCF SETTB6 # CLOSE OUT CLOCKTASK
029376,000881:
029377,000882: 24,3135 06006 DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
029378,000883: 24,3136 77624 CALL # PRIOR TO BLANKING AND AVEG (V16N85)
029379,000884: 24,3137 51763 P40CNV85
029380,000885: 24,3140 77776 EXIT
029381,000886: 24,3141 13152 TCF CKNVWRD1
029382,000887:
029383,000888: 24,3142 E6,1514 EBANK= DAPDATR1
029384,000889: 24,3142 30032 CLOCKJOB CA CDUX # NOVAC, PRIO27
029385,000890: 24,3143 55165 TS CDUSPOTX
029386,000891: 24,3144 30033 CA CDUY
029387,000892: 24,3145 55161 TS CDUSPOTY
029388,000893: 24,3146 30034 CA CDUZ
029389,000894: 24,3147 55163 TS CDUSPOTZ
029390,000895: 24,3150 04647 TC BANKCALL
029391,000896: 24,3151 47547 CADR QUICTRIG
029392,000897: 24,3152 00004 CKNVWRD1 INHINT
029393,000898: 24,3153 10772 CCS NVWORD1 # DETERMINE FUNCTION, INDICATED BY NVWORD1
029394,000899: 24,3154 13334 TCF NOFLASH
029395,000900: 24,3155 15220 TCF ENDOFJOB
029396,000901: 24,3156 13275 TCF ENGREQST
029397,000902: 24,3157 33361 FAILDSP CAF V06N40 # SPS ENGINE FAILED - FLASH V97
029398,000903: 24,3160 04647 TC BANKCALL
029399,000904: 24,3161 20607 CADR CLOCPLAY
029400,000905: 24,3162 13231 TCF V97T # TERMINATE
029401,000906: 24,3163 13255 TCF V97P # PROCEED
029402,000907: 24,3164 05415 V97E TC PHASCHNG # ENTER
029403,000908: 24,3165 00534 OCT 00534 # A, 4.53 = V97EJOB (PRIO 30 NOVAC)
029404,000909: 24,3166 01,2226 4P53SPT1 = 4.53SPOT
029405,000910: # IF RESTART, FORCE V97EJOB BEFORE CLOCKJOB
029406,000911: 24,3166 33361 V97EJOB CAF V06N40 # REDISPLAY V06N40
029407,000912: 24,3167 54772 TS NVWORD1
029408,000913: 24,3170 04606 TCR E7SETTER
029409,000914: 24,3171 E7,1412 EBANK= TIG
029410,000915: 24,3171 44124 CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59
029411,000916: 24,3172 55412 TS TIG
029412,000917: 24,3173 04611 TCR E6SETTER
029413,000918: 24,3174 E6,1522 EBANK= CSMMASS
029414,000919: 24,3174 02677 SPSOFF97 TCR SPSOFF
029415,000920: 24,3175 33372 CAF SEC2.5 # DELAY 2.5 SECS FOR POSSIBLE TAILOFF
029416,000921: 24,3176 04647 TC BANKCALL
029417,000922: 24,3177 01731 CADR DELAYJOB # **** RESTART CAN DOUBLE DELAY ****
029418,000923: # **** RESTART WILL ALTER TEVENT ****
029419,000924: 24,3200 35001 V97E40.6 CAF BIT1
029420,000925: 24,3201 05246 TC WAITLIST
029421,000926: 24,3202 E6,1453 EBANK= CNTR
029422,000927: 24,3202 02312 40066 2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE
029423,000928:
029424,000929: 24,3204 04725 TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029425,000930: 24,3205 45504 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS.
029426,000931: # LEAVE NARROW DEADBAND FOR REIGNITE
029427,000932: 24,3206 05375 TC 2PHSCHNG
029428,000933: 24,3207 00026 OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
029429,000934: 24,3210 05024 OCT 05024 # NOVAC BELOW, PRIO NEXT
029430,000935: 24,3211 50777 OCT 50777 # PRIO 27 NOVAC
029431,000936: 24,3212 01,2325 6P2SPT2 = 6.2SPOT
029432,000937: 24,3212 07722 QUICKIGN TC DOWNFLAG # CLEAR ASTNFLAG
029433,000938: 24,3213 00154 ADRES ASTNFLAG
029434,000939: 24,3214 07710 TC UPFLAG # AND SET IGNFLAG
029435,000940: 24,3215 00153 ADRES IGNFLAG # FOR IMMEDIATE V99 RESPONSE
029436,000941: 24,3216 07710 TC UPFLAG
029437,000942: 24,3217 00052 ADRES SBFLAG
029438,000943: 24,3220 44771 V99FLASH CS BIT9 # CAUSE V99 TO FLASH
029439,000944: 24,3221 54772 TS NVWORD1
029440,000945: 24,3222 05375 TC 2PHSCHNG
029441,000946: 24,3223 40114 OCT 40114 # A, 4.11 = TIG-0 (-0 CS) TBASE FOR PREPTVC
029442,000947: 24,3224 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO 20)
029443,000948: 24,3225 01,2060 3P3SPT2 = 3.3SPOT
029444,000949: 24,3225 01,2143 4P11SPT1 = 4.11SPOT
029445,000950: 24,3225 05147 TC FINVAC20 # SET UP TIMEBURN
029446,000951: 24,3226 E7,1427 EBANK= TGO
029447,000952: 24,3226 02463 34067 2CADR S40.13
029448,000953:
029449,000954: 24,3230 15220 ENDV97E TCF ENDOFJOB # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
029450,000955:
029451,000956: 24,3231 E6,1522 EBANK= CSMMASS
029452,000957: 24,3231 05415 V97T TC PHASCHNG # KILL CLOKTASK
029453,000958: 24,3232 00076 OCT 00076 # A, 6.7 = V97TJOB (PRIO 27 NOVAC)
029454,000959: 24,3233 01,2341 6P7SPT1 = 6.7SPOT
029455,000960: 24,3233 35003 V97TJOB CAF ZERO # DISABLE CLOCKJOB
029456,000961: 24,3234 54772 TS NVWORD1
029457,000962: 24,3235 02677 TCR SPSOFF # SHUTDOWN SPS ENGINE
029458,000963: 24,3236 33372 CAF SEC2.5 # DELAY 2.5 SECS FOR POSSIBLE TAILOFF :
029459,000964: 24,3237 04647 TC BANKCALL # FALSE THRUST LOSS
029460,000965: 24,3240 01731 CADR DELAYJOB # **** RESTART CAN DOUBLE DELAY ****
029461,000966: # **** RESTART WILL ALTER TEVENT ****
029462,000967: 24,3241 00004 INHINT
029463,000968: 24,3242 04725 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029464,000969: 24,3243 45504 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS
029465,000970: 24,3244 05375 V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO)
029466,000971: 24,3245 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
029467,000972: 24,3246 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW
029468,000973: 24,3247 50777 OCT 50777 # PRIO 27 NOVAC
029469,000974: 24,3250 03012 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
029470,000975: 24,3251 00006 POST41 EXTEND
029471,000976: 24,3252 33417 DCA SERVCADR
029472,000977: 24,3253 53054 DXCH AVEGEXIT
029473,000978: 24,3254 14103 TCF GOTOPOOH
029474,000979:
029475,000980: 24,3255 E6,1522 EBANK= CSMMASS
029476,000981: 24,3255 05415 V97P TC PHASCHNG
029477,000982: 24,3256 00134 OCT 00134 # A, 4.13 = V97PJOB (PRIO 30 NOVAC)
029478,000983: 24,3257 01,2146 4P13SPT1 = 4.13SPOT
029479,000984: # IF RESTART, FORCE V97PJOB BEFORE CLOCKJOB
029480,000985: 24,3257 33361 V97PJOB CAF V06N40 # REDISPLAY V06N40
029481,000986: 24,3260 54772 TS NVWORD1
029482,000987: 24,3261 07710 TC UPFLAG # SET IDLEFAIL TO ALLOW R40-BYPASS, IN
029483,000988: 24,3262 00030 ADRES IDLEFAIL # CASE OF UNFAVORABLE STEERING SYNCH
029484,000989: 24,3263 07710 TC UPFLAG # SET STEERSW TO RE-ENABLE STEERING
029485,000990: 24,3264 00042 ADRES STEERSW
029486,000991: 24,3265 35032 CAF 2SECS
029487,000992: 24,3266 04647 TC BANKCALL
029488,000993: 24,3267 01731 CADR DELAYJOB # WAIT 2 SECONDS
029489,000994: # **** RESTART CAN DOUBLE DELAY ****
029490,000995: # **** RESTART WILL ALTER TEVENT ****
029491,000996: 24,3270 07722 R40ENABL TC DOWNFLAG # THEN RE-ENABLE R40 BY CLEARING IDLEFLAIL
029492,000997: 24,3271 00030 ADRES IDLEFAIL
029493,000998: 24,3272 05415 TC PHASCHNG
029494,000999: 24,3273 00004 OCT 00004 # KILL GROUP 4
029495,001000: 24,3274 15220 ENDV97P TCF ENDOFJOB
029496,001001:
029497,001002:
029498,001003: 24,3275 33361 ENGREQST CAF V06N40
029499,001004: 24,3276 04647 TC BANKCALL
029500,001005: 24,3277 20607 CADR CLOCPLAY
029501,001006: 24,3300 13244 TCF V99T # TERMINATE
029502,001007: 24,3301 13337 TCF V99P # PROCEED
029503,001008: 24,3302 05375 V99E TC 2PHSCHNG # ENTER
029504,001009: 24,3303 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
029505,001010: 24,3304 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW
029506,001011: 24,3305 50777 OCT 50777 # PRIO 27 NOVAC
029507,001012: 24,3306 03012 V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
029508,001013: 24,3307 00006 P40RCS EXTEND # V16N40 ENTERS HERE
029509,001014: 24,3310 33421 DCA ACADN85
029510,001015: 24,3311 53054 DXCH AVEGEXIT
029511,001016: 24,3312 35032 CAF 2SECS
029512,001017: 24,3313 04647 TC BANKCALL
029513,001018: 24,3314 01731 CADR DELAYJOB
029514,001019: 24,3315 03034 P40MINDB TCR SETMINDB -1
029515,001020: 24,3316 00003 RELINT
029516,001021: 24,3317 05415 TIGNOW TC PHASCHNG
029517,001022: 24,3320 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 85
029518,001023: 24,3321 57777 OCT 57777 # PRIO 20 NOVAC
029519,001024: 24,3322 33360 CAF V16N85B
029520,001025: 24,3323 04647 TC BANKCALL
029521,001026: 24,3324 20576 CADR REFLASH
029522,001027: 24,3325 13251 TCF POST41 # FINISH P40/41
029523,001028: 24,3326 13330 TCF MNKPST41
029524,001029: 24,3327 13317 TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85
029525,001030:
029526,001031: 24,3330 00006 MNKPST41 EXTEND
029527,001032: 24,3331 33417 DCA SERVCADR
029528,001033: 24,3332 53054 DXCH AVEGEXIT
029529,001034: 24,3333 14105 TCF MNKGOPOO
029530,001035:
029531,001036: 24,3334 30772 NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY
029532,001037: 24,3335 04647 TC BANKCALL
029533,001038: 24,3336 20601 CADR REGODSP
029534,001039:
029535,001040: 4000 SETLOC FFTAG12
029536,001041: 4000 BANK
029537,001042:
029538,001043: 4606 COUNT* $$/R40
029539,001044: 4606 35060 E7SETTER CAF EBANK7
029540,001045: 4607 56003 XCH EBANK
029541,001046: 4610 E7,1412 EBANK= TIG
029542,001047: 4610 00002 TC Q
029543,001048:
029544,001049: 4611 35057 E6SETTER CAF EBANK6 # SET UP EBANK6
029545,001050: 4612 56003 XCH EBANK
029546,001051: 4613 E6,1514 EBANK= DAPDATR1
029547,001052: 4613 00002 TC Q
029548,001053:
029549,001054: 24,2000 SETLOC P40S
029550,001055: 24,2000 BANK
029551,001056:
029552,001057: 24,3337 COUNT* $$/R40
029553,001058: 24,3337 E6,1514 EBANK= DAPDATR1
029554,001059: 24,3337 00004 V99P INHINT
029555,001060: 24,3340 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P
029556,001061: 24,3341 74766 MASK ASTNBIT
029557,001062: 24,3342 10000 CCS A
029558,001063: 24,3343 13354 TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY
029559,001064:
029560,001065: 24,3344 34766 ASTNV99P CAF ASTNBIT # SET ASTNFLAG
029561,001066: 24,3345 26103 ADS FLAGWRD7
029562,001067: 24,3346 30103 CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL
029563,001068: 24,3347 74765 MASK IGNFLBIT
029564,001069: 24,3350 00006 EXTEND
029565,001070: 24,3351 13354 BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0
029566,001071:
029567,001072: 24,3352 05235 ENDV99P1 TC TWIDBIT1 # TIG-0 HAS COME ALREADY SET UP IGNTN HERE
029568,001073: 24,3353 02463 ADRES IGNITION
029569,001074: 24,3354 33361 V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0
029570,001075: 24,3355 54772 TS NVWORD1
029571,001076: 24,3356 15220 ENDV99P TCF ENDOFJOB
029572,001077:
029573,001078: 24,3357 COUNT* $$/P40
029574,001079: 24,3357 01525 V06N85B VN 0685
029575,001080: 24,3360 04125 V16N85B VN 1685
029576,001081: 24,3361 01450 V06N40 VN 0640
029577,001082: 24,3362 04050 V16N40 VN 1640
029578,001083: 24,3363 4355 OCT12 = TEN
029579,001084: 24,3363 00204 P40CKLS2 OCT 204
029580,001085: 24,3364 4626 OCT27/24 = VBSP3LD
029581,001086: 24,3364 02202 OCT02202 OCT 02202 # BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
029582,001087: # MINDB DEC 46
029583,001088: 24,3365 00707 MAXDB DEC 455 B-14
029584,001089: 24,3366 04700 SEC24.96 DEC 2496 B-14
029585,001090: 24,3367 03410 18SEC DEC 1800 B-14
029586,001091: 24,3370 00000 5SECDP DEC 0 B-14 # MAKE DP 5SEC
029587,001092: 24,3371 00764 5SEC DEC 500 B-14
029588,001093: 24,3372 00372 SEC2.5 DEC 250 B-14
029589,001094: 24,3373 03146 DEC.1 DEC .1
029590,001095: 24,3374 00000 05664 SEC29.96 2DEC 2996 B-28
029591,001096: 24,3376 02217 06650 FENG 2DEC 9.1188544 B-7 # SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
029592,001097:
029593,001098: 24,3400 00013 06112 FRCS2 2DEC .087437837 B-7 # RCS ULLAGE (199.6COS10 LBS), SC.AT
029594,001099: # B+7 NEWTONS/E+4
029595,001100: 24,3402 04000 00000 EP4(45)H 2DEC .125
029596,001101:
029597,001102: 24,3404 00707 03434 EP4(10)H 2DEC .027777777
029598,001103:
029599,001104: 24,3406 21215 12215 TRIMSCAL 2DEC 1.07975111 B-1
029600,001105:
029601,001106: 24,3410 00053 07423 YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON)
029602,001107:
029603,001108: 24,3412 77636 44653 PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
029604,001109:
029605,001110: # REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
029606,001111: 24,3414 E6,1514 EBANK= DAPDATR1
029607,001112: 24,3414 03132 12066 T5IDL24 2CADR T5IDLOC
029608,001113:
029609,001114: 24,3416 E7,1412 EBANK= TIG
029610,001115: 24,3416 03033 76067 SERVCADR 2CADR SERVEXIT
029611,001116:
029612,001117: 24,3420 E6,1514 EBANK= DAPDATR1
029613,001118: 24,3420 03720 50066 ACADN85 2CADR CALCN85
029614,001119:
029615,001120: 24,3422 E6,1514 EBANK= DAPDATR1
029616,001121: 24,3422 02131 34066 S40.8ADS 2CADR S40.8
029617,001122:
029618,001123: 24,3424 E6,1514 EBANK= DAPDATR1
029619,001124: 24,3424 02221 36066 TVCON2C 2CADR TVCDAPON
029620,001125:
029621,001126: 31,2000 SETLOC P40S4
029622,001127: 31,2000 BANK
029623,001128: 31,2574 COUNT* $$/P40
029624,001129: 31,2574 45020 AGAIN STQ CALL
029625,001130: 31,2575 03702 QTEMP1
029626,001131: 31,2576 11400 THISPREC
029627,001132: 31,2577 40375 VLOAD SETPD
029628,001133: 31,2600 00001 RATT
029629,001134: 31,2601 00001 00D
029630,001135: 31,2602 03610 STORE RTIG
029631,001136: 31,2603 27546 STOVL RINIT
029632,001137: 31,2604 00007 VATT
029633,001138: 31,2605 03616 STORE VTIG
029634,001139: 31,2606 03554 STORE VINIT
029635,001140: 31,2607 65335 SLOAD PDDL
029636,001141: 31,2610 15204 HI6ZEROS
029637,001142: 31,2611 11403 EP4(45)H
029638,001143: 31,2612 71214 BON DLOAD
029639,001144: 31,2613 03705 NORMSW
029640,001145: 31,2614 62616 +2
029641,001146: 31,2615 11405 EP4(10)H
029642,001147: 31,2616 45006 PUSH CALL
029643,001148: 31,2617 22000 INITVEL
029644,001149: 31,2620 52001 SETPD GOTO
029645,001150: 31,2621 00001 0
029646,001151: 31,2622 03702 QTEMP1
029647,001152:
029648,001153: 31,2623 46145 TSTRXUT DLOAD BHIZ
029649,001154: 31,2624 00045 36D
029650,001155: 31,2625 62630 BADVCTOR
029651,001156: 31,2626 43575 VLOAD RVQ
029652,001157: 31,2627 00007 6D
029653,001158: 31,2630 53575 BADVCTOR VLOAD UNIT
029654,001159: 31,2631 03610 RTIG
029655,001160: 31,2632 53515 PDVL UNIT
029656,001161: 31,2633 03616 VTIG
029657,001162: 31,2634 53322 VSR3 VAD
029658,001163: 31,2635 53435 VXV UNIT
029659,001164: 31,2636 03673 UT
029660,001165: 31,2637 77676 VCOMP
029661,001166: 31,2640 00007 STORE 6D
029662,001167: 31,2641 77616 RVQ
029663,001168:
029664,001169: 24,2000 SETLOC P40S
029665,001170: 24,2000 BANK
029666,001171: 24,3426 COUNT* $$/P40
029667,001172:
029668,001173: 24,3426 67214 SETUP.9 BON SLOAD
029669,001174: 24,3427 01310 FIRSTFLG
029670,001175: 24,3430 51443 SURELY.9
029671,001176: 24,3431 03355 NBRCYCLP
029672,001177: 24,3432 74301 NORM VXSC # (NORM HANDLES ZERO PROPERLY)
029673,001178: 24,3433 00047 X1
029674,001179: 24,3434 03665 BDT
029675,001180: 24,3435 53257 VSR* VAD
029676,001181: 24,3436 20563 0 -14D,1
029677,001182: 24,3437 03624 VGTEMP
029678,001183: 24,3440 77651 VSU
029679,001184: 24,3441 03356 DELVSUM
029680,001185: 24,3442 03772 STORE VGPREV
029681,001186: 24,3443 77776 SURELY.9 EXIT
029682,001187: 24,3444 34765 CAF PRIO10
029683,001188: 24,3445 05150 TC FINDVAC
029684,001189: 24,3446 E6,1514 EBANK= DAPDATR1
029685,001190: 24,3446 02333 34066 2CADR S40.9
029686,001191:
029687,001192: 24,3450 05375 TC 2PHSCHNG
029688,001193: 24,3451 00051 OCT 00051 # A, 1.5 = REDO40.9, PRIO 10
029689,001194: 24,3452 10035 OCT 10035
029690,001195: 24,3453 01,2017 1P5SPT1 = 1.5SPOT
029691,001196: 24,3453 01,2253 5P3SPT3 = 5.3SPOT
029692,001197: 24,3453 06006 TC INTPRET
029693,001198: 24,3454 77775 VLOAD
029694,001199: 24,3455 01022 RN # ACTIVE VEHICLE RADIUS VECTOR AT T1
029695,001200: 24,3456 27546 STOVL RINIT
029696,001201: 24,3457 01030 VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1
029697,001202: 24,3460 17554 STODL VINIT
029698,001203: 24,3461 01036 PIPTIME
029699,001204: 24,3462 03506 STORE TNIT
029700,001205: 24,3463 77621 BDSU
029701,001206: 24,3464 03634 TPASS4
029702,001207: 24,3465 27423 STOVL DELLT4
029703,001208: 24,3466 15204 HI6ZEROS
029704,001209: 24,3467 17356 STODL DELVSUM
029705,001210: 24,3470 15204 HI6ZEROS
029706,001211: 24,3471 03354 STORE NBRCYCLS
029707,001212: 24,3472 77650 GOTO
029708,001213: 24,3473 34313 VGCOMP
029709,001214:
029710,001215: # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
029711,001216:
029712,001217: # FUNCTIONAL DESCRIPTION
029713,001218: # GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
029714,001219: # INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
029715,001220: # OF GIMBAL MOTION ON GPI
029716,001221: # GIMBAL TRIM....AFTER A 4 SECOND DELAY, ENGINE COMMANDED TO
029717,001222: # PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
029718,001223: # PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
029719,001224: # IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
029720,001225: # BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
029721,001226: # IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
029722,001227: # OF RESTARTING ACTUATORS.
029723,001228:
029724,001229: # CALLING SEQUENCE....
029725,001230: # WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
029726,001231:
029727,001232: # NORMAL EXIT MODE - FIXDELAY, TASKOVER
029728,001233:
029729,001234: # SUBROUTINES CALLED....
029730,001235: # FIXDELAY
029731,001236:
029732,001237: # ERASEABLE INITIALIZATION REQUIRED
029733,001238: # CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
029734,001239: # MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
029735,001240: # NEGATIVE FOR GIMBAL TRIM ONLY
029736,001241: # PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
029737,001242: # ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
029738,001243: # ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
029739,001244:
029740,001245: # OUTPUT
029741,001246: # TVCYAW, TVCPITCH (BITS RELEASED)
029742,001247: # TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
029743,001248:
029744,001249: 20,2000 SETLOC DAPS6
029745,001250: 20,2000 BANK
029746,001251: 20,2312 E6,1453 EBANK= CNTR
029747,001252: 20,2312 COUNT* $$/S40.6
029748,001253: 20,2312 40102 PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT
029749,001254: 20,2313 74076 MASK DPCONFIG # IF TVC, BITS 15,14 = 1,0)
029750,001255: 20,2314 00006 EXTEND
029751,001256: 20,2315 62317 BZMF +2
029752,001257: 20,2316 15327 TCF TASKOVER # TVC, REDOTVC WILL REESTABLISH INTERFACE
029753,001258: 20,2317 45001 CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY
029754,001259: 20,2320 55451 TS MRKRTMP
029755,001260: 20,2321 35001 CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS...
029756,001261: 20,2322 55453 TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 1S
029757,001262: # NORMALLY +0, BY S40.6)
029758,001263: 20,2323 E6,1453 EBANK= CNTR
029759,001264: 20,2323 45003 S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY
029760,001265: 20,2324 55313 TS OPTIND
029761,001266: 20,2325 45000 CS BIT2 # DISABLE OPTICS ERROR COUNTERS
029762,001267: 20,2326 00006 EXTEND
029763,001268: 20,2327 03012 WAND CHAN12
029764,001269:
029765,001270: 20,2330 32415 CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC
029766,001271: 20,2331 00006 EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC
029767,001272: 20,2332 05012 WOR CHAN12
029768,001273: 20,2333 05270 TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
029769,001274: 20,2334 00006 DEC 6 B-14 # RELAY LATCHING
029770,001275: 20,2335 35000 CAF BIT2 # ENABLE OPTICS ERROR COUNTERS
029771,001276: 20,2336 00006 EXTEND
029772,001277: 20,2337 05012 WOR CHAN12
029773,001278: 20,2340 05270 TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
029774,001279: 20,2341 00002 DEC 2 B-14 # RELAY LATCHING
029775,001280: 20,2342 11453 RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6)
029776,001281: 20,2343 12403 TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY
029777,001282: # TST,TRIM SETS +0 ON NORMAL ENTRY
029778,001283: 20,2344 31451 CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY
029779,001284: 20,2345 55453 TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS
029780,001285: 20,2346 00006 EXTEND
029781,001286: 20,2347 62401 BZMF GIMTRIM # (TRIM ONLY)
029782,001287: 20,2350 45003 GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH
029783,001288: 20,2351 55453 TS CNTR
029784,001289: 20,2352 32417 GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
029785,001290: 20,2353 02366 TC OUTPUT # (LEAVES GIMBAL AT +2 DEG)
029786,001291: 20,2354 32416 CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2)
029787,001292: 20,2355 02366 TC OUTPUT
029788,001293: 20,2356 32417 CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0)
029789,001294: 20,2357 02366 TC OUTPUT
029790,001295: 20,2360 41453 CS CNTR # CHECK FOR COMPLETION OF YAW TEST
029791,001296: 20,2361 10000 CCS A
029792,001297: 20,2362 12401 TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE
029793,001298: 20,2363 45001 CS BIT1 # SET UP YAW TEST
029794,001299: 20,2364 55453 TS CNTR
029795,001300: 20,2365 12352 TCF GIMDTEST # FOR YAW TEST
029796,001301: 20,2366 00006 OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q
029797,001302: 20,2367 22777 QXCH TEMPR60
029798,001303: 20,2370 51453 INDEX CNTR
029799,001304: 20,2371 54054 TS TVCPITCH
029800,001305: 20,2372 51453 INDEX CNTR
029801,001306: 20,2373 34767 CAF BIT11
029802,001307: 20,2374 00006 EXTEND
029803,001308: 20,2375 05014 WOR CHAN14
029804,001309: 20,2376 05270 TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES
029805,001310: 20,2377 00310 DEC 200 B-14 # GIMBAL MOTION ON GPI
029806,001311: 20,2400 00777 TC TEMPR60
029807,001312: 20,2401 05270 GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM
029808,001313: 20,2402 00620 DEC 400 B-14
029809,001314: 20,2403 45003 +2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM
029810,001315: 20,2404 61410 AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST
029811,001316: 20,2405 54054 TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY
029812,001317: 20,2406 45003 CS ZERO
029813,001318: 20,2407 61411 AD YACTOFF
029814,001319: 20,2410 54053 TS TVCYAW
029815,001320: 20,2411 35062 CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12
029816,001321: 20,2412 00006 EXTEND
029817,001322: 20,2413 05014 WOR CHAN14
029818,001323: 20,2414 15327 ENDS40.6 TCF TASKOVER
029819,001324:
029820,001325: 20,2415 02200 OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
029821,001326: 20,2416 77527 -4ACTDEG DEC -168 B-14 # -2(+2ACTDEG), WHOLE BITS, NO ROUNDUP
029822,001327: 20,2417 00124 +2ACTDEG DEC +84 B-14 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
029823,001328:
029824,001329:
029825,001330: 27,2000 SETLOC P40S5
029826,001331: 27,2000 BANK
029827,001332: 27,2746 COUNT* $$/S41.1
029828,001333: 27,2746 45020 S41.1 STQ CALL
029829,001334: 27,2747 03635 QTEMP
029830,001335: 27,2750 47471 CDUTRIG
029831,001336: 27,2751 77775 VLOAD
029832,001337: 27,2752 45121 MXV CALL
029833,001338: 27,2753 01720 REFSMMAT
029834,001339: 27,2754 47623 *SMNB*
029835,001340: 27,2755 74321 MXV VXSC
029836,001341: 27,2756 05057 QUADROT
029837,001342: 27,2757 16763 TENBNK14 # VG IN CONTROL COORD IN MPAC SCALED AT
029838,001343: 27,2760 52072 VSL5 GOTO # VG IN CONTROL COORDS. IN MPAC AT 2(+7)
029839,001344: 27,2761 03635 QTEMP
029840,001345: 27,2762 24000 00000 TENBNK14 2DEC 10. B-4
029841,001346:
029842,001347: 27,2764 00024 13714 THETACON 2DEC .31830989 B-8
029843,001348:
029844,001349:
029845,001350: # CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
029846,001351:
029847,001352: 20,2000 SETLOC DAPS6
029848,001353: 20,2000 BANK # VIA IBNKCALL
029849,001354: 20,2420 COUNT* $$/S41.2
029850,001355: 20,2420 31514 S41.2 CA DAPDATR1
029851,001356: 20,2421 76214 MASK THREE
029852,001357: 20,2422 60000 AD A
029853,001358: 20,2423 54767 TS RATEINDX
029854,001359: 20,2424 00004 INHINT
029855,001360: 20,2425 31514 CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
029856,001361: 20,2426 74346 MASK PRIO30 # =10)
029857,001362: 20,2427 64762 AD -BIT14 # (OCT57777)
029858,001363: 20,2430 00006 EXTEND
029859,001364: 20,2431 12436 BZF TOGETHER # YES
029860,001365: 20,2432 45000 CS ATTCHBIT # NO, UNSET FLAG
029861,001366: 20,2433 70103 MASK FLAGWRD7
029862,001367: 20,2434 54103 TS FLAGWRD7
029863,001368: 20,2435 12441 TCF +4
029864,001369: 20,2436 40103 TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
029865,001370: 20,2437 75000 MASK ATTCHBIT
029866,001371: 20,2440 26103 ADS FLAGWRD7
029867,001372: 20,2441 00003 RELINT
029868,001373: 20,2442 31514 CA DAPDATR1
029869,001374: 20,2443 74776 MASK BIT4
029870,001375: 20,2444 00006 EXTEND
029871,001376: 20,2445 62447 BZMF +2 # DEC 46 MEANS NARROW DB
029872,001377: 20,2446 32547 CA DEC409
029873,001378: 20,2447 62550 AD DEC46 # DEC 455 MEANS WIDE DB
029874,001379: 20,2450 55706 TS ADB
029875,001380: 20,2451 31514 CA DAPDATR1
029876,001381: 20,2452 74773 MASK BIT7 # QUAD BD
029877,001382: 20,2453 00006 EXTEND
029878,001383: 20,2454 62456 BZMF +2
029879,001384: 20,2455 35001 CA ONE
029880,001385: 20,2456 55662 TS XTRANS
029881,001386: 20,2457 31514 CA DAPDATR1
029882,001387: 20,2460 74770 MASK BIT10 # QUAD AC
029883,001388: 20,2461 00006 EXTEND
029884,001389: 20,2462 62464 BZMF +2
029885,001390: 20,2463 45001 CS ONE
029886,001391: 20,2464 27662 ADS XTRANS
029887,001392: 20,2465 00004 INHINT
029888,001393: 20,2466 00006 EXTEND
029889,001394: 20,2467 12474 BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS)
029890,001395: 20,2470 40075 CS FLAGWRD1 # SET NJETSFLG (2 JETS, AC OR BD QUADS)
029891,001396: 20,2471 74763 MASK NJETSBIT # NJETSFLG=1 FOR 2 JET ULLAGE (AC OR BD)
029892,001397: 20,2472 26075 ADS FLAGWRD1
029893,001398: 20,2473 12477 TCF +4
029894,001399: 20,2474 44763 CS NJETSBIT # NJETSFLG=0 FOR 4 JET (OR 0 JET) ULLAGE
029895,001400: 20,2475 70075 MASK FLAGWRD1
029896,001401: 20,2476 54075 TS FLAGWRD1
029897,001402: 20,2477 00003 RELINT
029898,001403: 20,2500 31515 CA DAPDATR2
029899,001404: 20,2501 74765 MASK BIT13
029900,001405: 20,2502 00006 EXTEND
029901,001406: 20,2503 62505 BZMF +2
029902,001407: 20,2504 12506 TCF +2
029903,001408: 20,2505 45001 CS ONE
029904,001409: 20,2506 40000 COM
029905,001410: 20,2507 55661 TS ACORBD # MINUS FOR A-C, PLUS FOR B-D
029906,001411: 20,2510 31515 CA DAPDATR2
029907,001412: 20,2511 74770 MASK BIT10
029908,001413: 20,2512 10000 CCS A
029909,001414: 20,2513 12517 TCF +4
029910,001415: 20,2514 35001 CA ONE
029911,001416: 20,2515 55657 TS RACFAIL
029912,001417: 20,2516 12527 TCF BDFAIL
029913,001418: 20,2517 35003 CA ZERO
029914,001419: 20,2520 55657 TS RACFAIL
029915,001420: 20,2521 31515 CA DAPDATR2
029916,001421: 20,2522 74776 MASK BIT4
029917,001422: 20,2523 10000 CCS A
029918,001423: 20,2524 12527 TCF BDFAIL
029919,001424: 20,2525 45001 CS ONE
029920,001425: 20,2526 55657 TS RACFAIL
029921,001426: 20,2527 31515 BDFAIL CA DAPDATR2
029922,001427: 20,2530 74773 MASK BIT7
029923,001428: 20,2531 10000 CCS A
029924,001429: 20,2532 12536 TCF +4
029925,001430: 20,2533 35001 CA ONE
029926,001431: 20,2534 55660 TS RBDFAIL
029927,001432: 20,2535 00002 TC Q
029928,001433: 20,2536 35003 CA ZERO
029929,001434: 20,2537 55660 TS RBDFAIL
029930,001435: 20,2540 31515 CA DAPDATR2
029931,001436: 20,2541 75001 MASK BIT1
029932,001437: 20,2542 10000 CCS A
029933,001438: 20,2543 00002 TC Q
029934,001439: 20,2544 45001 CS ONE
029935,001440: 20,2545 55660 TS RBDFAIL
029936,001441: 20,2546 00002 TC Q
029937,001442:
029938,001443: 16,2000 SETLOC P40S1
029939,001444: 16,2000 BANK
029940,001445: 16,2020 E6,1753 EBANK= NBRCYCLS
029941,001446: 16,2020 COUNT* $$/S40.1
029942,001447: 16,2020 45345 S40.1B DLOAD DSU # LAMBERT
029943,001448: 16,2021 03413 TIG
029944,001449: 16,2022 34460 TWODT
029945,001450: 16,2023 14041 STODL TDEC1
029946,001451: 16,2024 03634 TPASS4
029947,001452: 16,2025 77625 DSU
029948,001453: 16,2026 00041 TDEC1
029949,001454: 16,2027 37423 STCALL DELLT4
029950,001455: 16,2030 62574 AGAIN
029951,001456: 16,2031 77775 VLOAD
029952,001457: 16,2032 03570 VIPRIME
029953,001458: 16,2033 17673 STODL UT
029954,001459: 16,2034 03413 TIG
029955,001460: 16,2035 00041 STORE TDEC1
029956,001461: 16,2036 77621 BDSU
029957,001462: 16,2037 03634 TPASS4
029958,001463: 16,2040 37423 STCALL DELLT4
029959,001464: 16,2041 62574 AGAIN
029960,001465: 16,2042 41575 VLOAD PUSH
029961,001466: 16,2043 03624 DELVEET3
029962,001467: 16,2044 37772 STCALL VGTIG
029963,001468: 16,2045 11151 GET.LVC
029964,001469: 16,2046 77601 SETPD
029965,001470: 16,2047 00001 00D
029966,001471: 16,2050 45175 CALCUT VLOAD CALL
029967,001472: 16,2051 03610 RTIG
029968,001473: 16,2052 77160 CALCGRAV # GDELTAT IN MPAC AT 2(+7) M/CS
029969,001474: 16,2053 70372 VSL1 V/SC
029970,001475: 16,2054 34452 200CS # G AT 2(-5) M/CS.CS
029971,001476: 16,2055 52315 PDVL VSU
029972,001477: 16,2056 03570 VIPRIME
029973,001478: 16,2057 03673 UT
029974,001479: 16,2060 52341 V/SC VSU
029975,001480: 16,2061 34452 200CS
029976,001481: 16,2062 72561 VXSC VSL2
029977,001482: 16,2063 03663 CSTEER
029978,001483: 16,2064 24015 STOVL 12D # B.C SCALED AT 2(-5) PDL 12D
029979,001484: 16,2065 03772 VGTIG
029980,001485: 16,2066 41456 UNIT PUSH # UG PDL 0 SCALED AT 2(+1)
029981,001486: 16,2067 74241 DOT VXSC
029982,001487: 16,2070 00015 12D
029983,001488: 16,2071 00001 0
029984,001489: 16,2072 51352 VSL2 BVSU
029985,001490: 16,2073 00015 12D
029986,001491: 16,2074 14015 STODL 12D # Q PDL 12D SCALED AT 2(-5)
029987,001492: 16,2075 03701 F
029988,001493: 16,2076 56261 SRR DDV
029989,001494: 16,2077 21605 4
029990,001495: 16,2100 03125 WEIGHT/G
029991,001496: 16,2101 63316 DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
029992,001497: 16,2102 00015 12D
029993,001498: 16,2103 77636 VSQ
029994,001499: 16,2104 75421 BDSU SQRT
029995,001500: 16,2105 76561 VXSC VSL1
029996,001501: 16,2106 53455 VAD UNIT
029997,001502: 16,2107 00015 12D
029998,001503: 16,2110 37673 STCALL UT
029999,001504: 16,2111 50134 S40.2,3 # **** NO RETURN **** SAME AS GOTO S40.2,3
030000,001505:
030001,001506: 16,2112 COUNT* $$/S40.2
030002,001507: 16,2112 77775 S40.2,3B VLOAD
030003,001508: 16,2113 15724 XUNIT
030004,001509: 16,2114 27354 STOVL SCAXIS
030005,001510: 16,2115 03673 UT
030006,001511: 16,2116 00307 STORE XSCREF
030007,001512: 16,2117 53435 VXV UNIT
030008,001513: 16,2120 03610 RTIG
030009,001514: 16,2121 34007 STCALL 6D
030010,001515: 16,2122 62623 TSTRXUT
030011,001516: 16,2123 00315 STORE YSCREF
030012,001517: 16,2124 57435 VXV VCOMP
030013,001518: 16,2125 00307 XSCREF
030014,001519: 16,2126 77772 VSL1
030015,001520: 16,2127 34323 STCALL ZSCREF # ZNB AXIS IN REF COOR
030016,001521: 16,2130 50247 P40SXTY # **** NO RETURN **** SAME AS GOTO P40SXTY
030017,001522:
030018,001523:
030019,001524: # NAME S40.8 - CROSS PRODUCT STEERING
030020,001525: # FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
030021,001526: # (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
030022,001527: # (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
030023,001528: # (4) INITIATES THRUST-FAIL ROUTINE, R40
030024,001529: # (5) UPDATES CSMMASS
030025,001530:
030026,001531: # INPUT VGPREV - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
030027,001532: # PRIOR TO UPDATING IN METERS/CS AT +7.
030028,001533: # DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
030029,001534: # IN METERS/CS AT +7.
030030,001535: # BDT - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
030031,001536: # GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
030032,001537: # METERS/CS AT +7.
030033,001538: # CSTEER - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
030034,001539: # SPS AIMPOINT STEERING MANEUVERS
030035,001540: # IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
030036,001541: # STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
030037,001542: # REFSMMAT, DAPDATR1, PIPTIME
030038,001543: # EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
030039,001544:
030040,001545: # OUTPUT TTOGO - TIME REMAINING FOR ENGINE BURN IN CS AT +28
030041,001546: # OMEGAC - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
030042,001547: # VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
030043,001548: # STEERSW, IMPULSW, NVWORD1
030044,001549: # REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
030045,001550:
030046,001551: # SUBROUTINES USED - *SMNB*, ALARM
030047,001552:
030048,001553: 16,2131 E6,1514 EBANK= DAPDATR1
030049,001554: 16,2131 COUNT* $$/S40.8
030050,001555: 16,2131 06006 S40.8 TC INTPRET
030051,001556: 16,2132 45001 SETPD CALL
030052,001557: 16,2133 00001 00D
030053,001558: 16,2134 34264 UPDATEVG
030054,001559: 16,2135 77745 DLOAD
030055,001560: 16,2136 03123 CSMMASS # KG B-16
030056,001561: 16,2137 03364 STORE MASSTMP
030057,001562: 16,2140 77776 EXIT
030058,001563: 16,2141 05415 TC PHASCHNG
030059,001564: 16,2142 10035 OCT 10035 # TYPE B RESTART BELOW AND 5.3 REREADAC
030060,001565: 16,2143 01,2253 5P3SPT4 = 5.3SPOT
030061,001566: 16,2143 06006 TC INTPRET
030062,001567: 16,2144 51575 VLOAD ABVAL
030063,001568: 16,2145 03432 DELVREF # DELTA V M/CS B-7
030064,001569: 16,2146 67206 PUSH SLOAD # 00D = DELTA V MAG M/CS B-7
030065,001570: 16,2147 01755 DVTHRESH # M/CS B+2
030066,001571: 16,2150 44205 DMP BDSU
030067,001572: 16,2151 34462 DPB-9 # DVTHRESH M/CS B-7
030068,001573: 16,2152 67240 LOCHECK BMN SLOAD
030069,001574: 16,2153 50775 LOTHRUST # ** MAYBE THRUST BAD **
030070,001575: # THRUST GOOD : UPDATE CSMMASS
030071,001576: 16,2154 01742 EMDOT # FLOW RATE KG/CS B-3
030072,001577: 16,2155 44205 DMP BDSU
030073,001578: 16,2156 34457 FOURSEC +1 # 20D B-13 : MPAC = 2 SECS MASS LOSS
030074,001579: 16,2157 03364 MASSTMP
030075,001580: 16,2160 03123 UPD8MASS STORE CSMMASS # CSMMASS UPDATED FOR LAST 2 SECS
030076,001581: 16,2161 77614 BOFF
030077,001582: 16,2162 01344 STEERSW # NO STEERING :
030078,001583: 16,2163 51725 SERVXT1 # BYPASS TGOCALC AND X-PRODUT
030079,001584: 16,2164 77414 CGTRACK BON EXIT # ENABLE TVCDAP CG TRACKING
030080,001585: 16,2165 04700 SWTOVER
030081,001586: 16,2166 34260 FREPSET # V46 SWITCHOVER HAS OCCURRED (CSM/LM)
030082,001587: 16,2167 31514 CAE DAPDATR1 # ENABLE TVCDAP CG TRACKING
030083,001588: 16,2170 74764 MASK BIT14
030084,001589: 16,2171 10000 CCS A
030085,001590: 16,2172 35001 CAF BIT1
030086,001591: 16,2173 50000 INDEX A # LM-OFF, LM-ON VALUE
030087,001592: 16,2174 31406 CAE EREPFRAC
030088,001593: 16,2175 55662 REPFRACS TS REPFRAC
030089,001594:
030090,001595: 16,2176 06006 TC INTPRET
030091,001596: 16,2177 51375 TGOCALC VLOAD BVSU # GET DELVG
030092,001597: 16,2200 03432 DELVREF
030093,001598: 16,2201 03665 BDT
030094,001599: 16,2202 77656 UNIT
030095,001600: 16,2203 41441 DOT PUSH # (00D)
030096,001601: 16,2204 03472 VG
030097,001602: 16,2205 56244 BPL DDV # ANGLE SHOULD BE GREATER THAN PI/2
030098,001603: 16,2206 50771 INCRSVG # DISPLAY ALARM IF NOT
030099,001604: 16,2207 34621 2VEXHUST
030100,001605: 16,2210 41215 DAD DMP # (DOT PRODUCT UP FROM 00D)
030101,001606: 16,2211 15724 LODPHALF
030102,001607: 16,2212 70501 NORM SR1
030103,001608: 16,2213 00047 X1
030104,001609: 16,2214 60325 PDDL NORM
030105,001610: 16,2215 00045 36D # (MAG DELVG)
030106,001611: 16,2216 00050 X2
030107,001612: 16,2217 77665 BDDV
030108,001613: 16,2220 53664 XSU,2 SL*
030109,001614: 16,2221 00046 X1
030110,001615: 16,2222 57607 0 -9D,2
030111,001616: 16,2223 41405 DMP PUSH # (00D)
030112,001617: 16,2224 34454 -FOURDT
030113,001618: 16,2225 54335 SLOAD SR
030114,001619: 16,2226 03001 ETDECAY # ETDECAY SC.AT B+14 CS
030115,001620: 16,2227 20617 14D
030116,001621: 16,2230 45421 BDSU STADR
030117,001622: 16,2231 74347 STORE TGO # TIME TO GO IN CS. AT +28
030118,001623: 16,2232 77615 DAD
030119,001624: 16,2233 01036 PIPTIME
030120,001625: 16,2234 17413 STODL TIG
030121,001626: 16,2235 03430 TGO
030122,001627: 16,2236 50025 DSU BMN
030123,001628: 16,2237 34456 FOURSEC
030124,001629: 16,2240 50734 S40.81
030125,001630:
030126,001631: 16,2241 74375 XPRODUCT VLOAD VXSC
030127,001632: 16,2242 03665 STEERING BDT
030128,001633: 16,2243 03663 CSTEER
030129,001634: 16,2244 52352 VSL2 VSU
030130,001635: 16,2245 03432 DELVREF
030131,001636: 16,2246 63256 UNIT PDVL
030132,001637: 16,2247 03472 VG
030133,001638: 16,2250 47256 UNIT VXV
030134,001639: 16,2251 45121 MXV CALL
030135,001640: 16,2252 01720 REFSMMAT # (REFSMMAT/2)
030136,001641: 16,2253 47623 *SMNB*
030137,001642: 16,2254 77761 VXSC
030138,001643: 16,2255 03256 KPRIMEDT # (KPRIMEDT SCIAT PI/8 RAD)
030139,001644: 16,2256 37155 OMEGACLC STCALL OMEGAC
030140,001645: 16,2257 51725 SERVXT1
030141,001646: 16,2260 77545 FREPSET DLOAD EXIT # POST-SQITCHOVER CSM/LM. LOAD FROM LOW-
030142,001647: 16,2261 36572 FREPFRAC # BANDWIDTH PARAMETER IN FIXED MEMORY
030143,001648: 16,2262 30154 CAE MPAC
030144,001649: 16,2263 12175 TCF REPFRACS
030145,001650:
030146,001651:
030147,001652: 16,2264 43020 UPDATEVG STQ BON
030148,001653: 16,2265 03376 R61CNTR
030149,001654: 16,2266 01307 XDELVFLG
030150,001655: 16,2267 34313 VGCOMP
030151,001656: 16,2270 50135 SLOAD BMN
030152,001657: 16,2271 03354 NBRCYCLS
030153,001658: 16,2272 51426 SETUP.9
030154,001659: 16,2273 53375 VLOAD VAD
030155,001660: 16,2274 03356 DELVSUM
030156,001661: 16,2275 03432 DELVREF
030157,001662: 16,2276 03364 STORE DELVSUMP
030158,001663: 16,2277 77776 EXIT
030159,001664: 16,2300 35001 CA ONE
030160,001665: 16,2301 61753 AD NBRCYCLS
030161,001666: 16,2302 55754 TS NBRCYCLP
030162,001667: 16,2303 05415 TC PHASCHNG # TYPE B RESTART BELOW AND 5.3 REREADACCS
030163,001668: 16,2304 10035 OCT 10035
030164,001669: 16,2305 01,2253 5P3SPT5 = 5.3SPOT
030165,001670: 16,2305 31754 CA NBRCYCLP
030166,001671: 16,2306 55753 TS NBRCYCLS
030167,001672: 16,2307 06006 TC INTPRET
030168,001673: 16,2310 77775 VLOAD
030169,001674: 16,2311 03364 DELVSUMP
030170,001675: 16,2312 03356 STORE DELVSUM
030171,001676: 16,2313 77775 VGCOMP VLOAD
030172,001677: 16,2314 03432 DELVREF # CONSTRUCT DELVG, SC.AT B-7 M/CS
030173,001678: 16,2315 53245 BVSU VAD
030174,001679: 16,2316 03665 BDT
030175,001680: 16,2317 03772 VGPREV
030176,001681: 16,2320 03472 STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B-7 M/CS
030177,001682: 16,2321 77646 ABVAL
030178,001683: 16,2322 03764 STORE VGDISP # FOR DISPLAY PURPOSES
030179,001684: 16,2323 77776 EXIT
030180,001685: 16,2324 05415 TC PHASCHNG
030181,001686: 16,2325 10035 OCT 10035 # TYPE B RESTART BELOW AND 5.3 REREADAC
030182,001687: 16,2326 01,2253 5P3SPT6 = 5.3SPOT
030183,001688: 16,2326 06006 TC INTPRET
030184,001689: 16,2327 77775 VLOAD
030185,001690: 16,2330 03472 VG
030186,001691: 16,2331 37772 STCALL VGPREV
030187,001692: 16,2332 03376 R61CNTR
030188,001693:
030189,001694:
030190,001695: # NAME S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
030191,001696:
030192,001697: # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
030193,001698: # VECTORS FOR USE DURING AIMPOINT MANEUVERS
030194,001699: # (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
030195,001700: # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
030196,001701:
030197,001702: # CALLING SEQ VIA FINDVAC AS NEW JOB.
030198,001703:
030199,001704: # INPUT RNIT - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
030200,001705: # VNIT - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
030201,001706: # VRPREV - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
030202,001707: # METERS/CS AT +7.
030203,001708: # NOMTIG - TIME OF IGN. USED IN TARGETTING ROUTINES@+28"
030204,001709: # DELLT4 - TRANSFER TIME FROM PIPTIME TO TARGET@+28"
030205,001710: # TNIT - TIME OF RNIT AND VNIT IN CS AT +28
030206,001711: # GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
030207,001712: # ACCERERATION OF GRAVITY IN METERS/CS AT +7.
030208,001713: # DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
030209,001714: # METERS/CS AT +7.
030210,001715: # NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
030211,001716: # 165 TO 195 DEGREES
030212,001717: # RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
030213,001718:
030214,001719: # OUTPUT VGTEMP - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
030215,001720: # COGA - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1
030216,001721: # OR PREVIOUS PASS THRU S40.9
030217,001722: # GOBL/2 - OBLATENESS TERM IN AVG GRAV CALC - GOBL*RSQ/MU
030218,001723: # VRPREV - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
030219,001724: # BDT - B VECTOR IN METERS/CS AT +7.
030220,001725:
030221,001726: # SUBROUTINES USED - INITVEL
030222,001727:
030223,001728: 16,2333 COUNT* $$/S40.9
030224,001729: 16,2333 06006 S40.9 TC INTPRET
030225,001730: 16,2334 71201 SETPD DLOAD
030226,001731: 16,2335 00001 00D
030227,001732: 16,2336 15726 LO6ZEROS
030228,001733: 16,2337 43125 PDDL BON
030229,001734: 16,2340 34446 EP4(45)L
030230,001735: 16,2341 03705 NORMSW
030231,001736: 16,2342 34345 +3
030232,001737: 16,2343 77745 DLOAD
030233,001738: 16,2344 34450 EP4(10)L
030234,001739: 16,2345 77606 PUSH
030235,001740: 16,2346 45014 CLEAR CALL
030236,001741: 16,2347 00675 GUESSW
030237,001742: 16,2350 22002 HAVEGUES
030238,001743: 16,2351 77776 EXIT
030239,001744: 16,2352 05415 TC PHASCHNG # SAVE TIME BY NOT REDOING LAMBERT CALCS
030240,001745: 16,2353 05021 OCT 05021 # C, PRIORITY NEXT, JOB BELOW
030241,001746: 16,2354 10000 OCT 10000
030242,001747: 16,2355 06006 TC INTPRET
030243,001748: 16,2356 77214 ENDLAMB BON VLOAD
030244,001749: 16,2357 01310 FIRSTFLG
030245,001750: 16,2360 34375 FIRSTTME
030246,001751: 16,2361 03570 VIPRIME
030247,001752: 16,2362 65251 VSU PDDL
030248,001753: 16,2363 03500 VRPREV
030249,001754: 16,2364 03506 TNIT
030250,001755: 16,2365 54225 DSU SL
030251,001756: 16,2366 03510 TNITPREV
030252,001757: 16,2367 20222 17D
030253,001758: 16,2370 74265 BDDV VXSC
030254,001759: 16,2371 34452 200CS
030255,001760: 16,2372 76451 VSU VSL1
030256,001761: 16,2373 01040 GDT/2
030257,001762: 16,2374 03665 STORE BDT
030258,001763: 16,2375 53575 FIRSTTME VLOAD UNIT
030259,001764: 16,2376 01022 RN
030260,001765: 16,2377 45345 DLOAD DSU
030261,001766: 16,2400 01036 PIPTIME
030262,001767: 16,2401 03450 NOMTIG
030263,001768: 16,2402 56205 DMP DDV
030264,001769: 16,2403 34444 EARTHMU
030265,001770: 16,2404 00043 34D
030266,001771: 16,2405 53361 VXSC VAD
030267,001772: 16,2406 01046 GOBL/2
030268,001773: 16,2407 03624 VGTEMP # NOTE NO TEST IS MADE TO SUBTRACT GOBL
030269,001774: 16,2410 03624 STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA.
030270,001775: 16,2411 77776 EXIT
030271,001776: 16,2412 05415 TC PHASCHNG
030272,001777: 16,2413 04021 OCT 04021 # C, JOB BELOW
030273,001778: 16,2414 06006 COPY40.9 TC INTPRET
030274,001779: 16,2415 77745 DLOAD
030275,001780: 16,2416 03506 TNIT
030276,001781: 16,2417 27510 STOVL TNITPREV
030277,001782: 16,2420 03570 VIPRIME
030278,001783: 16,2421 03500 STORE VRPREV
030279,001784: 16,2422 77414 CLEAR EXIT
030280,001785: 16,2423 01270 FIRSTFLG
030281,001786: 16,2424 45001 -2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9
030282,001787: 16,2425 55753 TS NBRCYCLS
030283,001788: 16,2426 05415 ENDS40.9 TC PHASCHNG
030284,001789: 16,2427 00001 OCT 00001
030285,001790: 16,2430 15220 TCF ENDOFJOB
030286,001791:
030287,001792: 16,2431 06006 REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
030288,001793: 16,2432 77775 VLOAD # TERMINATE S40.9 SO THAT IT CAN BE
030289,001794: 16,2433 15726 LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS
030290,001795: 16,2434 17356 STODL DELVSUM # (TYPE C PHASE POINTS '04021' WILL
030291,001796: 16,2435 15726 LO6ZEROS # FORCE NORMAL S40.9 TERMINATIONS,
030292,001797: 16,2436 27354 STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW
030293,001798: 16,2437 03772 VGPREV # PASS -- QUICK OLD DATA BETTER THAN
030294,001799: 16,2440 03624 STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9
030295,001800: 16,2441 77776 EXIT # WITHOUT DISTURBING VGPREV
030296,001801: 16,2442 12424 TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
030297,001802:
030298,001803: 16,2443 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36*
030299,001804:
030300,001805: 16,2445 04000 00000 EP4(45)L 2DEC .125
030301,001806:
030302,001807: 16,2447 00707 03434 EP4(10)L 2DEC .027777777
030303,001808:
030304,001809: 16,2451 01440 00000 200CS 2DEC 200 B-12
030305,001810:
030306,001811: 16,2453 77715 77777 -FOURDT 2DEC -800 B-18 # -4(200CS), AT B+18CS (-4 FOR SCALING)
030307,001812:
030308,001813: 16,2455 00000 00620 FOURSEC 2DEC 400.0 B-28 # 4 SEC
030309,001814:
030310,001815: 16,2457 00000 00310 TWODT 2DEC 200.0 B-28 # **** MUST FOLLOW 2DEC FOURSEC TO ****
030311,001816: # **** MAKE FOURSEC +1 2DEC 200 B-13 ****
030312,001817:
030313,001818: 16,2461 00040 00000 DPB-9 2DEC 1 B-9
030314,001819:
030315,001820:
030316,001821: # NAME S40.13 - TIMEBURN
030317,001822:
030318,001823: # FUNCTION TO DETERMINE
030319,001824: # (1) WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
030320,001825: # BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
030321,001826: # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN
030322,001827: # (2) THE MAGNITUDE OF THE RESULTING BURN TIME, AND
030323,001828: # (3) IF THE BURN TIME IS < 6 SECONDS,
030324,001829: # THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL
030325,001830:
030326,001831: # CALLING SEQ VIA FINDVAC AS NEW JOB.
030327,001832:
030328,001833: # INPUT VGDISP - MAGNITUDE OF VGTIG IN M/CS AT +7
030329,001834: # WEIGHT/G - MASS OF VEHICLE IN KG AT TIG (+16)
030330,001835: # F - ENGINE THRUST IN M.NEWTONS AT +7
030331,001836: # MDOT - RATE OF DECREASE OF VEHICLE MASS DURING
030332,001837: # BURN IN KG/CS AT +3
030333,001838:
030334,001839: # OUTPUT IMPULSW - ZERO FOR STEERING
030335,001840: # - ONE FOR ATTITUDE HOLD
030336,001841: # TGO - BURN TIME IN CS AT +28
030337,001842:
030338,001843: # THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
030339,001844: # (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
030340,001845: # (1) M.NEWTON = (10000) NEWTONS
030341,001846:
030342,001847: 16,2463 COUNT* $$/40.13
030343,001848: 16,2463 34773 S40.13 CAF BIT7 # TEST +X TRANSLATION
030344,001849: 16,2464 00006 EXTEND
030345,001850: 16,2465 06031 RXOR CHAN31
030346,001851: 16,2466 74773 MASK BIT7
030347,001852: 16,2467 54157 TS MPAC +3
030348,001853: 16,2470 06006 TC INTPRET
030349,001854: 16,2471 41545 DLOAD PUSH # 00D = |VGTIG| AT +7
030350,001855: 16,2472 03764 VGDISP
030351,001856: 16,2473 77671 DDV
030352,001857: 16,2474 34623 KPIP2
030353,001858: 16,2475 03455 STORE SBVGMAG
030354,001859: 16,2476 03462 STORE PASTDV
030355,001860: 16,2477 53135 SLOAD BZE
030356,001861: 16,2500 00160 MPAC +3 # BIT7 CHAN31
030357,001862: 16,2501 34511 S40.130 +1 # DO NOT COMPENSATE FOR 7 SECS OF ULLAGE
030358,001863: 16,2502 56345 DLOAD DDV
030359,001864: 16,2503 34617 S40.135 # COMPENSATION FOR 2 JET ULLAGE AT +24
030360,001865: 16,2504 03125 WEIGHT/G # MASS IN KGMS AT +16
030361,001866: 16,2505 72414 BON SL1 # DOUBLE CORRECTION IF FOUR JETS
030362,001867: 16,2506 00700 NJETSFLG
030363,001868: 16,2507 34510 S40.130
030364,001869: 16,2510 41421 S40.130 BDSU PUSH # 00D = MAG(VGTIG) @ B+7 M/CS, ADJUSTED
030365,001870: # FOR ULLAGE.
030366,001871: 16,2511 56345 +1 DLOAD DDV # ENTRY POINT IF ULLAGE OFF
030367,001872: 16,2512 00001 00D # MAKE SURE MPAC CONTAINS MAG(VGTIG)
030368,001873: 16,2513 34621 2VEXHUST # 2 VEXHAUST (=2G ISP) @ B+7 M/CS
030369,001874: 16,2514 44342 SR1 BDSU
030370,001875: 16,2515 15724 LODPHALF # 0.5
030371,001876: 16,2516 41205 DMP DMP
030372,001877: 16,2517 03125 WEIGHT/G # TOTAL MASS @ B+16 KG
030373,001878: 16,2520 00001 00D # MAG(VGTIG) @ B+7 M/CS
030374,001879: 16,2521 40061 SL BOV
030375,001880: 16,2522 20213 10D # SCALING
030376,001881: 16,2523 34607 S40.136 # LARGE VG : STEERING BURN INDICATED
030377,001882: 16,2524 41225 DSU DMP
030378,001883: 16,2525 01750 EIMP1SEC # IMP BURN LOGIC B.P. @ E+2B+14 NEWT-SEC
030379,001884: 16,2526 34613 100B-14 # 1SEC @ B+14CS
030380,001885: 16,2527 41471 DDV PUSH # 02D=(DELTET-1SEC) @ B+14CS, FIMP16 SLOPE
030381,001886: 16,2530 01752 EFIMP16 # IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
030382,001887: 16,2531 51025 DSU BPL
030383,001888: 16,2532 34615 500B-14 # 5SEC @ B+14CS
030384,001889: 16,2533 34607 S40.136 # STEERING BURN INDICATED, DELTAT > 6 SEC
030385,001890: 16,2534 51145 DLOAD BPL
030386,001891: 16,2535 00003 02D # (DELTAT-1SEC) @ B+14CS, FIMP16 SLOPE
030387,001892: 16,2536 34560 S40.134 # 1<DELTAT<6SEC, SO FIMP16 SLOPE USE IS OK
030388,001893: 16,2537 56205 DMP DDV # 0<DELTAT<1SEC, SO USE FIMP01 NOT FIMP16
030389,001894: 16,2540 01752 EFIMP16 # IMP B.LOGIC 1-6SEC SLOPE @ E+2B+14 NEWT
030390,001895: 16,2541 01751 EFIMP01 # IMP B.LOGIC 0-1SEC SLOPE @ E+2B+14 NEWT
030391,001896: 16,2542 77614 CLEAR
030392,001897: 16,2543 01274 SBFLAG
030393,001898: 16,2544 77414 S40.132 SET EXIT
030394,001899: 16,2545 01066 IMPULSW # IMPULSIVE BURN
030395,001900: 16,2546 07224 TC DPAGREE
030396,001901: 16,2547 06006 TC INTPRET
030397,001902: 16,2550 54215 DAD SR # MPAC CONTAINS (DELTA-1SEC), GET DELTAT
030398,001903: 16,2551 34613 100B-14 # 1SEC @ B+14CS
030399,001904: 16,2552 20617 14D # DELTAT @ B+28CS
030400,001905: 16,2553 03430 STORE TGO
030401,001906: 16,2554 77776 S40.133 EXIT
030402,001907: 16,2555 05415 TC PHASCHNG
030403,001908: 16,2556 00003 OCT 3
030404,001909: 16,2557 15220 TCF ENDOFJOB
030405,001910:
030406,001911: 16,2560 41414 S40.134 BOFF PUSH
030407,001912: 16,2561 01354 SBFLAG
030408,001913: 16,2562 34544 S40.132
030409,001914: 16,2563 41215 DAD DMP
030410,001915: 16,2564 34613 100B-14
030411,001916: 16,2565 01742 EMDOT
030412,001917: 16,2566 44352 SL1 BDSU
030413,001918: 16,2567 03125 WEIGHT/G
030414,001919: 16,2570 56325 PDDL DDV
030415,001920: 16,2571 01752 EFIMP16
030416,001921: 16,2572 34624 100B+8
030417,001922: 16,2573 56205 DMP DDV
030418,001923: 16,2574 03001 ETDECAY
030419,001924: 16,2575 56242 SR3 DDV
030420,001925: 16,2576 34623 KPIP2
030421,001926: 16,2577 17456 STODL DVTAIL
030422,001927: 16,2600 15726 DPZERO
030423,001928: 16,2601 03452 STORE PIPAPIX
030424,001929: 16,2602 17453 STODL PIPAPIY
030425,001930: 16,2603 01100 PIPTIME1 +1
030426,001931: 16,2604 17460 STODL TZEROED
030427,001932: 16,2605 77650 GOTO
030428,001933: 16,2606 34544 S40.132
030429,001934:
030430,001935: 16,2607 52014 S40.136 CLEAR GOTO
030431,001936: 16,2610 01274 SBFLAG
030432,001937: 16,2611 34554 S40.133
030433,001938:
030434,001939: 16,2612 COUNT 17/40.13
030435,001940:
030436,001941: 16,2612 00144 00000 100B-14 2DEC 100.00 B-14 # 1SEC @ B+14CS
030437,001942:
030438,001943: 16,2614 16,2612 1SEC2D = 100B-14
030439,001944:
030440,001945: 16,2614 00764 00000 500B-14 2DEC 500.00 B-14 # 5SEC @ B+14CS
030441,001946: 16,2616 16,2614 5SECOND = 500B-14
030442,001947: 16,2616 00000 04263 S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
030443,001948: # 7.96 (199.6)COS(10) LB-SEC, SC.AT
030444,001949: # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
030445,001950: # TO GO, PLUS 0.96 SEC FROM PIPTIME)
030446,001951:
030447,001952: 16,2620 17602 25124 2VEXHUST 2DEC 63.020792 B-7 # 2(10338.0564 FPS), AT B+7 M/CS
030448,001953: 16,2622 02313 KPIP2 DEC 5.85 E-4 B7
030449,001954: 16,2623 14400 100B+8 DEC 100 B-8
030450,001955:
030451,001956: 16,2624 30,2000 SBANK= LOWSUPER
030452,001957: 20,2000 SETLOC DAPS6
030453,001958: 20,2000 BANK
030454,001959:
030455,001960: 20,2547 COUNT* $$/40.14
030456,001961: 20,2547 00631 DEC409 DEC 409 B-14
030457,001962: 20,2550 00056 DEC46 DEC 46 B-14
030458,001963:
030459,001964:
030460,001965: # CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
030461,001966:
030462,001967: 20,2551 E6,1514 EBANK= DAPDATR1
030463,001968: 20,2551 31516 S40.14 CAE IXX # RCS ENTRY
030464,001969: 20,2552 00006 EXTEND
030465,001970: 20,2553 72576 MP CONTONE
030466,001971: 20,2554 55654 TS J/M
030467,001972: 20,2555 31517 CA IAVG
030468,001973: 20,2556 00006 EXTEND
030469,001974: 20,2557 72576 MP CONTONE
030470,001975: 20,2560 55655 TS J/M1
030471,001976: 20,2561 55656 TS J/M2
030472,001977: 20,2562 00006 EXTEND
030473,001978: 20,2563 32600 DCA CONTTWO
030474,001979: 20,2564 00006 EXTEND
030475,001980: 20,2565 11516 DV IXX
030476,001981: 20,2566 55651 TS KMJ
030477,001982: 20,2567 00006 EXTEND
030478,001983: 20,2570 32600 DCA CONTTWO
030479,001984: 20,2571 00006 EXTEND
030480,001985: 20,2572 11517 DV IAVG
030481,001986: 20,2573 55652 TS KMJ1
030482,001987:
030483,001988: 20,2574 55653 TS KMJ2
030484,001989: 20,2575 00002 TC Q
030485,001990:
030486,001991: 20,2576 25137 CONTONE DEC .662034 # 2PI/M
030487,001992: 20,2577 00023 12522 CONTTWO 2DEC .00118
030488,001993:
030489,001994: 22,2000 SETLOC DAPS8
030490,001995: 22,2000 BANK
030491,001996: 22,3474 COUNT* $$/RCSUP
030492,001997: 22,3474 22016 RCSUP LXCH BANKRUPT
030493,001998: 22,3475 00006 EXTEND
030494,001999: 22,3476 22012 QXCH QRUPT
030495,002000: 22,3477 03504 TCR RCSDAPON # ACTIVATE RCS DAP
030496,002001: 22,3500 15336 TCF RESUME
030497,002002:
030498,002003: 22,3501 E6,1514 EBANK= DAPDATR1
030499,002004: 22,3501 02060 42066 RCSADDR 2CADR RCSATT
030500,002005:
030501,002006: 22,3503 37704 0.6SECT5 OCT 37704
030502,002007:
030503,002008: 22,3504 E6,1514 EBANK= DAPDATR1
030504,002009: # RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030505,002010: 22,3504 33503 RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030506,002011: 22,3505 54030 +1 TS TIME5 # ENTRY FROM ROOTOPOO
030507,002012: 22,3506 55513 TS T5PHASE # WILL CAUSE FRESHDAP (+1)
030508,002013: 22,3507 41530 CS RCSFLAGS # SET BIT3 TO REINITIALIZE FDAI ERROR
030509,002014: 22,3510 74777 MASK BIT3 # DISPLAY, IN CASE SC CONT SWITCH
030510,002015: 22,3511 27530 ADS RCSFLAGS # IN SCS NOT GNC (GUIDEMODE PRIMARY)
030511,002016: 22,3512 00006 EXTEND
030512,002017: 22,3513 33502 DCA RCSADDR # (RCSATT)
030513,002018: 22,3514 52113 DXCH T5LOC
030514,002019: 22,3515 44076 CS DPCONFIG # SET BITS 15,14 TO 01 TO INDICATE
030515,002020: 22,3516 70102 MASK FLAGWRD6 # T5 TAKEOVER BY RCSDAP
030516,002021: 22,3517 64764 AD DAP2BIT
030517,002022: 22,3520 54102 TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
030518,002023: 22,3521 00002 TC Q # RETURN TO CALLER (TVCDAPOFF OR RCSDAPUP)
030519,002024:
030520,002025:
030521,002026: 24,2000 SETLOC P40S
030522,002027: 24,2000 BANK
030523,002028: 24,3474 COUNT* $$/P40
030524,002029: 24,3474 30025 SBTASK CA TIME1
030525,002030: 24,3475 55462 TS PREST
030526,002031: 24,3476 41457 CS TZEROED
030527,002032: 24,3477 61462 AD PREST
030528,002033: 24,3500 03574 TC FIXOVFLW
030529,002034: 24,3501 55456 TS TDELTA
030530,002035: 24,3502 35003 CAF ZERO
030531,002036: 24,3503 55463 TS VELSS
030532,002037: 24,3504 55464 TS VELSS +1
030533,002038:
|
|
The name of the following label is a guess.
|
030535,002040: 24,3505 35000 CAF TWO
030536,002041: 24,3506 54061 VELSLOOP TS ITEMP1
030537,002042: 24,3507 50061 INDEX ITEMP1
030538,002043:
030539,002044: 24,3510 30037 CA PIPAX
030540,002045: 24,3511 50061 INDEX ITEMP1
030541,002046: 24,3512 61451 AD PIPAPIX
030542,002047: 24,3513 54062 TS ITEMP2
030543,002048:
030544,002049: 24,3514 35037 CAF EBANK3
030545,002050: 24,3515 54003 TS EBANK
030546,002051: 24,3516 E6,1514 EBANK= DAPDATR1
030547,002052:
030548,002053: 24,3516 30061 CA ITEMP1
030549,002054: 24,3517 60000 DOUBLE
030550,002055: 24,3520 54063 TS ITEMP3
030551,002056:
030552,002057: 24,3521 30062 CA ITEMP2
030553,002058: 24,3522 00006 EXTEND
030554,002059: 24,3523 50063 INDEX ITEMP3
030555,002060: 24,3524 71453 MP PIPASCFX
030556,002061: 24,3525 00006 EXTEND
030557,002062: 24,3526 74774 MP BIT6
030558,002063: 24,3527 26062 ADS ITEMP2
030559,002064:
030560,002065: 24,3530 50063 INDEX ITEMP3
030561,002066: 24,3531 41452 CS PBIASX
030562,002067: 24,3532 56001 XCH L
030563,002068:
030564,002069: 24,3533 04606 TC E7SETTER
030565,002070: 24,3534 E7,1412 EBANK= TIG
030566,002071:
030567,002072: 24,3534 56001 XCH L
030568,002073: 24,3535 00006 EXTEND
030569,002074: 24,3536 71456 MP TDELTA
030570,002075: 24,3537 00006 EXTEND
030571,002076: 24,3540 74771 MP BIT9
030572,002077: 24,3541 60062 AD ITEMP2
030573,002078: 24,3542 00006 EXTEND
030574,002079: 24,3543 70000 SQUARE
030575,002080: 24,3544 21464 DAS VELSS
030576,002081:
030577,002082: 24,3545 10061 CCS ITEMP1
030578,002083: 24,3546 13506 TCF VELSLOOP
030579,002084:
030580,002085: 24,3547 11463 CCS VELSS
030581,002086: 24,3550 13554 TCF +4
030582,002087: 24,3551 31464 CA VELSS +1
030583,002088: 24,3552 00006 EXTEND
030584,002089: 24,3553 13564 BZF BURNMORE
030585,002090:
030586,002091: 24,3554 03631 TC SQRTTASK
030587,002092: 24,3555 60000 DOUBLE
030588,002093: 24,3556 61455 AD DVTAIL
030589,002094: 24,3557 40000 COM
030590,002095: 24,3560 61454 AD SBVGMAG
030591,002096: 24,3561 61461 AD PASTDV
030592,002097: 24,3562 00006 EXTEND
030593,002098: 24,3563 63602 BZMF ENGOFF
030594,002099:
030595,002100: 24,3564 00006 BURNMORE EXTEND
030596,002101: 24,3565 31463 DCA PREST
030597,002102: 24,3566 53461 DXCH PASTT
030598,002103:
030599,002104: 24,3567 34355 CAF TEN
030600,002105: 24,3570 05246 TC WAITLIST
030601,002106: 24,3571 E7,1463 EBANK= VELSS
030602,002107: 24,3571 03474 50067 2CADR SBTASK
030603,002108:
030604,002109: 24,3573 05327 TC TASKOVER
030605,002110:
|
|
The name of the following function is a guess.
|
030607,002112: 24,3574 00006 FIXOVFLW EXTEND
030608,002113: 24,3575 63577 BZMF +2
030609,002114: 24,3576 00002 TC Q
030610,002115: 24,3577 74761 MASK POSMAX
030611,002116: 24,3600 65001 AD ONE
030612,002117: 24,3601 00002 TC Q
030613,002118:
030614,002119: 24,3602 54061 ENGOFF TS ITEMP1
030615,002120:
030616,002121: 24,3603 41460 CS PASTT
030617,002122: 24,3604 61462 AD PREST
030618,002123: 24,3605 03574 TC FIXOVFLW
030619,002124: 24,3606 55456 TS TDELTA
030620,002125:
030621,002126: 24,3607 41461 CS PASTDV
030622,002127: 24,3610 61463 AD PRESDV
030623,002128: 24,3611 54062 TS ITEMP2
030624,002129: 24,3612 60061 AD ITEMP1
030625,002130: 24,3613 00006 EXTEND
030626,002131: 24,3614 71456 MP TDELTA
030627,002132: 24,3615 00006 EXTEND
030628,002133: 24,3616 10062 DV ITEMP2
030629,002134: 24,3617 00006 EXTEND
030630,002135: 24,3620 62655 BZMF ENGINOFF
030631,002136:
030632,002137: 24,3621 55430 TS TGO +1
030633,002138: 24,3622 05246 TC WAITLIST
030634,002139: 24,3623 E7,1427 EBANK= TGO
030635,002140: 24,3623 02655 50067 2CADR ENGINOFF
030636,002141:
030637,002142: 24,3625 45004 CS FIVE
030638,002143: 24,3626 04126 TC NEWPHASE
030639,002144: 24,3627 00003 OCT 3
030640,002145: 24,3630 01,2063 3P5SPT1 = 3.5SPOT
030641,002146: 24,3630 05327 TC TASKOVER
030642,002147:
030643,002148: 24,3631 35003 SQRTTASK CAF ZERO
030644,002149: 24,3632 55467 TS VRSS-SL
030645,002150: 24,3633 13637 TCF +4
030646,002151:
030647,002152: 24,3634 00006 +3 EXTEND
030648,002153: 24,3635 31464 DCA VELSS
030649,002154: 24,3636 21464 DAS VELSS
030650,002155:
030651,002156: 24,3637 25467 INCR VRSS-SL
030652,002157: 24,3640 00006 EXTEND
030653,002158: 24,3641 31464 DCA VELSS
030654,002159: 24,3642 21464 DAS VELSS
030655,002160:
030656,002161: 24,3643 31463 CA VELSS
030657,002162: 24,3644 60000 DOUBLE
030658,002163: 24,3645 60000 DOUBLE
030659,002164: 24,3646 54001 TS L
030660,002165: 24,3647 13651 TCF +2
030661,002166: 24,3650 13661 TCF HIARG
030662,002167:
030663,002168: 24,3651 60000 DOUBLE
030664,002169: 24,3652 54001 TS L
030665,002170: 24,3653 13634 TCF SQRTTASK +3
030666,002171:
030667,002172: 24,3654 33702 LOARG CAF LOSLOPE
030668,002173: 24,3655 00006 EXTEND
030669,002174: 24,3656 71463 MP VELSS
030670,002175: 24,3657 63704 AD LOBIAS
030671,002176: 24,3660 13665 TCF HIARG +4
030672,002177:
030673,002178: 24,3661 33701 HIARG CAF HISLOPE
030674,002179: 24,3662 00006 EXTEND
030675,002180: 24,3663 71463 MP VELSS
030676,002181: 24,3664 63703 AD HIBIAS
030677,002182:
030678,002183: 24,3665 54070 +4 TS RUPTREG1
030679,002184: 24,3666 31463 CA VELSS
030680,002185: 24,3667 00006 EXTEND
030681,002186: 24,3670 74764 MP HALF
030682,002187: 24,3671 00006 EXTEND
030683,002188: 24,3672 10070 DV RUPTREG1
030684,002189: 24,3673 60070 AD RUPTREG1
030685,002190: 24,3674 00006 EXTEND
030686,002191: 24,3675 51467 INDEX VRSS-SL
030687,002192: 24,3676 74763 MP BIT15
030688,002193: 24,3677 55463 TS PRESDV
030689,002194: 24,3700 00002 TC Q
030690,002195:
030691,002196: 24,3701 22650 HISLOPE DEC .5884
030692,002197: 24,3702 32506 LOSLOPE DEC .8324
030693,002198: 24,3703 06552 HIBIAS DEC .4192 B-1
030694,002199: 24,3704 04604 LOBIAS DEC .2974 B-1
030695,002200:
030696,002201:
030697,002202: # NAME P41 - RCS BURN
030698,002203:
030699,002204: # FUNCTION TO CONTROL THE SEQUENCE OF THE CMC DURING THE COUNTDOWN
030700,002205: # AND THRUSTING MANEUVER OF AN RCS BURN
030701,002206:
030702,002207: # R02BOTH CHECK STATUS OF IMU
030703,002208:
030704,002209: # S40.1 COMPUTE: INTIAL THRUST DIRECTION AND
030705,002210: # INTIAL VALUE OF VELOCITY-TO-BE-
030706,002211: # GAINED VECTOR (VGTIG)
030707,002212:
030708,002213: # S40.2,3 COMPUTE: GIMBAL ANGLES IF THRUSTING WILL
030709,002214: # OCCUR WITH PRESENT IMU ORIENTATION,
030710,002215: # PREFERRED IMU ORIENTATION, AND
030711,002216: # DESIRED THRUST DIRECTION IN SM COORDS
030712,002217:
030713,002218: # R60CSM PERFORM ATTITUDE MANEUVER
030714,002219:
030715,002220: # MIDTOAV1 EXTRAPOLATE CSM STATE VECTOR TO TIG-29.96 SECS
030716,002221:
030717,002222: # CLOKTASK COMPUTE TIME-TO-GO TO IGNITION,
030718,002223: # RECALL CLOKTASK,
030719,002224: # UPDATE N 85, AND
030720,002225: # CALL CLOCKJOB TO DISPLAY V06N85
030721,002226:
030722,002227: # TIGBLNK BLANK DSKY AT TIG-35 SECS AND
030723,002228: # WAITLIST TIGAVEG IN 5 SECS
030724,002229:
030725,002230: # TIGAVEG UNBLANK DSKY,
030726,002231: # CAUSE CLOCKJOB TO DISPLAY NON FLASH V16N85,
030727,002232: # WAITLIST TTG/0 IN 29.96 SECS, AND
030728,002233: # START SERVICER
030729,002234:
030730,002235: # CLOCKJOB (CALLED EVERY SEC)
030731,002236: # DISPLAY NON FLASH V06N85 UNTIL TIG - 29.96:
030732,002237: # THEN DISPLAY NON FLASH V16N85
030733,002238:
030734,002239: # TTG/0 NOVAC TIGNOW
030735,002240:
030736,002241: # TIGNOW DISPLAY FLASHING V16N85
030737,002242:
030738,002243: # POST41 CLEAN UP AFTER BURN
030739,002244:
030740,002245: # *************************************************
030741,002246: # PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
030742,002247: # *************************************************
030743,002248:
030744,002249: # INPUT SAME AS P40
030745,002250:
030746,002251: # ALARMS 1703 INSUFFICIENT TIME FOR INTEGRATION
030747,002252: # TIG WAS SLIPPED
030748,002253:
030749,002254: 24,3705 E6,1514 EBANK= DAPDATR1
030750,002255: 24,2000 SETLOC P40S
030751,002256: 24,2000 BANK
030752,002257: 24,3705 COUNT* $$/P41
030753,002258: 24,3705 06006 P41CSM TC INTPRET
030754,002259: 24,3706 71214 SET DLOAD
030755,002260: 24,3707 00464 ENG2FLAG # SET FOR RCS
030756,002261: 24,3710 15204 HI6ZEROS # CSTEER = 0 FOR P41
030757,002262: 24,3711 03663 STORE CSTEER
030758,002263: 24,3712 43145 DLOAD BON
030759,002264: 24,3713 11401 FRCS2 # 2JET THRUST FOR S40.1
030760,002265: 24,3714 00700 NJETSFLG
030761,002266: 24,3715 50014 P40S/F # NJETS = 1 2-JET
030762,002267: 24,3716 52152 SL1 GOTO # NJETS = 0 4-JET
030763,002268: 24,3717 50014 P40S/F
030764,002269: 24,3720 E6,1514 EBANK= DAPDATR1
030765,002270: 24,3720 06006 CALCN85 TC INTPRET
030766,002271: 24,3721 77624 CALL
030767,002272: 24,3722 34264 UPDATEVG # NEW VG FROM VGCOMP (+ MAYBE S40.9)
030768,002273: 24,3723 77624 CALL
030769,002274: 24,3724 51763 P40CNV85 # COMPUTE VGBODY
030770,002275: 24,3725 77776 SERVXT1 EXIT
030771,002276:
030772,002277: 24,3726 04666 SERVXT TC POSTJUMP
030773,002278: 24,3727 77033 CADR SERVEXIT
030774,002279:
030775,002280: 24,3730 07700 NEJETBTS OCT 07700
030776,002281:
030777,002282: 24,3731 34764 TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41)
030778,002283: 24,3732 05134 TC NOVAC
030779,002284: 24,3733 E6,1514 EBANK= DAPDATR1
030780,002285: 24,3733 03317 50066 2CADR TIGNOW
030781,002286:
030782,002287: 24,3735 07722 P40CLK TC DOWNFLAG
030783,002288: 24,3736 00155 ADRES TIMRFLAG
030784,002289: 24,3737 15327 TCF TASKOVER
030785,002290:
030786,002291: 24,3740 77624 P41/DSP CALL # COMPUTE
030787,002292: 24,3741 51763 P40CNV85 # VGTIG IN CTRL COORDS
030788,002293: 24,3742 77776 EXIT
030789,002294: 24,3743 00006 EXTEND # DO CONTROL COORD CALCULATION AFTER AVEG
030790,002295: 24,3744 33421 DCA ACADN85
030791,002296: 24,3745 53054 DXCH AVEGEXIT
030792,002297: 24,3746 33357 CAF V06N85B
030793,002298: 24,3747 54772 TS NVWORD1 # FORCE CLOCKJOB
030794,002299: 24,3750 05375 TC 2PHSCHNG
030795,002300: 24,3751 40036 OCT 40036 # 6.3=CLOKTASK(100CS)
030796,002301: 24,3752 00234 OCT 234 # 4.23=P40S/SV(PRIO12)
030797,002302: 24,3753 01,2162 4P23SPT2 = 4.23SPOT
030798,002303: 24,3753 01,2333 6P3SPT3 = 6.3SPOT
030799,002304: 24,3753 12331 TCF P40S/SV
030800,002305: 24,3754 33360 P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
030801,002306: 24,3755 54772 TS NVWORD1 # REDISPLAY NONFLASHING
030802,002307: 24,3756 33375 CAF SEC29.96 +1
030803,002308: 24,3757 05236 TC TWIDDLE
030804,002309: 24,3760 03731 ADRES TTG/0
030805,002310: 24,3761 44777 CS BIT3 # 4.4 = TTG/0(2996CS), PRECHECK(-0CS)
030806,002311: 24,3762 12425 TCF TTGPHS
030807,002312:
030808,002313: 24,3763 40220 P40CNV85 STQ SETPD
030809,002314: 24,3764 03702 QTEMP1
030810,002315: 24,3765 00001 0
030811,002316: 24,3766 41575 VLOAD PUSH
030812,002317: 24,3767 03772 VGPREV # EQUALS VGTIG (TARGETTING INPUT)
030813,002318: 24,3770 77624 CALL
030814,002319: 24,3771 56746 S41.1
030815,002320: 24,3772 37645 STCALL VGBODY
030816,002321: 24,3773 03702 QTEMP1
030817,002322:
030818,002323:
030819,002324: # NAME P47 - DELTA V MONITOR
030820,002325:
030821,002326: # FUNCTION TO MONITOR VEHICLE ACCELERATION AND
030822,002327: # DISPLAY ACCUMULATED VG IN CONTROL COORDINATES
030823,002328:
030824,002329: # R02BOTH CHECK STATUS OF IMU
030825,002330:
030826,002331: # MIDTOAV2 EXTRAPOLATE STATE VECTOR TO CURRENT TIME
030827,002332: # + INCREMENT OF TIMEDELT
030828,002333:
030829,002334: # SETUPTIG WAITLIST TIGON IN NO. OF CS FOUND
030830,002335: # IN MPAC +1 AFTER MIDTOAV2 RETURN
030831,002336:
030832,002337: # TIGON SET CALCN83 INTO AVGGEXIT,
030833,002338: # NOVAC P47BODY, AND
030834,002339: # START SERVICER
030835,002340:
030836,002341: # CALCN83 ADD PIPA CONTENTS TO ACCUMULATED DELTA V AND
030837,002342: # CONVERT TO CONTROL COORDINATES AND
030838,002343: # CALCULATE INERTIAL VELOCITY, R, AND
030839,002344: # HDOT FOR NOUN 62
030840,002345:
030841,002346: # P47BODY ZERO DELVIMU INITIALLY AND
030842,002347: # GENERATE MONITORING DISPLAY OF ACCUMULATED
030843,002348: # DELTA V IN CONTROL COORDINATES
030844,002349:
030845,002350: # *************************************************
030846,002351: # PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS
030847,002352: # *************************************************
030848,002353:
030849,002354: 30,2000 SETLOC P40S3
030850,002355: 30,2000 BANK
030851,002356: 30,3554 COUNT* $$/P47
030852,002357: 30,3554 E7,1412 EBANK= TIG
030853,002358: 30,3554 07722 P47CSM TC DOWNFLAG
030854,002359: 30,3555 00257 ADRES P48FLAG
030855,002360: 30,3556 03567 TC ASKIMU
030856,002361:
030857,002362: 30,3557 07710 P48CSM TC UPFLAG
030858,002363: 30,3560 00257 ADRES P48FLAG
030859,002364: 30,3561 07722 TC DOWNFLAG
030860,002365: 30,3562 00010 ADRES RNDVZFLG
030861,002366:
030862,002367: 30,3563 22007 ZL
030863,002368: 30,3564 35003 CAF ZERO
030864,002369: 30,3565 53334 DXCH FIXTIME
030865,002370: 30,3566 02325 TC N72STUFF
030866,002371:
030867,002372: 30,3567 04606 ASKIMU TC E7SETTER
030868,002373: 30,3570 04647 TC BANKCALL # IMU STATUS CHECK
030869,002374: 30,3571 03737 CADR R02BOTH
030870,002375: 30,3572 06006 TC INTPRET
030871,002376: 30,3573 77624 CALRB
030872,002377: 30,3574 27535 MIDTOAV2
030873,002378: 30,3575 30155 SETUPTIG CAE MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 100
030874,002379: 30,3576 55652 TS P40TMP # CS, WITH A TPAGREE, INT.INIT.)
030875,002380: 30,3577 05236 TC TWIDDLE
030876,002381: 30,3600 03620 ADRES TIGON
030877,002382: 30,3601 34775 CAF P48BIT
030878,002383: 30,3602 70107 MASK FLGWRD11
030879,002384: 30,3603 10000 CCS A
030880,002385: 30,3604 03610 TC +4
030881,002386: 30,3605 05415 TC PHASCHNG
030882,002387: 30,3606 40574 OCT 40574 # A, 4.57 = TIGON (P40TMP CS)
030883,002388: 30,3607 01,2234 4P57SPT1 = 4.57SPOT
030884,002389: 30,3607 15220 TCF ENDOFJOB
030885,002390:
030886,002391: 30,3610 35001 CAF BIT1
030887,002392: 30,3611 05246 TC WAITLIST
030888,002393: 30,3612 1333 EBANK= FIXTIME
030889,002394: 30,3612 02264 60062 2CADR CTASK
030890,002395:
030891,002396: 30,3614 05375 TC 2PHSCHNG
030892,002397: 30,3615 00213 OCT 00213
030893,002398: 30,3616 40574 OCT 40574
030894,002399: 30,3617 01,2105 3P21SPT1 = 3.21SPOT
030895,002400: 30,3617 15220 TCF ENDOFJOB
030896,002401:
030897,002402: 30,3620 E7,1652 EBANK= P40TMP
030898,002403: 30,3620 00006 TIGON EXTEND
030899,002404: 30,3621 33761 DCA ACADN83
030900,002405: 30,3622 53054 DXCH AVEGEXIT
030901,002406: 30,3623 05133 TC NOVAC30 # FORCE ZEROING OF N83 BEFORE SERVICER
030902,002407: 30,3624 E7,1412 EBANK= TIG
030903,002408: 30,3624 03705 60067 2CADR P47BODY
030904,002409:
030905,002410: 30,3626 45000 CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
030906,002411: 30,3627 04666 TC POSTJUMP
030907,002412: 30,3630 50425 CADR TTGPHS
030908,002413:
030909,002414: 30,3631 E7,1412 EBANK= TIG
030910,002415: 30,3631 06006 CALCN83 TC INTPRET
030911,002416: 30,3632 77201 SETPD VLOAD
030912,002417: 30,3633 00001 0
030913,002418: 30,3634 03645 DELVCTL
030914,002419: 30,3635 41455 VAD PUSH
030915,002420: 30,3636 03432 DELVREF
030916,002421: 30,3637 37440 STCALL DV47TEMP
030917,002422: 30,3640 56746 S41.1
030918,002423: 30,3641 03655 STORE DELVIMU
030919,002424: 30,3642 45014 BON CALL
030920,002425: 30,3643 05712 P48FLAG
030921,002426: 30,3644 61657 R27CHECK
030922,002427: 30,3645 70536 S11.1 # CALC. VI, H, HDOT FOR NOUN 62
030923,002428: 30,3646 77776 EXIT
030924,002429: 30,3647 05415 CLOZUP TC PHASCHNG
030925,002430: 30,3650 10035 OCT 10035
030926,002431: 30,3651 01,2253 5P3SPT7 = 5.3SPOT
030927,002432: 30,3651 35004 CAF FIVE
030928,002433: 30,3652 05562 TC GENTRAN
030929,002434: 30,3653 01437 ADRES DV47TEMP
030930,002435: 30,3654 01644 ADRES DELVCTL
030931,002436: 30,3655 04666 TC POSTJUMP
030932,002437: 30,3656 77033 CADR SERVEXIT
030933,002438:
|
|
The name of the following label is a guess.
|
030935,002440: 30,3657 77776 R27CHECK EXIT
030936,002441: 30,3660 34767 CAF CYCLFBIT
030937,002442: 30,3661 70107 MASK FLGWRD11
030938,002443: 30,3662 10000 CCS A
030939,002444: 30,3663 03647 TC CLOZUP
030940,002445:
030941,002446: 30,3664 35070 CAF PRIO17
030942,002447: 30,3665 05150 TC FINDVAC
030943,002448: 30,3666 E7,1702 EBANK= MRKBUF1
030944,002449: 30,3666 03671 60067 2CADR R27JOBA
030945,002450:
030946,002451: 30,3670 03647 TC CLOZUP
030947,002452:
030948,002453: 30,3671 05415 R27JOBA TC PHASCHNG
030949,002454: 30,3672 05022 OCT 05022
030950,002455: 30,3673 17000 OCT 17000
030951,002456:
030952,002457: 30,3674 06006 TC INTPRET
030953,002458: 30,3675 45014 SET CALL
030954,002459: 30,3676 05464 CYCLFLAG
030955,002460: 30,3677 60512 R27GO
030956,002461: 30,3700 77624 CALL
030957,002462: 30,3701 57046 GRP2PC
030958,002463: 30,3702 77414 CLEAR EXIT
030959,002464: 30,3703 05664 CYCLFLAG
030960,002465: 30,3704 05220 TC ENDOFJOB
030961,002466:
030962,002467: 30,3705 06006 P47BODY TC INTPRET
030963,002468: 30,3706 77775 VLOAD
030964,002469: 30,3707 15204 HI6ZEROS
030965,002470: 30,3710 03655 STORE DELVIMU # CLEAR DISPLAY AND ACCUMULATOR STORAGE
030966,002471: 30,3711 03645 STORE DELVCTL # UPON INITIATION OR-ENTER-RESPONSE
030967,002472: 30,3712 03762 STORE VSAV
030968,002473: 30,3713 77776 EXIT
030969,002474: 30,3714 35066 P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20)
030970,002475: 30,3715 05211 TC PRIOCHNG # TO PREVENT INTERRUPTION OF CALCN83
030971,002476: 30,3716 05415 TC PHASCHNG
030972,002477: 30,3717 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 83
030973,002478: 30,3720 62777 OCT 62777 # PRIO 15 NOVAC
030974,002479: 30,3721 34775 P47/DSP CAF P48BIT
030975,002480: 30,3722 70107 MASK FLGWRD11
030976,002481: 30,3723 10000 CCS A
030977,002482: 30,3724 13726 TCF +2
030978,002483: 30,3725 13752 TCF SHOW83
030979,002484:
030980,002485: 30,3726 34770 CAF NOUNBIT
030981,002486: 30,3727 70107 MASK FLGWRD11
030982,002487: 30,3730 10000 CCS A
030983,002488: 30,3731 13740 TCF SHOWOPT
030984,002489:
030985,002490: 30,3732 33763 CAF V1676
030986,002491: 30,3733 04647 TC BANKCALL
030987,002492: 30,3734 20623 CADR GOFLASH
030988,002493: 30,3735 04103 TC GOTOPOOH
030989,002494: 30,3736 03740 TC SHOWOPT
030990,002495: 30,3737 13705 TCF P47BODY
030991,002496:
030992,002497: 30,3740 05415 SHOWOPT TC PHASCHNG
030993,002498: 30,3741 04024 OCT 04024
030994,002499:
030995,002500: 30,3742 33764 CAF V1677
030996,002501: 30,3743 04647 TC BANKCALL
030997,002502: 30,3744 20623 CADR GOFLASH
030998,002503: 30,3745 04103 TC GOTOPOOH
030999,002504: 30,3746 03750 TC +2
031000,002505: 30,3747 13705 TCF P47BODY
031001,002506:
031002,002507: 30,3750 05415 TC PHASCHNG
031003,002508: 30,3751 04024 OCT 04024
031004,002509:
031005,002510: 30,3752 33762 SHOW83 CAF V1683
031006,002511: 30,3753 04647 TC BANKCALL
031007,002512: 30,3754 20623 CADR GOFLASH
031008,002513: 30,3755 04103 TC GOTOPOOH
031009,002514: 30,3756 04103 TC GOTOPOOH
031010,002515: 30,3757 13705 TCF P47BODY # RECYCLE - CLEAR ACCUMULATED VELOCITY
031011,002516:
031012,002517: 30,3760 E7,1412 EBANK= TIG
031013,002518: 30,3760 03631 60067 ACADN83 2CADR CALCN83
031014,002519:
031015,002520: 30,3762 04123 V1683 VN 1683
031016,002521: 30,3763 04114 V1676 VN 1676
031017,002522: 30,3764 04115 V1677 VN 1677
End of include-file P40-P47.agc. Parent file is MAIN.agc