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