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