Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
036664,000002: ## Copyright: Public domain.
036665,000003: ## Filename: P37,P70.agc
036666,000004: ## Purpose: Part of the source code for Colossus build 237.
036667,000005: ## This is for the Command Module's (CM) Apollo Guidance
036668,000006: ## Computer (AGC), for Apollo 8.
036669,000007: ## Assembler: yaYUL
036670,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
036671,000009: ## Website: www.ibiblio.org/apollo/index.html
036672,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
036673,000011: ## Mod history: 2011-03-05 JL Adapted from corresponding Colossus 249 file.
036674,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
036675,000013: ## and fixed errors found.
036676,000014: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
036677,000015: ## vs Colossus 249.
036678,000016:
![]() |
Page 840 |
036680,000018: 31,3215 BANK 31
036681,000019: 36,2000 SETLOC RTE1
036682,000020: 36,2000 BANK
036683,000021:
036684,000022: 36,2502 E7,1631 EBANK= RTEDVD
036685,000023: 36,2502 COUNT 31/P37
036686,000024:
036687,000025: # PROGRAM DESCRIPTION - P37, RETURN TO EARTH
036688,000026:
036689,000027: # DESCRIPTION
036690,000028: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
036691,000029: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
036692,000030: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
036693,000031: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
036694,000032: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BYSPS PROGRAM (P40) OR RCS PROGRAM (P41).
036695,000033:
036696,000034: # CALLING SEQUENCE
036697,000035: # L TC P37
036698,000036:
036699,000037: # SUBROUTINES CALLED
036700,000038: # PREC100
036701,000039: # V2T100
036702,000040: # RTENCK2
036703,000041: # RTENCK3
036704,000042: # TIMERAD
036705,000043: # PARAM
036706,000044: # V2T100
036707,000045: # GAMDV10
036708,000046: # XT1LIM
036709,000047: # DVCALC
036710,000048: # RTENCK1
036711,000049: # INTSTALL
036712,000050: # INTEGRVS
036713,000051: # RTEVN
036714,000052: # RTEDISP
036715,000053: # TMRAD100
036716,000054: # AUGEKUGL
036717,000055: # LAT-LONG
036718,000056: # TMRAD100
036719,000057: # TIMERAD
036720,000058: # INVC100
036721,000059: # CSMPREC
036722,000060: # GETERAD
036723,000061: # TIMETHET
036724,000062: # P370ALRM
036725,000063: # VN1645
036726,000064: # POLY
036727,000065:
036728,000066: # ERASABLE INITIALIZATION REQUIRED
036729,000067: # CSM STATE VECTOR
![]() |
Page 841 |
036731,000069: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
036732,000070:
036733,000071: # ASTRONAUT INPUT
036734,000072: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
036735,000073: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
036736,000074: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
036737,000075: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
036738,000076:
036739,000077: # OUTPUT
036740,000078: # CONIC OR PRECISION TRAJECTORY DISPLAY
036741,000079: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
036742,000080: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
036743,000081: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
036744,000082: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
036745,000083: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
036746,000084: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
036747,000085: # TARGETING COMPUTATION DISPLAY
036748,000086: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
036749,000087: # TTOGO TIME FROM TIG DP B28 CS
036750,000088: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
036751,000089: # THRUST PROGRAM COMMUNICATION
036752,000090: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
036753,000091: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
036754,000092: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
036755,000093: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
036756,000094: # TPASS4 REENTRY TIME DP B28 CS
036757,000095:
036758,000096: 36,2502 05301 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE.
036759,000097: 36,2503 00004 OCT 4
036760,000098:
036761,000099: 36,2504 06006 TC INTPRET
036762,000100: 36,2505 66170 AXT,1 SXA,1
036763,000101: 36,2506 04000 OCT 04000
036764,000102: 36,2507 03424 ECSTEER
036765,000103: 36,2510 77776 EXIT
036766,000104: 36,2511 33242 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
036767,000105: 36,2512 03231 TCR P370GOF # OVERLAYED WITH TIG
036768,000106: 36,2513 12511 TCF -2 # DESPLAY NEW DATA
036769,000107: 36,2514 33246 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
036770,000108: 36,2515 03205 TCR P37GFRB1 # AND DESIRED DELTA V IN RTEDVD
036771,000109: 36,2516 12514 TCF -2 # DISPLAY NEW DATA
036772,000110: 36,2517 06006 RTE299 TC INTPRET
036773,000111: 36,2520 71331 SSP DLOAD
036774,000112: 36,2521 00122 OVFIND
036775,000113: 36,2522 00000 0
036776,000114: 36,2523 03767 VPRED
036777,000115: 36,2524 17632 STODL RTEDVD
036778,000116: 36,2525 03771 GAMMAEI
036779,000117: 36,2526 17634 STODL RTEGAM2D
036780,000118: 36,2527 31671 1RTEB13
![]() |
Page 842 |
036782,000120: 36,2530 17735 STODL CONICX1
036783,000121: 36,2531 33756 C4RTE
036784,000122: 36,2532 37652 STCALL MAMAX1
036785,000123: 36,2533 64423 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
036786,000124: 36,2534 77545 DLOAD EXIT
036787,000125: 36,2535 03646 R(T1)
036788,000126: 36,2536 07171 TC POLY
036789,000127: 36,2537 00002 DEC 2 B-14
036790,000128: 36,2540 02544 35436 2DEC 181000434.
036791,000129: 36,2542 14040 05066 2DEC 1.50785145
036792,000130: 36,2544 44052 60030 2DEC* -6.49993057
036793,000131: 36,2546 26415 25057 2DEC* 9.76938926
036794,000132: 36,2550 06006 TC INTPRET
036795,000133: 36,2551 77752 SL1
036796,000134: 36,2552 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
036797,000135: 36,2553 31721 M9RTEB28
036798,000136: 36,2554 17730 STODL NN1A
036799,000137: 36,2555 33762 K2RTE
036800,000138: 36,2556 17636 RTE320 STODL RCON # RCON=K2
036801,000139: 36,2557 03634 RTEGAM2D
036802,000140: 36,2560 44254 BZE BDSU
036803,000141: 36,2561 74570 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
036804,000142: 36,2562 31657 1RTEB2
036805,000143: 36,2563 71406 PUSH COS # PL02D
036806,000144: 36,2564 73525 PDDL SIN
036807,000145: 36,2565 45465 BDDV STADR # PL00D
036808,000146: 36,2566 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
036809,000147: 36,2567 74603 RTE360
036810,000148: 36,2570 45345 RTE340 DLOAD DSU
036811,000149: 36,2571 03646 R(T1)
036812,000150: 36,2572 33760 K1RTE
036813,000151: 36,2573 71240 BMN DLOAD
036814,000152: 36,2574 74600 RTE350
036815,000153: 36,2575 33766 K4RTE
036816,000154: 36,2576 37726 STCALL X(T2) # X(T2)=K4
036817,000155: 36,2577 74603 RTE360
036818,000156: 36,2600 77745 RTE350 DLOAD
036819,000157: 36,2601 33764 K3RTE
036820,000158: 36,2602 03726 STORE X(T2) # X(T2)=K3
036821,000159: 36,2603 77624 RTE360 CALL
036822,000160: 36,2604 65132 V2T100
036823,000161: 36,2605 52054 BZE GOTO
036824,000162: 36,2606 74610 RTE367
036825,000163: 36,2607 74772 RTEALRM
036826,000164: 36,2610 77775 RTE367 VLOAD
036827,000165: 36,2611 03640 R(T1)/
![]() |
Page 843 |
036829,000167: 36,2612 16657 STODL RVEC
036830,000168: 36,2613 03636 RCON
036831,000169: 36,2614 26760 STOVL RDESIRED
036832,000170: 36,2615 03700 V2(T1)/
036833,000171: 36,2616 36746 STCALL VVEC
036834,000172: 36,2617 64266 TMRAD100
036835,000173: 36,2620 77615 DAD
036836,000174: 36,2621 03716 T1
036837,000175: 36,2622 17736 STODL T2
036838,000176: 36,2623 03634 RTEGAM2D
036839,000177: 36,2624 52054 BZE GOTO
036840,000178: 36,2625 74627 RTE369
036841,000179: 36,2626 74651 RTE372
036842,000180: 36,2627 51575 RTE369 VLOAD ABVAL
036843,000181: 36,2630 03710 V(T2)/
036844,000182: 36,2631 77776 EXIT
036845,000183: 36,2632 07171 TC POLY
036846,000184: 36,2633 00002 DEC 2 B-14
036847,000185: 36,2634 00000 00000 2DEC 0 B-28
036848,000186: 36,2636 47021 65002 2DEC -4.8760771
036849,000187: 36,2640 35610 07722 2DEC 4.5419476
036850,000188: 36,2642 63772 63276 2DEC -1.4317675
036851,000189: 36,2644 06006 TC INTPRET
036852,000190: 36,2645 77615 DAD
036853,000191: 36,2646 01352 RTED1
036854,000192: 36,2647 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
036855,000193: 36,2650 74653 RTE373
036856,000194: 36,2651 77745 RTE372 DLOAD # X(T2),=X(T2)
036857,000195: 36,2652 03726 X(T2)
036858,000196: 36,2653 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
036859,000197: 36,2654 03726 X(T2)
036860,000198: 36,2655 53575 VLOAD UNIT
036861,000199: 36,2656 03656 R(T2)/ # B58
036862,000200: 36,2657 36152 STCALL ALPHAV
036863,000201: 36,2660 26437 GETERAD
036864,000202: 36,2661 77615 DAD
036865,000203: 36,2662 33772 E3RTE
036866,000204: 36,2663 45206 PUSH DSU # RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
036867,000205: 36,2664 03636 RCON
036868,000206: 36,2665 45246 ABS DSU
036869,000207: 36,2666 31756 EPC2RTE
036870,000208: 36,2667 52040 BMN GOTO
036871,000209: 36,2670 74672 RTE374
036872,000210: 36,2671 74677 RTE375
036873,000211: 36,2672 51545 RTE374 DLOAD ABS
036874,000212: 36,2673 00001 00D
![]() |
Page 844 |
036876,000214: 36,2674 50025 DSU BMN
036877,000215: 36,2675 31760 EPC3RTE
036878,000216: 36,2676 74747 P37E
036879,000217: 36,2677 43345 RTE375 DLOAD DAD
036880,000218: 36,2700 03730 NN1A
036881,000219: 36,2701 31677 1RTEB28
036882,000220: 36,2702 67240 BMN SLOAD
036883,000221: 36,2703 74707 RTE380
036884,000222: 36,2704 31737 OCT605
036885,000223: 36,2705 77650 GOTO
036886,000224: 36,2706 74772 RTEALRM # TOO MANY ITERATIONS
036887,000225: 36,2707 03730 RTE380 STORE NN1A
036888,000226: 36,2710 53025 DSU BZE
036889,000227: 36,2711 31723 M8RTEB28
036890,000228: 36,2712 74730 RTE385
036891,000229: 36,2713 45345 DLOAD DSU
036892,000230: 36,2714 00001 00D
036893,000231: 36,2715 03666 DRCON
036894,000232: 36,2716 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=Z1 PL06D
036895,000233: 36,2717 00047 X1
036896,000234: 36,2720 03670 RPRE,
036897,000235: 36,2721 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
036898,000236: 36,2722 03726 X(T2)
036899,000237: 36,2723 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
036900,000238: 36,2724 00001 00D
036901,000239: 36,2725 20201 0,1
036902,000240: 36,2726 77650 GOTO
036903,000241: 36,2727 74732 RTE390
036904,000242: 36,2730 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
036905,000243: 36,2731 00001 00D
036906,000244: 36,2732 14021 RTE390 STODL 16D # DX(T2) PL02D
036907,000245: 36,2733 77626 STADR
036908,000246: 36,2734 60141 STODL RCON # RCON=RCON,
036909,000247: 36,2735 77600 BOV
036910,000248: 36,2736 74603 RTE360
036911,000249: 36,2737 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
036912,000250: 36,2740 03726 X(T2)
036913,000251: 36,2741 17670 STODL RPRE, # X(T2)PRI=X(T2)
036914,000252: 36,2742 00021 16D
036915,000253: 36,2743 77615 DAD
036916,000254: 36,2744 03726 X(T2)
036917,000255: 36,2745 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
036918,000256: 36,2746 74603 RTE360 # REITERATE
036919,000257: 36,2747 77624 P37E CALL # DISPLAY CONIC SOLUTION
036920,000258: 36,2750 74776 RTEVN
036921,000259: 36,2751 41345 RTE505 DLOAD DMP
036922,000260: 36,2752 03720 PCON
036923,000261: 36,2753 03754 BETA1
036924,000262: 36,2754 53021 BDSU BZE
036925,000263: 36,2755 03636 RCON
![]() |
Page 845 |
036927,000265: 36,2756 74764 RTE510
036928,000266: 36,2757 71240 BMN DLOAD
036929,000267: 36,2760 74764 RTE510
036930,000268: 36,2761 31657 1RTEB2
036931,000269: 36,2762 77650 GOTO # ENTRY NEAR APOGEE
036932,000270: 36,2763 74766 RTE515
036933,000271: 36,2764 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
036934,000272: 36,2765 31657 1RTEB2
036935,000273: 36,2766 37761 RTE515 STCALL PHI2
036936,000274: 36,2767 64511 PREC100 # PRECISION TRAJECTORY COMPUTATION
036937,000275: 36,2770 77654 RTE625 BZE
036938,000276: 36,2771 75024 P37G
036939,000277: 36,2772 77624 RTEALRM CALL
036940,000278: 36,2773 64251 P370ALRM
036941,000279: 36,2774 77776 EXIT
036942,000280: 36,2775 12502 TCF P37 # RECYCLE AFTER ALARM DISPLAY
036943,000281:
036944,000282: # RETURN TO EARTH DISPLAY SUBROUTINE
036945,000283:
036946,000284: 36,2776 45020 RTEVN STQ CALL
036947,000285: 36,2777 03763 VNSTORE
036948,000286: 36,3000 64305 RTEDISP # DISPLAY PREPARATION
036949,000287: 36,3001 77776 EXIT
036950,000288: 36,3002 33244 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
036951,000289: 36,3003 03215 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
036952,000290: 36,3004 34710 CAF FOUR
036953,000291: 36,3005 03211 TCR 37BLANK +1
036954,000292: 36,3006 13013 TCF +5
036955,000293: 36,3007 12502 TCF P37 # RECYCLE
036956,000294: 36,3010 33245 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
036957,000295: 36,3011 03231 TCR P370GOF
036958,000296: 36,3012 12502 TCF P37 # RECYCLE
036959,000297: 36,3013 33246 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
036960,000298: 36,3014 03205 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
036961,000299: 36,3015 12502 TCF P37 # RECYCLE
036962,000300: 36,3016 33247 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
036963,000301: 36,3017 03231 TCR P370GOF
036964,000302: 36,3020 12502 TCF P37 # RECYCLE
036965,000303: 36,3021 06006 TCR INTPRET
036966,000304: 36,3022 77650 GOTO
036967,000305: 36,3023 03763 VNSTORE
036968,000306:
036969,000307: # PRECISION DISPLAY,TARGETING COMPUTATION AND RTE END PROCESSING
036970,000308:
036971,000309: 36,3024 77624 P37G CALL
036972,000310: 36,3025 74776 RTEVN
036973,000311: 36,3026 77776 EXIT
036974,000312: 36,3027 34716 P37N CAF SEVEN
036975,000313: 36,3030 55131 TS OPTION1
036976,000314: 36,3031 34712 CAF ONE
![]() |
Page 846 |
036978,000316: 36,3032 55132 TS OPTION2
036979,000317: 36,3033 33243 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
036980,000318: 36,3034 03231 TCR P370GOF
036981,000319: 36,3035 13033 TCF -2 # RECYCLE
036982,000320: 36,3036 06006 TC INTPRET # PROCEED
036983,000321: 36,3037 67201 SETPD SLOAD
036984,000322: 36,3040 00001 00D
036985,000323: 36,3041 01133 OPTION2
036986,000324: 36,3042 53025 DSU BZE
036987,000325: 36,3043 31671 1RTEB13
036988,000326: 36,3044 75053 P37Q
036989,000327: 36,3045 60345 DLOAD NORM # SPS
036990,000328: 36,3046 10362 MDOTHI
036991,000329: 36,3047 00047 X1
036992,000330: 36,3050 52125 PDDL GOTO
036993,000331: 36,3051 31727 VCSPS
036994,000332: 36,3052 75064 P37T
036995,000333: 36,3053 43145 P37Q DLOAD BON # RCS
036996,000334: 36,3054 31733 MDOTRCS
036997,000335: 36,3055 00700 NJETSFLG
036998,000336: 36,3056 75060 P37R
036999,000337: 36,3057 77752 SL1
037000,000338: 36,3060 77752 P37R SL1
037001,000339: 36,3061 65301 NORM PDDL
037002,000340: 36,3062 00047 X1
037003,000341: 36,3063 31731 VCRCS
037004,000342: 36,3064 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
037005,000343: 36,3065 03706 DV
037006,000344: 36,3066 77776 EXIT
037007,000345: 36,3067 07171 TC POLY
037008,000346: 36,3070 00001 DEC 1 B-14
037009,000347: 36,3071 00001 05070 2DEC 5.66240507
037010,000348: 36,3073 17527 36700 2DEC 9.79487897
037011,000349: 36,3075 47114 70670 2DEC -.388281955
037012,000350: 36,3077 06006 TC INTPRET
037013,000351: 36,3100 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
037014,000352: 36,3101 03076 WEIGHT/G
037015,000353: 36,3102 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
037016,000354: 36,3103 41257 SL* DMP
037017,000355: 36,3104 20165 0 -12D,1
037018,000356: 36,3105 31735 CSUBT
037019,000357: 36,3106 77621 BDSU
037020,000358: 36,3107 03716 T1
037021,000359: 36,3110 03413 STORE TIG # TIG=T1-CT*DTB B28
037022,000360: 36,3111 77776 EXIT
037023,000361: 36,3112 33242 CAF V6N33RTE # DISPLAY BIASED TIG
037024,000362: 36,3113 03231 TCR P370GOF
![]() |
Page 847 |
037026,000364: 36,3114 13112 TCF -2
037027,000365: 36,3115 34714 CAF ZERO
037028,000366: 36,3116 55125 TS VHFCNT
037029,000367: 36,3117 55126 TS TRKMKCNT
037030,000368: 36,3120 06006 TC INTPRET
037031,000369: 36,3121 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
037032,000370: 36,3122 65051 RTENCK1
037033,000371: 36,3123 53575 VLOAD UNIT # PL00D
037034,000372: 36,3124 03656 R(T2)/
037035,000373: 36,3125 74315 PDVL VXSC # UR2 B1 PL06D
037036,000374: 36,3126 03740 UR1/
037037,000375: 36,3127 31742 MCOS7.5
037038,000376: 36,3130 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
037039,000377: 36,3131 03746 UH/
037040,000378: 36,3132 31744 MSIN7.5
037041,000379: 36,3133 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
037042,000380: 36,3134 50015 DAD BMN
037043,000381: 36,3135 31746 MCOS22.5
037044,000382: 36,3136 75163 P37W
037045,000383: 36,3137 50375 VLOAD DOT # K/ . UR2 GR COS22.5
037046,000384: 36,3140 03746 UH/
037047,000385: 36,3141 03656 R(T2)/
037048,000386: 36,3142 71240 BMN DLOAD
037049,000387: 36,3143 75147 P37U
037050,000388: 36,3144 31750 THETA165
037051,000389: 36,3145 52006 PUSH GOTO
037052,000390: 36,3146 75151 P37V
037053,000391: 36,3147 41545 P37U DLOAD PUSH
037054,000392: 36,3150 31752 THETA210
037055,000393: 36,3151 77756 P37V SIN
037056,000394: 36,3152 16732 STODL SNTH
037057,000395: 36,3153 43146 COS CLEAR
037058,000396: 36,3154 03666 RVSW
037059,000397: 36,3155 26734 STOVL CSTH
037060,000398: 36,3156 03640 R(T1)/
037061,000399: 36,3157 26657 STOVL RVEC
037062,000400: 36,3160 03700 V2(T1)/
037063,000401: 36,3161 36746 STCALL VVEC
037064,000402: 36,3162 24737 TIMETHET
037065,000403: 36,3163 43014 P37W CLEAR CLEAR
037066,000404: 36,3164 01267 XDELVFLG
037067,000405: 36,3165 03665 NORMSW
037068,000406: 36,3166 77214 SET VLOAD
037069,000407: 36,3167 01071 FINALFLG
037070,000408: 36,3170 77626 STADR
037071,000409: 36,3171 60362 STODL RTARG
037072,000410: 36,3172 00037 T
037073,000411: 36,3173 77615 DAD
037074,000412: 36,3174 03716 T1
037075,000413: 36,3175 27656 STOVL TPASS4
![]() |
Page 848 |
037077,000415: 36,3176 03700 V2(T1)/
037078,000416: 36,3177 77651 VSU
037079,000417: 36,3200 03672 V(T1)/
037080,000418: 36,3201 37646 STCALL DELVSIN
037081,000419: 36,3202 73005 VN1645
037082,000420: 36,3203 77650 GOTO
037083,000421: 36,3204 75163 P37W
037084,000422:
037085,000423: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
037086,000424:
037087,000425: 36,3205 00006 P37GFRB1 EXTEND
037088,000426: 36,3206 23762 QXCH SPRTEX
037089,000427: 36,3207 03215 TCR P370GOFR
037090,000428: 36,3210 34712 37BLANK CAF ONE
037091,000429: 36,3211 05415 TCR BLANKET
037092,000430: 36,3212 15112 TCF ENDOFJOB
037093,000431: 36,3213 01762 TC SPRTEX # RECYCLE
037094,000432: 36,3214 13240 TCF P37PROC # PROCEED
037095,000433:
037096,000434: # SUBROUTINE TO GO TO GOFLASHR
037097,000435:
037098,000436: 36,3215 00006 P370GOFR EXTEND
037099,000437: 36,3216 23733 QXCH RTENCKEX
037100,000438: 36,3217 04555 TCR BANKCALL
037101,000439: 36,3220 20763 CADR GOFLASHR
037102,000440: 36,3221 14106 TCF GOTOPOOH # TERMINATE
037103,000441: 36,3222 13225 TCF +3
037104,000442: 36,3223 13227 TCF +4
037105,000443: 36,3224 01733 TC RTENCKEX # IMMEDIATE RETURN
037106,000444: 36,3225 51733 INDEX RTENCKEX # PROCEED
037107,000445: 36,3226 10004 TCF 0 +4
037108,000446: 36,3227 51733 INDEX RTENCKEX # RECYCLE
037109,000447: 36,3230 10003 TCF 0 +3
037110,000448:
037111,000449: # SUBROUTINE TO GO TO GOFLASH
037112,000450:
037113,000451: 36,3231 00006 P370GOF EXTEND
037114,000452: 36,3232 23762 QXCH SPRTEX
037115,000453: 36,3233 04555 TCR BANKCALL
037116,000454: 36,3234 20624 CADR GOFLASH
037117,000455: 36,3235 14106 TCF GOTOPOOH
037118,000456: 36,3236 13240 TCF +2
037119,000457: 36,3237 01762 TC SPRTEX
037120,000458: 36,3240 51762 P37PROC INDEX SPRTEX
037121,000459: 36,3241 10001 TCF 0 +1
037122,000460: 36,3242 01441 V6N33RTE VN 0633
037123,000461: 36,3243 01006 V4N06RTE VN 0406
037124,000462: 36,3244 01475 V6N61RTE VN 0661
037125,000463: 36,3245 01447 V6N39RTE VN 0639
037126,000464: 36,3246 01474 V6N60RTE VN 0660
![]() |
Page 849 |
037128,000466: 36,3247 01521 V6N81RTE VN 0681
037129,000467: 32,2251 BANK 32
037130,000468: 32,2000 SETLOC RTE
037131,000469: 32,2000 BANK
037132,000470: 32,2251 COUNT 32/RTE
037133,000471:
![]() |
Page 850 |
037135,000473: # ALARM DISPLAY SUBROUTINE
037136,000474: 32,2251 77420 P370ALRM STQ EXIT
037137,000475: 32,2252 03762 SPRTEX
037138,000476: 32,2253 30154 CA MPAC
037139,000477: 32,2254 05653 TC VARALARM
037140,000478: 32,2255 32265 CAF V5N09RTE
037141,000479: 32,2256 04555 TC BANKCALL
037142,000480: 32,2257 20624 CADR GOFLASH
037143,000481: 32,2260 14106 TCF GOTOPOOH
037144,000482: 32,2261 12255 TCF -4
037145,000483: 32,2262 06006 TC INTPRET
037146,000484: 32,2263 77650 GOTO
037147,000485: 32,2264 03762 SPRTEX
037148,000486: 32,2265 01211 V5N09RTE VN 0509
037149,000487:
![]() |
Page 851 |
037151,000489: # TIME RADIUS CALLING SUBROUTINE
037152,000490:
037153,000491: # INPUT
037154,000492: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
037155,000493: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037156,000494: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
037157,000495: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2 = EARTH SP B14
037158,000496: # OUTPUT
037159,000497: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037160,000498: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037161,000499: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
037162,000500:
037163,000501: 32,2266 43020 TMRAD100 STQ CLEAR
037164,000502: 32,2267 03733 RTENCKEX
037165,000503: 32,2270 03666 RVSW
037166,000504: 32,2271 67164 AXC,2 SXA,2
037167,000505: 32,2272 20000 OCT 20000
037168,000506: 32,2273 02756 SGNRDOT
037169,000507: 32,2274 45140 LXC,1 CALL
037170,000508: 32,2275 03734 CONICX1
037171,000509: 32,2276 25552 TIMERAD
037172,000510: 32,2277 27710 STOVL V(T2)/ # PL00D
037173,000511: 32,2300 77626 STADR
037174,000512: 32,2301 60121 STODL R(T2)/
037175,000513: 32,2302 00037 T
037176,000514: 32,2303 37724 STCALL T12
037177,000515: 32,2304 03733 RTENCKEX
037178,000516:
![]() |
Page 852 |
037180,000518: # DISPLAY CALCULATION SUBROUTINE
037181,000519:
037182,000520: # DESCRIPTION
037183,000521: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
037184,000522: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
037185,000523:
037186,000524: # CALLING SEQUENCE
037187,000525: # L CALL
037188,000526: # L+1 RTEDISP
037189,000527:
037190,000528: # SUBROUTINES CALLED
037191,000529: # TMRAD100
037192,000530: # AUGEKUGL
037193,000531: # LAT-LONG
037194,000532:
037195,000533: # ERASABLE INITIALIZATION REQUIRED
037196,000534: # PUSHLIST
037197,000535: # NONE
037198,000536: # MPAC
037199,000537: # NONE
037200,000538: # OTHER
037201,000539: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037202,000540: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037203,000541: # T2 FINAL TIME DP B28 CS
037204,000542: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037205,000543: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037206,000544: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037207,000545: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037208,000546:
037209,000547: # OUTPUT
037210,000548: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
037211,000549: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
037212,000550: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
037213,000551: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
037214,000552: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
037215,000553: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
037216,000554:
037217,000555: 32,2305 77220 RTEDISP STQ VLOAD # DISPLAY
037218,000556: 32,2306 03762 SPRTEX
037219,000557: 32,2307 03710 V(T2)/
037220,000558: 32,2310 65256 UNIT PDDL
037221,000559: 32,2311 00045 36D
037222,000560: 32,2312 17767 STODL VPRED # V(T2)
037223,000561: 32,2313 03736 T2
037224,000562: 32,2314 77625 DSU
037225,000563: 32,2315 03413 SPRTETIG
037226,000564: 32,2316 26641 STOVL T3TOT4 # T21
037227,000565: 32,2317 03656 R(T2)/
037228,000566: 32,2320 50256 UNIT DOT
037229,000567: 32,2321 77752 SL1
![]() |
Page 853 |
037231,000569: 32,2322 44326 ARCCOS BDSU
037232,000570: 32,2323 31657 1RTEB2
037233,000571: 32,2324 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
037234,000572: 32,2325 03700 V2(T1)/
037235,000573: 32,2326 41451 VSU PUSH
037236,000574: 32,2327 03672 V(T1)/
037237,000575: 32,2330 57441 DOT DCOMP
037238,000576: 32,2331 03740 UR1/
037239,000577: 32,2332 41515 PDVL PUSH
037240,000578: 32,2333 63345 DLOAD PDVL
037241,000579: 32,2334 31701 ZERORTE
037242,000580: 32,2335 55441 DOT VDEF
037243,000581: 32,2336 03746 UH/
037244,000582: 32,2337 77772 VSL1
037245,000583: 32,2340 27405 STOVL DELVLVC # DV/ (LVC)
037246,000584: 32,2341 03656 R(T2)/
037247,000585: 32,2342 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
037248,000586: 32,2343 45246 ABVAL DSU
037249,000587: 32,2344 31725 30480RTE
037250,000588: 32,2345 26760 STOVL RDESIRED
037251,000589: 32,2346 03710 V(T2)/
037252,000590: 32,2347 36746 STCALL VVEC
037253,000591: 32,2350 64266 TMRAD100 # R3,V3,T23 FROM TIMERAD
037254,000592: 32,2351 53575 VLOAD UNIT
037255,000593: 32,2352 03656 R(T2)/
037256,000594: 32,2353 53515 PDVL UNIT # UR3 PL06D
037257,000595: 32,2354 03710 V(T2)/
037258,000596: 32,2355 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
037259,000597: 32,2356 65336 ARCSIN PDDL # V(T3) PL02D
037260,000598: 32,2357 00045 36D
037261,000599: 32,2360 51525 PDDL ABS
037262,000600: 32,2361 45006 PUSH CALL # /GAMMAE/ PL04D
037263,000601: 32,2362 64071 AUGEKUGL # PHIE PL06D
037264,000602: 32,2363 43215 DAD DAD
037265,000603: 32,2364 03724 T12 # T23
037266,000604: 32,2365 03736 T2
037267,000605: 32,2366 14003 STODL 02D # T(LS)=T2+T23+TE
037268,000606: 32,2367 00005 04D
037269,000607: 32,2370 77756 SIN
037270,000608: 32,2371 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
037271,000609: 32,2372 77746 COS
037272,000610: 32,2373 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
037273,000611: 32,2374 53575 VLOAD UNIT
037274,000612: 32,2375 03656 R(T2)/
037275,000613: 32,2376 41406 PUSH PUSH
037276,000614: 32,2377 53515 PDVL UNIT # PL22D
037277,000615: 32,2400 03710 V(T2)/
037278,000616: 32,2401 47315 PDVL VXV
037279,000617: 32,2402 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
037280,000618: 32,2403 63361 VXSC PDVL
![]() |
Page 854 |
037282,000620: 32,2404 03403 LNG(SPL)
037283,000621: 32,2405 53361 VXSC VAD # PL04D
037284,000622: 32,2406 03401 LAT(SPL)
037285,000623: 32,2407 43014 CLEAR CLEAR # T(LS) IN MPAC
037286,000624: 32,2410 00662 ERADFLAG
037287,000625: 32,2411 01663 LUNAFLAG
037288,000626: 32,2412 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
037289,000627: 32,2413 77624 CALL
037290,000628: 32,2414 26322 LAT-LONG
037291,000629: 32,2415 77745 DLOAD
037292,000630: 32,2416 01104 LAT
037293,000631: 32,2417 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
037294,000632: 32,2420 01106 LONG
037295,000633: 32,2421 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
037296,000634: 32,2422 03762 SPRTEX
037297,000635: 32,2423 COUNT* $$/RTE
037298,000636:
![]() |
Page 855 |
037300,000638: # INITIAL VECTOR SUBROUTINE
037301,000639:
037302,000640: # DESCRIPTION
037303,000641: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION ISPERFORMED.PRECOMPUTATIONS OCCUR.
037304,000642:
037305,000643: # CALLING SEQUENCE
037306,000644: # L CALL
037307,000645: # L+1 INVC100
037308,000646:
037309,000647: # NORMAL EXIT MODE
037310,000648: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037311,000649:
037312,000650: # ALARM EXIT MODE
037313,000651: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
037314,000652:
037315,000653: # SUBROUTINES CALLED
037316,000654: # CSMPREC
037317,000655:
037318,000656: # ERASABLE INITIALIZATION REQUIRED
037319,000657: # PUSHLIST
037320,000658: # NONE
037321,000659: # MPAC
037322,000660: # NONE
037323,000661: # OTHER
037324,000662: # SPRTETIG TIME OF IGNITION DP B28 CS
037325,000663: # CSM STATE VECTOR
037326,000664:
037327,000665: # OUTPUT
037328,000666: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
037329,000667: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
037330,000668: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
037331,000669: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037332,000670: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037333,000671: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
037334,000672:
037335,000673: 32,2423 71220 INVC100 STQ DLOAD
037336,000674: 32,2424 03762 SPRTEX
037337,000675: 32,2425 03413 SPRTETIG
037338,000676: 32,2426 34041 STCALL TDEC1
037339,000677: 32,2427 27022 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
037340,000678: 32,2430 67175 VLOAD SXA,2
037341,000679: 32,2431 00001 RATT
037342,000680: 32,2432 03755 P(T1)
037343,000681: 32,2433 27640 STOVL R(T1)/
037344,000682: 32,2434 00007 VATT
037345,000683: 32,2435 17672 STODL V(T1)/
037346,000684: 32,2436 00015 TAT
037347,000685: 32,2437 03716 STORE T1
037348,000686: 32,2440 53135 SLOAD BZE
037349,000687: 32,2441 03756 P(T1)
![]() |
Page 856 |
037351,000689: 32,2442 64446 INVC109
037352,000690: 32,2443 52135 INVC107 SLOAD GOTO
037353,000691: 32,2444 31740 OCT612
037354,000692: 32,2445 74772 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
037355,000693: 32,2446 53575 INVC109 VLOAD UNIT
037356,000694: 32,2447 03640 R(T1)/
037357,000695: 32,2450 17740 STODL UR1/ # UR1/ B1
037358,000696: 32,2451 00045 36D
037359,000697: 32,2452 27646 STOVL R(T1) # R(T1) B29
037360,000698: 32,2453 03672 V(T1)/
037361,000699: 32,2454 77656 UNIT
037362,000700: 32,2455 03746 STORE UV1/
037363,000701: 32,2456 72441 DOT SL1
037364,000702: 32,2457 03740 UR1/
037365,000703: 32,2460 03757 STORE CFPA # CFPA B1
037366,000704: 32,2461 45246 ABS DSU
037367,000705: 32,2462 31754 EPC1RTE
037368,000706: 32,2463 71240 BMN DLOAD
037369,000707: 32,2464 64473 INVC115 # NOT NEAR RECTILINEAR
037370,000708: 32,2465 31657 1RTEB2
037371,000709: 32,2466 41525 PDDL PUSH
037372,000710: 32,2467 31701 ZERORTE
037373,000711: 32,2470 41466 VDEF PUSH # N/ = (0,0,1)
037374,000712: 32,2471 77650 GOTO
037375,000713: 32,2472 64477 INVC120
037376,000714: 32,2473 47375 INVC115 VLOAD VXV
037377,000715: 32,2474 03740 UR1/
037378,000716: 32,2475 03746 UV1/
037379,000717: 32,2476 77606 PUSH # N/ = UR X UV B2
037380,000718: 32,2477 41545 INVC120 DLOAD PUSH
037381,000719: 32,2500 77244 BPL VLOAD
037382,000720: 32,2501 64503 INVC125
037383,000721: 32,2502 41476 VCOMP PUSH # CORRECT N/ FOR RETROGRADE TRAJECTORY
037384,000722: 32,2503 77775 INVC125 VLOAD
037385,000723: 32,2504 53435 VXV UNIT
037386,000724: 32,2505 03740 UR1/
037387,000725: 32,2506 03746 STORE UH/ # UH/ B1
037388,000726: 32,2507 77650 GOTO
037389,000727: 32,2510 03762 SPRTEX
037390,000728:
![]() |
Page 857 |
037392,000730: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
037393,000731:
037394,000732: # DESCRIPTION
037395,000733: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
037396,000734: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
037397,000735: # AS POSSIBLE.
037398,000736:
037399,000737: # CALLING SEQUENCE
037400,000738: # L CALL
037401,000739: # L+1 PREC100
037402,000740:
037403,000741: # NORMAL EXIT MODE
037404,000742: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037405,000743:
037406,000744: # ALARM EXIT MODE
037407,000745: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
037408,000746: # OCTAL 605 FOR EXCESS ITERATIONS
037409,000747: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
037410,000748:
037411,000749: # SUBROUTINES CALLED
037412,000750: # INTSTALL
037413,000751: # RTENCK2
037414,000752: # RTENCK3
037415,000753: # TIMERAD
037416,000754: # PARAM
037417,000755: # V2T100
037418,000756:
037419,000757: # ERASABLE INITIALIZATION REQUIRED
037420,000758: # PUSHLIST
037421,000759: # NONE
037422,000760: # MPAC
037423,000761: # NONE
037424,000762: # OTHER
037425,000763: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29/B27 METERS
037426,000764: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037427,000765: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037428,000766: # T1 INITIAL VECTOR TIME DP B28 CS
037429,000767: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
037430,000768: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
037431,000769: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
037432,000770: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
037433,000771: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
037434,000772: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
037435,000773: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037436,000774: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037437,000775: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037438,000776: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037439,000777: # BETA1 1+X(T2)**2 DP B1
037440,000778: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE,+1 APOGEE
037441,000779:
![]() |
Page 858 |
037443,000781: # OUTPUT
037444,000782: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
037445,000783: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
037446,000784: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037447,000785: # T2 FINAL TIME DP B28 CENTISECONDS
037448,000786:
037449,000787: # DEBRIS
037450,000788: # RD FINAL R DESIRED DP B29/B27 METERS
037451,000789: # R/APRE R/A DP B6
037452,000790: # P/RPRE P/R DP B2
037453,000791: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
037454,000792: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
037455,000793: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
037456,000794: # RCON FINAL RADIUS DP B29/B27 METERS
037457,000795: # DRCON DELTA RCON DP B29/B27 METERS
037458,000796:
037459,000797: 32,2511 71220 PREC100 STQ DLOAD
037460,000798: 32,2512 03762 SPRTEX
037461,000799: 32,2513 31707 10RTE
037462,000800: 32,2514 17730 STODL NN1A
037463,000801: 32,2515 03636 RCON
037464,000802: 32,2516 03664 STORE RD
037465,000803: 32,2517 77745 PREC120 DLOAD
037466,000804: 32,2520 31717 2RTEB1
037467,000805: 32,2521 17650 STODL DT21PR # DT21PR = POSMAX
037468,000806: 32,2522 31705 M15RTE
037469,000807: 32,2523 37732 STCALL NN2
037470,000808: 32,2524 65077 RTENCK3
037471,000809: 32,2525 77624 PREC125 CALL
037472,000810: 32,2526 11524 PARAM
037473,000811: 32,2527 77745 DLOAD
037474,000812: 32,2530 02742 P
037475,000813: 32,2531 14033 STODL P/RPRE
037476,000814: 32,2532 02744 R1A
037477,000815: 32,2533 14035 STODL R/APRE
037478,000816: 32,2534 00041 R1
037479,000817: 32,2535 14031 STODL RPRE
037480,000818: 32,2536 03775 COGA
037481,000819: 32,2537 77661 SL
037482,000820: 32,2540 20206 5
037483,000821: 32,2541 03724 STORE X(T2)PRE
037484,000822: 32,2542 43276 DCOMP DAD
037485,000823: 32,2543 03726 X(T2)
037486,000824: 32,2544 45246 ABS DSU
037487,000825: 32,2545 31762 EPC4RTE
037488,000826: 32,2546 50000 BOV BMN
037489,000827: 32,2547 64551 PREC130
037490,000828: 32,2550 64732 PREC175
037491,000829:
037492,000830: # DESIRED REENTRY ANGLE NOT ACHIEVED
![]() |
Page 859 |
037494,000832: 32,2551 50145 PREC130 DLOAD BMN
037495,000833: 32,2552 03732 NN2
037496,000834: 32,2553 64557 PREC140
037497,000835: 32,2554 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
037498,000836: 32,2555 31737 OCT605 # EXIT WITH ALARM
037499,000837: 32,2556 65047 PRECX
037500,000838:
037501,000839: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
037502,000840:
037503,000841: 32,2557 53145 PREC140 DLOAD BZE
037504,000842: 32,2560 03730 NN1A
037505,000843: 32,2561 64612 PREC162
037506,000844: 32,2562 42545 PREC150 DLOAD SL4 # ELLIPTIC CASE
037507,000845: 32,2563 00035 R/APRE
037508,000846: 32,2564 52525 PDDL SL3 # PL02D
037509,000847: 32,2565 00033 P/RPRE
037510,000848: 32,2566 41205 DMP DMP # (P/A)BETA1 B4 PL00D
037511,000849: 32,2567 03754 BETA1
037512,000850: 32,2570 57512 SL2 DCOMP
037513,000851: 32,2571 50015 DAD BMN # 1-(P/A)BETA1=BETA2 B2
037514,000852: 32,2572 31657 1RTEB2
037515,000853: 32,2573 64576 PREC155
037516,000854: 32,2574 52166 SQRT GOTO # BETA2**.5=BETA3 B1
037517,000855: 32,2575 64600 PREC160
037518,000856: 32,2576 77745 PREC155 DLOAD
037519,000857: 32,2577 31701 ZERORTE # BETA3=0
037520,000858: 32,2600 43205 PREC160 DMP DAD
037521,000859: 32,2601 03761 PHI2
037522,000860: 32,2602 31661 1RTEB3
037523,000861: 32,2603 60325 PDDL NORM # 1+(PHI2)(BETA3) B3
037524,000862: 32,2604 00035 R/APRE
037525,000863: 32,2605 00047 X1
037526,000864: 32,2606 77665 BDDV # PL00D
037527,000865: 32,2607 52057 SL* GOTO # (1+PHI2*BETA3)/(R/A)=BETA4 B1
037528,000866: 32,2610 20175 0 -4,1
037529,000867: 32,2611 64620 PREC165
037530,000868: 32,2612 60345 PREC162 DLOAD NORM
037531,000869: 32,2613 00031 RPRE
037532,000870: 32,2614 00047 X1
037533,000871: 32,2615 53665 BDDV SL* # BETA4=RD/RPRE B1
037534,000872: 32,2616 03664 RD
037535,000873: 32,2617 20200 0 -1,1
037536,000874: 32,2620 45206 PREC165 PUSH DSU
037537,000875: 32,2621 31655 1RTEB1
037538,000876: 32,2622 77676 DCOMP
037539,000877: 32,2623 03765 STORE BETA12
037540,000878: 32,2624 71240 BMN DLOAD
037541,000879: 32,2625 64636 PREC168
037542,000880: 32,2626 03724 X(T2)PRE
037543,000881: 32,2627 71240 BMN DLOAD
![]() |
Page 860 |
037545,000883: 32,2630 64634 PREC167
037546,000884: 32,2631 03765 BETA12
037547,000885: 32,2632 77676 DCOMP
037548,000886: 32,2633 03765 STORE BETA12
037549,000887: 32,2634 77745 PREC167 DLOAD
037550,000888: 32,2635 03765 BETA12
037551,000889: 32,2636 45246 PREC168 ABS DSU
037552,000890: 32,2637 31766 EPC6RTE
037553,000891: 32,2640 71240 BMN DLOAD
037554,000892: 32,2641 64732 PREC175
037555,000893: 32,2642 72405 DMP SL1
037556,000894: 32,2643 00031 RPRE
037557,000895: 32,2644 77606 PUSH # RF = NEW RADIUS
037558,000896: 32,2645 43345 PREC170 DLOAD DAD
037559,000897: 32,2646 03732 NN2
037560,000898: 32,2647 31677 1RTEB28
037561,000899: 32,2650 03732 STORE NN2
037562,000900: 32,2651 43175 VLOAD SET
037563,000901: 32,2652 03656 R(T2)/
037564,000902: 32,2653 03466 RVSW
037565,000903: 32,2654 26657 STOVL RVEC
037566,000904: 32,2655 03710 V(T2)/
037567,000905: 32,2656 77765 SIGN
037568,000906: 32,2657 03765 BETA12
037569,000907: 32,2660 16746 STODL VVEC
037570,000908: 32,2661 31655 1RTEB1
037571,000909: 32,2662 57565 SIGN DCOMP
037572,000910: 32,2663 03765 BETA12
037573,000911: 32,2664 71354 LXA,2 DLOAD
037574,000912: 32,2665 00154 MPAC
037575,000913: 32,2666 67140 LXC,1 SXA,2
037576,000914: 32,2667 03734 CONICX1
037577,000915: 32,2670 02756 SGNRDOT
037578,000916: 32,2671 36760 STCALL RDESIRED # COMPUTE DT12 (CORRECTION TO TIME OF
037579,000917: 32,2672 25552 TIMERAD # NEW RADIUS)
037580,000918: 32,2673 75345 DLOAD SIGN
037581,000919: 32,2674 00037 T
037582,000920: 32,2675 03765 BETA12
037583,000921: 32,2676 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
037584,000922: 32,2677 03650 DT21PR
037585,000923: 32,2700 00047 X1
037586,000924: 32,2701 53665 BDDV SL*
037587,000925: 32,2702 00001 00D
037588,000926: 32,2703 20176 0 -3,1
037589,000927: 32,2704 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) B3 PL04D
037590,000928: 32,2705 64712 PREC172
037591,000929: 32,2706 65345 DLOAD PDDL # BETA14=1 B0 PL04D
037592,000930: 32,2707 31717 2RTEB1
037593,000931: 32,2710 77650 GOTO
037594,000932: 32,2711 64714 PREC173
![]() |
Page 861 |
037596,000934: 32,2712 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
037597,000935: 32,2713 31711 M.6RTE
037598,000936: 32,2714 45271 PREC173 DDV DSU
037599,000937: 32,2715 00003 02D
037600,000938: 32,2716 31661 1RTEB3
037601,000939: 32,2717 71240 BMN DLOAD
037602,000940: 32,2720 64724 PREC174
037603,000941: 32,2721 77605 DMP
037604,000942: 32,2722 03650 DT21PR
037605,000943: 32,2723 00001 STORE 00D # DT21=(BETA14)DT21PR B28
037606,000944: 32,2724 41545 PREC174 DLOAD PUSH
037607,000945: 32,2725 00001 00D
037608,000946: 32,2726 37650 STCALL DT21PR
037609,000947: 32,2727 65061 RTENCK2
037610,000948: 32,2730 77650 GOTO
037611,000949: 32,2731 64525 PREC125
037612,000950: 32,2732 45345 PREC175 DLOAD DSU
037613,000951: 32,2733 00031 RPRE
037614,000952: 32,2734 03664 RD
037615,000953: 32,2735 51406 PUSH ABS # RPRE-RD = RERR
037616,000954: 32,2736 50025 DSU BMN
037617,000955: 32,2737 31770 EPC7RTE
037618,000956: 32,2740 65033 PREC220
037619,000957:
037620,000958: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
037621,000959:
037622,000960: 32,2741 53145 DLOAD BZE
037623,000961: 32,2742 03730 NN1A
037624,000962: 32,2743 64554 PREC132 # TOO MANY ITERATIONS
037625,000963: 32,2744 53025 DSU BZE
037626,000964: 32,2745 31707 10RTE
037627,000965: 32,2746 65001 PREC207
037628,000966: 32,2747 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
037629,000967: 32,2750 03670 RPRE,
037630,000968: 32,2751 00031 RPRE # RPRE,-RPRE B29/B27
037631,000969: 32,2752 55301 NORM BDDV
037632,000970: 32,2753 00050 X2
037633,000971: 32,2754 03666 DRCON
037634,000972: 32,2755 41457 SL* PUSH # DRCON/(RPRE,-RPRE)=S B2
037635,000973: 32,2756 57600 0 -2,2
037636,000974: 32,2757 40015 DAD BOV # S GR +4 OR LS -4
037637,000975: 32,2760 31655 1RTEB1
037638,000976: 32,2761 64766 PREC205M
037639,000977: 32,2762 45246 ABS DSU
037640,000978: 32,2763 31655 1RTEB1
037641,000979: 32,2764 77640 BMN
037642,000980: 32,2765 64771 PREC206
037643,000981: 32,2766 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
037644,000982: 32,2767 31717 2RTEB1
037645,000983: 32,2770 77725 PDDL # S=-4 B2
![]() |
Page 862 |
037647,000985: 32,2771 41345 PREC206 DLOAD DMP
037648,000986: 32,2772 77712 SL2
037649,000987: 32,2773 03666 STORE DRCON # DRCON=S(RERR) B29
037650,000988: 32,2774 77615 DAD
037651,000989: 32,2775 03636 RCON
037652,000990: 32,2776 03636 STORE RCON # RCON+DRCON=RCON
037653,000991: 32,2777 77650 GOTO
037654,000992: 32,3000 65020 PREC210
037655,000993: 32,3001 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
037656,000994: 32,3002 03664 RD
037657,000995: 32,3003 70501 NORM SR1
037658,000996: 32,3004 00047 X1
037659,000997: 32,3005 60325 PDDL NORM
037660,000998: 32,3006 00031 RPRE
037661,000999: 32,3007 00050 X2
037662,001000: 32,3010 55260 XSU,1 BDDV
037663,001001: 32,3011 00047 X2
037664,001002: 32,3012 77657 SR*
037665,001003: 32,3013 20600 0 -1,1
037666,001004: 32,3014 03636 STORE RCON # RD**2/RPRE=RCON
037667,001005: 32,3015 77625 DSU
037668,001006: 32,3016 03664 RD
037669,001007: 32,3017 03666 STORE DRCON # RCON-RD=DRCON
037670,001008: 32,3020 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
037671,001009: 32,3021 00031 RPRE
037672,001010: 32,3022 17670 STODL RPRE,
037673,001011: 32,3023 03730 NN1A
037674,001012: 32,3024 77625 DSU
037675,001013: 32,3025 31677 1RTEB28
037676,001014: 32,3026 37730 STCALL NN1A
037677,001015: 32,3027 65132 V2T100
037678,001016: 32,3030 52030 BHIZ GOTO
037679,001017: 32,3031 64517 PREC120
037680,001018: 32,3032 65047 PRECX
037681,001019:
037682,001020: # DESIRED RADIUS ACHIEVED
037683,001021:
037684,001022: 32,3033 45345 PREC220 DLOAD DSU
037685,001023: 32,3034 03726 X(T2)
037686,001024: 32,3035 03724 X(T2)PRE
037687,001025: 32,3036 45246 ABS DSU
037688,001026: 32,3037 31772 EPC8RTE
037689,001027: 32,3040 67240 BMN SLOAD
037690,001028: 32,3041 65045 PREC225
037691,001029: 32,3042 31741 OCT613
037692,001030: 32,3043 77650 GOTO
037693,001031: 32,3044 65047 PRECX # IF REENTRY ANGLE OUT OF LIMITS
037694,001032:
037695,001033: # DESIRED FINAL ANGLE HAS BEEN REACHED
037696,001034:
![]() |
Page 863 |
037698,001036: 32,3045 77745 PREC225 DLOAD
037699,001037: 32,3046 31701 ZERORTE
037700,001038: 32,3047 77650 PRECX GOTO
037701,001039: 32,3050 03762 SPRTEX
037702,001040:
![]() |
Page 864 |
037704,001042: # INTEGRATION CALLING SUBROUTINE
037705,001043:
037706,001044: # DESCRIPTION
037707,001045: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
037708,001046: # RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
037709,001047: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
037710,001048:
037711,001049: # RTENCK1 (CONIC INTEGRATION)
037712,001050:
037713,001051: # CALLING SEQUENCE
037714,001052: # L CALL
037715,001053: # L+1 RTENCK1
037716,001054:
037717,001055: # ERASABLE INITIALIZATION REQUIRED
037718,001056: # SAME AS FOR THE RTENCK3 ENTRANCE
037719,001057:
037720,001058: # RTENCK2 (PRECISION INTEGRATION)
037721,001059:
037722,001060: # CALLING SEQUENCE
037723,001061: # L CALL
037724,001062: # L+1 RTENCK2
037725,001063:
037726,001064: # ERASABLE INITIALIZATION REQUIRED
037727,001065: # PUSHLIST
037728,001066: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
037729,001067: # OTHER
037730,001068: # R(T2)/ FINAL POSITION VECTOR VECTOR .B29 METERS
037731,001069: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
037732,001070: # T2 FINAL TIME DP B28 CS
037733,001071:
037734,001072: # RTENCK3 (PRECISION INTEGRATION)
037735,001073:
037736,001074: # CALLING SEQUENCE
037737,001075: # L CALL
037738,001076: # L+1 RTENCK3
037739,001077:
037740,001078: # ERASABLE INITIALIZATION REQUIRED
037741,001079: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
037742,001080: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
037743,001081: # T1 INITIAL VECTOR TIME DP B28 CS
037744,001082: # T2 FINAL TIME DP B28 CS
037745,001083:
037746,001084: # EXIT MODE
037747,001085: # AT L+2 OF CALLING SEQUENCE
037748,001086: # SUBROUTINES CALLED
037749,001087: # INTSTALL
037750,001088: # INTEGRVS
037751,001089:
037752,001090: # OUTPUT
037753,001091: # PUSHLIST
![]() |
Page 865 |
037755,001093: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
037756,001094: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
037757,001095: # MPAC
037758,001096: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
037759,001097: # OTHER
037760,001098: # R(T2)/ AS IN PUSHLIST
037761,001099: # V(T2)/ AS IN MPAC
037762,001100: # T2 FINAL TIME DP B28 CS
037763,001101:
037764,001102:
037765,001103: 32,3051 45020 RTENCK1 STQ CALL
037766,001104: 32,3052 03733 RTENCKEX
037767,001105: 32,3053 27371 INTSTALL
037768,001106: 32,3054 43175 VLOAD SET
037769,001107: 32,3055 03640 R(T1)/
037770,001108: 32,3056 01473 INTYPFLG
037771,001109: 32,3057 77650 GOTO
037772,001110: 32,3060 65105 RTENCK3B
037773,001111:
037774,001112:
037775,001113: 32,3061 45020 RTENCK2 STQ CALL
037776,001114: 32,3062 03733 RTENCKEX
037777,001115: 32,3063 27371 INTSTALL
037778,001116: 32,3064 77214 CLEAR VLOAD
037779,001117: 32,3065 01673 INTYPFLG
037780,001118: 32,3066 03656 R(T2)/
037781,001119: 32,3067 25535 STOVL RCV
037782,001120: 32,3070 03710 V(T2)/
037783,001121: 32,3071 15543 STODL VCV
037784,001122: 32,3072 03736 T2
037785,001123: 32,3073 01517 STORE TET
037786,001124: 32,3074 77615 DAD
037787,001125: 32,3075 77650 GOTO
037788,001126: 32,3076 65113 RTENCK3D
037789,001127:
037790,001128:
037791,001129: 32,3077 45020 RTENCK3 STQ CALL
037792,001130: 32,3100 03733 RTENCKEX
037793,001131: 32,3101 27371 INTSTALL
037794,001132: 32,3102 43175 RTENCK3A VLOAD CLEAR
037795,001133: 32,3103 03640 R(T1)/
037796,001134: 32,3104 01673 INTYPFLG
037797,001135: 32,3105 25535 RTENCK3B STOVL RCV
037798,001136: 32,3106 03700 V2(T1)/
037799,001137: 32,3107 15543 STODL VCV
037800,001138: 32,3110 03716 T1
037801,001139: 32,3111 15517 STODL TET
037802,001140: 32,3112 03736 T2
037803,001141: 32,3113 00041 RTENCK3D STORE TDEC1
037804,001142: 32,3114 45014 CLEAR CALL
![]() |
Page 866 |
037806,001144: 32,3115 00263 MOONFLAG
037807,001145: 32,3116 27066 INTEGRVS
037808,001146: 32,3117 77775 VLOAD
037809,001147: 32,3120 00001 RATT
037810,001148: 32,3121 03656 STORE R(T2)/
037811,001149: 32,3122 70125 PDDL LXC,1
037812,001150: 32,3123 00015 TAT
037813,001151: 32,3124 03734 CONICX1
037814,001152: 32,3125 27736 STOVL T2
037815,001153: 32,3126 00007 VATT
037816,001154: 32,3127 03710 STORE V(T2)/
037817,001155: 32,3130 77650 GOTO
037818,001156: 32,3131 03733 RTENCKEX
037819,001157:
![]() |
Page 867 |
037821,001159: # V2(T1) COMPUTATION SUBROUTINE
037822,001160:
037823,001161: # DESCRIPTION
037824,001162: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
037825,001163: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
037826,001164: # (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
037827,001165: # AND CONSEQUENTLY FUEL.
037828,001166:
037829,001167: # CALLING SEQUENCE
037830,001168: # L CALL
037831,001169: # L+1 V2T100
037832,001170:
037833,001171: # NORMAL EXIT MODE
037834,001172: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
037835,001173:
037836,001174: # ALARM EXIT MODE
037837,001175: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
037838,001176:
037839,001177: # SUBROUTINES CALLED
037840,001178: # GAMDV10
037841,001179: # XT1LIM
037842,001180: # DVCALC
037843,001181:
037844,001182: # ERASABLE INITIALIZATION REQUIRED
037845,001183: # PUSHLIST
037846,001184: # NONE
037847,001185: # MPAC
037848,001186: # NONE
037849,001187: # OTHER
037850,001188: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
037851,001189: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
037852,001190: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037853,001191: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
037854,001192: # UR1/ UNIT INITIAL VECTOR VECTOR B1
037855,001193: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
037856,001194: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
037857,001195: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
037858,001196: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
037859,001197: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037860,001198: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
037861,001199: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE,+1 APOGEE
037862,001200: # N1 CONIC OR PRECISION ITERATION COUNTER DP B28 NEGATIVE CONIC,PLUS PREC
037863,001201:
037864,001202: # OUTPUT
037865,001203: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
037866,001204: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
037867,001205: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
037868,001206: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
037869,001207: # BETA1 1+X(T2)**2 DP B1
037870,001208:
![]() |
Page 868 |
037872,001210: # DEBRIS
037873,001211: # PUSHLIST
037874,001212: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
037875,001213: # 02D THETA1=BETA5*LAMBDA-1 TP B17
037876,001214: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
037877,001215: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
037878,001216: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
037879,001217: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
037880,001218: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
037881,001219: # 16D DX(T1)=ITERATOR INCREMENT DP B5
037882,001220: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
037883,001221: # 32D DVCALC SUBROUTINE RETURN ADDRESS
037884,001222: # 33D V2T100 SUBROUTINE RETURN ADDRESS
037885,001223:
037886,001224: 32,3132 77620 V2T100 STQ
037887,001225: 32,3133 00041 33D
037888,001226: 32,3134 43001 SETPD CLEAR
037889,001227: 32,3135 00001 0 # PL00D
037890,001228: 32,3136 00272 F2RTE
037891,001229: 32,3137 60345 DLOAD NORM
037892,001230: 32,3140 03636 RCON
037893,001231: 32,3141 00047 X1
037894,001232: 32,3142 60325 PDDL NORM
037895,001233: 32,3143 03646 R(T1)
037896,001234: 32,3144 00051 S1
037897,001235: 32,3145 00013 STORE 10D
037898,001236: 32,3146 56342 SR1 DDV # R1/RCON = LAMBDA B1
037899,001237: 32,3147 65260 XSU,1 PDDL # PL02D
037900,001238: 32,3150 00050 S1
037901,001239: 32,3151 03726 X(T2)
037902,001240: 32,3152 77716 DSQ
037903,001241: 32,3153 43342 SR1 DAD
037904,001242: 32,3154 31655 1RTEB1
037905,001243: 32,3155 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
037906,001244: 32,3156 77605 DMP
037907,001245: 32,3157 00001 00D
037908,001246: 32,3160 00035 STORE 28D # BETAI*LAMBDA = BETA5
037909,001247: 32,3161 53605 DMP SL*
037910,001248: 32,3162 00001 00D
037911,001249: 32,3163 20172 0 -7,1
037912,001250: 32,3164 45257 SL* DSU
037913,001251: 32,3165 20172 0 -7,1
037914,001252: 32,3166 31673 1RTEB17
037915,001253: 32,3167 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 PL05D
037916,001254: 32,3170 45562 TPMODE
037917,001255: 32,3171 31655 1RTEB1
037918,001256: 32,3172 57457 SR* DCOMP
037919,001257: 32,3173 20601 0,1
037920,001258: 32,3174 41215 DAD DMP
037921,001259: 32,3175 00001 00D
![]() |
Page 869 |
037923,001261: 32,3176 03646 R(T1)
037924,001262: 32,3177 47057 SL* RTB
037925,001263: 32,3200 20172 0 -7D,1
037926,001264: 32,3201 45562 TPMODE
037927,001265: 32,3202 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
037928,001266: 32,3203 33770 RTMURTE
037929,001267: 32,3204 70501 NORM SR1
037930,001268: 32,3205 00050 X2
037931,001269: 32,3206 56264 XSU,2 DDV
037932,001270: 32,3207 00050 S1
037933,001271: 32,3210 00013 10D
037934,001272: 32,3211 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
037935,001273: 32,3212 57170 6,2
037936,001274: 32,3213 03652 MAMAX1
037937,001275: 32,3214 41406 PUSH PUSH # MAMAX1=MA
037938,001276: 32,3215 77624 CALL
037939,001277: 32,3216 65747 XT1LIM
037940,001278: 32,3217 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
037941,001279: 32,3220 40476 DCOMP SR4
037942,001280: 32,3221 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
037943,001281: 32,3222 03654 MAMAX2
037944,001282: 32,3223 45006 PUSH CALL
037945,001283: 32,3224 65747 XT1LIM
037946,001284: 32,3225 50125 PDDL BMN # X(T1)MAX B5 PL16D
037947,001285: 32,3226 03730 NN1A
037948,001286: 32,3227 65232 V2T102
037949,001287: 32,3230 77650 GOTO
037950,001288: 32,3231 65244 V2T110
037951,001289:
037952,001290: # PROCEED HERE IF NOT PRECISION COMPUTATION
037953,001291:
037954,001292: 32,3232 77745 V2T102 DLOAD
037955,001293: 32,3233 03632 RTEDVD
037956,001294: 32,3234 52054 BZE GOTO
037957,001295: 32,3235 65237 V2T105
037958,001296: 32,3236 65340 V2T140
037959,001297: 32,3237 50145 V2T105 DLOAD BMN
037960,001298: 32,3240 03757 CFPA
037961,001299: 32,3241 65340 V2T140
037962,001300: 32,3242 77650 GOTO
037963,001301: 32,3243 65346 V2T145
037964,001302:
037965,001303: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
037966,001304: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
037967,001305: # THROUGH X(T2)
037968,001306:
037969,001307: 32,3244 47145 V2T110 DLOAD RTB
037970,001308: 32,3245 31673 1RTEB17
037971,001309: 32,3246 45562 TPMODE
037972,001310: 32,3247 65276 DCOMP PDDL # -1 B17 PL19D
![]() |
Page 870 |
037974,001312: 32,3250 31717 2RTEB1
037975,001313: 32,3251 45257 SR* DSU
037976,001314: 32,3252 20601 0,1
037977,001315: 32,3253 00001 00D
037978,001316: 32,3254 53605 DMP SL*
037979,001317: 32,3255 00035 28D
037980,001318: 32,3256 20172 0 -7,1
037981,001319: 32,3257 76257 SL* TAD
037982,001320: 32,3260 20172 0 -7,1
037983,001321: 32,3261 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
037984,001322: 32,3262 45562 TPMODE
037985,001323: 32,3263 03722 X(T1)
037986,001324: 32,3264 00001 STORE 00D # X(T1),, B5
037987,001325: 32,3265 77751 TLOAD # PL16D
037988,001326: 32,3266 53040 BMN BZE
037989,001327: 32,3267 65274 V2T115
037990,001328: 32,3270 65274 V2T115
037991,001329: 32,3271 52061 SL GOTO
037992,001330: 32,3272 20210 7
037993,001331: 32,3273 65305 V2T120
037994,001332: 32,3274 50145 V2T115 DLOAD BMN
037995,001333: 32,3275 03761 PHI2
037996,001334: 32,3276 65316 V2T125
037997,001335: 32,3277 77676 DCOMP
037998,001336: 32,3300 17761 STODL PHI2
037999,001337: 32,3301 31721 M9RTEB28
038000,001338: 32,3302 03730 STORE NN1A
038001,001339: 32,3303 77650 GOTO
038002,001340: 32,3304 65316 V2T125
038003,001341: 32,3305 47166 V2T120 SQRT RTB
038004,001342: 32,3306 45713 DPMODE
038005,001343: 32,3307 50125 PDDL BMN # BETA6**.5=X(T1)LIM B5 PL18D
038006,001344: 32,3310 03761 PHI2
038007,001345: 32,3311 65324 V2T130
038008,001346: 32,3312 45545 DLOAD STADR # PL16D
038009,001347: 32,3313 77760 STORE 14D # X(T1)LIM = X(T1)MAX
038010,001348: 32,3314 77676 DCOMP
038011,001349: 32,3315 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
038012,001350: 32,3316 53145 V2T125 DLOAD BZE
038013,001351: 32,3317 03722 X(T1)
038014,001352: 32,3320 65340 V2T140
038015,001353: 32,3321 52040 BMN GOTO
038016,001354: 32,3322 65340 V2T140
038017,001355: 32,3323 65346 V2T145
038018,001356: 32,3324 53145 V2T130 DLOAD BZE
038019,001357: 32,3325 03722 X(T1)
038020,001358: 32,3326 65335 V2T135
038021,001359: 32,3327 71240 BMN DLOAD # PL16D
038022,001360: 32,3330 65335 V2T135
038023,001361: 32,3331 77626 STADR
![]() |
Page 871 |
038025,001363: 32,3332 77764 STORE 10D # X(T1)LIM = X(T1)MIN
038026,001364: 32,3333 77650 GOTO
038027,001365: 32,3334 65346 V2T145
038028,001366: 32,3335 57545 V2T135 DLOAD DCOMP # PL16D
038029,001367: 32,3336 77626 STADR
038030,001368: 32,3337 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
038031,001369: 32,3340 77745 V2T140 DLOAD
038032,001370: 32,3341 00013 10D
038033,001371: 32,3342 17722 STODL X(T1) # X(T1)MIN = X(T1)
038034,001372: 32,3343 00015 12D
038035,001373: 32,3344 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
038036,001374: 32,3345 65353 V2T150
038037,001375: 32,3346 77745 V2T145 DLOAD
038038,001376: 32,3347 00017 14D
038039,001377: 32,3350 17722 STODL X(T1) # X(T1)MAX = X(T1)
038040,001378: 32,3351 00015 12D
038041,001379: 32,3352 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
038042,001380: 32,3353 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
038043,001381: 32,3354 65474 GAMDV10
038044,001382: 32,3355 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
038045,001383: 32,3356 03632 RTEDVD
038046,001384: 32,3357 65472 V2T1X
038047,001385:
038048,001386: # CONTINUE IF TIME CRITICAL MODE
038049,001387:
038050,001388: 32,3360 50025 DSU BMN
038051,001389: 32,3361 03706 DV
038052,001390: 32,3362 65365 V2T155
038053,001391: 32,3363 77650 GOTO
038054,001392: 32,3364 65420 V2T175
038055,001393: 32,3365 50145 V2T155 DLOAD BMN
038056,001394: 32,3366 03730 NN1A
038057,001395: 32,3367 65372 V2T160
038058,001396: 32,3370 77650 GOTO
038059,001397: 32,3371 65433 V2T185
038060,001398:
038061,001399: # CONIC TRAJECTORY COMPUTATION
038062,001400:
038063,001401: 32,3372 53145 V2T160 DLOAD BZE
038064,001402: 32,3373 03722 X(T1)
038065,001403: 32,3374 65400 V2T165
038066,001404: 32,3375 52040 BMN GOTO
038067,001405: 32,3376 65400 V2T165
038068,001406: 32,3377 65470 V2T300
038069,001407: 32,3400 53145 V2T165 DLOAD BZE
038070,001408: 32,3401 03757 CFPA
038071,001409: 32,3402 65470 V2T300
038072,001410: 32,3403 71240 BMN DLOAD
038073,001411: 32,3404 65470 V2T300
038074,001412: 32,3405 00017 14D
![]() |
Page 872 |
038076,001414: 32,3406 17722 STODL X(T1) # X(T1)MAX=X(T1)
038077,001415: 32,3407 00015 12D
038078,001416: 32,3410 77676 DCOMP
038079,001417: 32,3411 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
038080,001418: 32,3412 65474 GAMDV10
038081,001419: 32,3413 45345 DLOAD DSU
038082,001420: 32,3414 03632 RTEDVD
038083,001421: 32,3415 03706 DV
038084,001422: 32,3416 77640 BMN
038085,001423: 32,3417 65470 V2T300
038086,001424: 32,3420 71214 V2T175 SET DLOAD
038087,001425: 32,3421 00072 F2RTE
038088,001426: 32,3422 03722 X(T1)
038089,001427: 32,3423 14017 STODL 14D # X(T1)=X(T1)MAX
038090,001428: 32,3424 00015 12D
038091,001429: 32,3425 77676 DCOMP
038092,001430: 32,3426 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
038093,001431: 32,3427 65474 GAMDV10
038094,001432: 32,3430 50145 DLOAD BMN
038095,001433: 32,3431 03730 NN1A
038096,001434: 32,3432 65470 V2T300
038097,001435:
038098,001436: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
038099,001437: # PRECISION TRAJECTORY
038100,001438:
038101,001439: 32,3433 45345 V2T185 DLOAD DSU
038102,001440: 32,3434 03722 X(T1)
038103,001441: 32,3435 00001 00D
038104,001442: 32,3436 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
038105,001443: 32,3437 00015 12D
038106,001444: 32,3440 44352 SL1 BDSU
038107,001445: 32,3441 71240 BMN DLOAD
038108,001446: 32,3442 65470 V2T300
038109,001447: 32,3443 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
038110,001448: 32,3444 03722 STORE X(T1) # X(T1),, = X(T1)
038111,001449: 32,3445 50025 DSU BMN
038112,001450: 32,3446 00017 14D
038113,001451: 32,3447 65455 V2T195
038114,001452: 32,3450 77745 DLOAD
038115,001453: 32,3451 00017 14D
038116,001454: 32,3452 03722 STORE X(T1) # X(T1)MAX = X(T1)
038117,001455: 32,3453 77650 GOTO
038118,001456: 32,3454 65466 V2T205
038119,001457: 32,3455 45345 V2T195 DLOAD DSU
038120,001458: 32,3456 03722 X(T1)
038121,001459: 32,3457 00013 10D
038122,001460: 32,3460 52040 BMN GOTO
038123,001461: 32,3461 65463 V2T200
038124,001462: 32,3462 65466 V2T205
038125,001463: 32,3463 77745 V2T200 DLOAD
![]() |
Page 873 |
038127,001465: 32,3464 00013 10D
038128,001466: 32,3465 03722 STORE X(T1) # X(T1)MIN = X(T1)
038129,001467: 32,3466 77624 V2T205 CALL
038130,001468: 32,3467 65673 DVCALC
038131,001469: 32,3470 77745 V2T300 DLOAD
038132,001470: 32,3471 31701 ZERORTE
038133,001471: 32,3472 77650 V2T1X GOTO
038134,001472: 32,3473 00041 33D
038135,001473:
![]() |
Page 874 |
038137,001475: # X(T1)-DV ITERATOR SUBROUTINE
038138,001476:
038139,001477: # DESCRIPTION
038140,001478: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
038141,001479: # CALLING SEQUENCE
038142,001480: # L CALL
038143,001481: # L+1 GAMDV10
038144,001482:
038145,001483: # NORMAL EXIT MODE
038146,001484: # AT L+2 OF CALLING SEQUENCE
038147,001485:
038148,001486: # ALARM EXIT MODE
038149,001487: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038150,001488:
038151,001489: # SUBROUTINES CALLED
038152,001490: # DVCALC
038153,001491:
038154,001492: # ERASABLE INITIALIZATION REQUIRED
038155,001493: # PUSHLIST
038156,001494: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038157,001495: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038158,001496: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038159,001497: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
038160,001498: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
038161,001499: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
038162,001500: # 16D DX(T1)=ITERATOR INCREMENT DP B5
038163,001501: # MPAC
038164,001502: # NONE
038165,001503: # OTHER
038166,001504: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038167,001505: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
038168,001506: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038169,001507: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038170,001508: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
038171,001509: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
038172,001510:
038173,001511: # OUTPUT
038174,001512: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038175,001513: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038176,001514: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
038177,001515: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038178,001516:
038179,001517: # DEBRIS
038180,001518: # PUSHLIST
038181,001519: # 00D X(T1),,
038182,001520: # 02D THETA1
038183,001521: # 05D THETA2
038184,001522: # 08D THETA3
038185,001523: # 10D X(T1)MIN
038186,001524: # 12D DX(T1)MAX
![]() |
Page 875 |
038188,001526: # 14D X(T1)MAX
038189,001527: # 16D DX(T1)
038190,001528: # 22D DV,=PREVIOUS DV DP B7/B5
038191,001529: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
038192,001530: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
038193,001531: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038194,001532: # 33D V2T100 SUBROUTINE RETURN ADDRESS
038195,001533: 32,3474 77620 GAMDV10 STQ
038196,001534: 32,3475 00037 31D
038197,001535: 32,3476 45001 SETPD CALL
038198,001536: 32,3477 00023 18D # PL18D
038199,001537: 32,3500 65673 DVCALC
038200,001538: 32,3501 45345 DLOAD DSU
038201,001539: 32,3502 00017 14D
038202,001540: 32,3503 00013 10D
038203,001541: 32,3504 77600 BOV
038204,001542: 32,3505 65525 GAMDV20
038205,001543: 32,3506 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
038206,001544: 32,3507 31774 EPC9RTE
038207,001545: 32,3510 71240 BMN DLOAD
038208,001546: 32,3511 65671 GAMDVX # BOUNDS CLOSE TOGETHER
038209,001547: 32,3512 00023 18D
038210,001548: 32,3513 50025 DSU BMN # BETA8-DX(T1)MAX
038211,001549: 32,3514 00015 12D
038212,001550: 32,3515 65521 GAMDV15
038213,001551: 32,3516 52001 SETPD GOTO # PL18D
038214,001552: 32,3517 00023 18D
038215,001553: 32,3520 65525 GAMDV20
038216,001554: 32,3521 77745 GAMDV15 DLOAD # PL18D
038217,001555: 32,3522 70565 SIGN SR1
038218,001556: 32,3523 00021 16D
038219,001557: 32,3524 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
038220,001558: 32,3525 77745 GAMDV20 DLOAD
038221,001559: 32,3526 31703 M144RTE
038222,001560: 32,3527 03732 STORE NN2
038223,001561: 32,3530 43345 GAMDV25 DLOAD DAD
038224,001562: 32,3531 03732 NN2
038225,001563: 32,3532 31677 1RTEB28
038226,001564: 32,3533 67240 BMN SLOAD
038227,001565: 32,3534 65540 GAMDV30
038228,001566: 32,3535 31737 OCT605
038229,001567: 32,3536 77650 GOTO
038230,001568: 32,3537 65472 V2T1X
038231,001569: 32,3540 03732 GAMDV30 STORE NN2 # NN2=NN2+1
038232,001570: 32,3541 65345 DLOAD PDDL # X(T1)=X(T1), B5 PL20D
038233,001571: 32,3542 03722 X(T1)
038234,001572: 32,3543 03706 DV
038235,001573: 32,3544 43325 PDDL DAD # DV=DV, B7/B5 PL22D
038236,001574: 32,3545 03722 X(T1)
038237,001575: 32,3546 00021 16D
![]() |
Page 876 |
038239,001577: 32,3547 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
038240,001578: 32,3550 65673 DVCALC
038241,001579: 32,3551 71214 BON DLOAD
038242,001580: 32,3552 00312 F2RTE
038243,001581: 32,3553 65567 GAMDV35
038244,001582: 32,3554 03706 DV
038245,001583: 32,3555 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
038246,001584: 32,3556 00025 20D
038247,001585: 32,3557 65564 GAMDV33
038248,001586: 32,3560 57545 GAMDV32 DLOAD DCOMP
038249,001587: 32,3561 00021 16D
038250,001588: 32,3562 77742 SR1
038251,001589: 32,3563 00021 STORE 16D
038252,001590: 32,3564 52001 GAMDV33 SETPD GOTO
038253,001591: 32,3565 00023 18D # PL18D
038254,001592: 32,3566 65630 GAMDV50
038255,001593:
038256,001594: # TIME CRITICAL MODE
038257,001595:
038258,001596: 32,3567 45345 GAMDV35 DLOAD DSU
038259,001597: 32,3570 03632 RTEDVD
038260,001598: 32,3571 03706 DV
038261,001599: 32,3572 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
038262,001600: 32,3573 51545 GAMDV40 DLOAD ABS # DV, PL24D
038263,001601: 32,3574 00025 20D
038264,001602: 32,3575 50025 DSU BMN
038265,001603: 32,3576 31776 EPC10RTE
038266,001604: 32,3577 65671 GAMDVX
038267,001605: 32,3600 77745 GAMDV45 DLOAD # PL22D
038268,001606: 32,3601 60221 BDSU NORM
038269,001607: 32,3602 03706 DV
038270,001608: 32,3603 00050 X2
038271,001609: 32,3604 77725 PDDL # DV-DV, B7/B5-N2 PL22D
038272,001610: 32,3605 70501 NORM SR1 # DVERR B8/B6-N1
038273,001611: 32,3606 00047 X1
038274,001612: 32,3607 77671 DDV
038275,001613: 32,3610 65200 BOV PDDL # DVERR/(DV-DV,) PL20D
038276,001614: 32,3611 65624 GAMDV47
038277,001615: 32,3612 41221 BDSU DMP # PL18D
038278,001616: 32,3613 03722 X(T1)
038279,001617: 32,3614 53660 XSU,1 SR*
038280,001618: 32,3615 00047 X2
038281,001619: 32,3616 20600 0 -1,1
038282,001620: 32,3617 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
038283,001621: 32,3620 45246 ABS DSU
038284,001622: 32,3621 00015 12D
038285,001623: 32,3622 77640 BMN
038286,001624: 32,3623 65630 GAMDV50
038287,001625: 32,3624 75345 GAMDV47 DLOAD SIGN
038288,001626: 32,3625 00015 12D
![]() |
Page 877 |
038290,001628: 32,3626 00021 16D
038291,001629: 32,3627 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
038292,001630:
038293,001631: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
038294,001632:
038295,001633: 32,3630 41345 GAMDV50 DLOAD DMP
038296,001634: 32,3631 00021 16D
038297,001635: 32,3632 31713 1.1RTEB1
038298,001636: 32,3633 43352 SL1 DAD
038299,001637: 32,3634 03722 X(T1)
038300,001638: 32,3635 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
038301,001639: 32,3636 50025 DSU BMN
038302,001640: 32,3637 00017 14D
038303,001641: 32,3640 65647 GAMDV55
038304,001642: 32,3641 45345 DLOAD DSU
038305,001643: 32,3642 00017 14D
038306,001644: 32,3643 03722 X(T1)
038307,001645: 32,3644 77742 SR1
038308,001646: 32,3645 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
038309,001647: 32,3646 65662 GAMDV65
038310,001648: 32,3647 45345 GAMDV55 DLOAD DSU
038311,001649: 32,3650 00031 24D
038312,001650: 32,3651 00013 10D
038313,001651: 32,3652 52040 BMN GOTO
038314,001652: 32,3653 65655 GAMDV60
038315,001653: 32,3654 65662 GAMDV65
038316,001654: 32,3655 45345 GAMDV60 DLOAD DSU
038317,001655: 32,3656 00013 10D
038318,001656: 32,3657 03722 X(T1)
038319,001657: 32,3660 77742 SR1
038320,001658: 32,3661 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
038321,001659: 32,3662 51545 GAMDV65 DLOAD ABS
038322,001660: 32,3663 00021 16D
038323,001661: 32,3664 50025 DSU BMN
038324,001662: 32,3665 31774 EPC9RTE
038325,001663: 32,3666 65671 GAMDVX
038326,001664: 32,3667 77650 GOTO
038327,001665: 32,3670 65530 GAMDV25
038328,001666: 32,3671 77650 GAMDVX GOTO
038329,001667: 32,3672 00037 31D
038330,001668:
![]() |
Page 878 |
038332,001670: # DV CALCULATION SUBROUTINE
038333,001671:
038334,001672: # INPUT
038335,001673: # PUSHLIST
038336,001674: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038337,001675: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038338,001676: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038339,001677: # OTHER
038340,001678: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
038341,001679: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
038342,001680: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038343,001681: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038344,001682:
038345,001683: # OUTPUT
038346,001684: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038347,001685: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038348,001686: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038349,001687:
038350,001688: # DEBRIS
038351,001689: # 28D THETA3*PCON**.5 DP B10/B8-N1
038352,001690: # C(PUSLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
038353,001691: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038354,001692: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
038355,001693:
038356,001694: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
038357,001695:
038358,001696: 32,3673 71220 DVCALC STQ DLOAD
038359,001697: 32,3674 00040 32D
038360,001698: 32,3675 03722 X(T1)
038361,001699: 32,3676 54316 DSQ SR
038362,001700: 32,3677 20610 7
038363,001701: 32,3700 76276 DCOMP TAD
038364,001702: 32,3701 00003 02D
038365,001703: 32,3702 41501 NORM PUSH
038366,001704: 32,3703 00047 X1
038367,001705: 32,3704 60351 TLOAD NORM
038368,001706: 32,3705 00006 05D
038369,001707: 32,3706 00050 X2
038370,001708: 32,3707 70434 RTB SR1
038371,001709: 32,3710 45713 DPMODE
038372,001710: 32,3711 56264 XSU,2 DDV
038373,001711: 32,3712 00046 X1
038374,001712: 32,3713 77657 SR*
038375,001713: 32,3714 57170 6,2
038376,001714: 32,3715 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
038377,001715: 32,3716 41366 SQRT DMP
038378,001716: 32,3717 00011 08D
038379,001717: 32,3720 77701 NORM
038380,001718: 32,3721 00047 X1
038381,001719: 32,3722 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
![]() |
Page 879 |
038383,001721: 32,3723 03722 X(T1)
038384,001722: 32,3724 74301 NORM VXSC
038385,001723: 32,3725 00050 X2
038386,001724: 32,3726 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
038387,001725: 32,3727 74274 XAD,2 VXSC
038388,001726: 32,3730 00046 X1
038389,001727: 32,3731 00035 28D
038390,001728: 32,3732 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
038391,001729: 32,3733 57207 0 -9D,2 # +
038392,001730: 32,3734 03746 UH/
038393,001731: 32,3735 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
038394,001732: 32,3736 00035 28D
038395,001733: 32,3737 20575 0 -4,1 # =
038396,001734: 32,3740 45455 VAD STADR
038397,001735: 32,3741 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
038398,001736: 32,3742 51451 VSU ABVAL
038399,001737: 32,3743 03672 V(T1)/
038400,001738: 32,3744 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
038401,001739: 32,3745 77650 GOTO
038402,001740: 32,3746 00040 32D
038403,001741:
![]() |
Page 880 |
038405,001743: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
038406,001744:
038407,001745: # INPUT
038408,001746: # PUSHLIST
038409,001747: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
038410,001748: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
038411,001749: # 28D BETA5=LAMBDA*BETA1 DP B9
038412,001750: # OTHER
038413,001751: # RCON DP B29/B27
038414,001752: # R(T1) DP B29/B27
038415,001753: # OUTPUT
038416,001754: # MPAC
038417,001755: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
038418,001756: # DEBRIS
038419,001757: # PUSHLIST
038420,001758: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
038421,001759: # C(PSHLOC)+2 MA DP B30/B28
038422,001760: # X1 NORMALIZATION FACTOR FOR MA-RCON
038423,001761: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
038424,001762: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
038425,001763:
038426,001764: 32,3747 71220 XT1LIM STQ DLOAD
038427,001765: 32,3750 00024 20D
038428,001766: 32,3751 03636 RCON
038429,001767: 32,3752 44342 SR1 BDSU
038430,001768: 32,3753 65301 NORM PDDL # MA-RCON B30-N1
038431,001769: 32,3754 00050 X2
038432,001770: 32,3755 70525 PDDL SR1
038433,001771: 32,3756 03646 R(T1)
038434,001772: 32,3757 56221 BDSU DDV
038435,001773: 32,3760 41257 SL* DMP
038436,001774: 32,3761 57577 0 -1,2
038437,001775: 32,3762 00035 28D
038438,001776: 32,3763 77657 SL*
038439,001777: 32,3764 20172 0 -7,1
038440,001778: 32,3765 50025 DSU BMN # (BETA5(MA-R(T1))/(MA-RCON))-1 B10
038441,001779: 32,3766 31665 1RTEB10
038442,001780: 32,3767 65772 XT1LIM5
038443,001781: 32,3770 52166 SQRT GOTO
038444,001782: 32,3771 65774 XT1LIMX
038445,001783: 32,3772 77745 XT1LIM5 DLOAD
038446,001784: 32,3773 31701 ZERORTE
038447,001785: 32,3774 77650 XT1LIMX GOTO
038448,001786: 32,3775 00024 20D
038449,001787:
![]() |
Page 881 |
038451,001789: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
038452,001790:
038453,001791: 36,3250 BANK 36
038454,001792: 34,2000 SETLOC RTECON
038455,001793: 34,2000 BANK
038456,001794:
038457,001795: 34,3654 20000 00000 1RTEB1 2DEC 1.
038458,001796: 34,3656 10000 00000 1RTEB2 2DEC 1.
038459,001797: 34,3660 04000 00000 1RTEB3 2DEC 1.
038460,001798: 34,3662 02000 00000 1RTEB4 2DEC 1.
038461,001799: 34,3664 00020 00000 1RTEB10 2DEC 1.
038462,001800: 34,3666 00004 00000 1RTEB12 2DEC 1.
038463,001801: 34,3670 00002 00000 1RTEB13 2DEC 1.
038464,001802: 34,3672 00000 04000 1RTEB17 2DEC 1.
038465,001803: 34,3674 00000 00010 1RTEB25 2DEC 1.
038466,001804: 34,3676 00000 00001 1RTEB28 2DEC 1.
038467,001805: 34,3700 00000 00000 ZERORTE 2DEC 0 B-28
038468,001806: 34,3702 77777 77557 M144RTE 2DEC -144.
038469,001807: 34,3704 77777 77760 M15RTE 2DEC -15 B-28
038470,001808: 34,3706 00000 00012 10RTE 2DEC 10 B-28
038471,001809: 34,3710 54631 63145 M.6RTE 2DEC -.6
038472,001810: 34,3712 21463 06315 1.1RTEB1 2DEC 1.1
038473,001811: 34,3714 77777 77771 M6RTEB28 2DEC -6 B-28
038474,001812: 34,3716 37777 37777 2RTEB1 2OCT 3777737777
038475,001813: 34,3720 77777 77766 M9RTEB28 2DEC -9 B-28
038476,001814: 34,3722 77777 77767 M8RTEB28 2DEC -8 B-28
038477,001815: 34,3724 00000 35610 30480RTE 2DEC 30480.
038478,001816: 34,3726 36703 03743 VCSPS 2DEC 30.8811
![]() |
Page 882 |
038480,001818: 34,3730 33041 37714 VCRCS 2DEC 27.0664
038481,001819: 34,3732 00003 13241 MDOTRCS 2DEC .0016375
038482,001820: 34,3734 20000 00000 CSUBT 2DEC .5
038483,001821: 34,3736 00605 OCT605 OCT 00605
038484,001822: 34,3737 00612 OCT612 OCT 00612
038485,001823: 34,3740 00613 OCT613 OCT 00613
038486,001824: 34,3741 40214 45266 MCOS7.5 2DEC -.99144486
038487,001825: 34,3743 73645 56536 MSIN7.5 2DEC -.13052619
038488,001826: 34,3745 70467 71205 MCOS22.5 2DEC -.92387953
038489,001827: 34,3747 16525 12525 THETA165 2DEC .458333333
038490,001828: 34,3751 22525 12525 THETA210 2DEC .583333333
038491,001829: 34,3753 17775 06676 EPC1RTE 2DEC .99966
038492,001830: 34,3755 00000 00062 EPC2RTE 2DEC 100.
038493,001831: 34,3757 00020 14223 EPC3RTE 2DEC .001
038494,001832: 34,3761 00000 05174 EPC4RTE 2DEC .00001
038495,001833: 34,3763 00002 21727 EPC5RTE 2DEC .01
038496,001834: 34,3765 00000 01654 EPC6RTE 2DEC .000007
038497,001835: 34,3767 00000 00764 EPC7RTE 2DEC 1000.
038498,001836: 34,3771 00040 30447 EPC8RTE 2DEC .002
038499,001837: 34,3773 00000 00010 EPC9RTE 2DEC 1.
038500,001838: 34,3775 00000 00322 EPC10RTE 2DEC .0001
038501,001839: 35,3755 BANK 35
038502,001840: 35,2000 SETLOC RTECON1
038503,001841: 35,2000 BANK
038504,001842: 35,3755 27657 01000 C4RTE 2DEC 8.
038505,001843: 35,3757 00325 23740 K1RTE 2DEC 7.
038506,001844: 35,3761 00306 06614 K2RTE 2DEC 6495000.
038507,001845: 35,3763 76027 70156 K3RTE 2DEC -.06105
![]() |
Page 883 |
038509,001847: 35,3765 74517 54131 K4RTE 2DEC -.10453
038510,001848: 35,3767 30276 05001 RTMURTE 2DEC 199650.501
038511,001849: 35,3771 00003 27040 E3RTE 2DEC 121920.
End of include-file P37,P70.agc. Parent file is MAIN.agc