Source Code

027773,000001: # Copyright: Public domain. 027774,000002: # Filename: P34-35_P74-75.agc 027775,000003: # Purpose: A section of Luminary 1C, revision 131. 027776,000004: # It is part of the source code for the Lunar Module's (LM) 027777,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 027778,000006: # This file is intended to be a faithful transcription, except 027779,000007: # that the code format has been changed to conform to the 027780,000008: # requirements of the yaYUL assembler rather than the 027781,000009: # original YUL assembler. 027782,000010: # Reference: pp. 665-709 of 1729.pdf. 027783,000011: # Contact: Ron Burkey <info@sandroid.org>. 027784,000012: # Website: www.ibiblio.org/apollo 027785,000013: # Mod history: 05/22/03 RSB. Began transcribing. 027786,000014: # 2010-10-25 JL Added missing # in comments. 027787,000015: # 2011-05-07 JL Removed workaround. 027788,000016: 027789,000017: # Page 665 027790,000018: # TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74) 027791,000019: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 027792,000020: # MOD BY WHITE, P. DATE: 1 JUNE 67 027793,000021: 027794,000022: # PURPOSE 027795,000023: # (1) TO CALCULATE TEH REQUIRED DELTA V AND OTHER INITIAL CONDITIONS 027796,000024: # REQUIRED BY TEH ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER 027797,000025: # PHASE INITITATION (TPI) MANEUVER, GIVEN -- 027798,000026: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF 027799,000027: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI). 027800,000028: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO 027801,000029: # INTERCEPT TIME (TIG (TPF)). 027802,000030: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI). 027803,000031: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 027804,000032: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 027805,000033: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 027806,000034: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 027807,000035: # ASTRONAUT/GROUND. 027808,000036: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED 027809,000037: # THRUSTING PROGRAM. 027810,000038: 027811,000039: # ASSUMPTIONS 027812,000040: # (1) LM ONLY -- THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF 027813,000041: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73). 027814,000042: # THEREFORE -- 027815,000043: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 027816,000044: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE 027817,000045: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE 027818,000046: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. 027819,000047: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS 027820,000048: # COMPUTED TO BE GREATER THAN 10 MINUTES. 027821,000049: # (C) THE VARIATION OF TEH ALTITUDE DIFFERENCE BETWEEN THE 027822,000050: # ORBITS WAS MINIMIZED. 027823,000051: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND 027824,000052: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR 027825,000053: # Page 666 027826,000054: # ORBIT OR 85 NM FOR EARTH ORBIT. 027827,000055: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO 027828,000056: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW 027829,000057: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED 027830,000058: # IN AN OUT-OF-PLANE MANEUVER. 027831,000059: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC 027832,000060: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)). 027833,000061: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL 027834,000062: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED 027835,000063: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND. 027836,000064: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS 027837,000065: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC 027838,000066: # FLIGHT PLAN MANEUVER SEQUENCES. 027839,000067: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 027840,000068: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 027841,000069: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY 027842,000070: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 027843,000071: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE 027844,000072: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 027845,000073: # MARK COUNTER IS ZEROED BY TEH SELECTION OF P20 AND AFTER EACH 027846,000074: # THRUSTING MANEUVER. 027847,000075: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 027848,000076: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 027849,000077: 027850,000078: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 027851,000079: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 027852,000080: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 027853,000081: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 027854,000082: 027855,000083: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 027856,000084: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE. 027857,000085: 027858,000086: # EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING 027859,000087: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING 027860,000088: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM. 027861,000089: 027862,000090: # (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER 027863,000091: # HAVE BEEN COMPLETELY SPECIFIED, TEH VALUE OF THE ACTIVE 027864,000092: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STURED. 027865,000093: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 027866,000094: # THROUGH THE USE OF V06N52. 027867,000095: 027868,000096: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE 027869,000097: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 027870,000098: # Page 667 027871,000099: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE 027872,000100: # ASTRONAUT SHOULD REASSES THE INPUT TARGETING PARAMETERS BASED 027873,000101: # UPON DELTA V AND EXPECTED MANEUVER TIME. 027874,000102: # (8) THIS PROGRAM IS SELECTED BY TEH ASTRONAUT BY DSKY ENTRY -- 027875,000103: 027876,000104: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE. 027877,000105: 027878,000106: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE. 027879,000107: 027880,000108: # INPUT 027881,000109: # (1) TTPI TIME OF TEH TPI MANEUVER. 027882,000110: # (2) ELEV DESIRED LOS ANGLE AT TPI 027883,000111: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 027884,000112: # TRANSFER FROM TPI TO TIME OF INTERCEPT 027885,000113: 027886,000114: # OUTPUT 027887,000115: # (1) TRKMKCNT NUMBER OF MARKS 027888,000116: # (2) TTOGO TIME TO GO 027889,000117: # (3) +MGA MIDDLE GIMBAL ANGLE 027890,000118: # (4) TTPI COMPUTED TIME OF TPI MANEUVER 027891,000119: # OR 027892,000120: # ELEV COMPUTED LOS ANGLE AT TPI 027893,000121: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER 027894,000122: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI 027895,000123: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT 027896,000124: # (8) DVLOS DELTA VELOCITY AT TPI -- LINE OF SIGHT 027897,000125: # (9) DELVLVC DELTA VELOCITY AT TPI -- LOCAL VERTICAL COORDINATES 027898,000126: 027899,000127: # DOWNLINK 027900,000128: # (1) TTPI TIME OF TPI MANEUVER 027901,000129: # (2) TIG TIME OF TPI MANEUVER 027902,000130: # (3) ELEV DESIRED LOS ANGLE AT TPI 027903,000131: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING 027904,000132: # TRANSFER FROM TPI TO TIME OF INTERCEPT 027905,000133: # (5) DELVEET3 DELTA VELOCITY AT TPI -- REFERENCE COORDINATES 027906,000134: # (6) TPASS4 TIME OF INTERCEPT 027907,000135: 027908,000136: # COMMUNICATION TO THRUSTING PROGRAMS 027909,000137: # (1) TIG TIME OF THE TPI MANEUVER 027910,000138: # (2) RTARG OFFSET TARGET POSITION 027911,000139: # (3) TPASS4 TIME OF INTERCEPT 027912,000140: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION 027913,000141: 027914,000142: # SUBROUTINES USED 027915,000143: # AVFLAGA 027916,000144: # Page 668 027917,000145: # AVFLAGP 027918,000146: # VNP00H 027919,000147: # DISPLAYE 027920,000148: # SELECTMU 027921,000149: # PRECSET 027922,000150: # S33/34.1 027923,000151: # ALARM 027924,000152: # BANKCALL 027925,000153: # GOFLASH 027926,000154: # GOTOP00H 027927,000155: # TIMETHET 027928,000156: # S34/35.2 027929,000157: # PERIAPO1 027930,000158: # SHIFTR1 027931,000159: # S34/35.5 027932,000160: # VN1645 027933,000161: 027934,000162: 35,2000 SETLOC CSI/CDH 027935,000163: 35,2000 BANK 027936,000164: 35,2455 E7,1470 EBANK= SUBEXIT 027937,000165: 35,2455 COUNT* $$/P3474 027938,000166: 35,2455 02354 P34 TC AVFLAGA 027939,000167: 35,2456 02460 TC P34/P74A 027940,000168: 35,2457 02361 P74 TC AVFLAGP 027941,000169: 35,2460 02366 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG 027942,000170: 35,2461 33632 CAF V06N37 # TTPI 027943,000171: 35,2462 03621 TC VNP00H 027944,000172: 35,2463 00006 EXTEND 027945,000173: 35,2464 33655 DCA 130DEG 027946,000174: 35,2465 53621 DXCH CENTANG 027947,000175: 35,2466 32424 CAF P30ZERO 027948,000176: 35,2467 55466 TS NN 027949,000177: 35,2470 03603 TC DISPLAYE # ELEV AND CENTANG 027950,000178: 35,2471 06042 TC INTPRET 027951,000179: 35,2472 71214 CLEAR DLOAD 027952,000180: 35,2473 01270 ETPIFLAG 027953,000181: 35,2474 03636 TTPI 027954,000182: 35,2475 17442 STODL TIG 027955,000183: 35,2476 02257 ELEV 027956,000184: 35,2477 43054 BZE SET 027957,000185: 35,2500 72502 P34/P74B 027958,000186: 35,2501 01070 ETPIFLAG 027959,000187: 35,2502 77624 P34/P74B CALL 027960,000188: 35,2503 20000 SELECTMU 027961,000189: 35,2504 DELELO EQUALS 26D 027962,000190: 35,2504 43145 P34/P74C DLOAD SET 027963,000191: 35,2505 06524 ZEROVECS 027964,000192: 35,2506 03460 ITSWICH 027965,000193: 35,2507 43014 BON CLEAR 027966,000194: 35,2510 01310 ETPIFLAG 027967,000195: # Page 669 027968,000196: 35,2511 72513 SWCHSET 027969,000197: 35,2512 03660 ITSWICH 027970,000198: 35,2513 02317 SWCHSET STORE NOMTPI 027971,000199: 35,2514 43345 INTLOOP DLOAD DAD 027972,000200: 35,2515 03636 TTPI 027973,000201: 35,2516 02317 NOMTPI 027974,000202: 35,2517 34041 STCALL TDEC1 027975,000203: 35,2520 46403 PRECSET 027976,000204: 35,2521 77624 CALL 027977,000205: 35,2522 72674 S33/34.1 027978,000206: 35,2523 77454 BZE EXIT 027979,000207: 35,2524 72535 SWCHCLR 027980,000208: 35,2525 05567 TC ALARM 027981,000209: 35,2526 00611 OCT 611 027982,000210: 35,2527 35006 CAF V05N09 027983,000211: 35,2530 04616 TC BANKCALL 027984,000212: 35,2531 20477 CADR GOFLASH 027985,000213: 35,2532 06001 TC GOTOP00H 027986,000214: 35,2533 02460 TC P34/P74A # PROCEED 027987,000215: 35,2534 02525 TC -7 # V32 027988,000216: 027989,000217: 35,2535 43014 SWCHCLR BONCLR BON 027990,000218: 35,2536 03600 ITSWICH 027991,000219: 35,2537 72514 INTLOOP 027992,000220: 35,2540 01310 ETPIFLAG 027993,000221: 35,2541 72545 P34/P74D # DISPLAY TTPI 027994,000222: 35,2542 77776 EXIT 027995,000223: 35,2543 03603 TC DISPLAYE # DISPLAY ELEV AND CENTANG 027996,000224: 35,2544 02550 TC P34/P74E 027997,000225: 35,2545 77776 P34/P74D EXIT 027998,000226: 35,2546 33632 CAF V06N37 # TTPI 027999,000227: 35,2547 03621 TC VNP00H 028000,000228: 35,2550 06042 P34/P74E TC INTPRET 028001,000229: 35,2551 71201 SETPD DLOAD 028002,000230: 35,2552 00001 0D 028003,000231: 35,2553 02777 RTX1 028004,000232: 35,2554 14047 STODL X1 028005,000233: 35,2555 03621 CENTANG 028006,000234: 35,2556 71406 PUSH COS 028007,000235: 35,2557 16732 STODL CSTH 028008,000236: 35,2560 77756 SIN 028009,000237: 35,2561 26730 STOVL SNTH 028010,000238: 35,2562 03552 RPASS3 028011,000239: 35,2563 77657 VSR* 028012,000240: 35,2564 57176 0,2 028013,000241: 35,2565 26655 STOVL RVEC 028014,000242: 35,2566 03560 VPASS3 028015,000243: 35,2567 43057 VSR* SET 028016,000244: 35,2570 57176 0,2 028017,000245: 35,2571 03466 RVSW 028018,000246: # Page 670 028019,000247: 35,2572 36744 STCALL VVEC 028020,000248: 35,2573 24732 TIMETHET 028021,000249: 35,2574 77745 DLOAD 028022,000250: 35,2575 03636 TTPI 028023,000251: 35,2576 03610 STORE INTIME # FOR INITVEL 028024,000252: 35,2577 77615 DAD 028025,000253: 35,2600 00037 T # RENDEZVOUS TIME 028026,000254: 35,2601 37631 STCALL TPASS4 # FOR INITVEL 028027,000255: 35,2602 73216 S34/35.2 028028,000256: 35,2603 51575 VLOAD ABVAL 028029,000257: 35,2604 02366 DELVEET3 028030,000258: 35,2605 27576 STOVL DELVTPI 028031,000259: 35,2606 03506 VPASS4 028032,000260: 35,2607 51451 VSU ABVAL 028033,000261: 35,2610 03566 VTPRIME 028034,000262: 35,2611 26350 STOVL DELVTPF 028035,000263: 35,2612 03536 RACT3 028036,000264: 35,2613 45115 PDVL CALL 028037,000265: 35,2614 02337 VIPRIME 028038,000266: 35,2615 46341 PERIAPO1 028039,000267: 35,2616 77624 CALL 028040,000268: 35,2617 46451 SHIFTR1 028041,000269: 35,2620 17606 STODL POSTTPI 028042,000270: 35,2621 03636 TTPI 028043,000271: 35,2622 03442 STORE TIG 028044,000272: 35,2623 77776 EXIT 028045,000273: 35,2624 33634 CAF V06N58 028046,000274: 35,2625 03621 TC VNP00H 028047,000275: 35,2626 06042 TC INTPRET 028048,000276: 35,2627 77624 CALL 028049,000277: 35,2630 73432 S34/35.5 028050,000278: 35,2631 77624 CALL 028051,000279: 35,2632 73515 VN1645 028052,000280: 35,2633 77650 GOTO 028053,000281: 35,2634 72504 P34/P74C 028054,000282: # Page 671 028055,000283: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75) 028056,000284: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 028057,000285: # MOD BY WHITE, P. DATE: 1 JUNE 67 028058,000286: 028059,000287: # PURPOSE 028060,000288: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS 028061,000289: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT 028062,000290: # MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE 028063,000291: # VEHICLE RENDEZVOUS. 028064,000292: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT 028065,000293: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE 028066,000294: # ASTRONAUT/GROUND. 028067,000295: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED 028068,000296: # THRUSTING PROGRAM. 028069,000297: 028070,000298: # ASSUMPTIONS 028071,000299: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 028072,000300: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 028073,000301: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)). 028074,000302: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS 028075,000303: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS 028076,000304: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN 028077,000305: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE 028078,000306: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF 028079,000307: # P20 AND AFTER EACH THRUSTING MANEUVER. 028080,000308: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 028081,000309: 028082,000310: # THE ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 028083,000311: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 028084,000312: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 028085,000313: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 028086,000314: 028087,000315: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 028088,000316: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE. 028089,000317: 028090,000318: # EXTERNAL DELTA V FLAG -- DESIGNATES THE TYPE OF STEERING 028091,000319: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY TEH THRUSTING 028092,000320: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM. 028093,000321: 028094,000322: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS 028095,000323: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM 028096,000324: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE. 028097,000325: # Page 672 028098,000326: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER 028099,000327: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE 028100,000328: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED. 028101,000329: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT 028102,000330: # THROUGH THE USE OF V06N52 028103,000331: 028104,000332: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE 028105,000333: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 028106,000334: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE 028107,000335: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED 028108,000336: # UPON DELTA V AND EXPECTED MANEUVER TIME. 028109,000337: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -- 028110,000338: 028111,000339: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE. 028112,000340: 028113,000341: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE. 028114,000342: 028115,000343: # INPUT 028116,000344: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P34/P74 028117,000345: 028118,000346: # OUTPUT 028119,000347: # (1) TRKMKCNT NUMBER OF MARKS 028120,000348: # (2) TTOGO TIME TO GO 028121,000349: # (3) +MGA MIDOLF GIMBAL ANGLE 028122,000350: # (4) DVLOS DELTA VELOCITY AT MID -- LINE OF SIGHT 028123,000351: # (5) DELVLVC DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES 028124,000352: 028125,000353: # DOWNLINK 028126,000354: # (1) TIG TIME OF THE TPM MANEUVER 028127,000355: # (2) DELVEET3 DELTA VELOCITY AT TPM -- REFERENCE COORDINATES 028128,000356: # (3) TPASS4 TIME OF INTERCEPT 028129,000357: 028130,000358: # COMMUNICATION TO THRUSTING PROGRAMS 028131,000359: # (1) TIG TIME OF THE TPM MANEUVER 028132,000360: # (2) RTARG OFFSET TARGET POSITION 028133,000361: # (3) TPASS4 TIME OF INTERCEPT 028134,000362: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION. 028135,000363: 028136,000364: # SUBROUTINES USED 028137,000365: # AVFLAGA 028138,000366: # AVFLAGP 028139,000367: # LOADTIME 028140,000368: # SELECTMU 028141,000369: # PRECSET 028142,000370: # S34/35.1 028143,000371: # S34/35.2 028144,000372: # Page 673 028145,000373: # S34/35.5 028146,000374: # VN1645 028147,000375: 028148,000376: 35,2635 COUNT* $$/P3575 028149,000377: 35,2635 E7,1575 EBANK= KT 028150,000378: 028151,000379: 35,2635 02354 P35 TC AVFLAGA 028152,000380: 35,2636 00006 EXTEND 028153,000381: 35,2637 31401 DCA ATIGINC 028154,000382: 35,2640 02644 TC P35/P75A 028155,000383: 35,2641 02361 P75 TC AVFLAGP 028156,000384: 35,2642 00006 EXTEND 028157,000385: 35,2643 31403 DCA PTIGINC 028158,000386: 35,2644 53576 P35/P75A DXCH KT 028159,000387: 35,2645 02366 TC P20FLGON # SET UPDATFLG, TRACKFLG 028160,000388: 35,2646 06042 TC INTPRET 028161,000389: 35,2647 77624 CALL 028162,000390: 35,2650 20000 SELECTMU 028163,000391: 35,2651 77634 P35/P75B RTB 028164,000392: 35,2652 21574 LOADTIME 028165,000393: 35,2653 03612 STORE TSTRT 028166,000394: 35,2654 77615 DAD 028167,000395: 35,2655 03576 KT 028168,000396: 35,2656 03442 STORE TIG 028169,000397: 35,2657 03610 STORE INTIME # FOR INITVEL 028170,000398: 35,2660 34041 STCALL TDEC1 028171,000399: 35,2661 46403 PRECSET # ADVANCE BOTH VEHICLES 028172,000400: 35,2662 77624 CALL 028173,000401: 35,2663 73204 S34/35.1 # GET NORM AND LOS FOR TRANSFORM 028174,000402: 35,2664 77624 CALL 028175,000403: 35,2665 73216 S34/35.2 # GET DELTA V(LV) 028176,000404: 35,2666 77624 CALL 028177,000405: 35,2667 73432 S34/35.5 028178,000406: 35,2670 77624 CALL 028179,000407: 35,2671 73515 VN1645 028180,000408: 35,2672 77650 GOTO 028181,000409: 35,2673 72651 P35/P75B 028182,000410: # Page 674 028183,000411: # ***** S33/34.1 ***** 028184,000412: 028185,000413: 35,2674 66220 S33/34.1 STQ SSP 028186,000414: 35,2675 03463 NORMEX 028187,000415: 35,2676 03614 TITER 028188,000416: 35,2677 40000 OCT 40000 028189,000417: 35,2700 40345 DLOAD SETPD 028190,000418: 35,2701 33643 MAX250 028191,000419: 35,2702 00001 0D 028192,000420: 35,2703 27574 STOVL SECMAX 028193,000421: 35,2704 03536 RACT3 028194,000422: 35,2705 27500 STOVL RAPREC 028195,000423: 35,2706 03544 VACT3 028196,000424: 35,2707 27506 STOVL VAPREC 028197,000425: 35,2710 03552 RPASS3 028198,000426: 35,2711 27522 STOVL RPPREC 028199,000427: 35,2712 03560 VPASS3 028200,000428: 35,2713 03530 STORE VPPREC 028201,000429: 35,2714 77624 ELCALC CALL 028202,000430: 35,2715 73204 S34/35.1 # NORMAL AND LOS 028203,000431: 35,2716 63235 VXV PDVL 028204,000432: 35,2717 03536 RACT3 # (RA*VA)*RA 0D 028205,000433: 35,2720 53515 PDVL UNIT # ULOS AT 6D 028206,000434: 35,2721 03536 RACT3 028207,000435: 35,2722 46315 PDVL VPROJ # XCHNJ AND UP 028208,000436: 35,2723 51352 VSL2 BVSU 028209,000437: 35,2724 02311 ULOS 028210,000438: 35,2725 63256 UNIT PDVL # UP AT 0D 028211,000439: 35,2726 63241 DOT PDVL # UP.UN*RA AT 0D 028212,000440: 35,2727 00001 0D # UP IN MPAC 028213,000441: 35,2730 75241 DOT SIGN 028214,000442: 35,2731 02311 ULOS 028215,000443: 35,2732 65552 SL1 ACOS 028216,000444: 35,2733 50315 PDVL DOT # EA AT 0D 028217,000445: 35,2734 02311 ULOS 028218,000446: 35,2735 03536 RACT3 028219,000447: 35,2736 71244 BPL DLOAD 028220,000448: 35,2737 72742 TESTY 028221,000449: 35,2740 06532 DPPOSMAX 028222,000450: 35,2741 41425 DSU PUSH 028223,000451: 35,2742 71214 TESTY BOFF DLOAD 028224,000452: 35,2743 03740 ITSWICH 028225,000453: 35,2744 73171 ELEX 028226,000454: 35,2745 03576 DELEL 028227,000455: 35,2746 14033 STODL DELELO 028228,000456: 35,2747 77625 DSU 028229,000457: 35,2750 02257 ELEV 028230,000458: 35,2751 03576 STORE DELEL 028231,000459: 35,2752 45246 ABS DSU 028232,000460: 35,2753 33647 ELEPS 028233,000461: # Page 675 028234,000462: 35,2754 77640 BMN 028235,000463: 35,2755 73201 TIMEX # COMMERCIALS EVERYWHERE 028236,000464: 35,2756 70535 FIGTIME SLOAD SR1 028237,000465: 35,2757 03614 TITER 028238,000466: 35,2760 72030 BHIZ LXA,1 028239,000467: 35,2761 03463 NORMEX # TOO MANY ITERATIONS 028240,000468: 35,2762 00154 MPAC 028241,000469: 35,2763 77330 SXA,1 VLOAD 028242,000470: 35,2764 03613 TITER 028243,000471: 35,2765 03552 RPASS3 028244,000472: 35,2766 65256 UNIT PDDL 028245,000473: 35,2767 00045 36D 028246,000474: 35,2770 53515 PDVL UNIT 028247,000475: 35,2771 03536 RACT3 028248,000476: 35,2772 77725 PDDL 028249,000477: 35,2773 41525 PDDL PUSH 028250,000478: 35,2774 00045 36D 028251,000479: 35,2775 77621 BDSU 028252,000480: 35,2776 00015 12D 028253,000481: 35,2777 14037 STODL 30D # RP-RA MAGNITUDES 028254,000482: 35,3000 06522 DPHALF 028255,000483: 35,3001 41425 DSU PUSH 028256,000484: 35,3002 02257 ELEV 028257,000485: 35,3003 50165 SIGN BMN 028258,000486: 35,3004 00037 30D 028259,000487: 35,3005 03463 NORMEX 028260,000488: 35,3006 71545 DLOAD COS 028261,000489: 35,3007 56205 DMP DDV 028262,000490: 35,3010 00017 14D 028263,000491: 35,3011 00015 12D 028264,000492: 35,3012 77676 DCOMP # SINCE COS(180-A)=-COS A 028265,000493: 35,3013 00035 STORE 28D 028266,000494: 35,3014 44246 ABS BDSU 028267,000495: 35,3015 06522 DPHALF 028268,000496: 35,3016 77240 BMN VLOAD 028269,000497: 35,3017 03463 NORMEX 028270,000498: 35,3020 02261 UNRM 028271,000499: 35,3021 53435 VXV UNIT 028272,000500: 35,3022 00007 6D # UN*RA 028273,000501: 35,3023 41241 DOT DMP 028274,000502: 35,3024 03544 VACT3 028275,000503: 35,3025 00015 12D 028276,000504: 35,3026 47315 PDVL VXV 028277,000505: 35,3027 00001 0D 028278,000506: 35,3030 03560 VPASS3 028279,000507: 35,3031 53435 VXV UNIT 028280,000508: 35,3032 00001 0D # (RP*VP)*RP 028281,000509: 35,3033 41241 DOT DMP 028282,000510: 35,3034 03560 VPASS3 028283,000511: 35,3035 00017 14D 028284,000512: # Page 676 028285,000513: 35,3036 77621 BDSU 028286,000514: 35,3037 63301 NORM PDVL # NORMALIZED WA-WP 12D 028287,000515: 35,3040 00047 X1 028288,000516: 35,3041 00007 6D 028289,000517: 35,3042 50235 VXV DOT 028290,000518: 35,3043 00001 0D 028291,000519: 35,3044 02261 UNRM # RA*RP.UN 14D 028292,000520: 35,3045 50315 PDVL DOT 028293,000521: 35,3046 00001 0D 028294,000522: 35,3047 00007 6D 028295,000523: 35,3050 65552 SL1 ACOS 028296,000524: 35,3051 77765 SIGN 028297,000525: 35,3052 43225 DSU DAD # ALPHA PI 028298,000526: 35,3053 06522 DPHALF 028299,000527: 35,3054 02257 ELEV 028300,000528: 35,3055 65525 PDDL ACOS 028301,000529: 35,3056 00035 28D 028302,000530: 35,3057 75221 BDSU SIGN 028303,000531: 35,3060 06522 DPHALF 028304,000532: 35,3061 00037 30D # CONTAINS RP-RA 028305,000533: 35,3062 77615 DAD 028306,000534: 35,3063 56205 DMP DDV 028307,000535: 35,3064 33641 TWOPI 028308,000536: 35,3065 77605 DMP 028309,000537: 35,3066 41257 SL* DMP 028310,000538: 35,3067 20176 0 -3,1 028311,000539: 35,3070 51406 PUSH ABS 028312,000540: 35,3071 50025 DSU BMN 028313,000541: 35,3072 03574 SECMAX 028314,000542: 35,3073 73077 OKMAX 028315,000543: 35,3074 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED 028316,000544: 35,3075 03574 SECMAX 028317,000545: 35,3076 77606 PUSH 028318,000546: 35,3077 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION 028319,000547: 35,3100 03614 TITER 028320,000548: 35,3101 73107 REPETE 028321,000549: 35,3102 71331 SSP DLOAD 028322,000550: 35,3103 03614 TITER 028323,000551: 35,3104 37777 OCT 37777 028324,000552: 35,3105 77650 GOTO 028325,000553: 35,3106 73145 STORDELT 028326,000554: 35,3107 41345 REPETE DLOAD DMP 028327,000555: 35,3110 03576 DELEL 028328,000556: 35,3111 00033 DELELO 028329,000557: 35,3112 71244 BPL DLOAD 028330,000558: 35,3113 73123 NEXTES 028331,000559: 35,3114 03574 SECMAX 028332,000560: 35,3115 77605 DMP 028333,000561: 35,3116 33645 THIRD 028334,000562: 35,3117 17574 STODL SECMAX 028335,000563: # Page 677 028336,000564: 35,3120 70446 ABS SR1 # CROSSED OVER SOLUTION 028337,000565: 35,3121 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2 028338,000566: 35,3122 73133 RESIGN 028339,000567: 35,3123 51545 NEXTES DLOAD ABS 028340,000568: 35,3124 03576 DELEL 028341,000569: 35,3125 51525 PDDL ABS 028342,000570: 35,3126 00033 DELELO 028343,000571: 35,3127 77625 DSU 028344,000572: 35,3130 71240 BMN DLOAD 028345,000573: 35,3131 73136 REVERS # WRONG DIRECTION 028346,000574: 35,3132 77646 ABS 028347,000575: 35,3133 52165 RESIGN SIGN GOTO 028348,000576: 35,3134 03606 DELTEEO 028349,000577: 35,3135 73145 STORDELT 028350,000578: 35,3136 57545 REVERS DLOAD DCOMP 028351,000579: 35,3137 03606 DELTEEO 028352,000580: 35,3140 70406 PUSH SR1 028353,000581: 35,3141 03606 STORE DELTEEO 028354,000582: 35,3142 77615 DAD 028355,000583: 35,3143 77650 GOTO 028356,000584: 35,3144 73146 ADTIME 028357,000585: 35,3145 03606 STORDELT STORE DELTEEO 028358,000586: 35,3146 77615 ADTIME DAD 028359,000587: 35,3147 02317 NOMTPI # SUM OF DELTA T'S 028360,000588: 35,3150 02317 STORE NOMTPI 028361,000589: 35,3151 63375 VLOAD PDVL 028362,000590: 35,3152 03506 VAPREC 028363,000591: 35,3153 03500 RAPREC 028364,000592: 35,3154 77624 CALL 028365,000593: 35,3155 73372 GOINT 028366,000594: 35,3156 77624 CALL 028367,000595: 35,3157 46425 ACTIVE # STORE NEW RACT3 VACT3 028368,000596: 35,3160 63375 VLOAD PDVL 028369,000597: 35,3161 03530 VPPREC 028370,000598: 35,3162 03522 RPPREC 028371,000599: 35,3163 77624 CALL 028372,000600: 35,3164 73372 GOINT 028373,000601: 35,3165 77624 CALL 028374,000602: 35,3166 46435 PASSIVE # STORE NEW RPASS3 VPASS3 028375,000603: 35,3167 77650 GOTO 028376,000604: 35,3170 72714 ELCALC 028377,000605: 35,3171 43345 ELEX DLOAD DAD 028378,000606: 35,3172 03636 TTPI 028379,000607: 35,3173 02317 NOMTPI 028380,000608: 35,3174 17636 STODL TTPI 028381,000609: 35,3175 77614 BON 028382,000610: 35,3176 01310 ETPIFLAG 028383,000611: 35,3177 73201 TIMEX 028384,000612: 35,3200 02257 STORE ELEV 028385,000613: 35,3201 52145 TIMEX DLOAD GOTO 028386,000614: # Page 678 028387,000615: 35,3202 06524 ZEROVECS 028388,000616: 35,3203 03463 NORMEX 028389,000617: 028390,000618: # Page 679 028391,000619: # ***** S34/35.1 ***** 028392,000620: 028393,000621: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND 028394,000622: # PASSIVE POS AND VEL AT TIME T3 028395,000623: 028396,000624: 35,3204 52375 S34/35.1 VLOAD VSU 028397,000625: 35,3205 03552 RPASS3 028398,000626: 35,3206 03536 RACT3 028399,000627: 35,3207 41456 UNIT PUSH 028400,000628: 35,3210 26311 STOVL ULOS 028401,000629: 35,3211 03536 RACT3 028402,000630: 35,3212 53435 VXV UNIT 028403,000631: 35,3213 03544 VACT3 028404,000632: 35,3214 02261 STORE UNRM 028405,000633: 35,3215 77616 RVQ 028406,000634: 028407,000635: # Page 680 028408,000636: # ***** S34/35.2 ***** 028409,000637: 028410,000638: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT 028411,000639: 028412,000640: 35,3216 77220 S34/35.2 STQ VLOAD 028413,000641: 35,3217 03470 SUBEXIT 028414,000642: 35,3220 03560 VPASS3 028415,000643: 35,3221 65315 PDVL PDDL 028416,000644: 35,3222 03552 RPASS3 028417,000645: 35,3223 03610 INTIME 028418,000646: 35,3224 65325 PDDL PDDL 028419,000647: 35,3225 03631 TPASS4 028420,000648: 35,3226 33641 TWOPI # CONIC 028421,000649: 35,3227 46125 PDDL BHIZ 028422,000650: 35,3230 03467 NN 028423,000651: 35,3231 73235 S3435.23 028424,000652: 35,3232 77745 DLOAD 028425,000653: 35,3233 41545 DLOAD PUSH 028426,000654: 35,3234 06524 ZEROVECS # PRECISION 028427,000655: 35,3235 77624 S3435.23 CALL 028428,000656: 35,3236 73376 INTINT # GET TARGET VECTOR 028429,000657: 35,3237 27444 S3435.25 STOVL RTARG 028430,000658: 35,3240 00007 VATT 028431,000659: 35,3241 27506 STOVL VPASS4 028432,000660: 35,3242 03444 RTARG 028433,000661: # COMPUTE PHI = PI + (ACC(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U) 028434,000662: 35,3243 63256 UNIT PDVL # UNIT RP 028435,000663: 35,3244 03536 RACT3 028436,000664: 35,3245 41456 UNIT PUSH # UNIT RA 028437,000665: 35,3246 50235 VXV DOT 028438,000666: 35,3247 00001 0D 028439,000667: 35,3250 02261 UNRM # RA*RP.U 028440,000668: 35,3251 77715 PDVL 028441,000669: 35,3252 72441 DOT SL1 # UNIT RA.UNIT RP 028442,000670: 35,3253 00001 0D 028443,000671: 35,3254 75326 ACOS SIGN 028444,000672: 35,3255 43244 BPL DAD 028445,000673: 35,3256 73260 NOPIE 028446,000674: 35,3257 06532 DPPOSMAX # REASONABLE TWO PI 028447,000675: 35,3260 15756 NOPIE STODL ACTCENT 028448,000676: 35,3261 03631 TPASS4 028449,000677: 35,3262 77625 DSU 028450,000678: 35,3263 03610 INTIME 028451,000679: 35,3264 03452 STORE DELLT4 028452,000680: 35,3265 40335 SLOAD SETPD 028453,000681: 35,3266 03467 NN # NUMBER OF OFFSETS 028454,000682: 35,3267 00001 0D 028455,000683: 35,3270 63325 PDDL PDVL 028456,000684: 35,3271 33653 EPSFOUR 028457,000685: 35,3272 03536 RACT3 028458,000686: 35,3273 26323 STOVL RINIT 028459,000687: # Page 681 028460,000688: 35,3274 03544 VACT3 028461,000689: 35,3275 36331 STCALL VINIT 028462,000690: 35,3276 22000 INITVEL 028463,000691: 35,3277 77624 CALL 028464,000692: 35,3300 73357 LOMAT 028465,000693: 35,3301 64375 VLOAD MXV 028466,000694: 35,3302 02366 DELVEET3 028467,000695: 35,3303 00001 0D 028468,000696: 35,3304 77772 VSL1 028469,000697: 35,3305 37434 STCALL DELVLVC 028470,000698: 35,3306 03470 SUBEXIT 028471,000699: 028472,000700: # Page 682 028473,000701: # ***** S34/35.3 ***** 028474,000702: 028475,000703: 35,3307 45020 S34/35.3 STQ CALL 028476,000704: 35,3310 03463 NORMEX 028477,000705: 35,3311 73357 LOMAT # GET MATRIX IN PUSH LIST 028478,000706: 35,3312 61375 VLOAD VXM 028479,000707: 35,3313 03434 DELVLVC # NEW DEL V TPI 028480,000708: 35,3314 00001 0D 028481,000709: 35,3315 77772 VSL1 028482,000710: 35,3316 02366 STORE DELVEET3 # SAVE FOR TRANSFORM 028483,000711: 35,3317 63255 VAD PDVL 028484,000712: 35,3320 03544 VACT3 # NEW V REQ 028485,000713: 35,3321 03536 RACT3 028486,000714: 35,3322 65325 PDDL PDDL 028487,000715: 35,3323 03442 TIG 028488,000716: 35,3324 03631 TPASS4 028489,000717: 35,3325 41525 PDDL PUSH 028490,000718: 35,3326 06532 DPPOSMAX 028491,000719: 35,3327 77624 CALL # INTEG. FOR NEW TARGET VEC 028492,000720: 35,3330 73376 INTINT 028493,000721: 35,3331 77775 VLOAD 028494,000722: 35,3332 00001 RATT 028495,000723: 35,3333 03444 STORE RTARG 028496,000724: 35,3334 41575 NOVRWRT VLOAD PUSH 028497,000725: 35,3335 02311 ULOS 028498,000726: 35,3336 57435 VXV VCOMP 028499,000727: 35,3337 02261 UNRM 028500,000728: 35,3340 41456 UNIT PUSH 028501,000729: 35,3341 76435 VXV VSL1 028502,000730: 35,3342 02311 ULOS 028503,000731: 35,3343 77715 PDVL 028504,000732: 35,3344 64315 PDVL MXV 028505,000733: 35,3345 02366 DELVEET3 028506,000734: 35,3346 00001 0D 028507,000735: 35,3347 77772 VSL1 028508,000736: 35,3350 36303 STCALL DVLOS 028509,000737: 35,3351 03463 NORMEX 028510,000738: 028511,000739: # Page 683 028512,000740: # ***** S34/35.4 ***** 028513,000741: 028514,000742: 35,3352 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE 028515,000743: 35,3353 03463 NORMEX 028516,000744: 35,3354 00001 0D 028517,000745: 35,3355 77650 GOTO 028518,000746: 35,3356 73334 NOVRWRT 028519,000747: 028520,000748: # Page 684 028521,000749: # ***** LOMAT ***** 028522,000750: 028523,000751: 35,3357 57575 LOMAT VLOAD VCOMP 028524,000752: 35,3360 02261 UNRM 028525,000753: 35,3361 24007 STOVL 6D # Y 028526,000754: 35,3362 03536 RACT3 028527,000755: 35,3363 57456 UNIT VCOMP 028528,000756: 35,3364 00015 STORE 12D 028529,000757: 35,3365 76435 VXV VSL1 028530,000758: 35,3366 02261 UNRM # Z*-Y 028531,000759: 35,3367 00001 STORE 0D 028532,000760: 35,3370 43401 SETPD RVQ 028533,000761: 35,3371 00023 18D 028534,000762: 35,3372 65325 GOINT PDDL PDDL # DO 028535,000763: 35,3373 06524 ZEROVECS # NOT 028536,000764: 35,3374 02317 NOMTPI 028537,000765: 35,3375 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT 028538,000766: 35,3376 45020 INTINT STQ CALL 028539,000767: 35,3377 03465 RTRN 028540,000768: 35,3400 27410 INTSTALL 028541,000769: 35,3401 71214 CLEAR DLOAD 028542,000770: 35,3402 01673 INTYPFLG 028543,000771: 35,3403 43054 BZE SET 028544,000772: 35,3404 73406 +2 028545,000773: 35,3405 01473 INTYPFLG 028546,000774: 35,3406 45545 DLOAD STADR 028547,000775: 35,3407 63736 STODL TDEC1 028548,000776: 35,3410 73014 SET LXA,2 028549,000777: 35,3411 00063 MOONFLAG 028550,000778: 35,3412 02777 RTX2 028551,000779: 35,3413 43014 BON CLEAR 028552,000780: 35,3414 04303 CMOONFLG 028553,000781: 35,3415 73417 ALLSET 028554,000782: 35,3416 00263 MOONFLAG 028555,000783: 35,3417 25517 ALLSET STOVL TET 028556,000784: 35,3420 77657 VSR* 028557,000785: 35,3421 57176 0,2 028558,000786: 35,3422 25535 STOVL RCV 028559,000787: 35,3423 77657 VSR* 028560,000788: 35,3424 57176 0,2 028561,000789: 35,3425 35543 STCALL VCV 028562,000790: 35,3426 27106 INTEGRVS 028563,000791: 35,3427 52175 VLOAD GOTO 028564,000792: 35,3430 00001 RATT 028565,000793: 35,3431 03465 RTRN 028566,000794: 028567,000795: # Page 685 028568,000796: # ***** S34/35.5 ***** 028569,000797: 028570,000798: # SUBROUTINES USED 028571,000799: # BANKCALL 028572,000800: # GOFLASH 028573,000801: # GOTOP00H 028574,000802: # S34/35.3 028575,000803: # S34.35.4 028576,000804: # VNP00H 028577,000805: 028578,000806: 35,3432 43020 S34/35.5 STQ BON 028579,000807: 35,3433 03470 SUBEXIT 028580,000808: 35,3434 01311 FINALFLG 028581,000809: 35,3435 73441 FLAGON 028582,000810: 35,3436 52014 SET GOTO 028583,000811: 35,3437 00470 UPDATFLG 028584,000812: 35,3440 73505 FLAGOFF 028585,000813: 35,3441 77214 FLAGON CLEAR VLOAD 028586,000814: 35,3442 03274 NTARGFLG 028587,000815: 35,3443 03434 DELVLVC 028588,000816: 35,3444 01236 STORE GDT/2 028589,000817: 35,3445 77776 EXIT 028590,000818: 35,3446 33636 +5 CAF V06N81 028591,000819: 35,3447 04616 TC BANKCALL 028592,000820: 35,3450 20477 CADR GOFLASH 028593,000821: 35,3451 06001 TC GOTOP00H 028594,000822: 35,3452 03454 TC +2 # PRO 028595,000823: 35,3453 03446 TC FLAGON +5 # LOAD 028596,000824: 35,3454 35016 +2 CA EBANK7 028597,000825: 35,3455 54003 TS EBANK # TO BE SURE 028598,000826: 028599,000827: 35,3456 22007 ZL 028600,000828: 35,3457 34756 CA FIVE 028601,000829: 35,3460 54002 NTARGCHK TS Q 028602,000830: 35,3461 50002 INDEX Q 028603,000831: 35,3462 41433 CS DELVLVC 028604,000832: 35,3463 50002 INDEX Q 028605,000833: 35,3464 61235 AD GDT/2 028606,000834: 35,3465 26001 ADS L 028607,000835: 35,3466 10002 CCS Q 028608,000836: 35,3467 13460 TCF NTARGCHK 028609,000837: 35,3470 22000 LXCH A 028610,000838: 35,3471 00006 EXTEND 028611,000839: 35,3472 13475 BZF +3 028612,000840: 35,3473 05504 TC UPFLAG 028613,000841: 35,3474 00146 ADRES NTARGFLG 028614,000842: 028615,000843: 35,3475 06042 TC INTPRET 028616,000844: 35,3476 45014 BOFF CALL 028617,000845: 35,3477 03354 NTARGFLG 028618,000846: # Page 686 028619,000847: 35,3500 73502 NOCHG 028620,000848: 35,3501 73307 S34/35.3 028621,000849: 35,3502 77775 NOCHG VLOAD 028622,000850: 35,3503 02366 DELVEET3 028623,000851: 35,3504 03656 STORE DELVSIN 028624,000852: 35,3505 77624 FLAGOFF CALL 028625,000853: 35,3506 73352 S34/35.4 028626,000854: 35,3507 77776 EXIT 028627,000855: 35,3510 33635 CAF V06N59 028628,000856: 35,3511 03621 TC VNP00H 028629,000857: 35,3512 06042 TC INTPRET 028630,000858: 35,3513 77650 GOTO 028631,000859: 35,3514 03470 SUBEXIT 028632,000860: 028633,000861: # Page 687 028634,000862: # ***** VN1645 ***** 028635,000863: 028636,000864: # SUBROUTINES USED 028637,000865: # P3XORP7X 028638,000866: # GET+MGA 028639,000867: # BANKCALL 028640,000868: # DELAYJOB 028641,000869: # COMPTGO 028642,000870: # GOFLASHR 028643,000871: # GOTOP00H 028644,000872: # FLAGUP 028645,000873: 028646,000874: 35,3515 71220 VN1645 STQ DLOAD 028647,000875: 35,3516 03470 SUBEXIT 028648,000876: 35,3517 33651 DP-.01 028649,000877: 35,3520 02253 STORE +MGA # MGA = -.01 028650,000878: 35,3521 71214 BOFF DLOAD 028651,000879: 35,3522 01351 FINALFLG 028652,000880: 35,3523 73543 GET45 028653,000881: 35,3524 33651 DP-.01 028654,000882: 35,3525 77615 DAD 028655,000883: 35,3526 33651 DP-.01 028656,000884: 35,3527 02253 STORE +MGA # MGA = -.02 028657,000885: 35,3530 77414 BOFF EXIT 028658,000886: 35,3531 01742 REFSMFLG 028659,000887: 35,3532 73543 GET45 028660,000888: 35,3533 03613 TC P3XORP7X 028661,000889: 35,3534 03536 TC +2 # P3X 028662,000890: 35,3535 03544 TC GET45 +1 # P7X 028663,000891: 35,3536 06042 TC INTPRET 028664,000892: 35,3537 41575 VLOAD PUSH 028665,000893: 35,3540 03656 DELVSIN 028666,000894: 35,3541 77624 CALL # COMPUTE MGA 028667,000895: 35,3542 15725 GET+MGA 028668,000896: 35,3543 77776 GET45 EXIT 028669,000897: 35,3544 02437 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO 028670,000898: 35,3545 31470 CA SUBEXIT 028671,000899: 35,3546 55464 TS QSAVED 028672,000900: 35,3547 34777 CAF 1SEC 028673,000901: 35,3550 04616 TC BANKCALL 028674,000902: 35,3551 01736 CADR DELAYJOB 028675,000903: 35,3552 33637 CAF V16N45 # TRKMKCNT, TTOGO, +MGA 028676,000904: 35,3553 04616 TC BANKCALL 028677,000905: 35,3554 20477 CADR GOFLASH 028678,000906: 35,3555 03560 TC KILCLOCK # TERMINATE 028679,000907: 35,3556 03563 TC N45PROC # PROCEED 028680,000908: 35,3557 03573 TC CLUPDATE # RECYCLE -- RETURN FOR INITIAL COMPUTATION 028681,000909: 35,3560 30005 KILCLOCK CA Z 028682,000910: 35,3561 55162 TS DISPDEX 028683,000911: # Page 688 028684,000912: 35,3562 06001 TC GOTOP00H 028685,000913: 35,3563 40076 N45PROC CS FLAGWRD2 028686,000914: 35,3564 74746 MASK BIT6 028687,000915: 35,3565 00006 EXTEND 028688,000916: 35,3566 13560 BZF KILCLOCK # FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM 028689,000917: 35,3567 05353 TC PHASCHNG 028690,000918: 35,3570 04024 OCT 04024 028691,000919: 35,3571 05504 TC UPFLAG # SET 028692,000920: 35,3572 00047 ADRES FINALFLG # FINALFLG 028693,000921: 35,3573 30005 CLUPDATE CA Z 028694,000922: 35,3574 55162 TS DISPDEX 028695,000923: 35,3575 05353 TC PHASCHNG 028696,000924: 35,3576 04024 OCT 04024 028697,000925: 35,3577 06042 TC INTPRET 028698,000926: 35,3600 52014 CLEAR GOTO 028699,000927: 35,3601 00670 UPDATFLG 028700,000928: 35,3602 03464 QSAVED 028701,000929: 028702,000930: # Page 689 028703,000931: # ***** DISPLAYE ***** 028704,000932: 028705,000933: # SUBROUTINES USED 028706,000934: # BANKCALL 028707,000935: # GOFLASHR 028708,000936: # GOTOP00H 028709,000937: # BLANKET 028710,000938: # ENDOFJOB 028711,000939: 028712,000940: 35,3603 00006 DISPLAYE EXTEND 028713,000941: 35,3604 23463 QXCH NORMEX 028714,000942: 35,3605 33633 CAF V06N55 028715,000943: 35,3606 04616 TCR BANKCALL 028716,000944: 35,3607 20477 CADR GOFLASH 028717,000945: 35,3610 16001 TCF GOTOP00H 028718,000946: 35,3611 01463 TC NORMEX 028719,000947: 35,3612 13605 TCF -5 028720,000948: 028721,000949: # Page 690 028722,000950: # ***** P3XORP7X ***** 028723,000951: 028724,000952: 35,3613 37747 P3XORP7X CAF HIGH9 028725,000953: 35,3614 71010 MASK MODREG 028726,000954: 35,3615 00006 EXTEND 028727,000955: 35,3616 13620 BZF +2 028728,000956: 35,3617 24002 INCR Q 028729,000957: 35,3620 00002 RETURN 028730,000958: 028731,000959: # ***** VNP00H ***** 028732,000960: 028733,000961: # SUBROUTINES USED 028734,000962: # BANKCALL 028735,000963: # GOFLASH 028736,000964: # GOTOP00H 028737,000965: 028738,000966: 35,3621 00006 VNP00H EXTEND 028739,000967: 35,3622 23465 QXCH RTRN 028740,000968: 35,3623 55615 TS VERBNOUN 028741,000969: 35,3624 31615 CA VERBNOUN 028742,000970: 35,3625 04616 TCR BANKCALL 028743,000971: 35,3626 20477 CADR GOFLASH 028744,000972: 35,3627 16001 TCF GOTOP00H 028745,000973: 35,3630 01465 TC RTRN 028746,000974: 35,3631 13624 TCF -5 028747,000975: 028748,000976: # Page 691 028749,000977: # ***** CONSTANTS ***** 028750,000978: 028751,000979: 35,3632 01445 V06N37 VN 0637 028752,000980: 35,3633 01467 V06N55 VN 0655 028753,000981: 35,3634 01472 V06N58 VN 0658 028754,000982: 35,3635 01473 V06N59 VN 0659 028755,000983: 35,3636 01521 V06N81 VN 0681 028756,000984: 35,3637 04055 V16N45 VN 1645 028757,000985: 35,3640 14441 37325 TWOPI 2DEC 6.283185307 B-4 028758,000986: 35,3642 00001 20650 MAX250 2DEC 25 E3 028759,000987: 35,3644 12525 12525 THIRD 2DEC .333333333 028760,000988: 35,3646 00004 21505 ELEPS 2DEC .27777777 E-3 028761,000989: 35,3650 77777 DP-.01 OCT 77777 # CONSTANTS 028762,000990: 35,3651 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP 028763,000991: 35,3652 01252 25253 EPSFOUR 2DEC .0416666666 028764,000992: 35,3654 13434 16162 130DEG 2DEC .3611111111 028765,000993: 028766,000994: # Page 692 028767,000995: # ***** INITVEL ***** 028768,000996: # MOD NO -1 LOG SECTION -- P34-P35, P74-P75 028769,000997: # MOD BY WHITE, P. DATE: 21 NOV 67 028770,000998: 028771,000999: # FUNCTIONAL 028772,001000: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR 028773,001001: # A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL 028774,001002: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR 028775,001003: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF 028776,001004: # OFFSETS). IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE 028777,001005: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED 028778,001006: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET 028779,001007: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH 028780,001008: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE 028781,001009: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR. 028782,001010: 028783,001011: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE 028784,001012: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE 028785,001013: # SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS 028786,001014: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR 028787,001015: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR), 028788,001016: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX 028789,001017: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE 028790,001018: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER. 028791,001019: 028792,001020: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND 028793,001021: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION 028794,001022: # TRAJECTORY COMPUTATIONS. 028795,001023: 028796,001024: # CALLING SEQUENCE 028797,001025: # L CALL 028798,001026: # L+1 INITVEL 028799,001027: # L+2 (RETURN -- ALWAYS) 028800,001028: 028801,001029: # INPUT 028802,001030: # (1) RINIT INITIAL POSITION RADIUS VECTOR 028803,001031: # (2) VINIT INITIAL POSITION VELOCITY VECTOR 028804,001032: # (3) RTARG TARGET POSITION RADIUS VECTOR 028805,001033: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG 028806,001034: # (5) INTIME TIME OF RINIT 028807,001035: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS 028808,001036: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS 028809,001037: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR 028810,001038: # (9) RTX2 COORDINATE SYSTEM ORIGIN -- 0 FOR EARTH, 2 FOR LUNAR 028811,001039: # PUSHLOC SET AT 4D 028812,001040: 028813,001041: # Page 693 028814,001042: # OUTPUT 028815,001043: # (1) RTARG OFFSET TARGET POSITION VECTOR 028816,001044: # (2) VIPRIME MANEUVER VELOCITY REQUIRED 028817,001045: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER 028818,001046: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER 028819,001047: 028820,001048: # SUBROUTINES USED 028821,001049: # LAMBERT 028822,001050: # INTSTALL 028823,001051: # INTEGRVS 028824,001052: 028825,001053: 11,2000 SETLOC INTVEL 028826,001054: 11,2000 BANK 028827,001055: 028828,001056: 11,2000 COUNT* $$/INITV 028829,001057: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE 028830,001058: 11,2001 00475 GUESSW 028831,001059: 11,2002 44175 HAVEGUES VLOAD STQ 028832,001060: 11,2003 03444 RTARG 028833,001061: 11,2004 03463 NORMEX 028834,001062: 11,2005 03472 STORE RTARG1 028835,001063: 11,2006 77646 ABVAL 028836,001064: 11,2007 03723 STORE RTMAG 028837,001065: 11,2010 46135 SLOAD BHIZ 028838,001066: 11,2011 03000 RTX2 028839,001067: 11,2012 22026 INITVEL1 028840,001068: 11,2013 72575 VLOAD VSL2 028841,001069: 11,2014 02323 RINIT # B29 028842,001070: 11,2015 26323 STOVL RINIT # B27 028843,001071: 11,2016 02331 VINIT # B7 028844,001072: 11,2017 77752 VSL2 028845,001073: 11,2020 26331 STOVL VINIT # B5 028846,001074: 11,2021 03472 RTARG1 028847,001075: 11,2022 77752 VSL2 028848,001076: 11,2023 03472 STORE RTARG1 028849,001077: 11,2024 77646 ABVAL 028850,001078: 11,2025 03723 STORE RTMAG 028851,001079: 028852,001080: # INITIALIZATION 028853,001081: 028854,001082: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D) 028855,001083: 11,2027 03617 ITCTR 028856,001084: 11,2030 77776 0 -1 028857,001085: 11,2031 70546 COSINE SR1 # CALCULATE COSING (E4) (+2) 028858,001086: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D) 028859,001087: 11,2033 67154 LXA,2 SXA,2 028860,001088: 11,2034 00154 MPAC 028861,001089: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP) 028862,001090: 11,2036 77775 VLOAD 028863,001091: # Page 694 028864,001092: 11,2037 02323 RINIT 028865,001093: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT 028866,001094: 11,2041 03472 RTARG1 028867,001095: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG 028868,001096: 11,2043 03452 DELLT4 028869,001097: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4 028870,001098: 11,2045 77201 SETPD VLOAD 028871,001099: 11,2046 00001 0D # INITIALIZE PL TO 0D 028872,001100: 11,2047 02323 RINIT # MPAC EQ RINIT (+29) 028873,001101: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D) 028874,001102: 11,2051 53435 VXV UNIT 028875,001103: 11,2052 02331 VINIT # MPAC EQ UNIT(RI) X VI (+8) 028876,001104: 11,2053 26674 STOVL UN 028877,001105: 11,2054 03472 RTARG1 028878,001106: 11,2055 50256 UNIT DOT # TEMP*RT.URI (+2) (PL 0D) 028879,001107: 11,2056 43015 DAD CLEAR 028880,001108: 11,2057 03667 COZY4 028881,001109: 11,2060 03665 NORMSW 028882,001110: 11,2061 03667 STORE COZY4 028883,001111: 11,2062 43044 INITVEL2 BPL SET 028884,001112: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT 028885,001113: 11,2064 03465 NORMSW 028886,001114: 028887,001115: # ROTATE RC INTO YC PLANE -- SET UNIT NORMAL TO YC 028888,001116: 028889,001117: 11,2065 41575 VLOAD PUSH # (PL 6D) 028890,001118: 11,2066 02663 R2VEC # RC TO 6D (+29) 028891,001119: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D) 028892,001120: 11,2070 46206 PUSH VPROJ # (PL 8D) 028893,001121: 11,2071 02674 UN 028894,001122: 11,2072 51352 VSL2 BVSU 028895,001123: 11,2073 74256 UNIT VXSC # (PL 0D) 028896,001124: 11,2074 77772 VSL1 028897,001125: 11,2075 02663 STORE R2VEC 028898,001126: 11,2076 67351 TLOAD SLOAD 028899,001127: 11,2077 24007 ZEROVEC 028900,001128: 11,2100 03617 ITCTR 028901,001129: 11,2101 77244 BPL VLOAD 028902,001130: 11,2102 22105 INITVEL3 028903,001131: 11,2103 02663 R2VEC 028904,001132: 11,2104 03472 STORE RTARG1 028905,001133: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D) 028906,001134: 11,2106 26007 MUEARTH # POSITIVE VALUE 028907,001135: 11,2107 02663 R2VEC 028908,001136: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D) 028909,001137: 11,2111 02655 R1VEC 028910,001138: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D) 028911,001139: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC) 028912,001140: 11,2114 00003 2D 028913,001141: 11,2115 77606 PUSH # (PL 20D) 028914,001142: 11,2116 71350 LXA,1 DLOAD 028915,001143: # Page 695 028916,001144: 11,2117 02776 RTX1 028917,001145: 11,2120 00023 18D 028918,001146: 11,2121 62040 BMN INCR,1 028919,001147: 11,2122 22124 +2 028920,001148: 11,2123 77767 DEC -8 B-14 028921,001149: 11,2124 67310 INCR,1 SLOAD 028922,001150: 11,2125 00012 10D 028923,001151: 11,2126 00047 X1 028924,001152: 11,2127 77230 BHIZ VLOAD # (PL 14D) 028925,001153: 11,2130 22132 +2 028926,001154: 11,2131 41476 VCOMP PUSH # (PL 20 D) 028927,001155: 11,2132 77775 VLOAD # (PL 14D) 028928,001156: 11,2133 50235 VXV DOT # (PL 2D) 028929,001157: 11,2134 71244 BPL DLOAD # (PL 0D) 028930,001158: 11,2135 22137 INITVEL4 028931,001159: 11,2136 41476 DCOMP PUSH # (PL 2D) 028932,001160: 11,2137 67154 INITVEL4 LXA,2 SXA,2 028933,001161: 11,2140 00000 0D 028934,001162: 11,2141 02672 GEOMSGN 028935,001163: 028936,001164: # SET INPUTS UP FOR LAMBERT 028937,001165: 028938,001166: 11,2142 66350 LXA,1 SSP 028939,001167: 11,2143 02776 RTX1 028940,001168: 11,2144 00027 ITERCTR 028941,001169: 11,2145 00024 20D 028942,001170: 028943,001171: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE) 028944,001172: 028945,001173: 11,2146 77624 CALL 028946,001174: 11,2147 25212 LAMBERT 028947,001175: 028948,001176: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS. 028949,001177: 028950,001178: 11,2150 77214 CLEAR VLOAD 028951,001179: 11,2151 00675 GUESSW 028952,001180: 11,2152 02744 VVEC 028953,001181: 028954,001182: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME 028955,001183: 028956,001184: 11,2153 16337 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7) 028957,001185: 028958,001186: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE 028959,001187: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS). 028960,001188: 028961,001189: 11,2154 02702 VTARGTAG 028962,001190: 11,2155 45030 BHIZ CALL 028963,001191: 11,2156 22233 INITVEL7 028964,001192: 11,2157 27410 INTSTALL 028965,001193: 11,2160 43135 SLOAD CLEAR 028966,001194: 11,2161 03000 RTX2 028967,001195: 11,2162 00263 MOONFLAG 028968,001196: 11,2163 43030 BHIZ SET 028969,001197: # Page 696 028970,001198: 11,2164 22166 INITVEL5 028971,001199: 11,2165 00063 MOONFLAG 028972,001200: 11,2166 77775 INITVEL5 VLOAD 028973,001201: 11,2167 02323 RINIT 028974,001202: 11,2170 02655 STORE R1VEC 028975,001203: 11,2171 25535 STOVL RCV 028976,001204: 11,2172 02337 VIPRIME 028977,001205: 11,2173 15543 STODL VCV 028978,001206: 11,2174 03610 INTIME 028979,001207: 11,2175 01517 STORE TET 028980,001208: 11,2176 43015 DAD CLEAR 028981,001209: 11,2177 03452 DELLT4 028982,001210: 11,2200 01673 INTYPFLG 028983,001211: 11,2201 34041 STCALL TDEC1 028984,001212: 11,2202 27106 INTEGRVS 028985,001213: 11,2203 77775 VLOAD 028986,001214: 11,2204 00025 VATT1 028987,001215: 11,2205 02703 STORE VTARGET 028988,001216: 028989,001217: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT 028990,001218: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE 028991,001219: 028992,001220: 11,2206 63154 LXA,2 INCR,2 028993,001221: 11,2207 03616 ITCTR 028994,001222: 11,2210 00001 1D # INCREMENT ITCTR 028995,001223: 11,2211 55134 SXA,2 XSU,2 028996,001224: 11,2212 03616 ITCTR 028997,001225: 11,2213 02701 VTARGTAG 028998,001226: 11,2214 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC 028999,001227: 11,2215 00050 X2 029000,001228: 11,2216 22230 INITVEL6 029001,001229: 029002,001230: # OFFSET CONIC TARGET VECTGOR 029003,001231: 029004,001232: 11,2217 52375 VLOAD VSU 029005,001233: 11,2220 03472 RTARG1 029006,001234: 11,2221 00017 RATT1 029007,001235: 11,2222 77655 VAD 029008,001236: 11,2223 02663 R2VEC 029009,001237: 11,2224 16663 STODL R2VEC 029010,001238: 11,2225 03667 COZY4 029011,001239: 11,2226 77650 GOTO 029012,001240: 11,2227 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2 029013,001241: 029014,001242: # COMPUTE THE DELTA VELOCITY 029015,001243: 029016,001244: 11,2230 77775 INITVEL6 VLOAD 029017,001245: 11,2231 02663 R2VEC 029018,001246: 11,2232 03472 STORE RTARG1 029019,001247: 11,2233 52375 INITVEL7 VLOAD VSU 029020,001248: 11,2234 02337 VIPRIME 029021,001249: 11,2235 02331 VINIT 029022,001250: # Page 697 029023,001251: 11,2236 26366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7) 029024,001252: 11,2237 02703 VTARGET 029025,001253: 11,2240 03566 STORE VTPRIME 029026,001254: 11,2241 46135 SLOAD BHIZ 029027,001255: 11,2242 03000 RTX2 029028,001256: 11,2243 22260 INITVELX 029029,001257: 11,2244 70575 VLOAD VSR2 029030,001258: 11,2245 03566 VTPRIME 029031,001259: 11,2246 27566 STOVL VTPRIME 029032,001260: 11,2247 02337 VIPRIME 029033,001261: 11,2250 77742 VSR2 029034,001262: 11,2251 26337 STOVL VIPRIME 029035,001263: 11,2252 03472 RTARG1 029036,001264: 11,2253 77742 VSR2 029037,001265: 11,2254 27472 STOVL RTARG1 029038,001266: 11,2255 02366 DELVEET3 029039,001267: 11,2256 77742 VSR2 029040,001268: 11,2257 02366 STORE DELVEET3 029041,001269: 11,2260 70750 INITVELX LXA,1 DLOAD* 029042,001270: 11,2261 02776 RTX1 029043,001271: 11,2262 10003 MUTABLE -2,1 029044,001272: 11,2263 41206 PUSH DMP 029045,001273: 11,2264 02742 R1A 029046,001274: 11,2265 56342 SR1 DDV 029047,001275: 11,2266 00041 R1 029048,001276: 11,2267 17721 STODL MU/A 029049,001277: 11,2270 77661 SR 029050,001278: 11,2271 20607 6 029051,001279: 11,2272 03717 STORE MUASTEER 029052,001280: 11,2273 77201 SETPD VLOAD 029053,001281: 11,2274 00001 0D 029054,001282: 11,2275 03472 RTARG1 029055,001283: 11,2276 03444 STORE RTARG 029056,001284: 11,2277 52014 CLEAR GOTO 029057,001285: 11,2300 01267 XDELVFLG 029058,001286: 11,2301 03463 NORMEX 029059,001287: 029060,001288: # ***** END OF INITVEL ROUTINE ***** 029061,001289: 029062,001290: # Page 698 029063,001291: # ***** MIDGIM ***** 029064,001292: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75 029065,001293: # REVISION 03, 17 FEB 67 029066,001294: 029067,001295: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES 029068,001296: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT 029069,001297: # DELTA VELOCITY VECTOR (0D IN PUSY LIST), OTHERWISE 029070,001298: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN- 029071,001299: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE. 029072,001300: 029073,001301: # ** INPUTS ** 029074,001302: # NAME MEANING UNITS/SCALING/MODE 029075,001303: # AVFLAG INT FLAG -- 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT 029076,001304: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT 029077,001305: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT 029078,001306: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT 029079,001307: 029080,001308: # ** OUTPUTS ** 029081,001309: # NAME MEANING UNITS/SCALING/MODE 029082,001310: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP 029083,001311: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT 029084,001312: # MGLVFLAG INT FLAG: 0 IS +MGA COMUTED, 1 IS DELVLVC COMP. BIT 029085,001313: 029086,001314: # ** CALLING SEQUENCE ** 029087,001315: # L CALL 029088,001316: # L+1 MIDGIM 029089,001317: # L+2 (RETURN -- ALWAYS) 029090,001318: 029091,001319: # ** NO SUBROUTINES CALLED ** 029092,001320: 029093,001321: # ** DEBRIS -- ERASABLE TEMPORARY USAGE ** 029094,001322: # A,Q,L, PUSH LIST, MPAC. 029095,001323: 029096,001324: # ** ALARMS -- NONE ** 029097,001325: 029098,001326: # Page 699 029099,001327: 06,2000 SETLOC MIDDGIM 029100,001328: 06,2000 BANK 029101,001329: 029102,001330: 06,3723 COUNT* $$/MIDG 029103,001331: 029104,001332: 06,3723 20000 00000 HALFREV 2DEC 1 B-1 029105,001333: 029106,001334: 06,3725 53575 GET+MGA VLOAD UNIT # PL 0D) V (+7) TO MPAC UNITIZE UV (+1) 029107,001335: 06,3726 77656 UNIT 029108,001336: 06,3727 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE 029109,001337: 06,3730 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE 029110,001338: 06,3731 51136 ARCSIN BPL 029111,001339: 06,3732 15736 SETMGA 029112,001340: 06,3733 43215 DAD DAD # CONVERT -MGA TO +MGA BY 029113,001341: 06,3734 15724 HALFREV # ADDING ONE REVOLUTION 029114,001342: 06,3735 15724 HALFREV 029115,001343: 06,3736 02253 SETMGA STORE +MGA 029116,001344: 06,3737 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC 029117,001345: 06,3740 02675 MGLVFLAG # AND EXIT 029118,001346: 06,3741 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR 029119,001347: 06,3742 02323 RINIT 029120,001348: 06,3743 77676 VCOMP # U(-R) 029121,001349: 06,3744 00023 STORE 18D # U(-R) TO 18D 029122,001350: 06,3745 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R) 029123,001351: 06,3746 02331 VINIT 029124,001352: 06,3747 00015 STORE 12D # U(V*R) TO 12D 029125,001353: 06,3750 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R)) 029126,001354: 06,3751 00023 18D 029127,001355: 06,3752 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1) 029128,001356: 06,3753 00001 0D # DELTA V (+7) IN 0D 029129,001357: 06,3754 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8) 029130,001358: 06,3755 00007 6D # AND SCALE +7 IN MPAC 029131,001359: 06,3756 03434 STORE DELVLVC # STORE IN DELVLVC (+7( 029132,001360: 06,3757 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC 029133,001361: 06,3760 02475 MGLVFLAG # AND EXIT 029134,001362: 029135,001363: # ***** END OF MIDGIM ROUTINE ***** 029136,001364: 029137,001365: # Page 700 029138,001366: 10,2000 BANK 10 029139,001367: 10,2000 SETLOC SLCTMU 029140,001368: 10,2000 BANK 029141,001369: 10,2000 COUNT* $$/MIDG 029142,001370: 029143,001371: 10,2000 77160 SELECTMU AXC,1 AXT,2 029144,001372: 10,2001 00002 2D 029145,001373: 10,2002 00000 0D 029146,001374: 10,2003 77614 BOFF 029147,001375: 10,2004 04343 CMOONFLG 029148,001376: 10,2005 20011 SETMUER 029149,001377: 10,2006 77160 AXC,1 AXT,2 029150,001378: 10,2007 00012 10D 029151,001379: 10,2010 00002 2D 029152,001380: 10,2011 66143 SETMUER DLOAD* SXA,1 029153,001381: 10,2012 10011 MUTABLE +4,1 029154,001382: 10,2013 02776 RTX1 029155,001383: 10,2014 22317 STODL* RTSR1/MU 029156,001384: 10,2015 10003 MUTABLE -2,1 029157,001385: 10,2016 54214 BOFF SR 029158,001386: 10,2017 04343 CMOONFLG 029159,001387: 10,2020 20022 RTRNMU 029160,001388: 10,2021 20607 6D 029161,001389: 10,2022 02321 RTRNMU STORE RTMU 029162,001390: 10,2023 43134 SXA,2 CLEAR 029163,001391: 10,2024 02777 RTX2 029164,001392: 10,2025 01271 FINALFLG 029165,001393: 10,2026 77650 GOTO 029166,001394: 10,2027 73515 VN1645 029167,001395: 029168,001396: # Page 701 029169,001397: # ***** PERIAPO ***** 029170,001398: # MOD NO -1 LOG SECTION -- P34-P35, P74-P75 029171,001399: # MOD BY WHITE, P. DATE 18 JAN 68 029172,001400: 029173,001401: # FUNCTIONAL DESCRIPTION 029174,001402: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER 029175,001403: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON 029176,001404: # TRAJECTORY AND THE PRIMARY BODY. 029177,001405: 029178,001406: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY. 029179,001407: 029180,001408: # APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND 029181,001409: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY. 029182,001410: 029183,001411: # CALLING SEQUENCE 029184,001412: # L CALL 029185,001413: # L+1 PERIAPO 029186,001414: # L+2 (RETURN -- ALWAYS) 029187,001415: 029188,001416: # INPUT 029189,001417: # (1) RVEC POSITION VECTOR IN METERS 029190,001418: # SCALE FACTOR -- EARTH +29, MOON +27 029191,001419: # (2) VVEC VELOCITY VECTORY IN METERS/CENTISECOND 029192,001420: # SCALE FACTOR -- EARTH +7, MOON +5 029193,001421: # (3) X1 PRIMARY BODY INDICATOR 029194,001422: # EARTH -1, MOON -10 029195,001423: 029196,001424: # OUTPUT 029197,001425: # (1) 2D APOCENTER RADIUS IN METERS 029198,001426: # SCALE FACTOR -- EARTH +29, MOON +27 029199,001427: # (2) 4D APOCENTER ALTITUDE IN METERS 029200,001428: # SCALE FACTOR -- EARTH +29, MOON +27 029201,001429: # (3) 6D PERICENTER RADIUS IN METERS 029202,001430: # SCALE FACTOR -- EARTH +29, MOON +27 029203,001431: # (4) 8D PERICENTER ALTITUDE IN METERS 029204,001432: # SCALE FACTOR -- EARTH +29, MOON +27 029205,001433: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY 029206,001434: # SCALE FACTOR -- +3 029207,001435: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS 029208,001436: # SCALE FACTOR -- EARTH +29, MOON +27 029209,001437: # (7) PUSHLOC EQUALS 10D 029210,001438: 029211,001439: # SUBROUTINES USED 029212,001440: # SETRAD 029213,001441: # Page 702 029214,001442: # APSIDES 029215,001443: 029216,001444: 23,2000 SETLOC APOPERI 029217,001445: 23,2000 BANK 029218,001446: 029219,001447: 23,2337 COUNT* $$/PERAP 029220,001448: 029221,001449: 23,2337 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B. 029222,001450: # = 20 909 901.57 FT 029223,001451: 029224,001452: 23,2341 53754 PERIAPO1 LXA,2 VSR* 029225,001453: 23,2342 02777 RTX2 029226,001454: 23,2343 57176 0,2 029227,001455: 23,2344 26744 STOVL VVEC 029228,001456: 23,2345 53750 LXA,1 VSR* 029229,001457: 23,2346 02776 RTX1 029230,001458: 23,2347 57176 0,2 029231,001459: 23,2350 02655 STORE RVEC 029232,001460: 23,2351 45020 PERIAPO STQ CALL 029233,001461: 23,2352 03463 NORMEX 029234,001462: 23,2353 46367 SETRAD 029235,001463: 23,2354 37671 STCALL XXXALT 029236,001464: 23,2355 25704 APSIDES 029237,001465: 23,2356 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27 029238,001466: 23,2357 00003 2D 029239,001467: 23,2360 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27 029240,001468: 23,2361 03671 XXXALT 029241,001469: 23,2362 00001 0D 029242,001470: 23,2363 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27 029243,001471: 23,2364 03671 XXXALT 029244,001472: 23,2365 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27 029245,001473: 23,2366 03463 NORMEX 029246,001474: 029247,001475: # Page 703 029248,001476: 23,2367 41545 SETRAD DLOAD PUSH 029249,001477: 23,2370 06340 RPAD 029250,001478: 23,2371 63130 SXA,1 INCR,2 029251,001479: 23,2372 00047 X2 029252,001480: 23,2373 00002 2D 029253,001481: 23,2374 46135 SLOAD BHIZ 029254,001482: 23,2375 00050 X2 029255,001483: 23,2376 46402 SETRADX 029256,001484: 23,2377 51575 VLOAD ABVAL 029257,001485: 23,2400 02023 RLS 029258,001486: 23,2401 77725 PDDL 029259,001487: 23,2402 43545 SETRADX DLOAD RVQ 029260,001488: 029261,001489: # Page 704 029262,001490: 23,2403 77620 PRECSET STQ 029263,001491: 23,2404 03463 NORMEX 029264,001492: 23,2405 37574 STCALL TDEC2 029265,001493: 23,2406 27056 LEMPREC 029266,001494: 23,2407 77624 CALL 029267,001495: 23,2410 46421 LEMSTORE 029268,001496: 23,2411 77745 DLOAD 029269,001497: 23,2412 03574 TDEC2 029270,001498: 23,2413 34041 STCALL TDEC1 029271,001499: 23,2414 27042 CSMPREC 029272,001500: 23,2415 77624 CALL 029273,001501: 23,2416 46431 CSMSTORE 029274,001502: 23,2417 77650 GOTO 029275,001503: 23,2420 03463 NORMEX 029276,001504: 23,2421 43175 LEMSTORE VLOAD BOFF 029277,001505: 23,2422 00001 RATT 029278,001506: 23,2423 01352 AVFLAG 029279,001507: 23,2424 46435 PASSIVE 029280,001508: 23,2425 27536 ACTIVE STOVL RACT3 029281,001509: 23,2426 00007 VATT 029282,001510: 23,2427 03544 STORE VACT3 029283,001511: 23,2430 77616 RVQ 029284,001512: 23,2431 43175 CSMSTORE VLOAD BOFF 029285,001513: 23,2432 00001 RATT 029286,001514: 23,2433 01352 AVFLAG 029287,001515: 23,2434 46425 ACTIVE 029288,001516: 23,2435 27552 PASSIVE STOVL RPASS3 029289,001517: 23,2436 00007 VATT 029290,001518: 23,2437 03560 STORE VPASS3 029291,001519: 23,2440 77616 RVQ 029292,001520: 029293,001521: # Page 705 029294,001522: 23,2441 53754 VECSHIFT LXA,2 VSR* 029295,001523: 23,2442 02777 RTX2 029296,001524: 23,2443 57176 0,2 029297,001525: 23,2444 63350 LXA,1 PDVL 029298,001526: 23,2445 02776 RTX1 029299,001527: 23,2446 63257 VSR* PDVL 029300,001528: 23,2447 57176 0,2 029301,001529: 23,2450 77616 RVQ 029302,001530: 029303,001531: # Page 706 029304,001532: 23,2451 53754 SHIFTR1 LXA,2 SL* 029305,001533: 23,2452 02777 RTX2 029306,001534: 23,2453 57576 0,2 029307,001535: 23,2454 77616 RVQ 029308,001536: 029309,001537: # Page 707 029310,001538: # PROGRAM DESCRIPTION 029311,001539: 029312,001540: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE 029313,001541: # MOD NO. 0 DATE 22 DECEMBER 67 029314,001542: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS 029315,001543: # FUNCTIONAL DESCRIPTION 029316,001544: 029317,001545: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS 029318,001546: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY). 029319,001547: 029320,001548: # CALLING SEQUENCE 029321,001549: # ASTRONAUT REQUEST THROUGH DSKY V 90 E 029322,001550: 029323,001551: # SUBROUTINES CALLED 029324,001552: # EXDSPRET 029325,001553: # GOMARKF 029326,001554: # CSMPREC 029327,001555: # LEMPREC 029328,001556: # SGNAGREE 029329,001557: # LOADTIME 029330,001558: 029331,001559: # NORMAL EXIT MODES 029332,001560: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E 029333,001561: 029334,001562: # ALARM OR ABORT EXIT MODES 029335,001563: # NONE 029336,001564: 029337,001565: # OUTPUT 029338,001566: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI 029339,001567: 029340,001568: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE 029341,001569: # REGISTERS RANGE, RRATE, AND RTHETA RESPECTIVELY. 029342,001570: 029343,001571: # ERASABLE INITIALIZATION REQUIRED 029344,001572: # CSM AND LEM STATE VECTORS 029345,001573: 029346,001574: # DEBRIS 029347,001575: # CENTRALS A,Q,L 029348,001576: # OTHER: THOSE USED BY THE ABOVE LISTED SUBROUTINES 029349,001577: 029350,001578: 20,2115 BANK 20 029351,001579: 04,2000 SETLOC R36LM 029352,001580: 04,2000 BANK 029353,001581: # Page 708 029354,001582: 04,2642 E7,1441 EBANK= TIG 029355,001583: 04,2642 COUNT* $$/R36 029356,001584: 029357,001585: 04,2642 00006 R36 EXTEND 029358,001586: 04,2643 31442 DCA TIG # SET TIME-OF-EVEN TO TIG FOR NOMINAL 029359,001587: 04,2644 53051 DXCH DSPTEMX # DISPLAY 029360,001588: 04,2645 32755 CAF V06N16N 029361,001589: 04,2646 04616 TC BANKCALL 029362,001590: 04,2647 20334 CADR GOMARKF 029363,001591: 04,2650 15472 TCF ENDEXT # TERMINATE 029364,001592: 04,2651 12653 TCF +2 # PROCEED 029365,001593: 04,2652 12645 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME 029366,001594: 04,2653 06042 TC INTPRET 029367,001595: 04,2654 53145 DLOAD BZE 029368,001596: 04,2655 01051 DSPTEMX 029369,001597: 04,2656 10752 GETNOW # ASTRO-LOADED ZERO, GET PRESS TIME 029370,001598: 04,2657 34041 R36INT STCALL TDEC1 029371,001599: 04,2660 27042 OTHPREC 029372,001600: 04,2661 63375 VLOAD PDVL 029373,001601: 04,2662 00007 VATT 029374,001602: 04,2663 00001 RATT # - 029375,001603: 04,2664 02207 STORE RPASS36 # R 029376,001604: 04,2665 63256 UNIT PDVL # P 029377,001605: 04,2666 53435 VXV UNIT # - 029378,001606: 04,2667 77626 STADR 029379,001607: 04,2670 61562 STODL UNP36 # U 029380,001608: 04,2671 00015 TAT 029381,001609: 04,2672 34041 STCALL TDEC1 029382,001610: 04,2673 27056 THISPREC 029383,001611: 04,2674 63375 VLOAD PDVL # - 029384,001612: 04,2675 00007 VATT # VELOCITY VECTOR V 00D 029385,001613: 04,2676 00001 RATT # A 029386,001614: 04,2677 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D 029387,001615: 04,2700 63245 BVSU PDVL # A 029388,001616: 04,2701 02207 RPASS36 # LINE OF SIGHT VECTOR R - R 12D 029389,001617: 04,2702 72441 DOT SL1 # P A 029390,001618: 04,2703 02215 UNP36 # _ _ 029391,001619: 04,2704 26201 STOVL RANGE # Y = U . R 029392,001620: 04,2705 00001 00D # A 029393,001621: 04,2706 72441 DOT SL1 029394,001622: 04,2707 02215 UNP36 # . _ _ 029395,001623: 04,2710 26203 STOVL RRATE # Y = U . V 029396,001624: 04,2711 00007 06D # _ A 029397,001625: 04,2712 41456 UNIT PUSH # U = UNIT ( R ) 18D 029398,001626: 04,2713 47235 VXV VXV # RA A 029399,001627: 04,2714 00001 00D # _ _ _ _ 029400,001628: 04,2715 00023 18D # (U X V ) X U = U 029401,001629: 04,2716 53552 VSL2 UNIT # RA A RA A 029402,001630: 04,2717 77656 UNIT 029403,001631: 04,2720 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D 029404,001632: # Page 709 029405,001633: 04,2721 00023 18D 029406,001634: 04,2722 74241 DOT VXSC # _ 029407,001635: 04,2723 00015 12D # U 029408,001636: 04,2724 77752 VSL2 # L 029409,001637: 04,2725 53445 BVSU UNIT 029410,001638: 04,2726 77656 UNIT 029411,001639: 04,2727 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D 029412,001640: 04,2730 00001 00D # PLANE 029413,001641: 04,2731 65552 SL1 ARCCOS # _ _ 029414,001642: 04,2732 26205 STOVL RTHETA # PSI = ARCCOS(U . U ) 029415,001643: 04,2733 50235 VXV DOT # A L 029416,001644: 04,2734 00001 00D 029417,001645: 04,2735 71244 BPL DLOAD 029418,001646: 04,2736 10743 R36TAG2 029419,001647: 04,2737 24020 LODPMAX 029420,001648: 04,2740 77625 DSU 029421,001649: 04,2741 02205 RTHETA 029422,001650: 04,2742 02205 STORE RTHETA 029423,001651: 04,2743 77776 R36TAG2 EXIT 029424,001652: 04,2744 32756 CAF V06N90N # DISPLAY Y, YDOT, AND PSI. 029425,001653: 04,2745 04616 TC BANKCALL 029426,001654: 04,2746 20334 CADR GOMARKF 029427,001655: 04,2747 15472 TCF ENDEXT # TERMINATE 029428,001656: 04,2750 15472 TCF ENDEXT # PROCEED, END OF PROGRAM 029429,001657: 04,2751 12642 TCF R36 # RECYCLE, TIG OR ASTRO-OPTION 029430,001658: 04,2752 52034 GETNOW RTB GOTO # ASTRO-SELECTED PRESENT TIME 029431,001659: 04,2753 21574 LOADTIME 029432,001660: 04,2754 10657 R36INT 029433,001661: 04,2755 01420 V06N16N VN 00616 029434,001662: 04,2756 01532 V06N90N VN 00690 End of include-file P34-35_P74-75.agc. Parent file is MAIN.agc