Source Code
|
These source-code files are part of a reconstructed copy of Comanche 51, the
initial release (though not the final mission release) of the Apollo 11
Command Module (CM) Apollo Guidance Computer (AGC) software. The flown, final
release was Comanche 55. The reconstruction is believed to be exactly accurate,
but in the absence of an actual Apollo-era listing of Comanche 51, some
explanation of the reconstruction process is needed to insure confidence in
that accuracy.
The starting point was the source code of Comanche 55, whose original source code
is available. Comanche 55 source code was then modified by undoing changes known
to have been made between revisions 51 and 55. The most-significant steps involved
reverting changes related to the R-2 lunar potential model, the details of which
were known from the previous, separate, independent reconstruction of the Apollo 10
Lunar Module software Luminary 69/2. The now-reconstructed
Comanche 51 source code was verified by assembling it and checking that the assembled
code had the expected known-correct memory-bank checksums. Note that page numbers in
the reconstructed code match those on the Comanche 55 or Luminary 69 printouts, although
the source code would likely have different page numbers in a contemporary Comanche 51 listing.
Annotations that were not present in the contemporary source code have been added to
the reconstructed code to justify each change relative to Comanche 55. Here's a guide
to some of the Apollo documentation relevant to those annotations:
Among documentation not actually referenced in the annotations, there is
a short writeup about the reconstruction process in our software repository
that may be helpful in understanding it from a different perspective. There's also
a handy table
that lists what the number of memory-words should be for each routine in Comanche 51,
which could make a nice double-check; however, we've not performed that double-check ourselves.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
038783,000002: ## Copyright: Public domain.
038784,000003: ## Filename: P37,P70.agc
038785,000004: ## Purpose: A section of Comanche revision 051.
038786,000005: ## It is part of the reconstructed source code for the
038787,000006: ## original release of the flight software for the Command
038788,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
038789,000008: ## The code has been recreated from a copy of Comanche 055. It
038790,000009: ## has been adapted such that the resulting bugger words
038791,000010: ## exactly match those specified for Comanche 51 in NASA drawing
038792,000011: ## 2021153D, which gives relatively high confidence that the
038793,000012: ## reconstruction is correct.
038794,000013: ## Reference: pp. 890-933
038795,000014: ## Assembler: yaYUL
038796,000015: ## Contact: Ron Burkey <info@sandroid.org>.
038797,000016: ## Website: www.ibiblio.org/apollo/index.html
038798,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
038799,000018:
|
|
Page 890
|
038801,000020: 31,3700 BANK 31
038802,000021: 36,2000 SETLOC RTE1
038803,000022: 36,2000 BANK
038804,000023:
038805,000024: 36,2466 E7,1631 EBANK= RTEDVD
038806,000025: 36,2466 COUNT 31/P37
038807,000026:
038808,000027: # PROGRAM DESCRIPTION - P37, RETURN TO EARTH
038809,000028:
038810,000029: # DESCRIPTION
038811,000030: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
038812,000031: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
038813,000032: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
038814,000033: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
038815,000034: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
038816,000035:
038817,000036: # CALLING SEQUENCE
038818,000037: # L TC P37
038819,000038:
038820,000039: # SUBROUTINES CALLED
038821,000040: # PREC100
038822,000041: # V2T100
038823,000042: # RTENCK2
038824,000043: # RTENCK3
038825,000044: # TIMERAD
038826,000045: # PARAM
038827,000046: # V2T100
038828,000047: # GAMDV10
038829,000048: # XT1LIM
038830,000049: # DVCALC
038831,000050: # RTENCK1
038832,000051: # INTSTALL
038833,000052: # INTEGRVS
038834,000053: # RTEVN
038835,000054: # RTEDISP
038836,000055: # TMRAD100
038837,000056: # AUGEKUGL
038838,000057: # LAT-LONG
038839,000058: # TMRAD100
038840,000059: # TIMERAD
038841,000060: # INVC100
038842,000061: # CSMPREC
038843,000062: # GETERAD
038844,000063: # TIMETHET
038845,000064: # P370ALRM
038846,000065: # VN1645
038847,000066: # POLY
038848,000067:
038849,000068: # ERASABLE INITIALIZATION REQUIRED
038850,000069: # CSM STATE VECTOR
|
|
Page 891
|
038852,000071: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
038853,000072:
038854,000073: # ASTRONAUT INPUT
038855,000074: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
038856,000075: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
038857,000076: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
038858,000077: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
038859,000078:
038860,000079: # OUTPUT
038861,000080: # CONIC OR PRECISION TRAJECTORY DISPLAY
038862,000081: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
038863,000082: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
038864,000083: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
038865,000084: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
038866,000085: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
038867,000086: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
038868,000087: # TARGETING COMPUTATION DISPLAY
038869,000088: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
038870,000089: # TTOGO TIME FROM TIG DP B28 CS
038871,000090: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
038872,000091: # THRUST PROGRAM COMMUNICATION
038873,000092: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
038874,000093: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
038875,000094: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
038876,000095: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
038877,000096: # TPASS4 REENTRY TIME DP B28 CS
038878,000097:
038879,000098: 36,2466 05412 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE.
038880,000099: 36,2467 00004 OCT 4
038881,000100:
038882,000101: 36,2470 06006 TC INTPRET
038883,000102: 36,2471 66170 AXT,1 SXA,1
038884,000103: 36,2472 04000 OCT 04000
038885,000104: 36,2473 03424 ECSTEER
038886,000105: 36,2474 77745 DLOAD
038887,000106: 36,2475 15335 ZEROVECS
038888,000107: 36,2476 03767 STORE VPRED
038889,000108: 36,2477 03771 STORE GAMMAEI
038890,000109: 36,2500 77776 EXIT
038891,000110: 36,2501 33246 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
038892,000111: 36,2502 03235 TCR P370GOF # OVERLAYED WITH TIG
038893,000112: 36,2503 12501 TCF -2 # DESPLAY NEW DATA
038894,000113: 36,2504 33252 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
038895,000114: 36,2505 03211 TCR P37GFRB1 # AND DESIRED DELTA V IN RTEDVD
038896,000115: 36,2506 12504 TCF -2 # DISPLAY NEW DATA
038897,000116: 36,2507 06006 RTE299 TC INTPRET
038898,000117: 36,2510 71331 SSP DLOAD
038899,000118: 36,2511 00122 OVFIND
038900,000119: 36,2512 00000 0
038901,000120: 36,2513 03767 VPRED
|
|
Page 892
|
038903,000122: 36,2514 17632 STODL RTEDVD
038904,000123: 36,2515 03771 GAMMAEI
038905,000124: 36,2516 17634 STODL RTEGAM2D
038906,000125: 36,2517 33514 1RTEB13
038907,000126: 36,2520 17735 STODL CONICX1
038908,000127: 36,2521 33620 C4RTE
038909,000128: 36,2522 37652 STCALL MAMAX1
038910,000129: 36,2523 64450 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
038911,000130: 36,2524 71214 CLEAR DLOAD
038912,000131: 36,2525 02662 SLOWFLG
038913,000132: 36,2526 03632 RTEDVD
038914,000133: 36,2527 51444 BPL ABS
038915,000134: 36,2530 74540 RTE317
038916,000135: 36,2531 03632 STORE RTEDVD
038917,000136: 36,2532 45345 DLOAD DSU
038918,000137: 36,2533 03646 R(T1)
038919,000138: 36,2534 33622 K1RTE
038920,000139: 36,2535 43040 BMN SET
038921,000140: 36,2536 74540 RTE317
038922,000141: 36,2537 02462 SLOWFLG
038923,000142: 36,2540 77545 RTE317 DLOAD EXIT
038924,000143: 36,2541 03646 R(T1)
038925,000144: 36,2542 07171 TC POLY
038926,000145: 36,2543 00002 DEC 2 B-14
038927,000146: 36,2544 02544 35436 2DEC 181000434. B-31
038928,000147: 36,2546 14040 05066 2DEC 1.50785145 B-2
038929,000148: 36,2550 44052 60030 2DEC* -6.49993057 E-9 B27*
038930,000149: 36,2552 26415 25057 2DEC* 9.76938926 E-18 B56*
038931,000150: 36,2554 06006 TC INTPRET
038932,000151: 36,2555 77752 SL1
038933,000152: 36,2556 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
038934,000153: 36,2557 33544 M9RTEB28
038935,000154: 36,2560 17730 STODL NN1A
038936,000155: 36,2561 33624 K2RTE
038937,000156: 36,2562 17636 RTE320 STODL RCON # RCON=K2
038938,000157: 36,2563 03634 RTEGAM2D
038939,000158: 36,2564 44254 BZE BDSU
038940,000159: 36,2565 74574 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
038941,000160: 36,2566 33502 1RTEB2
038942,000161: 36,2567 71406 PUSH COS # PL02D
038943,000162: 36,2570 73525 PDDL SIN
038944,000163: 36,2571 45465 BDDV STADR # PL00D
038945,000164: 36,2572 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
038946,000165: 36,2573 74607 RTE360
038947,000166: 36,2574 45345 RTE340 DLOAD DSU
038948,000167: 36,2575 03646 R(T1)
|
|
Page 893
|
038950,000169: 36,2576 33622 K1RTE
038951,000170: 36,2577 71240 BMN DLOAD
038952,000171: 36,2600 74604 RTE350
038953,000172: 36,2601 33630 K4RTE
038954,000173: 36,2602 37726 STCALL X(T2) # X(T2)=K4
038955,000174: 36,2603 74607 RTE360
038956,000175: 36,2604 77745 RTE350 DLOAD
038957,000176: 36,2605 33626 K3RTE
038958,000177: 36,2606 03726 STORE X(T2) # X(T2)=K3
038959,000178: 36,2607 77624 RTE360 CALL
038960,000179: 36,2610 65075 V2T100
038961,000180: 36,2611 52054 BZE GOTO
038962,000181: 36,2612 74614 RTE367
038963,000182: 36,2613 74776 RTEALRM
038964,000183: 36,2614 77775 RTE367 VLOAD
038965,000184: 36,2615 03640 R(T1)/
038966,000185: 36,2616 16657 STODL RVEC
038967,000186: 36,2617 03636 RCON
038968,000187: 36,2620 26760 STOVL RDESIRED
038969,000188: 36,2621 03700 V2(T1)/
038970,000189: 36,2622 36746 STCALL VVEC
038971,000190: 36,2623 64277 TMRAD100
038972,000191: 36,2624 77615 DAD
038973,000192: 36,2625 03716 T1
038974,000193: 36,2626 17736 STODL T2
038975,000194: 36,2627 03634 RTEGAM2D
038976,000195: 36,2630 52054 BZE GOTO
038977,000196: 36,2631 74633 RTE369
038978,000197: 36,2632 74655 RTE372
038979,000198: 36,2633 51575 RTE369 VLOAD ABVAL
038980,000199: 36,2634 03710 V(T2)/
038981,000200: 36,2635 77776 EXIT
038982,000201: 36,2636 07171 TC POLY
038983,000202: 36,2637 00002 DEC 2 B-14
038984,000203: 36,2640 00000 00000 2DEC 0 B-28
038985,000204: 36,2642 47021 65002 2DEC -4.8760771 E-2 B4
038986,000205: 36,2644 35610 07722 2DEC 4.5419476 E-4 B11
038987,000206: 36,2646 63772 63276 2DEC -1.4317675 E-6 B18
038988,000207:
038989,000208: 36,2650 06006 TC INTPRET
038990,000209: 36,2651 77615 DAD
038991,000210: 36,2652 01352 RTED1
038992,000211: 36,2653 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
038993,000212: 36,2654 74657 RTE373
038994,000213: 36,2655 77745 RTE372 DLOAD # X(T2),=X(T2)
038995,000214: 36,2656 03726 X(T2)
038996,000215: 36,2657 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
|
|
Page 894
|
038998,000217: 36,2660 03726 X(T2)
038999,000218: 36,2661 53575 VLOAD UNIT
039000,000219: 36,2662 03656 R(T2)/ # B58
039001,000220: 36,2663 36152 STCALL ALPHAV
039002,000221: 36,2664 26505 GETERAD
039003,000222: 36,2665 77615 DAD
039004,000223: 36,2666 33634 E3RTE
039005,000224: 36,2667 45206 PUSH DSU # RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
039006,000225: 36,2670 03636 RCON
039007,000226: 36,2671 45246 ABS DSU
039008,000227: 36,2672 33600 EPC2RTE
039009,000228: 36,2673 52040 BMN GOTO
039010,000229: 36,2674 74676 RTE374
039011,000230: 36,2675 74703 RTE375
039012,000231: 36,2676 51545 RTE374 DLOAD ABS
039013,000232: 36,2677 00001 00D
039014,000233: 36,2700 50025 DSU BMN
039015,000234: 36,2701 33602 EPC3RTE
039016,000235: 36,2702 74753 P37E
039017,000236: 36,2703 43345 RTE375 DLOAD DAD
039018,000237: 36,2704 03730 NN1A
039019,000238: 36,2705 33522 1RTEB28
039020,000239: 36,2706 67240 BMN SLOAD
039021,000240: 36,2707 74713 RTE380
039022,000241: 36,2710 33562 OCT605
039023,000242: 36,2711 77650 GOTO
039024,000243: 36,2712 74776 RTEALRM # TOO MANY ITERATIONS
039025,000244: 36,2713 03730 RTE380 STORE NN1A
039026,000245: 36,2714 53025 DSU BZE
039027,000246: 36,2715 33546 M8RTEB28
039028,000247: 36,2716 74734 RTE385
039029,000248: 36,2717 45345 DLOAD DSU
039030,000249: 36,2720 00001 00D
039031,000250: 36,2721 03666 DRCON
039032,000251: 36,2722 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=Z1 PL06D
039033,000252: 36,2723 00047 X1
039034,000253: 36,2724 03670 RPRE'
039035,000254: 36,2725 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
039036,000255: 36,2726 03726 X(T2)
039037,000256: 36,2727 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
039038,000257: 36,2730 00001 00D
039039,000258: 36,2731 20201 0,1
039040,000259: 36,2732 77650 GOTO
039041,000260: 36,2733 74736 RTE390
039042,000261: 36,2734 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
039043,000262: 36,2735 00001 00D
039044,000263: 36,2736 14021 RTE390 STODL 16D # DX(T2) PL02D
039045,000264: 36,2737 77626 STADR
039046,000265: 36,2740 60141 STODL RCON # RCON=RCON,
039047,000266: 36,2741 77600 BOV
|
|
Page 895
|
039049,000268: 36,2742 74607 RTE360
039050,000269: 36,2743 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
039051,000270: 36,2744 03726 X(T2)
039052,000271: 36,2745 17670 STODL RPRE' # X(T2)PRI=X(T2)
039053,000272: 36,2746 00021 16D
039054,000273: 36,2747 77615 DAD
039055,000274: 36,2750 03726 X(T2)
039056,000275: 36,2751 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
039057,000276: 36,2752 74607 RTE360 # REITERATE
039058,000277: 36,2753 77624 P37E CALL # DISPLAY CONIC SOLUTION
039059,000278: 36,2754 75002 RTEVN
039060,000279: 36,2755 41345 RTE505 DLOAD DMP
039061,000280: 36,2756 03720 PCON
039062,000281: 36,2757 03754 BETA1
039063,000282: 36,2760 53021 BDSU BZE
039064,000283: 36,2761 03636 RCON
039065,000284: 36,2762 74770 RTE510
039066,000285: 36,2763 71240 BMN DLOAD
039067,000286: 36,2764 74770 RTE510
039068,000287: 36,2765 33502 1RTEB2
039069,000288: 36,2766 77650 GOTO # ENTRY NEAR APOGEE
039070,000289: 36,2767 74772 RTE515
039071,000290: 36,2770 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
039072,000291: 36,2771 33502 1RTEB2
039073,000292: 36,2772 37761 RTE515 STCALL PHI2
039074,000293: 36,2773 64541 PREC100 # PRECISION TRAJECTORY COMPUTATION
039075,000294: 36,2774 77654 RTE625 BZE
039076,000295: 36,2775 75030 P37G
039077,000296: 36,2776 77624 RTEALRM CALL
039078,000297: 36,2777 64262 P370ALRM
039079,000298: 36,3000 77776 EXIT
039080,000299: 36,3001 12466 TCF P37 # RECYCLE AFTER ALARM DISPLAY
039081,000300:
039082,000301: # RETURN TO EARTH DISPLAY SUBROUTINE
039083,000302:
039084,000303: 36,3002 45020 RTEVN STQ CALL
039085,000304: 36,3003 03763 VNSTORE
039086,000305: 36,3004 64316 RTEDISP # DISPLAY PREPARATION
039087,000306: 36,3005 77776 EXIT
039088,000307: 36,3006 33250 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
039089,000308: 36,3007 03221 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
039090,000309: 36,3010 35015 CAF FOUR
039091,000310: 36,3011 03215 TCR 37BLANK +1
039092,000311: 36,3012 13017 TCF +5
039093,000312: 36,3013 12466 TCF P37 # RECYCLE
039094,000313: 36,3014 33251 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
039095,000314: 36,3015 03235 TCR P370GOF
039096,000315: 36,3016 12466 TCF P37 # RECYCLE
039097,000316: 36,3017 33252 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
039098,000317: 36,3020 03211 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
|
|
Page 896
|
039100,000319: 36,3021 12466 TCF P37 # RECYCLE
039101,000320: 36,3022 33253 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
039102,000321: 36,3023 03235 TCR P370GOF
039103,000322: 36,3024 12466 TCF P37 # RECYCLE
039104,000323: 36,3025 06006 TCR INTPRET
039105,000324: 36,3026 77650 GOTO
039106,000325: 36,3027 03763 VNSTORE
039107,000326:
039108,000327: # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039109,000328:
039110,000329: 36,3030 77624 P37G CALL
039111,000330: 36,3031 75002 RTEVN
039112,000331: 36,3032 77776 EXIT
039113,000332: 36,3033 35023 P37N CAF SEVEN
039114,000333: 36,3034 55131 TS OPTION1
039115,000334: 36,3035 35017 CAF ONE
039116,000335: 36,3036 55132 TS OPTION2
039117,000336: 36,3037 33247 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
039118,000337: 36,3040 03235 TCR P370GOF
039119,000338: 36,3041 13037 TCF -2 # RECYCLE
039120,000339: 36,3042 06006 TC INTPRET # PROCEED
039121,000340: 36,3043 67201 SETPD SLOAD
039122,000341: 36,3044 00001 00D
039123,000342: 36,3045 01133 OPTION2
039124,000343: 36,3046 53025 DSU BZE
039125,000344: 36,3047 33514 1RTEB13
039126,000345: 36,3050 75057 P37Q
039127,000346: 36,3051 60335 SLOAD NORM # SPS
039128,000347: 36,3052 00111 EMDOT
039129,000348: 36,3053 00047 X1
039130,000349: 36,3054 52125 PDDL GOTO
039131,000350: 36,3055 33552 VCSPS
039132,000351: 36,3056 75070 P37T
039133,000352: 36,3057 43145 P37Q DLOAD BON # RCS
039134,000353: 36,3060 33556 MDOTRCS
039135,000354: 36,3061 00700 NJETSFLG
039136,000355: 36,3062 75064 P37R
039137,000356: 36,3063 77752 SL1
039138,000357: 36,3064 77752 P37R SL1
039139,000358: 36,3065 65301 NORM PDDL
039140,000359: 36,3066 00047 X1
039141,000360: 36,3067 33554 VCRCS
039142,000361: 36,3070 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
039143,000362: 36,3071 03706 DV
039144,000363: 36,3072 77776 EXIT
039145,000364: 36,3073 07171 TC POLY
039146,000365: 36,3074 00001 DEC 1 B-14
039147,000366: 36,3075 00001 05070 2DEC 5.66240507 E-4 B-3
039148,000367: 36,3077 17527 36700 2DEC 9.79487897 E-1 B-1
|
|
Page 897
|
039150,000369: 36,3101 47114 70670 2DEC -.388281955 B1
039151,000370: 36,3103 06006 TC INTPRET
039152,000371: 36,3104 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
039153,000372: 36,3105 03076 WEIGHT/G
039154,000373: 36,3106 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
039155,000374: 36,3107 41257 SL* DMP
039156,000375: 36,3110 20165 0 -12D,1
039157,000376: 36,3111 33560 CSUBT
039158,000377: 36,3112 77621 BDSU
039159,000378: 36,3113 03716 T1
039160,000379: 36,3114 03413 STORE TIG # TIG=T1-CT*DTB B28
039161,000380: 36,3115 77776 EXIT
039162,000381: 36,3116 33246 CAF V6N33RTE # DISPLAY BIASED TIG
039163,000382: 36,3117 03235 TCR P370GOF
039164,000383: 36,3120 13116 TCF -2
039165,000384: 36,3121 35021 CAF ZERO
039166,000385: 36,3122 55125 TS VHFCNT
039167,000386: 36,3123 55126 TS TRKMKCNT
039168,000387: 36,3124 06006 TC INTPRET
039169,000388: 36,3125 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
039170,000389: 36,3126 63700 RTENCK1
039171,000390: 36,3127 53575 VLOAD UNIT # PL00D
039172,000391: 36,3130 03656 R(T2)/
039173,000392: 36,3131 74315 PDVL VXSC # UR2 B1 PL06D
039174,000393: 36,3132 03740 UR1/
039175,000394: 36,3133 33564 MCOS7.5
039176,000395: 36,3134 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
039177,000396: 36,3135 03746 UH/
039178,000397: 36,3136 33566 MSIN7.5
039179,000398: 36,3137 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
039180,000399: 36,3140 50015 DAD BMN
039181,000400: 36,3141 33570 MCOS22.5
039182,000401: 36,3142 75167 P37W
039183,000402: 36,3143 50375 VLOAD DOT # K/ . UR2 GR COS22.5
039184,000403: 36,3144 03746 UH/
039185,000404: 36,3145 03656 R(T2)/
039186,000405: 36,3146 71240 BMN DLOAD
039187,000406: 36,3147 75153 P37U
039188,000407: 36,3150 33572 THETA165
039189,000408: 36,3151 52006 PUSH GOTO
039190,000409: 36,3152 75155 P37V
039191,000410: 36,3153 41545 P37U DLOAD PUSH
039192,000411: 36,3154 33574 THETA210
039193,000412: 36,3155 77756 P37V SIN
039194,000413: 36,3156 16732 STODL SNTH
039195,000414: 36,3157 43146 COS CLEAR
039196,000415: 36,3160 03666 RVSW
039197,000416: 36,3161 26734 STOVL CSTH
039198,000417: 36,3162 03640 R(T1)/
|
|
Page 898
|
039200,000419: 36,3163 26657 STOVL RVEC
039201,000420: 36,3164 03700 V2(T1)/
039202,000421: 36,3165 36746 STCALL VVEC
039203,000422: 36,3166 24744 TIMETHET
039204,000423: 36,3167 43014 P37W CLEAR CLEAR
039205,000424: 36,3170 01267 XDELVFLG
039206,000425: 36,3171 03665 NORMSW
039207,000426: 36,3172 77214 SET VLOAD
039208,000427: 36,3173 01071 FINALFLG
039209,000428: 36,3174 77626 STADR
039210,000429: 36,3175 60362 STODL RTARG
039211,000430: 36,3176 00037 T
039212,000431: 36,3177 77615 DAD
039213,000432: 36,3200 03716 T1
039214,000433: 36,3201 27656 STOVL TPASS4
039215,000434: 36,3202 03700 V2(T1)/
039216,000435: 36,3203 77651 VSU
039217,000436: 36,3204 03672 V(T1)/
039218,000437: 36,3205 37646 STCALL DELVSIN
039219,000438: 36,3206 73002 VN1645
039220,000439: 36,3207 77650 GOTO
039221,000440: 36,3210 75167 P37W
039222,000441:
039223,000442: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
039224,000443:
039225,000444: 36,3211 00006 P37GFRB1 EXTEND
039226,000445: 36,3212 23762 QXCH SPRTEX
039227,000446: 36,3213 03221 TCR P370GOFR
039228,000447: 36,3214 35017 37BLANK CAF ONE
039229,000448: 36,3215 05526 TCR BLANKET
039230,000449: 36,3216 15217 TCF ENDOFJOB
039231,000450: 36,3217 01762 TC SPRTEX # RECYCLE
039232,000451: 36,3220 13244 TCF P37PROC # PROCEED
039233,000452:
039234,000453: # SUBROUTINE TO GO TO GOFLASHR
039235,000454:
039236,000455: 36,3221 00006 P370GOFR EXTEND
039237,000456: 36,3222 23733 QXCH RTENCKEX
039238,000457: 36,3223 04662 TCR BANKCALL
039239,000458: 36,3224 21057 CADR GOFLASHR
039240,000459: 36,3225 14106 TCF GOTOPOOH # TERMINATE
039241,000460: 36,3226 13231 TCF +3
039242,000461: 36,3227 13233 TCF +4
039243,000462: 36,3230 01733 TC RTENCKEX # IMMEDIATE RETURN
039244,000463: 36,3231 51733 INDEX RTENCKEX # PROCEED
039245,000464: 36,3232 10004 TCF 0 +4
039246,000465: 36,3233 51733 INDEX RTENCKEX # RECYCLE
039247,000466: 36,3234 10003 TCF 0 +3
039248,000467:
039249,000468: # SUBROUTINE TO GO TO GOFLASH
039250,000469:
|
|
Page 899
|
039252,000471: 36,3235 00006 P370GOF EXTEND
039253,000472: 36,3236 23762 QXCH SPRTEX
039254,000473: 36,3237 04662 TCR BANKCALL
039255,000474: 36,3240 20720 CADR GOFLASH
039256,000475: 36,3241 14106 TCF GOTOPOOH
039257,000476: 36,3242 13244 TCF +2
039258,000477: 36,3243 01762 TC SPRTEX
039259,000478: 36,3244 51762 P37PROC INDEX SPRTEX
039260,000479: 36,3245 10001 TCF 0 +1
039261,000480: 36,3246 01441 V6N33RTE VN 0633
039262,000481: 36,3247 01006 V4N06RTE VN 0406
039263,000482: 36,3250 01475 V6N61RTE VN 0661
039264,000483: 36,3251 01447 V6N39RTE VN 0639
039265,000484: 36,3252 01474 V6N60RTE VN 0660
039266,000485: 36,3253 01521 V6N81RTE VN 0681
039267,000486: 32,2262 BANK 32
039268,000487: 32,2000 SETLOC RTE
039269,000488: 32,2000 BANK
039270,000489: 32,2262 COUNT 32/RTE
039271,000490:
|
|
Page 900
|
039273,000492: # ALARM DISPLAY SUBROUTINE
039274,000493:
039275,000494: 32,2262 77420 P370ALRM STQ EXIT
039276,000495: 32,2263 03762 SPRTEX
039277,000496: 32,2264 30154 CA MPAC
039278,000497: 32,2265 05764 TC VARALARM
039279,000498: 32,2266 32276 CAF V5N09RTE
039280,000499: 32,2267 04662 TC BANKCALL
039281,000500: 32,2270 20720 CADR GOFLASH
039282,000501: 32,2271 14106 TCF GOTOPOOH
039283,000502: 32,2272 12266 TCF -4
039284,000503: 32,2273 06006 TC INTPRET
039285,000504: 32,2274 77650 GOTO
039286,000505: 32,2275 03762 SPRTEX
039287,000506: 32,2276 01211 V5N09RTE VN 0509
039288,000507:
|
|
Page 901
|
039290,000509: # TIME RADIUS CALLING SUBROUTINE
039291,000510:
039292,000511: # INPUT
039293,000512: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
039294,000513: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
039295,000514: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
039296,000515: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2=EARTH SP B14
039297,000516:
039298,000517: # OUTPUT
039299,000518: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
039300,000519: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
039301,000520: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
039302,000521:
039303,000522: 32,2277 43020 TMRAD100 STQ CLEAR
039304,000523: 32,2300 03733 RTENCKEX
039305,000524: 32,2301 03666 RVSW
039306,000525: 32,2302 67164 AXC,2 SXA,2
039307,000526: 32,2303 20000 OCT 20000
039308,000527: 32,2304 02756 SGNRDOT
039309,000528: 32,2305 45140 LXC,1 CALL
039310,000529: 32,2306 03734 CONICX1
039311,000530: 32,2307 25556 TIMERAD
039312,000531: 32,2310 27710 STOVL V(T2)/ # PL00D
039313,000532: 32,2311 77626 STADR
039314,000533: 32,2312 60121 STODL R(T2)/
039315,000534: 32,2313 00037 T
039316,000535: 32,2314 37724 STCALL T12
039317,000536: 32,2315 03733 RTENCKEX
039318,000537:
|
|
Page 902
|
039320,000539: # DISPLAY CALCULATION SUBROUTINE
039321,000540:
039322,000541: # DESCRIPTION
039323,000542: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
039324,000543: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
039325,000544:
039326,000545: # CALLING SEQUENCE
039327,000546: # L CALL
039328,000547: # L+1 RTEDISP
039329,000548:
039330,000549: # SUBROUTINES CALLED
039331,000550: # TMRAD100
039332,000551: # AUGEKUGL
039333,000552: # LAT-LONG
039334,000553:
039335,000554: # ERASABLE INITIALIZATION REQUIRED
039336,000555: # PUSHLIST
039337,000556: # NONE
039338,000557: # MPAC
039339,000558: # NONE
039340,000559: # OTHER
039341,000560: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
039342,000561: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
039343,000562: # T2 FINAL TIME DP B28 CS
039344,000563: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
039345,000564: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
039346,000565: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039347,000566: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039348,000567:
039349,000568: # OUTPUT
039350,000569: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
039351,000570: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
039352,000571: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
039353,000572: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
039354,000573: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
039355,000574: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
039356,000575:
039357,000576: 32,2316 77220 RTEDISP STQ VLOAD # DISPLAY
039358,000577: 32,2317 03762 SPRTEX
039359,000578: 32,2320 03710 V(T2)/
039360,000579: 32,2321 65256 UNIT PDDL
039361,000580: 32,2322 00045 36D
039362,000581: 32,2323 17767 STODL VPRED # V(T2)
039363,000582: 32,2324 03736 T2
039364,000583: 32,2325 77625 DSU
039365,000584: 32,2326 03413 SPRTETIG
039366,000585: 32,2327 26641 STOVL T3TOT4 # T21
039367,000586: 32,2330 03656 R(T2)/
039368,000587: 32,2331 50256 UNIT DOT
039369,000588: 32,2332 77752 SL1
039370,000589:
|
|
Page 903
|
039372,000591: 32,2333 44326 ARCCOS BDSU
039373,000592: 32,2334 33502 1RTEB2
039374,000593: 32,2335 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
039375,000594: 32,2336 03700 V2(T1)/
039376,000595: 32,2337 41451 VSU PUSH
039377,000596: 32,2340 03672 V(T1)/
039378,000597: 32,2341 57441 DOT DCOMP
039379,000598: 32,2342 03740 UR1/
039380,000599: 32,2343 41515 PDVL PUSH
039381,000600: 32,2344 63345 DLOAD PDVL
039382,000601: 32,2345 33524 ZERORTE
039383,000602: 32,2346 55441 DOT VDEF
039384,000603: 32,2347 03746 UH/
039385,000604: 32,2350 77772 VSL1
039386,000605: 32,2351 17405 STODL DELVLVC
039387,000606: 32,2352 03405 DELVLVC
039388,000607: 32,2353 57414 BOFF DCOMP
039389,000608: 32,2354 02741 RETROFLG
039390,000609: 32,2355 64357 RTD18
039391,000610: 32,2356 03405 STORE DELVLVC # NEGATE X COMPONENT, RETROGRADE
039392,000611: 32,2357 51575 RTD18 VLOAD ABVAL
039393,000612: 32,2360 03405 DELVLVC
039394,000613: 32,2361 27773 STOVL VGDISP
039395,000614: 32,2362 03656 R(T2)/
039396,000615: 32,2363 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
039397,000616: 32,2364 45246 ABVAL DSU
039398,000617: 32,2365 33550 30480RTE
039399,000618: 32,2366 26760 STOVL RDESIRED
039400,000619: 32,2367 03710 V(T2)/
039401,000620: 32,2370 36746 STCALL VVEC
039402,000621: 32,2371 64277 TMRAD100 # R3,V3,T23 FROM TIMERAD
039403,000622: 32,2372 53575 VLOAD UNIT
039404,000623: 32,2373 03656 R(T2)/
039405,000624: 32,2374 53515 PDVL UNIT # UR3 PL06D
039406,000625: 32,2375 03710 V(T2)/
039407,000626: 32,2376 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
039408,000627: 32,2377 65336 ARCSIN PDDL # V(T3) PL02D
039409,000628: 32,2400 00045 36D
039410,000629: 32,2401 51525 PDDL ABS
039411,000630: 32,2402 45006 PUSH CALL # /GAMMAE/ PL04D
039412,000631: 32,2403 64075 AUGEKUGL # PHIE PL06D
039413,000632: 32,2404 43215 DAD DAD
039414,000633: 32,2405 03724 T12 # T23
039415,000634: 32,2406 03736 T2
039416,000635: 32,2407 00003 STORE 02D # T(LS)=T2&T23&TE
039417,000636: 32,2410 53135 SLOAD BZE
039418,000637: 32,2411 03377 P37RANGE
039419,000638: 32,2412 64414 RTD22
039420,000639: 32,2413 00005 STORE 04D # OVERRIDE RANGE (PCR 261)
039421,000640: 32,2414 73545 RTD22 DLOAD SIN
039422,000641:
|
|
Page 904
|
039424,000643: 32,2415 00005 04D
039425,000644: 32,2416 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
039426,000645: 32,2417 77746 COS
039427,000646: 32,2420 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
039428,000647: 32,2421 53575 VLOAD UNIT
039429,000648: 32,2422 03656 R(T2)/
039430,000649: 32,2423 41406 PUSH PUSH
039431,000650: 32,2424 53515 PDVL UNIT # PL22D
039432,000651: 32,2425 03710 V(T2)/
039433,000652: 32,2426 47315 PDVL VXV
039434,000653: 32,2427 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
039435,000654: 32,2430 63361 VXSC PDVL
039436,000655: 32,2431 03403 LNG(SPL)
039437,000656: 32,2432 53361 VXSC VAD # PL04D
039438,000657: 32,2433 03401 LAT(SPL)
039439,000658: 32,2434 43014 CLEAR CLEAR # T(LS) IN MPAC
039440,000659: 32,2435 00662 ERADFLAG
039441,000660: 32,2436 01663 LUNAFLAG
039442,000661: 32,2437 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
039443,000662: 32,2440 77624 CALL
039444,000663: 32,2441 26370 LAT-LONG
039445,000664: 32,2442 77745 DLOAD
039446,000665: 32,2443 01104 LAT
039447,000666: 32,2444 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
039448,000667: 32,2445 01106 LONG
039449,000668: 32,2446 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
039450,000669: 32,2447 03762 SPRTEX
039451,000670: 32,2450 COUNT* $$/RTE
039452,000671:
|
|
Page 905
|
039454,000673: # INITIAL VECTOR SUBROUTINE
039455,000674:
039456,000675: # DESCRIPTION
039457,000676: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
039458,000677:
039459,000678: # CALLING SEQUENCE
039460,000679: # L CALL
039461,000680: # L+1 INVC100
039462,000681:
039463,000682: # NORMAL EXIT MODE
039464,000683: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
039465,000684:
039466,000685: # ALARM EXIT MODE
039467,000686: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
039468,000687:
039469,000688: # SUBROUTINES CALLED
039470,000689: # CSMPREC
039471,000690:
039472,000691: # ERASABLE INITIALIZATION REQUIRED
039473,000692: # PUSHLIST
039474,000693: # NONE
039475,000694: # MPAC
039476,000695: # NONE
039477,000696: # OTHER
039478,000697: # SPRTETIG TIME OF IGNITION DP B28 CS
039479,000698: # CSM STATE VECTOR
039480,000699:
039481,000700: # OUTPUT
039482,000701: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
039483,000702: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
039484,000703: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
039485,000704: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039486,000705: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039487,000706: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
039488,000707:
039489,000708: 32,2450 71220 INVC100 STQ DLOAD
039490,000709: 32,2451 03762 SPRTEX
039491,000710: 32,2452 03413 SPRTETIG
039492,000711: 32,2453 34041 STCALL TDEC1
039493,000712: 32,2454 27071 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
039494,000713: 32,2455 67175 VLOAD SXA,2
039495,000714: 32,2456 00001 RATT
039496,000715: 32,2457 03755 P(T1)
039497,000716: 32,2460 27640 STOVL R(T1)/
039498,000717: 32,2461 00007 VATT
039499,000718: 32,2462 17672 STODL V(T1)/
039500,000719: 32,2463 00015 TAT
039501,000720: 32,2464 03716 STORE T1
039502,000721: 32,2465 53135 SLOAD BZE
039503,000722: 32,2466 03756 P(T1)
|
|
Page 906
|
039505,000724: 32,2467 64473 INVC109
039506,000725: 32,2470 52135 INVC107 SLOAD GOTO
039507,000726: 32,2471 33563 OCT612
039508,000727: 32,2472 74776 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
039509,000728: 32,2473 53575 INVC109 VLOAD UNIT
039510,000729: 32,2474 03640 R(T1)/
039511,000730: 32,2475 17740 STODL UR1/ # UR1/ B1
039512,000731: 32,2476 00045 36D
039513,000732: 32,2477 27646 STOVL R(T1) # R(T1) B29
039514,000733: 32,2500 03672 V(T1)/
039515,000734: 32,2501 77656 UNIT
039516,000735: 32,2502 03746 STORE UV1/
039517,000736: 32,2503 72441 DOT SL1
039518,000737: 32,2504 03740 UR1/
039519,000738: 32,2505 03757 STORE CFPA # CFPA B1
039520,000739: 32,2506 45246 ABS DSU
039521,000740: 32,2507 33576 EPC1RTE
039522,000741: 32,2510 71240 BMN DLOAD
039523,000742: 32,2511 64520 INVC115 # NOT NEAR RECTILINEAR
039524,000743: 32,2512 33502 1RTEB2
039525,000744: 32,2513 41525 PDDL PUSH
039526,000745: 32,2514 33524 ZERORTE
039527,000746: 32,2515 41466 VDEF PUSH # N/ = (0,0,1)
039528,000747: 32,2516 77650 GOTO
039529,000748: 32,2517 64524 INVC120
039530,000749: 32,2520 47375 INVC115 VLOAD VXV
039531,000750: 32,2521 03740 UR1/
039532,000751: 32,2522 03746 UV1/
039533,000752: 32,2523 77606 PUSH # N/ = UR X UV B2
039534,000753: 32,2524 71214 INVC120 CLEAR DLOAD
039535,000754: 32,2525 02661 RETROFLG
039536,000755: 32,2526 51006 PUSH BPL
039537,000756: 32,2527 64533 INVC125
039538,000757: 32,2530 57575 VLOAD VCOMP # RETROGRADE ORBIT
039539,000758: 32,2531 43006 PUSH SET
039540,000759: 32,2532 02461 RETROFLG
039541,000760: 32,2533 77775 INVC125 VLOAD
039542,000761: 32,2534 53435 VXV UNIT
039543,000762: 32,2535 03740 UR1/
039544,000763: 32,2536 03746 STORE UH/ # UH/ B1
039545,000764: 32,2537 77650 GOTO
039546,000765: 32,2540 03762 SPRTEX
039547,000766:
|
|
Page 907
|
039549,000768: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
039550,000769:
039551,000770: # DESCRIPTION
039552,000771: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
039553,000772: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
039554,000773: # AS POSSIBLE.
039555,000774:
039556,000775: # CALLING SEQUENCE
039557,000776: # L CALL
039558,000777: # L+1 PREC100
039559,000778:
039560,000779: # NORMAL EXIT MODE
039561,000780: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
039562,000781:
039563,000782: # ALARM EXIT MODE
039564,000783: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
039565,000784: # OCTAL 605 FOR EXCESS ITERATIONS
039566,000785: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
039567,000786:
039568,000787: # SUBROUTINES CALLED
039569,000788: # INTSTALL
039570,000789: # RTENCK2
039571,000790: # RTENCK3
039572,000791: # TIMERAD
039573,000792: # PARAM
039574,000793: # V2T100
039575,000794:
039576,000795: # ERASABLE INITIALIZATION REQUIRED
039577,000796: # PUSHLIST
039578,000797: # NONE
039579,000798: # MPAC
039580,000799: # NONE
039581,000800: # OTHER
039582,000801: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29/B27 METERS
039583,000802: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039584,000803: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039585,000804: # T1 INITIAL VECTOR TIME DP B28 CS
039586,000805: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
039587,000806: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
039588,000807: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
039589,000808: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
039590,000809: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
039591,000810: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
039592,000811: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
039593,000812: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
039594,000813: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039595,000814: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039596,000815: # BETA1 1+X(T2)**2 DP B1
039597,000816: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE, +1 APOGEE
039598,000817:
|
|
Page 908
|
039600,000819:
039601,000820: # OUTPUT
039602,000821: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
039603,000822: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
039604,000823: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
039605,000824: # T2 FINAL TIME DP B28 CENTISECONDS
039606,000825:
039607,000826: # DEBRIS
039608,000827: # RD FINAL R DESIRED DP B29/B27 METERS
039609,000828: # R/APRE R/A DP B6
039610,000829: # P/RPRE P/R DP B4
039611,000830: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
039612,000831: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
039613,000832: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
039614,000833: # RCON FINAL RADIUS DP B29/B27 METERS
039615,000834: # DRCON DELTA RCON DP B29/B27 METERS
039616,000835:
039617,000836: 32,2541 71220 PREC100 STQ DLOAD
039618,000837: 32,2542 03762 SPRTEX
039619,000838: 32,2543 33532 10RTE
039620,000839: 32,2544 17730 STODL NN1A
039621,000840: 32,2545 03636 RCON
039622,000841: 32,2546 03664 STORE RD
039623,000842: 32,2547 77745 PREC120 DLOAD
039624,000843: 32,2550 33542 2RTEB1
039625,000844: 32,2551 17650 STODL DT21PR # DT21PR = POSMAX
039626,000845: 32,2552 33530 M15RTE
039627,000846: 32,2553 37732 STCALL NN2
039628,000847: 32,2554 63726 RTENCK3
039629,000848: 32,2555 77624 PREC125 CALL
039630,000849: 32,2556 11637 PARAM
039631,000850: 32,2557 77745 DLOAD
039632,000851: 32,2560 02742 P
039633,000852: 32,2561 14033 STODL P/RPRE
039634,000853: 32,2562 02744 R1A
039635,000854: 32,2563 14035 STODL R/APRE
039636,000855: 32,2564 00041 R1
039637,000856: 32,2565 14031 STODL RPRE
039638,000857: 32,2566 03775 COGA
039639,000858: 32,2567 77661 SL
039640,000859: 32,2570 20206 5
039641,000860: 32,2571 03724 STORE X(T2)PRE
039642,000861: 32,2572 43276 DCOMP DAD
039643,000862: 32,2573 03726 X(T2)
039644,000863: 32,2574 45246 ABS DSU
039645,000864: 32,2575 33604 EPC4RTE
039646,000865: 32,2576 50000 BOV BMN
039647,000866: 32,2577 64601 PREC130
039648,000867: 32,2600 64770 PREC175
039649,000868:
039650,000869: # DESIRED REENTRY ANGLE NOT ACHIEVED
039651,000870:
|
|
Page 909
|
039653,000872: 32,2601 50145 PREC130 DLOAD BMN
039654,000873: 32,2602 03732 NN2
039655,000874: 32,2603 64607 PREC140
039656,000875: 32,2604 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
039657,000876: 32,2605 33562 OCT605 # EXIT WITH ALARM
039658,000877: 32,2606 65073 PRECX
039659,000878:
039660,000879: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
039661,000880:
039662,000881: 32,2607 53145 PREC140 DLOAD BZE
039663,000882: 32,2610 03730 NN1A
039664,000883: 32,2611 64647 PREC162
039665,000884: 32,2612 62545 PREC150 DLOAD SL2 # B2
039666,000885: 32,2613 00033 P/RPRE
039667,000886: 32,2614 72405 DMP SL1 # BETA2=BETA1*P/R B2 PL02
039668,000887: 32,2615 03754 BETA1
039669,000888: 32,2616 71206 PUSH DLOAD
039670,000889: 32,2617 00035 R/APRE
039671,000890: 32,2620 41212 SL4 DMP
039672,000891: 32,2621 00001 00D
039673,000892: 32,2622 50021 BDSU BMN # BETA3=1-BETA2*R/A
039674,000893: 32,2623 33506 1RTEB4
039675,000894: 32,2624 64637 PREC160
039676,000895: 32,2625 75512 PREC155 SL2 SQRT
039677,000896: 32,2626 44205 DMP BDSU
039678,000897: 32,2627 03761 PHI2
039679,000898: 32,2630 33504 1RTEB3
039680,000899: 32,2631 65301 NORM PDDL
039681,000900: 32,2632 00047 X1
039682,000901: 32,2633 56342 SR1 DDV # BETA4=BETA2/(1-PHI2*SQRT(BETA3))
039683,000902: 32,2634 52057 SL* GOTO # B1
039684,000903: 32,2635 20200 0 -1,1
039685,000904: 32,2636 64655 PREC165
039686,000905: 32,2637 60345 PREC160 DLOAD NORM
039687,000906: 32,2640 00035 R/APRE
039688,000907: 32,2641 00047 X1
039689,000908: 32,2642 53665 BDDV SL* # B1
039690,000909: 32,2643 33500 1RTEB1
039691,000910: 32,2644 20173 0 -6,1
039692,000911: 32,2645 77650 GOTO
039693,000912: 32,2646 64655 PREC165
039694,000913: 32,2647 60345 PREC162 DLOAD NORM
039695,000914: 32,2650 00031 RPRE
039696,000915: 32,2651 00047 X1
039697,000916: 32,2652 53665 BDDV SL* # BETA4=RD/RPRE B1
039698,000917: 32,2653 03664 RD
039699,000918: 32,2654 20200 0 -1,1
039700,000919: 32,2655 41401 PREC165 SETPD PUSH
039701,000920: 32,2656 00001 0
039702,000921: 32,2657 57425 DSU DCOMP
|
|
Page 910
|
039704,000923: 32,2660 33500 1RTEB1
039705,000924: 32,2661 03765 STORE BETA12
039706,000925: 32,2662 71240 BMN DLOAD
039707,000926: 32,2663 64674 PREC168
039708,000927: 32,2664 03724 X(T2)PRE
039709,000928: 32,2665 71240 BMN DLOAD
039710,000929: 32,2666 64672 PREC167
039711,000930: 32,2667 03765 BETA12
039712,000931: 32,2670 77676 DCOMP
039713,000932: 32,2671 03765 STORE BETA12
039714,000933: 32,2672 77745 PREC167 DLOAD
039715,000934: 32,2673 03765 BETA12
039716,000935: 32,2674 45246 PREC168 ABS DSU
039717,000936: 32,2675 33610 EPC6RTE
039718,000937: 32,2676 71240 BMN DLOAD
039719,000938: 32,2677 64770 PREC175
039720,000939: 32,2700 72405 DMP SL1
039721,000940: 32,2701 00031 RPRE
039722,000941: 32,2702 77606 PUSH # RF = NEW RADIUS
039723,000942: 32,2703 43345 PREC170 DLOAD DAD
039724,000943: 32,2704 03732 NN2
039725,000944: 32,2705 33522 1RTEB28
039726,000945: 32,2706 03732 STORE NN2
039727,000946: 32,2707 43175 VLOAD SET
039728,000947: 32,2710 03656 R(T2)/
039729,000948: 32,2711 03466 RVSW
039730,000949: 32,2712 26657 STOVL RVEC
039731,000950: 32,2713 03710 V(T2)/
039732,000951: 32,2714 77765 SIGN
039733,000952: 32,2715 03765 BETA12
039734,000953: 32,2716 16746 STODL VVEC
039735,000954: 32,2717 33500 1RTEB1
039736,000955: 32,2720 57565 SIGN DCOMP
039737,000956: 32,2721 03765 BETA12
039738,000957: 32,2722 71354 LXA,2 DLOAD
039739,000958: 32,2723 00154 MPAC
039740,000959: 32,2724 67140 LXC,1 SXA,2
039741,000960: 32,2725 03734 CONICX1
039742,000961: 32,2726 02756 SGNRDOT
039743,000962: 32,2727 36760 STCALL RDESIRED # COMPUTE DT12 (CORRECTION TO TIME OF
039744,000963: 32,2730 25556 TIMERAD # NEW RADIUS)
039745,000964: 32,2731 75345 DLOAD SIGN
039746,000965: 32,2732 00037 T
039747,000966: 32,2733 03765 BETA12
039748,000967: 32,2734 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
039749,000968: 32,2735 03650 DT21PR
039750,000969: 32,2736 00047 X1
039751,000970: 32,2737 53665 BDDV SL*
039752,000971: 32,2740 00001 00D
039753,000972: 32,2741 20176 0 -3,1
|
|
Page 911
|
039755,000974: 32,2742 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) B3 PL04D
039756,000975: 32,2743 64750 PREC172
039757,000976: 32,2744 65345 DLOAD PDDL # BETA14=1 B0 PL04D
039758,000977: 32,2745 33542 2RTEB1
039759,000978: 32,2746 77650 GOTO
039760,000979: 32,2747 64752 PREC173
039761,000980: 32,2750 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
039762,000981: 32,2751 33534 M.6RTE
039763,000982: 32,2752 45271 PREC173 DDV DSU
039764,000983: 32,2753 00003 02D
039765,000984: 32,2754 33504 1RTEB3
039766,000985: 32,2755 71240 BMN DLOAD
039767,000986: 32,2756 64762 PREC174
039768,000987: 32,2757 77605 DMP
039769,000988: 32,2760 03650 DT21PR
039770,000989: 32,2761 00001 STORE 00D # DT21=(BETA14)DT21PR B28
039771,000990: 32,2762 41545 PREC174 DLOAD PUSH
039772,000991: 32,2763 00001 00D
039773,000992: 32,2764 37650 STCALL DT21PR
039774,000993: 32,2765 63710 RTENCK2
039775,000994: 32,2766 77650 GOTO
039776,000995: 32,2767 64555 PREC125
039777,000996: 32,2770 45345 PREC175 DLOAD DSU
039778,000997: 32,2771 00031 RPRE
039779,000998: 32,2772 03664 RD
039780,000999: 32,2773 51406 PUSH ABS # RPRE-RD = RERR
039781,001000: 32,2774 50025 DSU BMN
039782,001001: 32,2775 33612 EPC7RTE
039783,001002: 32,2776 34703 PREC220
039784,001003:
039785,001004: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
039786,001005:
039787,001006: 32,2777 53145 DLOAD BZE
039788,001007: 32,3000 03730 NN1A
039789,001008: 32,3001 64604 PREC132 # TOO MANY ITERATIONS
039790,001009: 32,3002 53025 DSU BZE
039791,001010: 32,3003 33532 10RTE
039792,001011: 32,3004 65037 PREC207
039793,001012: 32,3005 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
039794,001013: 32,3006 03670 RPRE'
039795,001014: 32,3007 00031 RPRE # RPRE,-RPRE B29/B27
039796,001015: 32,3010 55301 NORM BDDV
039797,001016: 32,3011 00050 X2
039798,001017: 32,3012 03666 DRCON
039799,001018: 32,3013 41457 SL* PUSH # DRCON/(RPRE,-RPRE)=S B2
039800,001019: 32,3014 57600 0 -2,2
039801,001020: 32,3015 40015 DAD BOV # S GR +4 OR LS -4
039802,001021: 32,3016 33500 1RTEB1
039803,001022: 32,3017 65024 PREC205M
039804,001023: 32,3020 45246 ABS DSU
|
|
Page 912
|
039806,001025: 32,3021 33500 1RTEB1
039807,001026: 32,3022 77640 BMN
039808,001027: 32,3023 65027 PREC206
039809,001028: 32,3024 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
039810,001029: 32,3025 33542 2RTEB1
039811,001030: 32,3026 77725 PDDL # S=-4 B2
039812,001031: 32,3027 41345 PREC206 DLOAD DMP
039813,001032: 32,3030 77712 SL2
039814,001033: 32,3031 03666 STORE DRCON # DRCON=S(RERR) B29
039815,001034: 32,3032 77615 DAD
039816,001035: 32,3033 03636 RCON
039817,001036: 32,3034 03636 STORE RCON # RCON+DRCON=RCON
039818,001037: 32,3035 77650 GOTO
039819,001038: 32,3036 65056 PREC210
039820,001039: 32,3037 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
039821,001040: 32,3040 03664 RD
039822,001041: 32,3041 70501 NORM SR1
039823,001042: 32,3042 00047 X1
039824,001043: 32,3043 60325 PDDL NORM
039825,001044: 32,3044 00031 RPRE
039826,001045: 32,3045 00050 X2
039827,001046: 32,3046 55260 XSU,1 BDDV
039828,001047: 32,3047 00047 X2
039829,001048: 32,3050 77657 SR*
039830,001049: 32,3051 20600 0 -1,1
039831,001050: 32,3052 03636 STORE RCON # RD**2/RPRE=RCON
039832,001051: 32,3053 77625 DSU
039833,001052: 32,3054 03664 RD
039834,001053: 32,3055 03666 STORE DRCON # RCON-RD=DRCON
039835,001054: 32,3056 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
039836,001055: 32,3057 00031 RPRE
039837,001056: 32,3060 17670 STODL RPRE'
039838,001057: 32,3061 03730 NN1A
039839,001058: 32,3062 77625 DSU
039840,001059: 32,3063 33522 1RTEB28
039841,001060: 32,3064 37730 STCALL NN1A
039842,001061: 32,3065 65075 V2T100
039843,001062: 32,3066 52030 BHIZ GOTO
039844,001063: 32,3067 64547 PREC120
039845,001064: 32,3070 65073 PRECX
039846,001065:
039847,001066: # DESIRED RADIUS ACHIEVED
039848,001067:
039849,001068: 16,2000 SETLOC RTE2
039850,001069: 16,2000 BANK
039851,001070: 16,2703 45345 PREC220 DLOAD DSU
039852,001071: 16,2704 03726 X(T2)
039853,001072: 16,2705 03724 X(T2)PRE
039854,001073: 16,2706 45246 ABS DSU
039855,001074: 16,2707 34716 EPC8RTE
|
|
Page 913
|
039857,001076: 16,2710 67240 BMN SLOAD
039858,001077: 16,2711 65071 PREC225
039859,001078: 16,2712 34720 OCT613
039860,001079: 16,2713 77650 GOTO
039861,001080: 16,2714 65073 PRECX # IF REENTRY ANGLE OUT OF LIMITS
039862,001081:
039863,001082: 16,2715 00040 30447 EPC8RTE 2DEC .002
039864,001083:
039865,001084: 16,2717 00613 OCT613 OCT 613
039866,001085:
039867,001086: # DESIRED FINAL ANGLE HAS BEEN REACHED
039868,001087:
039869,001088: 32,2000 SETLOC RTE
039870,001089: 32,2000 BANK
039871,001090: 32,3071 77745 PREC225 DLOAD
039872,001091: 32,3072 33524 ZERORTE
039873,001092: 32,3073 77650 PRECX GOTO
039874,001093: 32,3074 03762 SPRTEX
039875,001094:
|
|
Page 914
|
039877,001096: # INTEGRATION CALLING SUBROUTINE
039878,001097:
039879,001098: # DESCRIPTION
039880,001099: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
039881,001100: # RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
039882,001101: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
039883,001102:
039884,001103: # RTENCK1 (CONIC INTEGRATION)
039885,001104:
039886,001105: # CALLING SEQUENCE
039887,001106: # L CALL
039888,001107: # L+1 RTENCK1
039889,001108:
039890,001109: # ERASABLE INITIALIZATION REQUIRED
039891,001110: # SAME AS FOR THE RTENCK3 ENTRANCE
039892,001111:
039893,001112: # RTENCK2 (PRECISION INTEGRATION)
039894,001113:
039895,001114: # CALLING SEQUENCE
039896,001115: # L CALL
039897,001116: # L+1 RTENCK2
039898,001117:
039899,001118: # ERASABLE INITIALIZATION REQUIRED
039900,001119: # PUSHLIST
039901,001120: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
039902,001121: # OTHER
039903,001122: # R(T2)/ FINAL POSITION VECTOR VECTOR .B29 METERS
039904,001123: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
039905,001124: # T2 FINAL TIME DP B28 CS
039906,001125:
039907,001126: # RTENCK3 (PRECISION INTEGRATION)
039908,001127:
039909,001128: # CALLING SEQUENCE
039910,001129: # L CALL
039911,001130: # L+1 RTENCK3
039912,001131:
039913,001132: # ERASABLE INITIALIZATION REQUIRED
039914,001133: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
039915,001134: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
039916,001135: # T1 INITIAL VECTOR TIME DP B28 CS
039917,001136: # T2 FINAL TIME DP B28 CS
039918,001137:
039919,001138: # EXIT MODE
039920,001139: # AT L+2 OF CALLING SEQUENCE
039921,001140:
039922,001141: # SUBROUTINES CALLED
039923,001142: # INTSTALL
039924,001143: # INTEGRVS
039925,001144:
039926,001145: # OUTPUT
039927,001146: # PUSHLIST
|
|
Page 915
|
039929,001148: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
039930,001149: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
039931,001150: # MPAC
039932,001151: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
039933,001152: # OTHER
039934,001153: # R(T2)/ AS IN PUSHLIST
039935,001154: # V(T2)/ AS IN MPAC
039936,001155: # T2 FINAL TIME DP B28 CS
039937,001156:
039938,001157: 31,2000 SETLOC RTE3
039939,001158: 31,2000 BANK
039940,001159: 31,3700 45020 RTENCK1 STQ CALL
039941,001160: 31,3701 03733 RTENCKEX
039942,001161: 31,3702 27442 INTSTALL
039943,001162: 31,3703 43175 VLOAD SET
039944,001163: 31,3704 03640 R(T1)/
039945,001164: 31,3705 01473 INTYPFLG
039946,001165: 31,3706 77650 GOTO
039947,001166: 31,3707 63734 RTENCK3B
039948,001167:
039949,001168: 31,3710 45020 RTENCK2 STQ CALL
039950,001169: 31,3711 03733 RTENCKEX
039951,001170: 31,3712 27442 INTSTALL
039952,001171: 31,3713 77214 CLEAR VLOAD
039953,001172: 31,3714 01673 INTYPFLG
039954,001173: 31,3715 03656 R(T2)/
039955,001174: 31,3716 25535 STOVL RCV
039956,001175: 31,3717 03710 V(T2)/
039957,001176: 31,3720 15543 STODL VCV
039958,001177: 31,3721 03736 T2
039959,001178: 31,3722 01517 STORE TET
039960,001179: 31,3723 77615 DAD
039961,001180: 31,3724 77650 GOTO
039962,001181: 31,3725 63742 RTENCK3D
039963,001182:
039964,001183: 31,3726 45020 RTENCK3 STQ CALL
039965,001184: 31,3727 03733 RTENCKEX
039966,001185: 31,3730 27442 INTSTALL
039967,001186: 31,3731 43175 RTENCK3A VLOAD CLEAR
039968,001187: 31,3732 03640 R(T1)/
039969,001188: 31,3733 01673 INTYPFLG
039970,001189: 31,3734 25535 RTENCK3B STOVL RCV
039971,001190: 31,3735 03700 V2(T1)/
039972,001191: 31,3736 15543 STODL VCV
039973,001192: 31,3737 03716 T1
039974,001193: 31,3740 15517 STODL TET
039975,001194: 31,3741 03736 T2
|
|
Page 916
|
039977,001196: 31,3742 00041 RTENCK3D STORE TDEC1
039978,001197: 31,3743 45014 CLEAR CALL
039979,001198: 31,3744 00263 MOONFLAG
039980,001199: 31,3745 27135 INTEGRVS
039981,001200: 31,3746 77775 VLOAD
039982,001201: 31,3747 00001 RATT
039983,001202: 31,3750 03656 STORE R(T2)/
039984,001203: 31,3751 70125 PDDL LXC,1
039985,001204: 31,3752 00015 TAT
039986,001205: 31,3753 03734 CONICX1
039987,001206: 31,3754 27736 STOVL T2
039988,001207: 31,3755 00007 VATT
039989,001208: 31,3756 03710 STORE V(T2)/
039990,001209: 31,3757 77650 GOTO
039991,001210: 31,3760 03733 RTENCKEX
039992,001211: 32,2000 SETLOC RTE
039993,001212: 32,2000 BANK
039994,001213:
|
|
Page 917
|
039996,001215: # V2(T1) COMPUTATION SUBROUTINE
039997,001216:
039998,001217: # DESCRIPTION
039999,001218: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040000,001219: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
040001,001220: # (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040002,001221: # AND CONSEQUENTLY FUEL.
040003,001222:
040004,001223: # CALLING SEQUENCE
040005,001224: # L CALL
040006,001225: # L+1 V2T100
040007,001226:
040008,001227: # NORMAL EXIT MODE
040009,001228: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040010,001229:
040011,001230: # ALARM EXIT MODE
040012,001231: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040013,001232:
040014,001233: # SUBROUTINES CALLED
040015,001234: # GAMDV10
040016,001235: # XT1LIM
040017,001236: # DVCALC
040018,001237:
040019,001238: # ERASABLE INITIALIZATION REQUIRED
040020,001239: # PUSHLIST
040021,001240: # NONE
040022,001241: # MPAC
040023,001242: # NONE
040024,001243: # OTHER
040025,001244: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
040026,001245: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
040027,001246: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040028,001247: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
040029,001248: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040030,001249: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040031,001250: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
040032,001251: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
040033,001252: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
040034,001253: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
040035,001254: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
040036,001255: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE, +1 APOGEE
040037,001256: # N1 CONIC OR PRECISION ITERATION COUNTER DP B28 NEGATIVE CONIC,PLUS PREC
040038,001257:
040039,001258: # OUTPUT
040040,001259: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040041,001260: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
040042,001261: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
040043,001262: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
040044,001263: # BETA1 1+X(T2)**2 DP B1
040045,001264:
|
|
Page 918
|
040047,001266:
040048,001267: # DEBRIS
040049,001268: # PUSHLIST
040050,001269: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
040051,001270: # 02D THETA1=BETA5*LAMBDA-1 TP B17
040052,001271: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
040053,001272: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
040054,001273: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
040055,001274: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
040056,001275: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
040057,001276: # 16D DX(T1)=ITERATOR INCREMENT DP B5
040058,001277: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
040059,001278: # 32D DVCALC SUBROUTINE RETURN ADDRESS
040060,001279: # 33D V2T100 SUBROUTINE RETURN ADDRESS
040061,001280:
040062,001281: 32,3075 71220 V2T100 STQ DLOAD
040063,001282: 32,3076 00041 33D
040064,001283: 32,3077 03636 RCON
040065,001284: 32,3100 45240 BMN DSU # ABORT IF RCON NEGATIVE
040066,001285: 32,3101 65105 V2TERROR
040067,001286: 32,3102 03646 R(T1)
040068,001287: 32,3103 77640 BMN
040069,001288: 32,3104 65110 V2T101
040070,001289: 32,3105 77776 V2TERROR EXIT # OR IF LAMBDA LESS THAN ONE
040071,001290: 32,3106 05721 TC POODOO # NO SOLUTION IF LAMBDA LESS THAN 1
040072,001291: 32,3107 00610 OCT 00610
040073,001292: 32,3110 43001 V2T101 SETPD CLEAR
040074,001293: 32,3111 00001 0 # PL00D
040075,001294: 32,3112 00272 F2RTE
040076,001295: 32,3113 60345 DLOAD NORM
040077,001296: 32,3114 03636 RCON
040078,001297: 32,3115 00047 X1
040079,001298: 32,3116 60325 PDDL NORM
040080,001299: 32,3117 03646 R(T1)
040081,001300: 32,3120 00051 S1
040082,001301: 32,3121 00013 STORE 10D
040083,001302: 32,3122 56342 SR1 DDV # R1/RCON = LAMBDA B1
040084,001303: 32,3123 65260 XSU,1 PDDL # PL02D
040085,001304: 32,3124 00050 S1
040086,001305: 32,3125 03726 X(T2)
040087,001306: 32,3126 77716 DSQ
040088,001307: 32,3127 43342 SR1 DAD
040089,001308: 32,3130 33500 1RTEB1
040090,001309: 32,3131 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
040091,001310: 32,3132 77605 DMP
040092,001311: 32,3133 00001 00D
040093,001312: 32,3134 00035 STORE 28D # BETAI*LAMBDA = BETA5
040094,001313: 32,3135 53605 DMP SL*
040095,001314: 32,3136 00001 00D
040096,001315: 32,3137 20172 0 -7,1
040097,001316: 32,3140 45257 SL* DSU
|
|
Page 919
|
040099,001318: 32,3141 20172 0 -7,1
040100,001319: 32,3142 33516 1RTEB17
040101,001320: 32,3143 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 PL05D
040102,001321: 32,3144 45565 TPMODE
040103,001322: 32,3145 33500 1RTEB1
040104,001323: 32,3146 57457 SR* DCOMP
040105,001324: 32,3147 20601 0,1
040106,001325: 32,3150 41215 DAD DMP
040107,001326: 32,3151 00001 00D
040108,001327: 32,3152 03646 R(T1)
040109,001328: 32,3153 47057 SL* RTB
040110,001329: 32,3154 20172 0 -7D,1
040111,001330: 32,3155 45565 TPMODE
040112,001331: 32,3156 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
040113,001332: 32,3157 33632 RTMURTE
040114,001333: 32,3160 70501 NORM SR1
040115,001334: 32,3161 00050 X2
040116,001335: 32,3162 56264 XSU,2 DDV
040117,001336: 32,3163 00050 S1
040118,001337: 32,3164 00013 10D
040119,001338: 32,3165 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
040120,001339: 32,3166 57170 6,2
040121,001340: 32,3167 03652 MAMAX1
040122,001341: 32,3170 41406 PUSH PUSH # MAMAX1=MA
040123,001342: 32,3171 77624 CALL
040124,001343: 32,3172 65734 XT1LIM
040125,001344: 32,3173 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
040126,001345: 32,3174 40476 DCOMP SR4
040127,001346: 32,3175 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
040128,001347: 32,3176 03654 MAMAX2
040129,001348: 32,3177 45006 PUSH CALL
040130,001349: 32,3200 65734 XT1LIM
040131,001350: 32,3201 50125 PDDL BMN # X(T1)MAX B5 PL16D
040132,001351: 32,3202 03730 NN1A
040133,001352: 32,3203 65206 V2T102
040134,001353: 32,3204 77650 GOTO
040135,001354: 32,3205 65220 V2T110
040136,001355:
040137,001356: # PROCEED HERE IF NOT PRECISION COMPUTATION
040138,001357:
040139,001358: 32,3206 77745 V2T102 DLOAD
040140,001359: 32,3207 03632 RTEDVD
040141,001360: 32,3210 52054 BZE GOTO
040142,001361: 32,3211 65213 V2T105
040143,001362: 32,3212 65314 V2T140
040144,001363: 32,3213 50145 V2T105 DLOAD BMN
040145,001364: 32,3214 03757 CFPA
040146,001365: 32,3215 65314 V2T140
040147,001366: 32,3216 77650 GOTO
040148,001367: 32,3217 65322 V2T145
|
|
Page 920
|
040150,001369: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
040151,001370: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
040152,001371: # THROUGH X(T2)
040153,001372:
040154,001373: 32,3220 47145 V2T110 DLOAD RTB
040155,001374: 32,3221 33516 1RTEB17
040156,001375: 32,3222 45565 TPMODE
040157,001376: 32,3223 65276 DCOMP PDDL # -1 B17 PL19D
040158,001377: 32,3224 33542 2RTEB1
040159,001378: 32,3225 45257 SR* DSU
040160,001379: 32,3226 20601 0,1
040161,001380: 32,3227 00001 00D
040162,001381: 32,3230 53605 DMP SL*
040163,001382: 32,3231 00035 28D
040164,001383: 32,3232 20172 0 -7,1
040165,001384: 32,3233 76257 SL* TAD
040166,001385: 32,3234 20172 0 -7,1
040167,001386: 32,3235 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
040168,001387: 32,3236 45565 TPMODE
040169,001388: 32,3237 03722 X(T1)
040170,001389: 32,3240 00001 STORE 00D # X(T1),, B5
040171,001390: 32,3241 77751 TLOAD # PL16D
040172,001391: 32,3242 53040 BMN BZE
040173,001392: 32,3243 65250 V2T115
040174,001393: 32,3244 65250 V2T115
040175,001394: 32,3245 52061 SL GOTO
040176,001395: 32,3246 20210 7
040177,001396: 32,3247 65261 V2T120
040178,001397: 32,3250 50145 V2T115 DLOAD BMN
040179,001398: 32,3251 03761 PHI2
040180,001399: 32,3252 65272 V2T125
040181,001400: 32,3253 77676 DCOMP
040182,001401: 32,3254 17761 STODL PHI2
040183,001402: 32,3255 33532 10RTE
040184,001403: 32,3256 03730 STORE NN1A
040185,001404: 32,3257 77650 GOTO
040186,001405: 32,3260 65272 V2T125
040187,001406: 32,3261 47166 V2T120 SQRT RTB
040188,001407: 32,3262 45716 DPMODE
040189,001408: 32,3263 50125 PDDL BMN # BETA6**.5=X(T1)LIM B5 PL18D
040190,001409: 32,3264 03761 PHI2
040191,001410: 32,3265 65300 V2T130
040192,001411: 32,3266 45545 DLOAD STADR # PL16D
040193,001412: 32,3267 77760 STORE 14D # X(T1)LIM = X(T1)MAX
040194,001413: 32,3270 77676 DCOMP
040195,001414: 32,3271 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
040196,001415: 32,3272 53145 V2T125 DLOAD BZE
040197,001416: 32,3273 03722 X(T1)
040198,001417: 32,3274 65314 V2T140
040199,001418: 32,3275 52040 BMN GOTO
|
|
Page 921
|
040201,001420: 32,3276 65314 V2T140
040202,001421: 32,3277 65322 V2T145
040203,001422: 32,3300 53145 V2T130 DLOAD BZE
040204,001423: 32,3301 03722 X(T1)
040205,001424: 32,3302 65311 V2T135
040206,001425: 32,3303 71240 BMN DLOAD # PL16D
040207,001426: 32,3304 65311 V2T135
040208,001427: 32,3305 77626 STADR
040209,001428: 32,3306 77764 STORE 10D # X(T1)LIM = X(T1)MIN
040210,001429: 32,3307 77650 GOTO
040211,001430: 32,3310 65322 V2T145
040212,001431: 32,3311 57545 V2T135 DLOAD DCOMP # PL16D
040213,001432: 32,3312 77626 STADR
040214,001433: 32,3313 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
040215,001434: 32,3314 77745 V2T140 DLOAD
040216,001435: 32,3315 00013 10D
040217,001436: 32,3316 17722 STODL X(T1) # X(T1)MIN = X(T1)
040218,001437: 32,3317 00015 12D
040219,001438: 32,3320 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
040220,001439: 32,3321 65327 V2T150
040221,001440: 32,3322 77745 V2T145 DLOAD
040222,001441: 32,3323 00017 14D
040223,001442: 32,3324 17722 STODL X(T1) # X(T1)MAX = X(T1)
040224,001443: 32,3325 00015 12D
040225,001444: 32,3326 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
040226,001445: 32,3327 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
040227,001446: 32,3330 65457 GAMDV10
040228,001447: 32,3331 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
040229,001448: 32,3332 03632 RTEDVD
040230,001449: 32,3333 65455 V2T1X
040231,001450:
040232,001451: # CONTINUE IF TIME CRITICAL MODE
040233,001452:
040234,001453: 32,3334 50025 DSU BMN
040235,001454: 32,3335 03706 DV
040236,001455: 32,3336 65341 V2T155
040237,001456: 32,3337 77650 GOTO
040238,001457: 32,3340 65374 V2T175
040239,001458: 32,3341 50145 V2T155 DLOAD BMN
040240,001459: 32,3342 03730 NN1A
040241,001460: 32,3343 65346 V2T160
040242,001461: 32,3344 77650 GOTO
040243,001462: 32,3345 65416 V2T185
040244,001463:
040245,001464: # CONIC TRAJECTORY COMPUTATION
040246,001465:
040247,001466: 32,3346 53145 V2T160 DLOAD BZE
040248,001467: 32,3347 03722 X(T1)
040249,001468: 32,3350 65354 V2T165
040250,001469: 32,3351 52040 BMN GOTO
|
|
Page 922
|
040252,001471: 32,3352 65354 V2T165
040253,001472: 32,3353 65453 V2T300
040254,001473: 32,3354 53145 V2T165 DLOAD BZE
040255,001474: 32,3355 03757 CFPA
040256,001475: 32,3356 65453 V2T300
040257,001476: 32,3357 71240 BMN DLOAD
040258,001477: 32,3360 65453 V2T300
040259,001478: 32,3361 00017 14D
040260,001479: 32,3362 17722 STODL X(T1) # X(T1)MAX=X(T1)
040261,001480: 32,3363 00015 12D
040262,001481: 32,3364 77676 DCOMP
040263,001482: 32,3365 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
040264,001483: 32,3366 65457 GAMDV10
040265,001484: 32,3367 45345 DLOAD DSU
040266,001485: 32,3370 03632 RTEDVD
040267,001486: 32,3371 03706 DV
040268,001487: 32,3372 77640 BMN
040269,001488: 32,3373 65453 V2T300
040270,001489: 32,3374 71214 V2T175 SET DLOAD
040271,001490: 32,3375 00072 F2RTE
040272,001491: 32,3376 03722 X(T1)
040273,001492: 32,3377 77614 BOFF
040274,001493: 32,3400 02742 SLOWFLG
040275,001494: 32,3401 65406 V2T177
040276,001495: 32,3402 14013 STODL 10D # X(T1)MIN
040277,001496: 32,3403 00015 12D # DX(T1)MAX
040278,001497: 32,3404 77650 GOTO
040279,001498: 32,3405 65411 V2T179
040280,001499: 32,3406 14017 V2T177 STODL 14D
040281,001500: 32,3407 00015 12D
040282,001501: 32,3410 77676 DCOMP
040283,001502: 32,3411 34021 V2T179 STCALL 16D # DX(T1)
040284,001503: 32,3412 65457 GAMDV10
040285,001504: 32,3413 50145 DLOAD BMN
040286,001505: 32,3414 03730 NN1A
040287,001506: 32,3415 65453 V2T300
040288,001507:
040289,001508: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
040290,001509: # PRECISION TRAJECTORY
040291,001510:
040292,001511: 32,3416 45345 V2T185 DLOAD DSU
040293,001512: 32,3417 03722 X(T1)
040294,001513: 32,3420 00001 00D
040295,001514: 32,3421 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
040296,001515: 32,3422 00015 12D
040297,001516: 32,3423 44352 SL1 BDSU
040298,001517: 32,3424 71240 BMN DLOAD
040299,001518: 32,3425 65453 V2T300
040300,001519: 32,3426 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
040301,001520: 32,3427 03722 STORE X(T1) # X(T1),, = X(T1)
|
|
Page 923
|
040303,001522: 32,3430 50025 DSU BMN
040304,001523: 32,3431 00017 14D
040305,001524: 32,3432 65440 V2T195
040306,001525: 32,3433 77745 DLOAD
040307,001526: 32,3434 00017 14D
040308,001527: 32,3435 03722 STORE X(T1) # X(T1)MAX = X(T1)
040309,001528: 32,3436 77650 GOTO
040310,001529: 32,3437 65451 V2T205
040311,001530: 32,3440 45345 V2T195 DLOAD DSU
040312,001531: 32,3441 03722 X(T1)
040313,001532: 32,3442 00013 10D
040314,001533: 32,3443 52040 BMN GOTO
040315,001534: 32,3444 65446 V2T200
040316,001535: 32,3445 65451 V2T205
040317,001536: 32,3446 77745 V2T200 DLOAD
040318,001537: 32,3447 00013 10D
040319,001538: 32,3450 03722 STORE X(T1) # X(T1)MIN = X(T1)
040320,001539: 32,3451 77624 V2T205 CALL
040321,001540: 32,3452 65660 DVCALC
040322,001541: 32,3453 77745 V2T300 DLOAD
040323,001542: 32,3454 33524 ZERORTE
040324,001543: 32,3455 77650 V2T1X GOTO
040325,001544: 32,3456 00041 33D
040326,001545:
|
|
Page 924
|
040328,001547: # X(T1)-DV ITERATOR SUBROUTINE
040329,001548:
040330,001549: # DESCRIPTION
040331,001550: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
040332,001551:
040333,001552: # CALLING SEQUENCE
040334,001553: # L CALL
040335,001554: # L+1 GAMDV10
040336,001555:
040337,001556: # NORMAL EXIT MODE
040338,001557: # AT L+2 OF CALLING SEQUENCE
040339,001558:
040340,001559: # ALARM EXIT MODE
040341,001560: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040342,001561:
040343,001562: # SUBROUTINES CALLED
040344,001563: # DVCALC
040345,001564:
040346,001565: # ERASABLE INITIALIZATION REQUIRED
040347,001566: # PUSHLIST
040348,001567: # 02D THETA1=BETA5*LAMBDA-1 TP B17
040349,001568: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
040350,001569: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
040351,001570: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
040352,001571: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
040353,001572: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
040354,001573: # 16D DX(T1)=ITERATOR INCREMENT DP B5
040355,001574: # MPAC
040356,001575: # NONE
040357,001576: # OTHER
040358,001577: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040359,001578: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
040360,001579: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040361,001580: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040362,001581: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
040363,001582: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
040364,001583:
040365,001584: # OUTPUT
040366,001585: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040367,001586: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
040368,001587: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
040369,001588: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
040370,001589:
040371,001590: # DEBRIS
040372,001591: # PUSHLIST
040373,001592: # 00D X(T1),,
040374,001593: # 02D THETA1
040375,001594: # 05D THETA2
040376,001595: # 08D THETA3
040377,001596: # 10D X(T1)MIN
040378,001597: # 12D DX(T1)MAX
|
|
Page 925
|
040380,001599: # 14D X(T1)MAX
040381,001600: # 16D DX(T1)
040382,001601: # 22D DV,=PREVIOUS DV DP B7/B5
040383,001602: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
040384,001603: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
040385,001604: # 32D DVCALC SUBROUTINE RETURN ADDRESS
040386,001605: # 33D V2T100 SUBROUTINE RETURN ADDRESS
040387,001606:
040388,001607: 32,3457 77620 GAMDV10 STQ
040389,001608: 32,3460 00037 31D
040390,001609: 32,3461 45001 SETPD CALL
040391,001610: 32,3462 00023 18D # PL18D
040392,001611: 32,3463 65660 DVCALC
040393,001612: 32,3464 45345 DLOAD DSU
040394,001613: 32,3465 00017 14D
040395,001614: 32,3466 00013 10D
040396,001615: 32,3467 77600 BOV
040397,001616: 32,3470 65510 GAMDV20
040398,001617: 32,3471 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
040399,001618: 32,3472 33614 EPC9RTE
040400,001619: 32,3473 71240 BMN DLOAD
040401,001620: 32,3474 65656 GAMDVX # BOUNDS CLOSE TOGETHER
040402,001621: 32,3475 00023 18D
040403,001622: 32,3476 50025 DSU BMN # BETA8-DX(T1)MAX
040404,001623: 32,3477 00015 12D
040405,001624: 32,3500 65504 GAMDV15
040406,001625: 32,3501 52001 SETPD GOTO # PL18D
040407,001626: 32,3502 00023 18D
040408,001627: 32,3503 65510 GAMDV20
040409,001628: 32,3504 77745 GAMDV15 DLOAD # PL18D
040410,001629: 32,3505 70565 SIGN SR1
040411,001630: 32,3506 00021 16D
040412,001631: 32,3507 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
040413,001632: 32,3510 77745 GAMDV20 DLOAD
040414,001633: 32,3511 33526 M144RTE
040415,001634: 32,3512 03732 STORE NN2
040416,001635: 32,3513 43345 GAMDV25 DLOAD DAD
040417,001636: 32,3514 03732 NN2
040418,001637: 32,3515 33522 1RTEB28
040419,001638: 32,3516 67240 BMN SLOAD
040420,001639: 32,3517 65523 GAMDV30
040421,001640: 32,3520 33562 OCT605
040422,001641: 32,3521 77650 GOTO
040423,001642: 32,3522 65455 V2T1X
040424,001643: 32,3523 03732 GAMDV30 STORE NN2 # NN2=NN2+1
040425,001644: 32,3524 65345 DLOAD PDDL # X(T1)=X(T1), B5 PL20D
040426,001645: 32,3525 03722 X(T1)
040427,001646: 32,3526 03706 DV
040428,001647: 32,3527 43325 PDDL DAD # DV=DV, B7/B5 PL22D
040429,001648: 32,3530 03722 X(T1)
040430,001649: 32,3531 00021 16D
|
|
Page 926
|
040432,001651: 32,3532 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
040433,001652: 32,3533 65660 DVCALC
040434,001653: 32,3534 71214 BON DLOAD
040435,001654: 32,3535 00312 F2RTE
040436,001655: 32,3536 65552 GAMDV35
040437,001656: 32,3537 03706 DV
040438,001657: 32,3540 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
040439,001658: 32,3541 00025 20D
040440,001659: 32,3542 65547 GAMDV33
040441,001660: 32,3543 57545 GAMDV32 DLOAD DCOMP
040442,001661: 32,3544 00021 16D
040443,001662: 32,3545 77742 SR1
040444,001663: 32,3546 00021 STORE 16D
040445,001664: 32,3547 52001 GAMDV33 SETPD GOTO
040446,001665: 32,3550 00023 18D # PL18D
040447,001666: 32,3551 65615 GAMDV50
040448,001667:
040449,001668: # TIME CRITICAL MODE
040450,001669:
040451,001670: 32,3552 45345 GAMDV35 DLOAD DSU
040452,001671: 32,3553 03632 RTEDVD
040453,001672: 32,3554 03706 DV
040454,001673: 32,3555 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
040455,001674: 32,3556 51545 GAMDV40 DLOAD ABS # DV, PL24D
040456,001675: 32,3557 00025 20D
040457,001676: 32,3560 50025 DSU BMN
040458,001677: 32,3561 33616 EPC10RTE
040459,001678: 32,3562 65656 GAMDVX
040460,001679: 32,3563 71204 GAMDV45 BOVB DLOAD
040461,001680: 32,3564 57352 TCDANZIG # ASSURE OVFIND IS 0
040462,001681: 32,3565 60221 BDSU NORM
040463,001682: 32,3566 03706 DV
040464,001683: 32,3567 00050 X2
040465,001684: 32,3570 77725 PDDL # DV-DV, B7/B5-N2 PL22D
040466,001685: 32,3571 70501 NORM SR1 # DVERR B8/B6-N1
040467,001686: 32,3572 00047 X1
040468,001687: 32,3573 65271 DDV PDDL # DVERR/ DV - DV
040469,001688: 32,3574 41221 BDSU DMP # PL18D
040470,001689: 32,3575 03722 X(T1)
040471,001690: 32,3576 77660 XSU,1
040472,001691: 32,3577 00047 X2
040473,001692: 32,3600 00021 STORE 16D # PRESERVE SIGN IF OVERFLOW
040474,001693: 32,3601 40057 SR* BOV
040475,001694: 32,3602 20600 0 -1,1
040476,001695: 32,3603 65611 GAMDV47
040477,001696: 32,3604 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
040478,001697: 32,3605 45246 ABS DSU
040479,001698: 32,3606 00015 12D
040480,001699: 32,3607 77640 BMN
040481,001700: 32,3610 65615 GAMDV50
|
|
Page 927
|
040483,001702: 32,3611 75345 GAMDV47 DLOAD SIGN
040484,001703: 32,3612 00015 12D
040485,001704: 32,3613 00021 16D
040486,001705: 32,3614 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
040487,001706:
040488,001707: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
040489,001708:
040490,001709: 32,3615 41345 GAMDV50 DLOAD DMP
040491,001710: 32,3616 00021 16D
040492,001711: 32,3617 33536 1.1RTEB1
040493,001712: 32,3620 43352 SL1 DAD
040494,001713: 32,3621 03722 X(T1)
040495,001714: 32,3622 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
040496,001715: 32,3623 50025 DSU BMN
040497,001716: 32,3624 00017 14D
040498,001717: 32,3625 65634 GAMDV55
040499,001718: 32,3626 45345 DLOAD DSU
040500,001719: 32,3627 00017 14D
040501,001720: 32,3630 03722 X(T1)
040502,001721: 32,3631 77742 SR1
040503,001722: 32,3632 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
040504,001723: 32,3633 65647 GAMDV65
040505,001724: 32,3634 45345 GAMDV55 DLOAD DSU
040506,001725: 32,3635 00031 24D
040507,001726: 32,3636 00013 10D
040508,001727: 32,3637 52040 BMN GOTO
040509,001728: 32,3640 65642 GAMDV60
040510,001729: 32,3641 65647 GAMDV65
040511,001730: 32,3642 45345 GAMDV60 DLOAD DSU
040512,001731: 32,3643 00013 10D
040513,001732: 32,3644 03722 X(T1)
040514,001733: 32,3645 77742 SR1
040515,001734: 32,3646 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
040516,001735: 32,3647 51545 GAMDV65 DLOAD ABS
040517,001736: 32,3650 00021 16D
040518,001737: 32,3651 50025 DSU BMN
040519,001738: 32,3652 33614 EPC9RTE
040520,001739: 32,3653 65656 GAMDVX
040521,001740: 32,3654 77650 GOTO
040522,001741: 32,3655 65513 GAMDV25
040523,001742: 32,3656 77650 GAMDVX GOTO
040524,001743: 32,3657 00037 31D
040525,001744:
|
|
Page 928
|
040527,001746: # DV CALCULATION SUBROUTINE
040528,001747:
040529,001748: # INPUT
040530,001749: # PUSHLIST
040531,001750: # 02D THETA1=BETA5*LAMBDA-1 TP B17
040532,001751: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
040533,001752: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
040534,001753: # OTHER
040535,001754: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
040536,001755: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
040537,001756: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040538,001757: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040539,001758:
040540,001759: # OUTPUT
040541,001760: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040542,001761: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
040543,001762: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
040544,001763:
040545,001764: # DEBRIS
040546,001765: # 28D THETA3*PCON**.5 DP B10/B8-N1
040547,001766: # C(PUSLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
040548,001767: # 32D DVCALC SUBROUTINE RETURN ADDRESS
040549,001768: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
040550,001769:
040551,001770: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
040552,001771:
040553,001772: 32,3660 71220 DVCALC STQ DLOAD
040554,001773: 32,3661 00040 32D
040555,001774: 32,3662 03722 X(T1)
040556,001775: 32,3663 54316 DSQ SR
040557,001776: 32,3664 20610 7
040558,001777: 32,3665 76276 DCOMP TAD
040559,001778: 32,3666 00003 02D
040560,001779: 32,3667 41501 NORM PUSH
040561,001780: 32,3670 00047 X1
040562,001781: 32,3671 60351 TLOAD NORM
040563,001782: 32,3672 00006 05D
040564,001783: 32,3673 00050 X2
040565,001784: 32,3674 70434 RTB SR1
040566,001785: 32,3675 45716 DPMODE
040567,001786: 32,3676 56264 XSU,2 DDV
040568,001787: 32,3677 00046 X1
040569,001788: 32,3700 77657 SR*
040570,001789: 32,3701 57170 6,2
040571,001790: 32,3702 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
040572,001791: 32,3703 41366 SQRT DMP
040573,001792: 32,3704 00011 08D
040574,001793: 32,3705 77701 NORM
040575,001794: 32,3706 00047 X1
040576,001795: 32,3707 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
|
|
Page 929
|
040578,001797: 32,3710 03722 X(T1)
040579,001798: 32,3711 74301 NORM VXSC
040580,001799: 32,3712 00050 X2
040581,001800: 32,3713 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
040582,001801: 32,3714 74274 XAD,2 VXSC
040583,001802: 32,3715 00046 X1
040584,001803: 32,3716 00035 28D
040585,001804: 32,3717 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
040586,001805: 32,3720 57207 0 -9D,2 # +
040587,001806: 32,3721 03746 UH/
040588,001807: 32,3722 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
040589,001808: 32,3723 00035 28D
040590,001809: 32,3724 20575 0 -4,1 # =
040591,001810: 32,3725 45455 VAD STADR
040592,001811: 32,3726 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
040593,001812: 32,3727 51451 VSU ABVAL
040594,001813: 32,3730 03672 V(T1)/
040595,001814: 32,3731 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
040596,001815: 32,3732 77650 GOTO
040597,001816: 32,3733 00040 32D
040598,001817:
|
|
Page 930
|
040600,001819: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
040601,001820:
040602,001821: # INPUT
040603,001822: # PUSHLIST
040604,001823: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
040605,001824: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
040606,001825: # 28D BETA5=LAMBDA*BETA1 DP B9
040607,001826: # OTHER
040608,001827: # RCON DP B29/B27
040609,001828: # R(T1) DP B29/B27
040610,001829:
040611,001830: # OUTPUT
040612,001831: # MPAC
040613,001832: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
040614,001833:
040615,001834: # DEBRIS
040616,001835: # PUSHLIST
040617,001836: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
040618,001837: # C(PSHLOC)+2 MA DP B30/B28
040619,001838: # X1 NORMALIZATION FACTOR FOR MA-RCON
040620,001839: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
040621,001840:
040622,001841: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
040623,001842:
040624,001843: 32,3734 71220 XT1LIM STQ DLOAD
040625,001844: 32,3735 00024 20D
040626,001845: 32,3736 03636 RCON
040627,001846: 32,3737 44342 SR1 BDSU
040628,001847: 32,3740 65301 NORM PDDL # MA-RCON B30-N1
040629,001848: 32,3741 00050 X2
040630,001849: 32,3742 70525 PDDL SR1
040631,001850: 32,3743 03646 R(T1)
040632,001851: 32,3744 56221 BDSU DDV
040633,001852: 32,3745 41257 SL* DMP
040634,001853: 32,3746 57601 0 -3,2 # B3
040635,001854: 32,3747 00035 28D
040636,001855: 32,3750 45257 SL* DSU # BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
040637,001856: 32,3751 20173 0 -6,1
040638,001857: 32,3752 33521 1RTEB25 +1 # 1.0 B-11
040639,001858: 32,3753 40152 SL1 BOV
040640,001859: 32,3754 65760 XT1LIM2 # B10
040641,001860: 32,3755 52040 BMN GOTO
040642,001861: 32,3756 65764 XT1LIM5
040643,001862: 32,3757 65762 XT1LIM3
040644,001863: 32,3760 77745 XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW
040645,001864: 32,3761 33542 2RTEB1
040646,001865: 32,3762 52166 XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10) B5
040647,001866: 32,3763 65766 XT1LIMX
040648,001867: 32,3764 77745 XT1LIM5 DLOAD
040649,001868: 32,3765 33524 ZERORTE
040650,001869: 32,3766 77650 XT1LIMX GOTO
040651,001870: 32,3767 00024 20D
040652,001871:
|
|
Page 931
|
040654,001873: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
040655,001874:
040656,001875: 36,3254 BANK 36
040657,001876: 35,2000 SETLOC RTECON1
040658,001877: 35,2000 BANK
040659,001878:
040660,001879: 35,3477 20000 00000 1RTEB1 2DEC 1. B-1
040661,001880: 35,3501 10000 00000 1RTEB2 2DEC 1. B-2
040662,001881: 35,3503 04000 00000 1RTEB3 2DEC 1. B-3
040663,001882: 35,3505 02000 00000 1RTEB4 2DEC 1. B-4
040664,001883: 35,3507 00020 00000 1RTEB10 2DEC 1. B-10
040665,001884: 35,3511 00004 00000 1RTEB12 2DEC 1. B-12
040666,001885: 35,3513 00002 00000 1RTEB13 2DEC 1. B-13
040667,001886: 35,3515 00000 04000 1RTEB17 2DEC 1. B-17
040668,001887: 35,3517 00000 00010 1RTEB25 2DEC 1. B-25
040669,001888: # * * B25 AND B28 MUST BE CONSECUTIVE * *
040670,001889: 35,3521 00000 00001 1RTEB28 2DEC 1. B-28
040671,001890: 35,3523 00000 00000 ZERORTE 2DEC 0 B-28
040672,001891: 35,3525 77777 77557 M144RTE 2DEC -144. B-28
040673,001892: 35,3527 77777 77760 M15RTE 2DEC -15 B-28
040674,001893: 35,3531 00000 00012 10RTE 2DEC 10 B-28
040675,001894: 35,3533 54631 63145 M.6RTE 2DEC -.6
040676,001895: 35,3535 21463 06315 1.1RTEB1 2DEC 1.1 B-1
040677,001896: 35,3537 77777 77771 M6RTEB28 2DEC -6 B-28
040678,001897: 35,3541 37777 37777 2RTEB1 2OCT 3777737777
040679,001898: 35,3543 77777 77766 M9RTEB28 2DEC -9 B-28
040680,001899: 35,3545 77777 77767 M8RTEB28 2DEC -8 B-28
040681,001900: 35,3547 00000 35610 30480RTE 2DEC 30480. B-29
040682,001901: 35,3551 37405 12250 VCSPS 2DEC 31.510396 B-5 # (SEE 2VEXHUST)
|
|
Page 932
|
040684,001903: 35,3553 33041 37714 VCRCS 2DEC 27.0664 B-5
040685,001904: 35,3555 00003 13241 MDOTRCS 2DEC .0016375 B-3
040686,001905: 35,3557 20000 00000 CSUBT 2DEC .5
040687,001906: 35,3561 00605 OCT605 OCT 00605
040688,001907: 35,3562 00612 OCT612 OCT 00612
040689,001908: 35,3563 40214 45266 MCOS7.5 2DEC -.99144486
040690,001909: 35,3565 73645 56536 MSIN7.5 2DEC -.13052619
040691,001910: 35,3567 70467 71205 MCOS22.5 2DEC -.92387953 B-2
040692,001911: 35,3571 16525 12525 THETA165 2DEC .4583333333
040693,001912: 35,3573 22525 12525 THETA210 2DEC .5833333333
040694,001913: 35,3575 17775 06676 EPC1RTE 2DEC .99966 B-1
040695,001914: 35,3577 00000 00062 EPC2RTE 2DEC 100. B-29
040696,001915: 35,3601 00020 14223 EPC3RTE 2DEC .001
040697,001916: 35,3603 00000 05174 EPC4RTE 2DEC .00001
040698,001917: 35,3605 00002 21727 EPC5RTE 2DEC .01 B-6
040699,001918: 35,3607 00000 01654 EPC6RTE 2DEC .000007 B-1
040700,001919: 35,3611 00000 00764 EPC7RTE 2DEC 1000. B-29
040701,001920: 35,3613 00000 00010 EPC9RTE 2DEC 1. B-25
040702,001921: 35,3615 00000 00322 EPC10RTE 2DEC .0001 B-7
040703,001922:
040704,001923: 35,3617 BANK 35
040705,001924: 35,2000 SETLOC RTECON1
040706,001925: 35,2000 BANK
040707,001926:
040708,001927: 35,3617 75725 75417 C4RTE 2DEC -6.986643 E7 B-30
040709,001928: 35,3621 00325 23740 K1RTE 2DEC 7. E6 B-29
040710,001929: 35,3623 00306 06614 K2RTE 2DEC 6495000. B-29
040711,001930: 35,3625 76027 70156 K3RTE 2DEC -.06105
040712,001931: 35,3627 74517 54131 K4RTE 2DEC -.10453
040713,001932: 35,3631 30276 05001 RTMURTE 2DEC 199650.501 B-18
|
|
Page 933
|
040715,001934: 35,3633 00003 27040 E3RTE 2DEC 121920. B-29
040716,001935:
End of include-file P37,P70.agc. Parent file is MAIN.agc