GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
039642,000002: ## Copyright: Public domain.
039643,000003: ## Filename: P37_P70.agc
039644,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
039645,000005: ## It is part of the source code for the Command Module's (CM)
039646,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
039647,000007: ## Assembler: yaYUL
039648,000008: ## Contact: Jim Lawton <jim.lawton@gmail.com>.
039649,000009: ## Website: www.ibiblio.org/apollo.
039650,000010: ## Pages: 890-933
039651,000011: ## Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
039652,000012: ## of the same name, using Comanche055 page
039653,000013: ## images.
039654,000014: ## 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> POODOO.
039655,000015: ## 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to
039656,000016: ## STODL DELVLVC and a STODL 02D to STORE 02D.
039657,000017: ## 2010-08-28 JL Added missing comment characters.
039658,000018: ## 2016-12-10 RSB All of the GOTOPOOH's should have been
039659,000019: ## GOTOPOOH, and I've changed them back.
039660,000020: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
039661,000021: ## and corrected the errors found.
039662,000022: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
039663,000023: ## vs Colossus 249.
039664,000024: ##
039665,000025: ## This source code has been transcribed or otherwise adapted from digitized
039666,000026: ## images of a hardcopy from the MIT Museum. The digitization was performed
039667,000027: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
039668,000028: ## thanks to both. The images (with suitable reduction in storage size and
039669,000029: ## consequent reduction in image quality as well) are available online at
039670,000030: ## www.ibiblio.org/apollo. If for some reason you find that the images are
039671,000031: ## illegible, contact me at info@sandroid.org about getting access to the
039672,000032: ## (much) higher-quality images which Paul actually created.
039673,000033: ##
039674,000034: ## Notations on the hardcopy document read, in part:
039675,000035: ##
039676,000036: ## Assemble revision 055 of AGC program Comanche by NASA
039677,000037: ## 2021113-051. 10:28 APR. 1, 1969
039678,000038: ##
039679,000039: ## This AGC program shall also be referred to as
039680,000040: ## Colossus 2A
039681,000041:
|
|
Page 890 |
039683,000043: 31,3700 BANK 31
039684,000044: 36,2000 SETLOC RTE1
039685,000045: 36,2000 BANK
039686,000046:
039687,000047: 36,2466 E7,1631 EBANK= RTEDVD
039688,000048: 36,2466 COUNT 31/P37
039689,000049:
039690,000050: # PROGRAM DESCRIPTION - P37, RETURN TO EARTH
039691,000051:
039692,000052: # DESCRIPTION
039693,000053: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
039694,000054: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
039695,000055: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
039696,000056: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
039697,000057: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
039698,000058:
039699,000059: # CALLING SEQUENCE
039700,000060: # L TC P37
039701,000061:
039702,000062: # SUBROUTINES CALLED
039703,000063: # PREC100
039704,000064: # V2T100
039705,000065: # RTENCK2
039706,000066: # RTENCK3
039707,000067: # TIMERAD
039708,000068: # PARAM
039709,000069: # V2T100
039710,000070: # GAMDV10
039711,000071: # XT1LIM
039712,000072: # DVCALC
039713,000073: # RTENCK1
039714,000074: # INTSTALL
039715,000075: # INTEGRVS
039716,000076: # RTEVN
039717,000077: # RTEDISP
039718,000078: # TMRAD100
039719,000079: # AUGEKUGL
039720,000080: # LAT-LONG
039721,000081: # TMRAD100
039722,000082: # TIMERAD
039723,000083: # INVC100
039724,000084: # CSMPREC
039725,000085: # GETERAD
039726,000086: # TIMETHET
039727,000087: # P370ALRM
039728,000088: # VN1645
039729,000089: # POLY
039730,000090:
039731,000091: # ERASABLE INITIALIZATION REQUIRED
039732,000092: # CSM STATE VECTOR
|
|
Page 891 |
039734,000094: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
039735,000095:
039736,000096: # ASTRONAUT INPUT
039737,000097: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
039738,000098: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
039739,000099: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
039740,000100: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
039741,000101:
039742,000102: # OUTPUT
039743,000103: # CONIC OR PRECISION TRAJECTORY DISPLAY
039744,000104: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
039745,000105: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
039746,000106: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
039747,000107: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
039748,000108: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
039749,000109: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
039750,000110: # TARGETING COMPUTATION DISPLAY
039751,000111: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
039752,000112: # TTOGO TIME FROM TIG DP B28 CS
039753,000113: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
039754,000114: # THRUST PROGRAM COMMUNICATION
039755,000115: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
039756,000116: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
039757,000117: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
039758,000118: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
039759,000119: # TPASS4 REENTRY TIME DP B28 CS
039760,000120:
039761,000121: 36,2466 05412 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE.
039762,000122: 36,2467 00004 OCT 4
039763,000123:
039764,000124: 36,2470 06006 TC INTPRET
039765,000125: 36,2471 66170 AXT,1 SXA,1
039766,000126: 36,2472 04000 OCT 04000
039767,000127: 36,2473 03424 ECSTEER
039768,000128: 36,2474 77745 DLOAD
039769,000129: 36,2475 15335 ZEROVECS
039770,000130: 36,2476 03767 STORE VPRED
039771,000131: 36,2477 03771 STORE GAMMAEI
039772,000132: 36,2500 77776 EXIT
039773,000133: 36,2501 33246 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
039774,000134: 36,2502 03235 TCR P370GOF # OVERLAYED WITH TIG
039775,000135: 36,2503 12501 TCF -2 # DESPLAY NEW DATA
039776,000136: 36,2504 33252 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
039777,000137: 36,2505 03211 TCR P37GFRB1 # AND DESIRED DELTA V IN RTEDVD
039778,000138: 36,2506 12504 TCF -2 # DISPLAY NEW DATA
039779,000139: 36,2507 06006 RTE299 TC INTPRET
039780,000140: 36,2510 71331 SSP DLOAD
039781,000141: 36,2511 00122 OVFIND
039782,000142: 36,2512 00000 0
039783,000143: 36,2513 03767 VPRED
|
|
Page 892 |
039785,000145: 36,2514 17632 STODL RTEDVD
039786,000146: 36,2515 03771 GAMMAEI
039787,000147: 36,2516 17634 STODL RTEGAM2D
039788,000148: 36,2517 33514 1RTEB13
039789,000149: 36,2520 17735 STODL CONICX1
039790,000150: 36,2521 33620 C4RTE
039791,000151: 36,2522 37652 STCALL MAMAX1
039792,000152: 36,2523 64450 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
039793,000153: 36,2524 71214 CLEAR DLOAD
039794,000154: 36,2525 02662 SLOWFLG
039795,000155: 36,2526 03632 RTEDVD
039796,000156: 36,2527 51444 BPL ABS
039797,000157: 36,2530 74540 RTE317
039798,000158: 36,2531 03632 STORE RTEDVD
039799,000159: 36,2532 45345 DLOAD DSU
039800,000160: 36,2533 03646 R(T1)
039801,000161: 36,2534 33622 K1RTE
039802,000162: 36,2535 43040 BMN SET
039803,000163: 36,2536 74540 RTE317
039804,000164: 36,2537 02462 SLOWFLG
039805,000165: 36,2540 77545 RTE317 DLOAD EXIT
039806,000166: 36,2541 03646 R(T1)
039807,000167: 36,2542 07171 TC POLY
039808,000168: 36,2543 00002 DEC 2 B-14
039809,000169: 36,2544 02544 35436 2DEC 181000434. B-31
039810,000170: 36,2546 14040 05066 2DEC 1.50785145 B-2
039811,000171: 36,2550 44052 60030 2DEC* -6.49993057 E-9 B27*
039812,000172: 36,2552 26415 25057 2DEC* 9.76938926 E-18 B56*
039813,000173: 36,2554 06006 TC INTPRET
039814,000174: 36,2555 77752 SL1
039815,000175: 36,2556 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
039816,000176: 36,2557 33544 M9RTEB28
039817,000177: 36,2560 17730 STODL NN1A
039818,000178: 36,2561 33624 K2RTE
039819,000179: 36,2562 17636 RTE320 STODL RCON # RCON=K2
039820,000180: 36,2563 03634 RTEGAM2D
039821,000181: 36,2564 44254 BZE BDSU
039822,000182: 36,2565 74574 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
039823,000183: 36,2566 33502 1RTEB2
039824,000184: 36,2567 71406 PUSH COS # PL02D
039825,000185: 36,2570 73525 PDDL SIN
039826,000186: 36,2571 45465 BDDV STADR # PL00D
039827,000187: 36,2572 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
039828,000188: 36,2573 74607 RTE360
039829,000189: 36,2574 45345 RTE340 DLOAD DSU
039830,000190: 36,2575 03646 R(T1)
|
|
Page 893 |
039832,000192: 36,2576 33622 K1RTE
039833,000193: 36,2577 71240 BMN DLOAD
039834,000194: 36,2600 74604 RTE350
039835,000195: 36,2601 33630 K4RTE
039836,000196: 36,2602 37726 STCALL X(T2) # X(T2)=K4
039837,000197: 36,2603 74607 RTE360
039838,000198: 36,2604 77745 RTE350 DLOAD
039839,000199: 36,2605 33626 K3RTE
039840,000200: 36,2606 03726 STORE X(T2) # X(T2)=K3
039841,000201: 36,2607 77624 RTE360 CALL
039842,000202: 36,2610 65075 V2T100
039843,000203: 36,2611 52054 BZE GOTO
039844,000204: 36,2612 74614 RTE367
039845,000205: 36,2613 74776 RTEALRM
039846,000206: 36,2614 77775 RTE367 VLOAD
039847,000207: 36,2615 03640 R(T1)/
039848,000208: 36,2616 16657 STODL RVEC
039849,000209: 36,2617 03636 RCON
039850,000210: 36,2620 26760 STOVL RDESIRED
039851,000211: 36,2621 03700 V2(T1)/
039852,000212: 36,2622 36746 STCALL VVEC
039853,000213: 36,2623 64277 TMRAD100
039854,000214: 36,2624 77615 DAD
039855,000215: 36,2625 03716 T1
039856,000216: 36,2626 17736 STODL T2
039857,000217: 36,2627 03634 RTEGAM2D
039858,000218: 36,2630 52054 BZE GOTO
039859,000219: 36,2631 74633 RTE369
039860,000220: 36,2632 74655 RTE372
039861,000221: 36,2633 51575 RTE369 VLOAD ABVAL
039862,000222: 36,2634 03710 V(T2)/
039863,000223: 36,2635 77776 EXIT
039864,000224: 36,2636 07171 TC POLY
039865,000225: 36,2637 00002 DEC 2 B-14
039866,000226: 36,2640 00000 00000 2DEC 0 B-28
039867,000227: 36,2642 47021 65002 2DEC -4.8760771 E-2 B4
039868,000228: 36,2644 35610 07722 2DEC 4.5419476 E-4 B11
039869,000229: 36,2646 63772 63276 2DEC -1.4317675 E-6 B18
039870,000230:
039871,000231: 36,2650 06006 TC INTPRET
039872,000232: 36,2651 77615 DAD
039873,000233: 36,2652 01352 RTED1
039874,000234: 36,2653 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
039875,000235: 36,2654 74657 RTE373
039876,000236: 36,2655 77745 RTE372 DLOAD # X(T2),=X(T2)
039877,000237: 36,2656 03726 X(T2)
039878,000238: 36,2657 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
|
|
Page 894 |
039880,000240: 36,2660 03726 X(T2)
039881,000241: 36,2661 53575 VLOAD UNIT
039882,000242: 36,2662 03656 R(T2)/ # B58
039883,000243: 36,2663 36152 STCALL ALPHAV
039884,000244: 36,2664 26505 GETERAD
039885,000245: 36,2665 77615 DAD
039886,000246: 36,2666 33634 E3RTE
039887,000247: 36,2667 45206 PUSH DSU # RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
039888,000248: 36,2670 03636 RCON
039889,000249: 36,2671 45246 ABS DSU
039890,000250: 36,2672 33600 EPC2RTE
039891,000251: 36,2673 52040 BMN GOTO
039892,000252: 36,2674 74676 RTE374
039893,000253: 36,2675 74703 RTE375
039894,000254: 36,2676 51545 RTE374 DLOAD ABS
039895,000255: 36,2677 00001 00D
039896,000256: 36,2700 50025 DSU BMN
039897,000257: 36,2701 33602 EPC3RTE
039898,000258: 36,2702 74753 P37E
039899,000259: 36,2703 43345 RTE375 DLOAD DAD
039900,000260: 36,2704 03730 NN1A
039901,000261: 36,2705 33522 1RTEB28
039902,000262: 36,2706 67240 BMN SLOAD
039903,000263: 36,2707 74713 RTE380
039904,000264: 36,2710 33562 OCT605
039905,000265: 36,2711 77650 GOTO
039906,000266: 36,2712 74776 RTEALRM # TOO MANY ITERATIONS
039907,000267: 36,2713 03730 RTE380 STORE NN1A
039908,000268: 36,2714 53025 DSU BZE
039909,000269: 36,2715 33546 M8RTEB28
039910,000270: 36,2716 74734 RTE385
039911,000271: 36,2717 45345 DLOAD DSU
039912,000272: 36,2720 00001 00D
039913,000273: 36,2721 03666 DRCON
039914,000274: 36,2722 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=Z1 PL06D
039915,000275: 36,2723 00047 X1
039916,000276: 36,2724 03670 RPRE'
039917,000277: 36,2725 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
039918,000278: 36,2726 03726 X(T2)
039919,000279: 36,2727 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
039920,000280: 36,2730 00001 00D
039921,000281: 36,2731 20201 0,1
039922,000282: 36,2732 77650 GOTO
039923,000283: 36,2733 74736 RTE390
039924,000284: 36,2734 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
039925,000285: 36,2735 00001 00D
039926,000286: 36,2736 14021 RTE390 STODL 16D # DX(T2) PL02D
039927,000287: 36,2737 77626 STADR
039928,000288: 36,2740 60141 STODL RCON # RCON=RCON,
039929,000289: 36,2741 77600 BOV
|
|
Page 895 |
039931,000291: 36,2742 74607 RTE360
039932,000292: 36,2743 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
039933,000293: 36,2744 03726 X(T2)
039934,000294: 36,2745 17670 STODL RPRE' # X(T2)PRI=X(T2)
039935,000295: 36,2746 00021 16D
039936,000296: 36,2747 77615 DAD
039937,000297: 36,2750 03726 X(T2)
039938,000298: 36,2751 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
039939,000299: 36,2752 74607 RTE360 # REITERATE
039940,000300: 36,2753 77624 P37E CALL # DISPLAY CONIC SOLUTION
039941,000301: 36,2754 75002 RTEVN
039942,000302: 36,2755 41345 RTE505 DLOAD DMP
039943,000303: 36,2756 03720 PCON
039944,000304: 36,2757 03754 BETA1
039945,000305: 36,2760 53021 BDSU BZE
039946,000306: 36,2761 03636 RCON
039947,000307: 36,2762 74770 RTE510
039948,000308: 36,2763 71240 BMN DLOAD
039949,000309: 36,2764 74770 RTE510
039950,000310: 36,2765 33502 1RTEB2
039951,000311: 36,2766 77650 GOTO # ENTRY NEAR APOGEE
039952,000312: 36,2767 74772 RTE515
039953,000313: 36,2770 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
039954,000314: 36,2771 33502 1RTEB2
039955,000315: 36,2772 37761 RTE515 STCALL PHI2
039956,000316: 36,2773 64541 PREC100 # PRECISION TRAJECTORY COMPUTATION
039957,000317: 36,2774 77654 RTE625 BZE
039958,000318: 36,2775 75030 P37G
039959,000319: 36,2776 77624 RTEALRM CALL
039960,000320: 36,2777 64262 P370ALRM
039961,000321: 36,3000 77776 EXIT
039962,000322: 36,3001 12466 TCF P37 # RECYCLE AFTER ALARM DISPLAY
039963,000323:
039964,000324: # RETURN TO EARTH DISPLAY SUBROUTINE
039965,000325:
039966,000326: 36,3002 45020 RTEVN STQ CALL
039967,000327: 36,3003 03763 VNSTORE
039968,000328: 36,3004 64316 RTEDISP # DISPLAY PREPARATION
039969,000329: 36,3005 77776 EXIT
039970,000330: 36,3006 33250 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
039971,000331: 36,3007 03221 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
039972,000332: 36,3010 35015 CAF FOUR
039973,000333: 36,3011 03215 TCR 37BLANK +1
039974,000334: 36,3012 13017 TCF +5
039975,000335: 36,3013 12466 TCF P37 # RECYCLE
039976,000336: 36,3014 33251 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
039977,000337: 36,3015 03235 TCR P370GOF
039978,000338: 36,3016 12466 TCF P37 # RECYCLE
039979,000339: 36,3017 33252 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
039980,000340: 36,3020 03211 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
|
|
Page 896 |
039982,000342: 36,3021 12466 TCF P37 # RECYCLE
039983,000343: 36,3022 33253 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
039984,000344: 36,3023 03235 TCR P370GOF
039985,000345: 36,3024 12466 TCF P37 # RECYCLE
039986,000346: 36,3025 06006 TCR INTPRET
039987,000347: 36,3026 77650 GOTO
039988,000348: 36,3027 03763 VNSTORE
039989,000349:
039990,000350: # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
039991,000351:
039992,000352: 36,3030 77624 P37G CALL
039993,000353: 36,3031 75002 RTEVN
039994,000354: 36,3032 77776 EXIT
039995,000355: 36,3033 35023 P37N CAF SEVEN
039996,000356: 36,3034 55131 TS OPTION1
039997,000357: 36,3035 35017 CAF ONE
039998,000358: 36,3036 55132 TS OPTION2
039999,000359: 36,3037 33247 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
040000,000360: 36,3040 03235 TCR P370GOF
040001,000361: 36,3041 13037 TCF -2 # RECYCLE
040002,000362: 36,3042 06006 TC INTPRET # PROCEED
040003,000363: 36,3043 67201 SETPD SLOAD
040004,000364: 36,3044 00001 00D
040005,000365: 36,3045 01133 OPTION2
040006,000366: 36,3046 53025 DSU BZE
040007,000367: 36,3047 33514 1RTEB13
040008,000368: 36,3050 75057 P37Q
040009,000369: 36,3051 60335 SLOAD NORM # SPS
040010,000370: 36,3052 00111 EMDOT
040011,000371: 36,3053 00047 X1
040012,000372: 36,3054 52125 PDDL GOTO
040013,000373: 36,3055 33552 VCSPS
040014,000374: 36,3056 75070 P37T
040015,000375: 36,3057 43145 P37Q DLOAD BON # RCS
040016,000376: 36,3060 33556 MDOTRCS
040017,000377: 36,3061 00700 NJETSFLG
040018,000378: 36,3062 75064 P37R
040019,000379: 36,3063 77752 SL1
040020,000380: 36,3064 77752 P37R SL1
040021,000381: 36,3065 65301 NORM PDDL
040022,000382: 36,3066 00047 X1
040023,000383: 36,3067 33554 VCRCS
040024,000384: 36,3070 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
040025,000385: 36,3071 03706 DV
040026,000386: 36,3072 77776 EXIT
040027,000387: 36,3073 07171 TC POLY
040028,000388: 36,3074 00001 DEC 1 B-14
040029,000389: 36,3075 00001 05070 2DEC 5.66240507 E-4 B-3
040030,000390: 36,3077 17527 36700 2DEC 9.79487897 E-1 B-1
|
|
Page 897 |
040032,000392: 36,3101 47114 70670 2DEC -.388281955 B1
040033,000393: 36,3103 06006 TC INTPRET
040034,000394: 36,3104 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
040035,000395: 36,3105 03076 WEIGHT/G
040036,000396: 36,3106 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
040037,000397: 36,3107 41257 SL* DMP
040038,000398: 36,3110 20165 0 -12D,1
040039,000399: 36,3111 33560 CSUBT
040040,000400: 36,3112 77621 BDSU
040041,000401: 36,3113 03716 T1
040042,000402: 36,3114 03413 STORE TIG # TIG=T1-CT*DTB B28
040043,000403: 36,3115 77776 EXIT
040044,000404: 36,3116 33246 CAF V6N33RTE # DISPLAY BIASED TIG
040045,000405: 36,3117 03235 TCR P370GOF
040046,000406: 36,3120 13116 TCF -2
040047,000407: 36,3121 35021 CAF ZERO
040048,000408: 36,3122 55125 TS VHFCNT
040049,000409: 36,3123 55126 TS TRKMKCNT
040050,000410: 36,3124 06006 TC INTPRET
040051,000411: 36,3125 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
040052,000412: 36,3126 63700 RTENCK1
040053,000413: 36,3127 53575 VLOAD UNIT # PL00D
040054,000414: 36,3130 03656 R(T2)/
040055,000415: 36,3131 74315 PDVL VXSC # UR2 B1 PL06D
040056,000416: 36,3132 03740 UR1/
040057,000417: 36,3133 33564 MCOS7.5
040058,000418: 36,3134 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
040059,000419: 36,3135 03746 UH/
040060,000420: 36,3136 33566 MSIN7.5
040061,000421: 36,3137 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
040062,000422: 36,3140 50015 DAD BMN
040063,000423: 36,3141 33570 MCOS22.5
040064,000424: 36,3142 75167 P37W
040065,000425: 36,3143 50375 VLOAD DOT # K/ . UR2 GR COS22.5
040066,000426: 36,3144 03746 UH/
040067,000427: 36,3145 03656 R(T2)/
040068,000428: 36,3146 71240 BMN DLOAD
040069,000429: 36,3147 75153 P37U
040070,000430: 36,3150 33572 THETA165
040071,000431: 36,3151 52006 PUSH GOTO
040072,000432: 36,3152 75155 P37V
040073,000433: 36,3153 41545 P37U DLOAD PUSH
040074,000434: 36,3154 33574 THETA210
040075,000435: 36,3155 77756 P37V SIN
040076,000436: 36,3156 16732 STODL SNTH
040077,000437: 36,3157 43146 COS CLEAR
040078,000438: 36,3160 03666 RVSW
040079,000439: 36,3161 26734 STOVL CSTH
040080,000440: 36,3162 03640 R(T1)/
|
|
Page 898 |
040082,000442: 36,3163 26657 STOVL RVEC
040083,000443: 36,3164 03700 V2(T1)/
040084,000444: 36,3165 36746 STCALL VVEC
040085,000445: 36,3166 24744 TIMETHET
040086,000446: 36,3167 43014 P37W CLEAR CLEAR
040087,000447: 36,3170 01267 XDELVFLG
040088,000448: 36,3171 03665 NORMSW
040089,000449: 36,3172 77214 SET VLOAD
040090,000450: 36,3173 01071 FINALFLG
040091,000451: 36,3174 77626 STADR
040092,000452: 36,3175 60362 STODL RTARG
040093,000453: 36,3176 00037 T
040094,000454: 36,3177 77615 DAD
040095,000455: 36,3200 03716 T1
040096,000456: 36,3201 27656 STOVL TPASS4
040097,000457: 36,3202 03700 V2(T1)/
040098,000458: 36,3203 77651 VSU
040099,000459: 36,3204 03672 V(T1)/
040100,000460: 36,3205 37646 STCALL DELVSIN
040101,000461: 36,3206 73002 VN1645
040102,000462: 36,3207 77650 GOTO
040103,000463: 36,3210 75167 P37W
040104,000464:
040105,000465: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
040106,000466:
040107,000467: 36,3211 00006 P37GFRB1 EXTEND
040108,000468: 36,3212 23762 QXCH SPRTEX
040109,000469: 36,3213 03221 TCR P370GOFR
040110,000470: 36,3214 35017 37BLANK CAF ONE
040111,000471: 36,3215 05526 TCR BLANKET
040112,000472: 36,3216 15217 TCF ENDOFJOB
040113,000473: 36,3217 01762 TC SPRTEX # RECYCLE
040114,000474: 36,3220 13244 TCF P37PROC # PROCEED
040115,000475:
040116,000476: # SUBROUTINE TO GO TO GOFLASHR
040117,000477:
040118,000478: 36,3221 00006 P370GOFR EXTEND
040119,000479: 36,3222 23733 QXCH RTENCKEX
040120,000480: 36,3223 04662 TCR BANKCALL
040121,000481: 36,3224 21057 CADR GOFLASHR
040122,000482: 36,3225 14106 TCF GOTOPOOH # TERMINATE
040123,000483: 36,3226 13231 TCF +3
040124,000484: 36,3227 13233 TCF +4
040125,000485: 36,3230 01733 TC RTENCKEX # IMMEDIATE RETURN
040126,000486: 36,3231 51733 INDEX RTENCKEX # PROCEED
040127,000487: 36,3232 10004 TCF 0 +4
040128,000488: 36,3233 51733 INDEX RTENCKEX # RECYCLE
040129,000489: 36,3234 10003 TCF 0 +3
040130,000490:
040131,000491: # SUBROUTINE TO GO TO GOFLASH
040132,000492:
|
|
Page 899 |
040134,000494: 36,3235 00006 P370GOF EXTEND
040135,000495: 36,3236 23762 QXCH SPRTEX
040136,000496: 36,3237 04662 TCR BANKCALL
040137,000497: 36,3240 20720 CADR GOFLASH
040138,000498: 36,3241 14106 TCF GOTOPOOH
040139,000499: 36,3242 13244 TCF +2
040140,000500: 36,3243 01762 TC SPRTEX
040141,000501: 36,3244 51762 P37PROC INDEX SPRTEX
040142,000502: 36,3245 10001 TCF 0 +1
040143,000503: 36,3246 01441 V6N33RTE VN 0633
040144,000504: 36,3247 01006 V4N06RTE VN 0406
040145,000505: 36,3250 01475 V6N61RTE VN 0661
040146,000506: 36,3251 01447 V6N39RTE VN 0639
040147,000507: 36,3252 01474 V6N60RTE VN 0660
040148,000508: 36,3253 01521 V6N81RTE VN 0681
040149,000509: 32,2262 BANK 32
040150,000510: 32,2000 SETLOC RTE
040151,000511: 32,2000 BANK
040152,000512: 32,2262 COUNT 32/RTE
040153,000513:
|
|
Page 900 |
040155,000515: # ALARM DISPLAY SUBROUTINE
040156,000516:
040157,000517: 32,2262 77420 P370ALRM STQ EXIT
040158,000518: 32,2263 03762 SPRTEX
040159,000519: 32,2264 30154 CA MPAC
040160,000520: 32,2265 05764 TC VARALARM
040161,000521: 32,2266 32276 CAF V5N09RTE
040162,000522: 32,2267 04662 TC BANKCALL
040163,000523: 32,2270 20720 CADR GOFLASH
040164,000524: 32,2271 14106 TCF GOTOPOOH
040165,000525: 32,2272 12266 TCF -4
040166,000526: 32,2273 06006 TC INTPRET
040167,000527: 32,2274 77650 GOTO
040168,000528: 32,2275 03762 SPRTEX
040169,000529: 32,2276 01211 V5N09RTE VN 0509
040170,000530:
|
|
Page 901 |
040172,000532: # TIME RADIUS CALLING SUBROUTINE
040173,000533:
040174,000534: # INPUT
040175,000535: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
040176,000536: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
040177,000537: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
040178,000538: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2=EARTH SP B14
040179,000539:
040180,000540: # OUTPUT
040181,000541: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
040182,000542: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
040183,000543: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
040184,000544:
040185,000545: 32,2277 43020 TMRAD100 STQ CLEAR
040186,000546: 32,2300 03733 RTENCKEX
040187,000547: 32,2301 03666 RVSW
040188,000548: 32,2302 67164 AXC,2 SXA,2
040189,000549: 32,2303 20000 OCT 20000
040190,000550: 32,2304 02756 SGNRDOT
040191,000551: 32,2305 45140 LXC,1 CALL
040192,000552: 32,2306 03734 CONICX1
040193,000553: 32,2307 25556 TIMERAD
040194,000554: 32,2310 27710 STOVL V(T2)/ # PL00D
040195,000555: 32,2311 77626 STADR
040196,000556: 32,2312 60121 STODL R(T2)/
040197,000557: 32,2313 00037 T
040198,000558: 32,2314 37724 STCALL T12
040199,000559: 32,2315 03733 RTENCKEX
040200,000560:
|
|
Page 902 |
040202,000562: # DISPLAY CALCULATION SUBROUTINE
040203,000563:
040204,000564: # DESCRIPTION
040205,000565: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
040206,000566: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
040207,000567:
040208,000568: # CALLING SEQUENCE
040209,000569: # L CALL
040210,000570: # L+1 RTEDISP
040211,000571:
040212,000572: # SUBROUTINES CALLED
040213,000573: # TMRAD100
040214,000574: # AUGEKUGL
040215,000575: # LAT-LONG
040216,000576:
040217,000577: # ERASABLE INITIALIZATION REQUIRED
040218,000578: # PUSHLIST
040219,000579: # NONE
040220,000580: # MPAC
040221,000581: # NONE
040222,000582: # OTHER
040223,000583: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
040224,000584: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
040225,000585: # T2 FINAL TIME DP B28 CS
040226,000586: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
040227,000587: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
040228,000588: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040229,000589: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040230,000590:
040231,000591: # OUTPUT
040232,000592: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
040233,000593: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
040234,000594: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
040235,000595: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
040236,000596: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
040237,000597: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
040238,000598:
040239,000599: 32,2316 77220 RTEDISP STQ VLOAD # DISPLAY
040240,000600: 32,2317 03762 SPRTEX
040241,000601: 32,2320 03710 V(T2)/
040242,000602: 32,2321 65256 UNIT PDDL
040243,000603: 32,2322 00045 36D
040244,000604: 32,2323 17767 STODL VPRED # V(T2)
040245,000605: 32,2324 03736 T2
040246,000606: 32,2325 77625 DSU
040247,000607: 32,2326 03413 SPRTETIG
040248,000608: 32,2327 26641 STOVL T3TOT4 # T21
040249,000609: 32,2330 03656 R(T2)/
040250,000610: 32,2331 50256 UNIT DOT
040251,000611: 32,2332 77752 SL1
040252,000612:
|
|
Page 903 |
040254,000614: 32,2333 44326 ARCCOS BDSU
040255,000615: 32,2334 33502 1RTEB2
040256,000616: 32,2335 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
040257,000617: 32,2336 03700 V2(T1)/
040258,000618: 32,2337 41451 VSU PUSH
040259,000619: 32,2340 03672 V(T1)/
040260,000620: 32,2341 57441 DOT DCOMP
040261,000621: 32,2342 03740 UR1/
040262,000622: 32,2343 41515 PDVL PUSH
040263,000623: 32,2344 63345 DLOAD PDVL
040264,000624: 32,2345 33524 ZERORTE
040265,000625: 32,2346 55441 DOT VDEF
040266,000626: 32,2347 03746 UH/
040267,000627: 32,2350 77772 VSL1
040268,000628: 32,2351 17405 STODL DELVLVC
040269,000629: 32,2352 03405 DELVLVC
040270,000630: 32,2353 57414 BOFF DCOMP
040271,000631: 32,2354 02741 RETROFLG
040272,000632: 32,2355 64357 RTD18
040273,000633: 32,2356 03405 STORE DELVLVC # NEGATE X COMPONENT, RETROGRADE
040274,000634: 32,2357 51575 RTD18 VLOAD ABVAL
040275,000635: 32,2360 03405 DELVLVC
040276,000636: 32,2361 27773 STOVL VGDISP
040277,000637: 32,2362 03656 R(T2)/
040278,000638: 32,2363 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
040279,000639: 32,2364 45246 ABVAL DSU
040280,000640: 32,2365 33550 30480RTE
040281,000641: 32,2366 26760 STOVL RDESIRED
040282,000642: 32,2367 03710 V(T2)/
040283,000643: 32,2370 36746 STCALL VVEC
040284,000644: 32,2371 64277 TMRAD100 # R3,V3,T23 FROM TIMERAD
040285,000645: 32,2372 53575 VLOAD UNIT
040286,000646: 32,2373 03656 R(T2)/
040287,000647: 32,2374 53515 PDVL UNIT # UR3 PL06D
040288,000648: 32,2375 03710 V(T2)/
040289,000649: 32,2376 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
040290,000650: 32,2377 65336 ARCSIN PDDL # V(T3) PL02D
040291,000651: 32,2400 00045 36D
040292,000652: 32,2401 51525 PDDL ABS
040293,000653: 32,2402 45006 PUSH CALL # /GAMMAE/ PL04D
040294,000654: 32,2403 64075 AUGEKUGL # PHIE PL06D
040295,000655: 32,2404 43215 DAD DAD
040296,000656: 32,2405 03724 T12 # T23
040297,000657: 32,2406 03736 T2
040298,000658: 32,2407 00003 STORE 02D # T(LS)=T2&T23&TE
040299,000659: 32,2410 53135 SLOAD BZE
040300,000660: 32,2411 03377 P37RANGE
040301,000661: 32,2412 64414 RTD22
040302,000662: 32,2413 00005 STORE 04D # OVERRIDE RANGE (PCR 261)
040303,000663: 32,2414 73545 RTD22 DLOAD SIN
040304,000664:
|
|
Page 904 |
040306,000666: 32,2415 00005 04D
040307,000667: 32,2416 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
040308,000668: 32,2417 77746 COS
040309,000669: 32,2420 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
040310,000670: 32,2421 53575 VLOAD UNIT
040311,000671: 32,2422 03656 R(T2)/
040312,000672: 32,2423 41406 PUSH PUSH
040313,000673: 32,2424 53515 PDVL UNIT # PL22D
040314,000674: 32,2425 03710 V(T2)/
040315,000675: 32,2426 47315 PDVL VXV
040316,000676: 32,2427 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
040317,000677: 32,2430 63361 VXSC PDVL
040318,000678: 32,2431 03403 LNG(SPL)
040319,000679: 32,2432 53361 VXSC VAD # PL04D
040320,000680: 32,2433 03401 LAT(SPL)
040321,000681: 32,2434 43014 CLEAR CLEAR # T(LS) IN MPAC
040322,000682: 32,2435 00662 ERADFLAG
040323,000683: 32,2436 01663 LUNAFLAG
040324,000684: 32,2437 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
040325,000685: 32,2440 77624 CALL
040326,000686: 32,2441 26370 LAT-LONG
040327,000687: 32,2442 77745 DLOAD
040328,000688: 32,2443 01104 LAT
040329,000689: 32,2444 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
040330,000690: 32,2445 01106 LONG
040331,000691: 32,2446 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
040332,000692: 32,2447 03762 SPRTEX
040333,000693: 32,2450 COUNT* $$/RTE
040334,000694:
|
|
Page 905 |
040336,000696: # INITIAL VECTOR SUBROUTINE
040337,000697:
040338,000698: # DESCRIPTION
040339,000699: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
040340,000700:
040341,000701: # CALLING SEQUENCE
040342,000702: # L CALL
040343,000703: # L+1 INVC100
040344,000704:
040345,000705: # NORMAL EXIT MODE
040346,000706: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040347,000707:
040348,000708: # ALARM EXIT MODE
040349,000709: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
040350,000710:
040351,000711: # SUBROUTINES CALLED
040352,000712: # CSMPREC
040353,000713:
040354,000714: # ERASABLE INITIALIZATION REQUIRED
040355,000715: # PUSHLIST
040356,000716: # NONE
040357,000717: # MPAC
040358,000718: # NONE
040359,000719: # OTHER
040360,000720: # SPRTETIG TIME OF IGNITION DP B28 CS
040361,000721: # CSM STATE VECTOR
040362,000722:
040363,000723: # OUTPUT
040364,000724: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
040365,000725: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
040366,000726: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
040367,000727: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040368,000728: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040369,000729: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
040370,000730:
040371,000731: 32,2450 71220 INVC100 STQ DLOAD
040372,000732: 32,2451 03762 SPRTEX
040373,000733: 32,2452 03413 SPRTETIG
040374,000734: 32,2453 34041 STCALL TDEC1
040375,000735: 32,2454 27071 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
040376,000736: 32,2455 67175 VLOAD SXA,2
040377,000737: 32,2456 00001 RATT
040378,000738: 32,2457 03755 P(T1)
040379,000739: 32,2460 27640 STOVL R(T1)/
040380,000740: 32,2461 00007 VATT
040381,000741: 32,2462 17672 STODL V(T1)/
040382,000742: 32,2463 00015 TAT
040383,000743: 32,2464 03716 STORE T1
040384,000744: 32,2465 53135 SLOAD BZE
040385,000745: 32,2466 03756 P(T1)
|
|
Page 906 |
040387,000747: 32,2467 64473 INVC109
040388,000748: 32,2470 52135 INVC107 SLOAD GOTO
040389,000749: 32,2471 33563 OCT612
040390,000750: 32,2472 74776 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
040391,000751: 32,2473 53575 INVC109 VLOAD UNIT
040392,000752: 32,2474 03640 R(T1)/
040393,000753: 32,2475 17740 STODL UR1/ # UR1/ B1
040394,000754: 32,2476 00045 36D
040395,000755: 32,2477 27646 STOVL R(T1) # R(T1) B29
040396,000756: 32,2500 03672 V(T1)/
040397,000757: 32,2501 77656 UNIT
040398,000758: 32,2502 03746 STORE UV1/
040399,000759: 32,2503 72441 DOT SL1
040400,000760: 32,2504 03740 UR1/
040401,000761: 32,2505 03757 STORE CFPA # CFPA B1
040402,000762: 32,2506 45246 ABS DSU
040403,000763: 32,2507 33576 EPC1RTE
040404,000764: 32,2510 71240 BMN DLOAD
040405,000765: 32,2511 64520 INVC115 # NOT NEAR RECTILINEAR
040406,000766: 32,2512 33502 1RTEB2
040407,000767: 32,2513 41525 PDDL PUSH
040408,000768: 32,2514 33524 ZERORTE
040409,000769: 32,2515 41466 VDEF PUSH # N/ = (0,0,1)
040410,000770: 32,2516 77650 GOTO
040411,000771: 32,2517 64524 INVC120
040412,000772: 32,2520 47375 INVC115 VLOAD VXV
040413,000773: 32,2521 03740 UR1/
040414,000774: 32,2522 03746 UV1/
040415,000775: 32,2523 77606 PUSH # N/ = UR X UV B2
040416,000776: 32,2524 71214 INVC120 CLEAR DLOAD
040417,000777: 32,2525 02661 RETROFLG
040418,000778: 32,2526 51006 PUSH BPL
040419,000779: 32,2527 64533 INVC125
040420,000780: 32,2530 57575 VLOAD VCOMP # RETROGRADE ORBIT
040421,000781: 32,2531 43006 PUSH SET
040422,000782: 32,2532 02461 RETROFLG
040423,000783: 32,2533 77775 INVC125 VLOAD
040424,000784: 32,2534 53435 VXV UNIT
040425,000785: 32,2535 03740 UR1/
040426,000786: 32,2536 03746 STORE UH/ # UH/ B1
040427,000787: 32,2537 77650 GOTO
040428,000788: 32,2540 03762 SPRTEX
040429,000789:
|
|
Page 907 |
040431,000791: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
040432,000792:
040433,000793: # DESCRIPTION
040434,000794: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
040435,000795: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
040436,000796: # AS POSSIBLE.
040437,000797:
040438,000798: # CALLING SEQUENCE
040439,000799: # L CALL
040440,000800: # L+1 PREC100
040441,000801:
040442,000802: # NORMAL EXIT MODE
040443,000803: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040444,000804:
040445,000805: # ALARM EXIT MODE
040446,000806: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
040447,000807: # OCTAL 605 FOR EXCESS ITERATIONS
040448,000808: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
040449,000809:
040450,000810: # SUBROUTINES CALLED
040451,000811: # INTSTALL
040452,000812: # RTENCK2
040453,000813: # RTENCK3
040454,000814: # TIMERAD
040455,000815: # PARAM
040456,000816: # V2T100
040457,000817:
040458,000818: # ERASABLE INITIALIZATION REQUIRED
040459,000819: # PUSHLIST
040460,000820: # NONE
040461,000821: # MPAC
040462,000822: # NONE
040463,000823: # OTHER
040464,000824: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29/B27 METERS
040465,000825: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040466,000826: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040467,000827: # T1 INITIAL VECTOR TIME DP B28 CS
040468,000828: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
040469,000829: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
040470,000830: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
040471,000831: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
040472,000832: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
040473,000833: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
040474,000834: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
040475,000835: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
040476,000836: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040477,000837: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040478,000838: # BETA1 1+X(T2)**2 DP B1
040479,000839: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE, +1 APOGEE
040480,000840:
|
|
Page 908 |
040482,000842:
040483,000843: # OUTPUT
040484,000844: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
040485,000845: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
040486,000846: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
040487,000847: # T2 FINAL TIME DP B28 CENTISECONDS
040488,000848:
040489,000849: # DEBRIS
040490,000850: # RD FINAL R DESIRED DP B29/B27 METERS
040491,000851: # R/APRE R/A DP B6
040492,000852: # P/RPRE P/R DP B4
040493,000853: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
040494,000854: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
040495,000855: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
040496,000856: # RCON FINAL RADIUS DP B29/B27 METERS
040497,000857: # DRCON DELTA RCON DP B29/B27 METERS
040498,000858:
040499,000859: 32,2541 71220 PREC100 STQ DLOAD
040500,000860: 32,2542 03762 SPRTEX
040501,000861: 32,2543 33532 10RTE
040502,000862: 32,2544 17730 STODL NN1A
040503,000863: 32,2545 03636 RCON
040504,000864: 32,2546 03664 STORE RD
040505,000865: 32,2547 77745 PREC120 DLOAD
040506,000866: 32,2550 33542 2RTEB1
040507,000867: 32,2551 17650 STODL DT21PR # DT21PR = POSMAX
040508,000868: 32,2552 33530 M15RTE
040509,000869: 32,2553 37732 STCALL NN2
040510,000870: 32,2554 63726 RTENCK3
040511,000871: 32,2555 77624 PREC125 CALL
040512,000872: 32,2556 11637 PARAM
040513,000873: 32,2557 77745 DLOAD
040514,000874: 32,2560 02742 P
040515,000875: 32,2561 14033 STODL P/RPRE
040516,000876: 32,2562 02744 R1A
040517,000877: 32,2563 14035 STODL R/APRE
040518,000878: 32,2564 00041 R1
040519,000879: 32,2565 14031 STODL RPRE
040520,000880: 32,2566 03775 COGA
040521,000881: 32,2567 77661 SL
040522,000882: 32,2570 20206 5
040523,000883: 32,2571 03724 STORE X(T2)PRE
040524,000884: 32,2572 43276 DCOMP DAD
040525,000885: 32,2573 03726 X(T2)
040526,000886: 32,2574 45246 ABS DSU
040527,000887: 32,2575 33604 EPC4RTE
040528,000888: 32,2576 50000 BOV BMN
040529,000889: 32,2577 64601 PREC130
040530,000890: 32,2600 64770 PREC175
040531,000891:
040532,000892: # DESIRED REENTRY ANGLE NOT ACHIEVED
040533,000893:
|
|
Page 909 |
040535,000895: 32,2601 50145 PREC130 DLOAD BMN
040536,000896: 32,2602 03732 NN2
040537,000897: 32,2603 64607 PREC140
040538,000898: 32,2604 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
040539,000899: 32,2605 33562 OCT605 # EXIT WITH ALARM
040540,000900: 32,2606 65073 PRECX
040541,000901:
040542,000902: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
040543,000903:
040544,000904: 32,2607 53145 PREC140 DLOAD BZE
040545,000905: 32,2610 03730 NN1A
040546,000906: 32,2611 64647 PREC162
040547,000907: 32,2612 62545 PREC150 DLOAD SL2 # B2
040548,000908: 32,2613 00033 P/RPRE
040549,000909: 32,2614 72405 DMP SL1 # BETA2=BETA1*P/R B2 PL02
040550,000910: 32,2615 03754 BETA1
040551,000911: 32,2616 71206 PUSH DLOAD
040552,000912: 32,2617 00035 R/APRE
040553,000913: 32,2620 41212 SL4 DMP
040554,000914: 32,2621 00001 00D
040555,000915: 32,2622 50021 BDSU BMN # BETA3=1-BETA2*R/A
040556,000916: 32,2623 33506 1RTEB4
040557,000917: 32,2624 64637 PREC160
040558,000918: 32,2625 75512 PREC155 SL2 SQRT
040559,000919: 32,2626 44205 DMP BDSU
040560,000920: 32,2627 03761 PHI2
040561,000921: 32,2630 33504 1RTEB3
040562,000922: 32,2631 65301 NORM PDDL
040563,000923: 32,2632 00047 X1
040564,000924: 32,2633 56342 SR1 DDV # BETA4=BETA2/(1-PHI2*SQRT(BETA3))
040565,000925: 32,2634 52057 SL* GOTO # B1
040566,000926: 32,2635 20200 0 -1,1
040567,000927: 32,2636 64655 PREC165
040568,000928: 32,2637 60345 PREC160 DLOAD NORM
040569,000929: 32,2640 00035 R/APRE
040570,000930: 32,2641 00047 X1
040571,000931: 32,2642 53665 BDDV SL* # B1
040572,000932: 32,2643 33500 1RTEB1
040573,000933: 32,2644 20173 0 -6,1
040574,000934: 32,2645 77650 GOTO
040575,000935: 32,2646 64655 PREC165
040576,000936: 32,2647 60345 PREC162 DLOAD NORM
040577,000937: 32,2650 00031 RPRE
040578,000938: 32,2651 00047 X1
040579,000939: 32,2652 53665 BDDV SL* # BETA4=RD/RPRE B1
040580,000940: 32,2653 03664 RD
040581,000941: 32,2654 20200 0 -1,1
040582,000942: 32,2655 41401 PREC165 SETPD PUSH
040583,000943: 32,2656 00001 0
040584,000944: 32,2657 57425 DSU DCOMP
|
|
Page 910 |
040586,000946: 32,2660 33500 1RTEB1
040587,000947: 32,2661 03765 STORE BETA12
040588,000948: 32,2662 71240 BMN DLOAD
040589,000949: 32,2663 64674 PREC168
040590,000950: 32,2664 03724 X(T2)PRE
040591,000951: 32,2665 71240 BMN DLOAD
040592,000952: 32,2666 64672 PREC167
040593,000953: 32,2667 03765 BETA12
040594,000954: 32,2670 77676 DCOMP
040595,000955: 32,2671 03765 STORE BETA12
040596,000956: 32,2672 77745 PREC167 DLOAD
040597,000957: 32,2673 03765 BETA12
040598,000958: 32,2674 45246 PREC168 ABS DSU
040599,000959: 32,2675 33610 EPC6RTE
040600,000960: 32,2676 71240 BMN DLOAD
040601,000961: 32,2677 64770 PREC175
040602,000962: 32,2700 72405 DMP SL1
040603,000963: 32,2701 00031 RPRE
040604,000964: 32,2702 77606 PUSH # RF = NEW RADIUS
040605,000965: 32,2703 43345 PREC170 DLOAD DAD
040606,000966: 32,2704 03732 NN2
040607,000967: 32,2705 33522 1RTEB28
040608,000968: 32,2706 03732 STORE NN2
040609,000969: 32,2707 43175 VLOAD SET
040610,000970: 32,2710 03656 R(T2)/
040611,000971: 32,2711 03466 RVSW
040612,000972: 32,2712 26657 STOVL RVEC
040613,000973: 32,2713 03710 V(T2)/
040614,000974: 32,2714 77765 SIGN
040615,000975: 32,2715 03765 BETA12
040616,000976: 32,2716 16746 STODL VVEC
040617,000977: 32,2717 33500 1RTEB1
040618,000978: 32,2720 57565 SIGN DCOMP
040619,000979: 32,2721 03765 BETA12
040620,000980: 32,2722 71354 LXA,2 DLOAD
040621,000981: 32,2723 00154 MPAC
040622,000982: 32,2724 67140 LXC,1 SXA,2
040623,000983: 32,2725 03734 CONICX1
040624,000984: 32,2726 02756 SGNRDOT
040625,000985: 32,2727 36760 STCALL RDESIRED # COMPUTE DT12 (CORRECTION TO TIME OF
040626,000986: 32,2730 25556 TIMERAD # NEW RADIUS)
040627,000987: 32,2731 75345 DLOAD SIGN
040628,000988: 32,2732 00037 T
040629,000989: 32,2733 03765 BETA12
040630,000990: 32,2734 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
040631,000991: 32,2735 03650 DT21PR
040632,000992: 32,2736 00047 X1
040633,000993: 32,2737 53665 BDDV SL*
040634,000994: 32,2740 00001 00D
040635,000995: 32,2741 20176 0 -3,1
|
|
Page 911 |
040637,000997: 32,2742 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) B3 PL04D
040638,000998: 32,2743 64750 PREC172
040639,000999: 32,2744 65345 DLOAD PDDL # BETA14=1 B0 PL04D
040640,001000: 32,2745 33542 2RTEB1
040641,001001: 32,2746 77650 GOTO
040642,001002: 32,2747 64752 PREC173
040643,001003: 32,2750 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
040644,001004: 32,2751 33534 M.6RTE
040645,001005: 32,2752 45271 PREC173 DDV DSU
040646,001006: 32,2753 00003 02D
040647,001007: 32,2754 33504 1RTEB3
040648,001008: 32,2755 71240 BMN DLOAD
040649,001009: 32,2756 64762 PREC174
040650,001010: 32,2757 77605 DMP
040651,001011: 32,2760 03650 DT21PR
040652,001012: 32,2761 00001 STORE 00D # DT21=(BETA14)DT21PR B28
040653,001013: 32,2762 41545 PREC174 DLOAD PUSH
040654,001014: 32,2763 00001 00D
040655,001015: 32,2764 37650 STCALL DT21PR
040656,001016: 32,2765 63710 RTENCK2
040657,001017: 32,2766 77650 GOTO
040658,001018: 32,2767 64555 PREC125
040659,001019: 32,2770 45345 PREC175 DLOAD DSU
040660,001020: 32,2771 00031 RPRE
040661,001021: 32,2772 03664 RD
040662,001022: 32,2773 51406 PUSH ABS # RPRE-RD = RERR
040663,001023: 32,2774 50025 DSU BMN
040664,001024: 32,2775 33612 EPC7RTE
040665,001025: 32,2776 34703 PREC220
040666,001026:
040667,001027: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
040668,001028:
040669,001029: 32,2777 53145 DLOAD BZE
040670,001030: 32,3000 03730 NN1A
040671,001031: 32,3001 64604 PREC132 # TOO MANY ITERATIONS
040672,001032: 32,3002 53025 DSU BZE
040673,001033: 32,3003 33532 10RTE
040674,001034: 32,3004 65037 PREC207
040675,001035: 32,3005 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
040676,001036: 32,3006 03670 RPRE'
040677,001037: 32,3007 00031 RPRE # RPRE,-RPRE B29/B27
040678,001038: 32,3010 55301 NORM BDDV
040679,001039: 32,3011 00050 X2
040680,001040: 32,3012 03666 DRCON
040681,001041: 32,3013 41457 SL* PUSH # DRCON/(RPRE,-RPRE)=S B2
040682,001042: 32,3014 57600 0 -2,2
040683,001043: 32,3015 40015 DAD BOV # S GR +4 OR LS -4
040684,001044: 32,3016 33500 1RTEB1
040685,001045: 32,3017 65024 PREC205M
040686,001046: 32,3020 45246 ABS DSU
|
|
Page 912 |
040688,001048: 32,3021 33500 1RTEB1
040689,001049: 32,3022 77640 BMN
040690,001050: 32,3023 65027 PREC206
040691,001051: 32,3024 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
040692,001052: 32,3025 33542 2RTEB1
040693,001053: 32,3026 77725 PDDL # S=-4 B2
040694,001054: 32,3027 41345 PREC206 DLOAD DMP
040695,001055: 32,3030 77712 SL2
040696,001056: 32,3031 03666 STORE DRCON # DRCON=S(RERR) B29
040697,001057: 32,3032 77615 DAD
040698,001058: 32,3033 03636 RCON
040699,001059: 32,3034 03636 STORE RCON # RCON+DRCON=RCON
040700,001060: 32,3035 77650 GOTO
040701,001061: 32,3036 65056 PREC210
040702,001062: 32,3037 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
040703,001063: 32,3040 03664 RD
040704,001064: 32,3041 70501 NORM SR1
040705,001065: 32,3042 00047 X1
040706,001066: 32,3043 60325 PDDL NORM
040707,001067: 32,3044 00031 RPRE
040708,001068: 32,3045 00050 X2
040709,001069: 32,3046 55260 XSU,1 BDDV
040710,001070: 32,3047 00047 X2
040711,001071: 32,3050 77657 SR*
040712,001072: 32,3051 20600 0 -1,1
040713,001073: 32,3052 03636 STORE RCON # RD**2/RPRE=RCON
040714,001074: 32,3053 77625 DSU
040715,001075: 32,3054 03664 RD
040716,001076: 32,3055 03666 STORE DRCON # RCON-RD=DRCON
040717,001077: 32,3056 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
040718,001078: 32,3057 00031 RPRE
040719,001079: 32,3060 17670 STODL RPRE'
040720,001080: 32,3061 03730 NN1A
040721,001081: 32,3062 77625 DSU
040722,001082: 32,3063 33522 1RTEB28
040723,001083: 32,3064 37730 STCALL NN1A
040724,001084: 32,3065 65075 V2T100
040725,001085: 32,3066 52030 BHIZ GOTO
040726,001086: 32,3067 64547 PREC120
040727,001087: 32,3070 65073 PRECX
040728,001088:
040729,001089: # DESIRED RADIUS ACHIEVED
040730,001090:
040731,001091: 16,2000 SETLOC RTE2
040732,001092: 16,2000 BANK
040733,001093: 16,2703 45345 PREC220 DLOAD DSU
040734,001094: 16,2704 03726 X(T2)
040735,001095: 16,2705 03724 X(T2)PRE
040736,001096: 16,2706 45246 ABS DSU
040737,001097: 16,2707 34716 EPC8RTE
|
|
Page 913 |
040739,001099: 16,2710 67240 BMN SLOAD
040740,001100: 16,2711 65071 PREC225
040741,001101: 16,2712 34720 OCT613
040742,001102: 16,2713 77650 GOTO
040743,001103: 16,2714 65073 PRECX # IF REENTRY ANGLE OUT OF LIMITS
040744,001104:
040745,001105: 16,2715 00040 30447 EPC8RTE 2DEC .002
040746,001106:
040747,001107: 16,2717 00613 OCT613 OCT 613
040748,001108:
040749,001109: # DESIRED FINAL ANGLE HAS BEEN REACHED
040750,001110:
040751,001111: 32,2000 SETLOC RTE
040752,001112: 32,2000 BANK
040753,001113: 32,3071 77745 PREC225 DLOAD
040754,001114: 32,3072 33524 ZERORTE
040755,001115: 32,3073 77650 PRECX GOTO
040756,001116: 32,3074 03762 SPRTEX
040757,001117:
|
|
Page 914 |
040759,001119: # INTEGRATION CALLING SUBROUTINE
040760,001120:
040761,001121: # DESCRIPTION
040762,001122: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
040763,001123: # RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
040764,001124: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
040765,001125:
040766,001126: # RTENCK1 (CONIC INTEGRATION)
040767,001127:
040768,001128: # CALLING SEQUENCE
040769,001129: # L CALL
040770,001130: # L+1 RTENCK1
040771,001131:
040772,001132: # ERASABLE INITIALIZATION REQUIRED
040773,001133: # SAME AS FOR THE RTENCK3 ENTRANCE
040774,001134:
040775,001135: # RTENCK2 (PRECISION INTEGRATION)
040776,001136:
040777,001137: # CALLING SEQUENCE
040778,001138: # L CALL
040779,001139: # L+1 RTENCK2
040780,001140:
040781,001141: # ERASABLE INITIALIZATION REQUIRED
040782,001142: # PUSHLIST
040783,001143: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
040784,001144: # OTHER
040785,001145: # R(T2)/ FINAL POSITION VECTOR VECTOR .B29 METERS
040786,001146: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
040787,001147: # T2 FINAL TIME DP B28 CS
040788,001148:
040789,001149: # RTENCK3 (PRECISION INTEGRATION)
040790,001150:
040791,001151: # CALLING SEQUENCE
040792,001152: # L CALL
040793,001153: # L+1 RTENCK3
040794,001154:
040795,001155: # ERASABLE INITIALIZATION REQUIRED
040796,001156: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
040797,001157: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
040798,001158: # T1 INITIAL VECTOR TIME DP B28 CS
040799,001159: # T2 FINAL TIME DP B28 CS
040800,001160:
040801,001161: # EXIT MODE
040802,001162: # AT L+2 OF CALLING SEQUENCE
040803,001163:
040804,001164: # SUBROUTINES CALLED
040805,001165: # INTSTALL
040806,001166: # INTEGRVS
040807,001167:
040808,001168: # OUTPUT
040809,001169: # PUSHLIST
|
|
Page 915 |
040811,001171: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
040812,001172: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
040813,001173: # MPAC
040814,001174: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
040815,001175: # OTHER
040816,001176: # R(T2)/ AS IN PUSHLIST
040817,001177: # V(T2)/ AS IN MPAC
040818,001178: # T2 FINAL TIME DP B28 CS
040819,001179:
040820,001180: 31,2000 SETLOC RTE3
040821,001181: 31,2000 BANK
040822,001182: 31,3700 45020 RTENCK1 STQ CALL
040823,001183: 31,3701 03733 RTENCKEX
040824,001184: 31,3702 27442 INTSTALL
040825,001185: 31,3703 43175 VLOAD SET
040826,001186: 31,3704 03640 R(T1)/
040827,001187: 31,3705 01473 INTYPFLG
040828,001188: 31,3706 77650 GOTO
040829,001189: 31,3707 63734 RTENCK3B
040830,001190:
040831,001191: 31,3710 45020 RTENCK2 STQ CALL
040832,001192: 31,3711 03733 RTENCKEX
040833,001193: 31,3712 27442 INTSTALL
040834,001194: 31,3713 77214 CLEAR VLOAD
040835,001195: 31,3714 01673 INTYPFLG
040836,001196: 31,3715 03656 R(T2)/
040837,001197: 31,3716 25535 STOVL RCV
040838,001198: 31,3717 03710 V(T2)/
040839,001199: 31,3720 15543 STODL VCV
040840,001200: 31,3721 03736 T2
040841,001201: 31,3722 01517 STORE TET
040842,001202: 31,3723 77615 DAD
040843,001203: 31,3724 77650 GOTO
040844,001204: 31,3725 63742 RTENCK3D
040845,001205:
040846,001206: 31,3726 45020 RTENCK3 STQ CALL
040847,001207: 31,3727 03733 RTENCKEX
040848,001208: 31,3730 27442 INTSTALL
040849,001209: 31,3731 43175 RTENCK3A VLOAD CLEAR
040850,001210: 31,3732 03640 R(T1)/
040851,001211: 31,3733 01673 INTYPFLG
040852,001212: 31,3734 25535 RTENCK3B STOVL RCV
040853,001213: 31,3735 03700 V2(T1)/
040854,001214: 31,3736 15543 STODL VCV
040855,001215: 31,3737 03716 T1
040856,001216: 31,3740 15517 STODL TET
040857,001217: 31,3741 03736 T2
|
|
Page 916 |
040859,001219: 31,3742 00041 RTENCK3D STORE TDEC1
040860,001220: 31,3743 45014 CLEAR CALL
040861,001221: 31,3744 00263 MOONFLAG
040862,001222: 31,3745 27135 INTEGRVS
040863,001223: 31,3746 77775 VLOAD
040864,001224: 31,3747 00001 RATT
040865,001225: 31,3750 03656 STORE R(T2)/
040866,001226: 31,3751 70125 PDDL LXC,1
040867,001227: 31,3752 00015 TAT
040868,001228: 31,3753 03734 CONICX1
040869,001229: 31,3754 27736 STOVL T2
040870,001230: 31,3755 00007 VATT
040871,001231: 31,3756 03710 STORE V(T2)/
040872,001232: 31,3757 77650 GOTO
040873,001233: 31,3760 03733 RTENCKEX
040874,001234: 32,2000 SETLOC RTE
040875,001235: 32,2000 BANK
040876,001236:
|
|
Page 917 |
040878,001238: # V2(T1) COMPUTATION SUBROUTINE
040879,001239:
040880,001240: # DESCRIPTION
040881,001241: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
040882,001242: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
040883,001243: # (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
040884,001244: # AND CONSEQUENTLY FUEL.
040885,001245:
040886,001246: # CALLING SEQUENCE
040887,001247: # L CALL
040888,001248: # L+1 V2T100
040889,001249:
040890,001250: # NORMAL EXIT MODE
040891,001251: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
040892,001252:
040893,001253: # ALARM EXIT MODE
040894,001254: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
040895,001255:
040896,001256: # SUBROUTINES CALLED
040897,001257: # GAMDV10
040898,001258: # XT1LIM
040899,001259: # DVCALC
040900,001260:
040901,001261: # ERASABLE INITIALIZATION REQUIRED
040902,001262: # PUSHLIST
040903,001263: # NONE
040904,001264: # MPAC
040905,001265: # NONE
040906,001266: # OTHER
040907,001267: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
040908,001268: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
040909,001269: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040910,001270: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
040911,001271: # UR1/ UNIT INITIAL VECTOR VECTOR B1
040912,001272: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
040913,001273: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
040914,001274: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
040915,001275: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
040916,001276: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
040917,001277: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
040918,001278: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE, +1 APOGEE
040919,001279: # N1 CONIC OR PRECISION ITERATION COUNTER DP B28 NEGATIVE CONIC,PLUS PREC
040920,001280:
040921,001281: # OUTPUT
040922,001282: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
040923,001283: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
040924,001284: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
040925,001285: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
040926,001286: # BETA1 1+X(T2)**2 DP B1
040927,001287:
|
|
Page 918 |
040929,001289:
040930,001290: # DEBRIS
040931,001291: # PUSHLIST
040932,001292: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
040933,001293: # 02D THETA1=BETA5*LAMBDA-1 TP B17
040934,001294: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
040935,001295: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
040936,001296: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
040937,001297: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
040938,001298: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
040939,001299: # 16D DX(T1)=ITERATOR INCREMENT DP B5
040940,001300: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
040941,001301: # 32D DVCALC SUBROUTINE RETURN ADDRESS
040942,001302: # 33D V2T100 SUBROUTINE RETURN ADDRESS
040943,001303:
040944,001304: 32,3075 71220 V2T100 STQ DLOAD
040945,001305: 32,3076 00041 33D
040946,001306: 32,3077 03636 RCON
040947,001307: 32,3100 45240 BMN DSU # ABORT IF RCON NEGATIVE
040948,001308: 32,3101 65105 V2TERROR
040949,001309: 32,3102 03646 R(T1)
040950,001310: 32,3103 77640 BMN
040951,001311: 32,3104 65110 V2T101
040952,001312: 32,3105 77776 V2TERROR EXIT # OR IF LAMBDA LESS THAN ONE
040953,001313: 32,3106 05721 TC POODOO # NO SOLUTION IF LAMBDA LESS THAN 1
040954,001314: 32,3107 00610 OCT 00610
040955,001315: 32,3110 43001 V2T101 SETPD CLEAR
040956,001316: 32,3111 00001 0 # PL00D
040957,001317: 32,3112 00272 F2RTE
040958,001318: 32,3113 60345 DLOAD NORM
040959,001319: 32,3114 03636 RCON
040960,001320: 32,3115 00047 X1
040961,001321: 32,3116 60325 PDDL NORM
040962,001322: 32,3117 03646 R(T1)
040963,001323: 32,3120 00051 S1
040964,001324: 32,3121 00013 STORE 10D
040965,001325: 32,3122 56342 SR1 DDV # R1/RCON = LAMBDA B1
040966,001326: 32,3123 65260 XSU,1 PDDL # PL02D
040967,001327: 32,3124 00050 S1
040968,001328: 32,3125 03726 X(T2)
040969,001329: 32,3126 77716 DSQ
040970,001330: 32,3127 43342 SR1 DAD
040971,001331: 32,3130 33500 1RTEB1
040972,001332: 32,3131 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
040973,001333: 32,3132 77605 DMP
040974,001334: 32,3133 00001 00D
040975,001335: 32,3134 00035 STORE 28D # BETAI*LAMBDA = BETA5
040976,001336: 32,3135 53605 DMP SL*
040977,001337: 32,3136 00001 00D
040978,001338: 32,3137 20172 0 -7,1
040979,001339: 32,3140 45257 SL* DSU
|
|
Page 919 |
040981,001341: 32,3141 20172 0 -7,1
040982,001342: 32,3142 33516 1RTEB17
040983,001343: 32,3143 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 PL05D
040984,001344: 32,3144 45565 TPMODE
040985,001345: 32,3145 33500 1RTEB1
040986,001346: 32,3146 57457 SR* DCOMP
040987,001347: 32,3147 20601 0,1
040988,001348: 32,3150 41215 DAD DMP
040989,001349: 32,3151 00001 00D
040990,001350: 32,3152 03646 R(T1)
040991,001351: 32,3153 47057 SL* RTB
040992,001352: 32,3154 20172 0 -7D,1
040993,001353: 32,3155 45565 TPMODE
040994,001354: 32,3156 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
040995,001355: 32,3157 33632 RTMURTE
040996,001356: 32,3160 70501 NORM SR1
040997,001357: 32,3161 00050 X2
040998,001358: 32,3162 56264 XSU,2 DDV
040999,001359: 32,3163 00050 S1
041000,001360: 32,3164 00013 10D
041001,001361: 32,3165 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
041002,001362: 32,3166 57170 6,2
041003,001363: 32,3167 03652 MAMAX1
041004,001364: 32,3170 41406 PUSH PUSH # MAMAX1=MA
041005,001365: 32,3171 77624 CALL
041006,001366: 32,3172 65734 XT1LIM
041007,001367: 32,3173 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
041008,001368: 32,3174 40476 DCOMP SR4
041009,001369: 32,3175 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
041010,001370: 32,3176 03654 MAMAX2
041011,001371: 32,3177 45006 PUSH CALL
041012,001372: 32,3200 65734 XT1LIM
041013,001373: 32,3201 50125 PDDL BMN # X(T1)MAX B5 PL16D
041014,001374: 32,3202 03730 NN1A
041015,001375: 32,3203 65206 V2T102
041016,001376: 32,3204 77650 GOTO
041017,001377: 32,3205 65220 V2T110
041018,001378:
041019,001379: # PROCEED HERE IF NOT PRECISION COMPUTATION
041020,001380:
041021,001381: 32,3206 77745 V2T102 DLOAD
041022,001382: 32,3207 03632 RTEDVD
041023,001383: 32,3210 52054 BZE GOTO
041024,001384: 32,3211 65213 V2T105
041025,001385: 32,3212 65314 V2T140
041026,001386: 32,3213 50145 V2T105 DLOAD BMN
041027,001387: 32,3214 03757 CFPA
041028,001388: 32,3215 65314 V2T140
041029,001389: 32,3216 77650 GOTO
041030,001390: 32,3217 65322 V2T145
|
|
Page 920 |
041032,001392: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
041033,001393: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
041034,001394: # THROUGH X(T2)
041035,001395:
041036,001396: 32,3220 47145 V2T110 DLOAD RTB
041037,001397: 32,3221 33516 1RTEB17
041038,001398: 32,3222 45565 TPMODE
041039,001399: 32,3223 65276 DCOMP PDDL # -1 B17 PL19D
041040,001400: 32,3224 33542 2RTEB1
041041,001401: 32,3225 45257 SR* DSU
041042,001402: 32,3226 20601 0,1
041043,001403: 32,3227 00001 00D
041044,001404: 32,3230 53605 DMP SL*
041045,001405: 32,3231 00035 28D
041046,001406: 32,3232 20172 0 -7,1
041047,001407: 32,3233 76257 SL* TAD
041048,001408: 32,3234 20172 0 -7,1
041049,001409: 32,3235 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
041050,001410: 32,3236 45565 TPMODE
041051,001411: 32,3237 03722 X(T1)
041052,001412: 32,3240 00001 STORE 00D # X(T1),, B5
041053,001413: 32,3241 77751 TLOAD # PL16D
041054,001414: 32,3242 53040 BMN BZE
041055,001415: 32,3243 65250 V2T115
041056,001416: 32,3244 65250 V2T115
041057,001417: 32,3245 52061 SL GOTO
041058,001418: 32,3246 20210 7
041059,001419: 32,3247 65261 V2T120
041060,001420: 32,3250 50145 V2T115 DLOAD BMN
041061,001421: 32,3251 03761 PHI2
041062,001422: 32,3252 65272 V2T125
041063,001423: 32,3253 77676 DCOMP
041064,001424: 32,3254 17761 STODL PHI2
041065,001425: 32,3255 33532 10RTE
041066,001426: 32,3256 03730 STORE NN1A
041067,001427: 32,3257 77650 GOTO
041068,001428: 32,3260 65272 V2T125
041069,001429: 32,3261 47166 V2T120 SQRT RTB
041070,001430: 32,3262 45716 DPMODE
041071,001431: 32,3263 50125 PDDL BMN # BETA6**.5=X(T1)LIM B5 PL18D
041072,001432: 32,3264 03761 PHI2
041073,001433: 32,3265 65300 V2T130
041074,001434: 32,3266 45545 DLOAD STADR # PL16D
041075,001435: 32,3267 77760 STORE 14D # X(T1)LIM = X(T1)MAX
041076,001436: 32,3270 77676 DCOMP
041077,001437: 32,3271 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
041078,001438: 32,3272 53145 V2T125 DLOAD BZE
041079,001439: 32,3273 03722 X(T1)
041080,001440: 32,3274 65314 V2T140
041081,001441: 32,3275 52040 BMN GOTO
|
|
Page 921 |
041083,001443: 32,3276 65314 V2T140
041084,001444: 32,3277 65322 V2T145
041085,001445: 32,3300 53145 V2T130 DLOAD BZE
041086,001446: 32,3301 03722 X(T1)
041087,001447: 32,3302 65311 V2T135
041088,001448: 32,3303 71240 BMN DLOAD # PL16D
041089,001449: 32,3304 65311 V2T135
041090,001450: 32,3305 77626 STADR
041091,001451: 32,3306 77764 STORE 10D # X(T1)LIM = X(T1)MIN
041092,001452: 32,3307 77650 GOTO
041093,001453: 32,3310 65322 V2T145
041094,001454: 32,3311 57545 V2T135 DLOAD DCOMP # PL16D
041095,001455: 32,3312 77626 STADR
041096,001456: 32,3313 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
041097,001457: 32,3314 77745 V2T140 DLOAD
041098,001458: 32,3315 00013 10D
041099,001459: 32,3316 17722 STODL X(T1) # X(T1)MIN = X(T1)
041100,001460: 32,3317 00015 12D
041101,001461: 32,3320 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
041102,001462: 32,3321 65327 V2T150
041103,001463: 32,3322 77745 V2T145 DLOAD
041104,001464: 32,3323 00017 14D
041105,001465: 32,3324 17722 STODL X(T1) # X(T1)MAX = X(T1)
041106,001466: 32,3325 00015 12D
041107,001467: 32,3326 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
041108,001468: 32,3327 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
041109,001469: 32,3330 65457 GAMDV10
041110,001470: 32,3331 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
041111,001471: 32,3332 03632 RTEDVD
041112,001472: 32,3333 65455 V2T1X
041113,001473:
041114,001474: # CONTINUE IF TIME CRITICAL MODE
041115,001475:
041116,001476: 32,3334 50025 DSU BMN
041117,001477: 32,3335 03706 DV
041118,001478: 32,3336 65341 V2T155
041119,001479: 32,3337 77650 GOTO
041120,001480: 32,3340 65374 V2T175
041121,001481: 32,3341 50145 V2T155 DLOAD BMN
041122,001482: 32,3342 03730 NN1A
041123,001483: 32,3343 65346 V2T160
041124,001484: 32,3344 77650 GOTO
041125,001485: 32,3345 65416 V2T185
041126,001486:
041127,001487: # CONIC TRAJECTORY COMPUTATION
041128,001488:
041129,001489: 32,3346 53145 V2T160 DLOAD BZE
041130,001490: 32,3347 03722 X(T1)
041131,001491: 32,3350 65354 V2T165
041132,001492: 32,3351 52040 BMN GOTO
|
|
Page 922 |
041134,001494: 32,3352 65354 V2T165
041135,001495: 32,3353 65453 V2T300
041136,001496: 32,3354 53145 V2T165 DLOAD BZE
041137,001497: 32,3355 03757 CFPA
041138,001498: 32,3356 65453 V2T300
041139,001499: 32,3357 71240 BMN DLOAD
041140,001500: 32,3360 65453 V2T300
041141,001501: 32,3361 00017 14D
041142,001502: 32,3362 17722 STODL X(T1) # X(T1)MAX=X(T1)
041143,001503: 32,3363 00015 12D
041144,001504: 32,3364 77676 DCOMP
041145,001505: 32,3365 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
041146,001506: 32,3366 65457 GAMDV10
041147,001507: 32,3367 45345 DLOAD DSU
041148,001508: 32,3370 03632 RTEDVD
041149,001509: 32,3371 03706 DV
041150,001510: 32,3372 77640 BMN
041151,001511: 32,3373 65453 V2T300
041152,001512: 32,3374 71214 V2T175 SET DLOAD
041153,001513: 32,3375 00072 F2RTE
041154,001514: 32,3376 03722 X(T1)
041155,001515: 32,3377 77614 BOFF
041156,001516: 32,3400 02742 SLOWFLG
041157,001517: 32,3401 65406 V2T177
041158,001518: 32,3402 14013 STODL 10D # X(T1)MIN
041159,001519: 32,3403 00015 12D # DX(T1)MAX
041160,001520: 32,3404 77650 GOTO
041161,001521: 32,3405 65411 V2T179
041162,001522: 32,3406 14017 V2T177 STODL 14D
041163,001523: 32,3407 00015 12D
041164,001524: 32,3410 77676 DCOMP
041165,001525: 32,3411 34021 V2T179 STCALL 16D # DX(T1)
041166,001526: 32,3412 65457 GAMDV10
041167,001527: 32,3413 50145 DLOAD BMN
041168,001528: 32,3414 03730 NN1A
041169,001529: 32,3415 65453 V2T300
041170,001530:
041171,001531: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
041172,001532: # PRECISION TRAJECTORY
041173,001533:
041174,001534: 32,3416 45345 V2T185 DLOAD DSU
041175,001535: 32,3417 03722 X(T1)
041176,001536: 32,3420 00001 00D
041177,001537: 32,3421 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
041178,001538: 32,3422 00015 12D
041179,001539: 32,3423 44352 SL1 BDSU
041180,001540: 32,3424 71240 BMN DLOAD
041181,001541: 32,3425 65453 V2T300
041182,001542: 32,3426 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
041183,001543: 32,3427 03722 STORE X(T1) # X(T1),, = X(T1)
|
|
Page 923 |
041185,001545: 32,3430 50025 DSU BMN
041186,001546: 32,3431 00017 14D
041187,001547: 32,3432 65440 V2T195
041188,001548: 32,3433 77745 DLOAD
041189,001549: 32,3434 00017 14D
041190,001550: 32,3435 03722 STORE X(T1) # X(T1)MAX = X(T1)
041191,001551: 32,3436 77650 GOTO
041192,001552: 32,3437 65451 V2T205
041193,001553: 32,3440 45345 V2T195 DLOAD DSU
041194,001554: 32,3441 03722 X(T1)
041195,001555: 32,3442 00013 10D
041196,001556: 32,3443 52040 BMN GOTO
041197,001557: 32,3444 65446 V2T200
041198,001558: 32,3445 65451 V2T205
041199,001559: 32,3446 77745 V2T200 DLOAD
041200,001560: 32,3447 00013 10D
041201,001561: 32,3450 03722 STORE X(T1) # X(T1)MIN = X(T1)
041202,001562: 32,3451 77624 V2T205 CALL
041203,001563: 32,3452 65660 DVCALC
041204,001564: 32,3453 77745 V2T300 DLOAD
041205,001565: 32,3454 33524 ZERORTE
041206,001566: 32,3455 77650 V2T1X GOTO
041207,001567: 32,3456 00041 33D
041208,001568:
|
|
Page 924 |
041210,001570: # X(T1)-DV ITERATOR SUBROUTINE
041211,001571:
041212,001572: # DESCRIPTION
041213,001573: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
041214,001574:
041215,001575: # CALLING SEQUENCE
041216,001576: # L CALL
041217,001577: # L+1 GAMDV10
041218,001578:
041219,001579: # NORMAL EXIT MODE
041220,001580: # AT L+2 OF CALLING SEQUENCE
041221,001581:
041222,001582: # ALARM EXIT MODE
041223,001583: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
041224,001584:
041225,001585: # SUBROUTINES CALLED
041226,001586: # DVCALC
041227,001587:
041228,001588: # ERASABLE INITIALIZATION REQUIRED
041229,001589: # PUSHLIST
041230,001590: # 02D THETA1=BETA5*LAMBDA-1 TP B17
041231,001591: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
041232,001592: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
041233,001593: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
041234,001594: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
041235,001595: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
041236,001596: # 16D DX(T1)=ITERATOR INCREMENT DP B5
041237,001597: # MPAC
041238,001598: # NONE
041239,001599: # OTHER
041240,001600: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
041241,001601: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
041242,001602: # UR1/ UNIT INITIAL VECTOR VECTOR B1
041243,001603: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
041244,001604: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
041245,001605: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
041246,001606:
041247,001607: # OUTPUT
041248,001608: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
041249,001609: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
041250,001610: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
041251,001611: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
041252,001612:
041253,001613: # DEBRIS
041254,001614: # PUSHLIST
041255,001615: # 00D X(T1),,
041256,001616: # 02D THETA1
041257,001617: # 05D THETA2
041258,001618: # 08D THETA3
041259,001619: # 10D X(T1)MIN
041260,001620: # 12D DX(T1)MAX
|
|
Page 925 |
041262,001622: # 14D X(T1)MAX
041263,001623: # 16D DX(T1)
041264,001624: # 22D DV,=PREVIOUS DV DP B7/B5
041265,001625: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
041266,001626: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
041267,001627: # 32D DVCALC SUBROUTINE RETURN ADDRESS
041268,001628: # 33D V2T100 SUBROUTINE RETURN ADDRESS
041269,001629:
041270,001630: 32,3457 77620 GAMDV10 STQ
041271,001631: 32,3460 00037 31D
041272,001632: 32,3461 45001 SETPD CALL
041273,001633: 32,3462 00023 18D # PL18D
041274,001634: 32,3463 65660 DVCALC
041275,001635: 32,3464 45345 DLOAD DSU
041276,001636: 32,3465 00017 14D
041277,001637: 32,3466 00013 10D
041278,001638: 32,3467 77600 BOV
041279,001639: 32,3470 65510 GAMDV20
041280,001640: 32,3471 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
041281,001641: 32,3472 33614 EPC9RTE
041282,001642: 32,3473 71240 BMN DLOAD
041283,001643: 32,3474 65656 GAMDVX # BOUNDS CLOSE TOGETHER
041284,001644: 32,3475 00023 18D
041285,001645: 32,3476 50025 DSU BMN # BETA8-DX(T1)MAX
041286,001646: 32,3477 00015 12D
041287,001647: 32,3500 65504 GAMDV15
041288,001648: 32,3501 52001 SETPD GOTO # PL18D
041289,001649: 32,3502 00023 18D
041290,001650: 32,3503 65510 GAMDV20
041291,001651: 32,3504 77745 GAMDV15 DLOAD # PL18D
041292,001652: 32,3505 70565 SIGN SR1
041293,001653: 32,3506 00021 16D
041294,001654: 32,3507 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
041295,001655: 32,3510 77745 GAMDV20 DLOAD
041296,001656: 32,3511 33526 M144RTE
041297,001657: 32,3512 03732 STORE NN2
041298,001658: 32,3513 43345 GAMDV25 DLOAD DAD
041299,001659: 32,3514 03732 NN2
041300,001660: 32,3515 33522 1RTEB28
041301,001661: 32,3516 67240 BMN SLOAD
041302,001662: 32,3517 65523 GAMDV30
041303,001663: 32,3520 33562 OCT605
041304,001664: 32,3521 77650 GOTO
041305,001665: 32,3522 65455 V2T1X
041306,001666: 32,3523 03732 GAMDV30 STORE NN2 # NN2=NN2+1
041307,001667: 32,3524 65345 DLOAD PDDL # X(T1)=X(T1), B5 PL20D
041308,001668: 32,3525 03722 X(T1)
041309,001669: 32,3526 03706 DV
041310,001670: 32,3527 43325 PDDL DAD # DV=DV, B7/B5 PL22D
041311,001671: 32,3530 03722 X(T1)
041312,001672: 32,3531 00021 16D
|
|
Page 926 |
041314,001674: 32,3532 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
041315,001675: 32,3533 65660 DVCALC
041316,001676: 32,3534 71214 BON DLOAD
041317,001677: 32,3535 00312 F2RTE
041318,001678: 32,3536 65552 GAMDV35
041319,001679: 32,3537 03706 DV
041320,001680: 32,3540 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
041321,001681: 32,3541 00025 20D
041322,001682: 32,3542 65547 GAMDV33
041323,001683: 32,3543 57545 GAMDV32 DLOAD DCOMP
041324,001684: 32,3544 00021 16D
041325,001685: 32,3545 77742 SR1
041326,001686: 32,3546 00021 STORE 16D
041327,001687: 32,3547 52001 GAMDV33 SETPD GOTO
041328,001688: 32,3550 00023 18D # PL18D
041329,001689: 32,3551 65615 GAMDV50
041330,001690:
041331,001691: # TIME CRITICAL MODE
041332,001692:
041333,001693: 32,3552 45345 GAMDV35 DLOAD DSU
041334,001694: 32,3553 03632 RTEDVD
041335,001695: 32,3554 03706 DV
041336,001696: 32,3555 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
041337,001697: 32,3556 51545 GAMDV40 DLOAD ABS # DV, PL24D
041338,001698: 32,3557 00025 20D
041339,001699: 32,3560 50025 DSU BMN
041340,001700: 32,3561 33616 EPC10RTE
041341,001701: 32,3562 65656 GAMDVX
041342,001702: 32,3563 71204 GAMDV45 BOVB DLOAD
041343,001703: 32,3564 57352 TCDANZIG # ASSURE OVFIND IS 0
041344,001704: 32,3565 60221 BDSU NORM
041345,001705: 32,3566 03706 DV
041346,001706: 32,3567 00050 X2
041347,001707: 32,3570 77725 PDDL # DV-DV, B7/B5-N2 PL22D
041348,001708: 32,3571 70501 NORM SR1 # DVERR B8/B6-N1
041349,001709: 32,3572 00047 X1
041350,001710: 32,3573 65271 DDV PDDL # DVERR/ DV - DV
041351,001711: 32,3574 41221 BDSU DMP # PL18D
041352,001712: 32,3575 03722 X(T1)
041353,001713: 32,3576 77660 XSU,1
041354,001714: 32,3577 00047 X2
041355,001715: 32,3600 00021 STORE 16D # PRESERVE SIGN IF OVERFLOW
041356,001716: 32,3601 40057 SR* BOV
041357,001717: 32,3602 20600 0 -1,1
041358,001718: 32,3603 65611 GAMDV47
041359,001719: 32,3604 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
041360,001720: 32,3605 45246 ABS DSU
041361,001721: 32,3606 00015 12D
041362,001722: 32,3607 77640 BMN
041363,001723: 32,3610 65615 GAMDV50
|
|
Page 927 |
041365,001725: 32,3611 75345 GAMDV47 DLOAD SIGN
041366,001726: 32,3612 00015 12D
041367,001727: 32,3613 00021 16D
041368,001728: 32,3614 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
041369,001729:
041370,001730: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
041371,001731:
041372,001732: 32,3615 41345 GAMDV50 DLOAD DMP
041373,001733: 32,3616 00021 16D
041374,001734: 32,3617 33536 1.1RTEB1
041375,001735: 32,3620 43352 SL1 DAD
041376,001736: 32,3621 03722 X(T1)
041377,001737: 32,3622 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
041378,001738: 32,3623 50025 DSU BMN
041379,001739: 32,3624 00017 14D
041380,001740: 32,3625 65634 GAMDV55
041381,001741: 32,3626 45345 DLOAD DSU
041382,001742: 32,3627 00017 14D
041383,001743: 32,3630 03722 X(T1)
041384,001744: 32,3631 77742 SR1
041385,001745: 32,3632 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
041386,001746: 32,3633 65647 GAMDV65
041387,001747: 32,3634 45345 GAMDV55 DLOAD DSU
041388,001748: 32,3635 00031 24D
041389,001749: 32,3636 00013 10D
041390,001750: 32,3637 52040 BMN GOTO
041391,001751: 32,3640 65642 GAMDV60
041392,001752: 32,3641 65647 GAMDV65
041393,001753: 32,3642 45345 GAMDV60 DLOAD DSU
041394,001754: 32,3643 00013 10D
041395,001755: 32,3644 03722 X(T1)
041396,001756: 32,3645 77742 SR1
041397,001757: 32,3646 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
041398,001758: 32,3647 51545 GAMDV65 DLOAD ABS
041399,001759: 32,3650 00021 16D
041400,001760: 32,3651 50025 DSU BMN
041401,001761: 32,3652 33614 EPC9RTE
041402,001762: 32,3653 65656 GAMDVX
041403,001763: 32,3654 77650 GOTO
041404,001764: 32,3655 65513 GAMDV25
041405,001765: 32,3656 77650 GAMDVX GOTO
041406,001766: 32,3657 00037 31D
041407,001767:
|
|
Page 928 |
041409,001769: # DV CALCULATION SUBROUTINE
041410,001770:
041411,001771: # INPUT
041412,001772: # PUSHLIST
041413,001773: # 02D THETA1=BETA5*LAMBDA-1 TP B17
041414,001774: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
041415,001775: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
041416,001776: # OTHER
041417,001777: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
041418,001778: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
041419,001779: # UR1/ UNIT INITIAL VECTOR VECTOR B1
041420,001780: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
041421,001781:
041422,001782: # OUTPUT
041423,001783: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
041424,001784: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
041425,001785: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
041426,001786:
041427,001787: # DEBRIS
041428,001788: # 28D THETA3*PCON**.5 DP B10/B8-N1
041429,001789: # C(PUSLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
041430,001790: # 32D DVCALC SUBROUTINE RETURN ADDRESS
041431,001791: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
041432,001792:
041433,001793: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
041434,001794:
041435,001795: 32,3660 71220 DVCALC STQ DLOAD
041436,001796: 32,3661 00040 32D
041437,001797: 32,3662 03722 X(T1)
041438,001798: 32,3663 54316 DSQ SR
041439,001799: 32,3664 20610 7
041440,001800: 32,3665 76276 DCOMP TAD
041441,001801: 32,3666 00003 02D
041442,001802: 32,3667 41501 NORM PUSH
041443,001803: 32,3670 00047 X1
041444,001804: 32,3671 60351 TLOAD NORM
041445,001805: 32,3672 00006 05D
041446,001806: 32,3673 00050 X2
041447,001807: 32,3674 70434 RTB SR1
041448,001808: 32,3675 45716 DPMODE
041449,001809: 32,3676 56264 XSU,2 DDV
041450,001810: 32,3677 00046 X1
041451,001811: 32,3700 77657 SR*
041452,001812: 32,3701 57170 6,2
041453,001813: 32,3702 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
041454,001814: 32,3703 41366 SQRT DMP
041455,001815: 32,3704 00011 08D
041456,001816: 32,3705 77701 NORM
041457,001817: 32,3706 00047 X1
041458,001818: 32,3707 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
|
|
Page 929 |
041460,001820: 32,3710 03722 X(T1)
041461,001821: 32,3711 74301 NORM VXSC
041462,001822: 32,3712 00050 X2
041463,001823: 32,3713 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
041464,001824: 32,3714 74274 XAD,2 VXSC
041465,001825: 32,3715 00046 X1
041466,001826: 32,3716 00035 28D
041467,001827: 32,3717 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
041468,001828: 32,3720 57207 0 -9D,2 # +
041469,001829: 32,3721 03746 UH/
041470,001830: 32,3722 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
041471,001831: 32,3723 00035 28D
041472,001832: 32,3724 20575 0 -4,1 # =
041473,001833: 32,3725 45455 VAD STADR
041474,001834: 32,3726 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
041475,001835: 32,3727 51451 VSU ABVAL
041476,001836: 32,3730 03672 V(T1)/
041477,001837: 32,3731 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
041478,001838: 32,3732 77650 GOTO
041479,001839: 32,3733 00040 32D
041480,001840:
|
|
Page 930 |
041482,001842: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
041483,001843:
041484,001844: # INPUT
041485,001845: # PUSHLIST
041486,001846: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
041487,001847: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
041488,001848: # 28D BETA5=LAMBDA*BETA1 DP B9
041489,001849: # OTHER
041490,001850: # RCON DP B29/B27
041491,001851: # R(T1) DP B29/B27
041492,001852:
041493,001853: # OUTPUT
041494,001854: # MPAC
041495,001855: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
041496,001856:
041497,001857: # DEBRIS
041498,001858: # PUSHLIST
041499,001859: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
041500,001860: # C(PSHLOC)+2 MA DP B30/B28
041501,001861: # X1 NORMALIZATION FACTOR FOR MA-RCON
041502,001862: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
041503,001863:
041504,001864: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
041505,001865:
041506,001866: 32,3734 71220 XT1LIM STQ DLOAD
041507,001867: 32,3735 00024 20D
041508,001868: 32,3736 03636 RCON
041509,001869: 32,3737 44342 SR1 BDSU
041510,001870: 32,3740 65301 NORM PDDL # MA-RCON B30-N1
041511,001871: 32,3741 00050 X2
041512,001872: 32,3742 70525 PDDL SR1
041513,001873: 32,3743 03646 R(T1)
041514,001874: 32,3744 56221 BDSU DDV
041515,001875: 32,3745 41257 SL* DMP
041516,001876: 32,3746 57601 0 -3,2 # B3
041517,001877: 32,3747 00035 28D
041518,001878: 32,3750 45257 SL* DSU # BETA10=BETA5(MA-RT)/(MA-RC)-1 B11
041519,001879: 32,3751 20173 0 -6,1
041520,001880: 32,3752 33521 1RTEB25 +1 # 1.0 B-11
041521,001881: 32,3753 40152 SL1 BOV
041522,001882: 32,3754 65760 XT1LIM2 # B10
041523,001883: 32,3755 52040 BMN GOTO
041524,001884: 32,3756 65764 XT1LIM5
041525,001885: 32,3757 65762 XT1LIM3
041526,001886: 32,3760 77745 XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW
041527,001887: 32,3761 33542 2RTEB1
041528,001888: 32,3762 52166 XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10) B5
041529,001889: 32,3763 65766 XT1LIMX
041530,001890: 32,3764 77745 XT1LIM5 DLOAD
041531,001891: 32,3765 33524 ZERORTE
041532,001892: 32,3766 77650 XT1LIMX GOTO
041533,001893: 32,3767 00024 20D
041534,001894:
|
|
Page 931 |
041536,001896: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
041537,001897:
041538,001898: 36,3254 BANK 36
041539,001899: 35,2000 SETLOC RTECON1
041540,001900: 35,2000 BANK
041541,001901:
041542,001902: 35,3477 20000 00000 1RTEB1 2DEC 1. B-1
041543,001903: 35,3501 10000 00000 1RTEB2 2DEC 1. B-2
041544,001904: 35,3503 04000 00000 1RTEB3 2DEC 1. B-3
041545,001905: 35,3505 02000 00000 1RTEB4 2DEC 1. B-4
041546,001906: 35,3507 00020 00000 1RTEB10 2DEC 1. B-10
041547,001907: 35,3511 00004 00000 1RTEB12 2DEC 1. B-12
041548,001908: 35,3513 00002 00000 1RTEB13 2DEC 1. B-13
041549,001909: 35,3515 00000 04000 1RTEB17 2DEC 1. B-17
041550,001910: 35,3517 00000 00010 1RTEB25 2DEC 1. B-25
041551,001911: # * * B25 AND B28 MUST BE CONSECUTIVE * *
041552,001912: 35,3521 00000 00001 1RTEB28 2DEC 1. B-28
041553,001913: 35,3523 00000 00000 ZERORTE 2DEC 0 B-28
041554,001914: 35,3525 77777 77557 M144RTE 2DEC -144. B-28
041555,001915: 35,3527 77777 77760 M15RTE 2DEC -15 B-28
041556,001916: 35,3531 00000 00012 10RTE 2DEC 10 B-28
041557,001917: 35,3533 54631 63145 M.6RTE 2DEC -.6
041558,001918: 35,3535 21463 06315 1.1RTEB1 2DEC 1.1 B-1
041559,001919: 35,3537 77777 77771 M6RTEB28 2DEC -6 B-28
041560,001920: 35,3541 37777 37777 2RTEB1 2OCT 3777737777
041561,001921: 35,3543 77777 77766 M9RTEB28 2DEC -9 B-28
041562,001922: 35,3545 77777 77767 M8RTEB28 2DEC -8 B-28
041563,001923: 35,3547 00000 35610 30480RTE 2DEC 30480. B-29
041564,001924: 35,3551 37405 12250 VCSPS 2DEC 31.510396 B-5 # (SEE 2VEXHUST)
|
|
Page 932 |
041566,001926: 35,3553 33041 37714 VCRCS 2DEC 27.0664 B-5
041567,001927: 35,3555 00003 13241 MDOTRCS 2DEC .0016375 B-3
041568,001928: 35,3557 20000 00000 CSUBT 2DEC .5
041569,001929: 35,3561 00605 OCT605 OCT 00605
041570,001930: 35,3562 00612 OCT612 OCT 00612
041571,001931: 35,3563 40214 45266 MCOS7.5 2DEC -.99144486
041572,001932: 35,3565 73645 56536 MSIN7.5 2DEC -.13052619
041573,001933: 35,3567 70467 71205 MCOS22.5 2DEC -.92387953 B-2
041574,001934: 35,3571 16525 12525 THETA165 2DEC .4583333333
041575,001935: 35,3573 22525 12525 THETA210 2DEC .5833333333
041576,001936: 35,3575 17775 06676 EPC1RTE 2DEC .99966 B-1
041577,001937: 35,3577 00000 00062 EPC2RTE 2DEC 100. B-29
041578,001938: 35,3601 00020 14223 EPC3RTE 2DEC .001
041579,001939: 35,3603 00000 05174 EPC4RTE 2DEC .00001
041580,001940: 35,3605 00002 21727 EPC5RTE 2DEC .01 B-6
041581,001941: 35,3607 00000 01654 EPC6RTE 2DEC .000007 B-1
041582,001942: 35,3611 00000 00764 EPC7RTE 2DEC 1000. B-29
041583,001943: 35,3613 00000 00010 EPC9RTE 2DEC 1. B-25
041584,001944: 35,3615 00000 00322 EPC10RTE 2DEC .0001 B-7
041585,001945:
041586,001946: 35,3617 BANK 35
041587,001947: 35,2000 SETLOC RTECON1
041588,001948: 35,2000 BANK
041589,001949:
041590,001950: 35,3617 75725 75417 C4RTE 2DEC -6.986643 E7 B-30
041591,001951: 35,3621 00325 23740 K1RTE 2DEC 7. E6 B-29
041592,001952: 35,3623 00306 06614 K2RTE 2DEC 6495000. B-29
041593,001953: 35,3625 76027 70156 K3RTE 2DEC -.06105
041594,001954: 35,3627 74517 54131 K4RTE 2DEC -.10453
041595,001955: 35,3631 30276 05001 RTMURTE 2DEC 199650.501 B-18
|
|
Page 933 |
041597,001957: 35,3633 00003 27040 E3RTE 2DEC 121920. B-29
041598,001958:
End of include-file P37,P70.agc. Parent file is MAIN.agc