Source Code
![]() |
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
037618,000002: ## Copyright: Public domain.
037619,000003: ## Filename: P37_P70.agc
037620,000004: ## Purpose: Part of the source code for Colossus, build 249.
037621,000005: ## It is part of the source code for the Command Module's (CM)
037622,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
037623,000007: ## Assembler: yaYUL
037624,000008: ## Reference: pp. 843-886.
037625,000009: ## Contact: Ron Burkey <info@sandroid.org>.
037626,000010: ## Website: www.ibiblio.org/apollo.
037627,000011: ## Mod history: 08/21/04 RSB. Began transcribing.
037628,000012: ## 2010-10-24 JL Indentation fixes. Added missing # in comment.
037629,000013: ## 2017-01-06 RSB Page numbers now agree with those on the
037630,000014: ## original harcopy, as opposed to the PDF page
037631,000015: ## numbers in 1701.pdf.
037632,000016: ## 2017-01-18 RSB Cross-diff'd comment text (not whitespace)
037633,000017: ## vs the already-proofed corresponding Colossus
037634,000018: ## 237 and Comanche 55 source-code files
037635,000019: ## and corrected errors found.
037636,000020: ##
037637,000021: ## The contents of the "Colossus249" files, in general, are transcribed
037638,000022: ## from a scanned copy of the program listing. Notations on this
037639,000023: ## document read, in part:
037640,000024: ##
037641,000025: ## Assemble revision 249 of AGC program Colossus by NASA
037642,000026: ## 2021111-041. October 28, 1968.
037643,000027: ##
037644,000028: ## This AGC program shall also be referred to as
037645,000029: ## Colossus 1A
037646,000030: ##
037647,000031: ## Prepared by
037648,000032: ## Massachusetts Institute of Technology
037649,000033: ## 75 Cambridge Parkway
037650,000034: ## Cambridge, Massachusetts
037651,000035: ## under NASA contract NAS 9-4065.
037652,000036: ##
037653,000037: ## Refer directly to the online document mentioned above for further information.
037654,000038: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
037655,000039: ##
037656,000040: ## In some cases, where the source code for Luminary 131 overlaps that of
037657,000041: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
037658,000042: ## source file, and then is proofed to incorporate any changes.
037659,000043:
![]() |
Page 843 |
037661,000045: 31,3215 BANK 31
037662,000046: 36,2000 SETLOC RTE1
037663,000047: 36,2000 BANK
037664,000048:
037665,000049: 36,2502 E7,1631 EBANK= RTEDVD
037666,000050: 36,2502 COUNT 31/P37
037667,000051:
037668,000052: # PROGRAM DESCRIPTION - P37, RETURN TO EARTH
037669,000053:
037670,000054: # DESCRIPTION
037671,000055: # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE
037672,000056: # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE
037673,000057: # DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE
037674,000058: # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM
037675,000059: # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
037676,000060:
037677,000061: # CALLING SEQUENCE
037678,000062: # L TC P37
037679,000063:
037680,000064: # SUBROUTINES CALLED
037681,000065: # PREC100
037682,000066: # V2T100
037683,000067: # RTENCK2
037684,000068: # RTENCK3
037685,000069: # TIMERAD
037686,000070: # PARAM
037687,000071: # V2T100
037688,000072: # GAMDV10
037689,000073: # XT1LIM
037690,000074: # DVCALC
037691,000075: # RTENCK1
037692,000076: # INTSTALL
037693,000077: # INTEGRVS
037694,000078: # RTEVN
037695,000079: # RTEDISP
037696,000080: # TMRAD100
037697,000081: # AUGEKUGL
037698,000082: # LAT-LONG
037699,000083: # TMRAD100
037700,000084: # TIMERAD
037701,000085: # INVC100
037702,000086: # CSMPREC
037703,000087: # GETERAD
037704,000088: # TIMETHET
037705,000089: # P370ALRM
037706,000090: # VN1645
037707,000091: # POLY
037708,000092:
037709,000093: # ERASABLE INITIALIZATION REQUIRED
037710,000094: # CSM STATE VECTOR
![]() |
Page 844 |
037712,000096: # NJETSFLG NUMBER OF JETS IF THE RCS PROPULSION SYSTEM SELECTED STATE FLAG 0=4 JETS 1=2 JETS
037713,000097:
037714,000098: # ASTRONAUT INPUT
037715,000099: # SPRTETIG TIME OF IGNITION (OVERLAYS TIG) DP B28 CS
037716,000100: # VPRED DESIRED CHANGE IN VELOCITY AT TIG(PROGRM COMPUTED IF 0) DP B7 METERS/CS
037717,000101: # GAMMAEI DESIRED FLIGHT PATH ANGLE AT REENTRY (COMPUTED IF 0) DP B0 REVS + ABOVE HORIZ.
037718,000102: # OPTION2 PROPULSION SYSTEM OPTION SP B14 1=SPS, 2=RCS
037719,000103:
037720,000104: # OUTPUT
037721,000105: # CONIC OR PRECISION TRAJECTORY DISPLAY
037722,000106: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
037723,000107: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
037724,000108: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZON
037725,000109: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
037726,000110: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
037727,000111: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
037728,000112: # TARGETING COMPUTATION DISPLAY
037729,000113: # TIG RECOMPUTED TIG BASED ON THRUST OPTION DP B28 CS
037730,000114: # TTOGO TIME FROM TIG DP B28 CS
037731,000115: # +MGA POSITIVE MIDDLE GIMBAL ANGLE DP B0 REVS -.02 IF REFSMFLG=0
037732,000116: # THRUST PROGRAM COMMUNICATION
037733,000117: # XDELVFLG EXTERNAL DELTA V FLAG STATE FLAG SET 0 FOR LAMBERT AIMPT
037734,000118: # NORMSW LAMBERT AIMPT ROTATION SWITCH STATE FLAG SET 0 FOR NO ROTATION
037735,000119: # ECSTEER CROSS PRODUCT STEERING CONSTANT SP B2 SET 1
037736,000120: # RTARG CONICALLY INTEGRATED REENTRY POSITION VECTOR VECTOR B29 METERS
037737,000121: # TPASS4 REENTRY TIME DP B28 CS
037738,000122:
037739,000123: 36,2502 05301 P37 TC PHASCHNG # P37 IS NOT RESTARTABLE.
037740,000124: 36,2503 00004 OCT 4
037741,000125:
037742,000126: 36,2504 06006 TC INTPRET
037743,000127: 36,2505 66170 AXT,1 SXA,1
037744,000128: 36,2506 04000 OCT 04000
037745,000129: 36,2507 03424 ECSTEER
037746,000130: 36,2510 77776 EXIT
037747,000131: 36,2511 33242 CAF V6N33RTE # INPUT TIG STORED IN SPRTETIG
037748,000132: 36,2512 03231 TCR P370GOF # OVERLAYED WITH TIG
037749,000133: 36,2513 12511 TCF -2 # DESPLAY NEW DATA
037750,000134: 36,2514 33246 CAF V6N60RTE # INPUT REENTRY ANGLE IN GAMMAEI
037751,000135: 36,2515 03205 TCR P37GFRB1 # AND DESIRED DELTA V IN RTEDVD
037752,000136: 36,2516 12514 TCF -2 # DISPLAY NEW DATA
037753,000137: 36,2517 06006 RTE299 TC INTPRET
037754,000138: 36,2520 71331 SSP DLOAD
037755,000139: 36,2521 00122 OVFIND
037756,000140: 36,2522 00000 0
037757,000141: 36,2523 03767 VPRED
037758,000142: 36,2524 17632 STODL RTEDVD
037759,000143: 36,2525 03771 GAMMAEI
037760,000144: 36,2526 17634 STODL RTEGAM2D
037761,000145: 36,2527 31667 1RTEB13
![]() |
Page 845 |
037763,000147: 36,2530 17735 STODL CONICX1
037764,000148: 36,2531 33756 C4RTE
037765,000149: 36,2532 37652 STCALL MAMAX1
037766,000150: 36,2533 64427 INVC100 # GET R(T1)/,V(T1)/,UR1/,UH/
037767,000151: 36,2534 77545 DLOAD EXIT
037768,000152: 36,2535 03646 R(T1)
037769,000153: 36,2536 07171 TC POLY
037770,000154: 36,2537 00002 DEC 2 B-14
037771,000155: 36,2540 02544 35436 2DEC 181000434 B-31
037772,000156: 36,2542 14040 05066 2DEC 1.50785145 B-2
037773,000157: 36,2544 44052 60030 2DEC* -6.49993057 E-9 B27*
037774,000158: 36,2546 26415 25057 2DEC* 9.76938926 E-18 B56*
037775,000159:
037776,000160: 36,2550 06006 TC INTPRET
037777,000161: 36,2551 77752 SL1
037778,000162: 36,2552 17654 STODL MAMAX2 # C0+C1*R+C2*R**2+C3*R**3=MAMAX2 B30
037779,000163: 36,2553 31717 M9RTEB28
037780,000164: 36,2554 17730 STODL NN1A
037781,000165: 36,2555 33762 K2RTE
037782,000166: 36,2556 17636 RTE320 STODL RCON # RCON=K2
037783,000167: 36,2557 03634 RTEGAM2D
037784,000168: 36,2560 44254 BZE BDSU
037785,000169: 36,2561 74570 RTE340 # GOTORTE340 IF REENTRY ANGLE NOT INPUT
037786,000170: 36,2562 31655 1RTEB2
037787,000171: 36,2563 71406 PUSH COS # PL02D
037788,000172: 36,2564 73525 PDDL SIN
037789,000173: 36,2565 45465 BDDV STADR # PL00D
037790,000174: 36,2566 40051 STCALL X(T2) # X(T2)=COT(GAM2D) B0
037791,000175: 36,2567 74603 RTE360
037792,000176: 36,2570 45345 RTE340 DLOAD DSU
037793,000177: 36,2571 03646 R(T1)
037794,000178: 36,2572 33760 K1RTE
037795,000179: 36,2573 71240 BMN DLOAD
037796,000180: 36,2574 74600 RTE350
037797,000181: 36,2575 33766 K4RTE
037798,000182: 36,2576 37726 STCALL X(T2) # X(T2)=K4
037799,000183: 36,2577 74603 RTE360
037800,000184: 36,2600 77745 RTE350 DLOAD
037801,000185: 36,2601 33764 K3RTE
037802,000186: 36,2602 03726 STORE X(T2) # X(T2)=K3
037803,000187: 36,2603 77624 RTE360 CALL
037804,000188: 36,2604 65136 V2T100
037805,000189: 36,2605 52054 BZE GOTO
037806,000190: 36,2606 74610 RTE367
037807,000191: 36,2607 74772 RTEALRM
037808,000192: 36,2610 77775 RTE367 VLOAD
037809,000193: 36,2611 03640 R(T1)/
![]() |
Page 846 |
037811,000195: 36,2612 16657 STODL RVEC
037812,000196: 36,2613 03636 RCON
037813,000197: 36,2614 26760 STOVL RDESIRED
037814,000198: 36,2615 03700 V2(T1)/
037815,000199: 36,2616 36746 STCALL VVEC
037816,000200: 36,2617 64272 TMRAD100
037817,000201: 36,2620 77615 DAD
037818,000202: 36,2621 03716 T1
037819,000203: 36,2622 17736 STODL T2
037820,000204: 36,2623 03634 RTEGAM2D
037821,000205: 36,2624 52054 BZE GOTO
037822,000206: 36,2625 74627 RTE369
037823,000207: 36,2626 74651 RTE372
037824,000208: 36,2627 51575 RTE369 VLOAD ABVAL
037825,000209: 36,2630 03710 V(T2)/
037826,000210: 36,2631 77776 EXIT
037827,000211: 36,2632 07171 TC POLY
037828,000212: 36,2633 00002 DEC 2 B-14
037829,000213: 36,2634 00000 00000 2DEC 0 B-28
037830,000214: 36,2636 47021 65002 2DEC -4.8760771 E-2 B4
037831,000215: 36,2640 35610 07722 2DEC 4.5419476 E-4 B11
037832,000216: 36,2642 63772 63276 2DEC -1.4317675 E-6 B18
037833,000217:
037834,000218: 36,2644 06006 TC INTPRET
037835,000219: 36,2645 77615 DAD
037836,000220: 36,2646 01352 RTED1
037837,000221: 36,2647 52052 SL3 GOTO # X(T2),=D1+D2V2+D3V2**2+D4V2**3
037838,000222: 36,2650 74653 RTE373
037839,000223: 36,2651 77745 RTE372 DLOAD # X(T2),=X(T2)
037840,000224: 36,2652 03726 X(T2)
037841,000225: 36,2653 41425 RTE373 DSU PUSH # X(T2)ERR B0 PL02D
037842,000226: 36,2654 03726 X(T2)
037843,000227: 36,2655 53575 VLOAD UNIT
037844,000228: 36,2656 03656 R(T2)/ # B58
037845,000229: 36,2657 36152 STCALL ALPHAV
037846,000230: 36,2660 26437 GETERAD
037847,000231: 36,2661 77615 DAD
037848,000232: 36,2662 33772 E3RTE
037849,000233: 36,2663 45206 PUSH DSU # RCON,=(E1/(1+E2BETA11)**.5)+E3 B29 PL04D
037850,000234: 36,2664 03636 RCON
037851,000235: 36,2665 45246 ABS DSU
037852,000236: 36,2666 31754 EPC2RTE
037853,000237: 36,2667 52040 BMN GOTO
037854,000238: 36,2670 74672 RTE374
037855,000239: 36,2671 74677 RTE375
037856,000240: 36,2672 51545 RTE374 DLOAD ABS
037857,000241: 36,2673 00001 00D
![]() |
Page 847 |
037859,000243: 36,2674 50025 DSU BMN
037860,000244: 36,2675 31756 EPC3RTE
037861,000245: 36,2676 74747 P37E
037862,000246: 36,2677 43345 RTE375 DLOAD DAD
037863,000247: 36,2700 03730 NN1A
037864,000248: 36,2701 31675 1RTEB28
037865,000249: 36,2702 67240 BMN SLOAD
037866,000250: 36,2703 74707 RTE380
037867,000251: 36,2704 31735 OCT605
037868,000252: 36,2705 77650 GOTO
037869,000253: 36,2706 74772 RTEALRM # TOO MANY ITERATIONS
037870,000254: 36,2707 03730 RTE380 STORE NN1A
037871,000255: 36,2710 53025 DSU BZE
037872,000256: 36,2711 31721 M8RTEB28
037873,000257: 36,2712 74730 RTE385
037874,000258: 36,2713 45345 DLOAD DSU
037875,000259: 36,2714 00001 00D
037876,000260: 36,2715 03666 DRCON
037877,000261: 36,2716 65301 NORM PDDL # X(T2)ERR-X(T2)ERR,=Z1 PL06D
037878,000262: 36,2717 00047 X1
037879,000263: 36,2720 03670 RPRE'
037880,000264: 36,2721 56225 DSU DDV # X(T2)PRI-X(T2)=Z2 PL04D
037881,000265: 36,2722 03726 X(T2)
037882,000266: 36,2723 53605 DMP SL* # DX(T2)=X(T2)ERR(Z2/Z1)
037883,000267: 36,2724 00001 00D
037884,000268: 36,2725 20201 0,1
037885,000269: 36,2726 77650 GOTO
037886,000270: 36,2727 74732 RTE390
037887,000271: 36,2730 77745 RTE385 DLOAD # DX(T2)=X(T2)ERR
037888,000272: 36,2731 00001 00D
037889,000273: 36,2732 14021 RTE390 STODL 16D # DX(T2) PL02D
037890,000274: 36,2733 77626 STADR
037891,000275: 36,2734 60141 STODL RCON # RCON=RCON,
037892,000276: 36,2735 77600 BOV
037893,000277: 36,2736 74603 RTE360
037894,000278: 36,2737 17666 STODL DRCON # X(T2)ERR,=X(T2)ERR
037895,000279: 36,2740 03726 X(T2)
037896,000280: 36,2741 17670 STODL RPRE' # X(T2)PRI=X(T2)
037897,000281: 36,2742 00021 16D
037898,000282: 36,2743 77615 DAD
037899,000283: 36,2744 03726 X(T2)
037900,000284: 36,2745 37726 STCALL X(T2) # X(T2)=X(T2)+DX(T2)
037901,000285: 36,2746 74603 RTE360 # REITERATE
037902,000286: 36,2747 77624 P37E CALL # DISPLAY CONIC SOLUTION
037903,000287: 36,2750 74776 RTEVN
037904,000288: 36,2751 41345 RTE505 DLOAD DMP
037905,000289: 36,2752 03720 PCON
037906,000290: 36,2753 03754 BETA1
037907,000291: 36,2754 53021 BDSU BZE
037908,000292: 36,2755 03636 RCON
![]() |
Page 848 |
037910,000294: 36,2756 74764 RTE510
037911,000295: 36,2757 71240 BMN DLOAD
037912,000296: 36,2760 74764 RTE510
037913,000297: 36,2761 31655 1RTEB2
037914,000298: 36,2762 77650 GOTO # ENTRY NEAR APOGEE
037915,000299: 36,2763 74766 RTE515
037916,000300: 36,2764 57545 RTE510 DLOAD DCOMP # ENTRY NEAR PERIGEE
037917,000301: 36,2765 31655 1RTEB2
037918,000302: 36,2766 37761 RTE515 STCALL PHI2
037919,000303: 36,2767 64515 PREC100 # PRECISION TRAJECTORY COMPUTATION
037920,000304: 36,2770 77654 RTE625 BZE
037921,000305: 36,2771 75024 P37G
037922,000306: 36,2772 77624 RTEALRM CALL
037923,000307: 36,2773 64255 P370ALRM
037924,000308: 36,2774 77776 EXIT
037925,000309: 36,2775 12502 TCF P37 # RECYCLE AFTER ALARM DISPLAY
037926,000310:
037927,000311: # RETURN TO EARTH DISPLAY SUBROUTINE
037928,000312:
037929,000313: 36,2776 45020 RTEVN STQ CALL
037930,000314: 36,2777 03763 VNSTORE
037931,000315: 36,3000 64311 RTEDISP # DISPLAY PREPARATION
037932,000316: 36,3001 77776 EXIT
037933,000317: 36,3002 33244 CAF V6N61RTE # LATITUDE,LONGITUDE,BLANK
037934,000318: 36,3003 03215 TCR P370GOFR # IN LAT(SPL),LNG(SPL),-
037935,000319: 36,3004 34710 CAF FOUR
037936,000320: 36,3005 03211 TCR 37BLANK +1
037937,000321: 36,3006 13013 TCF +5
037938,000322: 36,3007 12502 TCF P37 # RECYCLE
037939,000323: 36,3010 33245 CAF V6N39RTE # T21 HRS,MIN,SEC IN T3TOT4
037940,000324: 36,3011 03231 TCR P370GOF
037941,000325: 36,3012 12502 TCF P37 # RECYCLE
037942,000326: 36,3013 33246 CAF V6N60RTE # DISPLAY BLANK,V(T2),FPA2
037943,000327: 36,3014 03205 TCR P37GFRB1 # IN -,VPRED,GAMMAEI
037944,000328: 36,3015 12502 TCF P37 # RECYCLE
037945,000329: 36,3016 33247 CAF V6N81RTE # DISPLAY DELTA V (LV) IN DELVLVC
037946,000330: 36,3017 03231 TCR P370GOF
037947,000331: 36,3020 12502 TCF P37 # RECYCLE
037948,000332: 36,3021 06006 TCR INTPRET
037949,000333: 36,3022 77650 GOTO
037950,000334: 36,3023 03763 VNSTORE
037951,000335:
037952,000336: # PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
037953,000337:
037954,000338: 36,3024 77624 P37G CALL
037955,000339: 36,3025 74776 RTEVN
037956,000340: 36,3026 77776 EXIT
037957,000341: 36,3027 34716 P37N CAF SEVEN
037958,000342: 36,3030 55131 TS OPTION1
037959,000343: 36,3031 34712 CAF ONE
![]() |
Page 849 |
037961,000345: 36,3032 55132 TS OPTION2
037962,000346: 36,3033 33243 CAF V4N06RTE # DISPLAY RCS OR SPS OPTION SPS ASSUMED
037963,000347: 36,3034 03231 TCR P370GOF
037964,000348: 36,3035 13033 TCF -2 # RECYCLE
037965,000349: 36,3036 06006 TC INTPRET # PROCEED
037966,000350: 36,3037 67201 SETPD SLOAD
037967,000351: 36,3040 00001 00D
037968,000352: 36,3041 01133 OPTION2
037969,000353: 36,3042 53025 DSU BZE
037970,000354: 36,3043 31667 1RTEB13
037971,000355: 36,3044 75053 P37Q
037972,000356: 36,3045 60335 SLOAD NORM # SPS
037973,000357: 36,3046 00111 EMDOT
037974,000358: 36,3047 00047 X1
037975,000359: 36,3050 52125 PDDL GOTO
037976,000360: 36,3051 31725 VCSPS
037977,000361: 36,3052 75064 P37T
037978,000362: 36,3053 43145 P37Q DLOAD BON # RCS
037979,000363: 36,3054 31731 MDOTRCS
037980,000364: 36,3055 00700 NJETSFLG
037981,000365: 36,3056 75060 P37R
037982,000366: 36,3057 77752 SL1
037983,000367: 36,3060 77752 P37R SL1
037984,000368: 36,3061 65301 NORM PDDL
037985,000369: 36,3062 00047 X1
037986,000370: 36,3063 31727 VCRCS
037987,000371: 36,3064 56325 P37T PDDL DDV # DV/VC B7 -B5 = B2 PL02D
037988,000372: 36,3065 03706 DV
037989,000373: 36,3066 77776 EXIT
037990,000374: 36,3067 07171 TC POLY
037991,000375: 36,3070 00001 DEC 1 B-14
037992,000376: 36,3071 00001 05070 2DEC 5.66240507 E-4 B-3
037993,000377: 36,3073 17527 36700 2DEC 9.79487897 E-1 B-1
037994,000378: 36,3075 47114 70670 2DEC -.388281955 B1
037995,000379: 36,3077 06006 TC INTPRET
037996,000380: 36,3100 67206 PUSH SLOAD # (1-E)**(-DV/VC)=A B3 PL04D
037997,000381: 36,3101 03076 WEIGHT/G
037998,000382: 36,3102 56205 DMP DDV # DTB=(M0/MDOT)A B16+B3-B3=B16 PL00D
037999,000383: 36,3103 41257 SL* DMP
038000,000384: 36,3104 20165 0 -12D,1
038001,000385: 36,3105 31733 CSUBT
038002,000386: 36,3106 77621 BDSU
038003,000387: 36,3107 03716 T1
038004,000388: 36,3110 03413 STORE TIG # TIG=T1-CT*DTB B28
038005,000389: 36,3111 77776 EXIT
038006,000390: 36,3112 33242 CAF V6N33RTE # DISPLAY BIASED TIG
038007,000391: 36,3113 03231 TCR P370GOF
![]() |
Page 850 |
038009,000393: 36,3114 13112 TCF -2
038010,000394: 36,3115 34714 CAF ZERO
038011,000395: 36,3116 55125 TS VHFCNT
038012,000396: 36,3117 55126 TS TRKMKCNT
038013,000397: 36,3120 06006 TC INTPRET
038014,000398: 36,3121 77624 CALL # CONICALLY INTEGRATE FROM R1,V1 OVER T12
038015,000399: 36,3122 65055 RTENCK1
038016,000400: 36,3123 53575 VLOAD UNIT # PL00D
038017,000401: 36,3124 03656 R(T2)/
038018,000402: 36,3125 74315 PDVL VXSC # UR2 B1 PL06D
038019,000403: 36,3126 03740 UR1/
038020,000404: 36,3127 31740 MCOS7.5
038021,000405: 36,3130 74315 PDVL VXSC # -UR1(COS7.5) B1 PL12D
038022,000406: 36,3131 03746 UH/
038023,000407: 36,3132 31742 MSIN7.5
038024,000408: 36,3133 50255 VAD DOT # K/=-UR1(COS7.5)-UH(SIN7.5) B2 PL00D
038025,000409: 36,3134 50015 DAD BMN
038026,000410: 36,3135 31744 MCOS22.5
038027,000411: 36,3136 75163 P37W
038028,000412: 36,3137 50375 VLOAD DOT # K/ . UR2 GR COS22.5
038029,000413: 36,3140 03746 UH/
038030,000414: 36,3141 03656 R(T2)/
038031,000415: 36,3142 71240 BMN DLOAD
038032,000416: 36,3143 75147 P37U
038033,000417: 36,3144 31746 THETA165
038034,000418: 36,3145 52006 PUSH GOTO
038035,000419: 36,3146 75151 P37V
038036,000420: 36,3147 41545 P37U DLOAD PUSH
038037,000421: 36,3150 31750 THETA210
038038,000422: 36,3151 77756 P37V SIN
038039,000423: 36,3152 16732 STODL SNTH
038040,000424: 36,3153 43146 COS CLEAR
038041,000425: 36,3154 03666 RVSW
038042,000426: 36,3155 26734 STOVL CSTH
038043,000427: 36,3156 03640 R(T1)/
038044,000428: 36,3157 26657 STOVL RVEC
038045,000429: 36,3160 03700 V2(T1)/
038046,000430: 36,3161 36746 STCALL VVEC
038047,000431: 36,3162 24737 TIMETHET
038048,000432: 36,3163 43014 P37W CLEAR CLEAR
038049,000433: 36,3164 01267 XDELVFLG
038050,000434: 36,3165 03665 NORMSW
038051,000435: 36,3166 77214 SET VLOAD
038052,000436: 36,3167 01071 FINALFLG
038053,000437: 36,3170 77626 STADR
038054,000438: 36,3171 60362 STODL RTARG
038055,000439: 36,3172 00037 T
038056,000440: 36,3173 77615 DAD
038057,000441: 36,3174 03716 T1
038058,000442: 36,3175 27656 STOVL TPASS4
![]() |
Page 851 |
038060,000444: 36,3176 03700 V2(T1)/
038061,000445: 36,3177 77651 VSU
038062,000446: 36,3200 03672 V(T1)/
038063,000447: 36,3201 37646 STCALL DELVSIN
038064,000448: 36,3202 73005 VN1645
038065,000449: 36,3203 77650 GOTO
038066,000450: 36,3204 75163 P37W
038067,000451:
038068,000452: # SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
038069,000453:
038070,000454: 36,3205 00006 P37GFRB1 EXTEND
038071,000455: 36,3206 23762 QXCH SPRTEX
038072,000456: 36,3207 03215 TCR P370GOFR
038073,000457: 36,3210 34712 37BLANK CAF ONE
038074,000458: 36,3211 05415 TCR BLANKET
038075,000459: 36,3212 15112 TCF ENDOFJOB
038076,000460: 36,3213 01762 TC SPRTEX # RECYCLE
038077,000461: 36,3214 13240 TCF P37PROC # PROCEED
038078,000462:
038079,000463: # SUBROUTINE TO GO TO GOFLASHR
038080,000464:
038081,000465: 36,3215 00006 P370GOFR EXTEND
038082,000466: 36,3216 23733 QXCH RTENCKEX
038083,000467: 36,3217 04555 TCR BANKCALL
038084,000468: 36,3220 20763 CADR GOFLASHR
038085,000469: 36,3221 14106 TCF GOTOPOOH # TERMINATE
038086,000470: 36,3222 13225 TCF +3
038087,000471: 36,3223 13227 TCF +4
038088,000472: 36,3224 01733 TC RTENCKEX # IMMEDIATE RETURN
038089,000473: 36,3225 51733 INDEX RTENCKEX # PROCEED
038090,000474: 36,3226 10004 TCF 0 +4
038091,000475: 36,3227 51733 INDEX RTENCKEX # RECYCLE
038092,000476: 36,3230 10003 TCF 0 +3
038093,000477:
038094,000478: # SUBROUTINE TO GO TO GOFLASH
038095,000479:
038096,000480: 36,3231 00006 P370GOF EXTEND
038097,000481: 36,3232 23762 QXCH SPRTEX
038098,000482: 36,3233 04555 TCR BANKCALL
038099,000483: 36,3234 20624 CADR GOFLASH
038100,000484: 36,3235 14106 TCF GOTOPOOH
038101,000485: 36,3236 13240 TCF +2
038102,000486: 36,3237 01762 TC SPRTEX
038103,000487: 36,3240 51762 P37PROC INDEX SPRTEX
038104,000488: 36,3241 10001 TCF 0 +1
038105,000489: 36,3242 01441 V6N33RTE VN 0633
038106,000490: 36,3243 01006 V4N06RTE VN 0406
038107,000491: 36,3244 01475 V6N61RTE VN 0661
038108,000492: 36,3245 01447 V6N39RTE VN 0639
038109,000493: 36,3246 01474 V6N60RTE VN 0660
![]() |
Page 852 |
038111,000495: 36,3247 01521 V6N81RTE VN 0681
038112,000496: 32,2255 BANK 32
038113,000497: 32,2000 SETLOC RTE
038114,000498: 32,2000 BANK
038115,000499: 32,2255 COUNT 32/RTE
038116,000500:
![]() |
Page 853 |
038118,000502: # ALARM DISPLAY SUBROUTINE
038119,000503:
038120,000504: 32,2255 77420 P370ALRM STQ EXIT
038121,000505: 32,2256 03762 SPRTEX
038122,000506: 32,2257 30154 CA MPAC
038123,000507: 32,2260 05651 TC VARALARM
038124,000508: 32,2261 32271 CAF V5N09RTE
038125,000509: 32,2262 04555 TC BANKCALL
038126,000510: 32,2263 20624 CADR GOFLASH
038127,000511: 32,2264 14106 TCF GOTOPOOH
038128,000512: 32,2265 12261 TCF -4
038129,000513: 32,2266 06006 TC INTPRET
038130,000514: 32,2267 77650 GOTO
038131,000515: 32,2270 03762 SPRTEX
038132,000516: 32,2271 01211 V5N09RTE VN 0509
038133,000517:
![]() |
Page 854 |
038135,000519: # TIME RADIUS CALLING SUBROUTINE
038136,000520:
038137,000521: # INPUT
038138,000522: # RVEC INITIAL POSITION VECTOR VECTOR B29 METERS
038139,000523: # VVEC INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038140,000524: # RDESIRED FINAL RADIUS FOR WHICH TRANSFER TIME IS TO BE COMPUTED DP B29 METERS
038141,000525: # CONICX1 X1 SETTING FOR CONIC SUBROUTINES -2=EARTH SP B14
038142,000526:
038143,000527: # OUTPUT
038144,000528: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038145,000529: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038146,000530: # T12 TRANSFER TIME TO FINAL RADIUS DP B28 CS
038147,000531:
038148,000532: 32,2272 43020 TMRAD100 STQ CLEAR
038149,000533: 32,2273 03733 RTENCKEX
038150,000534: 32,2274 03666 RVSW
038151,000535: 32,2275 67164 AXC,2 SXA,2
038152,000536: 32,2276 20000 OCT 20000
038153,000537: 32,2277 02756 SGNRDOT
038154,000538: 32,2300 45140 LXC,1 CALL
038155,000539: 32,2301 03734 CONICX1
038156,000540: 32,2302 25552 TIMERAD
038157,000541: 32,2303 27710 STOVL V(T2)/ # PL00D
038158,000542: 32,2304 77626 STADR
038159,000543: 32,2305 60121 STODL R(T2)/
038160,000544: 32,2306 00037 T
038161,000545: 32,2307 37724 STCALL T12
038162,000546: 32,2310 03733 RTENCKEX
038163,000547:
![]() |
Page 855 |
038165,000549: # DISPLAY CALCULATION SUBROUTINE
038166,000550:
038167,000551: # DESCRIPTION
038168,000552: # OUTPUT FOR DISPLAY IS CONVERTED TO PROPER UNITS AND PLACED IN OUTPUT STORAGE REGISTERS. LANDING SITE
038169,000553: # COMPUTATION FOR DETERMINING LANDING SITE LATITUDE AND LONGITUDE IS INCLUDED IN THE ROUTINE.
038170,000554:
038171,000555: # CALLING SEQUENCE
038172,000556: # L CALL
038173,000557: # L+1 RTEDISP
038174,000558:
038175,000559: # SUBROUTINES CALLED
038176,000560: # TMRAD100
038177,000561: # AUGEKUGL
038178,000562: # LAT-LONG
038179,000563:
038180,000564: # ERASABLE INITIALIZATION REQUIRED
038181,000565: # PUSHLIST
038182,000566: # NONE
038183,000567: # MPAC
038184,000568: # NONE
038185,000569: # OTHER
038186,000570: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038187,000571: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038188,000572: # T2 FINAL TIME DP B28 CS
038189,000573: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038190,000574: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038191,000575: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038192,000576: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038193,000577:
038194,000578: # OUTPUT
038195,000579: # VPRED VELOCITY MAGNITUDE AT 400,000 FT. ENTRY ALTITUDE DP B7 METERS/CS
038196,000580: # T3TOT4 TRANSIT TIME TO 400,000 FT. ENTRY ALTITUDE DP B28 CS
038197,000581: # GAMMAEI FLIGHT PATH ANGLE AT 400,000 FT. ENTRY ALTITUDE DP B0 REVS + ABOVE HORIZ
038198,000582: # DELVLVC INITIAL VELOCITY CHANGE VECTOR IN LOCAL VERTICAL COORD. VECTOR B7 METERS/CS
038199,000583: # LAT(SPL) LATITUDE OF THE LANDING SITE DP B0 REVS
038200,000584: # LNG(SPL) LONGITUDE OF THE LANDING SITE DP B0 REVS
038201,000585:
038202,000586: 32,2311 77220 RTEDISP STQ VLOAD # DISPLAY
038203,000587: 32,2312 03762 SPRTEX
038204,000588: 32,2313 03710 V(T2)/
038205,000589: 32,2314 65256 UNIT PDDL
038206,000590: 32,2315 00045 36D
038207,000591: 32,2316 17767 STODL VPRED # V(T2)
038208,000592: 32,2317 03736 T2
038209,000593: 32,2320 77625 DSU
038210,000594: 32,2321 03413 SPRTETIG
038211,000595: 32,2322 26641 STOVL T3TOT4 # T21
038212,000596: 32,2323 03656 R(T2)/
038213,000597: 32,2324 50256 UNIT DOT
038214,000598: 32,2325 77752 SL1
![]() |
Page 856 |
038216,000600: 32,2326 44326 ARCCOS BDSU
038217,000601: 32,2327 31655 1RTEB2
038218,000602: 32,2330 27771 STOVL GAMMAEI # FLIGHT PATH ANGLE T2
038219,000603: 32,2331 03700 V2(T1)/
038220,000604: 32,2332 41451 VSU PUSH
038221,000605: 32,2333 03672 V(T1)/
038222,000606: 32,2334 57441 DOT DCOMP
038223,000607: 32,2335 03740 UR1/
038224,000608: 32,2336 41515 PDVL PUSH
038225,000609: 32,2337 63345 DLOAD PDVL
038226,000610: 32,2340 31677 ZERORTE
038227,000611: 32,2341 55441 DOT VDEF
038228,000612: 32,2342 03746 UH/
038229,000613: 32,2343 77772 VSL1
038230,000614: 32,2344 27405 STOVL DELVLVC # DV/ (LVC)
038231,000615: 32,2345 03656 R(T2)/
038232,000616: 32,2346 02657 STORE RVEC # ***** LANDING SITE COMPUTATION *****
038233,000617: 32,2347 45246 ABVAL DSU
038234,000618: 32,2350 31723 30480RTE
038235,000619: 32,2351 26760 STOVL RDESIRED
038236,000620: 32,2352 03710 V(T2)/
038237,000621: 32,2353 36746 STCALL VVEC
038238,000622: 32,2354 64272 TMRAD100 # R3,V3,T23 FROM TIMERAD
038239,000623: 32,2355 53575 VLOAD UNIT
038240,000624: 32,2356 03656 R(T2)/
038241,000625: 32,2357 53515 PDVL UNIT # UR3 PL06D
038242,000626: 32,2360 03710 V(T2)/
038243,000627: 32,2361 72441 DOT SL1 # GAMMAE=ARCSIN(UR3 . UV3) PL00D
038244,000628: 32,2362 65336 ARCSIN PDDL # V(T3) PL02D
038245,000629: 32,2363 00045 36D
038246,000630: 32,2364 51525 PDDL ABS
038247,000631: 32,2365 45006 PUSH CALL # /GAMMAE/ PL04D
038248,000632: 32,2366 64075 AUGEKUGL # PHIE PL06D
038249,000633: 32,2367 43215 DAD DAD
038250,000634: 32,2370 03724 T12 # T23
038251,000635: 32,2371 03736 T2
038252,000636: 32,2372 14003 STODL 02D # T(LS)=T2+T23+TE
038253,000637: 32,2373 00005 04D
038254,000638: 32,2374 77756 SIN
038255,000639: 32,2375 17403 STODL LNG(SPL) # LNG(SPL)=SIN(PHIE) PL04D
038256,000640: 32,2376 77746 COS
038257,000641: 32,2377 03401 STORE LAT(SPL) # LAT(SPL)=COS(PHIE)
038258,000642: 32,2400 53575 VLOAD UNIT
038259,000643: 32,2401 03656 R(T2)/
038260,000644: 32,2402 41406 PUSH PUSH
038261,000645: 32,2403 53515 PDVL UNIT # PL22D
038262,000646: 32,2404 03710 V(T2)/
038263,000647: 32,2405 47315 PDVL VXV
038264,000648: 32,2406 53435 VXV UNIT # UH3=UNIT(UR3 X UV3 X UR3) PL10D
038265,000649: 32,2407 63361 VXSC PDVL
![]() |
Page 857 |
038267,000651: 32,2410 03403 LNG(SPL)
038268,000652: 32,2411 53361 VXSC VAD # PL04D
038269,000653: 32,2412 03401 LAT(SPL)
038270,000654: 32,2413 43014 CLEAR CLEAR # T(LS) IN MPAC
038271,000655: 32,2414 00662 ERADFLAG
038272,000656: 32,2415 01663 LUNAFLAG
038273,000657: 32,2416 16152 STODL ALPHAV # ALPHAV=UR3(COSPHIE)+UH3(SINPHIE) PL02D
038274,000658: 32,2417 77624 CALL
038275,000659: 32,2420 26322 LAT-LONG
038276,000660: 32,2421 77745 DLOAD
038277,000661: 32,2422 01104 LAT
038278,000662: 32,2423 17401 STODL LAT(SPL) # LATITUDE LANDING SITE *****
038279,000663: 32,2424 01106 LONG
038280,000664: 32,2425 37403 STCALL LNG(SPL) # LONGITUDE LANDING SITE *****
038281,000665: 32,2426 03762 SPRTEX
038282,000666: 32,2427 COUNT* $$/RTE
038283,000667:
![]() |
Page 858 |
038285,000669: # INITIAL VECTOR SUBROUTINE
038286,000670:
038287,000671: # DESCRIPTION
038288,000672: # A PRECISION INTEGRATION OF THE STATE VECTOR TO THE TIME OF IGNITION IS PERFORMED. PRECOMPUTATIONS OCCUR.
038289,000673:
038290,000674: # CALLING SEQUENCE
038291,000675: # L CALL
038292,000676: # L+1 INVC100
038293,000677:
038294,000678: # NORMAL EXIT MODE
038295,000679: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038296,000680:
038297,000681: # ALARM EXIT MODE
038298,000682: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 612 FOR STATE VECTOR IN MOONS SPHERE OF INFLUENCE
038299,000683:
038300,000684: # SUBROUTINES CALLED
038301,000685: # CSMPREC
038302,000686:
038303,000687: # ERASABLE INITIALIZATION REQUIRED
038304,000688: # PUSHLIST
038305,000689: # NONE
038306,000690: # MPAC
038307,000691: # NONE
038308,000692: # OTHER
038309,000693: # SPRTETIG TIME OF IGNITION DP B28 CS
038310,000694: # CSM STATE VECTOR
038311,000695:
038312,000696: # OUTPUT
038313,000697: # R(T1)/ INITIAL POSITION VECTOR AT TIG VECTOR B29 METERS
038314,000698: # V(T1)/ INITIAL VELOCITY VECTOR AT TIG VECTOR B7 METERS/CS
038315,000699: # T1 INITIAL VECTOR TIME (TIG) DP B28 CS
038316,000700: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038317,000701: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038318,000702: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
038319,000703:
038320,000704: 32,2427 71220 INVC100 STQ DLOAD
038321,000705: 32,2430 03762 SPRTEX
038322,000706: 32,2431 03413 SPRTETIG
038323,000707: 32,2432 34041 STCALL TDEC1
038324,000708: 32,2433 27022 CSMPREC # PRECISION INTEGRATION R0,V0 TO R1,V1
038325,000709: 32,2434 67175 VLOAD SXA,2
038326,000710: 32,2435 00001 RATT
038327,000711: 32,2436 03755 P(T1)
038328,000712: 32,2437 27640 STOVL R(T1)/
038329,000713: 32,2440 00007 VATT
038330,000714: 32,2441 17672 STODL V(T1)/
038331,000715: 32,2442 00015 TAT
038332,000716: 32,2443 03716 STORE T1
038333,000717: 32,2444 53135 SLOAD BZE
038334,000718: 32,2445 03756 P(T1)
![]() |
Page 859 |
038336,000720: 32,2446 64452 INVC109
038337,000721: 32,2447 52135 INVC107 SLOAD GOTO
038338,000722: 32,2450 31736 OCT612
038339,000723: 32,2451 74772 RTEALRM # R1,V1 NOT IN PROPER SPHERE OF INFLUENCE
038340,000724: 32,2452 53575 INVC109 VLOAD UNIT
038341,000725: 32,2453 03640 R(T1)/
038342,000726: 32,2454 17740 STODL UR1/ # UR1/ B1
038343,000727: 32,2455 00045 36D
038344,000728: 32,2456 27646 STOVL R(T1) # R(T1) B29
038345,000729: 32,2457 03672 V(T1)/
038346,000730: 32,2460 77656 UNIT
038347,000731: 32,2461 03746 STORE UV1/
038348,000732: 32,2462 72441 DOT SL1
038349,000733: 32,2463 03740 UR1/
038350,000734: 32,2464 03757 STORE CFPA # CFPA B1
038351,000735: 32,2465 45246 ABS DSU
038352,000736: 32,2466 31752 EPC1RTE
038353,000737: 32,2467 71240 BMN DLOAD
038354,000738: 32,2470 64477 INVC115 # NOT NEAR RECTILINEAR
038355,000739: 32,2471 31655 1RTEB2
038356,000740: 32,2472 41525 PDDL PUSH
038357,000741: 32,2473 31677 ZERORTE
038358,000742: 32,2474 41466 VDEF PUSH # N/ = (0,0,1)
038359,000743: 32,2475 77650 GOTO
038360,000744: 32,2476 64503 INVC120
038361,000745: 32,2477 47375 INVC115 VLOAD VXV
038362,000746: 32,2500 03740 UR1/
038363,000747: 32,2501 03746 UV1/
038364,000748: 32,2502 77606 PUSH # N/ = UR X UV B2
038365,000749: 32,2503 41545 INVC120 DLOAD PUSH
038366,000750: 32,2504 77244 BPL VLOAD
038367,000751: 32,2505 64507 INVC125
038368,000752: 32,2506 41476 VCOMP PUSH # CORRECT N/ FOR RETROGRADE TRAJECTORY
038369,000753: 32,2507 77775 INVC125 VLOAD
038370,000754: 32,2510 53435 VXV UNIT
038371,000755: 32,2511 03740 UR1/
038372,000756: 32,2512 03746 STORE UH/ # UH/ B1
038373,000757: 32,2513 77650 GOTO
038374,000758: 32,2514 03762 SPRTEX
038375,000759:
![]() |
Page 860 |
038377,000761: # PRECISION TRAJECTORY COMPUTATION SUBROUTINE
038378,000762:
038379,000763: # DESCRIPTION
038380,000764: # A NUMERICALLY INTEGRATED TRAJECTORY IS GENERATED WHICH FOR THE RETURN TO EARTH PROBLEM SATISFIES THE REENTRY
038381,000765: # CONSTRAINTS (RCON AND X(T2)) ACHIEVED BY THE INITIAL CONIC TRAJECTORY AND MEETS THE DVD REQUIREMENT AS CLOSELY
038382,000766: # AS POSSIBLE.
038383,000767:
038384,000768: # CALLING SEQUENCE
038385,000769: # L CALL
038386,000770: # L+1 PREC100
038387,000771:
038388,000772: # NORMAL EXIT MODE
038389,000773: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038390,000774:
038391,000775: # ALARM EXIT MODE
038392,000776: # AT L+2 OF CALLING SEQUENCE WITH MPAC =
038393,000777: # OCTAL 605 FOR EXCESS ITERATIONS
038394,000778: # OCTAL 613 FOR REENTRY ANGLE OUT OF LIMITS
038395,000779:
038396,000780: # SUBROUTINES CALLED
038397,000781: # INTSTALL
038398,000782: # RTENCK2
038399,000783: # RTENCK3
038400,000784: # TIMERAD
038401,000785: # PARAM
038402,000786: # V2T100
038403,000787:
038404,000788: # ERASABLE INITIALIZATION REQUIRED
038405,000789: # PUSHLIST
038406,000790: # NONE
038407,000791: # MPAC
038408,000792: # NONE
038409,000793: # OTHER
038410,000794: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29/B27 METERS
038411,000795: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038412,000796: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038413,000797: # T1 INITIAL VECTOR TIME DP B28 CS
038414,000798: # T12 INITIAL TO FINAL POSITION TIME DP B28 CS
038415,000799: # RCON CONIC FINAL RADIUS DP B29/B27 METERS
038416,000800: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
038417,000801: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
038418,000802: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE DP B5
038419,000803: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
038420,000804: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038421,000805: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038422,000806: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038423,000807: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038424,000808: # BETA1 1+X(T2)**2 DP B1
038425,000809: # PHI2 PERIGEE OR APOGEE INDICATOR DP B2 -1 PERIGEE, +1 APOGEE
![]() |
Page 861 |
038427,000811:
038428,000812: # OUTPUT
038429,000813: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 METERS/CS
038430,000814: # R(T2)/ FINAL POSITION VECTOR VECTOR B29 METERS
038431,000815: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038432,000816: # T2 FINAL TIME DP B28 CENTISECONDS
038433,000817:
038434,000818: # DEBRIS
038435,000819: # RD FINAL R DESIRED DP B29/B27 METERS
038436,000820: # R/APRE R/A DP B6
038437,000821: # P/RPRE P/R DP B2
038438,000822: # RPRE MAGNITUDE OF R(T2)/ DP B29/B27 METERS
038439,000823: # X(T2)PRE COTANGENT OF GAMMA2 DP B0
038440,000824: # DT12 CORRECTION TO FINAL TIME T2 DP B28 CENTISECONDS
038441,000825: # RCON FINAL RADIUS DP B29/B27 METERS
038442,000826: # DRCON DELTA RCON DP B29/B27 METERS
038443,000827:
038444,000828: 32,2515 71220 PREC100 STQ DLOAD
038445,000829: 32,2516 03762 SPRTEX
038446,000830: 32,2517 31705 10RTE
038447,000831: 32,2520 17730 STODL NN1A
038448,000832: 32,2521 03636 RCON
038449,000833: 32,2522 03664 STORE RD
038450,000834: 32,2523 77745 PREC120 DLOAD
038451,000835: 32,2524 31715 2RTEB1
038452,000836: 32,2525 17650 STODL DT21PR # DT21PR = POSMAX
038453,000837: 32,2526 31703 M15RTE
038454,000838: 32,2527 37732 STCALL NN2
038455,000839: 32,2530 65103 RTENCK3
038456,000840: 32,2531 77624 PREC125 CALL
038457,000841: 32,2532 11527 PARAM
038458,000842: 32,2533 77745 DLOAD
038459,000843: 32,2534 02742 P
038460,000844: 32,2535 14033 STODL P/RPRE
038461,000845: 32,2536 02744 R1A
038462,000846: 32,2537 14035 STODL R/APRE
038463,000847: 32,2540 00041 R1
038464,000848: 32,2541 14031 STODL RPRE
038465,000849: 32,2542 03775 COGA
038466,000850: 32,2543 77661 SL
038467,000851: 32,2544 20206 5
038468,000852: 32,2545 03724 STORE X(T2)PRE
038469,000853: 32,2546 43276 DCOMP DAD
038470,000854: 32,2547 03726 X(T2)
038471,000855: 32,2550 45246 ABS DSU
038472,000856: 32,2551 31760 EPC4RTE
038473,000857: 32,2552 50000 BOV BMN
038474,000858: 32,2553 64555 PREC130
038475,000859: 32,2554 64736 PREC175
038476,000860:
038477,000861: # DESIRED REENTRY ANGLE NOT ACHIEVED
![]() |
Page 862 |
038479,000863: 32,2555 50145 PREC130 DLOAD BMN
038480,000864: 32,2556 03732 NN2
038481,000865: 32,2557 64563 PREC140
038482,000866: 32,2560 52135 PREC132 SLOAD GOTO # TOO MANY ITERATIONS
038483,000867: 32,2561 31735 OCT605 # EXIT WITH ALARM
038484,000868: 32,2562 65053 PRECX
038485,000869:
038486,000870: # DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
038487,000871:
038488,000872: 32,2563 53145 PREC140 DLOAD BZE
038489,000873: 32,2564 03730 NN1A
038490,000874: 32,2565 64616 PREC162
038491,000875: 32,2566 42545 PREC150 DLOAD SL4 # ELLIPTIC CASE
038492,000876: 32,2567 00035 R/APRE
038493,000877: 32,2570 52525 PDDL SL3 # PL02D
038494,000878: 32,2571 00033 P/RPRE
038495,000879: 32,2572 41205 DMP DMP # (P/A)BETA1 B4 PL00D
038496,000880: 32,2573 03754 BETA1
038497,000881: 32,2574 57512 SL2 DCOMP
038498,000882: 32,2575 50015 DAD BMN # 1-(P/A)BETA1=BETA2 B2
038499,000883: 32,2576 31655 1RTEB2
038500,000884: 32,2577 64602 PREC155
038501,000885: 32,2600 52166 SQRT GOTO # BETA2**.5=BETA3 B1
038502,000886: 32,2601 64604 PREC160
038503,000887: 32,2602 77745 PREC155 DLOAD
038504,000888: 32,2603 31677 ZERORTE # BETA3=0
038505,000889: 32,2604 43205 PREC160 DMP DAD
038506,000890: 32,2605 03761 PHI2
038507,000891: 32,2606 31657 1RTEB3
038508,000892: 32,2607 60325 PDDL NORM # 1+(PHI2)(BETA3) B3
038509,000893: 32,2610 00035 R/APRE
038510,000894: 32,2611 00047 X1
038511,000895: 32,2612 77665 BDDV # PL00D
038512,000896: 32,2613 52057 SL* GOTO # (1+PHI2*BETA3)/(R/A)=BETA4 B1
038513,000897: 32,2614 20175 0 -4,1
038514,000898: 32,2615 64624 PREC165
038515,000899: 32,2616 60345 PREC162 DLOAD NORM
038516,000900: 32,2617 00031 RPRE
038517,000901: 32,2620 00047 X1
038518,000902: 32,2621 53665 BDDV SL* # BETA4=RD/RPRE B1
038519,000903: 32,2622 03664 RD
038520,000904: 32,2623 20200 0 -1,1
038521,000905: 32,2624 45206 PREC165 PUSH DSU
038522,000906: 32,2625 31653 1RTEB1
038523,000907: 32,2626 77676 DCOMP
038524,000908: 32,2627 03765 STORE BETA12
038525,000909: 32,2630 71240 BMN DLOAD
038526,000910: 32,2631 64642 PREC168
038527,000911: 32,2632 03724 X(T2)PRE
038528,000912: 32,2633 71240 BMN DLOAD
![]() |
Page 863 |
038530,000914: 32,2634 64640 PREC167
038531,000915: 32,2635 03765 BETA12
038532,000916: 32,2636 77676 DCOMP
038533,000917: 32,2637 03765 STORE BETA12
038534,000918: 32,2640 77745 PREC167 DLOAD
038535,000919: 32,2641 03765 BETA12
038536,000920: 32,2642 45246 PREC168 ABS DSU
038537,000921: 32,2643 31764 EPC6RTE
038538,000922: 32,2644 71240 BMN DLOAD
038539,000923: 32,2645 64736 PREC175
038540,000924: 32,2646 72405 DMP SL1
038541,000925: 32,2647 00031 RPRE
038542,000926: 32,2650 77606 PUSH # RF = NEW RADIUS
038543,000927: 32,2651 43345 PREC170 DLOAD DAD
038544,000928: 32,2652 03732 NN2
038545,000929: 32,2653 31675 1RTEB28
038546,000930: 32,2654 03732 STORE NN2
038547,000931: 32,2655 43175 VLOAD SET
038548,000932: 32,2656 03656 R(T2)/
038549,000933: 32,2657 03466 RVSW
038550,000934: 32,2660 26657 STOVL RVEC
038551,000935: 32,2661 03710 V(T2)/
038552,000936: 32,2662 77765 SIGN
038553,000937: 32,2663 03765 BETA12
038554,000938: 32,2664 16746 STODL VVEC
038555,000939: 32,2665 31653 1RTEB1
038556,000940: 32,2666 57565 SIGN DCOMP
038557,000941: 32,2667 03765 BETA12
038558,000942: 32,2670 71354 LXA,2 DLOAD
038559,000943: 32,2671 00154 MPAC
038560,000944: 32,2672 67140 LXC,1 SXA,2
038561,000945: 32,2673 03734 CONICX1
038562,000946: 32,2674 02756 SGNRDOT
038563,000947: 32,2675 36760 STCALL RDESIRED # COMPUTE DT12 (CORRECTION TO TIME OF
038564,000948: 32,2676 25552 TIMERAD # NEW RADIUS)
038565,000949: 32,2677 75345 DLOAD SIGN
038566,000950: 32,2700 00037 T
038567,000951: 32,2701 03765 BETA12
038568,000952: 32,2702 60325 PDDL NORM # DT21=(PHI4)DT21 PL02D
038569,000953: 32,2703 03650 DT21PR
038570,000954: 32,2704 00047 X1
038571,000955: 32,2705 53665 BDDV SL*
038572,000956: 32,2706 00001 00D
038573,000957: 32,2707 20176 0 -3,1
038574,000958: 32,2710 50006 PUSH BMN # BETA13=(DT21)/(DT21PR) B3 PL04D
038575,000959: 32,2711 64716 PREC172
038576,000960: 32,2712 65345 DLOAD PDDL # BETA14=1 B0 PL04D
038577,000961: 32,2713 31715 2RTEB1
038578,000962: 32,2714 77650 GOTO
038579,000963: 32,2715 64720 PREC173
![]() |
Page 864 |
038581,000965: 32,2716 65345 PREC172 DLOAD PDDL # BETA14=.6 B0 PL04D
038582,000966: 32,2717 31707 M.6RTE
038583,000967: 32,2720 45271 PREC173 DDV DSU
038584,000968: 32,2721 00003 02D
038585,000969: 32,2722 31657 1RTEB3
038586,000970: 32,2723 71240 BMN DLOAD
038587,000971: 32,2724 64730 PREC174
038588,000972: 32,2725 77605 DMP
038589,000973: 32,2726 03650 DT21PR
038590,000974: 32,2727 00001 STORE 00D # DT21=(BETA14)DT21PR B28
038591,000975: 32,2730 41545 PREC174 DLOAD PUSH
038592,000976: 32,2731 00001 00D
038593,000977: 32,2732 37650 STCALL DT21PR
038594,000978: 32,2733 65065 RTENCK2
038595,000979: 32,2734 77650 GOTO
038596,000980: 32,2735 64531 PREC125
038597,000981: 32,2736 45345 PREC175 DLOAD DSU
038598,000982: 32,2737 00031 RPRE
038599,000983: 32,2740 03664 RD
038600,000984: 32,2741 51406 PUSH ABS # RPRE-RD = RERR
038601,000985: 32,2742 50025 DSU BMN
038602,000986: 32,2743 31766 EPC7RTE
038603,000987: 32,2744 65037 PREC220
038604,000988:
038605,000989: # DESIRED RADIUS HAS NOT BEEN ACHIEVED
038606,000990:
038607,000991: 32,2745 53145 DLOAD BZE
038608,000992: 32,2746 03730 NN1A
038609,000993: 32,2747 64560 PREC132 # TOO MANY ITERATIONS
038610,000994: 32,2750 53025 DSU BZE
038611,000995: 32,2751 31705 10RTE
038612,000996: 32,2752 65005 PREC207
038613,000997: 32,2753 45345 PREC205 DLOAD DSU # NOT FIRST PASS OF ITERATION
038614,000998: 32,2754 03670 RPRE'
038615,000999: 32,2755 00031 RPRE # RPRE,-RPRE B29/B27
038616,001000: 32,2756 55301 NORM BDDV
038617,001001: 32,2757 00050 X2
038618,001002: 32,2760 03666 DRCON
038619,001003: 32,2761 41457 SL* PUSH # DRCON/(RPRE,-RPRE)=S B2
038620,001004: 32,2762 57600 0 -2,2
038621,001005: 32,2763 40015 DAD BOV # S GR +4 OR LS -4
038622,001006: 32,2764 31653 1RTEB1
038623,001007: 32,2765 64772 PREC205M
038624,001008: 32,2766 45246 ABS DSU
038625,001009: 32,2767 31653 1RTEB1
038626,001010: 32,2770 77640 BMN
038627,001011: 32,2771 64775 PREC206
038628,001012: 32,2772 57545 PREC205M DLOAD DCOMP # S GR 0 OR LS -4
038629,001013: 32,2773 31715 2RTEB1
038630,001014: 32,2774 77725 PDDL # S=-4 B2
![]() |
Page 865 |
038632,001016: 32,2775 41345 PREC206 DLOAD DMP
038633,001017: 32,2776 77712 SL2
038634,001018: 32,2777 03666 STORE DRCON # DRCON=S(RERR) B29
038635,001019: 32,3000 77615 DAD
038636,001020: 32,3001 03636 RCON
038637,001021: 32,3002 03636 STORE RCON # RCON+DRCON=RCON
038638,001022: 32,3003 77650 GOTO
038639,001023: 32,3004 65024 PREC210
038640,001024: 32,3005 63545 PREC207 DLOAD DSQ # FIRST PASS OF ITERATION
038641,001025: 32,3006 03664 RD
038642,001026: 32,3007 70501 NORM SR1
038643,001027: 32,3010 00047 X1
038644,001028: 32,3011 60325 PDDL NORM
038645,001029: 32,3012 00031 RPRE
038646,001030: 32,3013 00050 X2
038647,001031: 32,3014 55260 XSU,1 BDDV
038648,001032: 32,3015 00047 X2
038649,001033: 32,3016 77657 SR*
038650,001034: 32,3017 20600 0 -1,1
038651,001035: 32,3020 03636 STORE RCON # RD**2/RPRE=RCON
038652,001036: 32,3021 77625 DSU
038653,001037: 32,3022 03664 RD
038654,001038: 32,3023 03666 STORE DRCON # RCON-RD=DRCON
038655,001039: 32,3024 77745 PREC210 DLOAD # PREPARE FOR NEXT ITERATION
038656,001040: 32,3025 00031 RPRE
038657,001041: 32,3026 17670 STODL RPRE'
038658,001042: 32,3027 03730 NN1A
038659,001043: 32,3030 77625 DSU
038660,001044: 32,3031 31675 1RTEB28
038661,001045: 32,3032 37730 STCALL NN1A
038662,001046: 32,3033 65136 V2T100
038663,001047: 32,3034 52030 BHIZ GOTO
038664,001048: 32,3035 64523 PREC120
038665,001049: 32,3036 65053 PRECX
038666,001050:
038667,001051: # DESIRED RADIUS ACHIEVED
038668,001052:
038669,001053: 32,3037 45345 PREC220 DLOAD DSU
038670,001054: 32,3040 03726 X(T2)
038671,001055: 32,3041 03724 X(T2)PRE
038672,001056: 32,3042 45246 ABS DSU
038673,001057: 32,3043 31770 EPC8RTE
038674,001058: 32,3044 67240 BMN SLOAD
038675,001059: 32,3045 65051 PREC225
038676,001060: 32,3046 31737 OCT613
038677,001061: 32,3047 77650 GOTO
038678,001062: 32,3050 65053 PRECX # IF REENTRY ANGLE OUT OF LIMITS
038679,001063:
038680,001064: # DESIRED FINAL ANGLE HAS BEEN REACHED
![]() |
Page 866 |
038682,001066:
038683,001067: 32,3051 77745 PREC225 DLOAD
038684,001068: 32,3052 31677 ZERORTE
038685,001069: 32,3053 77650 PRECX GOTO
038686,001070: 32,3054 03762 SPRTEX
038687,001071:
![]() |
Page 867 |
038689,001073: # INTEGRATION CALLING SUBROUTINE
038690,001074:
038691,001075: # DESCRIPTION
038692,001076: # PERFORMS CONIC AND PRECISION INTEGRATIONS USING SUBROUTINE INTEGRVS. THERE ARE THREE ENTRANCES (RTENCK1,
038693,001077: # RTENCK2 AND RTENCK3) FOR DIFFERENT SOURCES OF INPUT AND DIFFERENT OPTIONS. THERE IS A COMMON SET OF OUTPUT
038694,001078: # WHICH INCLUDES SET UP OF INPUT FOR THE PARAM SUBROUTINE
038695,001079:
038696,001080: # RTENCK1 (CONIC INTEGRATION)
038697,001081:
038698,001082: # CALLING SEQUENCE
038699,001083: # L CALL
038700,001084: # L+1 RTENCK1
038701,001085:
038702,001086: # ERASABLE INITIALIZATION REQUIRED
038703,001087: # SAME AS FOR THE RTENCK3 ENTRANCE
038704,001088:
038705,001089: # RTENCK2 (PRECISION INTEGRATION)
038706,001090:
038707,001091: # CALLING SEQUENCE
038708,001092: # L CALL
038709,001093: # L+1 RTENCK2
038710,001094:
038711,001095: # ERASABLE INITIALIZATION REQUIRED
038712,001096: # PUSHLIST
038713,001097: # PUSHLOC-2 INTEGRATION TIME DT12 (CORRECTION TO T2) DP B28 CS
038714,001098: # OTHER
038715,001099: # R(T2)/ FINAL POSITION VECTOR VECTOR .B29 METERS
038716,001100: # V(T2)/ FINAL VELOCITY VECTOR VECTOR B7 METERS/CS
038717,001101: # T2 FINAL TIME DP B28 CS
038718,001102:
038719,001103: # RTENCK3 (PRECISION INTEGRATION)
038720,001104:
038721,001105: # CALLING SEQUENCE
038722,001106: # L CALL
038723,001107: # L+1 RTENCK3
038724,001108:
038725,001109: # ERASABLE INITIALIZATION REQUIRED
038726,001110: # R(T1)/ INITIAL POSITION VECTOR VECTOR B29 METERS
038727,001111: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7 M/CS
038728,001112: # T1 INITIAL VECTOR TIME DP B28 CS
038729,001113: # T2 FINAL TIME DP B28 CS
038730,001114:
038731,001115: # EXIT MODE
038732,001116: # AT L+2 OF CALLING SEQUENCE
038733,001117:
038734,001118: # SUBROUTINES CALLED
038735,001119: # INTSTALL
038736,001120: # INTEGRVS
038737,001121:
038738,001122: # OUTPUT
038739,001123: # PUSHLIST
![]() |
Page 868 |
038741,001125: # PUSHLOC-6 FINAL POSITION VECTOR R(T2)/ VECTOR B29 METERS
038742,001126: # X1 CONICS MUTABLE ENTRY FOR EARTH (-2) SP B14
038743,001127: # MPAC
038744,001128: # FINAL VELOCITY VECTOR V(T2)/ VECTOR B7 M/CS
038745,001129: # OTHER
038746,001130: # R(T2)/ AS IN PUSHLIST
038747,001131: # V(T2)/ AS IN MPAC
038748,001132: # T2 FINAL TIME DP B28 CS
038749,001133:
038750,001134: 32,3055 45020 RTENCK1 STQ CALL
038751,001135: 32,3056 03733 RTENCKEX
038752,001136: 32,3057 27371 INTSTALL
038753,001137: 32,3060 43175 VLOAD SET
038754,001138: 32,3061 03640 R(T1)/
038755,001139: 32,3062 01473 INTYPFLG
038756,001140: 32,3063 77650 GOTO
038757,001141: 32,3064 65111 RTENCK3B
038758,001142:
038759,001143: 32,3065 45020 RTENCK2 STQ CALL
038760,001144: 32,3066 03733 RTENCKEX
038761,001145: 32,3067 27371 INTSTALL
038762,001146: 32,3070 77214 CLEAR VLOAD
038763,001147: 32,3071 01673 INTYPFLG
038764,001148: 32,3072 03656 R(T2)/
038765,001149: 32,3073 25535 STOVL RCV
038766,001150: 32,3074 03710 V(T2)/
038767,001151: 32,3075 15543 STODL VCV
038768,001152: 32,3076 03736 T2
038769,001153: 32,3077 01517 STORE TET
038770,001154: 32,3100 77615 DAD
038771,001155: 32,3101 77650 GOTO
038772,001156: 32,3102 65117 RTENCK3D
038773,001157:
038774,001158: 32,3103 45020 RTENCK3 STQ CALL
038775,001159: 32,3104 03733 RTENCKEX
038776,001160: 32,3105 27371 INTSTALL
038777,001161: 32,3106 43175 RTENCK3A VLOAD CLEAR
038778,001162: 32,3107 03640 R(T1)/
038779,001163: 32,3110 01673 INTYPFLG
038780,001164: 32,3111 25535 RTENCK3B STOVL RCV
038781,001165: 32,3112 03700 V2(T1)/
038782,001166: 32,3113 15543 STODL VCV
038783,001167: 32,3114 03716 T1
038784,001168: 32,3115 15517 STODL TET
038785,001169: 32,3116 03736 T2
038786,001170: 32,3117 00041 RTENCK3D STORE TDEC1
038787,001171: 32,3120 45014 CLEAR CALL
![]() |
Page 869 |
038789,001173: 32,3121 00263 MOONFLAG
038790,001174: 32,3122 27066 INTEGRVS
038791,001175: 32,3123 77775 VLOAD
038792,001176: 32,3124 00001 RATT
038793,001177: 32,3125 03656 STORE R(T2)/
038794,001178: 32,3126 70125 PDDL LXC,1
038795,001179: 32,3127 00015 TAT
038796,001180: 32,3130 03734 CONICX1
038797,001181: 32,3131 27736 STOVL T2
038798,001182: 32,3132 00007 VATT
038799,001183: 32,3133 03710 STORE V(T2)/
038800,001184: 32,3134 77650 GOTO
038801,001185: 32,3135 03733 RTENCKEX
038802,001186:
![]() |
Page 870 |
038804,001188: # V2(T1) COMPUTATION SUBROUTINE
038805,001189:
038806,001190: # DESCRIPTION
038807,001191: # A POST IMPULSE VELOCITY VECTOR (V2(T1)) IS COMPUTED WHICH EITHER
038808,001192: # (1) MEETS THE INPUT VELOCITY CHANGE DESIRED (RTEDVD) IN A MINIMUM TIME OR
038809,001193: # (2) IF A VELOCITY CHANGE ISN:T SPECIFIED (RTEDVD) = 0), A V2(T1) IS COMPUTED WHICH MINIMIZES THE IMPULSE (DV)
038810,001194: # AND CONSEQUENTLY FUEL.
038811,001195:
038812,001196: # CALLING SEQUENCE
038813,001197: # L CALL
038814,001198: # L+1 V2T100
038815,001199:
038816,001200: # NORMAL EXIT MODE
038817,001201: # AT L+2 OF CALLING SEQUENCE WITH MPAC = 0
038818,001202:
038819,001203: # ALARM EXIT MODE
038820,001204: # AT L+2 OF CALLING SEQUENCE WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
038821,001205:
038822,001206: # SUBROUTINES CALLED
038823,001207: # GAMDV10
038824,001208: # XT1LIM
038825,001209: # DVCALC
038826,001210:
038827,001211: # ERASABLE INITIALIZATION REQUIRED
038828,001212: # PUSHLIST
038829,001213: # NONE
038830,001214: # MPAC
038831,001215: # NONE
038832,001216: # OTHER
038833,001217: # R(T1) MAGNITUDE OF INITIAL POSITION VECTOR DP B29/B27 METERS
038834,001218: # RCON MAGNITUDE OF FINAL POSITION VECTOR DP B29/B27 METERS
038835,001219: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038836,001220: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
038837,001221: # UR1/ UNIT INITIAL VECTOR VECTOR B1
038838,001222: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
038839,001223: # X(T2) COTANGENT OF FINAL FLIGHT PATH ANGLE DP B0
038840,001224: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (INPUT FOR PREC) DP B5
038841,001225: # CFPA COSINE OF INITIAL FLIGHT PATH ANGLE DP B1
038842,001226: # MAMAX1 MAJOR AXIS LIMIT FOR LOWER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038843,001227: # MAMAX2 MAJOR AXIS LIMIT FOR UPPER BOUND ON GAMDV ITERATOR DP B30/B28 METERS
038844,001228: # PHI2 REENTRY NEAR PERIGEE OR APOGEE INDICATE (RTE ONLY) DP B2 -1 PERIGEE, +1 APOGEE
038845,001229: # N1 CONIC OR PRECISION ITERATION COUNTER DP B28 NEGATIVE CONIC, PLUS PREC
038846,001230:
038847,001231: # OUTPUT
038848,001232: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
038849,001233: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
038850,001234: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (POST IMPULSE) DP B5
038851,001235: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
038852,001236: # BETA1 1+X(T2)**2 DP B1
![]() |
Page 871 |
038854,001238:
038855,001239: # DEBRIS
038856,001240: # PUSHLIST
038857,001241: # 00D X(T1),,=PREVIOUS PRECISION X(T1) DP B5
038858,001242: # 02D THETA1=BETA5*LAMBDA-1 TP B17
038859,001243: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
038860,001244: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
038861,001245: # 10D X(T1)MIN=LOWER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
038862,001246: # 12D DX(T1)MAX=MAXIMUM DELTA X(T1) DP B5
038863,001247: # 14D X(T1)MAX=UPPER BOUND ON X(T1) IN GAMDV ITERATOR DP B5
038864,001248: # 16D DX(T1)=ITERATOR INCREMENT DP B5
038865,001249: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
038866,001250: # 32D DVCALC SUBROUTINE RETURN ADDRESS
038867,001251: # 33D V2T100 SUBROUTINE RETURN ADDRESS
038868,001252:
038869,001253: 32,3136 77620 V2T100 STQ
038870,001254: 32,3137 00041 33D
038871,001255: 32,3140 43001 SETPD CLEAR
038872,001256: 32,3141 00001 0 # PL00D
038873,001257: 32,3142 00272 F2RTE
038874,001258: 32,3143 60345 DLOAD NORM
038875,001259: 32,3144 03636 RCON
038876,001260: 32,3145 00047 X1
038877,001261: 32,3146 60325 PDDL NORM
038878,001262: 32,3147 03646 R(T1)
038879,001263: 32,3150 00051 S1
038880,001264: 32,3151 00013 STORE 10D
038881,001265: 32,3152 56342 SR1 DDV # R1/RCON = LAMBDA B1
038882,001266: 32,3153 65260 XSU,1 PDDL # PL02D
038883,001267: 32,3154 00050 S1
038884,001268: 32,3155 03726 X(T2)
038885,001269: 32,3156 77716 DSQ
038886,001270: 32,3157 43342 SR1 DAD
038887,001271: 32,3160 31653 1RTEB1
038888,001272: 32,3161 03754 STORE BETA1 # 1+X(T2)**2 = BETA1 B1
038889,001273: 32,3162 77605 DMP
038890,001274: 32,3163 00001 00D
038891,001275: 32,3164 00035 STORE 28D # BETAI*LAMBDA = BETA5
038892,001276: 32,3165 53605 DMP SL*
038893,001277: 32,3166 00001 00D
038894,001278: 32,3167 20172 0 -7,1
038895,001279: 32,3170 45257 SL* DSU
038896,001280: 32,3171 20172 0 -7,1
038897,001281: 32,3172 31671 1RTEB17
038898,001282: 32,3173 65234 RTB PDDL # BETA5*LAMBDA-1 = THETA1 B17 PL05D
038899,001283: 32,3174 45562 TPMODE
038900,001284: 32,3175 31653 1RTEB1
038901,001285: 32,3176 57457 SR* DCOMP
038902,001286: 32,3177 20601 0,1
038903,001287: 32,3200 41215 DAD DMP
038904,001288: 32,3201 00001 00D
![]() |
Page 872 |
038906,001290: 32,3202 03646 R(T1)
038907,001291: 32,3203 47057 SL* RTB
038908,001292: 32,3204 20172 0 -7D,1
038909,001293: 32,3205 45562 TPMODE
038910,001294: 32,3206 77725 PDDL # 2*R(T1)*(LAMBDA-1)=THETA2 B38/B36 PL08D
038911,001295: 32,3207 33770 RTMURTE
038912,001296: 32,3210 70501 NORM SR1
038913,001297: 32,3211 00050 X2
038914,001298: 32,3212 56264 XSU,2 DDV
038915,001299: 32,3213 00050 S1
038916,001300: 32,3214 00013 10D
038917,001301: 32,3215 65257 SR* PDDL # MU**.5/R(T1)=THETA3 B-4/B-5 PL10D
038918,001302: 32,3216 57170 6,2
038919,001303: 32,3217 03652 MAMAX1
038920,001304: 32,3220 41406 PUSH PUSH # MAMAX1=MA
038921,001305: 32,3221 77624 CALL
038922,001306: 32,3222 56633 XT1LIM
038923,001307: 32,3223 41476 DCOMP PUSH # X(T1)MIN B5 PL12D
038924,001308: 32,3224 40476 DCOMP SR4
038925,001309: 32,3225 41525 PDDL PUSH # DX(T1)MAX B5 PL14D
038926,001310: 32,3226 03654 MAMAX2
038927,001311: 32,3227 45006 PUSH CALL
038928,001312: 32,3230 56633 XT1LIM
038929,001313: 32,3231 50125 PDDL BMN # X(T1)MAX B5 PL16D
038930,001314: 32,3232 03730 NN1A
038931,001315: 32,3233 65236 V2T102
038932,001316: 32,3234 77650 GOTO
038933,001317: 32,3235 65250 V2T110
038934,001318:
038935,001319: # PROCEED HERE IF NOT PRECISION COMPUTATION
038936,001320:
038937,001321: 32,3236 77745 V2T102 DLOAD
038938,001322: 32,3237 03632 RTEDVD
038939,001323: 32,3240 52054 BZE GOTO
038940,001324: 32,3241 65243 V2T105
038941,001325: 32,3242 65344 V2T140
038942,001326: 32,3243 50145 V2T105 DLOAD BMN
038943,001327: 32,3244 03757 CFPA
038944,001328: 32,3245 65344 V2T140
038945,001329: 32,3246 77650 GOTO
038946,001330: 32,3247 65352 V2T145
038947,001331:
038948,001332: # DURING A PRECISION TRAJECTORY ITERATION CONSTRAIN THE INDEPENDENT
038949,001333: # VARIABLE TO INSURE THAT ALL CONICS PASS THROUGH RCON ON THE SAME PASS
038950,001334: # THROUGH X(T2)
038951,001335:
038952,001336: 32,3250 47145 V2T110 DLOAD RTB
038953,001337: 32,3251 31671 1RTEB17
038954,001338: 32,3252 45562 TPMODE
038955,001339: 32,3253 65276 DCOMP PDDL # -1 B17 PL19D
![]() |
Page 873 |
038957,001341: 32,3254 31715 2RTEB1
038958,001342: 32,3255 45257 SR* DSU
038959,001343: 32,3256 20601 0,1
038960,001344: 32,3257 00001 00D
038961,001345: 32,3260 53605 DMP SL*
038962,001346: 32,3261 00035 28D
038963,001347: 32,3262 20172 0 -7,1
038964,001348: 32,3263 76257 SL* TAD
038965,001349: 32,3264 20172 0 -7,1
038966,001350: 32,3265 65234 RTB PDDL # BETA5(2-LAMBDA)-1=BETA6 B17 PL19D
038967,001351: 32,3266 45562 TPMODE
038968,001352: 32,3267 03722 X(T1)
038969,001353: 32,3270 00001 STORE 00D # X(T1),, B5
038970,001354: 32,3271 77751 TLOAD # PL16D
038971,001355: 32,3272 53040 BMN BZE
038972,001356: 32,3273 65300 V2T115
038973,001357: 32,3274 65300 V2T115
038974,001358: 32,3275 52061 SL GOTO
038975,001359: 32,3276 20210 7
038976,001360: 32,3277 65311 V2T120
038977,001361: 32,3300 50145 V2T115 DLOAD BMN
038978,001362: 32,3301 03761 PHI2
038979,001363: 32,3302 65322 V2T125
038980,001364: 32,3303 77676 DCOMP
038981,001365: 32,3304 17761 STODL PHI2
038982,001366: 32,3305 31705 10RTE
038983,001367: 32,3306 03730 STORE NN1A
038984,001368: 32,3307 77650 GOTO
038985,001369: 32,3310 65322 V2T125
038986,001370: 32,3311 47166 V2T120 SQRT RTB
038987,001371: 32,3312 45713 DPMODE
038988,001372: 32,3313 50125 PDDL BMN # BETA6**.5=X(T1)LIM B5 PL18D
038989,001373: 32,3314 03761 PHI2
038990,001374: 32,3315 65330 V2T130
038991,001375: 32,3316 45545 DLOAD STADR # PL16D
038992,001376: 32,3317 77760 STORE 14D # X(T1)LIM = X(T1)MAX
038993,001377: 32,3320 77676 DCOMP
038994,001378: 32,3321 00013 STORE 10D # -X(T1)LIM = X(T1)MIN
038995,001379: 32,3322 53145 V2T125 DLOAD BZE
038996,001380: 32,3323 03722 X(T1)
038997,001381: 32,3324 65344 V2T140
038998,001382: 32,3325 52040 BMN GOTO
038999,001383: 32,3326 65344 V2T140
039000,001384: 32,3327 65352 V2T145
039001,001385: 32,3330 53145 V2T130 DLOAD BZE
039002,001386: 32,3331 03722 X(T1)
039003,001387: 32,3332 65341 V2T135
039004,001388: 32,3333 71240 BMN DLOAD # PL16D
039005,001389: 32,3334 65341 V2T135
039006,001390: 32,3335 77626 STADR
![]() |
Page 874 |
039008,001392: 32,3336 77764 STORE 10D # X(T1)LIM = X(T1)MIN
039009,001393: 32,3337 77650 GOTO
039010,001394: 32,3340 65352 V2T145
039011,001395: 32,3341 57545 V2T135 DLOAD DCOMP # PL16D
039012,001396: 32,3342 77626 STADR
039013,001397: 32,3343 77760 STORE 14D # -X(T1)LIM = X(T1)MAX
039014,001398: 32,3344 77745 V2T140 DLOAD
039015,001399: 32,3345 00013 10D
039016,001400: 32,3346 17722 STODL X(T1) # X(T1)MIN = X(T1)
039017,001401: 32,3347 00015 12D
039018,001402: 32,3350 52006 PUSH GOTO # DX(T1)MAX = DX(T1) PL18D
039019,001403: 32,3351 65357 V2T150
039020,001404: 32,3352 77745 V2T145 DLOAD
039021,001405: 32,3353 00017 14D
039022,001406: 32,3354 17722 STODL X(T1) # X(T1)MAX = X(T1)
039023,001407: 32,3355 00015 12D
039024,001408: 32,3356 41476 DCOMP PUSH # -DX(T1)MAX = DX(T1) PL18D
039025,001409: 32,3357 77624 V2T150 CALL # GOTO X(T1)-DV ITERATOR
039026,001410: 32,3360 65500 GAMDV10
039027,001411: 32,3361 53145 DLOAD BZE # EXIT IF MINIMUM FUEL MODE
039028,001412: 32,3362 03632 RTEDVD
039029,001413: 32,3363 65476 V2T1X
039030,001414:
039031,001415: # CONTINUE IF TIME CRITICAL MODE
039032,001416:
039033,001417: 32,3364 50025 DSU BMN
039034,001418: 32,3365 03706 DV
039035,001419: 32,3366 65371 V2T155
039036,001420: 32,3367 77650 GOTO
039037,001421: 32,3370 65424 V2T175
039038,001422: 32,3371 50145 V2T155 DLOAD BMN
039039,001423: 32,3372 03730 NN1A
039040,001424: 32,3373 65376 V2T160
039041,001425: 32,3374 77650 GOTO
039042,001426: 32,3375 65437 V2T185
039043,001427:
039044,001428: # CONIC TRAJECTORY COMPUTATION
039045,001429:
039046,001430: 32,3376 53145 V2T160 DLOAD BZE
039047,001431: 32,3377 03722 X(T1)
039048,001432: 32,3400 65404 V2T165
039049,001433: 32,3401 52040 BMN GOTO
039050,001434: 32,3402 65404 V2T165
039051,001435: 32,3403 65474 V2T300
039052,001436: 32,3404 53145 V2T165 DLOAD BZE
039053,001437: 32,3405 03757 CFPA
039054,001438: 32,3406 65474 V2T300
039055,001439: 32,3407 71240 BMN DLOAD
039056,001440: 32,3410 65474 V2T300
039057,001441: 32,3411 00017 14D
![]() |
Page 875 |
039059,001443: 32,3412 17722 STODL X(T1) # X(T1)MAX=X(T1)
039060,001444: 32,3413 00015 12D
039061,001445: 32,3414 77676 DCOMP
039062,001446: 32,3415 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
039063,001447: 32,3416 65500 GAMDV10
039064,001448: 32,3417 45345 DLOAD DSU
039065,001449: 32,3420 03632 RTEDVD
039066,001450: 32,3421 03706 DV
039067,001451: 32,3422 77640 BMN
039068,001452: 32,3423 65474 V2T300
039069,001453: 32,3424 71214 V2T175 SET DLOAD
039070,001454: 32,3425 00072 F2RTE
039071,001455: 32,3426 03722 X(T1)
039072,001456: 32,3427 14017 STODL 14D # X(T1)=X(T1)MAX
039073,001457: 32,3430 00015 12D
039074,001458: 32,3431 77676 DCOMP
039075,001459: 32,3432 34021 STCALL 16D # -DX(T1)MAX=DX(T1)
039076,001460: 32,3433 65500 GAMDV10
039077,001461: 32,3434 50145 DLOAD BMN
039078,001462: 32,3435 03730 NN1A
039079,001463: 32,3436 65474 V2T300
039080,001464:
039081,001465: # PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
039082,001466: # PRECISION TRAJECTORY
039083,001467:
039084,001468: 32,3437 45345 V2T185 DLOAD DSU
039085,001469: 32,3440 03722 X(T1)
039086,001470: 32,3441 00001 00D
039087,001471: 32,3442 65246 ABS PDDL # /X(T1)-X(T1),,/ = BETA7
039088,001472: 32,3443 00015 12D
039089,001473: 32,3444 44352 SL1 BDSU
039090,001474: 32,3445 71240 BMN DLOAD
039091,001475: 32,3446 65474 V2T300
039092,001476: 32,3447 00001 00D # CONTINUE IF BETA7 LARGER THAN 2DX(T1)MAX
039093,001477: 32,3450 03722 STORE X(T1) # X(T1),, = X(T1)
039094,001478: 32,3451 50025 DSU BMN
039095,001479: 32,3452 00017 14D
039096,001480: 32,3453 65461 V2T195
039097,001481: 32,3454 77745 DLOAD
039098,001482: 32,3455 00017 14D
039099,001483: 32,3456 03722 STORE X(T1) # X(T1)MAX = X(T1)
039100,001484: 32,3457 77650 GOTO
039101,001485: 32,3460 65472 V2T205
039102,001486: 32,3461 45345 V2T195 DLOAD DSU
039103,001487: 32,3462 03722 X(T1)
039104,001488: 32,3463 00013 10D
039105,001489: 32,3464 52040 BMN GOTO
039106,001490: 32,3465 65467 V2T200
039107,001491: 32,3466 65472 V2T205
039108,001492: 32,3467 77745 V2T200 DLOAD
![]() |
Page 876 |
039110,001494: 32,3470 00013 10D
039111,001495: 32,3471 03722 STORE X(T1) # X(T1)MIN = X(T1)
039112,001496: 32,3472 77624 V2T205 CALL
039113,001497: 32,3473 65701 DVCALC
039114,001498: 32,3474 77745 V2T300 DLOAD
039115,001499: 32,3475 31677 ZERORTE
039116,001500: 32,3476 77650 V2T1X GOTO
039117,001501: 32,3477 00041 33D
039118,001502:
![]() |
Page 877 |
039120,001504: # X(T1)-DV ITERATOR SUBROUTINE
039121,001505:
039122,001506: # DESCRIPTION
039123,001507: # COMPUTES A POST IMPULSE VELOCITY VECTOR (V2(T1)) WHICH REQUIRES A MINIMUM DV.
039124,001508:
039125,001509: # CALLING SEQUENCE
039126,001510: # L CALL
039127,001511: # L+1 GAMDV10
039128,001512:
039129,001513: # NORMAL EXIT MODE
039130,001514: # AT L+2 OF CALLING SEQUENCE
039131,001515:
039132,001516: # ALARM EXIT MODE
039133,001517: # AT V2T1X WITH MPAC = OCTAL 605 FOR EXCESS ITERATIONS
039134,001518:
039135,001519: # SUBROUTINES CALLED
039136,001520: # DVCALC
039137,001521:
039138,001522: # ERASABLE INITIALIZATION REQUIRED
039139,001523: # PUSHLIST
039140,001524: # 02D THETA1=BETA5*LAMBDA-1 TP B17
039141,001525: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
039142,001526: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
039143,001527: # 10D X(T1)MIN=LOWER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
039144,001528: # 12D DX(T1)MAX=MAXIMUM DX(T1) DP B5
039145,001529: # 14D X(T1)MAX=UPPER BOUND ON INDEPENDENT VARIABLE X(T1) DP B5
039146,001530: # 16D DX(T1)=ITERATOR INCREMENT DP B5
039147,001531: # MPAC
039148,001532: # NONE
039149,001533: # OTHER
039150,001534: # V(T1)/ INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039151,001535: # RTEDVD DELTA VELOCITY DESIRED DP B7/B5 METERS/CS
039152,001536: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039153,001537: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039154,001538: # X(T1) COTANGENT OF INITIAL FLIGHT PATH ANGLE (FROM VERTICAL) DP B5
039155,001539: # F2RTE TIME CRITICAL OR MINIMUM FUEL MODE INDICATOR STATE AREA 0 MIN. FUEL, 1 MIN. TIME
039156,001540:
039157,001541: # OUTPUT
039158,001542: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039159,001543: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
039160,001544: # X(T1) COTANGENT OF INITIAL FPA MEASURED FROM VERTICAL DP B5
039161,001545: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
039162,001546:
039163,001547: # DEBRIS
039164,001548: # PUSHLIST
039165,001549: # 00D X(T1),,
039166,001550: # 02D THETA1
039167,001551: # 05D THETA2
039168,001552: # 08D THETA3
039169,001553: # 10D X(T1)MIN
039170,001554: # 12D DX(T1)MAX
![]() |
Page 878 |
039172,001556: # 14D X(T1)MAX
039173,001557: # 16D DX(T1)
039174,001558: # 22D DV,=PREVIOUS DV DP B7/B5
039175,001559: # 24D BETA9=X(T1)+1.1DX(T1) DP B5
039176,001560: # 31D GAMDV10 SUBROUTINE RETURN ADDRESS
039177,001561: # 32D DVCALC SUBROUTINE RETURN ADDRESS
039178,001562: # 33D V2T100 SUBROUTINE RETURN ADDRESS
039179,001563:
039180,001564: 32,3500 77620 GAMDV10 STQ
039181,001565: 32,3501 00037 31D
039182,001566: 32,3502 45001 SETPD CALL
039183,001567: 32,3503 00023 18D # PL18D
039184,001568: 32,3504 65701 DVCALC
039185,001569: 32,3505 45345 DLOAD DSU
039186,001570: 32,3506 00017 14D
039187,001571: 32,3507 00013 10D
039188,001572: 32,3510 77600 BOV
039189,001573: 32,3511 65531 GAMDV20
039190,001574: 32,3512 45206 PUSH DSU # X(T1)MAX-X(T1)MIN=BETA8 B5 PL20D
039191,001575: 32,3513 31772 EPC9RTE
039192,001576: 32,3514 71240 BMN DLOAD
039193,001577: 32,3515 65677 GAMDVX # BOUNDS CLOSE TOGETHER
039194,001578: 32,3516 00023 18D
039195,001579: 32,3517 50025 DSU BMN # BETA8-DX(T1)MAX
039196,001580: 32,3520 00015 12D
039197,001581: 32,3521 65525 GAMDV15
039198,001582: 32,3522 52001 SETPD GOTO # PL18D
039199,001583: 32,3523 00023 18D
039200,001584: 32,3524 65531 GAMDV20
039201,001585: 32,3525 77745 GAMDV15 DLOAD # PL18D
039202,001586: 32,3526 70565 SIGN SR1
039203,001587: 32,3527 00021 16D
039204,001588: 32,3530 00021 STORE 16D # BETA8(SIGNDX(T1))/2=DX(T1)
039205,001589: 32,3531 77745 GAMDV20 DLOAD
039206,001590: 32,3532 31701 M144RTE
039207,001591: 32,3533 03732 STORE NN2
039208,001592: 32,3534 43345 GAMDV25 DLOAD DAD
039209,001593: 32,3535 03732 NN2
039210,001594: 32,3536 31675 1RTEB28
039211,001595: 32,3537 67240 BMN SLOAD
039212,001596: 32,3540 65544 GAMDV30
039213,001597: 32,3541 31735 OCT605
039214,001598: 32,3542 77650 GOTO
039215,001599: 32,3543 65476 V2T1X
039216,001600: 32,3544 03732 GAMDV30 STORE NN2 # NN2=NN2+1
039217,001601: 32,3545 65345 DLOAD PDDL # X(T1)=X(T1), B5 PL20D
039218,001602: 32,3546 03722 X(T1)
039219,001603: 32,3547 03706 DV
039220,001604: 32,3550 43325 PDDL DAD # DV=DV, B7/B5 PL22D
039221,001605: 32,3551 03722 X(T1)
039222,001606: 32,3552 00021 16D
![]() |
Page 879 |
039224,001608: 32,3553 37722 STCALL X(T1) # X(T1)+DX(T1)=X(T1) B5
039225,001609: 32,3554 65701 DVCALC
039226,001610: 32,3555 71214 BON DLOAD
039227,001611: 32,3556 00312 F2RTE
039228,001612: 32,3557 65573 GAMDV35
039229,001613: 32,3560 03706 DV
039230,001614: 32,3561 50025 DSU BMN # CONTINUE IF FUEL CRITICAL MODE
039231,001615: 32,3562 00025 20D
039232,001616: 32,3563 65570 GAMDV33
039233,001617: 32,3564 57545 GAMDV32 DLOAD DCOMP
039234,001618: 32,3565 00021 16D
039235,001619: 32,3566 77742 SR1
039236,001620: 32,3567 00021 STORE 16D
039237,001621: 32,3570 52001 GAMDV33 SETPD GOTO
039238,001622: 32,3571 00023 18D # PL18D
039239,001623: 32,3572 65636 GAMDV50
039240,001624:
039241,001625: # TIME CRITICAL MODE
039242,001626:
039243,001627: 32,3573 45345 GAMDV35 DLOAD DSU
039244,001628: 32,3574 03632 RTEDVD
039245,001629: 32,3575 03706 DV
039246,001630: 32,3576 41525 PDDL PUSH # DVD-DV=DVERR B7/B5 PL22D
039247,001631: 32,3577 51545 GAMDV40 DLOAD ABS # DV, PL24D
039248,001632: 32,3600 00025 20D
039249,001633: 32,3601 50025 DSU BMN
039250,001634: 32,3602 31774 EPC10RTE
039251,001635: 32,3603 65677 GAMDVX
039252,001636: 32,3604 71204 GAMDV45 BOVB DLOAD
039253,001637: 32,3605 57343 TCDANZIG # ASSURE OVFIND IS 0
039254,001638: 32,3606 60221 BDSU NORM
039255,001639: 32,3607 03706 DV
039256,001640: 32,3610 00050 X2
039257,001641: 32,3611 77725 PDDL # DV-DV, B7/B5-N2 PL22D
039258,001642: 32,3612 70501 NORM SR1 # DVERR B8/B6-N1
039259,001643: 32,3613 00047 X1
039260,001644: 32,3614 65271 DDV PDDL # DVERR/ DV - DV
039261,001645: 32,3615 41221 BDSU DMP # PL18D
039262,001646: 32,3616 03722 X(T1)
039263,001647: 32,3617 77660 XSU,1
039264,001648: 32,3620 00047 X2
039265,001649: 32,3621 00021 STORE 16D # PRESERVE SIGN IF OVERFLOW
039266,001650: 32,3622 40057 SR* BOV
039267,001651: 32,3623 20600 0 -1,1
039268,001652: 32,3624 65632 GAMDV47
039269,001653: 32,3625 00021 STORE 16D # (X(T1)-X(T1),)DVERR/(DV-DV,)=DX(T1)
039270,001654: 32,3626 45246 ABS DSU
039271,001655: 32,3627 00015 12D
039272,001656: 32,3630 77640 BMN
039273,001657: 32,3631 65636 GAMDV50
![]() |
Page 880 |
039275,001659: 32,3632 75345 GAMDV47 DLOAD SIGN
039276,001660: 32,3633 00015 12D
039277,001661: 32,3634 00021 16D
039278,001662: 32,3635 00021 STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
039279,001663:
039280,001664: # CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
039281,001665:
039282,001666: 32,3636 41345 GAMDV50 DLOAD DMP
039283,001667: 32,3637 00021 16D
039284,001668: 32,3640 31711 1.1RTEB1
039285,001669: 32,3641 43352 SL1 DAD
039286,001670: 32,3642 03722 X(T1)
039287,001671: 32,3643 00031 STORE 24D # X(T1)+1.1DX(T1)=BETA9 B5
039288,001672: 32,3644 50025 DSU BMN
039289,001673: 32,3645 00017 14D
039290,001674: 32,3646 65655 GAMDV55
039291,001675: 32,3647 45345 DLOAD DSU
039292,001676: 32,3650 00017 14D
039293,001677: 32,3651 03722 X(T1)
039294,001678: 32,3652 77742 SR1
039295,001679: 32,3653 34021 STCALL 16D # (X(T1)MAX-X(T1))/2=DX(T1) B5
039296,001680: 32,3654 65670 GAMDV65
039297,001681: 32,3655 45345 GAMDV55 DLOAD DSU
039298,001682: 32,3656 00031 24D
039299,001683: 32,3657 00013 10D
039300,001684: 32,3660 52040 BMN GOTO
039301,001685: 32,3661 65663 GAMDV60
039302,001686: 32,3662 65670 GAMDV65
039303,001687: 32,3663 45345 GAMDV60 DLOAD DSU
039304,001688: 32,3664 00013 10D
039305,001689: 32,3665 03722 X(T1)
039306,001690: 32,3666 77742 SR1
039307,001691: 32,3667 00021 STORE 16D # (X(T1)MIN-X(T1))/2=DX(T1) B5
039308,001692: 32,3670 51545 GAMDV65 DLOAD ABS
039309,001693: 32,3671 00021 16D
039310,001694: 32,3672 50025 DSU BMN
039311,001695: 32,3673 31772 EPC9RTE
039312,001696: 32,3674 65677 GAMDVX
039313,001697: 32,3675 77650 GOTO
039314,001698: 32,3676 65534 GAMDV25
039315,001699: 32,3677 77650 GAMDVX GOTO
039316,001700: 32,3700 00037 31D
039317,001701:
![]() |
Page 881 |
039319,001703: # DV CALCULATION SUBROUTINE
039320,001704:
039321,001705: # INPUT
039322,001706: # PUSHLIST
039323,001707: # 02D THETA1=BETA5*LAMBDA-1 TP B17
039324,001708: # 05D THETA2=2*R(T1)*(LAMBDA-1) TP B38/B36
039325,001709: # 08D THETA3=MU**.5/R(T1) DP B-4/B-5
039326,001710: # OTHER
039327,001711: # X(T1) COTANGENT OF POST IMPULSE INITIAL FLIGHT PATH ANGLE DP B5
039328,001712: # V(T1)/ INITIAL VELOCITY VECTOR (PRE IMPULSE) VECTOR B7/B5 METERS/CS
039329,001713: # UR1/ UNIT INITIAL VECTOR VECTOR B1
039330,001714: # UH/ UNIT HORIZONTAL VECTOR VECTOR B1
039331,001715:
039332,001716: # OUTPUT
039333,001717: # V2(T1)/ POST IMPULSE INITIAL VELOCITY VECTOR VECTOR B7/B5 METERS/CS
039334,001718: # DV INITIAL VELOCITY CHANGE DP B7/B5 METERS/CS
039335,001719: # PCON SEMI-LATUS RECTUM DP B28/B26 METERS
039336,001720:
039337,001721: # DEBRIS
039338,001722: # 28D THETA3*PCON**.5 DP B10/B8-N1
039339,001723: # C(PUSLOC) THETA3(PCON**.5)*X(T1)*UR1/ VECTOR B7/B5
039340,001724: # 32D DVCALC SUBROUTINE RETURN ADDRESS
039341,001725: # X1 NORMALIZATION FACTOR FOR VALUE IN 28D
039342,001726:
039343,001727: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING DVCALC
039344,001728:
039345,001729: 32,3701 71220 DVCALC STQ DLOAD
039346,001730: 32,3702 00040 32D
039347,001731: 32,3703 03722 X(T1)
039348,001732: 32,3704 54316 DSQ SR
039349,001733: 32,3705 20610 7
039350,001734: 32,3706 76276 DCOMP TAD
039351,001735: 32,3707 00003 02D
039352,001736: 32,3710 41501 NORM PUSH
039353,001737: 32,3711 00047 X1
039354,001738: 32,3712 60351 TLOAD NORM
039355,001739: 32,3713 00006 05D
039356,001740: 32,3714 00050 X2
039357,001741: 32,3715 70434 RTB SR1
039358,001742: 32,3716 45713 DPMODE
039359,001743: 32,3717 56264 XSU,2 DDV
039360,001744: 32,3720 00046 X1
039361,001745: 32,3721 77657 SR*
039362,001746: 32,3722 57170 6,2
039363,001747: 32,3723 03720 STORE PCON # THETA2/(THETA1-X(T1)**2)=PCON B28/26
039364,001748: 32,3724 41366 SQRT DMP
039365,001749: 32,3725 00011 08D
039366,001750: 32,3726 77701 NORM
039367,001751: 32,3727 00047 X1
039368,001752: 32,3730 14035 STODL 28D # THETA3*PCON**.5 B10/B8 -N1
![]() |
Page 882 |
039370,001754: 32,3731 03722 X(T1)
039371,001755: 32,3732 74301 NORM VXSC
039372,001756: 32,3733 00050 X2
039373,001757: 32,3734 03740 UR1/ # X(T1)*UR1/ B5+B1 -N2
039374,001758: 32,3735 74274 XAD,2 VXSC
039375,001759: 32,3736 00046 X1
039376,001760: 32,3737 00035 28D
039377,001761: 32,3740 63257 VSR* PDVL # THETA3(PCON**.5)X(T1)*UR1/ B7/B5
039378,001762: 32,3741 57207 0 -9D,2 # +
039379,001763: 32,3742 03746 UH/
039380,001764: 32,3743 53761 VXSC VSR* # THETA3(PCON**.5)UH/ B7/B5
039381,001765: 32,3744 00035 28D
039382,001766: 32,3745 20575 0 -4,1 # =
039383,001767: 32,3746 45455 VAD STADR
039384,001768: 32,3747 74077 STORE V2(T1)/ # V2(T1)/ B7/B5
039385,001769: 32,3750 51451 VSU ABVAL
039386,001770: 32,3751 03672 V(T1)/
039387,001771: 32,3752 03706 STORE DV # ABVAL(V2(T1)/-V1(T)/)=DV B7/B5
039388,001772: 32,3753 77650 GOTO
039389,001773: 32,3754 00040 32D
039390,001774:
![]() |
Page 883 |
039392,001776: # SUBROUTINE TO COMPUTE BOUNDS ON INDEPENDENT VARIABLE X(T1)
039393,001777:
039394,001778: # INPUT
039395,001779: # PUSHLIST
039396,001780: # PUSHLOC -4 MAJOR AXIS (MA) DP B30/B28
039397,001781: # PUSHLOC -2 MAJOR AXIS (MA) AGAIN DP B30/B28
039398,001782: # 28D BETA5=LAMBDA*BETA1 DP B9
039399,001783: # OTHER
039400,001784: # RCON DP B29/B27
039401,001785: # R(T1) DP B29/B27
039402,001786:
039403,001787: # OUTPUT
039404,001788: # MPAC
039405,001789: # X(T1)LIM LIMIT ON INDEPENDENT VARIABLE X(T1) DP B5
039406,001790:
039407,001791: # DEBRIS
039408,001792: # PUSHLIST
039409,001793: # C(PUSHLOC) MA-RCON DP (B30/28)-N1
039410,001794: # C(PSHLOC) +2 MA DP B30/B28
039411,001795: # X1 NORMALIZATION FACTOR FOR MA-RCON
039412,001796: # 20D XT1LIM SUBROUTINE RETURN ADDRESS
039413,001797:
039414,001798: # PUSHLOC IS RESTORED TO ITS ENTRANCE VALUE UPON EXITING XT1LIM
039415,001799:
039416,001800: 27,2000 SETLOC RTE2
039417,001801: 27,2000 BANK
039418,001802: 27,2633 71220 XT1LIM STQ DLOAD
039419,001803: 27,2634 00024 20D
039420,001804: 27,2635 03636 RCON
039421,001805: 27,2636 44342 SR1 BDSU
039422,001806: 27,2637 65301 NORM PDDL # MA-RCON B30-N1
039423,001807: 27,2640 00050 X2
039424,001808: 27,2641 70525 PDDL SR1
039425,001809: 27,2642 03646 R(T1)
039426,001810: 27,2643 56221 BDSU DDV
039427,001811: 27,2644 41257 SL* DMP
039428,001812: 27,2645 57577 0 -1,2
039429,001813: 27,2646 00035 28D
039430,001814: 27,2647 77657 SL*
039431,001815: 27,2650 20172 0 -7,1
039432,001816: 27,2651 50025 DSU BMN # (BETA5(MA-R(T1))/(MA-RCON))-1 B10
039433,001817: 27,2652 31663 1RTEB10
039434,001818: 27,2653 56656 XT1LIM5
039435,001819: 27,2654 52166 SQRT GOTO
039436,001820: 27,2655 56660 XT1LIMX
039437,001821: 27,2656 77745 XT1LIM5 DLOAD
039438,001822: 27,2657 31677 ZERORTE
039439,001823: 27,2660 77650 XT1LIMX GOTO
039440,001824: 27,2661 00024 20D
039441,001825:
![]() |
Page 884 |
039443,001827: # CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
039444,001828:
039445,001829: 36,3250 BANK 36
039446,001830: 34,2000 SETLOC RTECON
039447,001831: 34,2000 BANK
039448,001832:
039449,001833: 34,3652 20000 00000 1RTEB1 2DEC 1 B-1
039450,001834: 34,3654 10000 00000 1RTEB2 2DEC 1 B-2
039451,001835: 34,3656 04000 00000 1RTEB3 2DEC 1 B-3
039452,001836: 34,3660 02000 00000 1RTEB4 2DEC 1 B-4
039453,001837: 34,3662 00020 00000 1RTEB10 2DEC 1 B-10
039454,001838: 34,3664 00004 00000 1RTEB12 2DEC 1 B-12
039455,001839: 34,3666 00002 00000 1RTEB13 2DEC 1 B-13
039456,001840: 34,3670 00000 04000 1RTEB17 2DEC 1 B-17
039457,001841: 34,3672 00000 00010 1RTEB25 2DEC 1 B-25
039458,001842: 34,3674 00000 00001 1RTEB28 2DEC 1 B-28
039459,001843: 34,3676 00000 00000 ZERORTE 2DEC 0 B-28
039460,001844: 34,3700 77777 77557 M144RTE 2DEC -144 B-28
039461,001845: 34,3702 77777 77760 M15RTE 2DEC -15 B-28
039462,001846: 34,3704 00000 00012 10RTE 2DEC 10 B-28
039463,001847: 34,3706 54631 63145 M.6RTE 2DEC -.6
039464,001848: 34,3710 21463 06315 1.1RTEB1 2DEC 1.1 B-1
039465,001849: 34,3712 77777 77771 M6RTEB28 2DEC -6 B-28
039466,001850: 34,3714 37777 37777 2RTEB1 2OCT 3777737777
039467,001851: 34,3716 77777 77766 M9RTEB28 2DEC -9 B-28
039468,001852: 34,3720 77777 77767 M8RTEB28 2DEC -8 B-28
039469,001853: 34,3722 00000 35610 30480RTE 2DEC 30480 B-29
039470,001854: 34,3724 36703 03743 VCSPS 2DEC 30.8811 B-5
![]() |
Page 885 |
039472,001856: 34,3726 33041 37714 VCRCS 2DEC 27.0664 B-5
039473,001857: 34,3730 00003 13241 MDOTRCS 2DEC .0016375 B-3
039474,001858: 34,3732 20000 00000 CSUBT 2DEC .5
039475,001859: 34,3734 00605 OCT605 OCT 00605
039476,001860: 34,3735 00612 OCT612 OCT 00612
039477,001861: 34,3736 00613 OCT613 OCT 00613
039478,001862: 34,3737 40214 45266 MCOS7.5 2DEC -.99144486
039479,001863: 34,3741 73645 56536 MSIN7.5 2DEC -.13052619
039480,001864: 34,3743 70467 71205 MCOS22.5 2DEC -.92387953 B-2
039481,001865: 34,3745 16525 12525 THETA165 2DEC .4583333333
039482,001866: 34,3747 22525 12525 THETA210 2DEC .5833333333
039483,001867: 34,3751 17775 06676 EPC1RTE 2DEC .99966 B-1
039484,001868: 34,3753 00000 00062 EPC2RTE 2DEC 100 B-29
039485,001869: 34,3755 00020 14223 EPC3RTE 2DEC .001
039486,001870: 34,3757 00000 05174 EPC4RTE 2DEC .00001
039487,001871: 34,3761 00002 21727 EPC5RTE 2DEC .01 B-6
039488,001872: 34,3763 00000 01654 EPC6RTE 2DEC .000007 B-1
039489,001873: 34,3765 00000 00764 EPC7RTE 2DEC 1000 B-29
039490,001874: 34,3767 00040 30447 EPC8RTE 2DEC .002
039491,001875: 34,3771 00000 00010 EPC9RTE 2DEC 1 B-25
039492,001876: 34,3773 00000 00322 EPC10RTE 2DEC .0001 B-7
039493,001877:
039494,001878: 35,3755 BANK 35
039495,001879: 35,2000 SETLOC RTECON1
039496,001880: 35,2000 BANK
039497,001881:
039498,001882: 35,3755 27657 01000 C4RTE 2DEC 8 E8 B-30
039499,001883: 35,3757 00325 23740 K1RTE 2DEC 7 E6 B-29
039500,001884: 35,3761 00306 06614 K2RTE 2DEC 6495000 B-29
039501,001885: 35,3763 76027 70156 K3RTE 2DEC -.06105
![]() |
Page 886 |
039503,001887: 35,3765 74517 54131 K4RTE 2DEC -.10453
039504,001888: 35,3767 30276 05001 RTMURTE 2DEC 199650.501 B-18
039505,001889: 35,3771 00003 27040 E3RTE 2DEC 121920 B-29
039506,001890:
End of include-file P37,P70.agc. Parent file is MAIN.agc