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