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