Source Code

028233,000001: # Copyright: Public domain. 028234,000002: # Filename: P34-35_P74-75.agc 028235,000003: # Purpose: Part of the source code for Luminary 1A build 099. 028236,000004: # It is part of the source code for the Lunar Module's (LM) 028237,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 028238,000006: # Assembler: yaYUL 028239,000007: # Contact: Ron Burkey <info@sandroid.org>. 028240,000008: # Website: www.ibiblio.org/apollo. 028241,000009: # Pages: 658-702 028242,000010: # Mod history: 2009-05-19 RSB Adapted from the corresponding 028243,000011: # Luminary131 file, using page 028244,000012: # images from Luminary 1A. 028245,000013: # 2009-06-05 RSB Corrected a typo. 028246,000014: # 2011-01-06 JL Fixed pseudo-label indentation. 028247,000015: # 2011-01-06 JL Added missing comment characters. 028248,000016: # 2011-05-07 JL Removed workaround. 028249,000017: 028250,000018: # This source code has been transcribed or otherwise adapted from 028251,000019: # digitized images of a hardcopy from the MIT Museum. The digitization 028252,000020: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 028253,000021: # the Museum. Many thanks to both. The images (with suitable reduction 028254,000022: # in storage size and consequent reduction in image quality as well) are 028255,000023: # available online at www.ibiblio.org/apollo. If for some reason you 028256,000024: # find that the images are illegible, contact me at info@sandroid.org 028257,000025: # about getting access to the (much) higher-quality images which Paul 028258,000026: # actually created. 028259,000027: 028260,000028: # Notations on the hardcopy document read, in part: 028261,000029: 028262,000030: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 028263,000031: # 16:27 JULY 14, 1969 028264,000032: 028265,000033: # Page 658 028266,000034: # TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74) 028267,000035: 028268,000036: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 028269,000037: # MOD BY WHITE, P. DATE: 1 JUNE 67 028270,000038: 028271,000039: # PURPOSE 028272,000040: 028273,000041: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS 028274,000042: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER 028275,000043: # PHASE INITITATION (TPI) MANEUVER, GIVEN -- 028276,000044: 028277,000045: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF 028278,000046: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI). 028279,000047: 028280,000048: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO 028281,000049: # INTERCEPT TIME (TIG (TPF)). 028282,000050: 028283,000051: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI). 028284,000052: 028285,000053: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 028286,000054: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 028287,000055: 028288,000056: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 028289,000057: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 028290,000058: # ASTRONAUT/GROUND. 028291,000059: 028292,000060: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED 028293,000061: # THRUSTING PROGRAM. 028294,000062: 028295,000063: # ASSUMPTIONS 028296,000064: 028297,000065: # (1) LM ONLY -- THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF 028298,000066: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73). 028299,000067: # THEREFORE -- 028300,000068: 028301,000069: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 028302,000070: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE 028303,000071: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE 028304,000072: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. 028305,000073: 028306,000074: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS 028307,000075: # COMPUTED TO BE GREATER THAN 10 MINUTES. 028308,000076: 028309,000077: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE 028310,000078: # ORBITS WAS MINIMIZED. 028311,000079: 028312,000080: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND 028313,000081: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR 028314,000082: # Page 659 028315,000083: # ORBIT OR 85 NM FOR EARTH ORBIT. 028316,000084: 028317,000085: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO 028318,000086: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW 028319,000087: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED 028320,000088: # IN AN OUT-OF-PLANE MANEUVER. 028321,000089: 028322,000090: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC 028323,000091: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)). 028324,000092: 028325,000093: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL 028326,000094: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED 028327,000095: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND. 028328,000096: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS 028329,000097: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC 028330,000098: # FLIGHT PLAN MANEUVER SEQUENCES. 028331,000099: 028332,000100: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 028333,000101: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 028334,000102: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY 028335,000103: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 028336,000104: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE 028337,000105: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 028338,000106: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH 028339,000107: # THRUSTING MANEUVER. 028340,000108: 028341,000109: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 028342,000110: 028343,000111: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 028344,000112: 028345,000113: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 028346,000114: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 028347,000115: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 028348,000116: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 028349,000117: 028350,000118: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 028351,000119: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE. 028352,000120: 028353,000121: # EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING 028354,000122: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING 028355,000123: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM. 028356,000124: 028357,000125: # (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER 028358,000126: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE 028359,000127: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STURED. 028360,000128: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 028361,000129: # THROUGH THE USE OF V06N52. 028362,000130: 028363,000131: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE 028364,000132: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 028365,000133: # Page 660 028366,000134: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE 028367,000135: # ASTRONAUT SHOULD REASSES THE INPUT TARGETING PARAMETERS BASED 028368,000136: # UPON DELTA V AND EXPECTED MANEUVER TIME. 028369,000137: 028370,000138: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -- 028371,000139: 028372,000140: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE. 028373,000141: 028374,000142: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE. 028375,000143: 028376,000144: # INPUT 028377,000145: 028378,000146: # (1) TTPI TIME OF THE TPI MANEUVER. 028379,000147: # (2) ELEV DESIRED LOS ANGLE AT TPI 028380,000148: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 028381,000149: # TRANSFER FROM TPI TO TIME OF INTERCEPT 028382,000150: 028383,000151: # OUTPUT 028384,000152: 028385,000153: # (1) TRKMKCNT NUMBER OF MARKS 028386,000154: # (2) TTOGO TIME TO GO 028387,000155: # (3) +MGA MIDDLE GIMBAL ANGLE 028388,000156: # (4) TTPI COMPUTED TIME OF TPI MANEUVER 028389,000157: # OR 028390,000158: # ELEV COMPUTED LOS ANGLE AT TPI 028391,000159: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER 028392,000160: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI 028393,000161: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT 028394,000162: # (8) DVLOS DELTA VELOCITY AT TPI -- LINE OF SIGHT 028395,000163: # (9) DELVLVC DELTA VELOCITY AT TPI -- LOCAL VERTICAL COORDINATES 028396,000164: 028397,000165: # DOWNLINK 028398,000166: 028399,000167: # (1) TTPI TIME OF TPI MANEUVER 028400,000168: # (2) TIG TIME OF TPI MANEUVER 028401,000169: # (3) ELEV DESIRED LOS ANGLE AT TPI 028402,000170: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 028403,000171: # TRANSFER FROM TPI TO TIME OF INTERCEPT 028404,000172: # (5) DELVEET3 DELTA VELOCITY AT TPI -- REFERENCE COORDINATES 028405,000173: # (6) TPASS4 TIME OF INTERCEPT 028406,000174: 028407,000175: # COMMUNICATION TO THRUSTING PROGRAMS 028408,000176: 028409,000177: # (1) TIG TIME OF THE TPI MANEUVER 028410,000178: # (2) RTARG OFFSET TARGET POSITION 028411,000179: # (3) TPASS4 TIME OF INTERCEPT 028412,000180: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION 028413,000181: 028414,000182: # SUBROUTINES USED 028415,000183: 028416,000184: # AVFLAGA 028417,000185: # Page 661 028418,000186: # AVFLAGP 028419,000187: # VNP00H 028420,000188: # DISPLAYE 028421,000189: # SELECTMU 028422,000190: # PRECSET 028423,000191: # S33/34.1 028424,000192: # ALARM 028425,000193: # BANKCALL 028426,000194: # GOFLASH 028427,000195: # GOTOP00H 028428,000196: # TIMETHET 028429,000197: # S34/35.2 028430,000198: # PERIAPO1 028431,000199: # SHIFTR1 028432,000200: # S34/35.5 028433,000201: # VN1645 028434,000202: 028435,000203: 35,2000 SETLOC CSI/CDH 028436,000204: 35,2000 BANK 028437,000205: 35,2545 E7,1470 EBANK= SUBEXIT 028438,000206: 35,2545 COUNT* $$/P3474 028439,000207: 35,2545 02347 P34 TC AVFLAGA 028440,000208: 35,2546 02550 TC P34/P74A 028441,000209: 35,2547 02354 P74 TC AVFLAGP 028442,000210: 35,2550 02361 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG 028443,000211: 35,2551 33723 CAF V06N37 # TTPI 028444,000212: 35,2552 03712 TC VNP00H 028445,000213: 35,2553 00006 EXTEND 028446,000214: 35,2554 33746 DCA 130DEG 028447,000215: 35,2555 53621 DXCH CENTANG 028448,000216: 35,2556 32417 CAF P30ZERO 028449,000217: 35,2557 55466 TS NN 028450,000218: 35,2560 03674 TC DISPLAYE # ELEV AND CENTANG 028451,000219: 35,2561 06037 TC INTPRET 028452,000220: 35,2562 71214 CLEAR DLOAD 028453,000221: 35,2563 01270 ETPIFLAG 028454,000222: 35,2564 03636 TTPI 028455,000223: 35,2565 17442 STODL TIG 028456,000224: 35,2566 02257 ELEV 028457,000225: 35,2567 43054 BZE SET 028458,000226: 35,2570 72572 P34/P74B 028459,000227: 35,2571 01070 ETPIFLAG 028460,000228: 35,2572 77624 P34/P74B CALL 028461,000229: 35,2573 20000 SELECTMU 028462,000230: 35,2574 DELELO EQUALS 26D 028463,000231: 35,2574 43145 P34/P74C DLOAD SET 028464,000232: 35,2575 06522 ZEROVECS 028465,000233: 35,2576 03460 ITSWICH 028466,000234: 35,2577 43014 BON CLEAR 028467,000235: 35,2600 01310 ETPIFLAG 028468,000236: # Page 662 028469,000237: 35,2601 72603 SWCHSET 028470,000238: 35,2602 03660 ITSWICH 028471,000239: 35,2603 02317 SWCHSET STORE NOMTPI 028472,000240: 35,2604 43345 INTLOOP DLOAD DAD 028473,000241: 35,2605 03636 TTPI 028474,000242: 35,2606 02317 NOMTPI 028475,000243: 35,2607 34041 STCALL TDEC1 028476,000244: 35,2610 46360 PRECSET 028477,000245: 35,2611 77624 CALL 028478,000246: 35,2612 72764 S33/34.1 028479,000247: 35,2613 77454 BZE EXIT 028480,000248: 35,2614 72625 SWCHCLR 028481,000249: 35,2615 05567 TC ALARM 028482,000250: 35,2616 00611 OCT 611 028483,000251: 35,2617 35006 CAF V05N09 028484,000252: 35,2620 04616 TC BANKCALL 028485,000253: 35,2621 20476 CADR GOFLASH 028486,000254: 35,2622 06001 TC GOTOP00H 028487,000255: 35,2623 02550 TC P34/P74A # PROCEED 028488,000256: 35,2624 02615 TC -7 # V32 028489,000257: 028490,000258: 35,2625 43014 SWCHCLR BONCLR BON 028491,000259: 35,2626 03600 ITSWICH 028492,000260: 35,2627 72604 INTLOOP 028493,000261: 35,2630 01310 ETPIFLAG 028494,000262: 35,2631 72635 P34/P74D # DISPLAY TTPI 028495,000263: 35,2632 77776 EXIT 028496,000264: 35,2633 03674 TC DISPLAYE # DISPLAY ELEV AND CENTANG 028497,000265: 35,2634 02640 TC P34/P74E 028498,000266: 35,2635 77776 P34/P74D EXIT 028499,000267: 35,2636 33723 CAF V06N37 # TTPI 028500,000268: 35,2637 03712 TC VNP00H 028501,000269: 35,2640 06037 P34/P74E TC INTPRET 028502,000270: 35,2641 71201 SETPD DLOAD 028503,000271: 35,2642 00001 0D 028504,000272: 35,2643 02777 RTX1 028505,000273: 35,2644 14047 STODL X1 028506,000274: 35,2645 03621 CENTANG 028507,000275: 35,2646 71406 PUSH COS 028508,000276: 35,2647 16732 STODL CSTH 028509,000277: 35,2650 77756 SIN 028510,000278: 35,2651 26730 STOVL SNTH 028511,000279: 35,2652 03552 RPASS3 028512,000280: 35,2653 77657 VSR* 028513,000281: 35,2654 57176 0,2 028514,000282: 35,2655 26655 STOVL RVEC 028515,000283: 35,2656 03560 VPASS3 028516,000284: 35,2657 43057 VSR* SET 028517,000285: 35,2660 57176 0,2 028518,000286: 35,2661 03466 RVSW 028519,000287: # Page 663 028520,000288: 35,2662 36744 STCALL VVEC 028521,000289: 35,2663 24732 TIMETHET 028522,000290: 35,2664 77745 DLOAD 028523,000291: 35,2665 03636 TTPI 028524,000292: 35,2666 03610 STORE INTIME # FOR INITVEL 028525,000293: 35,2667 77615 DAD 028526,000294: 35,2670 00037 T # RENDEZVOUS TIME 028527,000295: 35,2671 37631 STCALL TPASS4 # FOR INITVEL 028528,000296: 35,2672 73306 S34/35.2 028529,000297: 35,2673 51575 VLOAD ABVAL 028530,000298: 35,2674 02366 DELVEET3 028531,000299: 35,2675 27576 STOVL DELVTPI 028532,000300: 35,2676 03506 VPASS4 028533,000301: 35,2677 51451 VSU ABVAL 028534,000302: 35,2700 03566 VTPRIME 028535,000303: 35,2701 26350 STOVL DELVTPF 028536,000304: 35,2702 03536 RACT3 028537,000305: 35,2703 45115 PDVL CALL 028538,000306: 35,2704 02337 VIPRIME 028539,000307: 35,2705 46316 PERIAPO1 028540,000308: 35,2706 77624 CALL 028541,000309: 35,2707 46426 SHIFTR1 028542,000310: 35,2710 17606 STODL POSTTPI 028543,000311: 35,2711 03636 TTPI 028544,000312: 35,2712 03442 STORE TIG 028545,000313: 35,2713 77776 EXIT 028546,000314: 35,2714 33725 CAF V06N58 028547,000315: 35,2715 03712 TC VNP00H 028548,000316: 35,2716 06037 TC INTPRET 028549,000317: 35,2717 77624 CALL 028550,000318: 35,2720 73522 S34/35.5 028551,000319: 35,2721 77624 CALL 028552,000320: 35,2722 73606 VN1645 028553,000321: 35,2723 77650 GOTO 028554,000322: 35,2724 72574 P34/P74C 028555,000323: # Page 664 028556,000324: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75) 028557,000325: 028558,000326: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 028559,000327: # MOD BY WHITE, P. DATE: 1 JUNE 67 028560,000328: 028561,000329: # PURPOSE 028562,000330: 028563,000331: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS 028564,000332: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT 028565,000333: # MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE 028566,000334: # VEHICLE RENDEZVOUS. 028567,000335: 028568,000336: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 028569,000337: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 028570,000338: # ASTRONAUT/GROUND. 028571,000339: 028572,000340: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED 028573,000341: # THRUSTING PROGRAM. 028574,000342: 028575,000343: # ASSUMPTIONS 028576,000344: 028577,000345: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 028578,000346: 028579,000347: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 028580,000348: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)). 028581,000349: 028582,000350: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS 028583,000351: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS 028584,000352: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN 028585,000353: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE 028586,000354: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF 028587,000355: # P20 AND AFTER EACH THRUSTING MANEUVER. 028588,000356: 028589,000357: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 028590,000358: 028591,000359: # THE ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 028592,000360: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 028593,000361: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 028594,000362: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 028595,000363: 028596,000364: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 028597,000365: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE. 028598,000366: 028599,000367: # EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING 028600,000368: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING 028601,000369: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM. 028602,000370: 028603,000371: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS 028604,000372: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM 028605,000373: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE. 028606,000374: 028607,000375: # Page 665 028608,000376: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER 028609,000377: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE 028610,000378: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED. 028611,000379: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 028612,000380: # THROUGH THE USE OF V06N52 028613,000381: 028614,000382: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE 028615,000383: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 028616,000384: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE 028617,000385: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED 028618,000386: # UPON DELTA V AND EXPECTED MANEUVER TIME. 028619,000387: 028620,000388: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -- 028621,000389: 028622,000390: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE. 028623,000391: 028624,000392: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE. 028625,000393: 028626,000394: # INPUT 028627,000395: 028628,000396: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P34/P74 028629,000397: 028630,000398: # OUTPUT 028631,000399: 028632,000400: # (1) TRKMKCNT NUMBER OF MARKS 028633,000401: # (2) TTOGO TIME TO GO 028634,000402: # (3) +MGA MIDOLF GIMBAL ANGLE 028635,000403: # (4) DVLOS DELTA VELOCITY AT MID -- LINE OF SIGHT 028636,000404: # (5) DELVLVC DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES 028637,000405: 028638,000406: # DOWNLINK 028639,000407: 028640,000408: # (1) TIG TIME OF THE TPM MANEUVER 028641,000409: # (2) DELVEET3 DELTA VELOCITY AT TPM -- REFERENCE COORDINATES 028642,000410: # (3) TPASS4 TIME OF INTERCEPT 028643,000411: 028644,000412: # COMMUNICATION TO THRUSTING PROGRAMS 028645,000413: 028646,000414: # (1) TIG TIME OF THE TPM MANEUVER 028647,000415: # (2) RTARG OFFSET TARGET POSITION 028648,000416: # (3) TPASS4 TIME OF INTERCEPT 028649,000417: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION. 028650,000418: 028651,000419: # SUBROUTINES USED 028652,000420: 028653,000421: # AVFLAGA 028654,000422: # AVFLAGP 028655,000423: # LOADTIME 028656,000424: # SELECTMU 028657,000425: # PRECSET 028658,000426: # S34/35.1 028659,000427: # S34/35.2 028660,000428: # Page 666 028661,000429: # S34/35.5 028662,000430: # VN1645 028663,000431: 028664,000432: 35,2725 COUNT* $$/P3575 028665,000433: 35,2725 E7,1575 EBANK= KT 028666,000434: 028667,000435: 35,2725 02347 P35 TC AVFLAGA 028668,000436: 35,2726 00006 EXTEND 028669,000437: 35,2727 31401 DCA ATIGINC 028670,000438: 35,2730 02734 TC P35/P75A 028671,000439: 35,2731 02354 P75 TC AVFLAGP 028672,000440: 35,2732 00006 EXTEND 028673,000441: 35,2733 31403 DCA PTIGINC 028674,000442: 35,2734 53576 P35/P75A DXCH KT 028675,000443: 35,2735 02361 TC P20FLGON # SET UPDATFLG, TRACKFLG 028676,000444: 35,2736 06037 TC INTPRET 028677,000445: 35,2737 77624 CALL 028678,000446: 35,2740 20000 SELECTMU 028679,000447: 35,2741 77634 P35/P75B RTB 028680,000448: 35,2742 21573 LOADTIME 028681,000449: 35,2743 03612 STORE TSTRT 028682,000450: 35,2744 77615 DAD 028683,000451: 35,2745 03576 KT 028684,000452: 35,2746 03442 STORE TIG 028685,000453: 35,2747 03610 STORE INTIME # FOR INITVEL 028686,000454: 35,2750 34041 STCALL TDEC1 028687,000455: 35,2751 46360 PRECSET # ADVANCE BOTH VEHICLES 028688,000456: 35,2752 77624 CALL 028689,000457: 35,2753 73274 S34/35.1 # GET NORM AND LOS FOR TRANSFORM 028690,000458: 35,2754 77624 CALL 028691,000459: 35,2755 73306 S34/35.2 # GET DELTA V(LV) 028692,000460: 35,2756 77624 CALL 028693,000461: 35,2757 73522 S34/35.5 028694,000462: 35,2760 77624 CALL 028695,000463: 35,2761 73606 VN1645 028696,000464: 35,2762 77650 GOTO 028697,000465: 35,2763 72741 P35/P75B 028698,000466: # Page 667 028699,000467: # ***** S33/34.1 ***** 028700,000468: 028701,000469: 35,2764 66220 S33/34.1 STQ SSP 028702,000470: 35,2765 03463 NORMEX 028703,000471: 35,2766 03614 TITER 028704,000472: 35,2767 40000 OCT 40000 028705,000473: 35,2770 40345 DLOAD SETPD 028706,000474: 35,2771 33734 MAX250 028707,000475: 35,2772 00001 0D 028708,000476: 35,2773 27574 STOVL SECMAX 028709,000477: 35,2774 03536 RACT3 028710,000478: 35,2775 27500 STOVL RAPREC 028711,000479: 35,2776 03544 VACT3 028712,000480: 35,2777 27506 STOVL VAPREC 028713,000481: 35,3000 03552 RPASS3 028714,000482: 35,3001 27522 STOVL RPPREC 028715,000483: 35,3002 03560 VPASS3 028716,000484: 35,3003 03530 STORE VPPREC 028717,000485: 35,3004 77624 ELCALC CALL 028718,000486: 35,3005 73274 S34/35.1 # NORMAL AND LOS 028719,000487: 35,3006 63235 VXV PDVL 028720,000488: 35,3007 03536 RACT3 # (RA*VA)*RA 0D 028721,000489: 35,3010 53515 PDVL UNIT # ULOS AT 6D 028722,000490: 35,3011 03536 RACT3 028723,000491: 35,3012 46315 PDVL VPROJ # XCHNJ AND UP 028724,000492: 35,3013 51352 VSL2 BVSU 028725,000493: 35,3014 02311 ULOS 028726,000494: 35,3015 63256 UNIT PDVL # UP AT 0D 028727,000495: 35,3016 63241 DOT PDVL # UP.UN*RA AT 0D 028728,000496: 35,3017 00001 0D # UP IN MPAC 028729,000497: 35,3020 75241 DOT SIGN 028730,000498: 35,3021 02311 ULOS 028731,000499: 35,3022 65552 SL1 ACOS 028732,000500: 35,3023 50315 PDVL DOT # EA AT 0D 028733,000501: 35,3024 02311 ULOS 028734,000502: 35,3025 03536 RACT3 028735,000503: 35,3026 71244 BPL DLOAD 028736,000504: 35,3027 73032 TESTY 028737,000505: 35,3030 06530 DPPOSMAX 028738,000506: 35,3031 41425 DSU PUSH 028739,000507: 35,3032 71214 TESTY BOFF DLOAD 028740,000508: 35,3033 03740 ITSWICH 028741,000509: 35,3034 73261 ELEX 028742,000510: 35,3035 03576 DELEL 028743,000511: 35,3036 14033 STODL DELELO 028744,000512: 35,3037 77625 DSU 028745,000513: 35,3040 02257 ELEV 028746,000514: 35,3041 03576 STORE DELEL 028747,000515: 35,3042 45246 ABS DSU 028748,000516: 35,3043 33740 ELEPS 028749,000517: # Page 668 028750,000518: 35,3044 77640 BMN 028751,000519: 35,3045 73271 TIMEX # COMMERCIALS EVERYWHERE 028752,000520: 35,3046 70535 FIGTIME SLOAD SR1 028753,000521: 35,3047 03614 TITER 028754,000522: 35,3050 72030 BHIZ LXA,1 028755,000523: 35,3051 03463 NORMEX # TOO MANY ITERATIONS 028756,000524: 35,3052 00154 MPAC 028757,000525: 35,3053 77330 SXA,1 VLOAD 028758,000526: 35,3054 03613 TITER 028759,000527: 35,3055 03552 RPASS3 028760,000528: 35,3056 65256 UNIT PDDL 028761,000529: 35,3057 00045 36D 028762,000530: 35,3060 53515 PDVL UNIT 028763,000531: 35,3061 03536 RACT3 028764,000532: 35,3062 77725 PDDL 028765,000533: 35,3063 41525 PDDL PUSH 028766,000534: 35,3064 00045 36D 028767,000535: 35,3065 77621 BDSU 028768,000536: 35,3066 00015 12D 028769,000537: 35,3067 14037 STODL 30D # RP - RA MAGNITUDES 028770,000538: 35,3070 06520 DPHALF 028771,000539: 35,3071 41425 DSU PUSH 028772,000540: 35,3072 02257 ELEV 028773,000541: 35,3073 50165 SIGN BMN 028774,000542: 35,3074 00037 30D 028775,000543: 35,3075 03463 NORMEX 028776,000544: 35,3076 71545 DLOAD COS 028777,000545: 35,3077 56205 DMP DDV 028778,000546: 35,3100 00017 14D 028779,000547: 35,3101 00015 12D 028780,000548: 35,3102 77676 DCOMP # SINCE COS(180-A)=-COS A 028781,000549: 35,3103 00035 STORE 28D 028782,000550: 35,3104 44246 ABS BDSU 028783,000551: 35,3105 06520 DPHALF 028784,000552: 35,3106 77240 BMN VLOAD 028785,000553: 35,3107 03463 NORMEX 028786,000554: 35,3110 02261 UNRM 028787,000555: 35,3111 53435 VXV UNIT 028788,000556: 35,3112 00007 6D # UN*RA 028789,000557: 35,3113 41241 DOT DMP 028790,000558: 35,3114 03544 VACT3 028791,000559: 35,3115 00015 12D 028792,000560: 35,3116 47315 PDVL VXV 028793,000561: 35,3117 00001 0D 028794,000562: 35,3120 03560 VPASS3 028795,000563: 35,3121 53435 VXV UNIT 028796,000564: 35,3122 00001 0D # (RP*VP)*RP 028797,000565: 35,3123 41241 DOT DMP 028798,000566: 35,3124 03560 VPASS3 028799,000567: 35,3125 00017 14D 028800,000568: # Page 669 028801,000569: 35,3126 77621 BDSU 028802,000570: 35,3127 63301 NORM PDVL # NORMALIZED WA - WP 12D 028803,000571: 35,3130 00047 X1 028804,000572: 35,3131 00007 6D 028805,000573: 35,3132 50235 VXV DOT 028806,000574: 35,3133 00001 0D 028807,000575: 35,3134 02261 UNRM # RA*RP.UN 14D 028808,000576: 35,3135 50315 PDVL DOT 028809,000577: 35,3136 00001 0D 028810,000578: 35,3137 00007 6D 028811,000579: 35,3140 65552 SL1 ACOS 028812,000580: 35,3141 77765 SIGN 028813,000581: 35,3142 43225 DSU DAD # ALPHA PI 028814,000582: 35,3143 06520 DPHALF 028815,000583: 35,3144 02257 ELEV 028816,000584: 35,3145 65525 PDDL ACOS 028817,000585: 35,3146 00035 28D 028818,000586: 35,3147 75221 BDSU SIGN 028819,000587: 35,3150 06520 DPHALF 028820,000588: 35,3151 00037 30D # CONTAINS RP-RA 028821,000589: 35,3152 77615 DAD 028822,000590: 35,3153 56205 DMP DDV 028823,000591: 35,3154 33732 TWOPI 028824,000592: 35,3155 77605 DMP 028825,000593: 35,3156 41257 SL* DMP 028826,000594: 35,3157 20176 0 -3,1 028827,000595: 35,3160 51406 PUSH ABS 028828,000596: 35,3161 50025 DSU BMN 028829,000597: 35,3162 03574 SECMAX 028830,000598: 35,3163 73167 OKMAX 028831,000599: 35,3164 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED 028832,000600: 35,3165 03574 SECMAX 028833,000601: 35,3166 77606 PUSH 028834,000602: 35,3167 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION 028835,000603: 35,3170 03614 TITER 028836,000604: 35,3171 73177 REPETE 028837,000605: 35,3172 71331 SSP DLOAD 028838,000606: 35,3173 03614 TITER 028839,000607: 35,3174 37777 OCT 37777 028840,000608: 35,3175 77650 GOTO 028841,000609: 35,3176 73235 STORDELT 028842,000610: 35,3177 41345 REPETE DLOAD DMP 028843,000611: 35,3200 03576 DELEL 028844,000612: 35,3201 00033 DELELO 028845,000613: 35,3202 71244 BPL DLOAD 028846,000614: 35,3203 73213 NEXTES 028847,000615: 35,3204 03574 SECMAX 028848,000616: 35,3205 77605 DMP 028849,000617: 35,3206 33736 THIRD 028850,000618: 35,3207 17574 STODL SECMAX 028851,000619: # Page 670 028852,000620: 35,3210 70446 ABS SR1 # CROSSED OVER SOLUTION 028853,000621: 35,3211 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2 028854,000622: 35,3212 73223 RESIGN 028855,000623: 35,3213 51545 NEXTES DLOAD ABS 028856,000624: 35,3214 03576 DELEL 028857,000625: 35,3215 51525 PDDL ABS 028858,000626: 35,3216 00033 DELELO 028859,000627: 35,3217 77625 DSU 028860,000628: 35,3220 71240 BMN DLOAD 028861,000629: 35,3221 73226 REVERS # WRONG DIRECTION 028862,000630: 35,3222 77646 ABS 028863,000631: 35,3223 52165 RESIGN SIGN GOTO 028864,000632: 35,3224 03606 DELTEEO 028865,000633: 35,3225 73235 STORDELT 028866,000634: 35,3226 57545 REVERS DLOAD DCOMP 028867,000635: 35,3227 03606 DELTEEO 028868,000636: 35,3230 70406 PUSH SR1 028869,000637: 35,3231 03606 STORE DELTEEO 028870,000638: 35,3232 77615 DAD 028871,000639: 35,3233 77650 GOTO 028872,000640: 35,3234 73236 ADTIME 028873,000641: 35,3235 03606 STORDELT STORE DELTEEO 028874,000642: 35,3236 77615 ADTIME DAD 028875,000643: 35,3237 02317 NOMTPI # SUM OF DELTA T'S 028876,000644: 35,3240 02317 STORE NOMTPI 028877,000645: 35,3241 63375 VLOAD PDVL 028878,000646: 35,3242 03506 VAPREC 028879,000647: 35,3243 03500 RAPREC 028880,000648: 35,3244 77624 CALL 028881,000649: 35,3245 73462 GOINT 028882,000650: 35,3246 77624 CALL 028883,000651: 35,3247 46402 ACTIVE # STORE NEW RACT3 VACT3 028884,000652: 35,3250 63375 VLOAD PDVL 028885,000653: 35,3251 03530 VPPREC 028886,000654: 35,3252 03522 RPPREC 028887,000655: 35,3253 77624 CALL 028888,000656: 35,3254 73462 GOINT 028889,000657: 35,3255 77624 CALL 028890,000658: 35,3256 46412 PASSIVE # STORE NEW RPASS3 VPASS3 028891,000659: 35,3257 77650 GOTO 028892,000660: 35,3260 73004 ELCALC 028893,000661: 35,3261 43345 ELEX DLOAD DAD 028894,000662: 35,3262 03636 TTPI 028895,000663: 35,3263 02317 NOMTPI 028896,000664: 35,3264 17636 STODL TTPI 028897,000665: 35,3265 77614 BON 028898,000666: 35,3266 01310 ETPIFLAG 028899,000667: 35,3267 73271 TIMEX 028900,000668: 35,3270 02257 STORE ELEV 028901,000669: 35,3271 52145 TIMEX DLOAD GOTO 028902,000670: # Page 671 028903,000671: 35,3272 06522 ZEROVECS 028904,000672: 35,3273 03463 NORMEX 028905,000673: 028906,000674: # Page 672 028907,000675: # ***** S34/35.1 ***** 028908,000676: 028909,000677: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND 028910,000678: # PASSIVE POS AND VEL AT TIME T3 028911,000679: 028912,000680: 35,3274 52375 S34/35.1 VLOAD VSU 028913,000681: 35,3275 03552 RPASS3 028914,000682: 35,3276 03536 RACT3 028915,000683: 35,3277 41456 UNIT PUSH 028916,000684: 35,3300 26311 STOVL ULOS 028917,000685: 35,3301 03536 RACT3 028918,000686: 35,3302 53435 VXV UNIT 028919,000687: 35,3303 03544 VACT3 028920,000688: 35,3304 02261 STORE UNRM 028921,000689: 35,3305 77616 RVQ 028922,000690: 028923,000691: # Page 673 028924,000692: # ***** S34/35.2 ***** 028925,000693: 028926,000694: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT 028927,000695: 028928,000696: 35,3306 77220 S34/35.2 STQ VLOAD 028929,000697: 35,3307 03470 SUBEXIT 028930,000698: 35,3310 03560 VPASS3 028931,000699: 35,3311 65315 PDVL PDDL 028932,000700: 35,3312 03552 RPASS3 028933,000701: 35,3313 03610 INTIME 028934,000702: 35,3314 65325 PDDL PDDL 028935,000703: 35,3315 03631 TPASS4 028936,000704: 35,3316 33732 TWOPI # CONIC 028937,000705: 35,3317 46125 PDDL BHIZ 028938,000706: 35,3320 03467 NN 028939,000707: 35,3321 73325 S3435.23 028940,000708: 35,3322 77745 DLOAD 028941,000709: 35,3323 41545 DLOAD PUSH 028942,000710: 35,3324 06522 ZEROVECS # PRECISION 028943,000711: 35,3325 77624 S3435.23 CALL 028944,000712: 35,3326 73466 INTINT # GET TARGET VECTOR 028945,000713: 35,3327 27444 S3435.25 STOVL RTARG 028946,000714: 35,3330 00007 VATT 028947,000715: 35,3331 27506 STOVL VPASS4 028948,000716: 35,3332 03444 RTARG 028949,000717: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U) 028950,000718: 35,3333 63256 UNIT PDVL # UNIT RP 028951,000719: 35,3334 03536 RACT3 028952,000720: 35,3335 41456 UNIT PUSH # UNIT RA 028953,000721: 35,3336 50235 VXV DOT 028954,000722: 35,3337 00001 0D 028955,000723: 35,3340 02261 UNRM # RA*RP.U 028956,000724: 35,3341 77715 PDVL 028957,000725: 35,3342 72441 DOT SL1 # UNIT RA.UNIT RP 028958,000726: 35,3343 00001 0D 028959,000727: 35,3344 75326 ACOS SIGN 028960,000728: 35,3345 43244 BPL DAD 028961,000729: 35,3346 73350 NOPIE 028962,000730: 35,3347 06530 DPPOSMAX # REASONABLE TWO PI 028963,000731: 35,3350 15756 NOPIE STODL ACTCENT 028964,000732: 35,3351 03631 TPASS4 028965,000733: 35,3352 77625 DSU 028966,000734: 35,3353 03610 INTIME 028967,000735: 35,3354 03452 STORE DELLT4 028968,000736: 35,3355 40335 SLOAD SETPD 028969,000737: 35,3356 03467 NN # NUMBER OF OFFSETS 028970,000738: 35,3357 00001 0D 028971,000739: 35,3360 63325 PDDL PDVL 028972,000740: 35,3361 33744 EPSFOUR 028973,000741: 35,3362 03536 RACT3 028974,000742: 35,3363 26323 STOVL RINIT 028975,000743: # Page 674 028976,000744: 35,3364 03544 VACT3 028977,000745: 35,3365 36331 STCALL VINIT 028978,000746: 35,3366 22000 INITVEL 028979,000747: 35,3367 77624 CALL 028980,000748: 35,3370 73447 LOMAT 028981,000749: 35,3371 64375 VLOAD MXV 028982,000750: 35,3372 02366 DELVEET3 028983,000751: 35,3373 00001 0D 028984,000752: 35,3374 77772 VSL1 028985,000753: 35,3375 37434 STCALL DELVLVC 028986,000754: 35,3376 03470 SUBEXIT 028987,000755: 028988,000756: # Page 675 028989,000757: # ***** S34/35.3 ***** 028990,000758: 028991,000759: 35,3377 45020 S34/35.3 STQ CALL 028992,000760: 35,3400 03463 NORMEX 028993,000761: 35,3401 73447 LOMAT # GET MATRIX IN PUSH LIST 028994,000762: 35,3402 61375 VLOAD VXM 028995,000763: 35,3403 03434 DELVLVC # NEW DEL V TPI 028996,000764: 35,3404 00001 0D 028997,000765: 35,3405 77772 VSL1 028998,000766: 35,3406 02366 STORE DELVEET3 # SAVE FOR TRANSFORM 028999,000767: 35,3407 63255 VAD PDVL 029000,000768: 35,3410 03544 VACT3 # NEW V REQ 029001,000769: 35,3411 03536 RACT3 029002,000770: 35,3412 65325 PDDL PDDL 029003,000771: 35,3413 03442 TIG 029004,000772: 35,3414 03631 TPASS4 029005,000773: 35,3415 41525 PDDL PUSH 029006,000774: 35,3416 06530 DPPOSMAX 029007,000775: 35,3417 77624 CALL # INTEG. FOR NEW TARGET VEC 029008,000776: 35,3420 73466 INTINT 029009,000777: 35,3421 77775 VLOAD 029010,000778: 35,3422 00001 RATT 029011,000779: 35,3423 03444 STORE RTARG 029012,000780: 35,3424 41575 NOVRWRT VLOAD PUSH 029013,000781: 35,3425 02311 ULOS 029014,000782: 35,3426 57435 VXV VCOMP 029015,000783: 35,3427 02261 UNRM 029016,000784: 35,3430 41456 UNIT PUSH 029017,000785: 35,3431 76435 VXV VSL1 029018,000786: 35,3432 02311 ULOS 029019,000787: 35,3433 77715 PDVL 029020,000788: 35,3434 64315 PDVL MXV 029021,000789: 35,3435 02366 DELVEET3 029022,000790: 35,3436 00001 0D 029023,000791: 35,3437 77772 VSL1 029024,000792: 35,3440 36303 STCALL DVLOS 029025,000793: 35,3441 03463 NORMEX 029026,000794: 029027,000795: # Page 676 029028,000796: # ***** S34/35.4 ***** 029029,000797: 029030,000798: 35,3442 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE 029031,000799: 35,3443 03463 NORMEX 029032,000800: 35,3444 00001 0D 029033,000801: 35,3445 77650 GOTO 029034,000802: 35,3446 73424 NOVRWRT 029035,000803: 029036,000804: # Page 677 029037,000805: # ***** LOMAT ***** 029038,000806: 029039,000807: 35,3447 57575 LOMAT VLOAD VCOMP 029040,000808: 35,3450 02261 UNRM 029041,000809: 35,3451 24007 STOVL 6D # Y 029042,000810: 35,3452 03536 RACT3 029043,000811: 35,3453 57456 UNIT VCOMP 029044,000812: 35,3454 00015 STORE 12D 029045,000813: 35,3455 76435 VXV VSL1 029046,000814: 35,3456 02261 UNRM # Z*-Y 029047,000815: 35,3457 00001 STORE 0D 029048,000816: 35,3460 43401 SETPD RVQ 029049,000817: 35,3461 00023 18D 029050,000818: 35,3462 65325 GOINT PDDL PDDL # DO 029051,000819: 35,3463 06522 ZEROVECS # NOT 029052,000820: 35,3464 02317 NOMTPI 029053,000821: 35,3465 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT 029054,000822: 35,3466 45020 INTINT STQ CALL 029055,000823: 35,3467 03465 RTRN 029056,000824: 35,3470 27414 INTSTALL 029057,000825: 35,3471 71214 CLEAR DLOAD 029058,000826: 35,3472 01673 INTYPFLG 029059,000827: 35,3473 43054 BZE SET 029060,000828: 35,3474 73476 +2 029061,000829: 35,3475 01473 INTYPFLG 029062,000830: 35,3476 45545 DLOAD STADR 029063,000831: 35,3477 63736 STODL TDEC1 029064,000832: 35,3500 73014 SET LXA,2 029065,000833: 35,3501 00063 MOONFLAG 029066,000834: 35,3502 02777 RTX2 029067,000835: 35,3503 43014 BON CLEAR 029068,000836: 35,3504 04303 CMOONFLG 029069,000837: 35,3505 73507 ALLSET 029070,000838: 35,3506 00263 MOONFLAG 029071,000839: 35,3507 25517 ALLSET STOVL TET 029072,000840: 35,3510 77657 VSR* 029073,000841: 35,3511 57176 0,2 029074,000842: 35,3512 25535 STOVL RCV 029075,000843: 35,3513 77657 VSR* 029076,000844: 35,3514 57176 0,2 029077,000845: 35,3515 35543 STCALL VCV 029078,000846: 35,3516 27107 INTEGRVS 029079,000847: 35,3517 52175 VLOAD GOTO 029080,000848: 35,3520 00001 RATT 029081,000849: 35,3521 03465 RTRN 029082,000850: 029083,000851: # Page 678 029084,000852: # ***** S34/35.5 ***** 029085,000853: # SUBROUTINES USED 029086,000854: # BANKCALL 029087,000855: # GOFLASH 029088,000856: # GOTOP00H 029089,000857: # S34/35.3 029090,000858: # S34.35.4 029091,000859: # VNP00H 029092,000860: 029093,000861: 35,3522 43020 S34/35.5 STQ BON 029094,000862: 35,3523 03470 SUBEXIT 029095,000863: 35,3524 01311 FINALFLG 029096,000864: 35,3525 73531 FLAGON 029097,000865: 35,3526 52014 SET GOTO 029098,000866: 35,3527 00470 UPDATFLG 029099,000867: 35,3530 73576 FLAGOFF 029100,000868: 35,3531 77214 FLAGON CLEAR VLOAD 029101,000869: 35,3532 03274 NTARGFLG 029102,000870: 35,3533 03434 DELVLVC 029103,000871: 35,3534 01237 STORE GDT/2 029104,000872: 35,3535 77776 EXIT 029105,000873: 35,3536 33727 +5 CAF V06N81 029106,000874: 35,3537 04616 TC BANKCALL 029107,000875: 35,3540 20476 CADR GOFLASH 029108,000876: 35,3541 06001 TC GOTOP00H 029109,000877: 35,3542 03544 TC +2 # PRO 029110,000878: 35,3543 03536 TC FLAGON +5 # LOAD 029111,000879: 35,3544 35016 +2 CA EBANK7 029112,000880: 35,3545 54003 TS EBANK # TO BE SURE 029113,000881: 029114,000882: 35,3546 22007 ZL 029115,000883: 35,3547 34756 CA FIVE 029116,000884: 35,3550 54002 NTARGCHK TS Q 029117,000885: 35,3551 50002 INDEX Q 029118,000886: 35,3552 41433 CS DELVLVC 029119,000887: 35,3553 50002 INDEX Q 029120,000888: 35,3554 61236 AD GDT/2 029121,000889: 35,3555 26001 ADS L 029122,000890: 35,3556 10002 CCS Q 029123,000891: 35,3557 13550 TCF NTARGCHK 029124,000892: 35,3560 22000 LXCH A 029125,000893: 35,3561 00006 EXTEND 029126,000894: 35,3562 13565 BZF +3 029127,000895: 35,3563 05504 TC UPFLAG 029128,000896: 35,3564 00146 ADRES NTARGFLG 029129,000897: 029130,000898: 35,3565 06037 TC INTPRET 029131,000899: 35,3566 45014 BOFF CALL 029132,000900: 35,3567 03354 NTARGFLG 029133,000901: # Page 679 029134,000902: 35,3570 73572 NOCHG 029135,000903: 35,3571 73377 S34/35.3 029136,000904: 35,3572 77214 NOCHG CLEAR VLOAD 029137,000905: 35,3573 01267 XDELVFLG 029138,000906: 35,3574 02366 DELVEET3 029139,000907: 35,3575 03656 STORE DELVSIN 029140,000908: 35,3576 77624 FLAGOFF CALL 029141,000909: 35,3577 73442 S34/35.4 029142,000910: 35,3600 77776 EXIT 029143,000911: 35,3601 33726 CAF V06N59 029144,000912: 35,3602 03712 TC VNP00H 029145,000913: 35,3603 06037 TC INTPRET 029146,000914: 35,3604 77650 GOTO 029147,000915: 35,3605 03470 SUBEXIT 029148,000916: 029149,000917: # Page 680 029150,000918: # ***** VN1645 ***** 029151,000919: 029152,000920: # SUBROUTINES USED 029153,000921: # P3XORP7X 029154,000922: # GET+MGA 029155,000923: # BANKCALL 029156,000924: # DELAYJOB 029157,000925: # COMPTGO 029158,000926: # GOFLASHR 029159,000927: # GOTOP00H 029160,000928: # FLAGUP 029161,000929: 029162,000930: 35,3606 71220 VN1645 STQ DLOAD 029163,000931: 35,3607 03470 SUBEXIT 029164,000932: 35,3610 33742 DP-.01 029165,000933: 35,3611 02253 STORE +MGA # MGA = -.01 029166,000934: 35,3612 71214 BOFF DLOAD 029167,000935: 35,3613 01351 FINALFLG 029168,000936: 35,3614 73634 GET45 029169,000937: 35,3615 33742 DP-.01 029170,000938: 35,3616 77615 DAD 029171,000939: 35,3617 33742 DP-.01 029172,000940: 35,3620 02253 STORE +MGA # MGA = -.02 029173,000941: 35,3621 77414 BOFF EXIT 029174,000942: 35,3622 01742 REFSMFLG 029175,000943: 35,3623 73634 GET45 029176,000944: 35,3624 03704 TC P3XORP7X 029177,000945: 35,3625 03627 TC +2 # P3X 029178,000946: 35,3626 03635 TC GET45 +1 # P7X 029179,000947: 35,3627 06037 TC INTPRET 029180,000948: 35,3630 41575 VLOAD PUSH 029181,000949: 35,3631 03656 DELVSIN 029182,000950: 35,3632 77624 CALL # COMPUTE MGA 029183,000951: 35,3633 15717 GET+MGA 029184,000952: 35,3634 77776 GET45 EXIT 029185,000953: 35,3635 02432 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO 029186,000954: 35,3636 31470 CA SUBEXIT 029187,000955: 35,3637 55464 TS QSAVED 029188,000956: 35,3640 34777 CAF 1SEC 029189,000957: 35,3641 04616 TC BANKCALL 029190,000958: 35,3642 01735 CADR DELAYJOB 029191,000959: 35,3643 33730 CAF V16N45 # TRKMKCNT, TTOGO, +MGA 029192,000960: 35,3644 04616 TC BANKCALL 029193,000961: 35,3645 20476 CADR GOFLASH 029194,000962: 35,3646 03651 TC KILCLOCK # TERMINATE 029195,000963: 35,3647 03654 TC N45PROC # PROCEED 029196,000964: 35,3650 03664 TC CLUPDATE # RECYCLE -- RETURN FOR INITIAL COMPUTATION 029197,000965: 35,3651 30005 KILCLOCK CA Z 029198,000966: 35,3652 55163 TS DISPDEX 029199,000967: # Page 681 029200,000968: 35,3653 06001 TC GOTOP00H 029201,000969: 35,3654 40076 N45PROC CS FLAGWRD2 029202,000970: 35,3655 74746 MASK BIT6 029203,000971: 35,3656 00006 EXTEND 029204,000972: 35,3657 13651 BZF KILCLOCK # FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM 029205,000973: 35,3660 05353 TC PHASCHNG 029206,000974: 35,3661 04024 OCT 04024 029207,000975: 35,3662 05504 TC UPFLAG # SET 029208,000976: 35,3663 00047 ADRES FINALFLG # FINALFLG 029209,000977: 35,3664 30005 CLUPDATE CA Z 029210,000978: 35,3665 55163 TS DISPDEX 029211,000979: 35,3666 05353 TC PHASCHNG 029212,000980: 35,3667 04024 OCT 04024 029213,000981: 35,3670 06037 TC INTPRET 029214,000982: 35,3671 52014 CLEAR GOTO 029215,000983: 35,3672 00670 UPDATFLG 029216,000984: 35,3673 03464 QSAVED 029217,000985: 029218,000986: # Page 682 029219,000987: # ***** DISPLAYE ***** 029220,000988: 029221,000989: # SUBROUTINES USED 029222,000990: # BANKCALL 029223,000991: # GOFLASHR 029224,000992: # GOTOP00H 029225,000993: # BLANKET 029226,000994: # ENDOFJOB 029227,000995: 029228,000996: 35,3674 00006 DISPLAYE EXTEND 029229,000997: 35,3675 23463 QXCH NORMEX 029230,000998: 35,3676 33724 CAF V06N55 029231,000999: 35,3677 04616 TCR BANKCALL 029232,001000: 35,3700 20476 CADR GOFLASH 029233,001001: 35,3701 16001 TCF GOTOP00H 029234,001002: 35,3702 01463 TC NORMEX 029235,001003: 35,3703 13676 TCF -5 029236,001004: 029237,001005: # Page 683 029238,001006: # ***** P3XORP7X ***** 029239,001007: 029240,001008: 35,3704 37744 P3XORP7X CAF HIGH9 029241,001009: 35,3705 71011 MASK MODREG 029242,001010: 35,3706 00006 EXTEND 029243,001011: 35,3707 13711 BZF +2 029244,001012: 35,3710 24002 INCR Q 029245,001013: 35,3711 00002 RETURN 029246,001014: 029247,001015: # ***** VNP00H ***** 029248,001016: 029249,001017: # SUBROUTINES USED 029250,001018: # BANKCALL 029251,001019: # GOFLASH 029252,001020: # GOTOP00H 029253,001021: 029254,001022: 35,3712 00006 VNP00H EXTEND 029255,001023: 35,3713 23465 QXCH RTRN 029256,001024: 35,3714 55615 TS VERBNOUN 029257,001025: 35,3715 31615 CA VERBNOUN 029258,001026: 35,3716 04616 TCR BANKCALL 029259,001027: 35,3717 20476 CADR GOFLASH 029260,001028: 35,3720 16001 TCF GOTOP00H 029261,001029: 35,3721 01465 TC RTRN 029262,001030: 35,3722 13715 TCF -5 029263,001031: 029264,001032: # Page 684 029265,001033: # ***** CONSTANTS ***** 029266,001034: 029267,001035: 35,3723 01445 V06N37 VN 0637 029268,001036: 35,3724 01467 V06N55 VN 0655 029269,001037: 35,3725 01472 V06N58 VN 0658 029270,001038: 35,3726 01473 V06N59 VN 0659 029271,001039: 35,3727 01521 V06N81 VN 0681 029272,001040: 35,3730 04055 V16N45 VN 1645 029273,001041: 35,3731 14441 37325 TWOPI 2DEC 6.283185307 B-4 029274,001042: 029275,001043: 35,3733 00001 20650 MAX250 2DEC 25 E3 029276,001044: 029277,001045: 35,3735 12525 12525 THIRD 2DEC .333333333 029278,001046: 029279,001047: 35,3737 00004 21505 ELEPS 2DEC .27777777 E-3 029280,001048: 029281,001049: 35,3741 77777 DP-.01 OCT 77777 # CONSTANTS 029282,001050: 35,3742 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP 029283,001051: 35,3743 01252 25253 EPSFOUR 2DEC .0416666666 029284,001052: 029285,001053: 35,3745 13434 16162 130DEG 2DEC .3611111111 029286,001054: 029287,001055: # Page 685 029288,001056: # ***** INITVEL ***** 029289,001057: 029290,001058: # MOD NO -1 LOG SECTION -- P34-P35, P74-P75 029291,001059: # MOD BY WHITE, P. DATE: 21 NOV 67 029292,001060: 029293,001061: # FUNCTIONAL 029294,001062: 029295,001063: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR 029296,001064: # A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL 029297,001065: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR 029298,001066: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF 029299,001067: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE 029300,001068: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED 029301,001069: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET 029302,001070: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH 029303,001071: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE 029304,001072: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR. 029305,001073: 029306,001074: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE 029307,001075: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE 029308,001076: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS 029309,001077: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR 029310,001078: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR), 029311,001079: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX 029312,001080: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE 029313,001081: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER. 029314,001082: 029315,001083: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND 029316,001084: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION 029317,001085: # TRAJECTORY COMPUTATIONS. 029318,001086: 029319,001087: # CALLING SEQUENCE 029320,001088: 029321,001089: # L CALL 029322,001090: # L+1 INITVEL 029323,001091: # L+2 (RETURN -- ALWAYS) 029324,001092: 029325,001093: # INPUT 029326,001094: 029327,001095: # (1) RINIT INITIAL POSITION RADIUS VECTOR 029328,001096: # (2) VINIT INITIAL POSITION VELOCITY VECTOR 029329,001097: # (3) RTARG TARGET POSITION RADIUS VECTOR 029330,001098: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG 029331,001099: # (5) INTIME TIME OF RINIT 029332,001100: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS 029333,001101: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS 029334,001102: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR 029335,001103: # (9) RTX2 COORDINATE SYSTEM ORIGIN -- 0 FOR EARTH, 2 FOR LUNAR 029336,001104: # PUSHLOC SET AT 4D 029337,001105: 029338,001106: # Page 686 029339,001107: # OUTPUT 029340,001108: 029341,001109: # (1) RTARG OFFSET TARGET POSITION VECTOR 029342,001110: # (2) VIPRIME MANEUVER VELOCITY REQUIRED 029343,001111: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER 029344,001112: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER 029345,001113: 029346,001114: # SUBROUTINES USED 029347,001115: 029348,001116: # LAMBERT 029349,001117: # INTSTALL 029350,001118: # INTEGRVS 029351,001119: 029352,001120: 11,2000 SETLOC INTVEL 029353,001121: 11,2000 BANK 029354,001122: 029355,001123: 11,2000 COUNT* $$/INITV 029356,001124: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE 029357,001125: 11,2001 00475 GUESSW 029358,001126: 11,2002 44175 HAVEGUES VLOAD STQ 029359,001127: 11,2003 03444 RTARG 029360,001128: 11,2004 03463 NORMEX 029361,001129: 11,2005 03472 STORE RTARG1 029362,001130: 11,2006 77646 ABVAL 029363,001131: 11,2007 03723 STORE RTMAG 029364,001132: 11,2010 46135 SLOAD BHIZ 029365,001133: 11,2011 03000 RTX2 029366,001134: 11,2012 22026 INITVEL1 029367,001135: 11,2013 72575 VLOAD VSL2 029368,001136: 11,2014 02323 RINIT # B29 029369,001137: 11,2015 26323 STOVL RINIT # B27 029370,001138: 11,2016 02331 VINIT # B7 029371,001139: 11,2017 77752 VSL2 029372,001140: 11,2020 26331 STOVL VINIT # B5 029373,001141: 11,2021 03472 RTARG1 029374,001142: 11,2022 77752 VSL2 029375,001143: 11,2023 03472 STORE RTARG1 029376,001144: 11,2024 77646 ABVAL 029377,001145: 11,2025 03723 STORE RTMAG 029378,001146: 029379,001147: # INITIALIZATION 029380,001148: 029381,001149: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D) 029382,001150: 11,2027 03617 ITCTR 029383,001151: 11,2030 77776 0 -1 029384,001152: 11,2031 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2) 029385,001153: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D) 029386,001154: 11,2033 67154 LXA,2 SXA,2 029387,001155: 11,2034 00154 MPAC 029388,001156: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP) 029389,001157: 11,2036 77775 VLOAD 029390,001158: # Page 687 029391,001159: 11,2037 02323 RINIT 029392,001160: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT 029393,001161: 11,2041 03472 RTARG1 029394,001162: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG 029395,001163: 11,2043 03452 DELLT4 029396,001164: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4 029397,001165: 11,2045 77201 SETPD VLOAD 029398,001166: 11,2046 00001 0D # INITIALIZE PL TO 0D 029399,001167: 11,2047 02323 RINIT # MPAC EQ RINIT (+29) 029400,001168: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D) 029401,001169: 11,2051 53435 VXV UNIT 029402,001170: 11,2052 02331 VINIT # MPAC EQ UNIT(RI) X VI (+8) 029403,001171: 11,2053 26674 STOVL UN 029404,001172: 11,2054 03472 RTARG1 029405,001173: 11,2055 50256 UNIT DOT # TEMP*RT.URI (+2) (PL 0D) 029406,001174: 11,2056 43015 DAD CLEAR 029407,001175: 11,2057 03667 COZY4 029408,001176: 11,2060 03665 NORMSW 029409,001177: 11,2061 03667 STORE COZY4 029410,001178: 11,2062 43044 INITVEL2 BPL SET 029411,001179: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT 029412,001180: 11,2064 03465 NORMSW 029413,001181: 029414,001182: # ROTATE RC INTO YC PLANE -- SET UNIT NORMAL TO YC 029415,001183: 029416,001184: 11,2065 41575 VLOAD PUSH # (PL 6D) 029417,001185: 11,2066 02663 R2VEC # RC TO 6D (+29) 029418,001186: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D) 029419,001187: 11,2070 46206 PUSH VPROJ # (PL 8D) 029420,001188: 11,2071 02674 UN 029421,001189: 11,2072 51352 VSL2 BVSU 029422,001190: 11,2073 74256 UNIT VXSC # (PL 0D) 029423,001191: 11,2074 77772 VSL1 029424,001192: 11,2075 02663 STORE R2VEC 029425,001193: 11,2076 67351 TLOAD SLOAD 029426,001194: 11,2077 24007 ZEROVEC 029427,001195: 11,2100 03617 ITCTR 029428,001196: 11,2101 77244 BPL VLOAD 029429,001197: 11,2102 22105 INITVEL3 029430,001198: 11,2103 02663 R2VEC 029431,001199: 11,2104 03472 STORE RTARG1 029432,001200: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D) 029433,001201: 11,2106 26007 MUEARTH # POSITIVE VALUE 029434,001202: 11,2107 02663 R2VEC 029435,001203: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D) 029436,001204: 11,2111 02655 R1VEC 029437,001205: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D) 029438,001206: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC) 029439,001207: 11,2114 00003 2D 029440,001208: 11,2115 77606 PUSH # (PL 20D) 029441,001209: 11,2116 71350 LXA,1 DLOAD 029442,001210: # Page 688 029443,001211: 11,2117 02776 RTX1 029444,001212: 11,2120 00023 18D 029445,001213: 11,2121 62040 BMN INCR,1 029446,001214: 11,2122 22124 +2 029447,001215: 11,2123 77767 DEC -8 B-14 029448,001216: 11,2124 67310 INCR,1 SLOAD 029449,001217: 11,2125 00012 10D 029450,001218: 11,2126 00047 X1 029451,001219: 11,2127 77230 BHIZ VLOAD # (PL 14D) 029452,001220: 11,2130 22132 +2 029453,001221: 11,2131 41476 VCOMP PUSH # (PL 20D) 029454,001222: 11,2132 77775 VLOAD # (PL 14D) 029455,001223: 11,2133 50235 VXV DOT # (PL 2D) 029456,001224: 11,2134 71244 BPL DLOAD # (PL 0D) 029457,001225: 11,2135 22137 INITVEL4 029458,001226: 11,2136 41476 DCOMP PUSH # (PL 2D) 029459,001227: 11,2137 67154 INITVEL4 LXA,2 SXA,2 029460,001228: 11,2140 00000 0D 029461,001229: 11,2141 02672 GEOMSGN 029462,001230: 029463,001231: # SET INPUTS UP FOR LAMBERT 029464,001232: 029465,001233: 11,2142 45150 LXA,1 CALL 029466,001234: 11,2143 02776 RTX1 029467,001235: 029468,001236: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE) 029469,001237: 029470,001238: 11,2144 23765 SETITCTR # GO TO END OF BANK TO SET ITERCTR BEFORE 029471,001239: # CALLING LAMBER (FOR REMANUFACTURE ONLY) 029472,001240: 029473,001241: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS. 029474,001242: 029475,001243: 11,2145 77214 CLEAR VLOAD 029476,001244: 11,2146 00675 GUESSW 029477,001245: 11,2147 02744 VVEC 029478,001246: 029479,001247: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME 029480,001248: 029481,001249: 11,2150 16337 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7) 029482,001250: 029483,001251: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE 029484,001252: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS). 029485,001253: 029486,001254: 11,2151 02702 VTARGTAG 029487,001255: 11,2152 45030 BHIZ CALL 029488,001256: 11,2153 22230 INITVEL7 029489,001257: 11,2154 27414 INTSTALL 029490,001258: 11,2155 43135 SLOAD CLEAR 029491,001259: 11,2156 03000 RTX2 029492,001260: 11,2157 00263 MOONFLAG 029493,001261: 11,2160 43030 BHIZ SET 029494,001262: 11,2161 22163 INITVEL5 029495,001263: # Page 689 029496,001264: 11,2162 00063 MOONFLAG 029497,001265: 11,2163 77775 INITVEL5 VLOAD 029498,001266: 11,2164 02323 RINIT 029499,001267: 11,2165 02655 STORE R1VEC 029500,001268: 11,2166 25535 STOVL RCV 029501,001269: 11,2167 02337 VIPRIME 029502,001270: 11,2170 15543 STODL VCV 029503,001271: 11,2171 03610 INTIME 029504,001272: 11,2172 01517 STORE TET 029505,001273: 11,2173 43015 DAD CLEAR 029506,001274: 11,2174 03452 DELLT4 029507,001275: 11,2175 01673 INTYPFLG 029508,001276: 11,2176 34041 STCALL TDEC1 029509,001277: 11,2177 27107 INTEGRVS 029510,001278: 11,2200 77775 VLOAD 029511,001279: 11,2201 00025 VATT1 029512,001280: 11,2202 02703 STORE VTARGET 029513,001281: 029514,001282: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT 029515,001283: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE 029516,001284: 029517,001285: 11,2203 63154 LXA,2 INCR,2 029518,001286: 11,2204 03616 ITCTR 029519,001287: 11,2205 00001 1D # INCREMENT ITCTR 029520,001288: 11,2206 55134 SXA,2 XSU,2 029521,001289: 11,2207 03616 ITCTR 029522,001290: 11,2210 02701 VTARGTAG 029523,001291: 11,2211 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC 029524,001292: 11,2212 00050 X2 029525,001293: 11,2213 22225 INITVEL6 029526,001294: 029527,001295: # OFFSET CONIC TARGET VECTOR 029528,001296: 029529,001297: 11,2214 52375 VLOAD VSU 029530,001298: 11,2215 03472 RTARG1 029531,001299: 11,2216 00017 RATT1 029532,001300: 11,2217 77655 VAD 029533,001301: 11,2220 02663 R2VEC 029534,001302: 11,2221 16663 STODL R2VEC 029535,001303: 11,2222 03667 COZY4 029536,001304: 11,2223 77650 GOTO 029537,001305: 11,2224 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2 029538,001306: 029539,001307: # COMPUTE THE DELTA VELOCITY 029540,001308: 029541,001309: 11,2225 77775 INITVEL6 VLOAD 029542,001310: 11,2226 02663 R2VEC 029543,001311: 11,2227 03472 STORE RTARG1 029544,001312: 11,2230 52375 INITVEL7 VLOAD VSU 029545,001313: 11,2231 02337 VIPRIME 029546,001314: 11,2232 02331 VINIT 029547,001315: 11,2233 26366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7) 029548,001316: # Page 690 029549,001317: 11,2234 02703 VTARGET 029550,001318: 11,2235 03566 STORE VTPRIME 029551,001319: 11,2236 46135 SLOAD BHIZ 029552,001320: 11,2237 03000 RTX2 029553,001321: 11,2240 22255 INITVELX 029554,001322: 11,2241 70575 VLOAD VSR2 029555,001323: 11,2242 03566 VTPRIME 029556,001324: 11,2243 27566 STOVL VTPRIME 029557,001325: 11,2244 02337 VIPRIME 029558,001326: 11,2245 77742 VSR2 029559,001327: 11,2246 26337 STOVL VIPRIME 029560,001328: 11,2247 03472 RTARG1 029561,001329: 11,2250 77742 VSR2 029562,001330: 11,2251 27472 STOVL RTARG1 029563,001331: 11,2252 02366 DELVEET3 029564,001332: 11,2253 77742 VSR2 029565,001333: 11,2254 02366 STORE DELVEET3 029566,001334: 11,2255 70750 INITVELX LXA,1 DLOAD* 029567,001335: 11,2256 02776 RTX1 029568,001336: 11,2257 10003 MUTABLE -2,1 029569,001337: 11,2260 41206 PUSH DMP 029570,001338: 11,2261 02742 R1A 029571,001339: 11,2262 56342 SR1 DDV 029572,001340: 11,2263 00041 R1 029573,001341: 11,2264 17721 STODL MU/A 029574,001342: 11,2265 77661 SR 029575,001343: 11,2266 20607 6 029576,001344: 11,2267 03717 STORE MUASTEER 029577,001345: 11,2270 77201 SETPD VLOAD 029578,001346: 11,2271 00001 0D 029579,001347: 11,2272 03472 RTARG1 029580,001348: 11,2273 37444 STCALL RTARG 029581,001349: 11,2274 03463 NORMEX 029582,001350: 029583,001351: # ***** END OF INITVEL ROUTINE ***** 029584,001352: 029585,001353: # Page 691 029586,001354: # ***** MIDGIM ***** 029587,001355: 029588,001356: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75 029589,001357: # REVISION 03, 17 FEB 67 029590,001358: 029591,001359: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES 029592,001360: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT 029593,001361: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE 029594,001362: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN- 029595,001363: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE. 029596,001364: 029597,001365: # ** INPUTS ** 029598,001366: 029599,001367: # NAME MEANING UNITS/SCALING/MODE 029600,001368: 029601,001369: # AVFLAG INT FLAG -- 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT 029602,001370: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT 029603,001371: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT 029604,001372: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT 029605,001373: 029606,001374: # ** OUTPUTS ** 029607,001375: 029608,001376: # NAME MEANING UNITS/SCALING/MODE 029609,001377: 029610,001378: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP 029611,001379: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT 029612,001380: # MGLVFLAG INT FLAG: 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. BIT 029613,001381: 029614,001382: # ** CALLING SEQUENCE ** 029615,001383: 029616,001384: # L CALL 029617,001385: # L+1 MIDGIM 029618,001386: # L+2 (RETURN -- ALWAYS) 029619,001387: 029620,001388: # ** NO SUBROUTINES CALLED ** 029621,001389: 029622,001390: # ** DEBRIS -- ERASABLE TEMPORARY USAGE ** 029623,001391: 029624,001392: # A,Q,L, PUSH LIST, MPAC. 029625,001393: 029626,001394: # ** ALARMS -- NONE ** 029627,001395: 029628,001396: # Page 692 029629,001397: # MIDDLE GIMBAL ANGLE COMPUTATION. 029630,001398: 029631,001399: 06,2000 SETLOC MIDDGIM 029632,001400: 06,2000 BANK 029633,001401: 029634,001402: 06,3715 COUNT* $$/MIDG 029635,001403: 029636,001404: 06,3715 20000 00000 HALFREV 2DEC 1 B-1 029637,001405: 029638,001406: 06,3717 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1) 029639,001407: 06,3720 77656 UNIT 029640,001408: 06,3721 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE 029641,001409: 06,3722 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE 029642,001410: 06,3723 51136 ARCSIN BPL 029643,001411: 06,3724 15730 SETMGA 029644,001412: 06,3725 43215 DAD DAD # CONVERT -MGA TO +MGA BY 029645,001413: 06,3726 15716 HALFREV # ADDING ONE REVOLUTION 029646,001414: 06,3727 15716 HALFREV 029647,001415: 06,3730 02253 SETMGA STORE +MGA 029648,001416: 06,3731 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC 029649,001417: 06,3732 02675 MGLVFLAG # AND EXIT 029650,001418: 06,3733 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITIZE UR 029651,001419: 06,3734 02323 RINIT 029652,001420: 06,3735 77676 VCOMP # U(-R) 029653,001421: 06,3736 00023 STORE 18D # U(-R) TO 18D 029654,001422: 06,3737 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R) 029655,001423: 06,3740 02331 VINIT 029656,001424: 06,3741 00015 STORE 12D # U(V*R) TO 12D 029657,001425: 06,3742 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R)) 029658,001426: 06,3743 00023 18D 029659,001427: 06,3744 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1) 029660,001428: 06,3745 00001 0D # DELTA V (+7) IN 0D 029661,001429: 06,3746 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8) 029662,001430: 06,3747 00007 6D # AND SCALE +7 IN MPAC 029663,001431: 06,3750 03434 STORE DELVLVC # STORE IN DELVLVC (+7) 029664,001432: 06,3751 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC 029665,001433: 06,3752 02475 MGLVFLAG # AND EXIT 029666,001434: 029667,001435: # ***** END OF MIDGIM ROUTINE ***** 029668,001436: 029669,001437: # Page 693 029670,001438: 10,2000 BANK 10 029671,001439: 10,2000 SETLOC SLCTMU 029672,001440: 10,2000 BANK 029673,001441: 10,2000 COUNT* $$/MIDG 029674,001442: 029675,001443: 10,2000 77160 SELECTMU AXC,1 AXT,2 029676,001444: 10,2001 00002 2D 029677,001445: 10,2002 00000 0D 029678,001446: 10,2003 77614 BOFF 029679,001447: 10,2004 04343 CMOONFLG 029680,001448: 10,2005 20011 SETMUER 029681,001449: 10,2006 77160 AXC,1 AXT,2 029682,001450: 10,2007 00012 10D 029683,001451: 10,2010 00002 2D 029684,001452: 10,2011 66143 SETMUER DLOAD* SXA,1 029685,001453: 10,2012 10011 MUTABLE +4,1 029686,001454: 10,2013 02776 RTX1 029687,001455: 10,2014 22317 STODL* RTSR1/MU 029688,001456: 10,2015 10003 MUTABLE -2,1 029689,001457: 10,2016 54214 BOFF SR 029690,001458: 10,2017 04343 CMOONFLG 029691,001459: 10,2020 20022 RTRNMU 029692,001460: 10,2021 20607 6D 029693,001461: 10,2022 02321 RTRNMU STORE RTMU 029694,001462: 10,2023 43134 SXA,2 CLEAR 029695,001463: 10,2024 02777 RTX2 029696,001464: 10,2025 01271 FINALFLG 029697,001465: 10,2026 77650 GOTO 029698,001466: 10,2027 73606 VN1645 029699,001467: 029700,001468: # Page 694 029701,001469: # ***** PERIAPO ***** 029702,001470: 029703,001471: # MOD NO -1 LOG SECTION -- P34-P35, P74-P75 029704,001472: # MOD BY WHITE, P. DATE 18 JAN 68 029705,001473: 029706,001474: # FUNCTIONAL DESCRIPTION 029707,001475: 029708,001476: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER 029709,001477: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON 029710,001478: # TRAJECTORY AND THE PRIMARY BODY. 029711,001479: 029712,001480: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY. 029713,001481: 029714,001482: # APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND 029715,001483: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY. 029716,001484: 029717,001485: # CALLING SEQUENCE 029718,001486: 029719,001487: # L CALL 029720,001488: # L+1 PERIAPO 029721,001489: # L+2 (RETURN -- ALWAYS) 029722,001490: 029723,001491: # INPUT 029724,001492: 029725,001493: # (1) RVEC POSITION VECTOR IN METERS 029726,001494: # SCALE FACTOR -- EARTH +29, MOON +27 029727,001495: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND 029728,001496: # SCALE FACTOR -- EARTH +7, MOON +5 029729,001497: # (3) X1 PRIMARY BODY INDICATOR 029730,001498: # EARTH -1, MOON -10 029731,001499: 029732,001500: # OUTPUT 029733,001501: 029734,001502: # (1) 2D APOCENTER RADIUS IN METERS 029735,001503: # SCALE FACTOR -- EARTH +29, MOON +27 029736,001504: # (2) 4D APOCENTER ALTITUDE IN METERS 029737,001505: # SCALE FACTOR -- EARTH +29, MOON +27 029738,001506: # (3) 6D PERICENTER RADIUS IN METERS 029739,001507: # SCALE FACTOR -- EARTH +29, MOON +27 029740,001508: # (4) 8D PERICENTER ALTITUDE IN METERS 029741,001509: # SCALE FACTOR -- EARTH +29, MOON +27 029742,001510: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY 029743,001511: # SCALE FACTOR -- +3 029744,001512: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS 029745,001513: # SCALE FACTOR -- EARTH +29, MOON +27 029746,001514: # (7) PUSHLOC EQUALS 10D 029747,001515: 029748,001516: # SUBROUTINES USED 029749,001517: 029750,001518: # SETRAD 029751,001519: # Page 695 029752,001520: # APSIDES 029753,001521: 029754,001522: 23,2000 SETLOC APOPERI 029755,001523: 23,2000 BANK 029756,001524: 029757,001525: 23,2314 COUNT* $$/PERAP 029758,001526: 029759,001527: 23,2314 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B. 029760,001528: # = 20 909 901.57 FT 029761,001529: 029762,001530: 23,2316 53754 PERIAPO1 LXA,2 VSR* 029763,001531: 23,2317 02777 RTX2 029764,001532: 23,2320 57176 0,2 029765,001533: 23,2321 26744 STOVL VVEC 029766,001534: 23,2322 53750 LXA,1 VSR* 029767,001535: 23,2323 02776 RTX1 029768,001536: 23,2324 57176 0,2 029769,001537: 23,2325 02655 STORE RVEC 029770,001538: 23,2326 45020 PERIAPO STQ CALL 029771,001539: 23,2327 03463 NORMEX 029772,001540: 23,2330 46344 SETRAD 029773,001541: 23,2331 37671 STCALL XXXALT 029774,001542: 23,2332 25674 APSIDES 029775,001543: 23,2333 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27 029776,001544: 23,2334 00003 2D 029777,001545: 23,2335 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27 029778,001546: 23,2336 03671 XXXALT 029779,001547: 23,2337 00001 0D 029780,001548: 23,2340 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27 029781,001549: 23,2341 03671 XXXALT 029782,001550: 23,2342 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27 029783,001551: 23,2343 03463 NORMEX 029784,001552: 029785,001553: # Page 696 029786,001554: 23,2344 41545 SETRAD DLOAD PUSH 029787,001555: 23,2345 06315 RPAD 029788,001556: 23,2346 63130 SXA,1 INCR,2 029789,001557: 23,2347 00047 X2 029790,001558: 23,2350 00002 2D 029791,001559: 23,2351 46135 SLOAD BHIZ 029792,001560: 23,2352 00050 X2 029793,001561: 23,2353 46357 SETRADX 029794,001562: 23,2354 51575 VLOAD ABVAL 029795,001563: 23,2355 02023 RLS 029796,001564: 23,2356 77725 PDDL 029797,001565: 23,2357 43545 SETRADX DLOAD RVQ 029798,001566: 029799,001567: # Page 697 029800,001568: 23,2360 77620 PRECSET STQ 029801,001569: 23,2361 03463 NORMEX 029802,001570: 23,2362 37574 STCALL TDEC2 029803,001571: 23,2363 27057 LEMPREC 029804,001572: 23,2364 77624 CALL 029805,001573: 23,2365 46376 LEMSTORE 029806,001574: 23,2366 77745 DLOAD 029807,001575: 23,2367 03574 TDEC2 029808,001576: 23,2370 34041 STCALL TDEC1 029809,001577: 23,2371 27043 CSMPREC 029810,001578: 23,2372 77624 CALL 029811,001579: 23,2373 46406 CSMSTORE 029812,001580: 23,2374 77650 GOTO 029813,001581: 23,2375 03463 NORMEX 029814,001582: 23,2376 43175 LEMSTORE VLOAD BOFF 029815,001583: 23,2377 00001 RATT 029816,001584: 23,2400 01352 AVFLAG 029817,001585: 23,2401 46412 PASSIVE 029818,001586: 23,2402 27536 ACTIVE STOVL RACT3 029819,001587: 23,2403 00007 VATT 029820,001588: 23,2404 03544 STORE VACT3 029821,001589: 23,2405 77616 RVQ 029822,001590: 23,2406 43175 CSMSTORE VLOAD BOFF 029823,001591: 23,2407 00001 RATT 029824,001592: 23,2410 01352 AVFLAG 029825,001593: 23,2411 46402 ACTIVE 029826,001594: 23,2412 27552 PASSIVE STOVL RPASS3 029827,001595: 23,2413 00007 VATT 029828,001596: 23,2414 03560 STORE VPASS3 029829,001597: 23,2415 77616 RVQ 029830,001598: 029831,001599: # Page 698 029832,001600: 23,2416 53754 VECSHIFT LXA,2 VSR* 029833,001601: 23,2417 02777 RTX2 029834,001602: 23,2420 57176 0,2 029835,001603: 23,2421 63350 LXA,1 PDVL 029836,001604: 23,2422 02776 RTX1 029837,001605: 23,2423 63257 VSR* PDVL 029838,001606: 23,2424 57176 0,2 029839,001607: 23,2425 77616 RVQ 029840,001608: 029841,001609: # Page 699 029842,001610: 23,2426 53754 SHIFTR1 LXA,2 SL* 029843,001611: 23,2427 02777 RTX2 029844,001612: 23,2430 57576 0,2 029845,001613: 23,2431 77616 RVQ 029846,001614: 029847,001615: # Page 700 029848,001616: # PROGRAM DESCRIPTION 029849,001617: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE 029850,001618: # MOD NO. 0 DATE 22 DECEMBER 67 029851,001619: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS 029852,001620: # FUNCTIONAL DESCRIPTION 029853,001621: 029854,001622: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS 029855,001623: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY). 029856,001624: 029857,001625: # CALLING SEQUENCE 029858,001626: 029859,001627: # ASTRONAUT REQUEST THROUGH DSKY V 90 E 029860,001628: 029861,001629: # SUBROUTINES CALLED 029862,001630: 029863,001631: # EXDSPRET 029864,001632: # GOMARKF 029865,001633: # CSMPREC 029866,001634: # LEMPREC 029867,001635: # SGNAGREE 029868,001636: # LOADTIME 029869,001637: 029870,001638: # NORMAL EXIT MODES 029871,001639: 029872,001640: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E 029873,001641: 029874,001642: # ALARM OR ABORT EXIT MODES 029875,001643: 029876,001644: # NONE 029877,001645: 029878,001646: # OUTPUT 029879,001647: 029880,001648: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI 029881,001649: 029882,001650: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE 029883,001651: # REGISTERS RANGE, RRATE, AND RTHETA RESPECTIVELY. 029884,001652: 029885,001653: # ERASABLE INITIALIZATION REQUIRED 029886,001654: 029887,001655: # CSM AND LEM STATE VECTORS 029888,001656: 029889,001657: # DEBRIS 029890,001658: 029891,001659: # CENTRALS A,Q,L 029892,001660: # OTHER: THOSE USED BY THE ABOVE LISTED SUBROUTINES 029893,001661: 029894,001662: 20,2115 BANK 20 029895,001663: 04,2000 SETLOC R36LM 029896,001664: 04,2000 BANK 029897,001665: # Page 701 029898,001666: 04,2656 E4,1606 EBANK= RPASS36 029899,001667: 029900,001668: 04,2656 COUNT* $$/R36 029901,001669: 029902,001670: 04,2656 22007 R36 ZL 029903,001671: 04,2657 34755 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST 029904,001672: 04,2660 53052 DXCH DSPTEMX # DISPLAY 029905,001673: 04,2661 33011 CAF V06N16N 029906,001674: 04,2662 04616 TC BANKCALL 029907,001675: 04,2663 20334 CADR GOMARKF 029908,001676: 04,2664 15472 TCF ENDEXT # TERMINATE 029909,001677: 04,2665 12667 TCF +2 # PROCEED 029910,001678: 04,2666 12661 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME 029911,001679: 04,2667 53052 DXCH DSPTEMX 029912,001680: 04,2670 00006 EXTEND 029913,001681: 04,2671 13000 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO 029914,001682: 04,2672 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME 029915,001683: 04,2673 06037 TC INTPRET 029916,001684: 04,2674 77634 RTB 029917,001685: 04,2675 21716 DPMODE 029918,001686: 04,2676 34041 R36INT STCALL TDEC1 029919,001687: 04,2677 27043 OTHPREC 029920,001688: 04,2700 63375 VLOAD PDVL 029921,001689: 04,2701 00007 VATT 029922,001690: 04,2702 00001 RATT # _ 029923,001691: 04,2703 02207 STORE RPASS36 # R 029924,001692: 04,2704 63256 UNIT PDVL # P 029925,001693: 04,2705 53435 VXV UNIT 029926,001694: 04,2706 77626 STADR # _ 029927,001695: 04,2707 61562 STODL UNP36 # U 029928,001696: 04,2710 00015 TAT 029929,001697: 04,2711 34041 STCALL TDEC1 029930,001698: 04,2712 27057 THISPREC 029931,001699: 04,2713 63375 VLOAD PDVL # - 029932,001700: 04,2714 00007 VATT # VELOCITY VECTOR V 00D 029933,001701: 04,2715 00001 RATT # A 029934,001702: 04,2716 77725 PDDL 029935,001703: 04,2717 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY 029936,001704: 04,2720 24037 STOVL 30D # _ 029937,001705: 04,2721 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D 029938,001706: 04,2722 63245 BVSU PDVL # A _ _ 029939,001707: 04,2723 02207 RPASS36 # LINE OF SIGHT VECTOR R - R 12D 029940,001708: 04,2724 72441 DOT SL1 # P A 029941,001709: 04,2725 02215 UNP36 # _ _ 029942,001710: 04,2726 26201 STOVL RANGE # Y = U . R 029943,001711: 04,2727 00001 00D # A 029944,001712: 04,2730 72441 DOT SL1 029945,001713: 04,2731 02215 UNP36 # . _ _ 029946,001714: 04,2732 26203 STOVL RRATE # Y = U . V 029947,001715: 04,2733 00007 06D # A 029948,001716: # Page 702 029949,001717: # _ _ 029950,001718: 04,2734 41456 UNIT PUSH # U = UNIT ( R ) 18D 029951,001719: 04,2735 47235 VXV VXV # RA A 029952,001720: 04,2736 00001 00D # _ _ _ _ 029953,001721: 04,2737 00023 18D # (U X V ) X U = U 029954,001722: 04,2740 53552 VSL2 UNIT # RA A RA A 029955,001723: 04,2741 77656 UNIT 029956,001724: 04,2742 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D 029957,001725: 04,2743 00023 18D 029958,001726: 04,2744 74241 DOT VXSC # _ 029959,001727: 04,2745 00015 12D # U 029960,001728: 04,2746 77752 VSL2 # L 029961,001729: 04,2747 53445 BVSU UNIT 029962,001730: 04,2750 77656 UNIT 029963,001731: 04,2751 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D 029964,001732: 04,2752 00001 00D # PLANE 029965,001733: 04,2753 65552 SL1 ARCCOS # _ _ 029966,001734: 04,2754 26205 STOVL RTHETA # PSI = ARCCOS(U . U ) 029967,001735: 04,2755 50235 VXV DOT # A L 029968,001736: 04,2756 00001 00D 029969,001737: 04,2757 71244 BPL DLOAD 029970,001738: 04,2760 10765 R36TAG2 029971,001739: 04,2761 24020 LODPMAX 029972,001740: 04,2762 77625 DSU 029973,001741: 04,2763 02205 RTHETA 029974,001742: 04,2764 02205 STORE RTHETA 029975,001743: 04,2765 47145 R36TAG2 DLOAD RTB 029976,001744: 04,2766 00037 30D 029977,001745: 04,2767 21612 SGNAGREE 029978,001746: 04,2770 01052 STORE DSPTEMX 029979,001747: 04,2771 77776 EXIT 029980,001748: 04,2772 33012 CAF V06N90N # DISPLAY Y, YDOT, AND PSI. 029981,001749: 04,2773 04616 TC BANKCALL 029982,001750: 04,2774 20334 CADR GOMARKF 029983,001751: 04,2775 15472 TCF ENDEXT # TERMINATE 029984,001752: 04,2776 15472 TCF ENDEXT # PROCEED, END OF PROGRAM 029985,001753: 04,2777 12661 TCF R36 +3 # REDISPLAY OUTPUT 029986,001754: 04,3000 56001 LREGCHK XCH L 029987,001755: 04,3001 00006 EXTEND 029988,001756: 04,3002 13005 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME 029989,001757: 04,3003 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME 029990,001758: 04,3004 12672 TCF ASTROTIM 029991,001759: 04,3005 06037 ENTTIM2 TC INTPRET 029992,001760: 04,3006 52034 RTB GOTO 029993,001761: 04,3007 21573 LOADTIME 029994,001762: 04,3010 10676 R36INT 029995,001763: 04,3011 01420 V06N16N VN 00616 029996,001764: 04,3012 01532 V06N90N VN 00690 End of include-file P34-35_P74-75.agc. Parent file is MAIN.agc