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