Source Code

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