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