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