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