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