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