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