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