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