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