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