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