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