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