Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 116 (the Apollo 12
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Ron Burkey, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071 19:09 AUG. 11,1969Note that the date is the date of the printout, not the date of the program revision. |
028102,000002: ## Copyright: Public domain.
028103,000003: ## Filename: P34-P35,_P74-P75.agc
028104,000004: ## Purpose: A section of Luminary revision 116.
028105,000005: ## It is part of the source code for the Lunar Module's (LM)
028106,000006: ## Apollo Guidance Computer (AGC) for Apollo 12.
028107,000007: ## This file is intended to be a faithful transcription, except
028108,000008: ## that the code format has been changed to conform to the
028109,000009: ## requirements of the yaYUL assembler rather than the
028110,000010: ## original YUL assembler.
028111,000011: ## Reference: pp. 658-702
028112,000012: ## Assembler: yaYUL
028113,000013: ## Contact: Ron Burkey <info@sandroid.org>.
028114,000014: ## Website: www.ibiblio.org/apollo/index.html
028115,000015: ## Mod history: 2017-01-22 MAS Created from Luminary 99.
028116,000016: ## 2017-01-28 RSB Back-ported some comment fixes I noticed while
028117,000017: ## proofing Luminary 69.
028118,000018: ## 2017-03-09 RSB Transcribed, and then proofed comment-text using
028119,000019: ## 3-way diff vs Luminary 99 and Luminary 131.
028120,000020: ## (Admittedly, the former is more for detecting errors
028121,000021: ## in Luminary 99 than the other way around.)
028122,000022: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
028123,000023: ## side-by-side diff of Luminary 69/99/116/131/210.
028124,000024:
|
|
Page 658 |
028126,000026: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028127,000027:
028128,000028: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028129,000029: # MOD BY WHITE.P DATE 1JUNE67
028130,000030:
028131,000031: # PURPOSE
028132,000032:
028133,000033: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028134,000034: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028135,000035: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
028136,000036:
028137,000037: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028138,000038: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028139,000039:
028140,000040: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028141,000041: # INTERCEPT TIME (TIG (TPF)).
028142,000042:
028143,000043: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028144,000044:
028145,000045: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028146,000046: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028147,000047:
028148,000048: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028149,000049: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028150,000050: # ASTRONAUT/GROUND.
028151,000051:
028152,000052: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028153,000053: # THRUSTING PROGRAM.
028154,000054:
028155,000055: # ASSUMPTIONS
028156,000056:
028157,000057: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028158,000058: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028159,000059: # THEREFORE -
028160,000060:
028161,000061: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028162,000062: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028163,000063: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028164,000064: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028165,000065:
028166,000066: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028167,000067: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028168,000068:
028169,000069: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028170,000070: # ORBITS WAS MINIMIZED.
028171,000071:
028172,000072: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028173,000073: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
|
|
Page 659 |
028175,000075: # ORBIT OR 85 NM FOR EARTH ORBIT.
028176,000076:
028177,000077: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028178,000078: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
028179,000079: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028180,000080: # IN AN OUT-OF-PLANE MANEUVER.
028181,000081:
028182,000082: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028183,000083: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028184,000084:
028185,000085: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028186,000086: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
028187,000087: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028188,000088: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028189,000089: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028190,000090: # FLIGHT PLAN MANEUVER SEQUENCES.
028191,000091:
028192,000092: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028193,000093: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
028194,000094: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028195,000095: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
028196,000096: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028197,000097: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
028198,000098: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028199,000099: # THRUSTING MANEUVER.
028200,000100:
028201,000101: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028202,000102:
028203,000103: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028204,000104:
028205,000105: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028206,000106: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028207,000107: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028208,000108: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028209,000109:
028210,000110: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028211,000111: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028212,000112:
028213,000113: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028214,000114: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028215,000115: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028216,000116:
028217,000117: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028218,000118: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028219,000119: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028220,000120: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028221,000121: # THROUGH THE USE OF V06N52.
028222,000122:
028223,000123: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028224,000124: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
|
|
Page 660 |
028226,000126: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
028227,000127: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028228,000128: # UPON DELTA V AND EXPECTED MANEUVER TIME.
028229,000129:
028230,000130: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028231,000131:
028232,000132: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028233,000133:
028234,000134: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028235,000135:
028236,000136: # INPUT
028237,000137:
028238,000138: # (1) TTPI TIME OF THE TPI MANEUVER
028239,000139: # (2) ELEV DESIRED LOS ANGLE AT TPI
028240,000140: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028241,000141: # TRANSFER FROM TPI TO TIME OF INTERCEPT
028242,000142:
028243,000143: # OUTPUT
028244,000144:
028245,000145: # (1) TRKMKCNT NUMBER OF MARKS
028246,000146: # (2) TTOGO TIME TO GO
028247,000147: # (3) +MGA MIDDLE GIMBAL ANGLE
028248,000148: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
028249,000149: # OR
028250,000150: # ELEV COMPUTED LOS ANGLE AT TPI
028251,000151: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028252,000152: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
028253,000153: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
028254,000154: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
028255,000155: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028256,000156:
028257,000157: # DOWNLINK
028258,000158:
028259,000159: # (1) TTPI TIME OF THE TPI MANEUVER
028260,000160: # (2) TIG TIME OF THE TPI MANEUVER
028261,000161: # (3) ELEV DESIRED LOS ANGLE AT TPI
028262,000162: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028263,000163: # TRANSFER FROM TPI TO TIME OF INTERCEPT
028264,000164: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028265,000165: # (6) TPASS4 TIME OF INTERCEPT
028266,000166:
028267,000167: # COMMUNICATION TO THRUSTING PROGRAMS
028268,000168:
028269,000169: # (1) TIG TIME OF THE TPI MANEUVER
028270,000170: # (2) RTARG OFFSET TARGET POSITION
028271,000171: # (3) TPASS4 TIME OF INTERCEPT
028272,000172: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028273,000173:
028274,000174: # SUBROUTINES USED
028275,000175:
028276,000176: # AVFLAGA
|
|
Page 661 |
028278,000178: # AVFLAGP
028279,000179: # VNPOOH
028280,000180: # DISPLAYE
028281,000181: # SELECTMU
028282,000182: # PRECSET
028283,000183: # S33/34.1
028284,000184: # ALARM
028285,000185: # BANKCALL
028286,000186: # GOFLASH
028287,000187: # GOTOPOOH
028288,000188: # TIMETHET
028289,000189: # S34/35.2
028290,000190: # PERIAPO1
028291,000191: # SHIFTR1
028292,000192: # S34/35.5
028293,000193: # VN1645
028294,000194:
028295,000195: 35,2000 SETLOC CSI/CDH
028296,000196: 35,2000 BANK
028297,000197: 35,2455 E7,1470 EBANK= SUBEXIT
028298,000198: 35,2455 COUNT* $$/P3474
028299,000199: 35,2455 02354 P34 TC AVFLAGA
028300,000200: 35,2456 02460 TC P34/P74A
028301,000201: 35,2457 02361 P74 TC AVFLAGP
028302,000202: 35,2460 02366 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
028303,000203: 35,2461 33632 CAF V06N37 # TTPI
028304,000204: 35,2462 03621 TC VNPOOH
028305,000205: 35,2463 00006 EXTEND
028306,000206: 35,2464 33655 DCA 130DEG
028307,000207: 35,2465 53621 DXCH CENTANG
028308,000208: 35,2466 32424 CAF P30ZERO
028309,000209: 35,2467 55466 TS NN
028310,000210: 35,2470 03603 TC DISPLAYE # ELEV AND CENTANG
028311,000211: 35,2471 06042 TC INTPRET
028312,000212: 35,2472 71214 CLEAR DLOAD
028313,000213: 35,2473 01270 ETPIFLAG
028314,000214: 35,2474 03636 TTPI
028315,000215: 35,2475 17442 STODL TIG
028316,000216: 35,2476 02257 ELEV
028317,000217: 35,2477 43054 BZE SET
028318,000218: 35,2500 72502 P34/P74B
028319,000219: 35,2501 01070 ETPIFLAG
028320,000220: 35,2502 77624 P34/P74B CALL
028321,000221: 35,2503 20000 SELECTMU
028322,000222: 35,2504 DELELO EQUALS 26D
028323,000223: 35,2504 43145 P34/P74C DLOAD SET
028324,000224: 35,2505 06524 ZEROVECS
028325,000225: 35,2506 03460 ITSWICH
028326,000226: 35,2507 43014 BON CLEAR
028327,000227: 35,2510 01310 ETPIFLAG
|
|
Page 662 |
028329,000229: 35,2511 72513 SWCHSET
028330,000230: 35,2512 03660 ITSWICH
028331,000231: 35,2513 02317 SWCHSET STORE NOMTPI
028332,000232: 35,2514 43345 INTLOOP DLOAD DAD
028333,000233: 35,2515 03636 TTPI
028334,000234: 35,2516 02317 NOMTPI
028335,000235: 35,2517 34041 STCALL TDEC1
028336,000236: 35,2520 46403 PRECSET
028337,000237: 35,2521 77624 CALL
028338,000238: 35,2522 72674 S33/34.1
028339,000239: 35,2523 77454 BZE EXIT
028340,000240: 35,2524 72535 SWCHCLR
028341,000241: 35,2525 05567 TC ALARM
028342,000242: 35,2526 00611 OCT 611
028343,000243: 35,2527 35006 CAF V05N09
028344,000244: 35,2530 04616 TC BANKCALL
028345,000245: 35,2531 20477 CADR GOFLASH
028346,000246: 35,2532 06001 TC GOTOPOOH
028347,000247: 35,2533 02460 TC P34/P74A # PROCEED
028348,000248: 35,2534 02525 TC -7 # V32
028349,000249:
028350,000250: 35,2535 43014 SWCHCLR BONCLR BON
028351,000251: 35,2536 03600 ITSWICH
028352,000252: 35,2537 72514 INTLOOP
028353,000253: 35,2540 01310 ETPIFLAG
028354,000254: 35,2541 72545 P34/P74D # DISPLAY TTPI
028355,000255: 35,2542 77776 EXIT
028356,000256: 35,2543 03603 TC DISPLAYE # DISPLAY ELEV AND CENTANG
028357,000257: 35,2544 02550 TC P34/P74E
028358,000258: 35,2545 77776 P34/P74D EXIT
028359,000259: 35,2546 33632 CAF V06N37 # TTPI
028360,000260: 35,2547 03621 TC VNPOOH
028361,000261: 35,2550 06042 P34/P74E TC INTPRET
028362,000262: 35,2551 71201 SETPD DLOAD
028363,000263: 35,2552 00001 0D
028364,000264: 35,2553 02777 RTX1
028365,000265: 35,2554 14047 STODL X1
028366,000266: 35,2555 03621 CENTANG
028367,000267: 35,2556 71406 PUSH COS
028368,000268: 35,2557 16732 STODL CSTH
028369,000269: 35,2560 77756 SIN
028370,000270: 35,2561 26730 STOVL SNTH
028371,000271: 35,2562 03552 RPASS3
028372,000272: 35,2563 77657 VSR*
028373,000273: 35,2564 57176 0,2
028374,000274: 35,2565 26655 STOVL RVEC
028375,000275: 35,2566 03560 VPASS3
028376,000276: 35,2567 43057 VSR* SET
028377,000277: 35,2570 57176 0,2
028378,000278: 35,2571 03466 RVSW
|
|
Page 663 |
028380,000280: 35,2572 36744 STCALL VVEC
028381,000281: 35,2573 24732 TIMETHET
028382,000282: 35,2574 77745 DLOAD
028383,000283: 35,2575 03636 TTPI
028384,000284: 35,2576 03610 STORE INTIME # FOR INITVEL
028385,000285: 35,2577 77615 DAD
028386,000286: 35,2600 00037 T # RENDEZVOUS TIME
028387,000287: 35,2601 37631 STCALL TPASS4 # FOR INITVEL
028388,000288: 35,2602 73216 S34/35.2
028389,000289: 35,2603 51575 VLOAD ABVAL
028390,000290: 35,2604 02366 DELVEET3
028391,000291: 35,2605 27576 STOVL DELVTPI
028392,000292: 35,2606 03506 VPASS4
028393,000293: 35,2607 51451 VSU ABVAL
028394,000294: 35,2610 03566 VTPRIME
028395,000295: 35,2611 26350 STOVL DELVTPF
028396,000296: 35,2612 03536 RACT3
028397,000297: 35,2613 45115 PDVL CALL
028398,000298: 35,2614 02337 VIPRIME
028399,000299: 35,2615 46341 PERIAPO1
028400,000300: 35,2616 77624 CALL
028401,000301: 35,2617 46451 SHIFTR1
028402,000302: 35,2620 17606 STODL POSTTPI
028403,000303: 35,2621 03636 TTPI
028404,000304: 35,2622 03442 STORE TIG
028405,000305: 35,2623 77776 EXIT
028406,000306: 35,2624 33634 CAF V06N58
028407,000307: 35,2625 03621 TC VNPOOH
028408,000308: 35,2626 06042 TC INTPRET
028409,000309: 35,2627 77624 CALL
028410,000310: 35,2630 73432 S34/35.5
028411,000311: 35,2631 77624 CALL
028412,000312: 35,2632 73515 VN1645
028413,000313: 35,2633 77650 GOTO
028414,000314: 35,2634 72504 P34/P74C
|
|
Page 664 |
028416,000316: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028417,000317:
028418,000318: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028419,000319: # MOD BY WHITE.P DATE 1JUNE67
028420,000320:
028421,000321: # PURPOSE
028422,000322:
028423,000323: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028424,000324: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028425,000325: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028426,000326: # VEHICLE RENDEZVOUS.
028427,000327:
028428,000328: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028429,000329: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028430,000330: # ASTRONAUT/GROUND.
028431,000331:
028432,000332: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028433,000333: # THRUSTING PROGRAM.
028434,000334:
028435,000335: # ASSUMPTIONS
028436,000336:
028437,000337: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028438,000338:
028439,000339: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028440,000340: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028441,000341:
028442,000342: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
028443,000343: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
028444,000344: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028445,000345: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
028446,000346: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028447,000347: # P20 AND AFTER EACH THRUSTING MANEUVER.
028448,000348:
028449,000349: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028450,000350:
028451,000351: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028452,000352: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028453,000353: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028454,000354: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028455,000355:
028456,000356: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028457,000357: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028458,000358:
028459,000359: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028460,000360: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028461,000361: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028462,000362:
028463,000363: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028464,000364: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028465,000365: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
028466,000366:
|
|
Page 665 |
028468,000368: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028469,000369: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028470,000370: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028471,000371: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028472,000372: # THROUGH THE USE OF V06N52.
028473,000373:
028474,000374: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028475,000375: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028476,000376: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
028477,000377: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028478,000378: # UPON DELTA V AND EXPECTED MANEUVER TIME.
028479,000379:
028480,000380: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028481,000381:
028482,000382: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028483,000383:
028484,000384: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028485,000385:
028486,000386: # INPUT
028487,000387:
028488,000388: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
028489,000389:
028490,000390: # OUTPUT
028491,000391:
028492,000392: # (1) TRKMKCNT NUMBER OF MARKS
028493,000393: # (2) TTOGO TIME TO GO
028494,000394: # (3) +MGA MIDDLE GIMBAL ANGLE
028495,000395: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
028496,000396: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028497,000397:
028498,000398: # DOWNLINK
028499,000399:
028500,000400: # (1) TIG TIME OF THE TPM MANEUVER
028501,000401: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028502,000402: # (3) TPASS4 TIME OF INTERCEPT
028503,000403:
028504,000404: # COMMUNICATION TO THRUSTING PROGRAMS
028505,000405:
028506,000406: # (1) TIG TIME OF THE TPM MANEUVER
028507,000407: # (2) RTARG OFFSET TARGET POSITION
028508,000408: # (3) TPASS4 TIME OF INTERCEPT
028509,000409: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028510,000410:
028511,000411: # SUBROUTINES USED
028512,000412:
028513,000413: # AVFLAGA
028514,000414: # AVFLAGP
028515,000415: # LOADTIME
028516,000416: # SELECTMU
028517,000417: # PRECSET
028518,000418: # S34/35.1
028519,000419: # S34/35.2
|
|
Page 666 |
028521,000421: # S34/35.5
028522,000422: # VN1645
028523,000423:
028524,000424: 35,2635 COUNT* $$/P3575
028525,000425: 35,2635 E7,1575 EBANK= KT
028526,000426:
028527,000427: 35,2635 02354 P35 TC AVFLAGA
028528,000428: 35,2636 00006 EXTEND
028529,000429: 35,2637 31401 DCA ATIGINC
028530,000430: 35,2640 02644 TC P35/P75A
028531,000431: 35,2641 02361 P75 TC AVFLAGP
028532,000432: 35,2642 00006 EXTEND
028533,000433: 35,2643 31403 DCA PTIGINC
028534,000434: 35,2644 53576 P35/P75A DXCH KT
028535,000435: 35,2645 02366 TC P20FLGON # SET UPDATFLG, TRACKFLG
028536,000436: 35,2646 06042 TC INTPRET
028537,000437: 35,2647 77624 CALL
028538,000438: 35,2650 20000 SELECTMU
028539,000439: 35,2651 77634 P35/P75B RTB
028540,000440: 35,2652 21574 LOADTIME
028541,000441: 35,2653 03612 STORE TSTRT
028542,000442: 35,2654 77615 DAD
028543,000443: 35,2655 03576 KT
028544,000444: 35,2656 03442 STORE TIG
028545,000445: 35,2657 03610 STORE INTIME # FOR INITVEL
028546,000446: 35,2660 34041 STCALL TDEC1
028547,000447: 35,2661 46403 PRECSET # ADVANCE BOTH VEHICLES
028548,000448: 35,2662 77624 CALL
028549,000449: 35,2663 73204 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
028550,000450: 35,2664 77624 CALL
028551,000451: 35,2665 73216 S34/35.2 # GET DELTA V(LV)
028552,000452: 35,2666 77624 CALL
028553,000453: 35,2667 73432 S34/35.5
028554,000454: 35,2670 77624 CALL
028555,000455: 35,2671 73515 VN1645
028556,000456: 35,2672 77650 GOTO
028557,000457: 35,2673 72651 P35/P75B
|
|
Page 667 |
028559,000459: # ..... S33/34.1 .....
028560,000460:
028561,000461: 35,2674 66220 S33/34.1 STQ SSP
028562,000462: 35,2675 03463 NORMEX
028563,000463: 35,2676 03614 TITER
028564,000464: 35,2677 40000 OCT 40000
028565,000465: 35,2700 40345 DLOAD SETPD
028566,000466: 35,2701 33643 MAX250
028567,000467: 35,2702 00001 0D
028568,000468: 35,2703 27574 STOVL SECMAX
028569,000469: 35,2704 03536 RACT3
028570,000470: 35,2705 27500 STOVL RAPREC
028571,000471: 35,2706 03544 VACT3
028572,000472: 35,2707 27506 STOVL VAPREC
028573,000473: 35,2710 03552 RPASS3
028574,000474: 35,2711 27522 STOVL RPPREC
028575,000475: 35,2712 03560 VPASS3
028576,000476: 35,2713 03530 STORE VPPREC
028577,000477: 35,2714 77624 ELCALC CALL
028578,000478: 35,2715 73204 S34/35.1 # NORMAL AND LOS
028579,000479: 35,2716 63235 VXV PDVL
028580,000480: 35,2717 03536 RACT3 # (RA*VA)*RA 0D
028581,000481: 35,2720 53515 PDVL UNIT # ULOS AT 6D
028582,000482: 35,2721 03536 RACT3
028583,000483: 35,2722 46315 PDVL VPROJ # XCHNJ AND UP
028584,000484: 35,2723 51352 VSL2 BVSU
028585,000485: 35,2724 02311 ULOS
028586,000486: 35,2725 63256 UNIT PDVL # UP AT 0D
028587,000487: 35,2726 63241 DOT PDVL # UP.UN*RA AT 0D
028588,000488: 35,2727 00001 0D # UP IN MPAC
028589,000489: 35,2730 75241 DOT SIGN
028590,000490: 35,2731 02311 ULOS
028591,000491: 35,2732 65552 SL1 ACOS
028592,000492: 35,2733 50315 PDVL DOT # EA AT 0D
028593,000493: 35,2734 02311 ULOS
028594,000494: 35,2735 03536 RACT3
028595,000495: 35,2736 71244 BPL DLOAD
028596,000496: 35,2737 72742 TESTY
028597,000497: 35,2740 06532 DPPOSMAX
028598,000498: 35,2741 41425 DSU PUSH
028599,000499: 35,2742 71214 TESTY BOFF DLOAD
028600,000500: 35,2743 03740 ITSWICH
028601,000501: 35,2744 73171 ELEX
028602,000502: 35,2745 03576 DELEL
028603,000503: 35,2746 14033 STODL DELELO
028604,000504: 35,2747 77625 DSU
028605,000505: 35,2750 02257 ELEV
028606,000506: 35,2751 03576 STORE DELEL
028607,000507: 35,2752 45246 ABS DSU
028608,000508: 35,2753 33647 ELEPS
|
|
Page 668 |
028610,000510: 35,2754 77640 BMN
028611,000511: 35,2755 73201 TIMEX # COMMERCIALS EVERYWHERE
028612,000512: 35,2756 70535 FIGTIME SLOAD SR1
028613,000513: 35,2757 03614 TITER
028614,000514: 35,2760 72030 BHIZ LXA,1
028615,000515: 35,2761 03463 NORMEX # TOO MANY ITERATIONS
028616,000516: 35,2762 00154 MPAC
028617,000517: 35,2763 77330 SXA,1 VLOAD
028618,000518: 35,2764 03613 TITER
028619,000519: 35,2765 03552 RPASS3
028620,000520: 35,2766 65256 UNIT PDDL
028621,000521: 35,2767 00045 36D
028622,000522: 35,2770 53515 PDVL UNIT
028623,000523: 35,2771 03536 RACT3
028624,000524: 35,2772 77725 PDDL
028625,000525: 35,2773 41525 PDDL PUSH
028626,000526: 35,2774 00045 36D
028627,000527: 35,2775 77621 BDSU
028628,000528: 35,2776 00015 12D
028629,000529: 35,2777 14037 STODL 30D # RP - RA MAGNITUDES
028630,000530: 35,3000 06522 DPHALF
028631,000531: 35,3001 41425 DSU PUSH
028632,000532: 35,3002 02257 ELEV
028633,000533: 35,3003 50165 SIGN BMN
028634,000534: 35,3004 00037 30D
028635,000535: 35,3005 03463 NORMEX
028636,000536: 35,3006 71545 DLOAD COS
028637,000537: 35,3007 56205 DMP DDV
028638,000538: 35,3010 00017 14D
028639,000539: 35,3011 00015 12D
028640,000540: 35,3012 77676 DCOMP # SINCE COS(180-A)=-COS A
028641,000541: 35,3013 00035 STORE 28D
028642,000542: 35,3014 44246 ABS BDSU
028643,000543: 35,3015 06522 DPHALF
028644,000544: 35,3016 77240 BMN VLOAD
028645,000545: 35,3017 03463 NORMEX
028646,000546: 35,3020 02261 UNRM
028647,000547: 35,3021 53435 VXV UNIT
028648,000548: 35,3022 00007 6D # UN*RA
028649,000549: 35,3023 41241 DOT DMP
028650,000550: 35,3024 03544 VACT3
028651,000551: 35,3025 00015 12D
028652,000552: 35,3026 47315 PDVL VXV
028653,000553: 35,3027 00001 0D
028654,000554: 35,3030 03560 VPASS3
028655,000555: 35,3031 53435 VXV UNIT
028656,000556: 35,3032 00001 0D # (RP*VP)*RP
028657,000557: 35,3033 41241 DOT DMP
028658,000558: 35,3034 03560 VPASS3
028659,000559: 35,3035 00017 14D
|
|
Page 669 |
028661,000561: 35,3036 77621 BDSU
028662,000562: 35,3037 63301 NORM PDVL # NORMALIZED WA - WP 12D
028663,000563: 35,3040 00047 X1
028664,000564: 35,3041 00007 6D
028665,000565: 35,3042 50235 VXV DOT
028666,000566: 35,3043 00001 0D
028667,000567: 35,3044 02261 UNRM # RA*RP.UN 14D
028668,000568: 35,3045 50315 PDVL DOT
028669,000569: 35,3046 00001 0D
028670,000570: 35,3047 00007 6D
028671,000571: 35,3050 65552 SL1 ACOS
028672,000572: 35,3051 77765 SIGN
028673,000573: 35,3052 43225 DSU DAD # ALPHA PI
028674,000574: 35,3053 06522 DPHALF
028675,000575: 35,3054 02257 ELEV
028676,000576: 35,3055 65525 PDDL ACOS
028677,000577: 35,3056 00035 28D
028678,000578: 35,3057 75221 BDSU SIGN
028679,000579: 35,3060 06522 DPHALF
028680,000580: 35,3061 00037 30D # CONTAINS RP-RA
028681,000581: 35,3062 77615 DAD
028682,000582: 35,3063 56205 DMP DDV
028683,000583: 35,3064 33641 TWOPI
028684,000584: 35,3065 77605 DMP
028685,000585: 35,3066 41257 SL* DMP
028686,000586: 35,3067 20176 0 -3,1
028687,000587: 35,3070 51406 PUSH ABS
028688,000588: 35,3071 50025 DSU BMN
028689,000589: 35,3072 03574 SECMAX
028690,000590: 35,3073 73077 OKMAX
028691,000591: 35,3074 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
028692,000592: 35,3075 03574 SECMAX
028693,000593: 35,3076 77606 PUSH
028694,000594: 35,3077 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
028695,000595: 35,3100 03614 TITER
028696,000596: 35,3101 73107 REPETE
028697,000597: 35,3102 71331 SSP DLOAD
028698,000598: 35,3103 03614 TITER
028699,000599: 35,3104 37777 OCT 37777
028700,000600: 35,3105 77650 GOTO
028701,000601: 35,3106 73145 STORDELT
028702,000602: 35,3107 41345 REPETE DLOAD DMP
028703,000603: 35,3110 03576 DELEL
028704,000604: 35,3111 00033 DELELO
028705,000605: 35,3112 71244 BPL DLOAD
028706,000606: 35,3113 73123 NEXTES
028707,000607: 35,3114 03574 SECMAX
028708,000608: 35,3115 77605 DMP
028709,000609: 35,3116 33645 THIRD
028710,000610: 35,3117 17574 STODL SECMAX
|
|
Page 670 |
028712,000612: 35,3120 70446 ABS SR1 # CROSSED OVER SOLUTION
028713,000613: 35,3121 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
028714,000614: 35,3122 73133 RESIGN
028715,000615: 35,3123 51545 NEXTES DLOAD ABS
028716,000616: 35,3124 03576 DELEL
028717,000617: 35,3125 51525 PDDL ABS
028718,000618: 35,3126 00033 DELELO
028719,000619: 35,3127 77625 DSU
028720,000620: 35,3130 71240 BMN DLOAD
028721,000621: 35,3131 73136 REVERS # WRONG DIRECTION
028722,000622: 35,3132 77646 ABS
028723,000623: 35,3133 52165 RESIGN SIGN GOTO
028724,000624: 35,3134 03606 DELTEEO
028725,000625: 35,3135 73145 STORDELT
028726,000626: 35,3136 57545 REVERS DLOAD DCOMP
028727,000627: 35,3137 03606 DELTEEO
028728,000628: 35,3140 70406 PUSH SR1
028729,000629: 35,3141 03606 STORE DELTEEO
028730,000630: 35,3142 77615 DAD
028731,000631: 35,3143 77650 GOTO
028732,000632: 35,3144 73146 ADTIME
028733,000633: 35,3145 03606 STORDELT STORE DELTEEO
028734,000634: 35,3146 77615 ADTIME DAD
028735,000635: 35,3147 02317 NOMTPI # SUM OF DELTA T:S
028736,000636: 35,3150 02317 STORE NOMTPI
028737,000637: 35,3151 63375 VLOAD PDVL
028738,000638: 35,3152 03506 VAPREC
028739,000639: 35,3153 03500 RAPREC
028740,000640: 35,3154 77624 CALL
028741,000641: 35,3155 73372 GOINT
028742,000642: 35,3156 77624 CALL
028743,000643: 35,3157 46425 ACTIVE # STORE NEW RACT3 VACT3
028744,000644: 35,3160 63375 VLOAD PDVL
028745,000645: 35,3161 03530 VPPREC
028746,000646: 35,3162 03522 RPPREC
028747,000647: 35,3163 77624 CALL
028748,000648: 35,3164 73372 GOINT
028749,000649: 35,3165 77624 CALL
028750,000650: 35,3166 46435 PASSIVE # STORE NEW RPASS3 VPASS3
028751,000651: 35,3167 77650 GOTO
028752,000652: 35,3170 72714 ELCALC
028753,000653: 35,3171 43345 ELEX DLOAD DAD
028754,000654: 35,3172 03636 TTPI
028755,000655: 35,3173 02317 NOMTPI
028756,000656: 35,3174 17636 STODL TTPI
028757,000657: 35,3175 77614 BON
028758,000658: 35,3176 01310 ETPIFLAG
028759,000659: 35,3177 73201 TIMEX
028760,000660: 35,3200 02257 STORE ELEV
028761,000661: 35,3201 52145 TIMEX DLOAD GOTO
|
|
Page 671 |
028763,000663: 35,3202 06524 ZEROVECS
028764,000664: 35,3203 03463 NORMEX
028765,000665:
|
|
Page 672 |
028767,000667: # ..... S34/35.1 .....
028768,000668:
028769,000669: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028770,000670: # PASSIVE POS AND VEL AT TIME T3
028771,000671:
028772,000672: 35,3204 52375 S34/35.1 VLOAD VSU
028773,000673: 35,3205 03552 RPASS3
028774,000674: 35,3206 03536 RACT3
028775,000675: 35,3207 41456 UNIT PUSH
028776,000676: 35,3210 26311 STOVL ULOS
028777,000677: 35,3211 03536 RACT3
028778,000678: 35,3212 53435 VXV UNIT
028779,000679: 35,3213 03544 VACT3
028780,000680: 35,3214 02261 STORE UNRM
028781,000681: 35,3215 77616 RVQ
028782,000682:
|
|
Page 673 |
028784,000684: # ..... S34/35.2 .....
028785,000685:
028786,000686: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028787,000687:
028788,000688: 35,3216 77220 S34/35.2 STQ VLOAD
028789,000689: 35,3217 03470 SUBEXIT
028790,000690: 35,3220 03560 VPASS3
028791,000691: 35,3221 65315 PDVL PDDL
028792,000692: 35,3222 03552 RPASS3
028793,000693: 35,3223 03610 INTIME
028794,000694: 35,3224 65325 PDDL PDDL
028795,000695: 35,3225 03631 TPASS4
028796,000696: 35,3226 33641 TWOPI # CONIC
028797,000697: 35,3227 46125 PDDL BHIZ
028798,000698: 35,3230 03467 NN
028799,000699: 35,3231 73235 S3435.23
028800,000700: 35,3232 77745 DLOAD
028801,000701: 35,3233 41545 DLOAD PUSH
028802,000702: 35,3234 06524 ZEROVECS # PRECISION
028803,000703: 35,3235 77624 S3435.23 CALL
028804,000704: 35,3236 73376 INTINT # GET TARGET VECTOR
028805,000705: 35,3237 27444 S3435.25 STOVL RTARG
028806,000706: 35,3240 00007 VATT
028807,000707: 35,3241 27506 STOVL VPASS4
028808,000708: 35,3242 03444 RTARG
028809,000709: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
028810,000710: 35,3243 63256 UNIT PDVL # UNIT RP
028811,000711: 35,3244 03536 RACT3
028812,000712: 35,3245 41456 UNIT PUSH # UNIT RA
028813,000713: 35,3246 50235 VXV DOT
028814,000714: 35,3247 00001 0D
028815,000715: 35,3250 02261 UNRM # RA*RP.U
028816,000716: 35,3251 77715 PDVL
028817,000717: 35,3252 72441 DOT SL1 # UNIT RA.UNIT RP
028818,000718: 35,3253 00001 0D
028819,000719: 35,3254 75326 ACOS SIGN
028820,000720: 35,3255 43244 BPL DAD
028821,000721: 35,3256 73260 NOPIE
028822,000722: 35,3257 06532 DPPOSMAX # REASONABLE TWO PI
028823,000723: 35,3260 15756 NOPIE STODL ACTCENT
028824,000724: 35,3261 03631 TPASS4
028825,000725: 35,3262 77625 DSU
028826,000726: 35,3263 03610 INTIME
028827,000727: 35,3264 03452 STORE DELLT4
028828,000728: 35,3265 40335 SLOAD SETPD
028829,000729: 35,3266 03467 NN # NUMBER OF OFFSETS
028830,000730: 35,3267 00001 0D
028831,000731: 35,3270 63325 PDDL PDVL
028832,000732: 35,3271 33653 EPSFOUR
028833,000733: 35,3272 03536 RACT3
028834,000734: 35,3273 26323 STOVL RINIT
|
|
Page 674 |
028836,000736: 35,3274 03544 VACT3
028837,000737: 35,3275 36331 STCALL VINIT
028838,000738: 35,3276 22000 INITVEL
028839,000739: 35,3277 77624 CALL
028840,000740: 35,3300 73357 LOMAT
028841,000741: 35,3301 64375 VLOAD MXV
028842,000742: 35,3302 02366 DELVEET3
028843,000743: 35,3303 00001 0D
028844,000744: 35,3304 77772 VSL1
028845,000745: 35,3305 37434 STCALL DELVLVC
028846,000746: 35,3306 03470 SUBEXIT
028847,000747:
|
|
Page 675 |
028849,000749: # ..... S34/35.3 .....
028850,000750:
028851,000751: 35,3307 45020 S34/35.3 STQ CALL
028852,000752: 35,3310 03463 NORMEX
028853,000753: 35,3311 73357 LOMAT # GET MATRIX IN PUSH LIST
028854,000754: 35,3312 61375 VLOAD VXM
028855,000755: 35,3313 03434 DELVLVC # NEW DEL V TPI
028856,000756: 35,3314 00001 0D
028857,000757: 35,3315 77772 VSL1
028858,000758: 35,3316 02366 STORE DELVEET3 # SAVE FOR TRANSFORM
028859,000759: 35,3317 63255 VAD PDVL
028860,000760: 35,3320 03544 VACT3 # NEW V REQ
028861,000761: 35,3321 03536 RACT3
028862,000762: 35,3322 65325 PDDL PDDL
028863,000763: 35,3323 03442 TIG
028864,000764: 35,3324 03631 TPASS4
028865,000765: 35,3325 41525 PDDL PUSH
028866,000766: 35,3326 06532 DPPOSMAX
028867,000767: 35,3327 77624 CALL # INTEG. FOR NEW TARGET VEC
028868,000768: 35,3330 73376 INTINT
028869,000769: 35,3331 77775 VLOAD
028870,000770: 35,3332 00001 RATT
028871,000771: 35,3333 03444 STORE RTARG
028872,000772: 35,3334 41575 NOVRWRT VLOAD PUSH
028873,000773: 35,3335 02311 ULOS
028874,000774: 35,3336 57435 VXV VCOMP
028875,000775: 35,3337 02261 UNRM
028876,000776: 35,3340 41456 UNIT PUSH
028877,000777: 35,3341 76435 VXV VSL1
028878,000778: 35,3342 02311 ULOS
028879,000779: 35,3343 77715 PDVL
028880,000780: 35,3344 64315 PDVL MXV
028881,000781: 35,3345 02366 DELVEET3
028882,000782: 35,3346 00001 0D
028883,000783: 35,3347 77772 VSL1
028884,000784: 35,3350 36303 STCALL DVLOS
028885,000785: 35,3351 03463 NORMEX
028886,000786:
|
|
Page 676 |
028888,000788: # ..... S34/35.4 .....
028889,000789:
028890,000790: 35,3352 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
028891,000791: 35,3353 03463 NORMEX
028892,000792: 35,3354 00001 0D
028893,000793: 35,3355 77650 GOTO
028894,000794: 35,3356 73334 NOVRWRT
028895,000795:
|
|
Page 677 |
028897,000797: # ..... LOMAT .....
028898,000798:
028899,000799: 35,3357 57575 LOMAT VLOAD VCOMP
028900,000800: 35,3360 02261 UNRM
028901,000801: 35,3361 24007 STOVL 6D # Y
028902,000802: 35,3362 03536 RACT3
028903,000803: 35,3363 57456 UNIT VCOMP
028904,000804: 35,3364 00015 STORE 12D
028905,000805: 35,3365 76435 VXV VSL1
028906,000806: 35,3366 02261 UNRM # Z*-Y
028907,000807: 35,3367 00001 STORE 0D
028908,000808: 35,3370 43401 SETPD RVQ
028909,000809: 35,3371 00023 18D
028910,000810: 35,3372 65325 GOINT PDDL PDDL # DO
028911,000811: 35,3373 06524 ZEROVECS # NOT
028912,000812: 35,3374 02317 NOMTPI
028913,000813: 35,3375 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
028914,000814: 35,3376 45020 INTINT STQ CALL
028915,000815: 35,3377 03465 RTRN
028916,000816: 35,3400 27412 INTSTALL
028917,000817: 35,3401 71214 CLEAR DLOAD
028918,000818: 35,3402 01673 INTYPFLG
028919,000819: 35,3403 43054 BZE SET
028920,000820: 35,3404 73406 +2
028921,000821: 35,3405 01473 INTYPFLG
028922,000822: 35,3406 45545 DLOAD STADR
028923,000823: 35,3407 63736 STODL TDEC1
028924,000824: 35,3410 73014 SET LXA,2
028925,000825: 35,3411 00063 MOONFLAG
028926,000826: 35,3412 02777 RTX2
028927,000827: 35,3413 43014 BON CLEAR
028928,000828: 35,3414 04303 CMOONFLG
028929,000829: 35,3415 73417 ALLSET
028930,000830: 35,3416 00263 MOONFLAG
028931,000831: 35,3417 25517 ALLSET STOVL TET
028932,000832: 35,3420 77657 VSR*
028933,000833: 35,3421 57176 0,2
028934,000834: 35,3422 25535 STOVL RCV
028935,000835: 35,3423 77657 VSR*
028936,000836: 35,3424 57176 0,2
028937,000837: 35,3425 35543 STCALL VCV
028938,000838: 35,3426 27110 INTEGRVS
028939,000839: 35,3427 52175 VLOAD GOTO
028940,000840: 35,3430 00001 RATT
028941,000841: 35,3431 03465 RTRN
028942,000842:
|
|
Page 678 |
028944,000844: # ..... S34/35.5 .....
028945,000845: # SUBROUTINES USED
028946,000846: # BANKCALL
028947,000847: # GOFLASH
028948,000848: # GOTOPOOH
028949,000849: # S34/35.3
028950,000850: # S34/35.4
028951,000851: # VNPOOH
028952,000852:
028953,000853: 35,3432 43020 S34/35.5 STQ BON
028954,000854: 35,3433 03470 SUBEXIT
028955,000855: 35,3434 01311 FINALFLG
028956,000856: 35,3435 73441 FLAGON
028957,000857: 35,3436 52014 SET GOTO
028958,000858: 35,3437 00470 UPDATFLG
028959,000859: 35,3440 73505 FLAGOFF
028960,000860: 35,3441 77214 FLAGON CLEAR VLOAD
028961,000861: 35,3442 03274 NTARGFLG
028962,000862: 35,3443 03434 DELVLVC
028963,000863: 35,3444 01236 STORE GDT/2
028964,000864: 35,3445 77776 EXIT
028965,000865: 35,3446 33636 +5 CAF V06N81
028966,000866: 35,3447 04616 TC BANKCALL
028967,000867: 35,3450 20477 CADR GOFLASH
028968,000868: 35,3451 06001 TC GOTOPOOH
028969,000869: 35,3452 03454 TC +2 # PRO
028970,000870: 35,3453 03446 TC FLAGON +5 # LOAD
028971,000871: 35,3454 35016 +2 CA EBANK7
028972,000872: 35,3455 54003 TS EBANK # TO BE SURE
028973,000873:
028974,000874: 35,3456 22007 ZL
028975,000875: 35,3457 34756 CA FIVE
028976,000876: 35,3460 54002 NTARGCHK TS Q
028977,000877: 35,3461 50002 INDEX Q
028978,000878: 35,3462 41433 CS DELVLVC
028979,000879: 35,3463 50002 INDEX Q
028980,000880: 35,3464 61235 AD GDT/2
028981,000881: 35,3465 26001 ADS L
028982,000882: 35,3466 10002 CCS Q
028983,000883: 35,3467 13460 TCF NTARGCHK
028984,000884: 35,3470 22000 LXCH A
028985,000885: 35,3471 00006 EXTEND
028986,000886: 35,3472 13475 BZF +3
028987,000887: 35,3473 05504 TC UPFLAG
028988,000888: 35,3474 00146 ADRES NTARGFLG
028989,000889:
028990,000890: 35,3475 06042 TC INTPRET
028991,000891: 35,3476 45014 BOFF CALL
028992,000892: 35,3477 03354 NTARGFLG
|
|
Page 679 |
028994,000894: 35,3500 73502 NOCHG
028995,000895: 35,3501 73307 S34/35.3
028996,000896: 35,3502 77775 NOCHG VLOAD
028997,000897: 35,3503 02366 DELVEET3
028998,000898: 35,3504 03656 STORE DELVSIN
028999,000899: 35,3505 77624 FLAGOFF CALL
029000,000900: 35,3506 73352 S34/35.4
029001,000901: 35,3507 77776 EXIT
029002,000902: 35,3510 33635 CAF V06N59
029003,000903: 35,3511 03621 TC VNPOOH
029004,000904: 35,3512 06042 TC INTPRET
029005,000905: 35,3513 77650 GOTO
029006,000906: 35,3514 03470 SUBEXIT
029007,000907:
|
|
Page 680 |
029009,000909: # ..... VN1645 .....
029010,000910:
029011,000911: # SUBROUTINES USED
029012,000912: # P3XORP7X
029013,000913: # GET+MGA
029014,000914: # BANKCALL
029015,000915: # DELAYJOB
029016,000916: # COMPTGO
029017,000917: # GOFLASHR
029018,000918: # GOTOPOOH
029019,000919: # FLAGUP
029020,000920:
029021,000921: 35,3515 71220 VN1645 STQ DLOAD
029022,000922: 35,3516 03470 SUBEXIT
029023,000923: 35,3517 33651 DP-.01
029024,000924: 35,3520 02253 STORE +MGA # MGA = -.01
029025,000925: 35,3521 71214 BOFF DLOAD
029026,000926: 35,3522 01351 FINALFLG
029027,000927: 35,3523 73543 GET45
029028,000928: 35,3524 33651 DP-.01
029029,000929: 35,3525 77615 DAD
029030,000930: 35,3526 33651 DP-.01
029031,000931: 35,3527 02253 STORE +MGA # MGA = -.02
029032,000932: 35,3530 77414 BOFF EXIT
029033,000933: 35,3531 01742 REFSMFLG
029034,000934: 35,3532 73543 GET45
029035,000935: 35,3533 03613 TC P3XORP7X
029036,000936: 35,3534 03536 TC +2 # P3X
029037,000937: 35,3535 03544 TC GET45 +1 # P7X
029038,000938: 35,3536 06042 TC INTPRET
029039,000939: 35,3537 41575 VLOAD PUSH
029040,000940: 35,3540 03656 DELVSIN
029041,000941: 35,3541 77624 CALL # COMPUTE MGA
029042,000942: 35,3542 15725 GET+MGA
029043,000943: 35,3543 77776 GET45 EXIT
029044,000944: 35,3544 02437 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
029045,000945: 35,3545 31470 CA SUBEXIT
029046,000946: 35,3546 55464 TS QSAVED
029047,000947: 35,3547 34777 CAF 1SEC
029048,000948: 35,3550 04616 TC BANKCALL
029049,000949: 35,3551 01736 CADR DELAYJOB
029050,000950: 35,3552 33637 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
029051,000951: 35,3553 04616 TC BANKCALL
029052,000952: 35,3554 20477 CADR GOFLASH
029053,000953: 35,3555 03560 TC KILCLOCK # TERMINATE
029054,000954: 35,3556 03563 TC N45PROC # PROCEED
029055,000955: 35,3557 03573 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
029056,000956: 35,3560 30005 KILCLOCK CA Z
029057,000957: 35,3561 55162 TS DISPDEX
|
|
Page 681 |
029059,000959: 35,3562 06001 TC GOTOPOOH
029060,000960: 35,3563 40076 N45PROC CS FLAGWRD2
029061,000961: 35,3564 74746 MASK BIT6
029062,000962: 35,3565 00006 EXTEND
029063,000963: 35,3566 13560 BZF KILCLOCK # FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029064,000964: 35,3567 05353 TC PHASCHNG
029065,000965: 35,3570 04024 OCT 04024
029066,000966: 35,3571 05504 TC UPFLAG # SET
029067,000967: 35,3572 00047 ADRES FINALFLG # FINALFLG
029068,000968: 35,3573 30005 CLUPDATE CA Z
029069,000969: 35,3574 55162 TS DISPDEX
029070,000970: 35,3575 05353 TC PHASCHNG
029071,000971: 35,3576 04024 OCT 04024
029072,000972: 35,3577 06042 TC INTPRET
029073,000973: 35,3600 52014 CLEAR GOTO
029074,000974: 35,3601 00670 UPDATFLG
029075,000975: 35,3602 03464 QSAVED
029076,000976:
|
|
Page 682 |
029078,000978: # ..... DISPLAYE .....
029079,000979:
029080,000980: # SUBROUTINES USED
029081,000981: # BANKCALL
029082,000982: # GOFLASHR
029083,000983: # GOTOPOOH
029084,000984: # BLANKET
029085,000985: # ENDOFJOB
029086,000986:
029087,000987: 35,3603 00006 DISPLAYE EXTEND
029088,000988: 35,3604 23463 QXCH NORMEX
029089,000989: 35,3605 33633 CAF V06N55
029090,000990: 35,3606 04616 TCR BANKCALL
029091,000991: 35,3607 20477 CADR GOFLASH
029092,000992: 35,3610 16001 TCF GOTOPOOH
029093,000993: 35,3611 01463 TC NORMEX
029094,000994: 35,3612 13605 TCF -5
029095,000995:
|
|
Page 683 |
029097,000997: # ..... P3XORP7X .....
029098,000998:
029099,000999: 35,3613 37747 P3XORP7X CAF HIGH9
029100,001000: 35,3614 71010 MASK MODREG
029101,001001: 35,3615 00006 EXTEND
029102,001002: 35,3616 13620 BZF +2
029103,001003: 35,3617 24002 INCR Q
029104,001004: 35,3620 00002 RETURN
029105,001005:
029106,001006: # ..... VNPOOH .....
029107,001007:
029108,001008: # SUBROUTINES USED
029109,001009: # BANKCALL
029110,001010: # GOFLASH
029111,001011: # GOTOPOOH
029112,001012:
029113,001013: 35,3621 00006 VNPOOH EXTEND
029114,001014: 35,3622 23465 QXCH RTRN
029115,001015: 35,3623 55615 TS VERBNOUN
029116,001016: 35,3624 31615 CA VERBNOUN
029117,001017: 35,3625 04616 TCR BANKCALL
029118,001018: 35,3626 20477 CADR GOFLASH
029119,001019: 35,3627 16001 TCF GOTOPOOH
029120,001020: 35,3630 01465 TC RTRN
029121,001021: 35,3631 13624 TCF -5
029122,001022:
|
|
Page 684 |
029124,001024: # ..... CONSTANTS .....
029125,001025:
029126,001026: 35,3632 01445 V06N37 VN 0637
029127,001027: 35,3633 01467 V06N55 VN 0655
029128,001028: 35,3634 01472 V06N58 VN 0658
029129,001029: 35,3635 01473 V06N59 VN 0659
029130,001030: 35,3636 01521 V06N81 VN 0681
029131,001031: 35,3637 04055 V16N45 VN 1645
029132,001032: 35,3640 14441 37325 TWOPI 2DEC 6.283185307 B-4
029133,001033:
029134,001034: 35,3642 00001 20650 MAX250 2DEC 25 E3
029135,001035:
029136,001036: 35,3644 12525 12525 THIRD 2DEC .333333333
029137,001037:
029138,001038: 35,3646 00004 21505 ELEPS 2DEC .27777777 E-3
029139,001039:
029140,001040: 35,3650 77777 DP-.01 OCT 77777 # CONSTANTS
029141,001041: 35,3651 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
029142,001042: 35,3652 01252 25253 EPSFOUR 2DEC .0416666666
029143,001043:
029144,001044: 35,3654 13434 16162 130DEG 2DEC .3611111111
029145,001045:
|
|
Page 685 |
029147,001047: # ..... INITVEL .....
029148,001048:
029149,001049: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
029150,001050: # MOD BY WHITE.P DATE 21NOV67
029151,001051:
029152,001052: # FUNCTIONAL DESCRIPTION
029153,001053:
029154,001054: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029155,001055: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029156,001056: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
029157,001057: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029158,001058: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029159,001059: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029160,001060: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
029161,001061: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029162,001062: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029163,001063: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029164,001064:
029165,001065: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029166,001066: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029167,001067: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029168,001068: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029169,001069: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029170,001070: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029171,001071: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029172,001072: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029173,001073:
029174,001074: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029175,001075: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029176,001076: # TRAJECTORY COMPUTATIONS.
029177,001077:
029178,001078: # CALLING SEQUENCE
029179,001079:
029180,001080: # L CALL
029181,001081: # L+1 INITVEL
029182,001082: # L+2 (RETURN - ALWAYS)
029183,001083:
029184,001084: # INPUT
029185,001085:
029186,001086: # (1) RINIT INITIAL POSITION RADIUS VECTOR
029187,001087: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
029188,001088: # (3) RTARG TARGET POSITION RADIUS VECTOR
029189,001089: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029190,001090: # (5) INTIME TIME OF RINIT
029191,001091: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029192,001092: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029193,001093: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
029194,001094: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029195,001095: # PUSHLOC SET AT 4D
029196,001096:
|
|
Page 686 |
029198,001098: # OUTPUT
029199,001099:
029200,001100: # (1) RTARG OFFSET TARGET POSITION VECTOR
029201,001101: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
029202,001102: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
029203,001103: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
029204,001104:
029205,001105: # SUBROUTINES USED
029206,001106:
029207,001107: # LAMBERT
029208,001108: # INTSTALL
029209,001109: # INTEGRVS
029210,001110:
029211,001111: 11,2000 SETLOC INTVEL
029212,001112: 11,2000 BANK
029213,001113:
029214,001114: 11,2000 COUNT* $$/INITV
029215,001115: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
029216,001116: 11,2001 00475 GUESSW
029217,001117: 11,2002 44175 HAVEGUES VLOAD STQ
029218,001118: 11,2003 03444 RTARG
029219,001119: 11,2004 03463 NORMEX
029220,001120: 11,2005 03472 STORE RTARG1
029221,001121: 11,2006 77646 ABVAL
029222,001122: 11,2007 03723 STORE RTMAG
029223,001123: 11,2010 46135 SLOAD BHIZ
029224,001124: 11,2011 03000 RTX2
029225,001125: 11,2012 22026 INITVEL1
029226,001126: 11,2013 72575 VLOAD VSL2
029227,001127: 11,2014 02323 RINIT # B29
029228,001128: 11,2015 26323 STOVL RINIT # B27
029229,001129: 11,2016 02331 VINIT # B7
029230,001130: 11,2017 77752 VSL2
029231,001131: 11,2020 26331 STOVL VINIT # B5
029232,001132: 11,2021 03472 RTARG1
029233,001133: 11,2022 77752 VSL2
029234,001134: 11,2023 03472 STORE RTARG1
029235,001135: 11,2024 77646 ABVAL
029236,001136: 11,2025 03723 STORE RTMAG
029237,001137:
029238,001138: # INITIALIZATION
029239,001139:
029240,001140: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
029241,001141: 11,2027 03617 ITCTR
029242,001142: 11,2030 77776 0 -1
029243,001143: 11,2031 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
029244,001144: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
029245,001145: 11,2033 67154 LXA,2 SXA,2
029246,001146: 11,2034 00154 MPAC
029247,001147: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
029248,001148: 11,2036 77775 VLOAD
|
|
Page 687 |
029250,001150: 11,2037 02323 RINIT
029251,001151: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT
029252,001152: 11,2041 03472 RTARG1
029253,001153: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG
029254,001154: 11,2043 03452 DELLT4
029255,001155: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4
029256,001156: 11,2045 77201 SETPD VLOAD
029257,001157: 11,2046 00001 0D # INITIALIZE PL TO 0D
029258,001158: 11,2047 02323 RINIT # MPAC EQ RINIT (+29)
029259,001159: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
029260,001160: 11,2051 53435 VXV UNIT
029261,001161: 11,2052 02331 VINIT # MPAC EQ UNIT(RI) X VI (+8)
029262,001162: 11,2053 26674 STOVL UN
029263,001163: 11,2054 03472 RTARG1
029264,001164: 11,2055 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
029265,001165: 11,2056 43015 DAD CLEAR
029266,001166: 11,2057 03667 COZY4
029267,001167: 11,2060 03665 NORMSW
029268,001168: 11,2061 03667 STORE COZY4
029269,001169: 11,2062 43044 INITVEL2 BPL SET
029270,001170: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT
029271,001171: 11,2064 03465 NORMSW
029272,001172:
029273,001173: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029274,001174:
029275,001175: 11,2065 41575 VLOAD PUSH # (PL 6D)
029276,001176: 11,2066 02663 R2VEC # RC TO 6D (+29)
029277,001177: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
029278,001178: 11,2070 46206 PUSH VPROJ # (PL 8D)
029279,001179: 11,2071 02674 UN
029280,001180: 11,2072 51352 VSL2 BVSU
029281,001181: 11,2073 74256 UNIT VXSC # (PL 0D)
029282,001182: 11,2074 77772 VSL1
029283,001183: 11,2075 02663 STORE R2VEC
029284,001184: 11,2076 67351 TLOAD SLOAD
029285,001185: 11,2077 24007 ZEROVEC
029286,001186: 11,2100 03617 ITCTR
029287,001187: 11,2101 77244 BPL VLOAD
029288,001188: 11,2102 22105 INITVEL3
029289,001189: 11,2103 02663 R2VEC
029290,001190: 11,2104 03472 STORE RTARG1
029291,001191: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D)
029292,001192: 11,2106 26007 MUEARTH # POSITIVE VALUE
029293,001193: 11,2107 02663 R2VEC
029294,001194: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
029295,001195: 11,2111 02655 R1VEC
029296,001196: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
029297,001197: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
029298,001198: 11,2114 00003 2D
029299,001199: 11,2115 77606 PUSH # (PL 20D)
029300,001200: 11,2116 71350 LXA,1 DLOAD
|
|
Page 688 |
029302,001202: 11,2117 02776 RTX1
029303,001203: 11,2120 00023 18D
029304,001204: 11,2121 62040 BMN INCR,1
029305,001205: 11,2122 22124 +2
029306,001206: 11,2123 77767 DEC -8 B-14
029307,001207: 11,2124 67310 INCR,1 SLOAD
029308,001208: 11,2125 00012 10D
029309,001209: 11,2126 00047 X1
029310,001210: 11,2127 77230 BHIZ VLOAD # (PL 14D)
029311,001211: 11,2130 22132 +2
029312,001212: 11,2131 41476 VCOMP PUSH # (PL 20D)
029313,001213: 11,2132 77775 VLOAD # (PL 14D)
029314,001214: 11,2133 50235 VXV DOT # (PL 2D)
029315,001215: 11,2134 71244 BPL DLOAD # (PL 0D)
029316,001216: 11,2135 22137 INITVEL4
029317,001217: 11,2136 41476 DCOMP PUSH # (PL 2D)
029318,001218: 11,2137 67154 INITVEL4 LXA,2 SXA,2
029319,001219: 11,2140 00000 0D
029320,001220: 11,2141 02672 GEOMSGN
029321,001221:
029322,001222: # SET INPUTS UP FOR LAMBERT
029323,001223:
029324,001224: 11,2142 66350 LXA,1 SSP
029325,001225: 11,2143 02776 RTX1
029326,001226: 11,2144 00027 ITERCTR
029327,001227: 11,2145 00024 20D
029328,001228:
029329,001229: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029330,001230:
029331,001231: 11,2146 77624 CALL
029332,001232: 11,2147 25212 LAMBERT
029333,001233:
029334,001234: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029335,001235:
029336,001236: 11,2150 77214 CLEAR VLOAD
029337,001237: 11,2151 00675 GUESSW
029338,001238: 11,2152 02744 VVEC
029339,001239:
029340,001240: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029341,001241:
029342,001242: 11,2153 16337 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
029343,001243:
029344,001244: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029345,001245: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029346,001246:
029347,001247: 11,2154 02702 VTARGTAG
029348,001248: 11,2155 45030 BHIZ CALL
029349,001249: 11,2156 22233 INITVEL7
029350,001250: 11,2157 27412 INTSTALL
029351,001251: 11,2160 43135 SLOAD CLEAR
029352,001252: 11,2161 03000 RTX2
029353,001253: 11,2162 00263 MOONFLAG
029354,001254: 11,2163 43030 BHIZ SET
|
|
Page 689 |
029356,001256: 11,2164 22166 INITVEL5
029357,001257: 11,2165 00063 MOONFLAG
029358,001258: 11,2166 77775 INITVEL5 VLOAD
029359,001259: 11,2167 02323 RINIT
029360,001260: 11,2170 02655 STORE R1VEC
029361,001261: 11,2171 25535 STOVL RCV
029362,001262: 11,2172 02337 VIPRIME
029363,001263: 11,2173 15543 STODL VCV
029364,001264: 11,2174 03610 INTIME
029365,001265: 11,2175 01517 STORE TET
029366,001266: 11,2176 43015 DAD CLEAR
029367,001267: 11,2177 03452 DELLT4
029368,001268: 11,2200 01673 INTYPFLG
029369,001269: 11,2201 34041 STCALL TDEC1
029370,001270: 11,2202 27110 INTEGRVS
029371,001271: 11,2203 77775 VLOAD
029372,001272: 11,2204 00025 VATT1
029373,001273: 11,2205 02703 STORE VTARGET
029374,001274:
029375,001275: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029376,001276: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029377,001277:
029378,001278: 11,2206 63154 LXA,2 INCR,2
029379,001279: 11,2207 03616 ITCTR
029380,001280: 11,2210 00001 1D # INCREMENT ITCTR
029381,001281: 11,2211 55134 SXA,2 XSU,2
029382,001282: 11,2212 03616 ITCTR
029383,001283: 11,2213 02701 VTARGTAG
029384,001284: 11,2214 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029385,001285: 11,2215 00050 X2
029386,001286: 11,2216 22230 INITVEL6
029387,001287:
029388,001288: # OFFSET CONIC TARGET VECTOR
029389,001289:
029390,001290: 11,2217 52375 VLOAD VSU
029391,001291: 11,2220 03472 RTARG1
029392,001292: 11,2221 00017 RATT1
029393,001293: 11,2222 77655 VAD
029394,001294: 11,2223 02663 R2VEC
029395,001295: 11,2224 16663 STODL R2VEC
029396,001296: 11,2225 03667 COZY4
029397,001297: 11,2226 77650 GOTO
029398,001298: 11,2227 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2
029399,001299:
029400,001300: # COMPUTE THE DELTA VELOCITY
029401,001301:
029402,001302: 11,2230 77775 INITVEL6 VLOAD
029403,001303: 11,2231 02663 R2VEC
029404,001304: 11,2232 03472 STORE RTARG1
029405,001305: 11,2233 52375 INITVEL7 VLOAD VSU
029406,001306: 11,2234 02337 VIPRIME
029407,001307: 11,2235 02331 VINIT
|
|
Page 690 |
029409,001309: 11,2236 26366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
029410,001310: 11,2237 02703 VTARGET
029411,001311: 11,2240 03566 STORE VTPRIME
029412,001312: 11,2241 46135 SLOAD BHIZ
029413,001313: 11,2242 03000 RTX2
029414,001314: 11,2243 22260 INITVELX
029415,001315: 11,2244 70575 VLOAD VSR2
029416,001316: 11,2245 03566 VTPRIME
029417,001317: 11,2246 27566 STOVL VTPRIME
029418,001318: 11,2247 02337 VIPRIME
029419,001319: 11,2250 77742 VSR2
029420,001320: 11,2251 26337 STOVL VIPRIME
029421,001321: 11,2252 03472 RTARG1
029422,001322: 11,2253 77742 VSR2
029423,001323: 11,2254 27472 STOVL RTARG1
029424,001324: 11,2255 02366 DELVEET3
029425,001325: 11,2256 77742 VSR2
029426,001326: 11,2257 02366 STORE DELVEET3
029427,001327: 11,2260 70750 INITVELX LXA,1 DLOAD*
029428,001328: 11,2261 02776 RTX1
029429,001329: 11,2262 10003 MUTABLE -2,1
029430,001330: 11,2263 41206 PUSH DMP
029431,001331: 11,2264 02742 R1A
029432,001332: 11,2265 56342 SR1 DDV
029433,001333: 11,2266 00041 R1
029434,001334: 11,2267 17721 STODL MU/A
029435,001335: 11,2270 77661 SR
029436,001336: 11,2271 20607 6
029437,001337: 11,2272 03717 STORE MUASTEER
029438,001338: 11,2273 77201 SETPD VLOAD
029439,001339: 11,2274 00001 0D
029440,001340: 11,2275 03472 RTARG1
029441,001341: 11,2276 03444 STORE RTARG
029442,001342: 11,2277 52014 CLEAR GOTO
029443,001343: 11,2300 01267 XDELVFLG
029444,001344: 11,2301 03463 NORMEX
029445,001345:
029446,001346: # ..... END OF INITVEL ROUTINE .....
029447,001347:
|
|
Page 691 |
029449,001349: # ..... MIDGIM .....
029450,001350:
029451,001351: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029452,001352: # REVISION 03, 17 FEB 67
029453,001353:
029454,001354: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029455,001355: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029456,001356: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029457,001357: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029458,001358: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029459,001359:
029460,001360: # .. INPUTS ..
029461,001361:
029462,001362: # NAME MEANING UNITS/SCALING/MODE
029463,001363:
029464,001364: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
029465,001365: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
029466,001366: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
029467,001367: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
029468,001368:
029469,001369: # .. OUTPUTS ..
029470,001370:
029471,001371: # NAME MEANING UNITS/SCALING/MODE
029472,001372:
029473,001373: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
029474,001374: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
029475,001375: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
029476,001376:
029477,001377: # .. CALLING SEQUENCE ..
029478,001378:
029479,001379: # L CALL
029480,001380: # L+1 MIDGIM
029481,001381: # L+2 (RETURN - ALWAYS)
029482,001382:
029483,001383: # .. NO SUBROUTINES CALLED ..
029484,001384:
029485,001385: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
029486,001386:
029487,001387: # A,Q,L, PUSH LIST, MPAC.
029488,001388:
029489,001389: # .. ALARMS - NONE ..
029490,001390:
|
|
Page 692 |
029492,001392: # MIDDLE GIMBAL ANGLE COMPUTATION.
029493,001393:
029494,001394: 06,2000 SETLOC MIDDGIM
029495,001395: 06,2000 BANK
029496,001396:
029497,001397: 06,3723 COUNT* $$/MIDG
029498,001398:
029499,001399: 06,3723 20000 00000 HALFREV 2DEC 1 B-1
029500,001400:
029501,001401: 06,3725 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029502,001402: 06,3726 77656 UNIT
029503,001403: 06,3727 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029504,001404: 06,3730 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
029505,001405: 06,3731 51136 ARCSIN BPL
029506,001406: 06,3732 15736 SETMGA
029507,001407: 06,3733 43215 DAD DAD # CONVERT -MGA TO +MGA BY
029508,001408: 06,3734 15724 HALFREV # ADDING ONE REVOLUTION
029509,001409: 06,3735 15724 HALFREV
029510,001410: 06,3736 02253 SETMGA STORE +MGA
029511,001411: 06,3737 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
029512,001412: 06,3740 02675 MGLVFLAG # AND EXIT
029513,001413: 06,3741 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
029514,001414: 06,3742 02323 RINIT
029515,001415: 06,3743 77676 VCOMP # U(-R)
029516,001416: 06,3744 00023 STORE 18D # U(-R) TO 18D
029517,001417: 06,3745 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
029518,001418: 06,3746 02331 VINIT
029519,001419: 06,3747 00015 STORE 12D # U(V*R) TO 12D
029520,001420: 06,3750 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
029521,001421: 06,3751 00023 18D
029522,001422: 06,3752 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
029523,001423: 06,3753 00001 0D # DELTA V (+7) IN 0D
029524,001424: 06,3754 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
029525,001425: 06,3755 00007 6D # AND SCALE +7 IN MPAC
029526,001426: 06,3756 03434 STORE DELVLVC # STORE IN DELVLVC (+7)
029527,001427: 06,3757 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
029528,001428: 06,3760 02475 MGLVFLAG # AND EXIT
029529,001429:
029530,001430: # ..... END OF MIDGIM ROUTINE .....
029531,001431:
|
|
Page 693 |
029533,001433: 10,2000 BANK 10
029534,001434: 10,2000 SETLOC SLCTMU
029535,001435: 10,2000 BANK
029536,001436: 10,2000 COUNT* $$/MIDG
029537,001437:
029538,001438: 10,2000 77160 SELECTMU AXC,1 AXT,2
029539,001439: 10,2001 00002 2D
029540,001440: 10,2002 00000 0D
029541,001441: 10,2003 77614 BOFF
029542,001442: 10,2004 04343 CMOONFLG
029543,001443: 10,2005 20011 SETMUER
029544,001444: 10,2006 77160 AXC,1 AXT,2
029545,001445: 10,2007 00012 10D
029546,001446: 10,2010 00002 2D
029547,001447: 10,2011 66143 SETMUER DLOAD* SXA,1
029548,001448: 10,2012 10011 MUTABLE +4,1
029549,001449: 10,2013 02776 RTX1
029550,001450: 10,2014 22317 STODL* RTSR1/MU
029551,001451: 10,2015 10003 MUTABLE -2,1
029552,001452: 10,2016 54214 BOFF SR
029553,001453: 10,2017 04343 CMOONFLG
029554,001454: 10,2020 20022 RTRNMU
029555,001455: 10,2021 20607 6D
029556,001456: 10,2022 02321 RTRNMU STORE RTMU
029557,001457: 10,2023 43134 SXA,2 CLEAR
029558,001458: 10,2024 02777 RTX2
029559,001459: 10,2025 01271 FINALFLG
029560,001460: 10,2026 77650 GOTO
029561,001461: 10,2027 73515 VN1645
029562,001462:
|
|
Page 694 |
029564,001464: # ..... PERIAPO .....
029565,001465:
029566,001466: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
029567,001467: # MOD BY WHITE.P DATE 18JAN68
029568,001468:
029569,001469: # FUNCTIONAL DESCRIPTION
029570,001470:
029571,001471: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029572,001472: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029573,001473: # THE TRAJECTORY AND THE PRIMARY BODY.
029574,001474:
029575,001475: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029576,001476:
029577,001477: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029578,001478: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029579,001479:
029580,001480: # CALLING SEQUENCE
029581,001481:
029582,001482: # L CALL
029583,001483: # L+1 PERIAPO
029584,001484: # L+2 (RETURN - ALWAYS)
029585,001485:
029586,001486: # INPUT
029587,001487:
029588,001488: # (1) RVEC POSITION VECTOR IN METERS
029589,001489: # SCALE FACTOR - EARTH +29, MOON +27
029590,001490: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
029591,001491: # SCALE FACTOR - EARTH +7, MOON +5
029592,001492: # (3) X1 PRIMARY BODY INDICATOR
029593,001493: # EARTH -2, MOON -10
029594,001494:
029595,001495: # OUTPUT
029596,001496:
029597,001497: # (1) 2D APOCENTER RADIUS IN METERS
029598,001498: # SCALE FACTOR - EARTH +29, MOON +27
029599,001499: # (2) 4D APOCENTER ALTITUDE IN METERS
029600,001500: # SCALE FACTOR - EARTH +29, MOON P27
029601,001501: # (3) 6D PERICENTER RADIUS IN METERS
029602,001502: # SCALE FACTOR - EARTH +29, MOON +27
029603,001503: # (4) 8D PERICENTER ALTITUDE IN METERS
029604,001504: # SCALE FACTOR - EARTH +29, MOON +27
029605,001505: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
029606,001506: # SCALE FACTOR - +3
029607,001507: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
029608,001508: # SCALE FACTOR - EARTH +29, MOON +27
029609,001509: # (7) PUSHLOC EQUALS 10D
029610,001510:
029611,001511: # SUBROUTINES USED
029612,001512:
029613,001513: # SETRAD
|
|
Page 695 |
029615,001515: # APSIDES
029616,001516:
029617,001517: 23,2000 SETLOC APOPERI
029618,001518: 23,2000 BANK
029619,001519:
029620,001520: 23,2337 COUNT* $$/PERAP
029621,001521:
029622,001522: 23,2337 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
029623,001523: # = 20 909 901.57 FT
029624,001524:
029625,001525: 23,2341 53754 PERIAPO1 LXA,2 VSR*
029626,001526: 23,2342 02777 RTX2
029627,001527: 23,2343 57176 0,2
029628,001528: 23,2344 26744 STOVL VVEC
029629,001529: 23,2345 53750 LXA,1 VSR*
029630,001530: 23,2346 02776 RTX1
029631,001531: 23,2347 57176 0,2
029632,001532: 23,2350 02655 STORE RVEC
029633,001533: 23,2351 45020 PERIAPO STQ CALL
029634,001534: 23,2352 03463 NORMEX
029635,001535: 23,2353 46367 SETRAD
029636,001536: 23,2354 37671 STCALL XXXALT
029637,001537: 23,2355 25704 APSIDES
029638,001538: 23,2356 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
029639,001539: 23,2357 00003 2D
029640,001540: 23,2360 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
029641,001541: 23,2361 03671 XXXALT
029642,001542: 23,2362 00001 0D
029643,001543: 23,2363 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
029644,001544: 23,2364 03671 XXXALT
029645,001545: 23,2365 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
029646,001546: 23,2366 03463 NORMEX
029647,001547:
|
|
Page 696 |
029649,001549: # SETRAD
029650,001550:
029651,001551: 23,2367 41545 SETRAD DLOAD PUSH
029652,001552: 23,2370 06340 RPAD
029653,001553: 23,2371 63130 SXA,1 INCR,2
029654,001554: 23,2372 00047 X2
029655,001555: 23,2373 00002 2D
029656,001556: 23,2374 46135 SLOAD BHIZ
029657,001557: 23,2375 00050 X2
029658,001558: 23,2376 46402 SETRADX
029659,001559: 23,2377 51575 VLOAD ABVAL
029660,001560: 23,2400 02023 RLS
029661,001561: 23,2401 77725 PDDL
029662,001562: 23,2402 43545 SETRADX DLOAD RVQ
029663,001563:
|
|
Page 697 |
029665,001565: # PRECSET
029666,001566:
029667,001567: 23,2403 77620 PRECSET STQ
029668,001568: 23,2404 03463 NORMEX
029669,001569: 23,2405 37574 STCALL TDEC2
029670,001570: 23,2406 27060 LEMPREC
029671,001571: 23,2407 77624 CALL
029672,001572: 23,2410 46421 LEMSTORE
029673,001573: 23,2411 77745 DLOAD
029674,001574: 23,2412 03574 TDEC2
029675,001575: 23,2413 34041 STCALL TDEC1
029676,001576: 23,2414 27044 CSMPREC
029677,001577: 23,2415 77624 CALL
029678,001578: 23,2416 46431 CSMSTORE
029679,001579: 23,2417 77650 GOTO
029680,001580: 23,2420 03463 NORMEX
029681,001581: 23,2421 43175 LEMSTORE VLOAD BOFF
029682,001582: 23,2422 00001 RATT
029683,001583: 23,2423 01352 AVFLAG
029684,001584: 23,2424 46435 PASSIVE
029685,001585: 23,2425 27536 ACTIVE STOVL RACT3
029686,001586: 23,2426 00007 VATT
029687,001587: 23,2427 03544 STORE VACT3
029688,001588: 23,2430 77616 RVQ
029689,001589: 23,2431 43175 CSMSTORE VLOAD BOFF
029690,001590: 23,2432 00001 RATT
029691,001591: 23,2433 01352 AVFLAG
029692,001592: 23,2434 46425 ACTIVE
029693,001593: 23,2435 27552 PASSIVE STOVL RPASS3
029694,001594: 23,2436 00007 VATT
029695,001595: 23,2437 03560 STORE VPASS3
029696,001596: 23,2440 77616 RVQ
029697,001597:
|
|
Page 698 |
029699,001599: # VECSHIFT
029700,001600:
029701,001601: 23,2441 53754 VECSHIFT LXA,2 VSR*
029702,001602: 23,2442 02777 RTX2
029703,001603: 23,2443 57176 0,2
029704,001604: 23,2444 63350 LXA,1 PDVL
029705,001605: 23,2445 02776 RTX1
029706,001606: 23,2446 63257 VSR* PDVL
029707,001607: 23,2447 57176 0,2
029708,001608: 23,2450 77616 RVQ
029709,001609:
|
|
Page 699 |
029711,001611: # SHIFTR1
029712,001612:
029713,001613: 23,2451 53754 SHIFTR1 LXA,2 SL*
029714,001614: 23,2452 02777 RTX2
029715,001615: 23,2453 57576 0,2
029716,001616: 23,2454 77616 RVQ
029717,001617:
|
|
Page 700 |
029719,001619: # PROGRAM DESCRIPTION
029720,001620: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
029721,001621: # MOD NO. 0 DATE 22 DECEMBER 67
029722,001622: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
029723,001623: # FUNCTIONAL DESCRIPTION
029724,001624:
029725,001625: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029726,001626: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY).
029727,001627:
029728,001628: # CALLING SEQUENCE
029729,001629:
029730,001630: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
029731,001631:
029732,001632: # SUBROUTINES CALLED
029733,001633:
029734,001634: # EXDSPRET
029735,001635: # GOMARKF
029736,001636: # CSMPREC
029737,001637: # LEMPREC
029738,001638: # SGNAGREE
029739,001639: # LOADTIME
029740,001640:
029741,001641: # NORMAL EXIT MODES
029742,001642:
029743,001643: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029744,001644:
029745,001645: # ALARM OR ABORT EXIT MODES
029746,001646:
029747,001647: # NONE
029748,001648:
029749,001649: # OUTPUT
029750,001650:
029751,001651: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
029752,001652:
029753,001653: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
029754,001654: # REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
029755,001655:
029756,001656: # ERASABLE INITIALIZATION REQUIRED
029757,001657:
029758,001658: # CSM AND LEM STATE VECTORS
029759,001659:
029760,001660: # DEBRIS
029761,001661:
029762,001662: # CENTRALS A,Q,L
029763,001663: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
029764,001664:
029765,001665: 20,2115 BANK 20
029766,001666: 04,2000 SETLOC R36LM
029767,001667: 04,2000 BANK
|
|
Page 701 |
029769,001669: 04,2640 E4,1606 EBANK= RPASS36
029770,001670:
029771,001671: 04,2640 COUNT* $$/R36
029772,001672:
029773,001673: 04,2640 22007 R36 ZL
029774,001674: 04,2641 34755 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
029775,001675: 04,2642 53051 DXCH DSPTEMX # DISPLAY
029776,001676: 04,2643 32773 CAF V06N16N
029777,001677: 04,2644 04616 TC BANKCALL
029778,001678: 04,2645 20334 CADR GOMARKF
029779,001679: 04,2646 15472 TCF ENDEXT # TERMINATE
029780,001680: 04,2647 12651 TCF +2 # PROCEED
029781,001681: 04,2650 12643 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
029782,001682: 04,2651 53051 DXCH DSPTEMX
029783,001683: 04,2652 00006 EXTEND
029784,001684: 04,2653 12762 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
029785,001685: 04,2654 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
029786,001686: 04,2655 06042 TC INTPRET
029787,001687: 04,2656 77634 RTB
029788,001688: 04,2657 21717 DPMODE
029789,001689: 04,2660 34041 R36INT STCALL TDEC1
029790,001690: 04,2661 27044 OTHPREC
029791,001691: 04,2662 63375 VLOAD PDVL
029792,001692: 04,2663 00007 VATT
029793,001693: 04,2664 00001 RATT # -
029794,001694: 04,2665 02207 STORE RPASS36 # R
029795,001695: 04,2666 63256 UNIT PDVL # P
029796,001696: 04,2667 53435 VXV UNIT
029797,001697: 04,2670 77626 STADR # -
029798,001698: 04,2671 61562 STODL UNP36 # U
029799,001699: 04,2672 00015 TAT
029800,001700: 04,2673 34041 STCALL TDEC1
029801,001701: 04,2674 27060 THISPREC
029802,001702: 04,2675 63375 VLOAD PDVL # -
029803,001703: 04,2676 00007 VATT # VELOCITY VECTOR V 00D
029804,001704: 04,2677 00001 RATT # A
029805,001705: 04,2700 77725 PDDL
029806,001706: 04,2701 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
029807,001707: 04,2702 24037 STOVL 30D # -
029808,001708: 04,2703 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
029809,001709: 04,2704 63245 BVSU PDVL # A - -
029810,001710: 04,2705 02207 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
029811,001711: 04,2706 72441 DOT SL1 # P A
029812,001712: 04,2707 02215 UNP36 # - -
029813,001713: 04,2710 26201 STOVL RANGE # Y = U . R
029814,001714: 04,2711 00001 00D # A
029815,001715: 04,2712 72441 DOT SL1
029816,001716: 04,2713 02215 UNP36 # . - -
029817,001717: 04,2714 26203 STOVL RRATE # Y = U . V
029818,001718: 04,2715 00007 06D # - A -
|
|
Page 702 |
029820,001720: 04,2716 41456 UNIT PUSH # U = UNIT ( R ) 18D
029821,001721: 04,2717 47235 VXV VXV # RA A
029822,001722: 04,2720 00001 00D # - - - -
029823,001723: 04,2721 00023 18D # (U X V ) X U = U
029824,001724: 04,2722 53552 VSL2 UNIT # RA A RA A
029825,001725: 04,2723 77656 UNIT
029826,001726: 04,2724 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
029827,001727: 04,2725 00023 18D
029828,001728: 04,2726 74241 DOT VXSC # -
029829,001729: 04,2727 00015 12D # U
029830,001730: 04,2730 77752 VSL2 # L
029831,001731: 04,2731 53445 BVSU UNIT
029832,001732: 04,2732 77656 UNIT
029833,001733: 04,2733 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
029834,001734: 04,2734 00001 00D # PLANE
029835,001735: 04,2735 65552 SL1 ARCCOS # - -
029836,001736: 04,2736 26205 STOVL RTHETA # PSI = ARCCOS(U . U )
029837,001737: 04,2737 50235 VXV DOT # A L
029838,001738: 04,2740 00001 00D
029839,001739: 04,2741 71244 BPL DLOAD
029840,001740: 04,2742 10747 R36TAG2
029841,001741: 04,2743 24020 LODPMAX
029842,001742: 04,2744 77625 DSU
029843,001743: 04,2745 02205 RTHETA
029844,001744: 04,2746 02205 STORE RTHETA
029845,001745: 04,2747 47145 R36TAG2 DLOAD RTB
029846,001746: 04,2750 00037 30D
029847,001747: 04,2751 21613 SGNAGREE
029848,001748: 04,2752 01051 STORE DSPTEMX
029849,001749: 04,2753 77776 EXIT
029850,001750: 04,2754 32774 CAF V06N90N # DISPLAY Y, YDOT, AND PSI
029851,001751: 04,2755 04616 TC BANKCALL
029852,001752: 04,2756 20334 CADR GOMARKF
029853,001753: 04,2757 15472 TCF ENDEXT # TERMINATE
029854,001754: 04,2760 15472 TCF ENDEXT # PROCEED, END OF PROGRAM
029855,001755: 04,2761 12643 TCF R36 +3 # REDISPLAY OUTPUT
029856,001756: 04,2762 56001 LREGCHK XCH L
029857,001757: 04,2763 00006 EXTEND
029858,001758: 04,2764 12767 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
029859,001759: 04,2765 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
029860,001760: 04,2766 12654 TCF ASTROTIM
029861,001761: 04,2767 06042 ENTTIM2 TC INTPRET
029862,001762: 04,2770 52034 RTB GOTO
029863,001763: 04,2771 21574 LOADTIME
029864,001764: 04,2772 10660 R36INT
029865,001765: 04,2773 01420 V06N16N VN 00616
029866,001766: 04,2774 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc