Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
029210,000002: ## Copyright: Public domain.
029211,000003: ## Filename: P34-P35,_P74-P75.agc
029212,000004: ## Purpose: The main source file for Luminary revision 069.
029213,000005: ## It is part of the source code for the original release
029214,000006: ## of the flight software for the Lunar Module's (LM) Apollo
029215,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
029216,000008: ## version was Luminary 69 revision 2, which included a
029217,000009: ## newer lunar gravity model and only affected module 2.
029218,000010: ## This file is intended to be a faithful transcription, except
029219,000011: ## that the code format has been changed to conform to the
029220,000012: ## requirements of the yaYUL assembler rather than the
029221,000013: ## original YUL assembler.
029222,000014: ## Reference: pp. 667-711
029223,000015: ## Assembler: yaYUL
029224,000016: ## Contact: Ron Burkey <info@sandroid.org>.
029225,000017: ## Website: www.ibiblio.org/apollo/index.html
029226,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
029227,000019: ## 2016-12-14 MAS Updated from comment-proofed Luminary 99 version.
029228,000020: ## 2016-12-18 RRB Updated for Luminary 69.
029229,000021: ## 2016-12-28 HG Fix operand MXV\ -> MXV
029230,000022: ## 2017-01-20 HG Add missing DECTWO
029231,000023: ## Remove ABVAL
029232,000024: ## STORE RTMAG
029233,000025: ## 2017-01-22 HG Remove CAF P30ZERO
029234,000026: ## 2017-01-23 HG Add interpretive operation PUSH
029235,000027: ## Fix operand GOFLASH -> GOFLASHR
029236,000028: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
029237,000029: ## and fixed errors found.
029238,000030: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
029239,000031: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
029240,000032: ## side-by-side diff of Luminary 69/99/116/131/210.
029241,000033:
![]() |
Page 667 |
029243,000035: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
029244,000036:
029245,000037: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029246,000038: # MOD BY WHITE.P DATE 1JUNE67
029247,000039:
029248,000040: # PURPOSE
029249,000041:
029250,000042: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029251,000043: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
029252,000044: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
029253,000045:
029254,000046: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
029255,000047: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
029256,000048:
029257,000049: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
029258,000050: # INTERCEPT TIME (TIG (TPF)).
029259,000051:
029260,000052: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
029261,000053:
029262,000054: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029263,000055: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029264,000056:
029265,000057: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029266,000058: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029267,000059: # ASTRONAUT/GROUND.
029268,000060:
029269,000061: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
029270,000062: # THRUSTING PROGRAM.
029271,000063:
029272,000064: # ASSUMPTIONS
029273,000065:
029274,000066: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
029275,000067: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
029276,000068: # THEREFORE -
029277,000069:
029278,000070: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029279,000071: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029280,000072: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029281,000073: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029282,000074:
029283,000075: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029284,000076: # COMPUTED TO BE GREATER THAN 10 MINUTES.
029285,000077:
029286,000078: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029287,000079: # ORBITS WAS MINIMIZED.
029288,000080:
029289,000081: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
029290,000082: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
![]() |
Page 668 |
029292,000084: # ORBIT OR 85 NM FOR EARTH ORBIT.
029293,000085:
029294,000086: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029295,000087: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
029296,000088: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029297,000089: # IN AN OUT-OF-PLANE MANEUVER.
029298,000090:
029299,000091: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029300,000092: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029301,000093:
029302,000094: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029303,000095: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
029304,000096: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029305,000097: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029306,000098: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029307,000099: # FLIGHT PLAN MANEUVER SEQUENCES.
029308,000100:
029309,000101: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029310,000102: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029311,000103: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029312,000104: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029313,000105: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029314,000106: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029315,000107: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029316,000108: # THRUSTING MANEUVER.
029317,000109:
029318,000110: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029319,000111:
029320,000112: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029321,000113:
029322,000114: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029323,000115: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029324,000116: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029325,000117: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029326,000118:
029327,000119: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029328,000120: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029329,000121:
029330,000122: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029331,000123: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029332,000124: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029333,000125:
029334,000126: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029335,000127: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029336,000128: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029337,000129: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029338,000130: # THROUGH THE USE OF V06N52.
029339,000131:
029340,000132: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029341,000133: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
![]() |
Page 669 |
029343,000135: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
029344,000136: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029345,000137: # UPON DELTA V AND EXPECTED MANEUVER TIME.
029346,000138:
029347,000139: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029348,000140:
029349,000141: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029350,000142:
029351,000143: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029352,000144:
029353,000145: # INPUT
029354,000146:
029355,000147: # (1) TTPI TIME OF THE TPI MANEUVER
029356,000148: # (2) ELEV DESIRED LOS ANGLE AT TPI
029357,000149: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029358,000150: # TRANSFER FROM TPI TO TIME OF INTERCEPT
029359,000151:
029360,000152: # OUTPUT
029361,000153:
029362,000154: # (1) TRKMKCNT NUMBER OF MARKS
029363,000155: # (2) TTOGO TIME TO GO
029364,000156: # (3) +MGA MIDDLE GIMBAL ANGLE
029365,000157: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
029366,000158: # OR
029367,000159: # ELEV COMPUTED LOS ANGLE AT TPI
029368,000160: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029369,000161: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
029370,000162: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
029371,000163: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
029372,000164: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029373,000165:
029374,000166: # DOWNLINK
029375,000167:
029376,000168: # (1) TTPI TIME OF THE TPI MANEUVER
029377,000169: # (2) TIG TIME OF THE TPI MANEUVER
029378,000170: # (3) ELEV DESIRED LOS ANGLE AT TPI
029379,000171: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029380,000172: # TRANSFER FROM TPI TO TIME OF INTERCEPT
029381,000173: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029382,000174: # (6) TPASS4 TIME OF INTERCEPT
029383,000175:
029384,000176: # COMMUNICATION TO THRUSTING PROGRAMS
029385,000177:
029386,000178: # (1) TIG TIME OF THE TPI MANEUVER
029387,000179: # (2) RTARG OFFSET TARGET POSITION
029388,000180: # (3) TPASS4 TIME OF INTERCEPT
029389,000181: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029390,000182:
029391,000183: # SUBROUTINES USED
029392,000184:
029393,000185: # AVFLAGA
![]() |
Page 670 |
029395,000187: # AVFLAGP
029396,000188: # VNPOOH
029397,000189: # DISPLAYE
029398,000190: # SELECTMU
029399,000191: # PRECSET
029400,000192: # S33/34.1
029401,000193: # ALARM
029402,000194: # BANKCALL
029403,000195: # GOFLASH
029404,000196: # GOTOPOOH
029405,000197: # TIMETHET
029406,000198: # S34/35.2
029407,000199: # PERIAPO1
029408,000200: # SHIFTR1
029409,000201: # S34/35.5
029410,000202: # VN1645
029411,000203:
029412,000204: 35,2000 SETLOC CSI/CDH
029413,000205: 35,2000 BANK
029414,000206: 35,2511 E7,1466 EBANK= SUBEXIT
029415,000207: 35,2511 COUNT* $$/P3474
029416,000208: 35,2511 02313 P34 TC AVFLAGA
029417,000209: 35,2512 02514 TC P34/P74A
029418,000210: 35,2513 02320 P74 TC AVFLAGP
029419,000211: 35,2514 02325 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
029420,000212: 35,2515 33662 CAF V06N37 # TTPI
029421,000213: 35,2516 03651 TC VNPOOH
029422,000214: 35,2517 00006 EXTEND
029423,000215: 35,2520 33706 DCA 130DEG
029424,000216: 35,2521 53617 DXCH CENTANG
029425,000217: 35,2522 03630 TC DISPLAYE # ELEV AND CENTANG
029426,000218: 35,2523 06036 TC INTPRET
029427,000219: 35,2524 71214 CLEAR DLOAD
029428,000220: 35,2525 01270 ETPIFLAG
029429,000221: 35,2526 03634 TTPI
029430,000222: 35,2527 17440 STODL TIG
029431,000223: 35,2530 02263 ELEV
029432,000224: 35,2531 43054 BZE SET
029433,000225: 35,2532 72534 P34/P74B
029434,000226: 35,2533 01070 ETPIFLAG
029435,000227: 35,2534 77624 P34/P74B CALL
029436,000228: 35,2535 20041 SELECTMU
029437,000229: 35,2536 DELELO EQUALS 26D
029438,000230: 35,2536 43145 P34/P74C DLOAD SET
029439,000231: 35,2537 06424 ZEROVECS
029440,000232: 35,2540 03460 ITSWICH
029441,000233: 35,2541 43014 BON CLEAR
029442,000234: 35,2542 01310 ETPIFLAG
029443,000235: 35,2543 72545 SWCHSET
029444,000236: 35,2544 03660 ITSWICH
![]() |
Page 671 |
029446,000238: 35,2545 02323 SWCHSET STORE NOMTPI
029447,000239: 35,2546 43345 INTLOOP DLOAD DAD
029448,000240: 35,2547 03634 TTPI
029449,000241: 35,2550 02323 NOMTPI
029450,000242: 35,2551 34041 STCALL TDEC1
029451,000243: 35,2552 46341 PRECSET
029452,000244: 35,2553 77624 CALL
029453,000245: 35,2554 72726 S33/34.1
029454,000246: 35,2555 77454 BZE EXIT
029455,000247: 35,2556 72567 SWCHCLR
029456,000248: 35,2557 05567 TC ALARM
029457,000249: 35,2560 00611 OCT 611
029458,000250: 35,2561 35006 CAF V05N09
029459,000251: 35,2562 04616 TC BANKCALL
029460,000252: 35,2563 20351 CADR GOFLASH
029461,000253: 35,2564 06001 TC GOTOPOOH
029462,000254: 35,2565 02514 TC P34/P74A # PROCEED
029463,000255: 35,2566 02557 TC -7 # V32
029464,000256:
029465,000257: 35,2567 43014 SWCHCLR BONCLR BON
029466,000258: 35,2570 03600 ITSWICH
029467,000259: 35,2571 72546 INTLOOP
029468,000260: 35,2572 01310 ETPIFLAG
029469,000261: 35,2573 72577 P34/P74D # DISPLAY TTPI
029470,000262: 35,2574 77776 EXIT
029471,000263: 35,2575 03630 TC DISPLAYE # DISPLAY ELEV AND CENTANG
029472,000264: 35,2576 02602 TC P34/P74E
029473,000265: 35,2577 77776 P34/P74D EXIT
029474,000266: 35,2600 33662 CAF V06N37 # TTPI
029475,000267: 35,2601 03651 TC VNPOOH
029476,000268: 35,2602 06036 P34/P74E TC INTPRET
029477,000269: 35,2603 71201 SETPD DLOAD
029478,000270: 35,2604 00001 0D
029479,000271: 35,2605 03376 RTX1
029480,000272: 35,2606 14047 STODL X1
029481,000273: 35,2607 03617 CENTANG
029482,000274: 35,2610 71406 PUSH COS
029483,000275: 35,2611 16732 STODL CSTH
029484,000276: 35,2612 77756 SIN
029485,000277: 35,2613 26730 STOVL SNTH
029486,000278: 35,2614 03550 RPASS3
029487,000279: 35,2615 77657 VSR*
029488,000280: 35,2616 57176 0,2
029489,000281: 35,2617 26655 STOVL RVEC
029490,000282: 35,2620 03556 VPASS3
029491,000283: 35,2621 43057 VSR* SET
029492,000284: 35,2622 57176 0,2
029493,000285: 35,2623 03466 RVSW
029494,000286: 35,2624 36744 STCALL VVEC
029495,000287: 35,2625 24745 TIMETHET
![]() |
Page 672 |
029497,000289: 35,2626 77745 DLOAD
029498,000290: 35,2627 03634 TTPI
029499,000291: 35,2630 03606 STORE INTIME # FOR INITVEL
029500,000292: 35,2631 77615 DAD
029501,000293: 35,2632 00037 T # RENDEZVOUS TIME
029502,000294: 35,2633 37627 STCALL TPASS4 # FOR INITVEL
029503,000295: 35,2634 73250 S34/35.2
029504,000296: 35,2635 51575 VLOAD ABVAL
029505,000297: 35,2636 03366 DELVEET3
029506,000298: 35,2637 27574 STOVL DELVTPI
029507,000299: 35,2640 03504 VPASS4
029508,000300: 35,2641 51451 VSU ABVAL
029509,000301: 35,2642 03564 VTPRIME
029510,000302: 35,2643 26354 STOVL DELVTPF
029511,000303: 35,2644 03534 RACT3
029512,000304: 35,2645 45115 PDVL CALL
029513,000305: 35,2646 02343 VIPRIME
029514,000306: 35,2647 46277 PERIAPO1
029515,000307: 35,2650 77624 CALL
029516,000308: 35,2651 46407 SHIFTR1
029517,000309: 35,2652 17604 STODL POSTTPI
029518,000310: 35,2653 03634 TTPI
029519,000311: 35,2654 03440 STORE TIG
029520,000312: 35,2655 77776 EXIT
029521,000313: 35,2656 33664 CAF V06N58
029522,000314: 35,2657 03651 TC VNPOOH
029523,000315: 35,2660 06036 TC INTPRET
029524,000316: 35,2661 77624 CALL
029525,000317: 35,2662 73456 S34/35.5
029526,000318: 35,2663 77624 CALL
029527,000319: 35,2664 73542 VN1645
029528,000320: 35,2665 77650 GOTO
029529,000321: 35,2666 72536 P34/P74C
![]() |
Page 673 |
029531,000323: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029532,000324:
029533,000325: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029534,000326: # MOD BY WHITE.P DATE 1JUNE67
029535,000327:
029536,000328: # PURPOSE
029537,000329:
029538,000330: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029539,000331: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029540,000332: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029541,000333: # VEHICLE RENDEZVOUS.
029542,000334:
029543,000335: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029544,000336: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029545,000337: # ASTRONAUT/GROUND.
029546,000338:
029547,000339: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029548,000340: # THRUSTING PROGRAM.
029549,000341:
029550,000342: # ASSUMPTIONS
029551,000343:
029552,000344: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029553,000345:
029554,000346: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029555,000347: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029556,000348:
029557,000349: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
029558,000350: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
029559,000351: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029560,000352: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
029561,000353: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029562,000354: # P20 AND AFTER EACH THRUSTING MANEUVER.
029563,000355:
029564,000356: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029565,000357:
029566,000358: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029567,000359: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029568,000360: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029569,000361: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029570,000362:
029571,000363: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029572,000364: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029573,000365:
029574,000366: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029575,000367: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029576,000368: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029577,000369:
029578,000370: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029579,000371: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029580,000372: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029581,000373:
![]() |
Page 674 |
029583,000375: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029584,000376: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029585,000377: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029586,000378: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029587,000379: # THROUGH THE USE OF V06N52.
029588,000380:
029589,000381: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029590,000382: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029591,000383: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
029592,000384: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029593,000385: # UPON DELTA V AND EXPECTED MANEUVER TIME.
029594,000386:
029595,000387: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029596,000388:
029597,000389: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029598,000390:
029599,000391: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029600,000392:
029601,000393: # INPUT
029602,000394:
029603,000395: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
029604,000396: # OUTPUT
029605,000397:
029606,000398: # (1) TRKMKCNT NUMBER OF MARKS
029607,000399: # (2) TTOGO TIME TO GO
029608,000400: # (3) +MGA MIDDLE GIMBAL ANGLE
029609,000401: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
029610,000402: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029611,000403:
029612,000404: # DOWNLINK
029613,000405:
029614,000406: # (1) TIG TIME OF THE TPM MANEUVER
029615,000407: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029616,000408: # (3) TPASS4 TIME OF INTERCEPT
029617,000409: # COMMUNICATION TO THRUSTING PROGRAMS
029618,000410:
029619,000411: # (1) TIG TIME OF THE TPM MANEUVER
029620,000412: # (2) RTARG OFFSET TARGET POSITION
029621,000413: # (3) TPASS4 TIME OF INTERCEPT
029622,000414: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029623,000415:
029624,000416: # SUBROUTINES USED
029625,000417:
029626,000418: # AVFLAGA
029627,000419: # AVFLAGP
029628,000420: # LOADTIME
029629,000421: # SELECTMU
029630,000422: # PRECSET
029631,000423: # S34/35.1
029632,000424: # S34/35.2
![]() |
Page 675 |
029634,000426: # S34/35.5
029635,000427: # VN1645
029636,000428:
029637,000429: 35,2667 COUNT* $$/P3575
029638,000430: 35,2667 E7,1573 EBANK= KT
029639,000431:
029640,000432: 35,2667 02313 P35 TC AVFLAGA
029641,000433: 35,2670 00006 EXTEND
029642,000434: 35,2671 31401 DCA ATIGINC
029643,000435: 35,2672 02676 TC P35/P75A
029644,000436: 35,2673 02320 P75 TC AVFLAGP
029645,000437: 35,2674 00006 EXTEND
029646,000438: 35,2675 31403 DCA PTIGINC
029647,000439: 35,2676 53574 P35/P75A DXCH KT
029648,000440: 35,2677 02325 TC P20FLGON # SET UPDATFLG, TRACKFLG
029649,000441: 35,2700 06036 TC INTPRET
029650,000442: 35,2701 77624 CALL
029651,000443: 35,2702 20041 SELECTMU
029652,000444: 35,2703 77634 P35/P75B RTB
029653,000445: 35,2704 21462 LOADTIME
029654,000446: 35,2705 03610 STORE TSTRT
029655,000447: 35,2706 77615 DAD
029656,000448: 35,2707 03574 KT
029657,000449: 35,2710 03440 STORE TIG
029658,000450: 35,2711 03606 STORE INTIME # FOR INITVEL
029659,000451: 35,2712 34041 STCALL TDEC1
029660,000452: 35,2713 46341 PRECSET # ADVANCE BOTH VEHICLES
029661,000453: 35,2714 77624 CALL
029662,000454: 35,2715 73236 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
029663,000455: 35,2716 77624 CALL
029664,000456: 35,2717 73250 S34/35.2 # GET DELTA V(LV)
029665,000457: 35,2720 77624 CALL
029666,000458: 35,2721 73456 S34/35.5
029667,000459: 35,2722 77624 CALL
029668,000460: 35,2723 73542 VN1645
029669,000461: 35,2724 77650 GOTO
029670,000462: 35,2725 72703 P35/P75B
![]() |
Page 676 |
029672,000464: # ..... S33/34.1 .....
029673,000465:
029674,000466: 35,2726 66220 S33/34.1 STQ SSP
029675,000467: 35,2727 03461 NORMEX
029676,000468: 35,2730 03612 TITER
029677,000469: 35,2731 40000 OCT 40000
029678,000470: 35,2732 40345 DLOAD SETPD
029679,000471: 35,2733 33673 MAX250
029680,000472: 35,2734 00001 0D
029681,000473: 35,2735 27572 STOVL SECMAX
029682,000474: 35,2736 03534 RACT3
029683,000475: 35,2737 27476 STOVL RAPREC
029684,000476: 35,2740 03542 VACT3
029685,000477: 35,2741 27504 STOVL VAPREC
029686,000478: 35,2742 03550 RPASS3
029687,000479: 35,2743 27520 STOVL RPPREC
029688,000480: 35,2744 03556 VPASS3
029689,000481: 35,2745 03526 STORE VPPREC
029690,000482: 35,2746 77624 ELCALC CALL
029691,000483: 35,2747 73236 S34/35.1 # NORMAL AND LOS
029692,000484: 35,2750 63235 VXV PDVL
029693,000485: 35,2751 03534 RACT3 # (RA*VA)*RA 0D
029694,000486: 35,2752 53515 PDVL UNIT # ULOS AT 6D
029695,000487: 35,2753 03534 RACT3
029696,000488: 35,2754 46315 PDVL VPROJ # XCHNJ AND UP
029697,000489: 35,2755 51352 VSL2 BVSU
029698,000490: 35,2756 02315 ULOS
029699,000491: 35,2757 63256 UNIT PDVL # UP AT 0D
029700,000492: 35,2760 63241 DOT PDVL # UP.UN*RA AT 0D
029701,000493: 35,2761 00001 0D # UP IN MPAC
029702,000494: 35,2762 75241 DOT SIGN
029703,000495: 35,2763 02315 ULOS
029704,000496: 35,2764 65552 SL1 ACOS
029705,000497: 35,2765 50315 PDVL DOT # EA AT 0D
029706,000498: 35,2766 02315 ULOS
029707,000499: 35,2767 03534 RACT3
029708,000500: 35,2770 71244 BPL DLOAD
029709,000501: 35,2771 72774 TESTY
029710,000502: 35,2772 06432 DPPOSMAX
029711,000503: 35,2773 41425 DSU PUSH
029712,000504: 35,2774 71214 TESTY BOFF DLOAD
029713,000505: 35,2775 03740 ITSWICH
029714,000506: 35,2776 73223 ELEX
029715,000507: 35,2777 03574 DELEL
029716,000508: 35,3000 14033 STODL DELELO
029717,000509: 35,3001 77625 DSU
029718,000510: 35,3002 02263 ELEV
029719,000511: 35,3003 03574 STORE DELEL
029720,000512: 35,3004 45246 ABS DSU
029721,000513: 35,3005 33677 ELEPS
![]() |
Page 677 |
029723,000515: 35,3006 77640 BMN
029724,000516: 35,3007 73233 TIMEX # COMMERCIALS EVERYWHERE
029725,000517: 35,3010 70535 FIGTIME SLOAD SR1
029726,000518: 35,3011 03612 TITER
029727,000519: 35,3012 72030 BHIZ LXA,1
029728,000520: 35,3013 03461 NORMEX # TOO MANY ITERATIONS
029729,000521: 35,3014 00154 MPAC
029730,000522: 35,3015 77330 SXA,1 VLOAD
029731,000523: 35,3016 03611 TITER
029732,000524: 35,3017 03550 RPASS3
029733,000525: 35,3020 65256 UNIT PDDL
029734,000526: 35,3021 00045 36D
029735,000527: 35,3022 53515 PDVL UNIT
029736,000528: 35,3023 03534 RACT3
029737,000529: 35,3024 77725 PDDL
029738,000530: 35,3025 41525 PDDL PUSH
029739,000531: 35,3026 00045 36D
029740,000532: 35,3027 77621 BDSU
029741,000533: 35,3030 00015 12D
029742,000534: 35,3031 14037 STODL 30D # RP - RA MAGNITUDES
029743,000535: 35,3032 06422 DPHALF
029744,000536: 35,3033 41425 DSU PUSH
029745,000537: 35,3034 02263 ELEV
029746,000538: 35,3035 50165 SIGN BMN
029747,000539: 35,3036 00037 30D
029748,000540: 35,3037 03461 NORMEX
029749,000541: 35,3040 71545 DLOAD COS
029750,000542: 35,3041 56205 DMP DDV
029751,000543: 35,3042 00017 14D
029752,000544: 35,3043 00015 12D
029753,000545: 35,3044 77676 DCOMP # SINCE COS(180-A)=-COS A
029754,000546: 35,3045 00035 STORE 28D
029755,000547: 35,3046 44246 ABS BDSU
029756,000548: 35,3047 06422 DPHALF
029757,000549: 35,3050 77240 BMN VLOAD
029758,000550: 35,3051 03461 NORMEX
029759,000551: 35,3052 02265 UNRM
029760,000552: 35,3053 53435 VXV UNIT
029761,000553: 35,3054 00007 6D # UN*RA
029762,000554: 35,3055 41241 DOT DMP
029763,000555: 35,3056 03542 VACT3
029764,000556: 35,3057 00015 12D
029765,000557: 35,3060 47315 PDVL VXV
029766,000558: 35,3061 00001 0D
029767,000559: 35,3062 03556 VPASS3
029768,000560: 35,3063 53435 VXV UNIT
029769,000561: 35,3064 00001 0D # (RP*VP)*RP
029770,000562: 35,3065 41241 DOT DMP
029771,000563: 35,3066 03556 VPASS3
029772,000564: 35,3067 00017 14D
![]() |
Page 678 |
029774,000566: 35,3070 77621 BDSU
029775,000567: 35,3071 63301 NORM PDVL # NORMALIZED WA - WP 12D
029776,000568: 35,3072 00047 X1
029777,000569: 35,3073 00007 6D
029778,000570: 35,3074 50235 VXV DOT
029779,000571: 35,3075 00001 0D
029780,000572: 35,3076 02265 UNRM # RA*RP.UN 14D
029781,000573: 35,3077 50315 PDVL DOT
029782,000574: 35,3100 00001 0D
029783,000575: 35,3101 00007 6D
029784,000576: 35,3102 65552 SL1 ACOS
029785,000577: 35,3103 77765 SIGN
029786,000578: 35,3104 43225 DSU DAD # ALPHA PI
029787,000579: 35,3105 06422 DPHALF
029788,000580: 35,3106 02263 ELEV
029789,000581: 35,3107 65525 PDDL ACOS
029790,000582: 35,3110 00035 28D
029791,000583: 35,3111 75221 BDSU SIGN
029792,000584: 35,3112 06422 DPHALF
029793,000585: 35,3113 00037 30D # CONTAINS RP-RA
029794,000586: 35,3114 77615 DAD
029795,000587: 35,3115 56205 DMP DDV
029796,000588: 35,3116 33671 TWOPI
029797,000589: 35,3117 77605 DMP
029798,000590: 35,3120 41257 SL* DMP
029799,000591: 35,3121 20176 0 -3,1
029800,000592: 35,3122 51406 PUSH ABS
029801,000593: 35,3123 50025 DSU BMN
029802,000594: 35,3124 03572 SECMAX
029803,000595: 35,3125 73131 OKMAX
029804,000596: 35,3126 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
029805,000597: 35,3127 03572 SECMAX
029806,000598: 35,3130 77606 PUSH
029807,000599: 35,3131 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
029808,000600: 35,3132 03612 TITER
029809,000601: 35,3133 73141 REPETE
029810,000602: 35,3134 71331 SSP DLOAD
029811,000603: 35,3135 03612 TITER
029812,000604: 35,3136 37777 OCT 37777
029813,000605: 35,3137 77650 GOTO
029814,000606: 35,3140 73177 STORDELT
029815,000607: 35,3141 41345 REPETE DLOAD DMP
029816,000608: 35,3142 03574 DELEL
029817,000609: 35,3143 00033 DELELO
029818,000610: 35,3144 71244 BPL DLOAD
029819,000611: 35,3145 73155 NEXTES
029820,000612: 35,3146 03572 SECMAX
029821,000613: 35,3147 77605 DMP
029822,000614: 35,3150 33675 THIRD
029823,000615: 35,3151 17572 STODL SECMAX
![]() |
Page 679 |
029825,000617: 35,3152 70446 ABS SR1 # CROSSED OVER SOLUTION
029826,000618: 35,3153 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
029827,000619: 35,3154 73165 RESIGN
029828,000620: 35,3155 51545 NEXTES DLOAD ABS
029829,000621: 35,3156 03574 DELEL
029830,000622: 35,3157 51525 PDDL ABS
029831,000623: 35,3160 00033 DELELO
029832,000624: 35,3161 77625 DSU
029833,000625: 35,3162 71240 BMN DLOAD
029834,000626: 35,3163 73170 REVERS # WRONG DIRECTION
029835,000627: 35,3164 77646 ABS
029836,000628: 35,3165 52165 RESIGN SIGN GOTO
029837,000629: 35,3166 03604 DELTEEO
029838,000630: 35,3167 73177 STORDELT
029839,000631: 35,3170 57545 REVERS DLOAD DCOMP
029840,000632: 35,3171 03604 DELTEEO
029841,000633: 35,3172 70406 PUSH SR1
029842,000634: 35,3173 03604 STORE DELTEEO
029843,000635: 35,3174 77615 DAD
029844,000636: 35,3175 77650 GOTO
029845,000637: 35,3176 73200 ADTIME
029846,000638: 35,3177 03604 STORDELT STORE DELTEEO
029847,000639: 35,3200 77615 ADTIME DAD
029848,000640: 35,3201 02323 NOMTPI # SUM OF DELTA T:S
029849,000641: 35,3202 02323 STORE NOMTPI
029850,000642: 35,3203 63375 VLOAD PDVL
029851,000643: 35,3204 03504 VAPREC
029852,000644: 35,3205 03476 RAPREC
029853,000645: 35,3206 77624 CALL
029854,000646: 35,3207 73416 GOINT
029855,000647: 35,3210 77624 CALL
029856,000648: 35,3211 46363 ACTIVE # STORE NEW RACT3 VACT3
029857,000649: 35,3212 63375 VLOAD PDVL
029858,000650: 35,3213 03526 VPPREC
029859,000651: 35,3214 03520 RPPREC
029860,000652: 35,3215 77624 CALL
029861,000653: 35,3216 73416 GOINT
029862,000654: 35,3217 77624 CALL
029863,000655: 35,3220 46373 PASSIVE # STORE NEW RPASS3 VPASS3
029864,000656: 35,3221 77650 GOTO
029865,000657: 35,3222 72746 ELCALC
029866,000658: 35,3223 43345 ELEX DLOAD DAD
029867,000659: 35,3224 03634 TTPI
029868,000660: 35,3225 02323 NOMTPI
029869,000661: 35,3226 17634 STODL TTPI
029870,000662: 35,3227 77614 BON
029871,000663: 35,3230 01310 ETPIFLAG
029872,000664: 35,3231 73233 TIMEX
029873,000665: 35,3232 02263 STORE ELEV
029874,000666: 35,3233 52145 TIMEX DLOAD GOTO
![]() |
Page 680 |
029876,000668: 35,3234 06424 ZEROVECS
029877,000669: 35,3235 03461 NORMEX
029878,000670:
![]() |
Page 681 |
029880,000672: # ..... S34/35.1 .....
029881,000673:
029882,000674: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029883,000675: # PASSIVE POS AND VEL AT TIME T3
029884,000676:
029885,000677: 35,3236 52375 S34/35.1 VLOAD VSU
029886,000678: 35,3237 03550 RPASS3
029887,000679: 35,3240 03534 RACT3
029888,000680: 35,3241 41456 UNIT PUSH
029889,000681: 35,3242 26315 STOVL ULOS
029890,000682: 35,3243 03534 RACT3
029891,000683: 35,3244 53435 VXV UNIT
029892,000684: 35,3245 03542 VACT3
029893,000685: 35,3246 02265 STORE UNRM
029894,000686: 35,3247 77616 RVQ
029895,000687:
![]() |
Page 682 |
029897,000689: # ..... S34/35.2 .....
029898,000690:
029899,000691: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029900,000692:
029901,000693: 35,3250 77220 S34/35.2 STQ VLOAD
029902,000694: 35,3251 03466 SUBEXIT
029903,000695: 35,3252 03556 VPASS3
029904,000696: 35,3253 65315 PDVL PDDL
029905,000697: 35,3254 03550 RPASS3
029906,000698: 35,3255 03606 INTIME
029907,000699: 35,3256 65325 PDDL PDDL
029908,000700: 35,3257 03627 TPASS4
029909,000701: 35,3260 06424 ZEROVECS
029910,000702: 35,3261 45006 PUSH CALL
029911,000703: 35,3262 73422 INTINT # GET TARGET VECTOR
029912,000704: 35,3263 27442 S3435.25 STOVL RTARG
029913,000705: 35,3264 00007 VATT
029914,000706: 35,3265 27504 STOVL VPASS4
029915,000707: 35,3266 03442 RTARG
029916,000708: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
029917,000709: 35,3267 63256 UNIT PDVL # UNIT RP
029918,000710: 35,3270 03534 RACT3
029919,000711: 35,3271 41456 UNIT PUSH # UNIT RA
029920,000712: 35,3272 50235 VXV DOT
029921,000713: 35,3273 00001 0D
029922,000714: 35,3274 02265 UNRM # RA*RP.U
029923,000715: 35,3275 77715 PDVL
029924,000716: 35,3276 72441 DOT SL1 # UNIT RA.UNIT RP
029925,000717: 35,3277 00001 0D
029926,000718: 35,3300 75326 ACOS SIGN
029927,000719: 35,3301 43244 BPL DAD
029928,000720: 35,3302 73304 NOPIE
029929,000721: 35,3303 06432 DPPOSMAX # REASONABLE TWO PI
029930,000722: 35,3304 15756 NOPIE STODL ACTCENT
029931,000723: 35,3305 03627 TPASS4
029932,000724: 35,3306 77625 DSU
029933,000725: 35,3307 03606 INTIME
029934,000726: 35,3310 03450 STORE DELLT4
029935,000727: 35,3311 40335 SLOAD SETPD
029936,000728: 35,3312 33701 DECTWO
029937,000729: 35,3313 00001 0D
029938,000730: 35,3314 63325 PDDL PDVL
029939,000731: 35,3315 33704 EPSFOUR
029940,000732: 35,3316 03534 RACT3
029941,000733: 35,3317 26327 STOVL RINIT
029942,000734: 35,3320 03542 VACT3
029943,000735: 35,3321 36335 STCALL VINIT
029944,000736: 35,3322 22000 INITVEL
029945,000737: 35,3323 77624 CALL
029946,000738: 35,3324 73403 LOMAT
029947,000739: 35,3325 64375 VLOAD MXV
![]() |
Page 683 |
029949,000741: 35,3326 03366 DELVEET3
029950,000742: 35,3327 00001 0D
029951,000743: 35,3330 77772 VSL1
029952,000744: 35,3331 37432 STCALL DELVLVC
029953,000745: 35,3332 03466 SUBEXIT
029954,000746:
![]() |
Page 684 |
029956,000748: # ..... S34/35.3 .....
029957,000749:
029958,000750: 35,3333 45020 S34/35.3 STQ CALL
029959,000751: 35,3334 03461 NORMEX
029960,000752: 35,3335 73403 LOMAT # GET MATRIX IN PUSH LIST
029961,000753: 35,3336 61375 VLOAD VXM
029962,000754: 35,3337 03432 DELVLVC # NEW DEL V TPI
029963,000755: 35,3340 00001 0D
029964,000756: 35,3341 77772 VSL1
029965,000757: 35,3342 03366 STORE DELVEET3 # SAVE FOR TRANSFORM
029966,000758: 35,3343 63255 VAD PDVL
029967,000759: 35,3344 03542 VACT3 # NEW V REQ
029968,000760: 35,3345 03534 RACT3
029969,000761: 35,3346 65325 PDDL PDDL
029970,000762: 35,3347 03440 TIG
029971,000763: 35,3350 03627 TPASS4
029972,000764: 35,3351 41525 PDDL PUSH
029973,000765: 35,3352 06432 DPPOSMAX
029974,000766: 35,3353 77624 CALL # INTEG. FOR NEW TARGET VEC
029975,000767: 35,3354 73422 INTINT
029976,000768: 35,3355 77775 VLOAD
029977,000769: 35,3356 00001 RATT
029978,000770: 35,3357 03442 STORE RTARG
029979,000771: 35,3360 41575 NOVRWRT VLOAD PUSH
029980,000772: 35,3361 02315 ULOS
029981,000773: 35,3362 57435 VXV VCOMP
029982,000774: 35,3363 02265 UNRM
029983,000775: 35,3364 41456 UNIT PUSH
029984,000776: 35,3365 76435 VXV VSL1
029985,000777: 35,3366 02315 ULOS
029986,000778: 35,3367 77715 PDVL
029987,000779: 35,3370 64315 PDVL MXV
029988,000780: 35,3371 03366 DELVEET3
029989,000781: 35,3372 00001 0D
029990,000782: 35,3373 77772 VSL1
029991,000783: 35,3374 36307 STCALL DVLOS
029992,000784: 35,3375 03461 NORMEX
029993,000785:
![]() |
Page 685 |
029995,000787: # ..... S34/35.4 .....
029996,000788:
029997,000789: 35,3376 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
029998,000790: 35,3377 03461 NORMEX
029999,000791: 35,3400 00001 0D
030000,000792: 35,3401 77650 GOTO
030001,000793: 35,3402 73360 NOVRWRT
030002,000794:
![]() |
Page 686 |
030004,000796: # ..... LOMAT .....
030005,000797:
030006,000798: 35,3403 57575 LOMAT VLOAD VCOMP
030007,000799: 35,3404 02265 UNRM
030008,000800: 35,3405 24007 STOVL 6D # Y
030009,000801: 35,3406 03534 RACT3
030010,000802: 35,3407 57456 UNIT VCOMP
030011,000803: 35,3410 00015 STORE 12D
030012,000804: 35,3411 76435 VXV VSL1
030013,000805: 35,3412 02265 UNRM # Z*-Y
030014,000806: 35,3413 00001 STORE 0D
030015,000807: 35,3414 43401 SETPD RVQ
030016,000808: 35,3415 00023 18D
030017,000809: 35,3416 65325 GOINT PDDL PDDL # DO
030018,000810: 35,3417 06424 ZEROVECS # NOT
030019,000811: 35,3420 02323 NOMTPI
030020,000812: 35,3421 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
030021,000813: 35,3422 45020 INTINT STQ CALL
030022,000814: 35,3423 03463 RTRN
030023,000815: 35,3424 27412 INTSTALL
030024,000816: 35,3425 71214 CLEAR DLOAD
030025,000817: 35,3426 01673 INTYPFLG
030026,000818: 35,3427 43054 BZE SET
030027,000819: 35,3430 73432 +2
030028,000820: 35,3431 01473 INTYPFLG
030029,000821: 35,3432 45545 DLOAD STADR
030030,000822: 35,3433 63736 STODL TDEC1
030031,000823: 35,3434 73014 SET LXA,2
030032,000824: 35,3435 00063 MOONFLAG
030033,000825: 35,3436 03376 RTX2
030034,000826: 35,3437 43014 BON CLEAR
030035,000827: 35,3440 04303 CMOONFLG
030036,000828: 35,3441 73443 ALLSET
030037,000829: 35,3442 00263 MOONFLAG
030038,000830: 35,3443 25517 ALLSET STOVL TET
030039,000831: 35,3444 77657 VSR*
030040,000832: 35,3445 57176 0,2
030041,000833: 35,3446 25535 STOVL RCV
030042,000834: 35,3447 77657 VSR*
030043,000835: 35,3450 57176 0,2
030044,000836: 35,3451 35543 STCALL VCV
030045,000837: 35,3452 27107 INTEGRVS
030046,000838: 35,3453 52175 VLOAD GOTO
030047,000839: 35,3454 00001 RATT
030048,000840: 35,3455 03463 RTRN
030049,000841:
![]() |
Page 687 |
030051,000843: # ..... S34/35.5 .....
030052,000844: # SUBROUTINES USED
030053,000845: # BANKCALL
030054,000846: # GOFLASH
030055,000847: # GOTOPOOH
030056,000848: # S34/35.3
030057,000849: # S34/35.4
030058,000850: # VNPOOH
030059,000851:
030060,000852: 35,3456 43020 S34/35.5 STQ BON
030061,000853: 35,3457 03466 SUBEXIT
030062,000854: 35,3460 01311 FINALFLG
030063,000855: 35,3461 73465 FLAGON
030064,000856: 35,3462 52014 SET GOTO
030065,000857: 35,3463 00470 UPDATFLG
030066,000858: 35,3464 73532 FLAGOFF
030067,000859: 35,3465 77214 FLAGON CLEAR VLOAD
030068,000860: 35,3466 03274 NTARGFLG
030069,000861: 35,3467 03432 DELVLVC
030070,000862: 35,3470 01237 STORE GDT/2
030071,000863: 35,3471 77776 EXIT
030072,000864: 35,3472 33666 +5 CAF V06N81
030073,000865: 35,3473 04616 TC BANKCALL
030074,000866: 35,3474 20351 CADR GOFLASH
030075,000867: 35,3475 06001 TC GOTOPOOH
030076,000868: 35,3476 03500 TC +2 # PRO
030077,000869: 35,3477 03472 TC FLAGON +5 # LOAD
030078,000870: 35,3500 35016 +2 CA EBANK7
030079,000871: 35,3501 54003 TS EBANK # TO BE SURE
030080,000872:
030081,000873: 35,3502 22007 ZL
030082,000874: 35,3503 34756 CA FIVE
030083,000875: 35,3504 54002 NTARGCHK TS Q
030084,000876: 35,3505 50002 INDEX Q
030085,000877: 35,3506 41431 CS DELVLVC
030086,000878: 35,3507 50002 INDEX Q
030087,000879: 35,3510 61236 AD GDT/2
030088,000880: 35,3511 26001 ADS L
030089,000881: 35,3512 10002 CCS Q
030090,000882: 35,3513 13504 TCF NTARGCHK
030091,000883: 35,3514 22000 LXCH A
030092,000884: 35,3515 00006 EXTEND
030093,000885: 35,3516 13521 BZF +3
030094,000886: 35,3517 05504 TC UPFLAG
030095,000887: 35,3520 00146 ADRES NTARGFLG
030096,000888:
030097,000889: 35,3521 06036 TC INTPRET
030098,000890: 35,3522 45014 BOFF CALL
030099,000891: 35,3523 03354 NTARGFLG
![]() |
Page 688 |
030101,000893: 35,3524 73526 NOCHG
030102,000894: 35,3525 73333 S34/35.3
030103,000895: 35,3526 77214 NOCHG CLEAR VLOAD
030104,000896: 35,3527 01267 XDELVFLG
030105,000897: 35,3530 03366 DELVEET3
030106,000898: 35,3531 03654 STORE DELVSIN
030107,000899: 35,3532 77624 FLAGOFF CALL
030108,000900: 35,3533 73376 S34/35.4
030109,000901: 35,3534 77776 EXIT
030110,000902: 35,3535 33665 CAF V06N59
030111,000903: 35,3536 03651 TC VNPOOH
030112,000904: 35,3537 06036 TC INTPRET
030113,000905: 35,3540 77650 GOTO
030114,000906: 35,3541 03466 SUBEXIT
030115,000907:
![]() |
Page 689 |
030117,000909: # ..... VN1645 .....
030118,000910:
030119,000911: # SUBROUTINES USED
030120,000912: # P3XORP7X
030121,000913: # GET+MGA
030122,000914: # BANKCALL
030123,000915: # DELAYJOB
030124,000916: # COMPTGO
030125,000917: # GOFLASHR
030126,000918: # GOTOPOOH
030127,000919: # FLAGUP
030128,000920:
030129,000921: 35,3542 71220 VN1645 STQ DLOAD
030130,000922: 35,3543 03466 SUBEXIT
030131,000923: 35,3544 33702 DP-.01
030132,000924: 35,3545 02257 STORE +MGA # MGA = -.01
030133,000925: 35,3546 71214 BOFF DLOAD
030134,000926: 35,3547 01351 FINALFLG
030135,000927: 35,3550 73570 GET45
030136,000928: 35,3551 33702 DP-.01
030137,000929: 35,3552 77615 DAD
030138,000930: 35,3553 33702 DP-.01
030139,000931: 35,3554 02257 STORE +MGA # MGA = -.02
030140,000932: 35,3555 77414 BOFF EXIT
030141,000933: 35,3556 01742 REFSMFLG
030142,000934: 35,3557 73570 GET45
030143,000935: 35,3560 03643 TC P3XORP7X
030144,000936: 35,3561 03563 TC +2 # P3X
030145,000937: 35,3562 03571 TC GET45 +1 # P7X
030146,000938: 35,3563 06036 TC INTPRET
030147,000939: 35,3564 41575 VLOAD PUSH
030148,000940: 35,3565 03654 DELVSIN
030149,000941: 35,3566 77624 CALL # COMPUTE MGA
030150,000942: 35,3567 20005 GET+MGA
030151,000943: 35,3570 77776 GET45 EXIT
030152,000944: 35,3571 02376 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
030153,000945: 35,3572 31466 CA SUBEXIT
030154,000946: 35,3573 55462 TS QSAVED
030155,000947: 35,3574 34777 CAF 1SEC
030156,000948: 35,3575 04616 TC BANKCALL
030157,000949: 35,3576 01735 CADR DELAYJOB
030158,000950: 35,3577 33667 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
030159,000951: 35,3600 04616 TC BANKCALL
030160,000952: 35,3601 20351 CADR GOFLASH
030161,000953: 35,3602 03605 TC KILCLOCK # TERMINATE
030162,000954: 35,3603 03610 TC N45PROC # PROCEED
030163,000955: 35,3604 03620 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
030164,000956: 35,3605 30005 KILCLOCK CA Z
030165,000957: 35,3606 55163 TS DISPDEX
![]() |
Page 690 |
030167,000959: 35,3607 06001 TC GOTOPOOH
030168,000960: 35,3610 40076 N45PROC CS FLAGWRD2
030169,000961: 35,3611 74746 MASK BIT6
030170,000962: 35,3612 00006 EXTEND
030171,000963: 35,3613 13605 BZF KILCLOCK # FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
030172,000964: 35,3614 05353 TC PHASCHNG
030173,000965: 35,3615 04024 OCT 04024
030174,000966: 35,3616 05504 TC UPFLAG # SET
030175,000967: 35,3617 00047 ADRES FINALFLG # FINALFLG
030176,000968: 35,3620 30005 CLUPDATE CA Z
030177,000969: 35,3621 55163 TS DISPDEX
030178,000970: 35,3622 05353 TC PHASCHNG
030179,000971: 35,3623 04024 OCT 04024
030180,000972: 35,3624 06036 TC INTPRET
030181,000973: 35,3625 52014 CLEAR GOTO
030182,000974: 35,3626 00670 UPDATFLG
030183,000975: 35,3627 03462 QSAVED
030184,000976:
![]() |
Page 691 |
030186,000978: # ..... DISPLAYE .....
030187,000979:
030188,000980: # SUBROUTINES USED
030189,000981: # BANKCALL
030190,000982: # GOFLASHR
030191,000983: # GOTOPOOH
030192,000984: # BLANKET
030193,000985: # ENDOFJOB
030194,000986:
030195,000987: 35,3630 00006 DISPLAYE EXTEND
030196,000988: 35,3631 23461 QXCH NORMEX
030197,000989: 35,3632 33663 CAF V06N55
030198,000990: 35,3633 04616 TCR BANKCALL
030199,000991: 35,3634 20510 CADR GOFLASHR
030200,000992: 35,3635 16001 TCF GOTOPOOH
030201,000993: 35,3636 01461 TC NORMEX
030202,000994: 35,3637 13632 TCF -5
030203,000995: 35,3640 34753 CAF BIT1 # BLANK R1
030204,000996: 35,3641 05464 TCR BLANKET
030205,000997: 35,3642 15155 TCF ENDOFJOB
030206,000998:
![]() |
Page 692 |
030208,001000: # ..... P3XORP7X .....
030209,001001:
030210,001002: 35,3643 37743 P3XORP7X CAF HIGH9
030211,001003: 35,3644 71011 MASK MODREG
030212,001004: 35,3645 00006 EXTEND
030213,001005: 35,3646 13650 BZF +2
030214,001006: 35,3647 24002 INCR Q
030215,001007: 35,3650 00002 RETURN
030216,001008:
030217,001009: # ..... VNPOOH .....
030218,001010:
030219,001011: # SUBROUTINES USED
030220,001012: # BANKCALL
030221,001013: # GOFLASH
030222,001014: # GOTOPOOH
030223,001015:
030224,001016: 35,3651 00006 VNPOOH EXTEND
030225,001017: 35,3652 23463 QXCH RTRN
030226,001018: 35,3653 55613 TS VERBNOUN
030227,001019: 35,3654 31613 CA VERBNOUN
030228,001020: 35,3655 04616 TCR BANKCALL
030229,001021: 35,3656 20351 CADR GOFLASH
030230,001022: 35,3657 16001 TCF GOTOPOOH
030231,001023: 35,3660 01463 TC RTRN
030232,001024: 35,3661 13654 TCF -5
030233,001025:
![]() |
Page 693 |
030235,001027: # ..... CONSTANTS .....
030236,001028:
030237,001029: 35,3662 01445 V06N37 VN 0637
030238,001030: 35,3663 01467 V06N55 VN 0655
030239,001031: 35,3664 01472 V06N58 VN 0658
030240,001032: 35,3665 01473 V06N59 VN 0659
030241,001033: 35,3666 01521 V06N81 VN 0681
030242,001034: 35,3667 04055 V16N45 VN 1645
030243,001035: 35,3670 14441 37325 TWOPI 2DEC 6.283185307 B-4
030244,001036:
030245,001037: 35,3672 00001 20650 MAX250 2DEC 25 E3
030246,001038:
030247,001039: 35,3674 12525 12525 THIRD 2DEC .333333333
030248,001040:
030249,001041: 35,3676 00004 21505 ELEPS 2DEC .27777777 E-3
030250,001042: 35,3700 00002 DECTWO OCT 2
030251,001043: 35,3701 77777 DP-.01 OCT 77777 # CONSTANTS
030252,001044: 35,3702 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
030253,001045: 35,3703 01252 25253 EPSFOUR 2DEC .0416666666
030254,001046:
030255,001047: 35,3705 13434 16162 130DEG 2DEC .3611111111
030256,001048:
![]() |
Page 694 |
030258,001050: # ..... INITVEL .....
030259,001051:
030260,001052: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
030261,001053: # MOD BY WHITE.P DATE 21NOV67
030262,001054:
030263,001055: # FUNCTIONAL DESCRIPTION
030264,001056:
030265,001057: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
030266,001058: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
030267,001059: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
030268,001060: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
030269,001061: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
030270,001062: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
030271,001063: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
030272,001064: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
030273,001065: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
030274,001066: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
030275,001067:
030276,001068: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
030277,001069: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
030278,001070: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
030279,001071: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
030280,001072: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
030281,001073: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
030282,001074: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
030283,001075: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030284,001076:
030285,001077: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030286,001078: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030287,001079: # TRAJECTORY COMPUTATIONS.
030288,001080:
030289,001081: # CALLING SEQUENCE
030290,001082:
030291,001083: # L CALL
030292,001084: # L+1 INITVEL
030293,001085: # L+2 (RETURN - ALWAYS)
030294,001086:
030295,001087: # INPUT
030296,001088:
030297,001089: # (1) RINIT INITIAL POSITION RADIUS VECTOR
030298,001090: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
030299,001091: # (3) RTARG TARGET POSITION RADIUS VECTOR
030300,001092: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030301,001093: # (5) INTIME TIME OF RINIT
030302,001094: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030303,001095: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030304,001096: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
030305,001097: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030306,001098: # PUSHLOC SET AT 4D
030307,001099:
![]() |
Page 695 |
030309,001101: # OUTPUT
030310,001102:
030311,001103: # (1) RTARG OFFSET TARGET POSITION VECTOR
030312,001104: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
030313,001105: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
030314,001106: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
030315,001107:
030316,001108: # SUBROUTINES USED
030317,001109:
030318,001110: # LAMBERT
030319,001111: # INTSTALL
030320,001112: # INTEGRVS
030321,001113:
030322,001114: 11,2000 SETLOC INTVEL
030323,001115: 11,2000 BANK
030324,001116:
030325,001117: 11,2000 COUNT* $$/INITV
030326,001118: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
030327,001119: 11,2001 00475 GUESSW
030328,001120: 11,2002 44175 HAVEGUES VLOAD STQ
030329,001121: 11,2003 03442 RTARG
030330,001122: 11,2004 03461 NORMEX
030331,001123: 11,2005 03470 STORE RTARG1
030332,001124: 11,2006 46135 SLOAD BHIZ
030333,001125: 11,2007 03377 RTX2
030334,001126: 11,2010 22022 INITVEL1
030335,001127: 11,2011 72575 VLOAD VSL2
030336,001128: 11,2012 02327 RINIT # B29
030337,001129: 11,2013 26327 STOVL RINIT # B27
030338,001130: 11,2014 02335 VINIT # B7
030339,001131: 11,2015 77752 VSL2
030340,001132: 11,2016 26335 STOVL VINIT # B5
030341,001133: 11,2017 03470 RTARG1
030342,001134: 11,2020 77752 VSL2
030343,001135: 11,2021 03470 STORE RTARG1
030344,001136: # INITIALIZATION
030345,001137:
030346,001138: 11,2022 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
030347,001139: 11,2023 03615 ITCTR
030348,001140: 11,2024 77776 0 -1
030349,001141: 11,2025 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
030350,001142: 11,2026 17665 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
030351,001143: 11,2027 67154 LXA,2 SXA,2
030352,001144: 11,2030 00154 MPAC
030353,001145: 11,2031 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
030354,001146: 11,2032 77775 VLOAD
030355,001147: 11,2033 02327 RINIT
030356,001148: 11,2034 26655 STOVL R1VEC # R1VEC EQ RINIT
030357,001149: 11,2035 03470 RTARG1
030358,001150: 11,2036 16663 STODL R2VEC # R2VEC EQ RTARG
![]() |
Page 0696 |
030360,001152: 11,2037 03450 DELLT4
030361,001153: 11,2040 02671 STORE TDESIRED # TDESIRED EQ DELLT4
030362,001154: 11,2041 77201 SETPD VLOAD
030363,001155: 11,2042 00001 0D # INITIALIZE PL TO 0D
030364,001156: 11,2043 02327 RINIT # MPAC EQ RINIT (+29)
030365,001157: 11,2044 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
030366,001158: 11,2045 53435 VXV UNIT
030367,001159: 11,2046 02335 VINIT # MPAC EQ UNIT(RI) X VI (+8)
030368,001160: 11,2047 26674 STOVL UN
030369,001161: 11,2050 03470 RTARG1
030370,001162: 11,2051 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
030371,001163: 11,2052 43015 DAD CLEAR
030372,001164: 11,2053 03665 COZY4
030373,001165: 11,2054 03665 NORMSW
030374,001166: 11,2055 03665 STORE COZY4
030375,001167: 11,2056 43044 INITVEL2 BPL SET
030376,001168: 11,2057 22101 INITVEL3 # UN CALCULATED IN LAMBERT
030377,001169: 11,2060 03465 NORMSW
030378,001170:
030379,001171: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030380,001172:
030381,001173: 11,2061 41575 VLOAD PUSH # (PL 6D)
030382,001174: 11,2062 02663 R2VEC # RC TO 6D (+29)
030383,001175: 11,2063 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
030384,001176: 11,2064 46206 PUSH VPROJ # (PL 8D)
030385,001177: 11,2065 02674 UN
030386,001178: 11,2066 51352 VSL2 BVSU
030387,001179: 11,2067 74256 UNIT VXSC # (PL 0D)
030388,001180: 11,2070 77772 VSL1
030389,001181: 11,2071 02663 STORE R2VEC
030390,001182: 11,2072 67351 TLOAD SLOAD
030391,001183: 11,2073 22275 ZEROVEC
030392,001184: 11,2074 03615 ITCTR
030393,001185: 11,2075 77244 BPL VLOAD
030394,001186: 11,2076 22101 INITVEL3
030395,001187: 11,2077 02663 R2VEC
030396,001188: 11,2100 03470 STORE RTARG1
030397,001189: 11,2101 63345 INITVEL3 DLOAD PDVL # (PL 2D)
030398,001190: 11,2102 26007 MUEARTH # POSITIVE VALUE
030399,001191: 11,2103 02663 R2VEC
030400,001192: 11,2104 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
030401,001193: 11,2105 02655 R1VEC
030402,001194: 11,2106 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
030403,001195: 11,2107 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
030404,001196: 11,2110 00003 2D
030405,001197: 11,2111 77606 PUSH # (PL 20D)
030406,001198: 11,2112 71350 LXA,1 DLOAD
030407,001199: 11,2113 03375 RTX1
030408,001200: 11,2114 00023 18D
030409,001201: 11,2115 62040 BMN INCR,1
030410,001202: 11,2116 22120 +2
![]() |
Page 697 |
030412,001204: 11,2117 77767 DEC -8 B-14
030413,001205: 11,2120 67310 INCR,1 SLOAD
030414,001206: 11,2121 00012 10D
030415,001207: 11,2122 00047 X1
030416,001208: 11,2123 77230 BHIZ VLOAD # (PL 14D)
030417,001209: 11,2124 22126 +2
030418,001210: 11,2125 41476 VCOMP PUSH # (PL 20D)
030419,001211: 11,2126 77775 VLOAD # (PL 14D)
030420,001212: 11,2127 50235 VXV DOT # (PL 2D)
030421,001213: 11,2130 71244 BPL DLOAD # (PL 0D)
030422,001214: 11,2131 22133 INITVEL4
030423,001215: 11,2132 41476 DCOMP PUSH # (PL 2D)
030424,001216: 11,2133 67154 INITVEL4 LXA,2 SXA,2
030425,001217: 11,2134 00000 0D
030426,001218: 11,2135 02672 GEOMSGN
030427,001219: # SET INPUTS UP FOR LAMBERT
030428,001220:
030429,001221: 11,2136 43131 SSP BOFF
030430,001222: 11,2137 00027 ITERCTR
030431,001223: 11,2140 00024 20D
030432,001224: 11,2141 03752 AVEGFLAG
030433,001225: 11,2142 22146 +4
030434,001226: 11,2143 77731 SSP
030435,001227: 11,2144 00027 ITERCTR
030436,001228: 11,2145 00005 5
030437,001229: 11,2146 45150 LXA,1 CALL
030438,001230: 11,2147 03375 RTX1
030439,001231: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030440,001232:
030441,001233: 11,2150 25223 LAMBERT
030442,001234:
030443,001235: # DELETE THRU 4521
030444,001236: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030445,001237:
030446,001238: 11,2151 77214 CLEAR VLOAD
030447,001239: 11,2152 00675 GUESSW
030448,001240: 11,2153 02744 VVEC
030449,001241:
030450,001242: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030451,001243:
030452,001244: 11,2154 16343 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
030453,001245:
030454,001246: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030455,001247: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030456,001248:
030457,001249: 11,2155 02702 VTARGTAG
030458,001250: 11,2156 45030 BHIZ CALL
030459,001251: 11,2157 22234 INITVEL7
030460,001252: 11,2160 27412 INTSTALL
030461,001253: 11,2161 43135 SLOAD CLEAR
030462,001254: 11,2162 03377 RTX2
![]() |
Page 698 |
030464,001256: 11,2163 00263 MOONFLAG
030465,001257: 11,2164 43030 BHIZ SET
030466,001258: 11,2165 22167 INITVEL5
030467,001259: 11,2166 00063 MOONFLAG
030468,001260: 11,2167 77775 INITVEL5 VLOAD
030469,001261: 11,2170 02327 RINIT
030470,001262: 11,2171 02655 STORE R1VEC
030471,001263: 11,2172 25535 STOVL RCV
030472,001264: 11,2173 02343 VIPRIME
030473,001265: 11,2174 15543 STODL VCV
030474,001266: 11,2175 03606 INTIME
030475,001267: 11,2176 01517 STORE TET
030476,001268: 11,2177 43015 DAD CLEAR
030477,001269: 11,2200 03450 DELLT4
030478,001270: 11,2201 01673 INTYPFLG
030479,001271: 11,2202 34041 STCALL TDEC1
030480,001272: 11,2203 27107 INTEGRVS
030481,001273: 11,2204 77775 VLOAD
030482,001274: 11,2205 00025 VATT1
030483,001275: 11,2206 02703 STORE VTARGET
030484,001276: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030485,001277: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030486,001278:
030487,001279: 11,2207 63154 LXA,2 INCR,2
030488,001280: 11,2210 03614 ITCTR
030489,001281: 11,2211 00001 1D # INCREMENT ITCTR
030490,001282: 11,2212 55134 SXA,2 XSU,2
030491,001283: 11,2213 03614 ITCTR
030492,001284: 11,2214 02701 VTARGTAG
030493,001285: 11,2215 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030494,001286: 11,2216 00050 X2
030495,001287: 11,2217 22231 INITVEL6
030496,001288:
030497,001289: # OFFSET CONIC TARGET VECTOR
030498,001290:
030499,001291: 11,2220 52375 VLOAD VSU
030500,001292: 11,2221 03470 RTARG1
030501,001293: 11,2222 00017 RATT1
030502,001294: 11,2223 77655 VAD
030503,001295: 11,2224 02663 R2VEC
030504,001296: 11,2225 16663 STODL R2VEC
030505,001297: 11,2226 03665 COZY4
030506,001298: 11,2227 77650 GOTO
030507,001299: 11,2230 22056 INITVEL2 # CONTINUE ITERATING AT INITVEL2
030508,001300: # COMPUTE THE DELTA VELOCITY
030509,001301:
030510,001302: 11,2231 77775 INITVEL6 VLOAD
030511,001303: 11,2232 02663 R2VEC
030512,001304: 11,2233 03470 STORE RTARG1
030513,001305: 11,2234 52375 INITVEL7 VLOAD VSU
![]() |
Page 699 |
030515,001307: 11,2235 02343 VIPRIME
030516,001308: 11,2236 02335 VINIT
030517,001309: 11,2237 27366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
030518,001310: 11,2240 02703 VTARGET
030519,001311: 11,2241 03564 STORE VTPRIME
030520,001312: 11,2242 46135 SLOAD BHIZ
030521,001313: 11,2243 03377 RTX2
030522,001314: 11,2244 22261 INITVELX
030523,001315: 11,2245 70575 VLOAD VSR2
030524,001316: 11,2246 03564 VTPRIME
030525,001317: 11,2247 27564 STOVL VTPRIME
030526,001318: 11,2250 02343 VIPRIME
030527,001319: 11,2251 77742 VSR2
030528,001320: 11,2252 26343 STOVL VIPRIME
030529,001321: 11,2253 03470 RTARG1
030530,001322: 11,2254 77742 VSR2
030531,001323: 11,2255 27470 STOVL RTARG1
030532,001324: 11,2256 03366 DELVEET3
030533,001325: 11,2257 77742 VSR2
030534,001326: 11,2260 03366 STORE DELVEET3
030535,001327: 11,2261 77201 INITVELX SETPD VLOAD
030536,001328: 11,2262 00001 0D
030537,001329: 11,2263 03470 RTARG1
030538,001330: 11,2264 37442 STCALL RTARG
030539,001331: 11,2265 03461 NORMEX
030540,001332:
030541,001333: # ..... END OF INITVEL ROUTINE .....
030542,001334:
![]() |
Page 700 |
030544,001336: # ..... MIDGIM .....
030545,001337:
030546,001338: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030547,001339: # REVISION 03, 17 FEB 67
030548,001340:
030549,001341: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030550,001342: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030551,001343: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
030552,001344: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030553,001345: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030554,001346:
030555,001347: # .. INPUTS ..
030556,001348:
030557,001349: # NAME MEANING UNITS/SCALING/MODE
030558,001350:
030559,001351: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
030560,001352: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
030561,001353: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
030562,001354: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
030563,001355:
030564,001356: # .. OUTPUTS ..
030565,001357:
030566,001358: # NAME MEANING UNITS/SCALING/MODE
030567,001359:
030568,001360: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
030569,001361: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
030570,001362: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
030571,001363:
030572,001364: # .. CALLING SEQUENCE ..
030573,001365:
030574,001366: # L CALL
030575,001367: # L+1 MIDGIM
030576,001368: # L+2 (RETURN - ALWAYS)
030577,001369:
030578,001370: # .. NO SUBROUTINES CALLED ..
030579,001371:
030580,001372: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
030581,001373:
030582,001374: # A,Q,L, PUSH LIST, MPAC.
030583,001375:
030584,001376: # .. ALARMS - NONE ..
030585,001377:
![]() |
Page 701 |
030587,001379: # MIDDLE GIMBAL ANGLE COMPUTATION.
030588,001380:
030589,001381: 10,2000 SETLOC MIDDGIM
030590,001382: 10,2000 BANK
030591,001383:
030592,001384: 10,2000 COUNT* $$/MIDG
030593,001385:
030594,001386: 10,2000 20000 00000 HALFREV 2DEC 1 B-1
030595,001387:
030596,001388: 10,2002 77614 MIDGIM BOFF
030597,001389: 10,2003 01352 AVFLAG
030598,001390: 10,2004 20021 GET.LVC
030599,001391: 10,2005 10,2005 MIDGIM1 = GET+MGA
030600,001392:
030601,001393: 10,2005 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
030602,001394: 10,2006 77656 UNIT
030603,001395: 10,2007 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030604,001396: 10,2010 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
030605,001397: 10,2011 51136 ARCSIN BPL
030606,001398: 10,2012 20016 SETMGA
030607,001399: 10,2013 43215 DAD DAD # CONVERT -MGA TO +MGA BY
030608,001400: 10,2014 20001 HALFREV # ADDING ONE REVOLUTION
030609,001401: 10,2015 20001 HALFREV
030610,001402: 10,2016 02257 SETMGA STORE +MGA
030611,001403: 10,2017 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
030612,001404: 10,2020 02675 MGLVFLAG # AND EXIT
030613,001405: 10,2021 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
030614,001406: 10,2022 02327 RINIT
030615,001407: 10,2023 77676 VCOMP # U(-R)
030616,001408: 10,2024 00023 STORE 18D # U(-R) TO 18D
030617,001409: 10,2025 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
030618,001410: 10,2026 02335 VINIT
030619,001411: 10,2027 00015 STORE 12D # U(V*R) TO 12D
030620,001412: 10,2030 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
030621,001413: 10,2031 00023 18D
030622,001414: 10,2032 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
030623,001415: 10,2033 00001 0D # DELTA V (+7) IN 0D
030624,001416: 10,2034 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
030625,001417: 10,2035 00007 6D # AND SCALE +7 IN MPAC
030626,001418: 10,2036 03432 STORE DELVLVC # STORE IN DELVLVC (+7)
030627,001419: 10,2037 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
030628,001420: 10,2040 02475 MGLVFLAG # AND EXIT
030629,001421:
030630,001422: # ..... END OF MIDGIM ROUTINE .....
030631,001423:
![]() |
Page 702 |
030633,001425:
030634,001426: 10,2041 77160 SELECTMU AXC,1 AXT,2
030635,001427: 10,2042 00002 2D
030636,001428: 10,2043 00000 0D
030637,001429: 10,2044 77614 BOFF
030638,001430: 10,2045 04343 CMOONFLG
030639,001431: 10,2046 20052 SETMUER
030640,001432: 10,2047 77160 AXC,1 AXT,2
030641,001433: 10,2050 00012 10D
030642,001434: 10,2051 00002 2D
030643,001435: 10,2052 66143 SETMUER DLOAD* SXA,1
030644,001436: 10,2053 10011 MUTABLE +4,1
030645,001437: 10,2054 03375 RTX1
030646,001438: 10,2055 22323 STODL* RTSR1/MU
030647,001439: 10,2056 10003 MUTABLE -2,1
030648,001440: 10,2057 54214 BOFF SR
030649,001441: 10,2060 04343 CMOONFLG
030650,001442: 10,2061 20063 RTRNMU
030651,001443: 10,2062 20607 6D
030652,001444: 10,2063 02325 RTRNMU STORE RTMU
030653,001445: 10,2064 43134 SXA,2 CLEAR
030654,001446: 10,2065 03376 RTX2
030655,001447: 10,2066 01271 FINALFLG
030656,001448: 10,2067 77650 GOTO
030657,001449: 10,2070 73542 VN1645
030658,001450:
![]() |
Page 703 |
030660,001452: # ..... PERIAPO .....
030661,001453:
030662,001454: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
030663,001455: # MOD BY WHITE.P DATE 18JAN68
030664,001456:
030665,001457: # FUNCTIONAL DESCRIPTION
030666,001458:
030667,001459: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030668,001460: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030669,001461: # THE TRAJECTORY AND THE PRIMARY BODY.
030670,001462:
030671,001463: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
030672,001464:
030673,001465: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030674,001466: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030675,001467:
030676,001468: # CALLING SEQUENCE
030677,001469:
030678,001470: # L CALL
030679,001471: # L+1 PERIAPO
030680,001472: # L+2 (RETURN - ALWAYS)
030681,001473:
030682,001474: # INPUT
030683,001475:
030684,001476: # (1) RVEC POSITION VECTOR IN METERS
030685,001477: # SCALE FACTOR - EARTH +29, MOON +27
030686,001478: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
030687,001479: # SCALE FACTOR - EARTH +7, MOON +5
030688,001480: # (3) X1 PRIMARY BODY INDICATOR
030689,001481: # EARTH -2, MOON -10
030690,001482:
030691,001483: # OUTPUT
030692,001484:
030693,001485: # (1) 2D APOCENTER RADIUS IN METERS
030694,001486: # SCALE FACTOR - EARTH +29, MOON +27
030695,001487: # (2) 4D APOCENTER ALTITUDE IN METERS
030696,001488: # SCALE FACTOR - EARTH +29, MOON P27
030697,001489: # (3) 6D PERICENTER RADIUS IN METERS
030698,001490: # SCALE FACTOR - EARTH +29, MOON +27
030699,001491: # (4) 8D PERICENTER ALTITUDE IN METERS
030700,001492: # SCALE FACTOR - EARTH +29, MOON +27
030701,001493: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
030702,001494: # SCALE FACTOR - +3
030703,001495: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
030704,001496: # SCALE FACTOR - EARTH +29, MOON +27
030705,001497: # (7) PUSHLOC EQUALS 10D
030706,001498:
030707,001499: # SUBROUTINES USED
030708,001500:
030709,001501: # SETRAD
![]() |
Page 704 |
030711,001503: # APSIDES
030712,001504:
030713,001505: 23,2000 SETLOC APOPERI
030714,001506: 23,2000 BANK
030715,001507:
030716,001508: 23,2275 COUNT* $$/PERAP
030717,001509:
030718,001510: 23,2275 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
030719,001511: # = 20 909 901.57 FT
030720,001512:
030721,001513: 23,2277 53754 PERIAPO1 LXA,2 VSR*
030722,001514: 23,2300 03376 RTX2
030723,001515: 23,2301 57176 0,2
030724,001516: 23,2302 26744 STOVL VVEC
030725,001517: 23,2303 53750 LXA,1 VSR*
030726,001518: 23,2304 03375 RTX1
030727,001519: 23,2305 57176 0,2
030728,001520: 23,2306 02655 STORE RVEC
030729,001521: 23,2307 45020 PERIAPO STQ CALL
030730,001522: 23,2310 03461 NORMEX
030731,001523: 23,2311 46325 SETRAD
030732,001524: 23,2312 37667 STCALL XXXALT
030733,001525: 23,2313 25675 APSIDES
030734,001526: 23,2314 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
030735,001527: 23,2315 00003 2D
030736,001528: 23,2316 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
030737,001529: 23,2317 03667 XXXALT
030738,001530: 23,2320 00001 0D
030739,001531: 23,2321 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
030740,001532: 23,2322 03667 XXXALT
030741,001533: 23,2323 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
030742,001534: 23,2324 03461 NORMEX
030743,001535:
![]() |
Page 705 |
030745,001537: # SETRAD
030746,001538:
030747,001539: 23,2325 41545 SETRAD DLOAD PUSH
030748,001540: 23,2326 06276 RPAD
030749,001541: 23,2327 63130 SXA,1 INCR,2
030750,001542: 23,2330 00047 X2
030751,001543: 23,2331 00002 2D
030752,001544: 23,2332 46135 SLOAD BHIZ
030753,001545: 23,2333 00050 X2
030754,001546: 23,2334 46340 SETRADX
030755,001547: 23,2335 51575 VLOAD ABVAL
030756,001548: 23,2336 02023 RLS
030757,001549: 23,2337 77725 PDDL
030758,001550: 23,2340 43545 SETRADX DLOAD RVQ
030759,001551:
![]() |
Page 706 |
030761,001553: # PRECSET
030762,001554:
030763,001555: 23,2341 77620 PRECSET STQ
030764,001556: 23,2342 03461 NORMEX
030765,001557: 23,2343 37572 STCALL TDEC2
030766,001558: 23,2344 27057 LEMPREC
030767,001559: 23,2345 77624 CALL
030768,001560: 23,2346 46357 LEMSTORE
030769,001561: 23,2347 77745 DLOAD
030770,001562: 23,2350 03572 TDEC2
030771,001563: 23,2351 34041 STCALL TDEC1
030772,001564: 23,2352 27043 CSMPREC
030773,001565: 23,2353 77624 CALL
030774,001566: 23,2354 46367 CSMSTORE
030775,001567: 23,2355 77650 GOTO
030776,001568: 23,2356 03461 NORMEX
030777,001569: 23,2357 43175 LEMSTORE VLOAD BOFF
030778,001570: 23,2360 00001 RATT
030779,001571: 23,2361 01352 AVFLAG
030780,001572: 23,2362 46373 PASSIVE
030781,001573: 23,2363 27534 ACTIVE STOVL RACT3
030782,001574: 23,2364 00007 VATT
030783,001575: 23,2365 03542 STORE VACT3
030784,001576: 23,2366 77616 RVQ
030785,001577: 23,2367 43175 CSMSTORE VLOAD BOFF
030786,001578: 23,2370 00001 RATT
030787,001579: 23,2371 01352 AVFLAG
030788,001580: 23,2372 46363 ACTIVE
030789,001581: 23,2373 27550 PASSIVE STOVL RPASS3
030790,001582: 23,2374 00007 VATT
030791,001583: 23,2375 03556 STORE VPASS3
030792,001584: 23,2376 77616 RVQ
030793,001585:
![]() |
Page 707 |
030795,001587: # VECSHIFT
030796,001588: 23,2377 53754 VECSHIFT LXA,2 VSR*
030797,001589: 23,2400 03376 RTX2
030798,001590: 23,2401 57176 0,2
030799,001591: 23,2402 63350 LXA,1 PDVL
030800,001592: 23,2403 03375 RTX1
030801,001593: 23,2404 63257 VSR* PDVL
030802,001594: 23,2405 57176 0,2
030803,001595: 23,2406 77616 RVQ
030804,001596:
![]() |
Page 708 |
030806,001598: # SHIFTR1
030807,001599:
030808,001600: 23,2407 53754 SHIFTR1 LXA,2 SL*
030809,001601: 23,2410 03376 RTX2
030810,001602: 23,2411 57576 0,2
030811,001603: 23,2412 77616 RVQ
030812,001604:
![]() |
Page 709 |
030814,001606: # PROGRAM DESCRIPTION
030815,001607: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
030816,001608: # MOD NO. 0 DATE 22 DECEMBER 67
030817,001609: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
030818,001610: # FUNCTIONAL DESCRIPTION
030819,001611:
030820,001612: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030821,001613: # OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
030822,001614:
030823,001615: # CALLING SEQUENCE
030824,001616:
030825,001617: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
030826,001618:
030827,001619: # SUBROUTINES CALLED
030828,001620:
030829,001621: # EXDSPRET
030830,001622: # GOMARKF
030831,001623: # CSMPREC
030832,001624: # LEMPREC
030833,001625: # SGNAGREE
030834,001626: # LOADTIME
030835,001627:
030836,001628: # NORMAL EXIT MODES
030837,001629:
030838,001630: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030839,001631:
030840,001632: # ALARM OR ABORT EXIT MODES
030841,001633:
030842,001634: # NONE
030843,001635:
030844,001636: # OUTPUT
030845,001637:
030846,001638: # DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
030847,001639:
030848,001640: # DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
030849,001641: # REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
030850,001642:
030851,001643: # ERASABLE INITIALIZATION REQUIRED
030852,001644:
030853,001645: # CSM AND LEM STATE VECTORS
030854,001646:
030855,001647: # DEBRIS
030856,001648:
030857,001649: # CENTRALS A,Q,L
030858,001650: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030859,001651:
030860,001652: 20,2115 BANK 20
030861,001653: 04,2000 SETLOC R36LM
030862,001654: 04,2000 BANK
![]() |
Page 710 |
030864,001656: 04,2613 E4,1612 EBANK= RPASS36
030865,001657:
030866,001658: 04,2613 COUNT* $$/R36
030867,001659:
030868,001660: 04,2613 22007 R36 ZL
030869,001661: 04,2614 34755 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
030870,001662: 04,2615 53052 DXCH DSPTEMX # DISPLAY
030871,001663: 04,2616 32746 CAF V06N16N
030872,001664: 04,2617 04616 TC BANKCALL
030873,001665: 04,2620 20212 CADR GOMARKF
030874,001666: 04,2621 15472 TCF ENDEXT # TERMINATE
030875,001667: 04,2622 12624 TCF +2 # PROCEED
030876,001668: 04,2623 12616 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
030877,001669: 04,2624 53052 DXCH DSPTEMX
030878,001670: 04,2625 00006 EXTEND
030879,001671: 04,2626 12735 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
030880,001672: 04,2627 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
030881,001673: 04,2630 06036 TC INTPRET
030882,001674: 04,2631 77634 RTB
030883,001675: 04,2632 21670 DPMODE
030884,001676: 04,2633 34041 R36INT STCALL TDEC1
030885,001677: 04,2634 27043 OTHPREC
030886,001678: 04,2635 63375 VLOAD PDVL
030887,001679: 04,2636 00007 VATT
030888,001680: 04,2637 00001 RATT # -
030889,001681: 04,2640 02213 STORE RPASS36 # R
030890,001682: 04,2641 63256 UNIT PDVL # P
030891,001683: 04,2642 53435 VXV UNIT # -
030892,001684: 04,2643 77626 STADR
030893,001685: 04,2644 61556 STODL UNP36 # U
030894,001686: 04,2645 00015 TAT
030895,001687: 04,2646 34041 STCALL TDEC1
030896,001688: 04,2647 27057 THISPREC
030897,001689: 04,2650 63375 VLOAD PDVL # -
030898,001690: 04,2651 00007 VATT # VELOCITY VECTOR V 00D
030899,001691: 04,2652 00001 RATT # A
030900,001692: 04,2653 77725 PDDL
030901,001693: 04,2654 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
030902,001694: 04,2655 24037 STOVL 30D # -
030903,001695: 04,2656 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
030904,001696: 04,2657 63245 BVSU PDVL # A - -
030905,001697: 04,2660 02213 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
030906,001698: 04,2661 72441 DOT SL1 # P A
030907,001699: 04,2662 02221 UNP36 # - -
030908,001700: 04,2663 26205 STOVL RANGE # Y = U . R
030909,001701: 04,2664 00001 00D # A
030910,001702: 04,2665 72441 DOT SL1
030911,001703: 04,2666 02221 UNP36 # . - -
030912,001704: 04,2667 26207 STOVL RRATE # Y = U . V
030913,001705: 04,2670 00007 06D # - A -
![]() |
Page 711 |
030915,001707: 04,2671 41456 UNIT PUSH # U = UNIT ( R ) 18D
030916,001708: 04,2672 47235 VXV VXV # RA A
030917,001709: 04,2673 00001 00D # - - - -
030918,001710: 04,2674 00023 18D # (U X V ) X U = U
030919,001711: 04,2675 53552 VSL2 UNIT # RA A RA A
030920,001712: 04,2676 77656 UNIT
030921,001713: 04,2677 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
030922,001714: 04,2700 00023 18D
030923,001715: 04,2701 74241 DOT VXSC # -
030924,001716: 04,2702 00015 12D # U
030925,001717: 04,2703 77752 VSL2 # L
030926,001718: 04,2704 53445 BVSU UNIT
030927,001719: 04,2705 77656 UNIT
030928,001720: 04,2706 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
030929,001721: 04,2707 00001 00D # PLANE
030930,001722: 04,2710 65552 SL1 ARCCOS # - -
030931,001723: 04,2711 26211 STOVL RTHETA # PSI = ARCCOS(U . U )
030932,001724: 04,2712 50235 VXV DOT # A L
030933,001725: 04,2713 00001 00D
030934,001726: 04,2714 71244 BPL DLOAD
030935,001727: 04,2715 10722 R36TAG2
030936,001728: 04,2716 22306 LODPMAX
030937,001729: 04,2717 77625 DSU
030938,001730: 04,2720 02211 RTHETA
030939,001731: 04,2721 02211 STORE RTHETA
030940,001732: 04,2722 47145 R36TAG2 DLOAD RTB
030941,001733: 04,2723 00037 30D
030942,001734: 04,2724 21516 SGNAGREE
030943,001735: 04,2725 01052 STORE DSPTEMX
030944,001736: 04,2726 77776 EXIT
030945,001737: 04,2727 32747 CAF V06N90N # DISPLAY Y , YDOT , AND PSI
030946,001738: 04,2730 04616 TC BANKCALL
030947,001739: 04,2731 20212 CADR GOMARKF
030948,001740: 04,2732 15472 TCF ENDEXT # TERMINATE
030949,001741: 04,2733 15472 TCF ENDEXT # PROCEED , END OF PROGRAM
030950,001742: 04,2734 12616 TCF R36 +3 # REDISPLAY OUTPUT
030951,001743: 04,2735 56001 LREGCHK XCH L
030952,001744: 04,2736 00006 EXTEND
030953,001745: 04,2737 12742 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
030954,001746: 04,2740 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
030955,001747: 04,2741 12627 TCF ASTROTIM
030956,001748: 04,2742 06036 ENTTIM2 TC INTPRET
030957,001749: 04,2743 52034 RTB GOTO
030958,001750: 04,2744 21462 LOADTIME
030959,001751: 04,2745 10633 R36INT
030960,001752: 04,2746 01420 V06N16N VN 00616
030961,001753: 04,2747 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc