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