Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
028895,000002: ## Copyright: Public domain.
028896,000003: ## Filename: P34-P35,_P74-P75.agc
028897,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
028898,000005: ## otherwise known as Luminary Rev 99, the second release
028899,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
028900,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
028901,000008: ## placement of a single label. The corrections shown here have
028902,000009: ## been verified to have the same bank checksums as AGC developer
028903,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
028904,000011: ## to be accurate. This file is intended to be a faithful
028905,000012: ## recreation, except that the code format has been changed to
028906,000013: ## conform to the requirements of the yaYUL assembler rather than
028907,000014: ## the original YUL assembler.
028908,000015: ##
028909,000016: ## Assembler: yaYUL
028910,000017: ## Contact: Ron Burkey <info@sandroid.org>.
028911,000018: ## Website: www.ibiblio.org/apollo.
028912,000019: ## Pages: 658-702
028913,000020: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
028914,000021: ## Luminary131 file, using page
028915,000022: ## images from Luminary 1A.
028916,000023: ## 2009-06-05 RSB Corrected a typo.
028917,000024: ## 2011-01-06 JL Fixed pseudo-label indentation.
028918,000025: ## 2011-01-06 JL Added missing comment characters.
028919,000026: ## 2011-05-07 JL Removed workaround.
028920,000027: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
028921,000028: ## 2016-12-14 RSB VNP00H -> VNPOOH.
028922,000029: ## 2016-12-14 RSB Proofed text comments with octopus/ProoferComments
028923,000030: ## and corrected the errors found.
028924,000031: ## 2017-01-28 RSB Back-ported some comment fixes I noticed while
028925,000032: ## proofing Luminary 69.
028926,000033: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
028927,000034: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
028928,000035: ## side-by-side diff of Luminary 69/99/116/131/210.
028929,000036: ## 2017-08-01 MAS Created from LMY99 Rev 1.
028930,000037:
028931,000038: ## This source code has been transcribed or otherwise adapted from
028932,000039: ## digitized images of a hardcopy from the MIT Museum. The digitization
028933,000040: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
028934,000041: ## the Museum. Many thanks to both. The images (with suitable reduction
028935,000042: ## in storage size and consequent reduction in image quality as well) are
028936,000043: ## available online at www.ibiblio.org/apollo. If for some reason you
028937,000044: ## find that the images are illegible, contact me at info@sandroid.org
028938,000045: ## about getting access to the (much) higher-quality images which Paul
028939,000046: ## actually created.
028940,000047: ##
028941,000048: ## The code has been modified to match LMY99 Revision 0, otherwise
028942,000049: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
028943,000050: ## the listing from which it was transcribed. It has been verified to
028944,000051: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
028945,000052: ## of Luminary Revision 99 (for which we do not have scans).
028946,000053: ##
028947,000054: ## Notations on Allan Klumpp's listing read, in part:
028948,000055: ##
028949,000056: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
028950,000057:
![]() |
Page 658 |
028952,000059: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028953,000060:
028954,000061: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028955,000062: # MOD BY WHITE.P DATE 1JUNE67
028956,000063:
028957,000064: # PURPOSE
028958,000065:
028959,000066: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028960,000067: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028961,000068: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
028962,000069:
028963,000070: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028964,000071: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028965,000072:
028966,000073: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028967,000074: # INTERCEPT TIME (TIG (TPF)).
028968,000075:
028969,000076: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028970,000077:
028971,000078: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028972,000079: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028973,000080:
028974,000081: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028975,000082: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028976,000083: # ASTRONAUT/GROUND.
028977,000084:
028978,000085: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028979,000086: # THRUSTING PROGRAM.
028980,000087:
028981,000088: # ASSUMPTIONS
028982,000089:
028983,000090: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028984,000091: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028985,000092: # THEREFORE -
028986,000093:
028987,000094: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028988,000095: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028989,000096: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028990,000097: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028991,000098:
028992,000099: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028993,000100: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028994,000101:
028995,000102: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028996,000103: # ORBITS WAS MINIMIZED.
028997,000104:
028998,000105: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028999,000106: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
![]() |
Page 659 |
029001,000108: # ORBIT OR 85 NM FOR EARTH ORBIT.
029002,000109:
029003,000110: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029004,000111: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
029005,000112: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029006,000113: # IN AN OUT-OF-PLANE MANEUVER.
029007,000114:
029008,000115: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029009,000116: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029010,000117:
029011,000118: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029012,000119: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
029013,000120: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029014,000121: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029015,000122: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029016,000123: # FLIGHT PLAN MANEUVER SEQUENCES.
029017,000124:
029018,000125: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029019,000126: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029020,000127: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029021,000128: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029022,000129: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029023,000130: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029024,000131: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029025,000132: # THRUSTING MANEUVER.
029026,000133:
029027,000134: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029028,000135:
029029,000136: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029030,000137:
029031,000138: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029032,000139: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029033,000140: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029034,000141: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029035,000142:
029036,000143: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029037,000144: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029038,000145:
029039,000146: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029040,000147: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029041,000148: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029042,000149:
029043,000150: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029044,000151: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029045,000152: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029046,000153: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029047,000154: # THROUGH THE USE OF V06N52.
029048,000155:
029049,000156: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029050,000157: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
![]() |
Page 660 |
029052,000159: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
029053,000160: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029054,000161: # UPON DELTA V AND EXPECTED MANEUVER TIME.
029055,000162:
029056,000163: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029057,000164:
029058,000165: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029059,000166:
029060,000167: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029061,000168:
029062,000169: # INPUT
029063,000170:
029064,000171: # (1) TTPI TIME OF THE TPI MANEUVER
029065,000172: # (2) ELEV DESIRED LOS ANGLE AT TPI
029066,000173: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029067,000174: # TRANSFER FROM TPI TO TIME OF INTERCEPT
029068,000175:
029069,000176: # OUTPUT
029070,000177:
029071,000178: # (1) TRKMKCNT NUMBER OF MARKS
029072,000179: # (2) TTOGO TIME TO GO
029073,000180: # (3) +MGA MIDDLE GIMBAL ANGLE
029074,000181: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
029075,000182: # OR
029076,000183: # ELEV COMPUTED LOS ANGLE AT TPI
029077,000184: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029078,000185: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
029079,000186: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
029080,000187: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
029081,000188: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029082,000189:
029083,000190: # DOWNLINK
029084,000191:
029085,000192: # (1) TTPI TIME OF THE TPI MANEUVER
029086,000193: # (2) TIG TIME OF THE TPI MANEUVER
029087,000194: # (3) ELEV DESIRED LOS ANGLE AT TPI
029088,000195: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029089,000196: # TRANSFER FROM TPI TO TIME OF INTERCEPT
029090,000197: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029091,000198: # (6) TPASS4 TIME OF INTERCEPT
029092,000199:
029093,000200: # COMMUNICATION TO THRUSTING PROGRAMS
029094,000201:
029095,000202: # (1) TIG TIME OF THE TPI MANEUVER
029096,000203: # (2) RTARG OFFSET TARGET POSITION
029097,000204: # (3) TPASS4 TIME OF INTERCEPT
029098,000205: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029099,000206:
029100,000207: # SUBROUTINES USED
029101,000208:
029102,000209: # AVFLAGA
![]() |
Page 661 |
029104,000211: # AVFLAGP
029105,000212: # VNPOOH
029106,000213: # DISPLAYE
029107,000214: # SELECTMU
029108,000215: # PRECSET
029109,000216: # S33/34.1
029110,000217: # ALARM
029111,000218: # BANKCALL
029112,000219: # GOFLASH
029113,000220: # GOTOPOOH
029114,000221: # TIMETHET
029115,000222: # S34/35.2
029116,000223: # PERIAPO1
029117,000224: # SHIFTR1
029118,000225: # S34/35.5
029119,000226: # VN1645
029120,000227:
029121,000228: 35,2000 SETLOC CSI/CDH
029122,000229: 35,2000 BANK
029123,000230: 35,2545 E7,1470 EBANK= SUBEXIT
029124,000231: 35,2545 COUNT* $$/P3474
029125,000232: 35,2545 02347 P34 TC AVFLAGA
029126,000233: 35,2546 02550 TC P34/P74A
029127,000234: 35,2547 02354 P74 TC AVFLAGP
029128,000235: 35,2550 02361 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
029129,000236: 35,2551 33723 CAF V06N37 # TTPI
029130,000237: 35,2552 03712 TC VNPOOH
029131,000238: 35,2553 00006 EXTEND
029132,000239: 35,2554 33746 DCA 130DEG
029133,000240: 35,2555 53621 DXCH CENTANG
029134,000241: 35,2556 32417 CAF P30ZERO
029135,000242: 35,2557 55466 TS NN
029136,000243: 35,2560 03674 TC DISPLAYE # ELEV AND CENTANG
029137,000244: 35,2561 06037 TC INTPRET
029138,000245: 35,2562 71214 CLEAR DLOAD
029139,000246: 35,2563 01270 ETPIFLAG
029140,000247: 35,2564 03636 TTPI
029141,000248: 35,2565 17442 STODL TIG
029142,000249: 35,2566 02257 ELEV
029143,000250: 35,2567 43054 BZE SET
029144,000251: 35,2570 72572 P34/P74B
029145,000252: 35,2571 01070 ETPIFLAG
029146,000253: 35,2572 77624 P34/P74B CALL
029147,000254: 35,2573 20000 SELECTMU
029148,000255: 35,2574 DELELO EQUALS 26D
029149,000256: 35,2574 43145 P34/P74C DLOAD SET
029150,000257: 35,2575 06522 ZEROVECS
029151,000258: 35,2576 03460 ITSWICH
029152,000259: 35,2577 43014 BON CLEAR
029153,000260: 35,2600 01310 ETPIFLAG
![]() |
Page 662 |
029155,000262: 35,2601 72603 SWCHSET
029156,000263: 35,2602 03660 ITSWICH
029157,000264: 35,2603 02317 SWCHSET STORE NOMTPI
029158,000265: 35,2604 43345 INTLOOP DLOAD DAD
029159,000266: 35,2605 03636 TTPI
029160,000267: 35,2606 02317 NOMTPI
029161,000268: 35,2607 34041 STCALL TDEC1
029162,000269: 35,2610 46360 PRECSET
029163,000270: 35,2611 77624 CALL
029164,000271: 35,2612 72764 S33/34.1
029165,000272: 35,2613 77454 BZE EXIT
029166,000273: 35,2614 72625 SWCHCLR
029167,000274: 35,2615 05567 TC ALARM
029168,000275: 35,2616 00611 OCT 611
029169,000276: 35,2617 35006 CAF V05N09
029170,000277: 35,2620 04616 TC BANKCALL
029171,000278: 35,2621 20476 CADR GOFLASH
029172,000279: 35,2622 06001 TC GOTOPOOH
029173,000280: 35,2623 02550 TC P34/P74A # PROCEED
029174,000281: 35,2624 02615 TC -7 # V32
029175,000282:
029176,000283: 35,2625 43014 SWCHCLR BONCLR BON
029177,000284: 35,2626 03600 ITSWICH
029178,000285: 35,2627 72604 INTLOOP
029179,000286: 35,2630 01310 ETPIFLAG
029180,000287: 35,2631 72635 P34/P74D # DISPLAY TTPI
029181,000288: 35,2632 77776 EXIT
029182,000289: 35,2633 03674 TC DISPLAYE # DISPLAY ELEV AND CENTANG
029183,000290: 35,2634 02640 TC P34/P74E
029184,000291: 35,2635 77776 P34/P74D EXIT
029185,000292: 35,2636 33723 CAF V06N37 # TTPI
029186,000293: 35,2637 03712 TC VNPOOH
029187,000294: 35,2640 06037 P34/P74E TC INTPRET
029188,000295: 35,2641 71201 SETPD DLOAD
029189,000296: 35,2642 00001 0D
029190,000297: 35,2643 02777 RTX1
029191,000298: 35,2644 14047 STODL X1
029192,000299: 35,2645 03621 CENTANG
029193,000300: 35,2646 71406 PUSH COS
029194,000301: 35,2647 16732 STODL CSTH
029195,000302: 35,2650 77756 SIN
029196,000303: 35,2651 26730 STOVL SNTH
029197,000304: 35,2652 03552 RPASS3
029198,000305: 35,2653 77657 VSR*
029199,000306: 35,2654 57176 0,2
029200,000307: 35,2655 26655 STOVL RVEC
029201,000308: 35,2656 03560 VPASS3
029202,000309: 35,2657 43057 VSR* SET
029203,000310: 35,2660 57176 0,2
029204,000311: 35,2661 03466 RVSW
![]() |
Page 663 |
029206,000313: 35,2662 36744 STCALL VVEC
029207,000314: 35,2663 24732 TIMETHET
029208,000315: 35,2664 77745 DLOAD
029209,000316: 35,2665 03636 TTPI
029210,000317: 35,2666 03610 STORE INTIME # FOR INITVEL
029211,000318: 35,2667 77615 DAD
029212,000319: 35,2670 00037 T # RENDEZVOUS TIME
029213,000320: 35,2671 37631 STCALL TPASS4 # FOR INITVEL
029214,000321: 35,2672 73306 S34/35.2
029215,000322: 35,2673 51575 VLOAD ABVAL
029216,000323: 35,2674 02366 DELVEET3
029217,000324: 35,2675 27576 STOVL DELVTPI
029218,000325: 35,2676 03506 VPASS4
029219,000326: 35,2677 51451 VSU ABVAL
029220,000327: 35,2700 03566 VTPRIME
029221,000328: 35,2701 26350 STOVL DELVTPF
029222,000329: 35,2702 03536 RACT3
029223,000330: 35,2703 45115 PDVL CALL
029224,000331: 35,2704 02337 VIPRIME
029225,000332: 35,2705 46316 PERIAPO1
029226,000333: 35,2706 77624 CALL
029227,000334: 35,2707 46426 SHIFTR1
029228,000335: 35,2710 17606 STODL POSTTPI
029229,000336: 35,2711 03636 TTPI
029230,000337: 35,2712 03442 STORE TIG
029231,000338: 35,2713 77776 EXIT
029232,000339: 35,2714 33725 CAF V06N58
029233,000340: 35,2715 03712 TC VNPOOH
029234,000341: 35,2716 06037 TC INTPRET
029235,000342: 35,2717 77624 CALL
029236,000343: 35,2720 73522 S34/35.5
029237,000344: 35,2721 77624 CALL
029238,000345: 35,2722 73606 VN1645
029239,000346: 35,2723 77650 GOTO
029240,000347: 35,2724 72574 P34/P74C
![]() |
Page 664 |
029242,000349: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029243,000350:
029244,000351: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029245,000352: # MOD BY WHITE.P DATE 1JUNE67
029246,000353:
029247,000354: # PURPOSE
029248,000355:
029249,000356: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029250,000357: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029251,000358: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029252,000359: # VEHICLE RENDEZVOUS.
029253,000360:
029254,000361: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029255,000362: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029256,000363: # ASTRONAUT/GROUND.
029257,000364:
029258,000365: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029259,000366: # THRUSTING PROGRAM.
029260,000367:
029261,000368: # ASSUMPTIONS
029262,000369:
029263,000370: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029264,000371:
029265,000372: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029266,000373: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029267,000374:
029268,000375: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
029269,000376: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
029270,000377: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029271,000378: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
029272,000379: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029273,000380: # P20 AND AFTER EACH THRUSTING MANEUVER.
029274,000381:
029275,000382: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029276,000383:
029277,000384: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029278,000385: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029279,000386: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029280,000387: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029281,000388:
029282,000389: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029283,000390: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029284,000391:
029285,000392: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029286,000393: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029287,000394: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029288,000395:
029289,000396: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029290,000397: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029291,000398: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029292,000399:
![]() |
Page 665 |
029294,000401: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029295,000402: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029296,000403: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029297,000404: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029298,000405: # THROUGH THE USE OF V06N52.
029299,000406:
029300,000407: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029301,000408: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029302,000409: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
029303,000410: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029304,000411: # UPON DELTA V AND EXPECTED MANEUVER TIME.
029305,000412:
029306,000413: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029307,000414:
029308,000415: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029309,000416:
029310,000417: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029311,000418:
029312,000419: # INPUT
029313,000420:
029314,000421: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
029315,000422:
029316,000423: # OUTPUT
029317,000424:
029318,000425: # (1) TRKMKCNT NUMBER OF MARKS
029319,000426: # (2) TTOGO TIME TO GO
029320,000427: # (3) +MGA MIDDLE GIMBAL ANGLE
029321,000428: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
029322,000429: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029323,000430:
029324,000431: # DOWNLINK
029325,000432:
029326,000433: # (1) TIG TIME OF THE TPM MANEUVER
029327,000434: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029328,000435: # (3) TPASS4 TIME OF INTERCEPT
029329,000436:
029330,000437: # COMMUNICATION TO THRUSTING PROGRAMS
029331,000438:
029332,000439: # (1) TIG TIME OF THE TPM MANEUVER
029333,000440: # (2) RTARG OFFSET TARGET POSITION
029334,000441: # (3) TPASS4 TIME OF INTERCEPT
029335,000442: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029336,000443:
029337,000444: # SUBROUTINES USED
029338,000445:
029339,000446: # AVFLAGA
029340,000447: # AVFLAGP
029341,000448: # LOADTIME
029342,000449: # SELECTMU
029343,000450: # PRECSET
029344,000451: # S34/35.1
029345,000452: # S34/35.2
![]() |
Page 666 |
029347,000454: # S34/35.5
029348,000455: # VN1645
029349,000456:
029350,000457: 35,2725 COUNT* $$/P3575
029351,000458: 35,2725 E7,1575 EBANK= KT
029352,000459:
029353,000460: 35,2725 02347 P35 TC AVFLAGA
029354,000461: 35,2726 00006 EXTEND
029355,000462: 35,2727 31401 DCA ATIGINC
029356,000463: 35,2730 02734 TC P35/P75A
029357,000464: 35,2731 02354 P75 TC AVFLAGP
029358,000465: 35,2732 00006 EXTEND
029359,000466: 35,2733 31403 DCA PTIGINC
029360,000467: 35,2734 53576 P35/P75A DXCH KT
029361,000468: 35,2735 02361 TC P20FLGON # SET UPDATFLG, TRACKFLG
029362,000469: 35,2736 06037 TC INTPRET
029363,000470: 35,2737 77624 CALL
029364,000471: 35,2740 20000 SELECTMU
029365,000472: 35,2741 77634 P35/P75B RTB
029366,000473: 35,2742 21573 LOADTIME
029367,000474: 35,2743 03612 STORE TSTRT
029368,000475: 35,2744 77615 DAD
029369,000476: 35,2745 03576 KT
029370,000477: 35,2746 03442 STORE TIG
029371,000478: 35,2747 03610 STORE INTIME # FOR INITVEL
029372,000479: 35,2750 34041 STCALL TDEC1
029373,000480: 35,2751 46360 PRECSET # ADVANCE BOTH VEHICLES
029374,000481: 35,2752 77624 CALL
029375,000482: 35,2753 73274 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
029376,000483: 35,2754 77624 CALL
029377,000484: 35,2755 73306 S34/35.2 # GET DELTA V(LV)
029378,000485: 35,2756 77624 CALL
029379,000486: 35,2757 73522 S34/35.5
029380,000487: 35,2760 77624 CALL
029381,000488: 35,2761 73606 VN1645
029382,000489: 35,2762 77650 GOTO
029383,000490: 35,2763 72741 P35/P75B
![]() |
Page 667 |
029385,000492: # ..... S33/34.1 .....
029386,000493:
029387,000494: 35,2764 66220 S33/34.1 STQ SSP
029388,000495: 35,2765 03463 NORMEX
029389,000496: 35,2766 03614 TITER
029390,000497: 35,2767 40000 OCT 40000
029391,000498: 35,2770 40345 DLOAD SETPD
029392,000499: 35,2771 33734 MAX250
029393,000500: 35,2772 00001 0D
029394,000501: 35,2773 27574 STOVL SECMAX
029395,000502: 35,2774 03536 RACT3
029396,000503: 35,2775 27500 STOVL RAPREC
029397,000504: 35,2776 03544 VACT3
029398,000505: 35,2777 27506 STOVL VAPREC
029399,000506: 35,3000 03552 RPASS3
029400,000507: 35,3001 27522 STOVL RPPREC
029401,000508: 35,3002 03560 VPASS3
029402,000509: 35,3003 03530 STORE VPPREC
029403,000510: 35,3004 77624 ELCALC CALL
029404,000511: 35,3005 73274 S34/35.1 # NORMAL AND LOS
029405,000512: 35,3006 63235 VXV PDVL
029406,000513: 35,3007 03536 RACT3 # (RA*VA)*RA 0D
029407,000514: 35,3010 53515 PDVL UNIT # ULOS AT 6D
029408,000515: 35,3011 03536 RACT3
029409,000516: 35,3012 46315 PDVL VPROJ # XCHNJ AND UP
029410,000517: 35,3013 51352 VSL2 BVSU
029411,000518: 35,3014 02311 ULOS
029412,000519: 35,3015 63256 UNIT PDVL # UP AT 0D
029413,000520: 35,3016 63241 DOT PDVL # UP.UN*RA AT 0D
029414,000521: 35,3017 00001 0D # UP IN MPAC
029415,000522: 35,3020 75241 DOT SIGN
029416,000523: 35,3021 02311 ULOS
029417,000524: 35,3022 65552 SL1 ACOS
029418,000525: 35,3023 50315 PDVL DOT # EA AT 0D
029419,000526: 35,3024 02311 ULOS
029420,000527: 35,3025 03536 RACT3
029421,000528: 35,3026 71244 BPL DLOAD
029422,000529: 35,3027 73032 TESTY
029423,000530: 35,3030 06530 DPPOSMAX
029424,000531: 35,3031 41425 DSU PUSH
029425,000532: 35,3032 71214 TESTY BOFF DLOAD
029426,000533: 35,3033 03740 ITSWICH
029427,000534: 35,3034 73261 ELEX
029428,000535: 35,3035 03576 DELEL
029429,000536: 35,3036 14033 STODL DELELO
029430,000537: 35,3037 77625 DSU
029431,000538: 35,3040 02257 ELEV
029432,000539: 35,3041 03576 STORE DELEL
029433,000540: 35,3042 45246 ABS DSU
029434,000541: 35,3043 33740 ELEPS
![]() |
Page 668 |
029436,000543: 35,3044 77640 BMN
029437,000544: 35,3045 73271 TIMEX # COMMERCIALS EVERYWHERE
029438,000545: 35,3046 70535 FIGTIME SLOAD SR1
029439,000546: 35,3047 03614 TITER
029440,000547: 35,3050 72030 BHIZ LXA,1
029441,000548: 35,3051 03463 NORMEX # TOO MANY ITERATIONS
029442,000549: 35,3052 00154 MPAC
029443,000550: 35,3053 77330 SXA,1 VLOAD
029444,000551: 35,3054 03613 TITER
029445,000552: 35,3055 03552 RPASS3
029446,000553: 35,3056 65256 UNIT PDDL
029447,000554: 35,3057 00045 36D
029448,000555: 35,3060 53515 PDVL UNIT
029449,000556: 35,3061 03536 RACT3
029450,000557: 35,3062 77725 PDDL
029451,000558: 35,3063 41525 PDDL PUSH
029452,000559: 35,3064 00045 36D
029453,000560: 35,3065 77621 BDSU
029454,000561: 35,3066 00015 12D
029455,000562: 35,3067 14037 STODL 30D # RP - RA MAGNITUDES
029456,000563: 35,3070 06520 DPHALF
029457,000564: 35,3071 41425 DSU PUSH
029458,000565: 35,3072 02257 ELEV
029459,000566: 35,3073 50165 SIGN BMN
029460,000567: 35,3074 00037 30D
029461,000568: 35,3075 03463 NORMEX
029462,000569: 35,3076 71545 DLOAD COS
029463,000570: 35,3077 56205 DMP DDV
029464,000571: 35,3100 00017 14D
029465,000572: 35,3101 00015 12D
029466,000573: 35,3102 77676 DCOMP # SINCE COS(180-A)=-COS A
029467,000574: 35,3103 00035 STORE 28D
029468,000575: 35,3104 44246 ABS BDSU
029469,000576: 35,3105 06520 DPHALF
029470,000577: 35,3106 77240 BMN VLOAD
029471,000578: 35,3107 03463 NORMEX
029472,000579: 35,3110 02261 UNRM
029473,000580: 35,3111 53435 VXV UNIT
029474,000581: 35,3112 00007 6D # UN*RA
029475,000582: 35,3113 41241 DOT DMP
029476,000583: 35,3114 03544 VACT3
029477,000584: 35,3115 00015 12D
029478,000585: 35,3116 47315 PDVL VXV
029479,000586: 35,3117 00001 0D
029480,000587: 35,3120 03560 VPASS3
029481,000588: 35,3121 53435 VXV UNIT
029482,000589: 35,3122 00001 0D # (RP*VP)*RP
029483,000590: 35,3123 41241 DOT DMP
029484,000591: 35,3124 03560 VPASS3
029485,000592: 35,3125 00017 14D
![]() |
Page 669 |
029487,000594: 35,3126 77621 BDSU
029488,000595: 35,3127 63301 NORM PDVL # NORMALIZED WA - WP 12D
029489,000596: 35,3130 00047 X1
029490,000597: 35,3131 00007 6D
029491,000598: 35,3132 50235 VXV DOT
029492,000599: 35,3133 00001 0D
029493,000600: 35,3134 02261 UNRM # RA*RP.UN 14D
029494,000601: 35,3135 50315 PDVL DOT
029495,000602: 35,3136 00001 0D
029496,000603: 35,3137 00007 6D
029497,000604: 35,3140 65552 SL1 ACOS
029498,000605: 35,3141 77765 SIGN
029499,000606: 35,3142 43225 DSU DAD # ALPHA PI
029500,000607: 35,3143 06520 DPHALF
029501,000608: 35,3144 02257 ELEV
029502,000609: 35,3145 65525 PDDL ACOS
029503,000610: 35,3146 00035 28D
029504,000611: 35,3147 75221 BDSU SIGN
029505,000612: 35,3150 06520 DPHALF
029506,000613: 35,3151 00037 30D # CONTAINS RP-RA
029507,000614: 35,3152 77615 DAD
029508,000615: 35,3153 56205 DMP DDV
029509,000616: 35,3154 33732 TWOPI
029510,000617: 35,3155 77605 DMP
029511,000618: 35,3156 41257 SL* DMP
029512,000619: 35,3157 20176 0 -3,1
029513,000620: 35,3160 51406 PUSH ABS
029514,000621: 35,3161 50025 DSU BMN
029515,000622: 35,3162 03574 SECMAX
029516,000623: 35,3163 73167 OKMAX
029517,000624: 35,3164 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
029518,000625: 35,3165 03574 SECMAX
029519,000626: 35,3166 77606 PUSH
029520,000627: 35,3167 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
029521,000628: 35,3170 03614 TITER
029522,000629: 35,3171 73177 REPETE
029523,000630: 35,3172 71331 SSP DLOAD
029524,000631: 35,3173 03614 TITER
029525,000632: 35,3174 37777 OCT 37777
029526,000633: 35,3175 77650 GOTO
029527,000634: 35,3176 73235 STORDELT
029528,000635: 35,3177 41345 REPETE DLOAD DMP
029529,000636: 35,3200 03576 DELEL
029530,000637: 35,3201 00033 DELELO
029531,000638: 35,3202 71244 BPL DLOAD
029532,000639: 35,3203 73213 NEXTES
029533,000640: 35,3204 03574 SECMAX
029534,000641: 35,3205 77605 DMP
029535,000642: 35,3206 33736 THIRD
029536,000643: 35,3207 17574 STODL SECMAX
![]() |
Page 670 |
029538,000645: 35,3210 70446 ABS SR1 # CROSSED OVER SOLUTION
029539,000646: 35,3211 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
029540,000647: 35,3212 73223 RESIGN
029541,000648: 35,3213 51545 NEXTES DLOAD ABS
029542,000649: 35,3214 03576 DELEL
029543,000650: 35,3215 51525 PDDL ABS
029544,000651: 35,3216 00033 DELELO
029545,000652: 35,3217 77625 DSU
029546,000653: 35,3220 71240 BMN DLOAD
029547,000654: 35,3221 73226 REVERS # WRONG DIRECTION
029548,000655: 35,3222 77646 ABS
029549,000656: 35,3223 52165 RESIGN SIGN GOTO
029550,000657: 35,3224 03606 DELTEEO
029551,000658: 35,3225 73235 STORDELT
029552,000659: 35,3226 57545 REVERS DLOAD DCOMP
029553,000660: 35,3227 03606 DELTEEO
029554,000661: 35,3230 70406 PUSH SR1
029555,000662: 35,3231 03606 STORE DELTEEO
029556,000663: 35,3232 77615 DAD
029557,000664: 35,3233 77650 GOTO
029558,000665: 35,3234 73236 ADTIME
029559,000666: 35,3235 03606 STORDELT STORE DELTEEO
029560,000667: 35,3236 77615 ADTIME DAD
029561,000668: 35,3237 02317 NOMTPI # SUM OF DELTA T:S
029562,000669: 35,3240 02317 STORE NOMTPI
029563,000670: 35,3241 63375 VLOAD PDVL
029564,000671: 35,3242 03506 VAPREC
029565,000672: 35,3243 03500 RAPREC
029566,000673: 35,3244 77624 CALL
029567,000674: 35,3245 73462 GOINT
029568,000675: 35,3246 77624 CALL
029569,000676: 35,3247 46402 ACTIVE # STORE NEW RACT3 VACT3
029570,000677: 35,3250 63375 VLOAD PDVL
029571,000678: 35,3251 03530 VPPREC
029572,000679: 35,3252 03522 RPPREC
029573,000680: 35,3253 77624 CALL
029574,000681: 35,3254 73462 GOINT
029575,000682: 35,3255 77624 CALL
029576,000683: 35,3256 46412 PASSIVE # STORE NEW RPASS3 VPASS3
029577,000684: 35,3257 77650 GOTO
029578,000685: 35,3260 73004 ELCALC
029579,000686: 35,3261 43345 ELEX DLOAD DAD
029580,000687: 35,3262 03636 TTPI
029581,000688: 35,3263 02317 NOMTPI
029582,000689: 35,3264 17636 STODL TTPI
029583,000690: 35,3265 77614 BON
029584,000691: 35,3266 01310 ETPIFLAG
029585,000692: 35,3267 73271 TIMEX
029586,000693: 35,3270 02257 STORE ELEV
029587,000694: 35,3271 52145 TIMEX DLOAD GOTO
![]() |
Page 671 |
029589,000696: 35,3272 06522 ZEROVECS
029590,000697: 35,3273 03463 NORMEX
029591,000698:
![]() |
Page 672 |
029593,000700: # ..... S34/35.1 .....
029594,000701:
029595,000702: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029596,000703: # PASSIVE POS AND VEL AT TIME T3
029597,000704:
029598,000705: 35,3274 52375 S34/35.1 VLOAD VSU
029599,000706: 35,3275 03552 RPASS3
029600,000707: 35,3276 03536 RACT3
029601,000708: 35,3277 41456 UNIT PUSH
029602,000709: 35,3300 26311 STOVL ULOS
029603,000710: 35,3301 03536 RACT3
029604,000711: 35,3302 53435 VXV UNIT
029605,000712: 35,3303 03544 VACT3
029606,000713: 35,3304 02261 STORE UNRM
029607,000714: 35,3305 77616 RVQ
029608,000715:
![]() |
Page 673 |
029610,000717: # ..... S34/35.2 .....
029611,000718:
029612,000719: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029613,000720:
029614,000721: 35,3306 77220 S34/35.2 STQ VLOAD
029615,000722: 35,3307 03470 SUBEXIT
029616,000723: 35,3310 03560 VPASS3
029617,000724: 35,3311 65315 PDVL PDDL
029618,000725: 35,3312 03552 RPASS3
029619,000726: 35,3313 03610 INTIME
029620,000727: 35,3314 65325 PDDL PDDL
029621,000728: 35,3315 03631 TPASS4
029622,000729: 35,3316 33732 TWOPI # CONIC
029623,000730: 35,3317 46125 PDDL BHIZ
029624,000731: 35,3320 03467 NN
029625,000732: 35,3321 73325 S3435.23
029626,000733: 35,3322 77745 DLOAD
029627,000734: 35,3323 41545 DLOAD PUSH
029628,000735: 35,3324 06522 ZEROVECS # PRECISION
029629,000736: 35,3325 77624 S3435.23 CALL
029630,000737: 35,3326 73466 INTINT # GET TARGET VECTOR
029631,000738: 35,3327 27444 S3435.25 STOVL RTARG
029632,000739: 35,3330 00007 VATT
029633,000740: 35,3331 27506 STOVL VPASS4
029634,000741: 35,3332 03444 RTARG
029635,000742: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
029636,000743: 35,3333 63256 UNIT PDVL # UNIT RP
029637,000744: 35,3334 03536 RACT3
029638,000745: 35,3335 41456 UNIT PUSH # UNIT RA
029639,000746: 35,3336 50235 VXV DOT
029640,000747: 35,3337 00001 0D
029641,000748: 35,3340 02261 UNRM # RA*RP.U
029642,000749: 35,3341 77715 PDVL
029643,000750: 35,3342 72441 DOT SL1 # UNIT RA.UNIT RP
029644,000751: 35,3343 00001 0D
029645,000752: 35,3344 75326 ACOS SIGN
029646,000753: 35,3345 43244 BPL DAD
029647,000754: 35,3346 73350 NOPIE
029648,000755: 35,3347 06530 DPPOSMAX # REASONABLE TWO PI
029649,000756: 35,3350 15756 NOPIE STODL ACTCENT
029650,000757: 35,3351 03631 TPASS4
029651,000758: 35,3352 77625 DSU
029652,000759: 35,3353 03610 INTIME
029653,000760: 35,3354 03452 STORE DELLT4
029654,000761: 35,3355 40335 SLOAD SETPD
029655,000762: 35,3356 03467 NN # NUMBER OF OFFSETS
029656,000763: 35,3357 00001 0D
029657,000764: 35,3360 63325 PDDL PDVL
029658,000765: 35,3361 33744 EPSFOUR
029659,000766: 35,3362 03536 RACT3
029660,000767: 35,3363 26323 STOVL RINIT
![]() |
Page 674 |
029662,000769: 35,3364 03544 VACT3
029663,000770: 35,3365 36331 STCALL VINIT
029664,000771: 35,3366 22000 INITVEL
029665,000772: 35,3367 77624 CALL
029666,000773: 35,3370 73447 LOMAT
029667,000774: 35,3371 64375 VLOAD MXV
029668,000775: 35,3372 02366 DELVEET3
029669,000776: 35,3373 00001 0D
029670,000777: 35,3374 77772 VSL1
029671,000778: 35,3375 37434 STCALL DELVLVC
029672,000779: 35,3376 03470 SUBEXIT
029673,000780:
![]() |
Page 675 |
029675,000782: # ..... S34/35.3 .....
029676,000783:
029677,000784: 35,3377 45020 S34/35.3 STQ CALL
029678,000785: 35,3400 03463 NORMEX
029679,000786: 35,3401 73447 LOMAT # GET MATRIX IN PUSH LIST
029680,000787: 35,3402 61375 VLOAD VXM
029681,000788: 35,3403 03434 DELVLVC # NEW DEL V TPI
029682,000789: 35,3404 00001 0D
029683,000790: 35,3405 77772 VSL1
029684,000791: 35,3406 02366 STORE DELVEET3 # SAVE FOR TRANSFORM
029685,000792: 35,3407 63255 VAD PDVL
029686,000793: 35,3410 03544 VACT3 # NEW V REQ
029687,000794: 35,3411 03536 RACT3
029688,000795: 35,3412 65325 PDDL PDDL
029689,000796: 35,3413 03442 TIG
029690,000797: 35,3414 03631 TPASS4
029691,000798: 35,3415 41525 PDDL PUSH
029692,000799: 35,3416 06530 DPPOSMAX
029693,000800: 35,3417 77624 CALL # INTEG. FOR NEW TARGET VEC
029694,000801: 35,3420 73466 INTINT
029695,000802: 35,3421 77775 VLOAD
029696,000803: 35,3422 00001 RATT
029697,000804: 35,3423 03444 STORE RTARG
029698,000805: 35,3424 41575 NOVRWRT VLOAD PUSH
029699,000806: 35,3425 02311 ULOS
029700,000807: 35,3426 57435 VXV VCOMP
029701,000808: 35,3427 02261 UNRM
029702,000809: 35,3430 41456 UNIT PUSH
029703,000810: 35,3431 76435 VXV VSL1
029704,000811: 35,3432 02311 ULOS
029705,000812: 35,3433 77715 PDVL
029706,000813: 35,3434 64315 PDVL MXV
029707,000814: 35,3435 02366 DELVEET3
029708,000815: 35,3436 00001 0D
029709,000816: 35,3437 77772 VSL1
029710,000817: 35,3440 36303 STCALL DVLOS
029711,000818: 35,3441 03463 NORMEX
029712,000819:
![]() |
Page 676 |
029714,000821: # ..... S34/35.4 .....
029715,000822:
029716,000823: 35,3442 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
029717,000824: 35,3443 03463 NORMEX
029718,000825: 35,3444 00001 0D
029719,000826: 35,3445 77650 GOTO
029720,000827: 35,3446 73424 NOVRWRT
029721,000828:
![]() |
Page 677 |
029723,000830: # ..... LOMAT .....
029724,000831:
029725,000832: 35,3447 57575 LOMAT VLOAD VCOMP
029726,000833: 35,3450 02261 UNRM
029727,000834: 35,3451 24007 STOVL 6D # Y
029728,000835: 35,3452 03536 RACT3
029729,000836: 35,3453 57456 UNIT VCOMP
029730,000837: 35,3454 00015 STORE 12D
029731,000838: 35,3455 76435 VXV VSL1
029732,000839: 35,3456 02261 UNRM # Z*-Y
029733,000840: 35,3457 00001 STORE 0D
029734,000841: 35,3460 43401 SETPD RVQ
029735,000842: 35,3461 00023 18D
029736,000843: 35,3462 65325 GOINT PDDL PDDL # DO
029737,000844: 35,3463 06522 ZEROVECS # NOT
029738,000845: 35,3464 02317 NOMTPI
029739,000846: 35,3465 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
029740,000847: 35,3466 45020 INTINT STQ CALL
029741,000848: 35,3467 03465 RTRN
029742,000849: 35,3470 27414 INTSTALL
029743,000850: 35,3471 71214 CLEAR DLOAD
029744,000851: 35,3472 01673 INTYPFLG
029745,000852: 35,3473 43054 BZE SET
029746,000853: 35,3474 73476 +2
029747,000854: 35,3475 01473 INTYPFLG
029748,000855: 35,3476 45545 DLOAD STADR
029749,000856: 35,3477 63736 STODL TDEC1
029750,000857: 35,3500 73014 SET LXA,2
029751,000858: 35,3501 00063 MOONFLAG
029752,000859: 35,3502 02777 RTX2
029753,000860: 35,3503 43014 BON CLEAR
029754,000861: 35,3504 04303 CMOONFLG
029755,000862: 35,3505 73507 ALLSET
029756,000863: 35,3506 00263 MOONFLAG
029757,000864: 35,3507 25517 ALLSET STOVL TET
029758,000865: 35,3510 77657 VSR*
029759,000866: 35,3511 57176 0,2
029760,000867: 35,3512 25535 STOVL RCV
029761,000868: 35,3513 77657 VSR*
029762,000869: 35,3514 57176 0,2
029763,000870: 35,3515 35543 STCALL VCV
029764,000871: 35,3516 27107 INTEGRVS
029765,000872: 35,3517 52175 VLOAD GOTO
029766,000873: 35,3520 00001 RATT
029767,000874: 35,3521 03465 RTRN
029768,000875:
![]() |
Page 678 |
029770,000877: # ..... S34/35.5 .....
029771,000878: # SUBROUTINES USED
029772,000879: # BANKCALL
029773,000880: # GOFLASH
029774,000881: # GOTOPOOH
029775,000882: # S34/35.3
029776,000883: # S34/35.4
029777,000884: # VNPOOH
029778,000885:
029779,000886: 35,3522 43020 S34/35.5 STQ BON
029780,000887: 35,3523 03470 SUBEXIT
029781,000888: 35,3524 01311 FINALFLG
029782,000889: 35,3525 73531 FLAGON
029783,000890: 35,3526 52014 SET GOTO
029784,000891: 35,3527 00470 UPDATFLG
029785,000892: 35,3530 73576 FLAGOFF
029786,000893: 35,3531 77214 FLAGON CLEAR VLOAD
029787,000894: 35,3532 03274 NTARGFLG
029788,000895: 35,3533 03434 DELVLVC
029789,000896: 35,3534 01237 STORE GDT/2
029790,000897: 35,3535 77776 EXIT
029791,000898: 35,3536 33727 +5 CAF V06N81
029792,000899: 35,3537 04616 TC BANKCALL
029793,000900: 35,3540 20476 CADR GOFLASH
029794,000901: 35,3541 06001 TC GOTOPOOH
029795,000902: 35,3542 03544 TC +2 # PRO
029796,000903: 35,3543 03536 TC FLAGON +5 # LOAD
029797,000904: 35,3544 35016 +2 CA EBANK7
029798,000905: 35,3545 54003 TS EBANK # TO BE SURE
029799,000906:
029800,000907: 35,3546 22007 ZL
029801,000908: 35,3547 34756 CA FIVE
029802,000909: 35,3550 54002 NTARGCHK TS Q
029803,000910: 35,3551 50002 INDEX Q
029804,000911: 35,3552 41433 CS DELVLVC
029805,000912: 35,3553 50002 INDEX Q
029806,000913: 35,3554 61236 AD GDT/2
029807,000914: 35,3555 26001 ADS L
029808,000915: 35,3556 10002 CCS Q
029809,000916: 35,3557 13550 TCF NTARGCHK
029810,000917: 35,3560 22000 LXCH A
029811,000918: 35,3561 00006 EXTEND
029812,000919: 35,3562 13565 BZF +3
029813,000920: 35,3563 05504 TC UPFLAG
029814,000921: 35,3564 00146 ADRES NTARGFLG
029815,000922:
029816,000923: 35,3565 06037 TC INTPRET
029817,000924: 35,3566 45014 BOFF CALL
029818,000925: 35,3567 03354 NTARGFLG
![]() |
Page 679 |
029820,000927: 35,3570 73572 NOCHG
029821,000928: 35,3571 73377 S34/35.3
029822,000929: 35,3572 77214 NOCHG CLEAR VLOAD
029823,000930: 35,3573 01267 XDELVFLG
029824,000931: 35,3574 02366 DELVEET3
029825,000932: 35,3575 03656 STORE DELVSIN
029826,000933: 35,3576 77624 FLAGOFF CALL
029827,000934: 35,3577 73442 S34/35.4
029828,000935: 35,3600 77776 EXIT
029829,000936: 35,3601 33726 CAF V06N59
029830,000937: 35,3602 03712 TC VNPOOH
029831,000938: 35,3603 06037 TC INTPRET
029832,000939: 35,3604 77650 GOTO
029833,000940: 35,3605 03470 SUBEXIT
029834,000941:
![]() |
Page 680 |
029836,000943: # ..... VN1645 .....
029837,000944:
029838,000945: # SUBROUTINES USED
029839,000946: # P3XORP7X
029840,000947: # GET+MGA
029841,000948: # BANKCALL
029842,000949: # DELAYJOB
029843,000950: # COMPTGO
029844,000951: # GOFLASHR
029845,000952: # GOTOPOOH
029846,000953: # FLAGUP
029847,000954:
029848,000955: 35,3606 71220 VN1645 STQ DLOAD
029849,000956: 35,3607 03470 SUBEXIT
029850,000957: 35,3610 33742 DP-.01
029851,000958: 35,3611 02253 STORE +MGA # MGA = -.01
029852,000959: 35,3612 71214 BOFF DLOAD
029853,000960: 35,3613 01351 FINALFLG
029854,000961: 35,3614 73634 GET45
029855,000962: 35,3615 33742 DP-.01
029856,000963: 35,3616 77615 DAD
029857,000964: 35,3617 33742 DP-.01
029858,000965: 35,3620 02253 STORE +MGA # MGA = -.02
029859,000966: 35,3621 77414 BOFF EXIT
029860,000967: 35,3622 01742 REFSMFLG
029861,000968: 35,3623 73634 GET45
029862,000969: 35,3624 03704 TC P3XORP7X
029863,000970: 35,3625 03627 TC +2 # P3X
029864,000971: 35,3626 03635 TC GET45 +1 # P7X
029865,000972: 35,3627 06037 TC INTPRET
029866,000973: 35,3630 41575 VLOAD PUSH
029867,000974: 35,3631 03656 DELVSIN
029868,000975: 35,3632 77624 CALL # COMPUTE MGA
029869,000976: 35,3633 15717 GET+MGA
029870,000977: 35,3634 77776 GET45 EXIT
029871,000978: 35,3635 02432 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
029872,000979: 35,3636 31470 CA SUBEXIT
029873,000980: 35,3637 55464 TS QSAVED
029874,000981: 35,3640 34777 CAF 1SEC
029875,000982: 35,3641 04616 TC BANKCALL
029876,000983: 35,3642 01735 CADR DELAYJOB
029877,000984: 35,3643 33730 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
029878,000985: 35,3644 04616 TC BANKCALL
029879,000986: 35,3645 20476 CADR GOFLASH
029880,000987: 35,3646 03651 TC KILCLOCK # TERMINATE
029881,000988: 35,3647 03654 TC N45PROC # PROCEED
029882,000989: 35,3650 03664 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
029883,000990: 35,3651 30005 KILCLOCK CA Z
029884,000991: 35,3652 55163 TS DISPDEX
![]() |
Page 681 |
029886,000993: 35,3653 06001 TC GOTOPOOH
029887,000994: 35,3654 40076 N45PROC CS FLAGWRD2
029888,000995: 35,3655 74746 MASK BIT6
029889,000996: 35,3656 00006 EXTEND
029890,000997: 35,3657 13651 BZF KILCLOCK # FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029891,000998: 35,3660 05353 TC PHASCHNG
029892,000999: 35,3661 04024 OCT 04024
029893,001000: 35,3662 05504 TC UPFLAG # SET
029894,001001: 35,3663 00047 ADRES FINALFLG # FINALFLG
029895,001002: 35,3664 30005 CLUPDATE CA Z
029896,001003: 35,3665 55163 TS DISPDEX
029897,001004: 35,3666 05353 TC PHASCHNG
029898,001005: 35,3667 04024 OCT 04024
029899,001006: 35,3670 06037 TC INTPRET
029900,001007: 35,3671 52014 CLEAR GOTO
029901,001008: 35,3672 00670 UPDATFLG
029902,001009: 35,3673 03464 QSAVED
029903,001010:
![]() |
Page 682 |
029905,001012: # ..... DISPLAYE .....
029906,001013:
029907,001014: # SUBROUTINES USED
029908,001015: # BANKCALL
029909,001016: # GOFLASHR
029910,001017: # GOTOPOOH
029911,001018: # BLANKET
029912,001019: # ENDOFJOB
029913,001020:
029914,001021: 35,3674 00006 DISPLAYE EXTEND
029915,001022: 35,3675 23463 QXCH NORMEX
029916,001023: 35,3676 33724 CAF V06N55
029917,001024: 35,3677 04616 TCR BANKCALL
029918,001025: 35,3700 20476 CADR GOFLASH
029919,001026: 35,3701 16001 TCF GOTOPOOH
029920,001027: 35,3702 01463 TC NORMEX
029921,001028: 35,3703 13676 TCF -5
029922,001029:
![]() |
Page 683 |
029924,001031: # ..... P3XORP7X .....
029925,001032:
029926,001033: 35,3704 37744 P3XORP7X CAF HIGH9
029927,001034: 35,3705 71011 MASK MODREG
029928,001035: 35,3706 00006 EXTEND
029929,001036: 35,3707 13711 BZF +2
029930,001037: 35,3710 24002 INCR Q
029931,001038: 35,3711 00002 RETURN
029932,001039:
029933,001040: # ..... VNPOOH .....
029934,001041:
029935,001042: # SUBROUTINES USED
029936,001043: # BANKCALL
029937,001044: # GOFLASH
029938,001045: # GOTOPOOH
029939,001046:
029940,001047: 35,3712 00006 VNPOOH EXTEND
029941,001048: 35,3713 23465 QXCH RTRN
029942,001049: 35,3714 55615 TS VERBNOUN
029943,001050: 35,3715 31615 CA VERBNOUN
029944,001051: 35,3716 04616 TCR BANKCALL
029945,001052: 35,3717 20476 CADR GOFLASH
029946,001053: 35,3720 16001 TCF GOTOPOOH
029947,001054: 35,3721 01465 TC RTRN
029948,001055: 35,3722 13715 TCF -5
029949,001056:
![]() |
Page 684 |
029951,001058: # ..... CONSTANTS .....
029952,001059:
029953,001060: 35,3723 01445 V06N37 VN 0637
029954,001061: 35,3724 01467 V06N55 VN 0655
029955,001062: 35,3725 01472 V06N58 VN 0658
029956,001063: 35,3726 01473 V06N59 VN 0659
029957,001064: 35,3727 01521 V06N81 VN 0681
029958,001065: 35,3730 04055 V16N45 VN 1645
029959,001066: 35,3731 14441 37325 TWOPI 2DEC 6.283185307 B-4
029960,001067:
029961,001068: 35,3733 00001 20650 MAX250 2DEC 25 E3
029962,001069:
029963,001070: 35,3735 12525 12525 THIRD 2DEC .333333333
029964,001071:
029965,001072: 35,3737 00004 21505 ELEPS 2DEC .27777777 E-3
029966,001073:
029967,001074: 35,3741 77777 DP-.01 OCT 77777 # CONSTANTS
029968,001075: 35,3742 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
029969,001076: 35,3743 01252 25253 EPSFOUR 2DEC .0416666666
029970,001077:
029971,001078: 35,3745 13434 16162 130DEG 2DEC .3611111111
029972,001079:
![]() |
Page 685 |
029974,001081: # ..... INITVEL .....
029975,001082:
029976,001083: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
029977,001084: # MOD BY WHITE.P DATE 21NOV67
029978,001085:
029979,001086: # FUNCTIONAL DESCRIPTION
029980,001087:
029981,001088: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029982,001089: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029983,001090: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
029984,001091: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029985,001092: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029986,001093: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029987,001094: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
029988,001095: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029989,001096: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029990,001097: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029991,001098:
029992,001099: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029993,001100: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029994,001101: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029995,001102: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029996,001103: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029997,001104: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029998,001105: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029999,001106: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030000,001107:
030001,001108: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030002,001109: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030003,001110: # TRAJECTORY COMPUTATIONS.
030004,001111:
030005,001112: # CALLING SEQUENCE
030006,001113:
030007,001114: # L CALL
030008,001115: # L+1 INITVEL
030009,001116: # L+2 (RETURN - ALWAYS)
030010,001117:
030011,001118: # INPUT
030012,001119:
030013,001120: # (1) RINIT INITIAL POSITION RADIUS VECTOR
030014,001121: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
030015,001122: # (3) RTARG TARGET POSITION RADIUS VECTOR
030016,001123: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030017,001124: # (5) INTIME TIME OF RINIT
030018,001125: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030019,001126: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030020,001127: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
030021,001128: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030022,001129: # PUSHLOC SET AT 4D
030023,001130:
![]() |
Page 686 |
030025,001132: # OUTPUT
030026,001133:
030027,001134: # (1) RTARG OFFSET TARGET POSITION VECTOR
030028,001135: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
030029,001136: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
030030,001137: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
030031,001138:
030032,001139: # SUBROUTINES USED
030033,001140:
030034,001141: # LAMBERT
030035,001142: # INTSTALL
030036,001143: # INTEGRVS
030037,001144:
030038,001145: 11,2000 SETLOC INTVEL
030039,001146: 11,2000 BANK
030040,001147:
030041,001148: 11,2000 COUNT* $$/INITV
030042,001149: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
030043,001150: 11,2001 00475 GUESSW
030044,001151: 11,2002 44175 HAVEGUES VLOAD STQ
030045,001152: 11,2003 03444 RTARG
030046,001153: 11,2004 03463 NORMEX
030047,001154: 11,2005 03472 STORE RTARG1
030048,001155: 11,2006 77646 ABVAL
030049,001156: 11,2007 03723 STORE RTMAG
030050,001157: 11,2010 46135 SLOAD BHIZ
030051,001158: 11,2011 03000 RTX2
030052,001159: 11,2012 22026 INITVEL1
030053,001160: 11,2013 72575 VLOAD VSL2
030054,001161: 11,2014 02323 RINIT # B29
030055,001162: 11,2015 26323 STOVL RINIT # B27
030056,001163: 11,2016 02331 VINIT # B7
030057,001164: 11,2017 77752 VSL2
030058,001165: 11,2020 26331 STOVL VINIT # B5
030059,001166: 11,2021 03472 RTARG1
030060,001167: 11,2022 77752 VSL2
030061,001168: 11,2023 03472 STORE RTARG1
030062,001169: 11,2024 77646 ABVAL
030063,001170: 11,2025 03723 STORE RTMAG
030064,001171:
030065,001172: # INITIALIZATION
030066,001173:
030067,001174: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
030068,001175: 11,2027 03617 ITCTR
030069,001176: 11,2030 77776 0 -1
030070,001177: 11,2031 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
030071,001178: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
030072,001179: 11,2033 67154 LXA,2 SXA,2
030073,001180: 11,2034 00154 MPAC
030074,001181: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
030075,001182: 11,2036 77775 VLOAD
![]() |
Page 687 |
030077,001184: 11,2037 02323 RINIT
030078,001185: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT
030079,001186: 11,2041 03472 RTARG1
030080,001187: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG
030081,001188: 11,2043 03452 DELLT4
030082,001189: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4
030083,001190: 11,2045 77201 SETPD VLOAD
030084,001191: 11,2046 00001 0D # INITIALIZE PL TO 0D
030085,001192: 11,2047 02323 RINIT # MPAC EQ RINIT (+29)
030086,001193: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
030087,001194: 11,2051 53435 VXV UNIT
030088,001195: 11,2052 02331 VINIT # MPAC EQ UNIT(RI) X VI (+8)
030089,001196: 11,2053 26674 STOVL UN
030090,001197: 11,2054 03472 RTARG1
030091,001198: 11,2055 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
030092,001199: 11,2056 43015 DAD CLEAR
030093,001200: 11,2057 03667 COZY4
030094,001201: 11,2060 03665 NORMSW
030095,001202: 11,2061 03667 STORE COZY4
030096,001203: 11,2062 43044 INITVEL2 BPL SET
030097,001204: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT
030098,001205: 11,2064 03465 NORMSW
030099,001206:
030100,001207: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030101,001208:
030102,001209: 11,2065 41575 VLOAD PUSH # (PL 6D)
030103,001210: 11,2066 02663 R2VEC # RC TO 6D (+29)
030104,001211: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
030105,001212: 11,2070 46206 PUSH VPROJ # (PL 8D)
030106,001213: 11,2071 02674 UN
030107,001214: 11,2072 51352 VSL2 BVSU
030108,001215: 11,2073 74256 UNIT VXSC # (PL 0D)
030109,001216: 11,2074 77772 VSL1
030110,001217: 11,2075 02663 STORE R2VEC
030111,001218: 11,2076 67351 TLOAD SLOAD
030112,001219: 11,2077 24007 ZEROVEC
030113,001220: 11,2100 03617 ITCTR
030114,001221: 11,2101 77244 BPL VLOAD
030115,001222: 11,2102 22105 INITVEL3
030116,001223: 11,2103 02663 R2VEC
030117,001224: 11,2104 03472 STORE RTARG1
030118,001225: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D)
030119,001226: 11,2106 26007 MUEARTH # POSITIVE VALUE
030120,001227: 11,2107 02663 R2VEC
030121,001228: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
030122,001229: 11,2111 02655 R1VEC
030123,001230: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
030124,001231: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
030125,001232: 11,2114 00003 2D
030126,001233: 11,2115 77606 PUSH # (PL 20D)
030127,001234: 11,2116 71350 LXA,1 DLOAD
![]() |
Page 688 |
030129,001236: 11,2117 02776 RTX1
030130,001237: 11,2120 00023 18D
030131,001238: 11,2121 62040 BMN INCR,1
030132,001239: 11,2122 22124 +2
030133,001240: 11,2123 77767 DEC -8 B-14
030134,001241: 11,2124 67310 INCR,1 SLOAD
030135,001242: 11,2125 00012 10D
030136,001243: 11,2126 00047 X1
030137,001244: 11,2127 77230 BHIZ VLOAD # (PL 14D)
030138,001245: 11,2130 22132 +2
030139,001246: 11,2131 41476 VCOMP PUSH # (PL 20D)
030140,001247: 11,2132 77775 VLOAD # (PL 14D)
030141,001248: 11,2133 50235 VXV DOT # (PL 2D)
030142,001249: 11,2134 71244 BPL DLOAD # (PL 0D)
030143,001250: 11,2135 22137 INITVEL4
030144,001251: 11,2136 41476 DCOMP PUSH # (PL 2D)
030145,001252: 11,2137 67154 INITVEL4 LXA,2 SXA,2
030146,001253: 11,2140 00000 0D
030147,001254: 11,2141 02672 GEOMSGN
030148,001255:
030149,001256: # SET INPUTS UP FOR LAMBERT
030150,001257:
030151,001258: 11,2142 45150 LXA,1 CALL
030152,001259: 11,2143 02776 RTX1
030153,001260:
030154,001261: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030155,001262:
030156,001263: 11,2144 23765 SETITCTR # GO TO END OF BANK TO SET ITERCTR BEFORE
030157,001264: # CALLING LAMBERT (FOR REMANUFACTURE ONLY)
030158,001265:
030159,001266: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030160,001267:
030161,001268: 11,2145 77214 CLEAR VLOAD
030162,001269: 11,2146 00675 GUESSW
030163,001270: 11,2147 02744 VVEC
030164,001271:
030165,001272: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030166,001273:
030167,001274: 11,2150 16337 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
030168,001275:
030169,001276: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030170,001277: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030171,001278:
030172,001279: 11,2151 02702 VTARGTAG
030173,001280: 11,2152 45030 BHIZ CALL
030174,001281: 11,2153 22230 INITVEL7
030175,001282: 11,2154 27414 INTSTALL
030176,001283: 11,2155 43135 SLOAD CLEAR
030177,001284: 11,2156 03000 RTX2
030178,001285: 11,2157 00263 MOONFLAG
030179,001286: 11,2160 43030 BHIZ SET
030180,001287: 11,2161 22163 INITVEL5
![]() |
Page 689 |
030182,001289: 11,2162 00063 MOONFLAG
030183,001290: 11,2163 77775 INITVEL5 VLOAD
030184,001291: 11,2164 02323 RINIT
030185,001292: 11,2165 02655 STORE R1VEC
030186,001293: 11,2166 25535 STOVL RCV
030187,001294: 11,2167 02337 VIPRIME
030188,001295: 11,2170 15543 STODL VCV
030189,001296: 11,2171 03610 INTIME
030190,001297: 11,2172 01517 STORE TET
030191,001298: 11,2173 43015 DAD CLEAR
030192,001299: 11,2174 03452 DELLT4
030193,001300: 11,2175 01673 INTYPFLG
030194,001301: 11,2176 34041 STCALL TDEC1
030195,001302: 11,2177 27107 INTEGRVS
030196,001303: 11,2200 77775 VLOAD
030197,001304: 11,2201 00025 VATT1
030198,001305: 11,2202 02703 STORE VTARGET
030199,001306:
030200,001307: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030201,001308: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030202,001309:
030203,001310: 11,2203 63154 LXA,2 INCR,2
030204,001311: 11,2204 03616 ITCTR
030205,001312: 11,2205 00001 1D # INCREMENT ITCTR
030206,001313: 11,2206 55134 SXA,2 XSU,2
030207,001314: 11,2207 03616 ITCTR
030208,001315: 11,2210 02701 VTARGTAG
030209,001316: 11,2211 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030210,001317: 11,2212 00050 X2
030211,001318: 11,2213 22225 INITVEL6
030212,001319:
030213,001320: # OFFSET CONIC TARGET VECTOR
030214,001321:
030215,001322: 11,2214 52375 VLOAD VSU
030216,001323: 11,2215 03472 RTARG1
030217,001324: 11,2216 00017 RATT1
030218,001325: 11,2217 77655 VAD
030219,001326: 11,2220 02663 R2VEC
030220,001327: 11,2221 16663 STODL R2VEC
030221,001328: 11,2222 03667 COZY4
030222,001329: 11,2223 77650 GOTO
030223,001330: 11,2224 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2
030224,001331:
030225,001332: # COMPUTE THE DELTA VELOCITY
030226,001333:
030227,001334: 11,2225 77775 INITVEL6 VLOAD
030228,001335: 11,2226 02663 R2VEC
030229,001336: 11,2227 03472 STORE RTARG1
030230,001337: 11,2230 52375 INITVEL7 VLOAD VSU
030231,001338: 11,2231 02337 VIPRIME
030232,001339: 11,2232 02331 VINIT
030233,001340: 11,2233 26366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
![]() |
Page 690 |
030235,001342: 11,2234 02703 VTARGET
030236,001343: 11,2235 03566 STORE VTPRIME
030237,001344: 11,2236 46135 SLOAD BHIZ
030238,001345: 11,2237 03000 RTX2
030239,001346: 11,2240 22255 INITVELX
030240,001347: 11,2241 70575 VLOAD VSR2
030241,001348: 11,2242 03566 VTPRIME
030242,001349: 11,2243 27566 STOVL VTPRIME
030243,001350: 11,2244 02337 VIPRIME
030244,001351: 11,2245 77742 VSR2
030245,001352: 11,2246 26337 STOVL VIPRIME
030246,001353: 11,2247 03472 RTARG1
030247,001354: 11,2250 77742 VSR2
030248,001355: 11,2251 27472 STOVL RTARG1
030249,001356: 11,2252 02366 DELVEET3
030250,001357: 11,2253 77742 VSR2
030251,001358: 11,2254 02366 STORE DELVEET3
030252,001359: 11,2255 70750 INITVELX LXA,1 DLOAD*
030253,001360: 11,2256 02776 RTX1
030254,001361: 11,2257 10003 MUTABLE -2,1
030255,001362: 11,2260 41206 PUSH DMP
030256,001363: 11,2261 02742 R1A
030257,001364: 11,2262 56342 SR1 DDV
030258,001365: 11,2263 00041 R1
030259,001366: 11,2264 17721 STODL MU/A
030260,001367: 11,2265 77661 SR
030261,001368: 11,2266 20607 6
030262,001369: 11,2267 03717 STORE MUASTEER
030263,001370: 11,2270 77201 SETPD VLOAD
030264,001371: 11,2271 00001 0D
030265,001372: 11,2272 03472 RTARG1
030266,001373: 11,2273 37444 STCALL RTARG
030267,001374: 11,2274 03463 NORMEX
030268,001375:
030269,001376: # ..... END OF INITVEL ROUTINE .....
030270,001377:
![]() |
Page 691 |
030272,001379: # ..... MIDGIM .....
030273,001380:
030274,001381: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030275,001382: # REVISION 03, 17 FEB 67
030276,001383:
030277,001384: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030278,001385: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030279,001386: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
030280,001387: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030281,001388: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030282,001389:
030283,001390: # .. INPUTS ..
030284,001391:
030285,001392: # NAME MEANING UNITS/SCALING/MODE
030286,001393:
030287,001394: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
030288,001395: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
030289,001396: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
030290,001397: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
030291,001398:
030292,001399: # .. OUTPUTS ..
030293,001400:
030294,001401: # NAME MEANING UNITS/SCALING/MODE
030295,001402:
030296,001403: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
030297,001404: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
030298,001405: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
030299,001406:
030300,001407: # .. CALLING SEQUENCE ..
030301,001408:
030302,001409: # L CALL
030303,001410: # L+1 MIDGIM
030304,001411: # L+2 (RETURN - ALWAYS)
030305,001412:
030306,001413: # .. NO SUBROUTINES CALLED ..
030307,001414:
030308,001415: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
030309,001416:
030310,001417: # A,Q,L, PUSH LIST, MPAC.
030311,001418:
030312,001419: # .. ALARMS - NONE ..
030313,001420:
![]() |
Page 692 |
030315,001422: # MIDDLE GIMBAL ANGLE COMPUTATION.
030316,001423:
030317,001424: 06,2000 SETLOC MIDDGIM
030318,001425: 06,2000 BANK
030319,001426:
030320,001427: 06,3715 COUNT* $$/MIDG
030321,001428:
030322,001429: 06,3715 20000 00000 HALFREV 2DEC 1 B-1
030323,001430:
030324,001431: 06,3717 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
030325,001432: 06,3720 77656 UNIT
030326,001433: 06,3721 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030327,001434: 06,3722 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
030328,001435: 06,3723 51136 ARCSIN BPL
030329,001436: 06,3724 15730 SETMGA
030330,001437: 06,3725 43215 DAD DAD # CONVERT -MGA TO +MGA BY
030331,001438: 06,3726 15716 HALFREV # ADDING ONE REVOLUTION
030332,001439: 06,3727 15716 HALFREV
030333,001440: 06,3730 02253 SETMGA STORE +MGA
030334,001441: 06,3731 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
030335,001442: 06,3732 02675 MGLVFLAG # AND EXIT
030336,001443: 06,3733 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
030337,001444: 06,3734 02323 RINIT
030338,001445: 06,3735 77676 VCOMP # U(-R)
030339,001446: 06,3736 00023 STORE 18D # U(-R) TO 18D
030340,001447: 06,3737 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
030341,001448: 06,3740 02331 VINIT
030342,001449: 06,3741 00015 STORE 12D # U(V*R) TO 12D
030343,001450: 06,3742 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
030344,001451: 06,3743 00023 18D
030345,001452: 06,3744 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
030346,001453: 06,3745 00001 0D # DELTA V (+7) IN 0D
030347,001454: 06,3746 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
030348,001455: 06,3747 00007 6D # AND SCALE +7 IN MPAC
030349,001456: 06,3750 03434 STORE DELVLVC # STORE IN DELVLVC (+7)
030350,001457: 06,3751 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
030351,001458: 06,3752 02475 MGLVFLAG # AND EXIT
030352,001459:
030353,001460: # ..... END OF MIDGIM ROUTINE .....
030354,001461:
![]() |
Page 693 |
030356,001463: 10,2000 BANK 10
030357,001464: 10,2000 SETLOC SLCTMU
030358,001465: 10,2000 BANK
030359,001466: 10,2000 COUNT* $$/MIDG
030360,001467:
030361,001468: 10,2000 77160 SELECTMU AXC,1 AXT,2
030362,001469: 10,2001 00002 2D
030363,001470: 10,2002 00000 0D
030364,001471: 10,2003 77614 BOFF
030365,001472: 10,2004 04343 CMOONFLG
030366,001473: 10,2005 20011 SETMUER
030367,001474: 10,2006 77160 AXC,1 AXT,2
030368,001475: 10,2007 00012 10D
030369,001476: 10,2010 00002 2D
030370,001477: 10,2011 66143 SETMUER DLOAD* SXA,1
030371,001478: 10,2012 10011 MUTABLE +4,1
030372,001479: 10,2013 02776 RTX1
030373,001480: 10,2014 22317 STODL* RTSR1/MU
030374,001481: 10,2015 10003 MUTABLE -2,1
030375,001482: 10,2016 54214 BOFF SR
030376,001483: 10,2017 04343 CMOONFLG
030377,001484: 10,2020 20022 RTRNMU
030378,001485: 10,2021 20607 6D
030379,001486: 10,2022 02321 RTRNMU STORE RTMU
030380,001487: 10,2023 43134 SXA,2 CLEAR
030381,001488: 10,2024 02777 RTX2
030382,001489: 10,2025 01271 FINALFLG
030383,001490: 10,2026 77650 GOTO
030384,001491: 10,2027 73606 VN1645
030385,001492:
![]() |
Page 694 |
030387,001494: # ..... PERIAPO .....
030388,001495:
030389,001496: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
030390,001497: # MOD BY WHITE.P DATE 18JAN68
030391,001498:
030392,001499: # FUNCTIONAL DESCRIPTION
030393,001500:
030394,001501: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030395,001502: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030396,001503: # THE TRAJECTORY AND THE PRIMARY BODY.
030397,001504:
030398,001505: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
030399,001506:
030400,001507: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030401,001508: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030402,001509:
030403,001510: # CALLING SEQUENCE
030404,001511:
030405,001512: # L CALL
030406,001513: # L+1 PERIAPO
030407,001514: # L+2 (RETURN - ALWAYS)
030408,001515:
030409,001516: # INPUT
030410,001517:
030411,001518: # (1) RVEC POSITION VECTOR IN METERS
030412,001519: # SCALE FACTOR - EARTH +29, MOON +27
030413,001520: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
030414,001521: # SCALE FACTOR - EARTH +7, MOON +5
030415,001522: # (3) X1 PRIMARY BODY INDICATOR
030416,001523: # EARTH -2, MOON -10
030417,001524:
030418,001525: # OUTPUT
030419,001526:
030420,001527: # (1) 2D APOCENTER RADIUS IN METERS
030421,001528: # SCALE FACTOR - EARTH +29, MOON +27
030422,001529: # (2) 4D APOCENTER ALTITUDE IN METERS
030423,001530: # SCALE FACTOR - EARTH +29, MOON P27
030424,001531: # (3) 6D PERICENTER RADIUS IN METERS
030425,001532: # SCALE FACTOR - EARTH +29, MOON +27
030426,001533: # (4) 8D PERICENTER ALTITUDE IN METERS
030427,001534: # SCALE FACTOR - EARTH +29, MOON +27
030428,001535: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
030429,001536: # SCALE FACTOR - +3
030430,001537: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
030431,001538: # SCALE FACTOR - EARTH +29, MOON +27
030432,001539: # (7) PUSHLOC EQUALS 10D
030433,001540:
030434,001541: # SUBROUTINES USED
030435,001542:
030436,001543: # SETRAD
![]() |
Page 695 |
030438,001545: # APSIDES
030439,001546:
030440,001547: 23,2000 SETLOC APOPERI
030441,001548: 23,2000 BANK
030442,001549:
030443,001550: 23,2314 COUNT* $$/PERAP
030444,001551:
030445,001552: 23,2314 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
030446,001553: # = 20 909 901.57 FT
030447,001554:
030448,001555: 23,2316 53754 PERIAPO1 LXA,2 VSR*
030449,001556: 23,2317 02777 RTX2
030450,001557: 23,2320 57176 0,2
030451,001558: 23,2321 26744 STOVL VVEC
030452,001559: 23,2322 53750 LXA,1 VSR*
030453,001560: 23,2323 02776 RTX1
030454,001561: 23,2324 57176 0,2
030455,001562: 23,2325 02655 STORE RVEC
030456,001563: 23,2326 45020 PERIAPO STQ CALL
030457,001564: 23,2327 03463 NORMEX
030458,001565: 23,2330 46344 SETRAD
030459,001566: 23,2331 37671 STCALL XXXALT
030460,001567: 23,2332 25674 APSIDES
030461,001568: 23,2333 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
030462,001569: 23,2334 00003 2D
030463,001570: 23,2335 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
030464,001571: 23,2336 03671 XXXALT
030465,001572: 23,2337 00001 0D
030466,001573: 23,2340 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
030467,001574: 23,2341 03671 XXXALT
030468,001575: 23,2342 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
030469,001576: 23,2343 03463 NORMEX
030470,001577:
![]() |
Page 696 |
030472,001579: # SETRAD
030473,001580:
030474,001581: 23,2344 41545 SETRAD DLOAD PUSH
030475,001582: 23,2345 06315 RPAD
030476,001583: 23,2346 63130 SXA,1 INCR,2
030477,001584: 23,2347 00047 X2
030478,001585: 23,2350 00002 2D
030479,001586: 23,2351 46135 SLOAD BHIZ
030480,001587: 23,2352 00050 X2
030481,001588: 23,2353 46357 SETRADX
030482,001589: 23,2354 51575 VLOAD ABVAL
030483,001590: 23,2355 02023 RLS
030484,001591: 23,2356 77725 PDDL
030485,001592: 23,2357 43545 SETRADX DLOAD RVQ
030486,001593:
![]() |
Page 697 |
030488,001595: # PRECSET
030489,001596:
030490,001597: 23,2360 77620 PRECSET STQ
030491,001598: 23,2361 03463 NORMEX
030492,001599: 23,2362 37574 STCALL TDEC2
030493,001600: 23,2363 27057 LEMPREC
030494,001601: 23,2364 77624 CALL
030495,001602: 23,2365 46376 LEMSTORE
030496,001603: 23,2366 77745 DLOAD
030497,001604: 23,2367 03574 TDEC2
030498,001605: 23,2370 34041 STCALL TDEC1
030499,001606: 23,2371 27043 CSMPREC
030500,001607: 23,2372 77624 CALL
030501,001608: 23,2373 46406 CSMSTORE
030502,001609: 23,2374 77650 GOTO
030503,001610: 23,2375 03463 NORMEX
030504,001611: 23,2376 43175 LEMSTORE VLOAD BOFF
030505,001612: 23,2377 00001 RATT
030506,001613: 23,2400 01352 AVFLAG
030507,001614: 23,2401 46412 PASSIVE
030508,001615: 23,2402 27536 ACTIVE STOVL RACT3
030509,001616: 23,2403 00007 VATT
030510,001617: 23,2404 03544 STORE VACT3
030511,001618: 23,2405 77616 RVQ
030512,001619: 23,2406 43175 CSMSTORE VLOAD BOFF
030513,001620: 23,2407 00001 RATT
030514,001621: 23,2410 01352 AVFLAG
030515,001622: 23,2411 46402 ACTIVE
030516,001623: 23,2412 27552 PASSIVE STOVL RPASS3
030517,001624: 23,2413 00007 VATT
030518,001625: 23,2414 03560 STORE VPASS3
030519,001626: 23,2415 77616 RVQ
030520,001627:
![]() |
Page 698 |
030522,001629: # VECSHIFT
030523,001630:
030524,001631: 23,2416 53754 VECSHIFT LXA,2 VSR*
030525,001632: 23,2417 02777 RTX2
030526,001633: 23,2420 57176 0,2
030527,001634: 23,2421 63350 LXA,1 PDVL
030528,001635: 23,2422 02776 RTX1
030529,001636: 23,2423 63257 VSR* PDVL
030530,001637: 23,2424 57176 0,2
030531,001638: 23,2425 77616 RVQ
030532,001639:
![]() |
Page 699 |
030534,001641: # SHIFTR1
030535,001642:
030536,001643: 23,2426 53754 SHIFTR1 LXA,2 SL*
030537,001644: 23,2427 02777 RTX2
030538,001645: 23,2430 57576 0,2
030539,001646: 23,2431 77616 RVQ
030540,001647:
![]() |
Page 700 |
030542,001649: # PROGRAM DESCRIPTION
030543,001650: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
030544,001651: # MOD NO. 0 DATE 22 DECEMBER 67
030545,001652: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
030546,001653: # FUNCTIONAL DESCRIPTION
030547,001654:
030548,001655: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030549,001656: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY).
030550,001657:
030551,001658: # CALLING SEQUENCE
030552,001659:
030553,001660: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
030554,001661:
030555,001662: # SUBROUTINES CALLED
030556,001663:
030557,001664: # EXDSPRET
030558,001665: # GOMARKF
030559,001666: # CSMPREC
030560,001667: # LEMPREC
030561,001668: # SGNAGREE
030562,001669: # LOADTIME
030563,001670:
030564,001671: # NORMAL EXIT MODES
030565,001672:
030566,001673: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030567,001674:
030568,001675: # ALARM OR ABORT EXIT MODES
030569,001676:
030570,001677: # NONE
030571,001678:
030572,001679: # OUTPUT
030573,001680:
030574,001681: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
030575,001682:
030576,001683: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
030577,001684: # REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
030578,001685:
030579,001686: # ERASABLE INITIALIZATION REQUIRED
030580,001687:
030581,001688: # CSM AND LEM STATE VECTORS
030582,001689:
030583,001690: # DEBRIS
030584,001691:
030585,001692: # CENTRALS A,Q,L
030586,001693: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030587,001694:
030588,001695: 20,2115 BANK 20
030589,001696: 04,2000 SETLOC R36LM
030590,001697: 04,2000 BANK
![]() |
Page 701 |
030592,001699: 04,2656 E4,1606 EBANK= RPASS36
030593,001700:
030594,001701: 04,2656 COUNT* $$/R36
030595,001702:
030596,001703: 04,2656 22007 R36 ZL
030597,001704: 04,2657 34755 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
030598,001705: 04,2660 53052 DXCH DSPTEMX # DISPLAY
030599,001706: 04,2661 33011 CAF V06N16N
030600,001707: 04,2662 04616 TC BANKCALL
030601,001708: 04,2663 20334 CADR GOMARKF
030602,001709: 04,2664 15472 TCF ENDEXT # TERMINATE
030603,001710: 04,2665 12667 TCF +2 # PROCEED
030604,001711: 04,2666 12661 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
030605,001712: 04,2667 53052 DXCH DSPTEMX
030606,001713: 04,2670 00006 EXTEND
030607,001714: 04,2671 13000 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
030608,001715: 04,2672 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
030609,001716: 04,2673 06037 TC INTPRET
030610,001717: 04,2674 77634 RTB
030611,001718: 04,2675 21716 DPMODE
030612,001719: 04,2676 34041 R36INT STCALL TDEC1
030613,001720: 04,2677 27043 OTHPREC
030614,001721: 04,2700 63375 VLOAD PDVL
030615,001722: 04,2701 00007 VATT
030616,001723: 04,2702 00001 RATT # -
030617,001724: 04,2703 02207 STORE RPASS36 # R
030618,001725: 04,2704 63256 UNIT PDVL # P
030619,001726: 04,2705 53435 VXV UNIT
030620,001727: 04,2706 77626 STADR # -
030621,001728: 04,2707 61562 STODL UNP36 # U
030622,001729: 04,2710 00015 TAT
030623,001730: 04,2711 34041 STCALL TDEC1
030624,001731: 04,2712 27057 THISPREC
030625,001732: 04,2713 63375 VLOAD PDVL # -
030626,001733: 04,2714 00007 VATT # VELOCITY VECTOR V 00D
030627,001734: 04,2715 00001 RATT # A
030628,001735: 04,2716 77725 PDDL
030629,001736: 04,2717 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
030630,001737: 04,2720 24037 STOVL 30D # -
030631,001738: 04,2721 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
030632,001739: 04,2722 63245 BVSU PDVL # A - -
030633,001740: 04,2723 02207 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
030634,001741: 04,2724 72441 DOT SL1 # P A
030635,001742: 04,2725 02215 UNP36 # - -
030636,001743: 04,2726 26201 STOVL RANGE # Y = U . R
030637,001744: 04,2727 00001 00D # A
030638,001745: 04,2730 72441 DOT SL1
030639,001746: 04,2731 02215 UNP36 # . - -
030640,001747: 04,2732 26203 STOVL RRATE # Y = U . V
030641,001748: 04,2733 00007 06D # - A -
![]() |
Page 702 |
030643,001750: 04,2734 41456 UNIT PUSH # U = UNIT ( R ) 18D
030644,001751: 04,2735 47235 VXV VXV # RA A
030645,001752: 04,2736 00001 00D # - - - -
030646,001753: 04,2737 00023 18D # (U X V ) X U = U
030647,001754: 04,2740 53552 VSL2 UNIT # RA A RA A
030648,001755: 04,2741 77656 UNIT
030649,001756: 04,2742 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
030650,001757: 04,2743 00023 18D
030651,001758: 04,2744 74241 DOT VXSC # -
030652,001759: 04,2745 00015 12D # U
030653,001760: 04,2746 77752 VSL2 # L
030654,001761: 04,2747 53445 BVSU UNIT
030655,001762: 04,2750 77656 UNIT
030656,001763: 04,2751 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
030657,001764: 04,2752 00001 00D # PLANE
030658,001765: 04,2753 65552 SL1 ARCCOS # - -
030659,001766: 04,2754 26205 STOVL RTHETA # PSI = ARCCOS(U . U )
030660,001767: 04,2755 50235 VXV DOT # A L
030661,001768: 04,2756 00001 00D
030662,001769: 04,2757 71244 BPL DLOAD
030663,001770: 04,2760 10765 R36TAG2
030664,001771: 04,2761 24020 LODPMAX
030665,001772: 04,2762 77625 DSU
030666,001773: 04,2763 02205 RTHETA
030667,001774: 04,2764 02205 STORE RTHETA
030668,001775: 04,2765 47145 R36TAG2 DLOAD RTB
030669,001776: 04,2766 00037 30D
030670,001777: 04,2767 21612 SGNAGREE
030671,001778: 04,2770 01052 STORE DSPTEMX
030672,001779: 04,2771 77776 EXIT
030673,001780: 04,2772 33012 CAF V06N90N # DISPLAY Y, YDOT, AND PSI
030674,001781: 04,2773 04616 TC BANKCALL
030675,001782: 04,2774 20334 CADR GOMARKF
030676,001783: 04,2775 15472 TCF ENDEXT # TERMINATE
030677,001784: 04,2776 15472 TCF ENDEXT # PROCEED, END OF PROGRAM
030678,001785: 04,2777 12661 TCF R36 +3 # REDISPLAY OUTPUT
030679,001786: 04,3000 56001 LREGCHK XCH L
030680,001787: 04,3001 00006 EXTEND
030681,001788: 04,3002 13005 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
030682,001789: 04,3003 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
030683,001790: 04,3004 12672 TCF ASTROTIM
030684,001791: 04,3005 06037 ENTTIM2 TC INTPRET
030685,001792: 04,3006 52034 RTB GOTO
030686,001793: 04,3007 21573 LOADTIME
030687,001794: 04,3010 10676 R36INT
030688,001795: 04,3011 01420 V06N16N VN 00616
030689,001796: 04,3012 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc