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