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