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