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