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