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