Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
027044,000002: ## Copyright: Public domain.
027045,000003: ## Filename: P35-P37.agc
027046,000004: ## Purpose: A section of Skylark revision 048.
027047,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
027048,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
027049,000007: ## this software are available; instead, this file was created via
027050,000008: ## disassembly of dumps of the core rope modules actually flown on
027051,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
027052,000010: ## Museum of Space History.
027053,000011: ## Assembler: yaYUL
027054,000012: ## Contact: Ron Burkey <info@sandroid.org>.
027055,000013: ## Website: www.ibiblio.org/apollo/index.html
027056,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
027057,000015: ## 2024-03-05 MAS Updated for Skylark 48.
027058,000016:
027059,000017:
027060,000018: ## This log section is derived from Artemis's P34-P35, P74-P75.
027061,000019:
027062,000020: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
027063,000021:
027064,000022: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027065,000023: # MOD BY WHITE.P DATE 1JUNE67
027066,000024:
027067,000025: # PURPOSE
027068,000026:
027069,000027: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
027070,000028: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
027071,000029: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
027072,000030:
027073,000031: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
027074,000032: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
027075,000033:
027076,000034: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
027077,000035: # INTERCEPT TIME (TIG (TPF)).
027078,000036:
027079,000037: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
027080,000038:
027081,000039: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027082,000040: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027083,000041:
027084,000042: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
027085,000043: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
027086,000044: # ASTRONAUT/GROUND.
027087,000045:
027088,000046: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
027089,000047: # THRUSTING PROGRAM.
027090,000048:
027091,000049: # ASSUMPTIONS
027092,000050:
027093,000051: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
027094,000052: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
027095,000053: # THEREFORE -
027096,000054:
027097,000055: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027098,000056: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027099,000057: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027100,000058: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027101,000059:
027102,000060: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027103,000061: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027104,000062:
027105,000063: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027106,000064: # ORBITS WAS MINIMIZED.
027107,000065:
027108,000066: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
027109,000067:
027110,000068: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027111,000069: # ORBIT OR 85 NM FOR EARTH ORBIT.
027112,000070:
027113,000071: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027114,000072: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
027115,000073: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027116,000074: # IN AN OUT-OF-PLANE MANEUVER.
027117,000075:
027118,000076: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
027119,000077: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
027120,000078:
027121,000079: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
027122,000080: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
027123,000081: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
027124,000082: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
027125,000083: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
027126,000084: # FLIGHT PLAN MANEUVER SEQUENCES.
027127,000085:
027128,000086: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027129,000087: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027130,000088: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027131,000089: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027132,000090: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027133,000091: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027134,000092: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027135,000093: # THRUSTING MANEUVER.
027136,000094:
027137,000095: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027138,000096:
027139,000097: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027140,000098:
027141,000099: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027142,000100: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027143,000101: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027144,000102: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027145,000103:
027146,000104: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027147,000105: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
027148,000106:
027149,000107: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
027150,000108: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
027151,000109: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
027152,000110:
027153,000111: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
027154,000112: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
027155,000113: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
027156,000114: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
027157,000115: # THROUGH THE USE OF V06N52.
027158,000116:
027159,000117: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
027160,000118: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
027161,000119: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
027162,000120: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
027163,000121: # UPON DELTA V AND EXPECTED MANEUVER TIME.
027164,000122:
027165,000123: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027166,000124:
027167,000125: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
027168,000126:
027169,000127: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
027170,000128:
027171,000129: # INPUT
027172,000130:
027173,000131: # (1) TTPI TIME OF THE TPI MANEUVER
027174,000132: # (2) ELEV DESIRED LOS ANGLE AT TPI
027175,000133: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
027176,000134: # TRANSFER FROM TPI TO TIME OF INTERCEPT
027177,000135:
027178,000136: # OUTPUT
027179,000137:
027180,000138: # (1) TRKMKCNT NUMBER OF MARKS
027181,000139: # (2) TTOGO TIME TO GO
027182,000140: # (3) +MGA MIDDLE GIMBAL ANGLE
027183,000141: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
027184,000142: # OR
027185,000143: # ELEV COMPUTED LOS ANGLE AT TPI
027186,000144: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
027187,000145: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
027188,000146: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
027189,000147: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
027190,000148: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
027191,000149:
027192,000150: # DOWNLINK
027193,000151:
027194,000152: # (1) TTPI TIME OF THE TPI MANEUVER
027195,000153: # (2) TIG TIME OF THE TPI MANEUVER
027196,000154: # (3) ELEV DESIRED LOS ANGLE AT TPI
027197,000155: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
027198,000156: # TRANSFER FROM TPI TO TIME OF INTERCEPT
027199,000157: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
027200,000158: # (6) TPASS4 TIME OF INTERCEPT
027201,000159:
027202,000160: # COMMUNICATION TO THRUSTING PROGRAMS
027203,000161:
027204,000162: # (1) TIG TIME OF THE TPI MANEUVER
027205,000163: # (2) RTARG OFFSET TARGET POSITION
027206,000164: # (3) TPASS4 TIME OF INTERCEPT
027207,000165: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
027208,000166:
027209,000167: # SUBROUTINES USED
027210,000168:
027211,000169: # VNPOOH
027212,000170: # DISPLAYE
027213,000171: # PRECSET
027214,000172: # S33/34.1
027215,000173: # ALARM
027216,000174: # BANKCALL
027217,000175: # GOFLASH
027218,000176: # GOTOPOOH
027219,000177: # TIMETHET
027220,000178: # S34/35.2
027221,000179: # PERIAPO1
027222,000180: # SHIFTR1
027223,000181: # S34/35.5
027224,000182: # VN1645
027225,000183:
027226,000184: 35,2000 SETLOC CSI/CDH
027227,000185: 35,2000 BANK
027228,000186: 35,2367 E4,1636 EBANK= SUBEXIT
027229,000187: 35,2367 COUNT* $$/P3474
027230,000188: 35,2367 04564 P35 TC P20FLGON
027231,000189: 35,2370 06006 TC INTPRET
027232,000190: 35,2371 71214 CLEAR DLOAD
027233,000191: 35,2372 05274 TPIMNFLG
027234,000192: 35,2373 15204 ZEROVECS
027235,000193: 35,2374 03724 STORE NN
027236,000194: 35,2375 77776 EXIT
027237,000195:
027238,000196: 35,2376 34600 CAF V06N37
027239,000197: 35,2377 05550 TC VNFLASH
027240,000198: 35,2400 34601 CAF V06N55
027241,000199: 35,2401 05550 TC VNFLASH
027242,000200: 35,2402 06006 TC INTPRET
027243,000201: 35,2403 71214 CLEAR DLOAD
027244,000202: 35,2404 01270 ETPIFLAG
027245,000203: 35,2405 03643 TTPI
027246,000204: 35,2406 02465 STORE TTPI0
027247,000205: 35,2407 17413 STODL TIG
027248,000206: 35,2410 03641 ELEV
027249,000207: 35,2411 43054 BZE SET
027250,000208: 35,2412 72414 P34/P74B
027251,000209: 35,2413 01070 ETPIFLAG
027252,000210: 35,2414 45014 P34/P74B CLEAR CALL
027253,000211: 35,2415 01271 FINALFLG
027254,000212: 35,2416 73430 VN1645
027255,000213: 35,2417 DELELO EQUALS 26D
027256,000214: 35,2417 43145 P34/P74C DLOAD SET
027257,000215: 35,2420 15204 ZEROVECS
027258,000216: 35,2421 03461 ITSWICH
027259,000217: 35,2422 43014 BON CLEAR
027260,000218: 35,2423 01310 ETPIFLAG
027261,000219: 35,2424 72426 SWCHSET
027262,000220: 35,2425 03661 ITSWICH
027263,000221: 35,2426 02234 SWCHSET STORE NOMTPI
027264,000222: 35,2427 43345 INTLOOP DLOAD DAD
027265,000223: 35,2430 03643 TTPI
027266,000224: 35,2431 02234 NOMTPI
027267,000225: 35,2432 34041 STCALL TDEC1
027268,000226: 35,2433 45416 PRECSET
027269,000227: 35,2434 77624 CALL
027270,000228: 35,2435 72713 S33/34.1
027271,000229: 35,2436 77454 BZE EXIT
027272,000230: 35,2437 72450 SWCHCLR
027273,000231: 35,2440 05644 INTALM TC ALARM
027274,000232: 35,2441 00611 OCT 611
027275,000233: 35,2442 35036 CAF V05N09
027276,000234: 35,2443 04647 TC BANKCALL
027277,000235: 35,2444 20623 CADR GOFLASH
027278,000236: 35,2445 04103 TC GOTOPOOH
027279,000237: 35,2446 02367 TC P35 # PROCEED
027280,000238: 35,2447 02440 TC INTALM # V32
027281,000239: 35,2450 43014 SWCHCLR BONCLR BON
027282,000240: 35,2451 03601 ITSWICH
027283,000241: 35,2452 72427 INTLOOP
027284,000242: 35,2453 01310 ETPIFLAG
027285,000243: 35,2454 72463 P34/P74D # DISPLAY TTPI
027286,000244: 35,2455 77776 EXIT
027287,000245: 35,2456 34601 CAF V06N55
027288,000246: 35,2457 05550 TC VNFLASH
027289,000247: 35,2460 06006 TC INTPRET
027290,000248: 35,2461 77650 GOTO
027291,000249: 35,2462 72513 P34/74E
027292,000250: 35,2463 77745 P34/P74D DLOAD
027293,000251: 35,2464 03643 TTPI
027294,000252: 35,2465 03576 STORE VTPRIME
027295,000253: 35,2466 77776 EXIT
027296,000254: 35,2467 34600 CAF V06N37 # TTPI
027297,000255: 35,2470 05550 TC VNFLASH
027298,000256: 35,2471 06006 P34/P74E TC INTPRET
027299,000257: 35,2472 43014 BOFF BOFF
027300,000258: 35,2473 01351 FINALFLG
027301,000259: 35,2474 72513 P34/74E # LAST PASS
027302,000260: 35,2475 05350 AUTOSEQ
027303,000261: 35,2476 72513 P34/74E
027304,000262: 35,2477 45345 DLOAD DSU
027305,000263: 35,2500 03576 VTPRIME
027306,000264: 35,2501 03643 TTPI
027307,000265: 35,2502 53046 ABVAL BZE
027308,000266: 35,2503 72513 P34/74E
027309,000267: 35,2504 43145 DLOAD CLEAR # IT IS FINAL COMP IN MINKEY
027310,000268: 35,2505 15204 ZEROVECS # SET UP FOR TIG OPTION
027311,000269: 35,2506 01270 ETPIFLAG
027312,000270: 35,2507 17641 STODL ELEV
027313,000271: 35,2510 03643 TTPI
027314,000272: 35,2511 37413 STCALL TIG
027315,000273: 35,2512 72417 P34/P74C
027316,000274: 35,2513 71201 P34/74E SETPD DLOAD
027317,000275: 35,2514 00001 0D
027318,000276: 35,2515 32625 130DEG
027319,000277: 35,2516 71406 PUSH COS
027320,000278: 35,2517 16726 STODL CSTH
027321,000279: 35,2520 77756 SIN
027322,000280: 35,2521 26724 STOVL SNTH
027323,000281: 35,2522 03532 RPASS3
027324,000282: 35,2523 26651 STOVL RVEC
027325,000283: 35,2524 03540 VPASS3
027326,000284: 35,2525 77614 SET
027327,000285: 35,2526 03466 RVSW
027328,000286: 35,2527 36740 STCALL VVEC
027329,000287: 35,2530 25004 TIMETHET
027330,000288: 35,2531 77745 DLOAD
027331,000289: 35,2532 03643 TTPI
027332,000290: 35,2533 02332 STORE INTIME # FOR INITVEL
027333,000291: 35,2534 77615 DAD
027334,000292: 35,2535 00037 T # RENDEZVOUS TIME
027335,000293: 35,2536 37634 STCALL TPASS4 # FOR INITVEL
027336,000294: 35,2537 73223 S34/35.2
027337,000295: 35,2540 51575 VLOAD ABVAL
027338,000296: 35,2541 03624 DELVEET3
027339,000297: 35,2542 26627 STOVL DELVTPI
027340,000298: 35,2543 03616 VPASS4
027341,000299: 35,2544 51451 VSU ABVAL
027342,000300: 35,2545 03576 VTPRIME
027343,000301: 35,2546 26631 STOVL DELVTPF
027344,000302: 35,2547 03516 RACT3
027345,000303: 35,2550 45115 PDVL CALL
027346,000304: 35,2551 03570 VIPRIME
027347,000305: 35,2552 45375 PERIAPO1
027348,000306: 35,2553 16633 STODL POSTTPI
027349,000307: 35,2554 03643 TTPI
027350,000308: 35,2555 03413 STORE TIG
027351,000309: 35,2556 77624 CALL
027352,000310: 35,2557 56566 P33/73F
027353,000311: 35,2560 77776 EXIT
027354,000312: 35,2561 34602 CAF V06N58
027355,000313: 35,2562 05550 TC VNFLASH
027356,000314: 35,2563 06006 TC INTPRET
027357,000315: 35,2564 43014 BON SET
027358,000316: 35,2565 01311 FINALFLG
027359,000317: 35,2566 72572 +4
027360,000318: 35,2567 00470 UPDATFLG
027361,000319: 35,2570 77650 GOTO
027362,000320: 35,2571 72574 +3
027363,000321: 35,2572 77614 SET
027364,000322: 35,2573 05074 TPIMNFLG
027365,000323: 35,2574 77775 VLOAD
027366,000324: 35,2575 03405 DELVLVC
027367,000325: 35,2576 03576 STORE VTPRIME
027368,000326: 35,2577 77776 EXIT
027369,000327:
027370,000328: 35,2600 34603 CAF V06N81
027371,000329: 35,2601 05550 TC VNFLASH
027372,000330:
027373,000331: 35,2602 06006 TC INTPRET
027374,000332: 35,2603 52375 VLOAD VSU
027375,000333: 35,2604 03405 DELVLVC
027376,000334: 35,2605 03576 VTPRIME
027377,000335: 35,2606 53046 ABVAL BZE
027378,000336: 35,2607 72620 NOWRT35
027379,000337: 35,2610 77624 CALL
027380,000338: 35,2611 73333 LOMAT # GET MATRIX IN PUSH LIST
027381,000339: 35,2612 77775 VLOAD
027382,000340: 35,2613 03405 DELVLVC # NEW DEL V TPI
027383,000341: 35,2614 76505 VXM VSL1
027384,000342: 35,2615 00001 0D
027385,000343: 35,2616 77624 CALL
027386,000344: 35,2617 73307 S34/35.3
027387,000345: 35,2620 77624 NOWRT35 CALL
027388,000346: 35,2621 73430 VN1645
027389,000347: 35,2622 77650 GOTO
027390,000348: 35,2623 72417 P34/P74C
027391,000349: 35,2624 13434 130DEG OCT 13434 # 13 DEG - CENTANG
027392,000350: 35,2625 16163 OCT 16163
027393,000351:
027394,000352: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
027395,000353:
027396,000354: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027397,000355: # MOD BY WHITE.P DATE 1JUNE67
027398,000356:
027399,000357: # PURPOSE
027400,000358:
027401,000359: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
027402,000360: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
027403,000361: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
027404,000362: # VEHICLE RENDEZVOUS.
027405,000363:
027406,000364: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
027407,000365: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
027408,000366: # ASTRONAUT/GROUND.
027409,000367:
027410,000368: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
027411,000369: # THRUSTING PROGRAM.
027412,000370:
027413,000371: # ASSUMPTIONS
027414,000372:
027415,000373: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027416,000374:
027417,000375: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027418,000376: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
027419,000377:
027420,000378: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
027421,000379: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
027422,000380: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
027423,000381: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
027424,000382: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
027425,000383: # P20 AND AFTER EACH THRUSTING MANEUVER.
027426,000384:
027427,000385: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027428,000386:
027429,000387: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027430,000388: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027431,000389: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027432,000390: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027433,000391:
027434,000392: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027435,000393: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
027436,000394:
027437,000395: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
027438,000396: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
027439,000397: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
027440,000398:
027441,000399: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
027442,000400: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
027443,000401: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
027444,000402:
027445,000403: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
027446,000404: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
027447,000405: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
027448,000406: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
027449,000407: # THROUGH THE USE OF V06N52.
027450,000408:
027451,000409: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
027452,000410: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
027453,000411: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
027454,000412: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
027455,000413: # UPON DELTA V AND EXPECTED MANEUVER TIME.
027456,000414:
027457,000415: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027458,000416:
027459,000417: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
027460,000418:
027461,000419: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
027462,000420:
027463,000421: # INPUT
027464,000422:
027465,000423: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
027466,000424:
027467,000425: # OUTPUT
027468,000426:
027469,000427: # (1) TRKMKCNT NUMBER OF MARKS
027470,000428: # (2) TTOGO TIME TO GO
027471,000429: # (3) +MGA MIDDLE GIMBAL ANGLE
027472,000430: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
027473,000431: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
027474,000432:
027475,000433: # DOWNLINK
027476,000434:
027477,000435: # (1) TIG TIME OF THE TPM MANEUVER
027478,000436: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
027479,000437: # (3) TPASS4 TIME OF INTERCEPT
027480,000438:
027481,000439: # COMMUNICATION TO THRUSTING PROGRAMS
027482,000440:
027483,000441: # (1) TIG TIME OF THE TPM MANEUVER
027484,000442: # (2) RTARG OFFSET TARGET POSITION
027485,000443: # (3) TPASS4 TIME OF INTERCEPT
027486,000444: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
027487,000445:
027488,000446: # SUBROUTINES USED
027489,000447:
027490,000448: # LOADTIME
027491,000449: # PRECSET
027492,000450: # S34/35.1
027493,000451: # S34/35.2
027494,000452: # S34/35.5
027495,000453: # VN1645
027496,000454:
027497,000455: 35,2626 COUNT* $$/P3537
027498,000456: 35,2626 E7,1412 EBANK= TIG
027499,000457:
027500,000458: 35,2626 04564 P36 TC P20FLGON # SET UPDATFLG, TRACKFLG
027501,000459: 35,2627 06006 TC INTPRET
027502,000460: 35,2630 43014 SET CLEAR
027503,000461: 35,2631 05074 TPIMNFLG
027504,000462: 35,2632 01271 FINALFLG
027505,000463: 35,2633 77624 CALL
027506,000464: 35,2634 73430 VN1645
027507,000465: 35,2635 77634 P35/P75B RTB
027508,000466: 35,2636 45563 LOADTIME
027509,000467: 35,2637 03645 STORE TSTRT
027510,000468: 35,2640 77615 DAD
027511,000469: 35,2641 32712 ATIGINC
027512,000470: 35,2642 03413 STORE TIG
027513,000471: 35,2643 02332 STORE INTIME # FOR INITVEL
027514,000472: 35,2644 34041 STCALL TDEC1
027515,000473: 35,2645 45416 PRECSET # ADVANCE BOTH VEHICLES
027516,000474: 35,2646 77624 CALL
027517,000475: 35,2647 74763 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
027518,000476: 35,2650 77624 CALL
027519,000477: 35,2651 73223 S34/35.2 # GET DELTA V(LV)
027520,000478: 35,2652 43014 BON SET
027521,000479: 35,2653 01311 FINALFLG
027522,000480: 35,2654 72660 +4
027523,000481: 35,2655 00470 UPDATFLG
027524,000482: 35,2656 77650 GOTO
027525,000483: 35,2657 72662 +3
027526,000484: 35,2660 77614 SET
027527,000485: 35,2661 05067 P35FLAG
027528,000486: 35,2662 77775 VLOAD
027529,000487: 35,2663 02611 DVLOS
027530,000488: 35,2664 03576 STORE VTPRIME
027531,000489: 35,2665 77776 EXIT
027532,000490:
027533,000491: 35,2666 33553 CAF V06N59
027534,000492: 35,2667 05550 TC VNFLASH
027535,000493:
027536,000494: 35,2670 06006 TC INTPRET
027537,000495: 35,2671 52375 VLOAD VSU
027538,000496: 35,2672 02611 DVLOS
027539,000497: 35,2673 03576 VTPRIME
027540,000498: 35,2674 53046 ABVAL BZE
027541,000499: 35,2675 72705 NOWRT36
027542,000500: 35,2676 77624 CALL
027543,000501: 35,2677 73376 LSMAT
027544,000502: 35,2700 61375 VLOAD VXM
027545,000503: 35,2701 02611 DVLOS
027546,000504: 35,2702 00001 0
027547,000505: 35,2703 45172 VSL1 CALL
027548,000506: 35,2704 73307 S34/35.3
027549,000507: 35,2705 77624 NOWRT36 CALL
027550,000508: 35,2706 73430 VN1645
027551,000509: 35,2707 77650 GOTO
027552,000510: 35,2710 72635 P35/P75B
027553,000511:
027554,000512: 35,2711 00001 03120 ATIGINC 2DEC 18000 B-28
027555,000513:
027556,000514: 04,2000 SETLOC P37LOC
027557,000515: 04,2000 E7,1717 EBANK= UTPIT
027558,000516: 04,2000 BANK
027559,000517:
027560,000518: 04,3127 04564 P37 TC P20FLGON
027561,000519:
027562,000520: 04,3130 35003 CAF ZERO
027563,000521: 04,3131 54001 TS L
027564,000522: 04,3132 53720 DXCH UTPIT
027565,000523:
027566,000524: 04,3133 35003 CAF ZERO
027567,000525: 04,3134 54001 TS L
027568,000526: 04,3135 53722 DXCH UTYAW
027569,000527:
027570,000528: 04,3136 05415 TC PHASCHNG
027571,000529: 04,3137 04024 OCT 04024
027572,000530:
027573,000531: 04,3140 34124 CAF OCT24
027574,000532: 04,3141 55237 TS EXTVBACT
027575,000533:
027576,000534: 04,3142 07710 TC UPFLAG
027577,000535: 04,3143 00222 ADRES R31FLAG
027578,000536: 04,3144 35061 CAF PRIO5
027579,000537: 04,3145 05150 TC FINDVAC
027580,000538: 04,3146 E4,1636 EBANK= SUBEXIT
027581,000539: 04,3146 02000 62064 2CADR R31CALL
027582,000540:
027583,000541: 04,3150 05220 TC ENDOFJOB
027584,000542:
027585,000543: 35,2000 SETLOC CSI/CDH
027586,000544: 35,2000 BANK
027587,000545: 35,2713 E7,1412 EBANK= TIG
027588,000546: 35,2713 COUNT* $$/P3537
027589,000547:
027590,000548: # ..... S33/34.1 .....
027591,000549:
027592,000550: 35,2713 66220 S33/34.1 STQ SSP
027593,000551: 35,2714 01011 NORMEX
027594,000552: 35,2715 03645 TITER
027595,000553: 35,2716 40000 OCT 40000
027596,000554: 35,2717 40345 DLOAD SETPD
027597,000555: 35,2720 33544 MAX250
027598,000556: 35,2721 00001 0D
027599,000557: 35,2722 27454 STOVL SECMAX
027600,000558: 35,2723 03516 RACT3
027601,000559: 35,2724 27554 STOVL RAPREC
027602,000560: 35,2725 03524 VACT3
027603,000561: 35,2726 27546 STOVL VAPREC
027604,000562: 35,2727 03532 RPASS3
027605,000563: 35,2730 27576 STOVL RPPREC
027606,000564: 35,2731 03540 VPASS3
027607,000565: 35,2732 03570 STORE VPPREC
027608,000566: 35,2733 77624 ELCALC CALL
027609,000567: 35,2734 74763 S34/35.1 # NORMAL AND LOS
027610,000568: 35,2735 63235 VXV PDVL
027611,000569: 35,2736 03516 RACT3 # (RA*VA)*RA 0D
027612,000570: 35,2737 53515 PDVL UNIT # ULOS AT 6D
027613,000571: 35,2740 03516 RACT3
027614,000572: 35,2741 46315 PDVL VPROJ # XCHNJ AND UP
027615,000573: 35,2742 51352 VSL2 BVSU
027616,000574: 35,2743 02617 ULOS
027617,000575: 35,2744 63256 UNIT PDVL # UP AT 0D
027618,000576: 35,2745 63241 DOT PDVL # UP.UN*RA AT 0D
027619,000577: 35,2746 00001 0D # UP IN MPAC
027620,000578: 35,2747 75241 DOT SIGN
027621,000579: 35,2750 02617 ULOS
027622,000580: 35,2751 65552 SL1 ACOS
027623,000581: 35,2752 50315 PDVL DOT # EA AT 0D
027624,000582: 35,2753 02617 ULOS
027625,000583: 35,2754 03516 RACT3
027626,000584: 35,2755 71244 BPL DLOAD
027627,000585: 35,2756 72761 TESTY
027628,000586: 35,2757 15212 DPPOSMAX
027629,000587: 35,2760 41425 DSU PUSH
027630,000588: 35,2761 71214 TESTY BOFF DLOAD
027631,000589: 35,2762 03741 ITSWICH
027632,000590: 35,2763 73210 ELEX
027633,000591: 35,2764 03452 DELEL
027634,000592: 35,2765 14033 STODL DELELO
027635,000593: 35,2766 77625 DSU
027636,000594: 35,2767 03641 ELEV
027637,000595: 35,2770 03452 STORE DELEL
027638,000596: 35,2771 45246 ABS DSU
027639,000597: 35,2772 33550 ELEPS
027640,000598: 35,2773 77640 BMN
027641,000599: 35,2774 73220 TIMEX # COMMERCIALS EVERYWHERE
027642,000600: 35,2775 70535 FIGTIME SLOAD SR1
027643,000601: 35,2776 03645 TITER
027644,000602: 35,2777 72030 BHIZ LXA,1
027645,000603: 35,3000 01011 NORMEX # TOO MANY ITERATIONS
027646,000604: 35,3001 00154 MPAC
027647,000605: 35,3002 77330 SXA,1 VLOAD
027648,000606: 35,3003 03644 TITER
027649,000607: 35,3004 03532 RPASS3
027650,000608: 35,3005 65256 UNIT PDDL
027651,000609: 35,3006 00045 36D
027652,000610: 35,3007 53515 PDVL UNIT
027653,000611: 35,3010 03516 RACT3
027654,000612: 35,3011 77725 PDDL
027655,000613: 35,3012 41525 PDDL PUSH
027656,000614: 35,3013 00045 36D
027657,000615: 35,3014 77621 BDSU
027658,000616: 35,3015 00015 12D
027659,000617: 35,3016 14037 STODL 30D # RP - RA MAGNITUDES
027660,000618: 35,3017 15202 DPHALF
027661,000619: 35,3020 41425 DSU PUSH
027662,000620: 35,3021 03641 ELEV
027663,000621: 35,3022 50165 SIGN BMN
027664,000622: 35,3023 00037 30D
027665,000623: 35,3024 01011 NORMEX
027666,000624: 35,3025 71545 DLOAD COS
027667,000625: 35,3026 56205 DMP DDV
027668,000626: 35,3027 00017 14D
027669,000627: 35,3030 00015 12D
027670,000628: 35,3031 77676 DCOMP # SINCE COS(180-A)=-COS A
027671,000629: 35,3032 00035 STORE 28D
027672,000630: 35,3033 44246 ABS BDSU
027673,000631: 35,3034 15202 DPHALF
027674,000632: 35,3035 77240 BMN VLOAD
027675,000633: 35,3036 01011 NORMEX
027676,000634: 35,3037 02543 UNRM
027677,000635: 35,3040 53435 VXV UNIT
027678,000636: 35,3041 00007 6D # UN*RA
027679,000637: 35,3042 41241 DOT DMP
027680,000638: 35,3043 03524 VACT3
027681,000639: 35,3044 00015 12D
027682,000640: 35,3045 47315 PDVL VXV
027683,000641: 35,3046 00001 0D
027684,000642: 35,3047 03540 VPASS3
027685,000643: 35,3050 53435 VXV UNIT
027686,000644: 35,3051 00001 0D # (RP*VP)*RP
027687,000645: 35,3052 41241 DOT DMP
027688,000646: 35,3053 03540 VPASS3
027689,000647: 35,3054 00017 14D
027690,000648: 35,3055 77621 BDSU
027691,000649: 35,3056 63301 NORM PDVL # NORMALIZED WA - WP 12D
027692,000650: 35,3057 00047 X1
027693,000651: 35,3060 00007 6D
027694,000652: 35,3061 50235 VXV DOT
027695,000653: 35,3062 00001 0D
027696,000654: 35,3063 02543 UNRM # RA*RP.UN 14D
027697,000655: 35,3064 50315 PDVL DOT
027698,000656: 35,3065 00001 0D
027699,000657: 35,3066 00007 6D
027700,000658: 35,3067 65552 SL1 ACOS
027701,000659: 35,3070 77765 SIGN
027702,000660: 35,3071 43225 DSU DAD # ALPHA PI
027703,000661: 35,3072 15202 DPHALF
027704,000662: 35,3073 03641 ELEV
027705,000663: 35,3074 65525 PDDL ACOS
027706,000664: 35,3075 00035 28D
027707,000665: 35,3076 75221 BDSU SIGN
027708,000666: 35,3077 15202 DPHALF
027709,000667: 35,3100 00037 30D # CONTAINS RP-RA
027710,000668: 35,3101 77615 DAD
027711,000669: 35,3102 56205 DMP DDV
027712,000670: 35,3103 33542 TWOPI
027713,000671: 35,3104 77605 DMP
027714,000672: 35,3105 41257 SL* DMP
027715,000673: 35,3106 20176 0 -3,1
027716,000674: 35,3107 51406 PUSH ABS
027717,000675: 35,3110 50025 DSU BMN
027718,000676: 35,3111 03454 SECMAX
027719,000677: 35,3112 73116 OKMAX
027720,000678: 35,3113 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
027721,000679: 35,3114 03454 SECMAX
027722,000680: 35,3115 77606 PUSH
027723,000681: 35,3116 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
027724,000682: 35,3117 03645 TITER
027725,000683: 35,3120 73126 REPETE
027726,000684: 35,3121 71331 SSP DLOAD
027727,000685: 35,3122 03645 TITER
027728,000686: 35,3123 37777 OCT 37777
027729,000687: 35,3124 77650 GOTO
027730,000688: 35,3125 73164 STORDELT
027731,000689: 35,3126 41345 REPETE DLOAD DMP
027732,000690: 35,3127 03452 DELEL
027733,000691: 35,3130 00033 DELELO
027734,000692: 35,3131 71244 BPL DLOAD
027735,000693: 35,3132 73142 NEXTES
027736,000694: 35,3133 03454 SECMAX
027737,000695: 35,3134 77605 DMP
027738,000696: 35,3135 33546 THIRD
027739,000697: 35,3136 17454 STODL SECMAX
027740,000698: 35,3137 70446 ABS SR1 # CROSSED OVER SOLUTION
027741,000699: 35,3140 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
027742,000700: 35,3141 73152 RESIGN
027743,000701: 35,3142 51545 NEXTES DLOAD ABS
027744,000702: 35,3143 03452 DELEL
027745,000703: 35,3144 51525 PDDL ABS
027746,000704: 35,3145 00033 DELELO
027747,000705: 35,3146 77625 DSU
027748,000706: 35,3147 71240 BMN DLOAD
027749,000707: 35,3150 73155 REVERS # WRONG DIRECTION
027750,000708: 35,3151 77646 ABS
027751,000709: 35,3152 52165 RESIGN SIGN GOTO
027752,000710: 35,3153 03450 DELTEEO
027753,000711: 35,3154 73164 STORDELT
027754,000712: 35,3155 57545 REVERS DLOAD DCOMP
027755,000713: 35,3156 03450 DELTEEO
027756,000714: 35,3157 70406 PUSH SR1
027757,000715: 35,3160 03450 STORE DELTEEO
027758,000716: 35,3161 77615 DAD
027759,000717: 35,3162 77650 GOTO
027760,000718: 35,3163 73165 ADTIME
027761,000719: 35,3164 03450 STORDELT STORE DELTEEO
027762,000720: 35,3165 77615 ADTIME DAD
027763,000721: 35,3166 02234 NOMTPI # SUM OF DELTA T:S
027764,000722: 35,3167 02234 STORE NOMTPI
027765,000723: 35,3170 63375 VLOAD PDVL
027766,000724: 35,3171 03546 VAPREC
027767,000725: 35,3172 03554 RAPREC
027768,000726: 35,3173 77624 CALL
027769,000727: 35,3174 73346 GOINT
027770,000728: 35,3175 77624 CALL
027771,000729: 35,3176 45462 ACTIVE # STORE NEW RACT3 VACT3
027772,000730: 35,3177 63375 VLOAD PDVL
027773,000731: 35,3200 03570 VPPREC
027774,000732: 35,3201 03576 RPPREC
027775,000733: 35,3202 77624 CALL
027776,000734: 35,3203 73346 GOINT
027777,000735: 35,3204 77624 CALL
027778,000736: 35,3205 45470 PASSIVE # STORE NEW RPASS3 VPASS3
027779,000737: 35,3206 77650 GOTO
027780,000738: 35,3207 72733 ELCALC
027781,000739: 35,3210 43345 ELEX DLOAD DAD
027782,000740: 35,3211 03643 TTPI
027783,000741: 35,3212 02234 NOMTPI
027784,000742: 35,3213 17643 STODL TTPI
027785,000743: 35,3214 77614 BON
027786,000744: 35,3215 01310 ETPIFLAG
027787,000745: 35,3216 73220 TIMEX
027788,000746: 35,3217 03641 STORE ELEV
027789,000747: 35,3220 52145 TIMEX DLOAD GOTO
027790,000748: 35,3221 15204 ZEROVECS
027791,000749: 35,3222 01011 NORMEX
027792,000750:
027793,000751: # ..... S34/35.1 .....
027794,000752:
027795,000753: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
027796,000754: # PASSIVE POS AND VEL AT TIME T3
027797,000755:
027798,000756: 36,2000 SETLOC S3435LOC
027799,000757: 36,2000 BANK
027800,000758:
027801,000759: 36,2763 COUNT* $$/P3474
027802,000760: 36,2763 52375 S34/35.1 VLOAD VSU
027803,000761: 36,2764 03532 RPASS3
027804,000762: 36,2765 03516 RACT3
027805,000763: 36,2766 41456 UNIT PUSH
027806,000764: 36,2767 26617 STOVL ULOS
027807,000765: 36,2770 03516 RACT3
027808,000766: 36,2771 53435 VXV UNIT
027809,000767: 36,2772 03524 VACT3
027810,000768: 36,2773 02543 STORE UNRM
027811,000769: 36,2774 77616 RVQ
027812,000770:
027813,000771: # ..... S34/35.2 .....
027814,000772:
027815,000773: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
027816,000774:
027817,000775: 35,2000 SETLOC CSI/CDH
027818,000776: 35,2000 BANK
027819,000777:
027820,000778: 35,3223 COUNT* $$/P3474
027821,000779: 35,3223 77220 S34/35.2 STQ VLOAD
027822,000780: 35,3224 02236 SUBEXIT
027823,000781: 35,3225 03540 VPASS3
027824,000782: 35,3226 65315 PDVL PDDL
027825,000783: 35,3227 03532 RPASS3
027826,000784: 35,3230 02332 INTIME
027827,000785: 35,3231 65325 PDDL PDDL
027828,000786: 35,3232 03634 TPASS4
027829,000787: 35,3233 33542 TWOPI # CONIC
027830,000788: 35,3234 46125 PDDL BHIZ
027831,000789: 35,3235 03724 NN
027832,000790: 35,3236 73241 S3435.23
027833,000791: 35,3237 65345 DLOAD PDDL
027834,000792: 35,3240 15204 ZEROVECS # PRECISION
027835,000793: 35,3241 77624 S3435.23 CALL
027836,000794: 35,3242 73352 INTINT # GET TARGET VECTOR
027837,000795: 35,3243 27415 S3435.25 STOVL RTARG
027838,000796: 35,3244 00007 VATT
027839,000797: 35,3245 27616 STOVL VPASS4
027840,000798: 35,3246 03415 RTARG
027841,000799: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
027842,000800: 35,3247 63256 UNIT PDVL # UNIT RP
027843,000801: 35,3250 03516 RACT3
027844,000802: 35,3251 41456 UNIT PUSH # UNIT RA
027845,000803: 35,3252 50235 VXV DOT
027846,000804: 35,3253 00001 0D
027847,000805: 35,3254 02543 UNRM # RA*RP.U
027848,000806: 35,3255 77715 PDVL
027849,000807: 35,3256 72441 DOT SL1 # UNIT RA.UNIT RP
027850,000808: 35,3257 00001 0D
027851,000809: 35,3260 75326 ACOS SIGN
027852,000810: 35,3261 43244 BPL DAD
027853,000811: 35,3262 73264 NOPIE
027854,000812: 35,3263 15212 DPPOSMAX # REASONABLE TWO PI
027855,000813: 35,3264 16625 NOPIE STODL ACTCENT
027856,000814: 35,3265 03634 TPASS4
027857,000815: 35,3266 77625 DSU
027858,000816: 35,3267 02332 INTIME
027859,000817: 35,3270 03423 STORE DELLT4
027860,000818: 35,3271 40335 SLOAD SETPD
027861,000819: 35,3272 03724 NN # NUMBER OF OFFSETS
027862,000820: 35,3273 00001 0D
027863,000821: 35,3274 63325 PDDL PDVL
027864,000822: 35,3275 33552 EPSFOUR
027865,000823: 35,3276 03516 RACT3
027866,000824: 35,3277 27546 STOVL RINIT
027867,000825: 35,3300 03524 VACT3
027868,000826: 35,3301 37554 STCALL VINIT
027869,000827: 35,3302 22000 INITVEL
027870,000828: 35,3303 77624 CALL
027871,000829: 35,3304 73411 DVCONV
027872,000830: 35,3305 77650 GOTO
027873,000831: 35,3306 02236 SUBEXIT
027874,000832:
027875,000833: # ..... S34/35.3 .....
027876,000834:
027877,000835: 35,3307 77620 S34/35.3 STQ
027878,000836: 35,3310 01011 NORMEX
027879,000837: 35,3311 03624 STORE DELVEET3 # SAVE FOR TRANSFORM
027880,000838: 35,3312 63255 VAD PDVL
027881,000839: 35,3313 03524 VACT3 # NEW V REQ
027882,000840: 35,3314 03516 RACT3
027883,000841: 35,3315 65325 PDDL PDDL
027884,000842: 35,3316 03413 TIG
027885,000843: 35,3317 03634 TPASS4
027886,000844: 35,3320 41525 PDDL PUSH
027887,000845: 35,3321 15212 DPPOSMAX
027888,000846: 35,3322 77624 CALL # INTEG. FOR NEW TARGET VEC
027889,000847: 35,3323 73352 INTINT
027890,000848: 35,3324 77775 VLOAD
027891,000849: 35,3325 00001 RATT
027892,000850: 35,3326 03415 STORE RTARG
027893,000851: 35,3327 77624 CALL
027894,000852: 35,3330 73411 DVCONV
027895,000853: 35,3331 77650 GOTO
027896,000854: 35,3332 01011 NORMEX
027897,000855:
027898,000856: # ..... LOMAT .....
027899,000857:
027900,000858: 35,3333 57575 LOMAT VLOAD VCOMP
027901,000859: 35,3334 02543 UNRM
027902,000860: 35,3335 24007 STOVL 6D # Y
027903,000861: 35,3336 03516 RACT3
027904,000862: 35,3337 57456 UNIT VCOMP
027905,000863: 35,3340 00015 STORE 12D
027906,000864: 35,3341 76435 VXV VSL1
027907,000865: 35,3342 02543 UNRM # Z*-Y
027908,000866: 35,3343 00001 STORE 0D
027909,000867: 35,3344 43401 SETPD RVQ
027910,000868: 35,3345 00023 18D
027911,000869: 35,3346 65325 GOINT PDDL PDDL # DO
027912,000870: 35,3347 15204 ZEROVECS # NOT
027913,000871: 35,3350 02234 NOMTPI
027914,000872: 35,3351 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
027915,000873: 35,3352 45020 INTINT STQ CALL
027916,000874: 35,3353 02235 RTRN
027917,000875: 35,3354 11720 INTSTALL
027918,000876: 35,3355 71214 CLEAR DLOAD
027919,000877: 35,3356 01673 INTYPFLG
027920,000878: 35,3357 43054 BZE SET
027921,000879: 35,3360 73362 +2
027922,000880: 35,3361 01473 INTYPFLG
027923,000881: 35,3362 45545 DLOAD STADR
027924,000882: 35,3363 63736 STODL TDEC1
027925,000883: 35,3364 77626 STADR
027926,000884: 35,3365 52260 ALLSET STOVL TET
027927,000885: 35,3366 77626 STADR
027928,000886: 35,3367 52242 STOVL RCV
027929,000887: 35,3370 77626 STADR
027930,000888: 35,3371 42234 STCALL VCV
027931,000889: 35,3372 11444 INTEGRVS
027932,000890: 35,3373 52175 VLOAD GOTO
027933,000891: 35,3374 00001 RATT
027934,000892: 35,3375 02235 RTRN
027935,000893:
|
|
The names of the following two functions are guesses.
|
027937,000895: 35,3376 77601 LSMAT SETPD
027938,000896: 35,3377 00001 0
027939,000897: 35,3400 41575 VLOAD PUSH
027940,000898: 35,3401 02617 ULOS
027941,000899: 35,3402 57435 VXV VCOMP
027942,000900: 35,3403 02543 UNRM
027943,000901: 35,3404 41456 UNIT PUSH
027944,000902: 35,3405 76435 VXV VSL1
027945,000903: 35,3406 02617 ULOS
027946,000904: 35,3407 77715 PDVL
027947,000905: 35,3410 43406 PUSH RVQ
027948,000906:
027949,000907:
027950,000908: 35,3411 45020 DVCONV STQ CALL
027951,000909: 35,3412 02237 QSAVED
027952,000910: 35,3413 73333 LOMAT
027953,000911: 35,3414 64375 VLOAD MXV
027954,000912: 35,3415 03624 DELVEET3
027955,000913: 35,3416 00001 0
027956,000914: 35,3417 77772 VSL1
027957,000915: 35,3420 37405 STCALL DELVLVC
027958,000916: 35,3421 73376 LSMAT
027959,000917: 35,3422 64375 VLOAD MXV
027960,000918: 35,3423 03624 DELVEET3
027961,000919: 35,3424 00001 0
027962,000920: 35,3425 77772 VSL1
027963,000921: 35,3426 36611 STCALL DVLOS
027964,000922: 35,3427 02237 QSAVED
027965,000923:
027966,000924:
027967,000925: # ..... VN1645 .....
027968,000926:
027969,000927: # SUBROUTINES USED
027970,000928:
027971,000929: # P3XORP7X
027972,000930: # GET+MGA
027973,000931: # BANKCALL
027974,000932: # DELAYJOB
027975,000933: # COMPTGO
027976,000934: # GOFLASHR
027977,000935: # GOTOPOOH
027978,000936: # FLAGUP
027979,000937:
027980,000938: 35,3430 71220 VN1645 STQ DLOAD
027981,000939: 35,3431 02236 SUBEXIT
027982,000940: 35,3432 20510 DP-.01
027983,000941: 35,3433 03604 STORE +MGA # MGA = -.01
027984,000942: 35,3434 71214 BOFF DLOAD
027985,000943: 35,3435 01351 FINALFLG
027986,000944: 35,3436 73452 GET45
027987,000945: 35,3437 20510 DP-.01
027988,000946: 35,3440 77615 DAD
027989,000947: 35,3441 20510 DP-.01
027990,000948: 35,3442 03604 STORE +MGA # MGA = -.02
027991,000949: 35,3443 77614 BOFF
027992,000950: 35,3444 01742 REFSMFLG
027993,000951: 35,3445 73452 GET45
027994,000952: 35,3446 41575 VLOAD PUSH
027995,000953: 35,3447 03624 DELVSIN
027996,000954: 35,3450 77624 CALL # COMPUTE MGA
027997,000955: 35,3451 56734 GET+MGA
027998,000956: 35,3452 77776 GET45 EXIT
027999,000957: 35,3453 02340 +1 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
028000,000958: 35,3454 31636 CA SUBEXIT
028001,000959: 35,3455 55637 TS QSAVED
028002,000960: 35,3456 04647 TC BANKCALL
028003,000961: 35,3457 01730 CADR 1SECDELY
028004,000962: 35,3460 34604 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
028005,000963: 35,3461 04647 TC BANKCALL
028006,000964: 35,3462 20623 CADR GOFLASH
028007,000965: 35,3463 04103 TC GOTOPOOH # TERMINATE
028008,000966: 35,3464 03466 TC N45PROC # PROCEED
028009,000967: 35,3465 03476 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
028010,000968: 35,3466 40076 N45PROC CS FLAGWRD2
028011,000969: 35,3467 74774 MASK FINALBIT
028012,000970: 35,3470 00006 EXTEND
028013,000971: 35,3471 13515 BZF N45ENAJ # FINAL FLAG SET - FINAL PASS
028014,000972: 35,3472 05415 N45NORM TC PHASCHNG
028015,000973: 35,3473 04024 OCT 04024
028016,000974: 35,3474 07710 TC UPFLAG # SET
028017,000975: 35,3475 00047 ADRES FINALFLG # FINALFLG
028018,000976: 35,3476 07722 CLUPDATE TC DOWNFLAG
028019,000977: 35,3477 00155 ADRES TIMRFLAG # TERMINATE CLOKTASK
028020,000978: 35,3500 33540 CAF VN1645AD # CHANGE BACK TO 4.1 FOR
028021,000979: 35,3501 54372 TS TEMPFLSH # FUTURE DISPLAYS
028022,000980: 35,3502 05415 TC PHASCHNG
028023,000981: 35,3503 00014 OCT 14
028024,000982: 35,3504 03511 TC VN1645R
028025,000983:
028026,000984: 35,3505 35063 VNRSTART CAF PRIO7
028027,000985: 35,3506 05211 TC PRIOCHNG
028028,000986: 35,3507 35064 CAF PRIO13
028029,000987: 35,3510 05211 TC PRIOCHNG
028030,000988:
028031,000989: 35,3511 06006 VN1645R TC INTPRET
028032,000990: 35,3512 52014 CLEAR GOTO
028033,000991: 35,3513 00670 UPDATFLG
028034,000992: 35,3514 02237 +3 QSAVED
028035,000993: 35,3515 05415 N45ENAJ TC PHASCHNG # PROTECT MANEVFLG, WRENDPOS
028036,000994: 35,3516 04024 OCT 04024
028037,000995: 35,3517 06006 TC INTPRET
028038,000996: 35,3520 77745 DLOAD
028039,000997: 35,3521 03413 TIG
028040,000998: 35,3522 03450 STORE NOMTIG
028041,000999: 35,3523 43014 BON SET
028042,001000: 35,3524 05316 PCFLAG
028043,001001: 35,3525 73527 CHGRMS
028044,001002: 35,3526 05072 MANEUFLG # DONT SET FLAG IF PC MANEUVER
028045,001003: 35,3527 71214 CHGRMS BOFF DLOAD
028046,001004: 35,3530 05350 AUTOSEQ
028047,001005: 35,3531 73534 SAMERMS
028048,001006: 35,3532 33537 POSVEL2 # CHANGE RMS ONLY IN MINKEY
028049,001007: 35,3533 02001 STORE WRENDPOS
028050,001008: 35,3534 77776 SAMERMS EXIT
028051,001009: 35,3535 14105 TCF MNKGOPOO
028052,001010: 35,3536 00023 POSVEL2 DEC 608 B-19 # 2000 FT IN METERS
028053,001011: 35,3537 00144 POSVEL3 DEC .00608 # 2 FT/SEC IN M/CS
028054,001012: 35,3540 73510 VN1645AD CADR VNRSTART +3
028055,001013:
028056,001014: 4000 SETLOC P30SUBS
028057,001015: 4000 BANK
028058,001016:
028059,001017: 4600 COUNT* $$/P3474
028060,001018:
028061,001019: # ..... CONSTANTS .....
028062,001020:
028063,001021: 4600 01445 V06N37 VN 0637
028064,001022: 4601 01467 V06N55 VN 0655
028065,001023: 4602 01472 V06N58 VN 0658
028066,001024: 4603 01521 V06N81 VN 0681
028067,001025: 4604 04055 V16N45 VN 1645
028068,001026: 4605 01006 V04N06 VN 0406
028069,001027:
028070,001028: 35,2000 SETLOC CSI/CDH
028071,001029: 35,2000 BANK
028072,001030:
028073,001031: 35,3541 COUNT* $$/P3474
028074,001032: 35,3541 14441 37325 TWOPI 2DEC 6.283185307 B-4
028075,001033: 35,3543 00001 20650 MAX250 2DEC 25 E3
028076,001034: 35,3545 12525 12525 THIRD 2DEC .333333333
028077,001035: 35,3547 00004 21505 ELEPS 2DEC .27777777 E-3
028078,001036: 35,3551 01252 25253 EPSFOUR 2DEC .0416666666
028079,001037: 35,3553 01473 V06N59 VN 0659
028080,001038: 35,3554 00025 37100 60MINH 2DEC 360000 B-28
028081,001039:
028082,001040: # ..... INITVEL .....
028083,001041:
028084,001042: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
028085,001043: # MOD BY WHITE.P DATE 21NOV67
028086,001044:
028087,001045: # FUNCTIONAL DESCRIPTION
028088,001046:
028089,001047: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
028090,001048: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
028091,001049: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
028092,001050: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
028093,001051: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
028094,001052: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
028095,001053: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
028096,001054: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
028097,001055: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
028098,001056: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
028099,001057:
028100,001058: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
028101,001059: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
028102,001060: # SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
028103,001061: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
028104,001062: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
028105,001063: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
028106,001064: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
028107,001065: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
028108,001066:
028109,001067: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
028110,001068: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
028111,001069: # TRAJECTORY COMPUTATIONS.
028112,001070:
028113,001071: # CALLING SEQUENCE
028114,001072:
028115,001073: # L CALL
028116,001074: # L+1 INITVEL
028117,001075: # L+2 (RETURN - ALWAYS)
028118,001076:
028119,001077: # INPUT
028120,001078:
028121,001079: # (1) RINIT INITIAL POSITION RADIUS VECTOR
028122,001080: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
028123,001081: # (3) RTARG TARGET POSITION RADIUS VECTOR
028124,001082: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
028125,001083: # (5) INTIME TIME OF RINIT
028126,001084: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
028127,001085: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
028128,001086: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
028129,001087: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
028130,001088: # PUSHLOC SET AT 4D
028131,001089:
028132,001090: # OUTPUT
028133,001091:
028134,001092: # (1) RTARG OFFSET TARGET POSITION VECTOR
028135,001093: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
028136,001094: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
028137,001095: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
028138,001096:
028139,001097: # SUBROUTINES USED
028140,001098:
028141,001099: # LAMBERT
028142,001100: # INTSTALL
028143,001101: # INTEGRVS
028144,001102:
028145,001103: 11,2000 SETLOC INTVEL
028146,001104: 11,2000 BANK
028147,001105:
028148,001106: 11,2000 COUNT* $$/INITV
028149,001107: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
028150,001108: 11,2001 00475 GUESSW
028151,001109: 11,2002 44175 HAVEGUES VLOAD STQ
028152,001110: 11,2003 03415 RTARG
028153,001111: 11,2004 01011 NORMEX
028154,001112: 11,2005 03562 STORE RTARG1
028155,001113:
028156,001114: # INITIALIZATION
028157,001115:
028158,001116: 11,2006 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
028159,001117: 11,2007 02334 ITCTR
028160,001118: 11,2010 77776 0 -1
028161,001119: 11,2011 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
028162,001120: 11,2012 17606 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
028163,001121: 11,2013 67154 LXA,2 SXA,2
028164,001122: 11,2014 00154 MPAC
028165,001123: 11,2015 02675 VTARGTAG # SET VTARGTAG TO 0D (SP)
028166,001124: 11,2016 77775 VLOAD
028167,001125: 11,2017 03546 RINIT
028168,001126: 11,2020 26651 STOVL R1VEC # R1VEC EQ RINIT
028169,001127: 11,2021 03562 RTARG1
028170,001128: 11,2022 16657 STODL R2VEC # R2VEC EQ RTARG
028171,001129: 11,2023 03423 DELLT4
028172,001130: 11,2024 02665 STORE TDESIRED # TDESIRED EQ DELLT4
028173,001131: 11,2025 77201 SETPD VLOAD
028174,001132: 11,2026 00001 0D # INITIALIZE PL TO 0D
028175,001133: 11,2027 03546 RINIT # MPAC EQ RINIT (+29)
028176,001134: 11,2030 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
028177,001135: 11,2031 53435 VXV UNIT
028178,001136: 11,2032 03554 VINIT # MPAC EQ UNIT(RI) X VI (+8)
028179,001137: 11,2033 26670 STOVL UN
028180,001138: 11,2034 03562 RTARG1
028181,001139: 11,2035 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
028182,001140: 11,2036 43015 DAD CLEAR
028183,001141: 11,2037 03606 COZY4
028184,001142: 11,2040 03665 NORMSW
028185,001143: 11,2041 03606 STORE COZY4
028186,001144: 11,2042 43044 INITVEL2 BPL SET
028187,001145: 11,2043 22065 INITVEL3 # UN CALCULATED IN LAMBERT
028188,001146: 11,2044 03465 NORMSW
028189,001147:
028190,001148: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
028191,001149:
028192,001150: 11,2045 41575 VLOAD PUSH # (PL 6D)
028193,001151: 11,2046 02657 R2VEC # RC TO 6D (+29)
028194,001152: 11,2047 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
028195,001153: 11,2050 46206 PUSH VPROJ # (PL 8D)
028196,001154: 11,2051 02670 UN
028197,001155: 11,2052 51352 VSL2 BVSU
028198,001156: 11,2053 74256 UNIT VXSC # (PL 0D)
028199,001157: 11,2054 77772 VSL1
028200,001158: 11,2055 02657 STORE R2VEC
028201,001159: 11,2056 67351 TLOAD SLOAD
028202,001160: 11,2057 15726 ZEROVEC
028203,001161: 11,2060 02334 ITCTR
028204,001162: 11,2061 77244 BPL VLOAD
028205,001163: 11,2062 22065 INITVEL3
028206,001164: 11,2063 02657 R2VEC
028207,001165: 11,2064 03562 STORE RTARG1
028208,001166: 11,2065 63345 INITVEL3 DLOAD PDVL # (PL 2D)
028209,001167: 11,2066 22722 MUEARTH # POSITIVE VALUE
028210,001168: 11,2067 02657 R2VEC
028211,001169: 11,2070 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
028212,001170: 11,2071 02651 R1VEC
028213,001171: 11,2072 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL14D)
028214,001172: 11,2073 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
028215,001173: 11,2074 00003 2D
028216,001174: 11,2075 77606 PUSH # (PL20D)
028217,001175: 11,2076 51145 DLOAD BPL
028218,001176: 11,2077 00023 18D
028219,001177: 11,2100 22103 +3
028220,001178: 11,2101 77775 VLOAD # (PL14D)
028221,001179: 11,2102 41476 VCOMP PUSH # (PL20D)
028222,001180: 11,2103 77775 VLOAD # (PL14D)
028223,001181: 11,2104 50235 VXV DOT # (PL 2D)
028224,001182: 11,2105 71244 BPL DLOAD # (PL 0D)
028225,001183: 11,2106 22110 INITVEL4
028226,001184: 11,2107 41476 DCOMP PUSH # (PL 2D)
028227,001185: 11,2110 67154 INITVEL4 LXA,2 SXA,2
028228,001186: 11,2111 00000 0D
028229,001187: 11,2112 02666 GEOMSGN
028230,001188:
028231,001189: # SET INPUTS UP FOR LAMBERT
028232,001190:
028233,001191: 11,2113 77624 CALL
028234,001192:
028235,001193: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
028236,001194:
028237,001195: 11,2114 25257 LAMBERT
028238,001196:
028239,001197: 11,2115 77214 CLEAR VLOAD
028240,001198: 11,2116 00675 GUESSW
028241,001199: 11,2117 02740 VVEC
028242,001200:
028243,001201: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
028244,001202:
028245,001203: 11,2120 17570 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
028246,001204:
028247,001205: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
028248,001206: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
028249,001207:
028250,001208: 11,2121 02676 VTARGTAG
028251,001209: 11,2122 45030 BHIZ CALL
028252,001210: 11,2123 34003 INITVEL7
028253,001211: 11,2124 11720 INTSTALL
028254,001212: 11,2125 77775 INITVEL5 VLOAD
028255,001213: 11,2126 03546 RINIT
028256,001214: 11,2127 02651 STORE R1VEC
028257,001215: 11,2130 25535 STOVL RCV
028258,001216: 11,2131 03570 VIPRIME
028259,001217: 11,2132 15543 STODL VCV
028260,001218: 11,2133 02332 INTIME
028261,001219: 11,2134 01517 STORE TET
028262,001220: 11,2135 43015 DAD CLEAR
028263,001221: 11,2136 03423 DELLT4
028264,001222: 11,2137 01673 INTYPFLG
028265,001223: 11,2140 34041 STCALL TDEC1
028266,001224: 11,2141 11444 INTEGRVS
028267,001225: 11,2142 77775 VLOAD
028268,001226: 11,2143 00025 VATT1
028269,001227: 11,2144 02677 STORE VTARGET
028270,001228:
028271,001229: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
028272,001230: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
028273,001231:
028274,001232: 11,2145 63154 LXA,2 INCR,2
028275,001233: 11,2146 02333 ITCTR
028276,001234: 11,2147 00001 1D # INCREMENT ITCTR
028277,001235: 11,2150 55134 SXA,2 XSU,2
028278,001236: 11,2151 02333 ITCTR
028279,001237: 11,2152 02675 VTARGTAG
028280,001238: 11,2153 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
028281,001239: 11,2154 00050 X2
028282,001240: 11,2155 34000 INITVEL6
028283,001241:
028284,001242: # OFFSET CONIC TARGET VECTOR
028285,001243:
028286,001244: 11,2156 52375 VLOAD VSU
028287,001245: 11,2157 03562 RTARG1
028288,001246: 11,2160 00017 RATT1
028289,001247: 11,2161 77655 VAD
028290,001248: 11,2162 02657 R2VEC
028291,001249: 11,2163 16657 STODL R2VEC
028292,001250: 11,2164 03606 COZY4
028293,001251: 11,2165 77650 GOTO
028294,001252: 11,2166 22042 INITVEL2 # CONTINUE ITERATING AT INITVEL2
028295,001253: 16,2000 SETLOC INTVEL1
028296,001254: 16,2000 BANK
028297,001255:
028298,001256: 16,2000 COUNT* $$/INITV
028299,001257:
028300,001258: # COMPUTE THE DELTA VELOCITY
028301,001259:
028302,001260: 16,2000 77775 INITVEL6 VLOAD
028303,001261: 16,2001 02657 R2VEC
028304,001262: 16,2002 03562 STORE RTARG1
028305,001263: 16,2003 52375 INITVEL7 VLOAD VSU
028306,001264: 16,2004 03570 VIPRIME
028307,001265: 16,2005 03554 VINIT
028308,001266: 16,2006 27624 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
028309,001267: 16,2007 02677 VTARGET
028310,001268: 16,2010 03576 STORE VTPRIME
028311,001269: 16,2011 77201 INITVELX SETPD VLOAD
028312,001270: 16,2012 00001 0D
028313,001271: 16,2013 03562 RTARG1
028314,001272: 16,2014 03415 STORE RTARG
028315,001273: 16,2015 77614 CLRGO
028316,001274: 16,2016 01227 XDELVFLG
028317,001275: 16,2017 01011 NORMEX
028318,001276:
028319,001277: # ..... END OF INITVEL ROUTINE .....
028320,001278:
028321,001279:
028322,001280: # MIDDLE GIMBAL ANGLE COMPUTATION.
028323,001281:
028324,001282: 27,2000 SETLOC MGIM
028325,001283: 27,2000 BANK
028326,001284:
028327,001285: 27,2732 COUNT* $$/MIDG
028328,001286:
028329,001287: 27,2732 20000 00000 HALFREV 2DEC 1 B-1
028330,001288:
028331,001289: 27,2734 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
028332,001290: 27,2735 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
028333,001291: 27,2736 01726 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
028334,001292: 27,2737 51136 ARCSIN BPL
028335,001293: 27,2740 56744 SETMGA
028336,001294: 27,2741 43215 DAD DAD # CONVERT -MGA TO +MGA BY
028337,001295: 27,2742 16733 HALFREV # ADDING ONE REVOLUTION
028338,001296: 27,2743 16733 HALFREV
028339,001297: 27,2744 03604 SETMGA STORE +MGA
028340,001298: 27,2745 77616 RVQ
028341,001299:
028342,001300: 04,2000 SETLOC MIDDGIM
028343,001301: 04,2000 BANK
028344,001302:
028345,001303: 04,3151 COUNT* $$/MIDG
028346,001304:
028347,001305: # TRANSFORM INPUT VECTOR INTO LOCAL VERTICAL COORDINATES.
028348,001306:
028349,001307: 04,3151 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
028350,001308: 04,3152 03546 RINIT
028351,001309: 04,3153 77676 VCOMP # U(-R)
028352,001310: 04,3154 00023 STORE 18D # U(-R) TO 18D
028353,001311: 04,3155 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
028354,001312: 04,3156 03554 VINIT
028355,001313: 04,3157 00015 STORE 12D # U(V*R) TO 12D
028356,001314: 04,3160 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
028357,001315: 04,3161 00023 18D
028358,001316: 04,3162 00007 STORE 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
028359,001317: 04,3163 77214 BONCLR VLOAD
028360,001318: 04,3164 01212 REVFLAG
028361,001319: 04,3165 00052 QPRET
028362,001320: 04,3166 00001 0D # DELTA V (+7) IN 0D
028363,001321: 04,3167 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
028364,001322: 04,3170 00007 6D # AND SCALE +7 IN MPAC
028365,001323: 04,3171 03405 STORE DELVLVC # STORE IN DELVLVC (+7)
028366,001324: 04,3172 77616 RVQ
028367,001325:
028368,001326: # ..... PERIAPO .....
028369,001327: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
028370,001328: # MOD BY WHITE.P DATE 18JAN68
028371,001329:
028372,001330: # FUNCTIONAL DESCRIPTION
028373,001331:
028374,001332: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
028375,001333: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
028376,001334: # THE TRAJECTORY AND THE PRIMARY BODY.
028377,001335:
028378,001336: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
028379,001337:
028380,001338: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
028381,001339: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
028382,001340:
028383,001341: # CALLING SEQUENCE
028384,001342:
028385,001343: # L CALL
028386,001344: # L+1 PERIAPO
028387,001345: # L+2 (RETURN - ALWAYS)
028388,001346:
028389,001347: # INPUT
028390,001348:
028391,001349: # (1) RVEC POSITION VECTOR IN METERS
028392,001350: # SCALE FACTOR - EARTH +29, MOON +27
028393,001351: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
028394,001352: # SCALE FACTOR - EARTH +7, MOON +5
028395,001353: # (3) X1 PRIMARY BODY INDICATOR
028396,001354: # EARTH -2, MOON -10
028397,001355:
028398,001356: # OUTPUT
028399,001357:
028400,001358: # (1) 2D APOCENTER RADIUS IN METERS
028401,001359: # SCALE FACTOR - EARTH +29, MOON +27
028402,001360: # (2) 4D APOCENTER ALTITUDE IN METERS
028403,001361: # SCALE FACTOR - EARTH +29, MOON P27
028404,001362: # (3) 6D PERICENTER RADIUS IN METERS
028405,001363: # SCALE FACTOR - EARTH +29, MOON +27
028406,001364: # (4) 8D PERICENTER ALTITUDE IN METERS
028407,001365: # SCALE FACTOR - EARTH +29, MOON +27
028408,001366: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
028409,001367: # SCALE FACTOR - +3
028410,001368: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
028411,001369: # SCALE FACTOR - EARTH +29, MOON +27
028412,001370: # (7) PUSHLOC EQUALS 10D
028413,001371:
028414,001372: # SUBROUTINES USED
028415,001373:
028416,001374: # SETRAD
028417,001375: # APSIDES
028418,001376:
028419,001377: 22,2000 SETLOC APOPERI
028420,001378: 22,2000 BANK
028421,001379:
028422,001380: 22,3373 COUNT* $$/PERAP
028423,001381:
028424,001382: 22,3373 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
028425,001383: # = 20 909 901.57 FT
028426,001384:
028427,001385: 22,3375 26740 PERIAPO1 STOVL VVEC
028428,001386: 22,3376 77626 STADR
028429,001387: 22,3377 75126 STORE RVEC
028430,001388: 22,3400 71220 PERIAPO STQ DLOAD
028431,001389: 22,3401 01011 NORMEX
028432,001390: 22,3402 05374 RPAD
028433,001391: 22,3403 37456 STCALL XXXALT
028434,001392: 22,3404 25721 APSIDES
028435,001393: 22,3405 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
028436,001394: 22,3406 00003 2D
028437,001395: 22,3407 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
028438,001396: 22,3410 03456 XXXALT
028439,001397: 22,3411 00001 0D
028440,001398: 22,3412 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
028441,001399: 22,3413 03456 XXXALT
028442,001400: 22,3414 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
028443,001401: 22,3415 01011 NORMEX
028444,001402: # PRECSET
028445,001403: 22,3416 77620 PRECSET STQ
028446,001404: 22,3417 01011 NORMEX
028447,001405: 22,3420 36627 STCALL TDEC2
028448,001406: 22,3421 11414 LEMPREC
028449,001407: 22,3422 77624 CALL
028450,001408: 22,3423 45466 LEMSTORE
028451,001409: 22,3424 77745 DLOAD
028452,001410: 22,3425 02627 TDEC2
028453,001411: 22,3426 34041 STCALL TDEC1
028454,001412: 22,3427 11400 CSMPREC
028455,001413: 22,3430 77624 CALL
028456,001414: 22,3431 45460 CSMSTORE
028457,001415: 22,3432 53575 VLOAD UNIT
028458,001416: 22,3433 03532 RPASS3
028459,001417: 22,3434 53435 VXV UNIT
028460,001418: 22,3435 03540 VPASS3
028461,001419: 22,3436 26611 STOVL UP1 # UNIT(RPASS3) X VPASS3
028462,001420: 22,3437 03524 VACT3
028463,001421: 22,3440 72441 DOT SL1
028464,001422: 22,3441 02611 UP1
028465,001423: 22,3442 26603 STOVL CMYDOT # -YDOT (CSM)
028466,001424: 22,3443 03516 RACT3
028467,001425: 22,3444 72441 DOT SL1
028468,001426: 22,3445 02611 UP1
028469,001427: 22,3446 26601 STOVL AUTOY # -Y(CSM)
028470,001428: 22,3447 03516 RACT3
028471,001429: 22,3450 53435 VXV UNIT
028472,001430: 22,3451 03524 VACT3
028473,001431: 22,3452 26543 STOVL UNRM
028474,001432: 22,3453 03540 VPASS3
028475,001433: 22,3454 72441 DOT SL1
028476,001434: 22,3455 02543 UNRM # RACT3 X VACT3
028477,001435: 22,3456 36605 STCALL LMYDOT # -YDOT(LM)
028478,001436: 22,3457 01011 NORMEX
028479,001437: 22,3460 77775 CSMSTORE VLOAD
028480,001438: 22,3461 00001 RATT
028481,001439: 22,3462 27516 ACTIVE STOVL RACT3
028482,001440: 22,3463 00007 VATT
028483,001441: 22,3464 03524 STORE VACT3
028484,001442: 22,3465 77616 RVQ
028485,001443: 22,3466 77775 LEMSTORE VLOAD
028486,001444: 22,3467 00001 RATT
028487,001445: 22,3470 27532 PASSIVE STOVL RPASS3
028488,001446: 22,3471 00007 VATT
028489,001447: 22,3472 03540 STORE VPASS3
028490,001448: 22,3473 77616 RVQ
028491,001449:
028492,001450:
028493,001451:
028494,001452: 22,3474 30,2000 SBANK= LOWSUPER
End of include-file P35-P37.agc. Parent file is MAIN.agc