Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
020454,000002: # Copyright: Public domain.
020455,000003: # Filename: P34-35_P74-75.agc
020456,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
020457,000005: # build 072. This is for the Command Module's (CM)
020458,000006: # Apollo Guidance Computer (AGC), we believe for
020459,000007: # Apollo 15-17.
020460,000008: # Assembler: yaYUL
020461,000009: # Contact: Sergio Navarro <sergionavarrog@gmail.com>
020462,000010: # Website: www.ibiblio.org/apollo/index.html
020463,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
020464,000012: # Mod history: 2009-08-19 SN Adapted from corresponding Comanche 055 file.
020465,000013: # 2009-09-03 JL Fixed symbol names.
020466,000014: # 2009-09-04 JL Fixed a bunch of typos. Fixed page comments.
020467,000015: # 2009-09-07 JL Fixed typos.
020468,000016: # 2010-01-31 JL Fixed build errors.
020469,000017: # 2010-02-20 RSB Un-##'d this header.
020470,000018: # 2011-05-07 JL Removed workaround.
020471,000019:
020472,000020: # # Page 463
020473,000021: # TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
020474,000022:
020475,000023: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
020476,000024: # MOD BY WHITE.P DATE 1JUNE67
020477,000025:
020478,000026: # PURPOSE
020479,000027:
020480,000028: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020481,000029: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
020482,000030: # PHASE INITITATION (TPI) MANEUVER, GIVEN -
020483,000031:
020484,000032: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
020485,000033: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
020486,000034:
020487,000035: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020488,000036: # INTERCEPT TIME (TIG (TPF)).
020489,000037:
020490,000038: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020491,000039:
020492,000040: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020493,000041: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020494,000042:
020495,000043: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020496,000044: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020497,000045: # ASTRONAUT/GROUND.
020498,000046:
020499,000047: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020500,000048: # THRUSTING PROGRAM.
020501,000049:
020502,000050: # ASSUMPTIONS
020503,000051:
020504,000052: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020505,000053: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020506,000054: # THEREFORE -
020507,000055:
020508,000056: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020509,000057: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020510,000058: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020511,000059: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020512,000060:
020513,000061: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020514,000062: # COMPUTED TO BE GREATER THAN 10 MINUTES.
020515,000063:
020516,000064: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020517,000065: # ORBITS WAS MINIMIZED.
020518,000066:
020519,000067: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020520,000068:
020521,000069: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
020522,000070: # # Page 464
020523,000071: # ORBIT OR 85 NM FOR EARTH ORBIT.
020524,000072:
020525,000073: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020526,000074: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
020527,000075: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020528,000076: # IN AN OUT-OF-PLANE MANEUVER.
020529,000077:
020530,000078: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020531,000079: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020532,000080:
020533,000081: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020534,000082: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
020535,000083: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020536,000084: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020537,000085: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020538,000086: # FLIGHT PLAN MANEUVER SEQUENCES.
020539,000087:
020540,000088: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020541,000089: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
020542,000090: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020543,000091: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
020544,000092: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020545,000093: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
020546,000094: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020547,000095: # THRUSTING MANEUVER.
020548,000096:
020549,000097: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020550,000098:
020551,000099: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020552,000100:
020553,000101: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020554,000102: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020555,000103: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
020556,000104: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020557,000105:
020558,000106: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020559,000107: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020560,000108:
020561,000109: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020562,000110: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020563,000111: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020564,000112:
020565,000113: # (7) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
020566,000114: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020567,000115: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020568,000116: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020569,000117: # THROUGH THE USE OF V06N52.
020570,000118:
020571,000119: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020572,000120: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020573,000121: # # Page 465
020574,000122: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
020575,000123: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020576,000124: # UPON DELTA V AND EXPECTED MANEUVER TIME.
020577,000125:
020578,000126: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020579,000127:
020580,000128: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020581,000129:
020582,000130: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020583,000131:
020584,000132: # INPUT
020585,000133:
020586,000134: # (1) TTPI TIME OF THE TPI MANEUVER
020587,000135: # (2) ELEV DESIRED LOS ANGLE AT TPI
020588,000136: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020589,000137: # TRANSFER FROM TPI TO TIME OF INTERCEPT
020590,000138:
020591,000139: # OUTPUT
020592,000140:
020593,000141: # (1) TRKMKCNT NUMBER OF MARKS
020594,000142: # (2) TTOGO TIME TO GO
020595,000143: # (3) +MGA MIDDLE GIMBAL ANGLE
020596,000144: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
020597,000145: # OR
020598,000146: # ELEV COMPUTED LOS ANGLE AT TPI
020599,000147: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020600,000148: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
020601,000149: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
020602,000150: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
020603,000151: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020604,000152:
020605,000153: # DOWNLINK
020606,000154:
020607,000155: # (1) TTPI TIME OF THE TPI MANEUVER
020608,000156: # (2) TIG TIME OF THE TPI MANEUVER
020609,000157: # (3) ELEV DESIRED LOS ANGLE AT TPI
020610,000158: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020611,000159: # TRANSFER FROM TPI TO TIME OF INTERCEPT
020612,000160: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020613,000161: # (6) TPASS4 TIME OF INTERCEPT
020614,000162:
020615,000163: # COMMUNICATION TO THRUSTING PROGRAMS
020616,000164:
020617,000165: # (1) TIG TIME OF THE TPI MANEUVER
020618,000166: # (2) RTARG OFFSET TARGET POSITION
020619,000167: # (3) TPASS4 TIME OF INTERCEPT
020620,000168: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020621,000169:
020622,000170: # SUBROUTINES USED
020623,000171:
020624,000172: # AVFLAGA
020625,000173: # # Page 466
020626,000174: # AVFLAGP
020627,000175: # VNPOOH
020628,000176: # DISPLAYE
020629,000177: # SELECTMU
020630,000178: # PRECSET
020631,000179: # S33/34.1
020632,000180: # ALARM
020633,000181: # BANKCALL
020634,000182: # GOFLASH
020635,000183: # GOTOPOOH
020636,000184: # TIMETHET
020637,000185: # S34/35.2
020638,000186: # PERIAPO1
020639,000187: # SHIFTR1
020640,000188: # S34/35.5
020641,000189: # VN1645
020642,000190:
020643,000191: 35,2000 SETLOC CSI/CDH
020644,000192: 35,2000 BANK
020645,000193: 35,2000 E4,1760 EBANK= SUBEXIT
020646,000194: 35,2000 COUNT* $$/P3474
020647,000195: 35,2000 04553 P34 TC AVFLAGA
020648,000196: 35,2001 02003 TC P34/P74A
020649,000197: 35,2002 04565 P74 TC AVFLAGP
020650,000198: 35,2003 04572 P34/P74A TC P20FLGON
020651,000199: 35,2004 06006 TC INTPRET
020652,000200: 35,2005 71214 CLEAR DLOAD
020653,000201: 35,2006 05274 TPIMNFLG
020654,000202: 35,2007 32205 130DEG
020655,000203: 35,2010 17754 STODL CENTANG
020656,000204: 35,2011 15336 ZEROVECS
020657,000205: 35,2012 03744 STORE ELEV
020658,000206: 35,2013 03766 STORE NN
020659,000207: 35,2014 77776 EXIT
020660,000208:
020661,000209: 35,2015 34532 CAF V06N37
020662,000210: 35,2016 05535 TC VNFLASH
020663,000211: 35,2017 34533 CAF V06N55
020664,000212: 35,2020 05535 TC VNFLASH
020665,000213: 35,2021 06006 TC INTPRET
020666,000214: 35,2022 71214 CLEAR DLOAD
020667,000215: 35,2023 01270 ETPIFLAG
020668,000216: 35,2024 03663 TTPI
020669,000217: 35,2025 17413 STODL TIG
020670,000218: 35,2026 03744 ELEV
020671,000219: 35,2027 43054 BZE SET
020672,000220: 35,2030 72032 P34/P74B
020673,000221: 35,2031 01070 ETPIFLAG
020674,000222: 35,2032 77624 P34/P74B CALL
020675,000223: 35,2033 11217 SELECTMU
020676,000224: # # Page 467
020677,000225: 35,2034 DELELO EQUALS 26D
020678,000226: 35,2034 43145 P34/P74C DLOAD SET
020679,000227: 35,2035 15336 ZEROVECS
020680,000228: 35,2036 03461 ITSWICH
020681,000229: 35,2037 43014 BON CLEAR
020682,000230: 35,2040 01310 ETPIFLAG
020683,000231: 35,2041 72043 SWCHSET
020684,000232: 35,2042 03661 ITSWICH
020685,000233: 35,2043 02355 SWCHSET STORE NOMTPI
020686,000234: 35,2044 43345 INTLOOP DLOAD DAD
020687,000235: 35,2045 03663 TTPI
020688,000236: 35,2046 02355 NOMTPI
020689,000237: 35,2047 34041 STCALL TDEC1
020690,000238: 35,2050 45236 PRECSET
020691,000239: 35,2051 77624 CALL
020692,000240: 35,2052 72251 S33/34.1
020693,000241: 35,2053 77454 BZE EXIT
020694,000242: 35,2054 72065 SWCHCLR
020695,000243: 35,2055 05671 INTALM TC ALARM
020696,000244: 35,2056 00611 OCT 611
020697,000245: 35,2057 35023 CAF V05N09
020698,000246: 35,2060 04636 TC BANKCALL
020699,000247: 35,2061 20743 CADR GOFLASH
020700,000248: 35,2062 04103 TC GOTOPOOH
020701,000249: 35,2063 02003 TC P34/P74A # PROCEED
020702,000250: 35,2064 02055 TC INTALM # V32
020703,000251: 35,2065 43014 SWCHCLR BONCLR BON
020704,000252: 35,2066 03601 ITSWICH
020705,000253: 35,2067 72044 INTLOOP
020706,000254: 35,2070 01310 ETPIFLAG
020707,000255: 35,2071 72100 P34/P74D # DISPLAY TTPI
020708,000256: 35,2072 77776 EXIT
020709,000257: 35,2073 34533 CAF V06N55
020710,000258: 35,2074 05535 TC VNFLASH
020711,000259: 35,2075 06006 TC INTPRET
020712,000260: 35,2076 77650 GOTO
020713,000261: 35,2077 72120 P34/74E
020714,000262: 35,2100 77776 P34/P74D EXIT
020715,000263: 35,2101 34532 CAF V06N37 # TTPI
020716,000264: 35,2102 05535 TC VNFLASH
020717,000265: 35,2103 06006 P34/P74E TC INTPRET
020718,000266: 35,2104 43014 BOFF BOFF
020719,000267: 35,2105 01351 FINALFLG
020720,000268: 35,2106 72120 P34/74E # LAST PASS
020721,000269: 35,2107 05350 AUTOSEQ
020722,000270: 35,2110 72120 P34/74E
020723,000271: 35,2111 43145 DLOAD CLEAR # IT IS FINAL COMP IN MINKEY
020724,000272: 35,2112 15336 ZEROVECS # SET UP FOR TIG OPTION
020725,000273: 35,2113 01270 ETPIFLAG
020726,000274: 35,2114 17744 STODL ELEV
020727,000275: # # Page 468
020728,000276: 35,2115 03663 TTPI
020729,000277: 35,2116 37413 STCALL TIG
020730,000278: 35,2117 72034 P34/P74C
020731,000279: 35,2120 71201 P34/74E SETPD DLOAD
020732,000280: 35,2121 00001 0D
020733,000281: 35,2122 03746 RTX1
020734,000282: 35,2123 14047 STODL X1
020735,000283: 35,2124 03754 CENTANG
020736,000284: 35,2125 71406 PUSH COS
020737,000285: 35,2126 16734 STODL CSTH
020738,000286: 35,2127 77756 SIN
020739,000287: 35,2130 26732 STOVL SNTH
020740,000288: 35,2131 03554 RPASS3
020741,000289: 35,2132 77657 VSR*
020742,000290: 35,2133 57176 0,2
020743,000291: 35,2134 26657 STOVL RVEC
020744,000292: 35,2135 03562 VPASS3
020745,000293: 35,2136 43057 VSR* SET
020746,000294: 35,2137 57176 0,2
020747,000295: 35,2140 03466 RVSW
020748,000296: 35,2141 36746 STCALL VVEC
020749,000297: 35,2142 25002 TIMETHET
020750,000298: 35,2143 77745 DLOAD
020751,000299: 35,2144 03663 TTPI
020752,000300: 35,2145 03503 STORE INTIME # FOR INITVEL
020753,000301: 35,2146 77615 DAD
020754,000302: 35,2147 00037 T # RENDEZVOUS TIME
020755,000303: 35,2150 37656 STCALL TPASS4 # FOR INITVEL
020756,000304: 35,2151 72561 S34/35.2
020757,000305: 35,2152 51575 VLOAD ABVAL
020758,000306: 35,2153 03646 DELVEET3
020759,000307: 35,2154 26635 STOVL DELVTPI
020760,000308: 35,2155 03640 VPASS4
020761,000309: 35,2156 51451 VSU ABVAL
020762,000310: 35,2157 03620 VTPRIME
020763,000311: 35,2160 26637 STOVL DELVTPF
020764,000312: 35,2161 03540 RACT3
020765,000313: 35,2162 45115 PDVL CALL
020766,000314: 35,2163 03612 VIPRIME
020767,000315: 35,2164 45174 PERIAPO1
020768,000316: 35,2165 77624 CALL
020769,000317: 35,2166 45330 SHIFTR1
020770,000318: 35,2167 16641 STODL POSTTPI
020771,000319: 35,2170 03663 TTPI
020772,000320: 35,2171 03413 STORE TIG
020773,000321: 35,2172 77776 EXIT
020774,000322: 35,2173 34534 CAF V06N58
020775,000323: 35,2174 05535 TC VNFLASH
020776,000324: 35,2175 06006 TC INTPRET
020777,000325: 35,2176 77624 CALL
020778,000326: # # Page 469
020779,000327: 35,2177 72774 S34/35.5
020780,000328: 35,2200 77624 CALL
020781,000329: 35,2201 73027 VN1645
020782,000330: 35,2202 77650 GOTO
020783,000331: 35,2203 72034 P34/P74C
020784,000332: 35,2204 13434 130DEG OCT 13434 # 13 DEG - CENTANG
020785,000333: 35,2205 16163 OCT 16163
020786,000334:
020787,000335: # # Page 470
020788,000336: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020789,000337:
020790,000338: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
020791,000339: # MOD BY WHITE.P DATE 1JUNE67
020792,000340:
020793,000341: # PURPOSE
020794,000342:
020795,000343: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020796,000344: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020797,000345: # MID-COURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020798,000346: # VEHICLE RENDEZVOUS.
020799,000347:
020800,000348: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020801,000349: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020802,000350: # ASTRONAUT/GROUND.
020803,000351:
020804,000352: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020805,000353: # THRUSTING PROGRAM.
020806,000354:
020807,000355: # ASSUMPTIONS
020808,000356:
020809,000357: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020810,000358:
020811,000359: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020812,000360: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020813,000361:
020814,000362: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
020815,000363: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
020816,000364: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020817,000365: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
020818,000366: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020819,000367: # P20 AND AFTER EACH THRUSTING MANEUVER.
020820,000368:
020821,000369: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020822,000370:
020823,000371: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020824,000372: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020825,000373: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
020826,000374: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020827,000375:
020828,000376: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020829,000377: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020830,000378:
020831,000379: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020832,000380: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020833,000381: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020834,000382:
020835,000383: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020836,000384: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020837,000385: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
020838,000386:
020839,000387: # # Page 471
020840,000388: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTATION OF THE MANEUVER
020841,000389: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020842,000390: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020843,000391: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020844,000392: # THROUGH THE USE OF V06N52.
020845,000393:
020846,000394: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020847,000395: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020848,000396: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
020849,000397: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020850,000398: # UPON DELTA V AND EXPECTED MANEUVER TIME.
020851,000399:
020852,000400: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020853,000401:
020854,000402: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020855,000403:
020856,000404: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020857,000405:
020858,000406: # INPUT
020859,000407:
020860,000408: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
020861,000409:
020862,000410: # OUTPUT
020863,000411:
020864,000412: # (1) TRKMKCNT NUMBER OF MARKS
020865,000413: # (2) TTOGO TIME TO GO
020866,000414: # (3) +MGA MIDDLE GIMBAL ANGLE
020867,000415: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
020868,000416: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020869,000417:
020870,000418: # DOWNLINK
020871,000419:
020872,000420: # (1) TIG TIME OF THE TPM MANEUVER
020873,000421: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020874,000422: # (3) TPASS4 TIME OF INTERCEPT
020875,000423:
020876,000424: # COMMUNICATION TO THRUSTING PROGRAMS
020877,000425:
020878,000426: # (1) TIG TIME OF THE TPM MANEUVER
020879,000427: # (2) RTARG OFFSET TARGET POSITION
020880,000428: # (3) TPASS4 TIME OF INTERCEPT
020881,000429: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION.
020882,000430:
020883,000431: # SUBROUTINES USED
020884,000432:
020885,000433: # AVFLAGA
020886,000434: # AVFLAGP
020887,000435: # LOADTIME
020888,000436: # SELECTMU
020889,000437: # PRECSET
020890,000438: # S34/35.1
020891,000439: # S34/35.2
020892,000440: # # Page 472
020893,000441: # S34/35.5
020894,000442: # VN1645
020895,000443:
020896,000444: 35,2206 COUNT* $$/P3575
020897,000445: 35,2206 E4,1754 EBANK= KT
020898,000446:
020899,000447: 35,2206 04553 P35 TC AVFLAGA
020900,000448: 35,2207 00006 EXTEND
020901,000449: 35,2210 31422 DCA ATIGINC
020902,000450: 35,2211 02215 TC P35/P75A
020903,000451: 35,2212 04565 P75 TC AVFLAGP
020904,000452: 35,2213 00006 EXTEND
020905,000453: 35,2214 31424 DCA PTIGINC
020906,000454: 35,2215 53755 P35/P75A DXCH KT
020907,000455: 35,2216 04572 TC P20FLGON # SET UPDATFLG, TRACKFLG
020908,000456: 35,2217 06006 TC INTPRET
020909,000457: 35,2220 77624 CALL
020910,000458: 35,2221 11217 SELECTMU
020911,000459: 35,2222 77634 P35/P75B RTB
020912,000460: 35,2223 51751 LOADTIME
020913,000461: 35,2224 03665 STORE TSTRT
020914,000462: 35,2225 77615 DAD
020915,000463: 35,2226 02355 KT
020916,000464: 35,2227 03413 STORE TIG
020917,000465: 35,2230 03503 STORE INTIME # FOR INITVEL
020918,000466: 35,2231 34041 STCALL TDEC1
020919,000467: 35,2232 45236 PRECSET # ADVANCE BOTH VEHICLES
020920,000468: 35,2233 77624 CALL
020921,000469: 35,2234 74000 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
020922,000470: 35,2235 77624 CALL
020923,000471: 35,2236 72561 S34/35.2 # GET DELTA V(LV)
020924,000472: 35,2237 77624 CALL
020925,000473: 35,2240 72774 S34/35.5
020926,000474: 35,2241 43014 BOFF SET
020927,000475: 35,2242 01351 FINALFLG
020928,000476: 35,2243 72245 +2
020929,000477: 35,2244 05067 P35FLAG
020930,000478: 35,2245 77624 CALL
020931,000479: 35,2246 73027 VN1645
020932,000480: 35,2247 77650 GOTO
020933,000481: 35,2250 72222 P35/P75B
020934,000482: # # Page 473
020935,000483: # ..... S33/34.1 .....
020936,000484:
020937,000485: 35,2251 66220 S33/34.1 STQ SSP
020938,000486: 35,2252 01023 NORMEX
020939,000487: 35,2253 03665 TITER
020940,000488: 35,2254 40000 OCT 40000
020941,000489: 35,2255 40345 DLOAD SETPD
020942,000490: 35,2256 33145 MAX250
020943,000491: 35,2257 00001 0D
020944,000492: 35,2260 27454 STOVL SECMAX
020945,000493: 35,2261 03540 RACT3
020946,000494: 35,2262 27576 STOVL RAPREC
020947,000495: 35,2263 03546 VACT3
020948,000496: 35,2264 27570 STOVL VAPREC
020949,000497: 35,2265 03554 RPASS3
020950,000498: 35,2266 27620 STOVL RPPREC
020951,000499: 35,2267 03562 VPASS3
020952,000500: 35,2270 03612 STORE VPPREC
020953,000501: 35,2271 77624 ELCALC CALL
020954,000502: 35,2272 74000 S34/35.1 # NORMAL AND LOS
020955,000503: 35,2273 63235 VXV PDVL
020956,000504: 35,2274 03540 RACT3 # (RA*VA)*RA 0D
020957,000505: 35,2275 53515 PDVL UNIT # ULOS AT 6D
020958,000506: 35,2276 03540 RACT3
020959,000507: 35,2277 46315 PDVL VPROJ # XCHNJ AND UP
020960,000508: 35,2300 51352 VSL2 BVSU
020961,000509: 35,2301 02625 ULOS
020962,000510: 35,2302 63256 UNIT PDVL # UP AT 0D
020963,000511: 35,2303 63241 DOT PDVL # UP.UN*RA AT 0D
020964,000512: 35,2304 00001 0D # UP IN MPAC
020965,000513: 35,2305 75241 DOT SIGN
020966,000514: 35,2306 02625 ULOS
020967,000515: 35,2307 65552 SL1 ACOS
020968,000516: 35,2310 50315 PDVL DOT # EA AT 0D
020969,000517: 35,2311 02625 ULOS
020970,000518: 35,2312 03540 RACT3
020971,000519: 35,2313 71244 BPL DLOAD
020972,000520: 35,2314 72317 TESTY
020973,000521: 35,2315 15344 DPPOSMAX
020974,000522: 35,2316 41425 DSU PUSH
020975,000523: 35,2317 71214 TESTY BOFF DLOAD
020976,000524: 35,2320 03741 ITSWICH
020977,000525: 35,2321 72546 ELEX
020978,000526: 35,2322 03452 DELEL
020979,000527: 35,2323 14033 STODL DELELO
020980,000528: 35,2324 77625 DSU
020981,000529: 35,2325 03744 ELEV
020982,000530: 35,2326 03452 STORE DELEL
020983,000531: 35,2327 45246 ABS DSU
020984,000532: 35,2330 33151 ELEPS
020985,000533: # # Page 474
020986,000534: 35,2331 77640 BMN
020987,000535: 35,2332 72556 TIMEX # COMMERCIALS EVERYWHERE
020988,000536: 35,2333 70535 FIGTIME SLOAD SR1
020989,000537: 35,2334 03665 TITER
020990,000538: 35,2335 72030 BHIZ LXA,1
020991,000539: 35,2336 01023 NORMEX # TOO MANY ITERATIONS
020992,000540: 35,2337 00154 MPAC
020993,000541: 35,2340 77330 SXA,1 VLOAD
020994,000542: 35,2341 03664 TITER
020995,000543: 35,2342 03554 RPASS3
020996,000544: 35,2343 65256 UNIT PDDL
020997,000545: 35,2344 00045 36D
020998,000546: 35,2345 53515 PDVL UNIT
020999,000547: 35,2346 03540 RACT3
021000,000548: 35,2347 77725 PDDL
021001,000549: 35,2350 41525 PDDL PUSH
021002,000550: 35,2351 00045 36D
021003,000551: 35,2352 77621 BDSU
021004,000552: 35,2353 00015 12D
021005,000553: 35,2354 14037 STODL 30D # RP - RA MAGNITUDES
021006,000554: 35,2355 15334 DPHALF
021007,000555: 35,2356 41425 DSU PUSH
021008,000556: 35,2357 03744 ELEV
021009,000557: 35,2360 50165 SIGN BMN
021010,000558: 35,2361 00037 30D
021011,000559: 35,2362 01023 NORMEX
021012,000560: 35,2363 71545 DLOAD COS
021013,000561: 35,2364 56205 DMP DDV
021014,000562: 35,2365 00017 14D
021015,000563: 35,2366 00015 12D
021016,000564: 35,2367 77676 DCOMP # SINCE COS(180-A)=-COS A
021017,000565: 35,2370 00035 STORE 28D
021018,000566: 35,2371 44246 ABS BDSU
021019,000567: 35,2372 15334 DPHALF
021020,000568: 35,2373 77240 BMN VLOAD
021021,000569: 35,2374 01023 NORMEX
021022,000570: 35,2375 02617 UNRM
021023,000571: 35,2376 53435 VXV UNIT
021024,000572: 35,2377 00007 6D # UN*RA
021025,000573: 35,2400 41241 DOT DMP
021026,000574: 35,2401 03546 VACT3
021027,000575: 35,2402 00015 12D
021028,000576: 35,2403 47315 PDVL VXV
021029,000577: 35,2404 00001 0D
021030,000578: 35,2405 03562 VPASS3
021031,000579: 35,2406 53435 VXV UNIT
021032,000580: 35,2407 00001 0D # (RP*VP)*RP
021033,000581: 35,2410 41241 DOT DMP
021034,000582: 35,2411 03562 VPASS3
021035,000583: 35,2412 00017 14D
021036,000584: # # Page 475
021037,000585: 35,2413 77621 BDSU
021038,000586: 35,2414 63301 NORM PDVL # NORMALIZED WA - WP 12D
021039,000587: 35,2415 00047 X1
021040,000588: 35,2416 00007 6D
021041,000589: 35,2417 50235 VXV DOT
021042,000590: 35,2420 00001 0D
021043,000591: 35,2421 02617 UNRM # RA*RP.UN 14D
021044,000592: 35,2422 50315 PDVL DOT
021045,000593: 35,2423 00001 0D
021046,000594: 35,2424 00007 6D
021047,000595: 35,2425 65552 SL1 ACOS
021048,000596: 35,2426 77765 SIGN
021049,000597: 35,2427 43225 DSU DAD # ALPHA PI
021050,000598: 35,2430 15334 DPHALF
021051,000599: 35,2431 03744 ELEV
021052,000600: 35,2432 65525 PDDL ACOS
021053,000601: 35,2433 00035 28D
021054,000602: 35,2434 75221 BDSU SIGN
021055,000603: 35,2435 15334 DPHALF
021056,000604: 35,2436 00037 30D # CONTAINS RP-RA
021057,000605: 35,2437 77615 DAD
021058,000606: 35,2440 56205 DMP DDV
021059,000607: 35,2441 33143 TWOPI
021060,000608: 35,2442 77605 DMP
021061,000609: 35,2443 41257 SL* DMP
021062,000610: 35,2444 20176 0 -3,1
021063,000611: 35,2445 51406 PUSH ABS
021064,000612: 35,2446 50025 DSU BMN
021065,000613: 35,2447 03454 SECMAX
021066,000614: 35,2450 72454 OKMAX
021067,000615: 35,2451 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
021068,000616: 35,2452 03454 SECMAX
021069,000617: 35,2453 77606 PUSH
021070,000618: 35,2454 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
021071,000619: 35,2455 03665 TITER
021072,000620: 35,2456 72464 REPETE
021073,000621: 35,2457 71331 SSP DLOAD
021074,000622: 35,2460 03665 TITER
021075,000623: 35,2461 37777 OCT 37777
021076,000624: 35,2462 77650 GOTO
021077,000625: 35,2463 72522 STORDELT
021078,000626: 35,2464 41345 REPETE DLOAD DMP
021079,000627: 35,2465 03452 DELEL
021080,000628: 35,2466 00033 DELELO
021081,000629: 35,2467 71244 BPL DLOAD
021082,000630: 35,2470 72500 NEXTES
021083,000631: 35,2471 03454 SECMAX
021084,000632: 35,2472 77605 DMP
021085,000633: 35,2473 33147 THIRD
021086,000634: 35,2474 17454 STODL SECMAX
021087,000635: # # Page 476
021088,000636: 35,2475 70446 ABS SR1 # CROSSED OVER SOLUTION
021089,000637: 35,2476 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
021090,000638: 35,2477 72510 RESIGN
021091,000639: 35,2500 51545 NEXTES DLOAD ABS
021092,000640: 35,2501 03452 DELEL
021093,000641: 35,2502 51525 PDDL ABS
021094,000642: 35,2503 00033 DELELO
021095,000643: 35,2504 77625 DSU
021096,000644: 35,2505 71240 BMN DLOAD
021097,000645: 35,2506 72513 REVERS # WRONG DIRECTION
021098,000646: 35,2507 77646 ABS
021099,000647: 35,2510 52165 RESIGN SIGN GOTO
021100,000648: 35,2511 03450 DELTEEO
021101,000649: 35,2512 72522 STORDELT
021102,000650: 35,2513 57545 REVERS DLOAD DCOMP
021103,000651: 35,2514 03450 DELTEEO
021104,000652: 35,2515 70406 PUSH SR1
021105,000653: 35,2516 03450 STORE DELTEEO
021106,000654: 35,2517 77615 DAD
021107,000655: 35,2520 77650 GOTO
021108,000656: 35,2521 72523 ADTIME
021109,000657: 35,2522 03450 STORDELT STORE DELTEEO
021110,000658: 35,2523 77615 ADTIME DAD
021111,000659: 35,2524 02355 NOMTPI # SUM OF DELTA T'S
021112,000660: 35,2525 02355 STORE NOMTPI
021113,000661: 35,2526 63375 VLOAD PDVL
021114,000662: 35,2527 03570 VAPREC
021115,000663: 35,2530 03576 RAPREC
021116,000664: 35,2531 77624 CALL
021117,000665: 35,2532 72734 GOINT
021118,000666: 35,2533 77624 CALL
021119,000667: 35,2534 45304 ACTIVE # STORE NEW RACT3 VACT3
021120,000668: 35,2535 63375 VLOAD PDVL
021121,000669: 35,2536 03612 VPPREC
021122,000670: 35,2537 03620 RPPREC
021123,000671: 35,2540 77624 CALL
021124,000672: 35,2541 72734 GOINT
021125,000673: 35,2542 77624 CALL
021126,000674: 35,2543 45314 PASSIVE # STORE NEW RPASS3 VPASS3
021127,000675: 35,2544 77650 GOTO
021128,000676: 35,2545 72271 ELCALC
021129,000677: 35,2546 43345 ELEX DLOAD DAD
021130,000678: 35,2547 03663 TTPI
021131,000679: 35,2550 02355 NOMTPI
021132,000680: 35,2551 17663 STODL TTPI
021133,000681: 35,2552 77614 BON
021134,000682: 35,2553 01310 ETPIFLAG
021135,000683: 35,2554 72556 TIMEX
021136,000684: 35,2555 03744 STORE ELEV
021137,000685: 35,2556 52145 TIMEX DLOAD GOTO
021138,000686: # # Page 477
021139,000687: 35,2557 15336 ZEROVECS
021140,000688: 35,2560 01023 NORMEX
021141,000689:
021142,000690: # # Page 478
021143,000691: # ..... S34/35.1 .....
021144,000692:
021145,000693: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
021146,000694: # PASSIVE POS AND VEL AT TIME T3
021147,000695:
021148,000696: 36,2000 SETLOC S3435LOC
021149,000697: 36,2000 BANK
021150,000698:
021151,000699: 36,2000 COUNT* $$/P3474
021152,000700: 36,2000 52375 S34/35.1 VLOAD VSU
021153,000701: 36,2001 03554 RPASS3
021154,000702: 36,2002 03540 RACT3
021155,000703: 36,2003 41456 UNIT PUSH
021156,000704: 36,2004 26625 STOVL ULOS
021157,000705: 36,2005 03540 RACT3
021158,000706: 36,2006 53435 VXV UNIT
021159,000707: 36,2007 03546 VACT3
021160,000708: 36,2010 02617 STORE UNRM
021161,000709: 36,2011 77616 RVQ
021162,000710:
021163,000711: # # Page 479
021164,000712: # ..... S34/35.2 .....
021165,000713:
021166,000714: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
021167,000715:
021168,000716: 35,2000 SETLOC CSI/CDH
021169,000717: 35,2000 BANK
021170,000718:
021171,000719: 35,2561 COUNT* $$/P3474
021172,000720: 35,2561 77220 S34/35.2 STQ VLOAD
021173,000721: 35,2562 02360 SUBEXIT
021174,000722: 35,2563 03562 VPASS3
021175,000723: 35,2564 65315 PDVL PDDL
021176,000724: 35,2565 03554 RPASS3
021177,000725: 35,2566 03503 INTIME
021178,000726: 35,2567 65325 PDDL PDDL
021179,000727: 35,2570 03656 TPASS4
021180,000728: 35,2571 33143 TWOPI # CONIC
021181,000729: 35,2572 46125 PDDL BHIZ
021182,000730: 35,2573 03766 NN
021183,000731: 35,2574 72577 S3435.23
021184,000732: 35,2575 65345 DLOAD PDDL
021185,000733: 35,2576 15336 ZEROVECS # PRECISION
021186,000734: 35,2577 77624 S3435.23 CALL
021187,000735: 35,2600 72740 INTINT # GET TARGET VECTOR
021188,000736: 35,2601 27415 S3435.25 STOVL RTARG
021189,000737: 35,2602 00007 VATT
021190,000738: 35,2603 27640 STOVL VPASS4
021191,000739: 35,2604 03415 RTARG
021192,000740: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
021193,000741: 35,2605 63256 UNIT PDVL # UNIT RP
021194,000742: 35,2606 03540 RACT3
021195,000743: 35,2607 41456 UNIT PUSH # UNIT RA
021196,000744: 35,2610 50235 VXV DOT
021197,000745: 35,2611 00001 0D
021198,000746: 35,2612 02617 UNRM # RA*RP.U
021199,000747: 35,2613 77715 PDVL
021200,000748: 35,2614 72441 DOT SL1 # UNIT RA.UNIT RP
021201,000749: 35,2615 00001 0D
021202,000750: 35,2616 75326 ACOS SIGN
021203,000751: 35,2617 43244 BPL DAD
021204,000752: 35,2620 72622 NOPIE
021205,000753: 35,2621 15344 DPPOSMAX # REASONABLE TWO PI
021206,000754: 35,2622 16633 NOPIE STODL ACTCENT
021207,000755: 35,2623 03656 TPASS4
021208,000756: 35,2624 77625 DSU
021209,000757: 35,2625 03503 INTIME
021210,000758: 35,2626 03423 STORE DELLT4
021211,000759: 35,2627 40335 SLOAD SETPD
021212,000760: 35,2630 03766 NN # NUMBER OF OFFSETS
021213,000761: 35,2631 00001 0D
021214,000762: 35,2632 63325 PDDL PDVL
021215,000763: # # Page 480
021216,000764: 35,2633 33156 EPSFOUR
021217,000765: 35,2634 03540 RACT3
021218,000766: 35,2635 27570 STOVL RINIT
021219,000767: 35,2636 03546 VACT3
021220,000768: 35,2637 37576 STCALL VINIT
021221,000769: 35,2640 22000 INITVEL
021222,000770: 35,2641 77624 CALL
021223,000771: 35,2642 72721 LOMAT
021224,000772: 35,2643 64375 VLOAD MXV
021225,000773: 35,2644 03646 DELVEET3
021226,000774: 35,2645 00001 0D
021227,000775: 35,2646 77772 VSL1
021228,000776: 35,2647 37405 STCALL DELVLVC
021229,000777: 35,2650 02360 SUBEXIT
021230,000778:
021231,000779: # # Page 481
021232,000780: # ..... S34/35.3 .....
021233,000781:
021234,000782: 35,2651 45020 S34/35.3 STQ CALL
021235,000783: 35,2652 01023 NORMEX
021236,000784: 35,2653 72721 LOMAT # GET MATRIX IN PUSH LIST
021237,000785: 35,2654 61375 VLOAD VXM
021238,000786: 35,2655 03405 DELVLVC # NEW DEL V TPI
021239,000787: 35,2656 00001 0D
021240,000788: 35,2657 77772 VSL1
021241,000789: 35,2660 03646 STORE DELVEET3 # SAVE FOR TRANSFORM
021242,000790: 35,2661 63255 VAD PDVL
021243,000791: 35,2662 03546 VACT3 # NEW V REQ
021244,000792: 35,2663 03540 RACT3
021245,000793: 35,2664 65325 PDDL PDDL
021246,000794: 35,2665 03413 TIG
021247,000795: 35,2666 03656 TPASS4
021248,000796: 35,2667 41525 PDDL PUSH
021249,000797: 35,2670 15344 DPPOSMAX
021250,000798: 35,2671 77624 CALL # INTEG. FOR NEW TARGET VEC
021251,000799: 35,2672 72740 INTINT
021252,000800: 35,2673 77775 VLOAD
021253,000801: 35,2674 00001 RATT
021254,000802: 35,2675 03415 STORE RTARG
021255,000803: 35,2676 41575 NOVRWRT VLOAD PUSH
021256,000804: 35,2677 02625 ULOS
021257,000805: 35,2700 57435 VXV VCOMP
021258,000806: 35,2701 02617 UNRM
021259,000807: 35,2702 41456 UNIT PUSH
021260,000808: 35,2703 76435 VXV VSL1
021261,000809: 35,2704 02625 ULOS
021262,000810: 35,2705 77715 PDVL
021263,000811: 35,2706 64315 PDVL MXV
021264,000812: 35,2707 03646 DELVEET3
021265,000813: 35,2710 00001 0D
021266,000814: 35,2711 77772 VSL1
021267,000815: 35,2712 36611 STCALL DVLOS
021268,000816: 35,2713 01023 NORMEX
021269,000817:
021270,000818: # # Page 482
021271,000819: # ..... S34/35.4 .....
021272,000820:
021273,000821: 35,2714 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
021274,000822: 35,2715 01023 NORMEX
021275,000823: 35,2716 00001 0D
021276,000824: 35,2717 77650 GOTO
021277,000825: 35,2720 72676 NOVRWRT
021278,000826:
021279,000827: # # Page 483
021280,000828: # ..... LOMAT .....
021281,000829:
021282,000830: 35,2721 57575 LOMAT VLOAD VCOMP
021283,000831: 35,2722 02617 UNRM
021284,000832: 35,2723 24007 STOVL 6D # Y
021285,000833: 35,2724 03540 RACT3
021286,000834: 35,2725 57456 UNIT VCOMP
021287,000835: 35,2726 00015 STORE 12D
021288,000836: 35,2727 76435 VXV VSL1
021289,000837: 35,2730 02617 UNRM # Z*-Y
021290,000838: 35,2731 00001 STORE 0D
021291,000839: 35,2732 43401 SETPD RVQ
021292,000840: 35,2733 00023 18D
021293,000841: 35,2734 65325 GOINT PDDL PDDL # DO
021294,000842: 35,2735 15336 ZEROVECS # NOT
021295,000843: 35,2736 02355 NOMTPI
021296,000844: 35,2737 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
021297,000845: 35,2740 45020 INTINT STQ CALL
021298,000846: 35,2741 02357 RTRN
021299,000847: 35,2742 27516 INTSTALL
021300,000848: 35,2743 71214 CLEAR DLOAD
021301,000849: 35,2744 01673 INTYPFLG
021302,000850: 35,2745 43054 BZE SET
021303,000851: 35,2746 72750 +2
021304,000852: 35,2747 01473 INTYPFLG
021305,000853: 35,2750 45545 DLOAD STADR
021306,000854: 35,2751 63736 STODL TDEC1
021307,000855: 35,2752 73014 SET LXA,2
021308,000856: 35,2753 00063 MOONFLAG
021309,000857: 35,2754 03746 RTX2
021310,000858: 35,2755 43014 BON CLEAR
021311,000859: 35,2756 04303 CMOONFLG
021312,000860: 35,2757 72761 ALLSET
021313,000861: 35,2760 00263 MOONFLAG
021314,000862: 35,2761 25517 ALLSET STOVL TET
021315,000863: 35,2762 77657 VSR*
021316,000864: 35,2763 57176 0,2
021317,000865: 35,2764 25535 STOVL RCV
021318,000866: 35,2765 77657 VSR*
021319,000867: 35,2766 57176 0,2
021320,000868: 35,2767 35543 STCALL VCV
021321,000869: 35,2770 27211 INTEGRVS
021322,000870: 35,2771 52175 VLOAD GOTO
021323,000871: 35,2772 00001 RATT
021324,000872: 35,2773 02357 RTRN
021325,000873:
021326,000874: # # Page 484
021327,000875: # ..... S34/35.5 .....
021328,000876:
021329,000877: # SUBROUTINES USED
021330,000878:
021331,000879: # BANKCALL
021332,000880: # GOFLASH
021333,000881: # GOTOPOOH
021334,000882: # S34/35.3
021335,000883: # S34.35.4
021336,000884: # VNPOOH
021337,000885:
021338,000886: 35,2774 43020 S34/35.5 STQ BON
021339,000887: 35,2775 02360 SUBEXIT
021340,000888: 35,2776 01311 FINALFLG
021341,000889: 35,2777 73003 FLAGON
021342,000890: 35,3000 52014 SET GOTO
021343,000891: 35,3001 00470 UPDATFLG
021344,000892: 35,3002 73005 FLAGON +2
021345,000893: 35,3003 77614 FLAGON SET
021346,000894: 35,3004 05074 TPIMNFLG # INDICATE TPI MANEUVER DONE
021347,000895: 35,3005 77775 +2 VLOAD
021348,000896: 35,3006 03405 DELVLVC
021349,000897: 35,3007 03620 STORE VTPRIME # SAVE DELTA V BEFORE DISPLAY
021350,000898: 35,3010 77776 EXIT
021351,000899: 35,3011 34535 CAF V06N81
021352,000900: 35,3012 05535 TC VNFLASH
021353,000901: 35,3013 06006 TC INTPRET
021354,000902: 35,3014 52375 VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED
021355,000903: 35,3015 03405 DELVLVC # DELTA V
021356,000904: 35,3016 03620 VTPRIME
021357,000905: 35,3017 53046 ABVAL BZE
021358,000906: 35,3020 73023 FLAGOFF
021359,000907: 35,3021 77624 CALL
021360,000908: 35,3022 72651 S34/35.3 # COMPUTE NEW TARGET VECTOR
021361,000909: # TRANSFER OF DELVEET3 TO DELVSIN OUT...THEY SHARE SAME ERASABLE.
021362,000910: 35,3023 77624 FLAGOFF CALL
021363,000911: 35,3024 72714 S34/35.4
021364,000912: 35,3025 77650 FLAGEND GOTO
021365,000913: 35,3026 02360 SUBEXIT
021366,000914:
021367,000915: # # Page 485
021368,000916: # ..... VN1645 .....
021369,000917:
021370,000918: # SUBROUTINES USED
021371,000919:
021372,000920: # P3XORP7X
021373,000921: # GET+MGA
021374,000922: # BANKCALL
021375,000923: # DELAYJOB
021376,000924: # COMPTGO
021377,000925: # GOFLASHR
021378,000926: # GOTOPOOH
021379,000927: # FLAGUP
021380,000928:
021381,000929: 35,3027 71220 VN1645 STQ DLOAD
021382,000930: 35,3030 02360 SUBEXIT
021383,000931: 35,3031 33154 DP-.01
021384,000932: 35,3032 03626 STORE +MGA # MGA = -.01
021385,000933: 35,3033 71214 BOFF DLOAD
021386,000934: 35,3034 01351 FINALFLG
021387,000935: 35,3035 73055 GET45
021388,000936: 35,3036 33154 DP-.01
021389,000937: 35,3037 77615 DAD
021390,000938: 35,3040 33154 DP-.01
021391,000939: 35,3041 03626 STORE +MGA # MGA = -.02
021392,000940: 35,3042 77414 BOFF EXIT
021393,000941: 35,3043 01742 REFSMFLG
021394,000942: 35,3044 73055 GET45
021395,000943: 35,3045 03137 TC P3XORP7X
021396,000944: 35,3046 03050 TC +2 # P3X
021397,000945: 35,3047 03056 TC GET45 +1 # P7X
021398,000946: 35,3050 06006 TC INTPRET
021399,000947: 35,3051 41575 VLOAD PUSH
021400,000948: 35,3052 03646 DELVSIN
021401,000949: 35,3053 77624 CALL # COMPUTE MGA
021402,000950: 35,3054 56444 GET+MGA
021403,000951: 35,3055 77776 GET45 EXIT
021404,000952: 35,3056 03525 +1 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
021405,000953: 35,3057 31760 CA SUBEXIT
021406,000954: 35,3060 55756 TS QSAVED
021407,000955: 35,3061 04636 TC BANKCALL
021408,000956: 35,3062 01730 CADR 1SECDELY
021409,000957: 35,3063 34536 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
021410,000958: 35,3064 04636 TC BANKCALL
021411,000959: 35,3065 20743 CADR GOFLASH
021412,000960: 35,3066 04103 TC GOTOPOOH # TERMINATE
021413,000961: 35,3067 03071 TC N45PROC # PROCEED
021414,000962: 35,3070 03101 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
021415,000963: 35,3071 40076 N45PROC CS FLAGWRD2
021416,000964: 35,3072 74763 MASK FINALBIT
021417,000965: 35,3073 00006 EXTEND
021418,000966: # # Page 486
021419,000967: 35,3074 13113 BZF N45ENAJ # FINAL FLAG SET - FINAL PASS
021420,000968: 35,3075 05402 N45NORM TC PHASCHNG
021421,000969: 35,3076 04024 OCT 04024
021422,000970: 35,3077 05547 TC UPFLAG # SET
021423,000971: 35,3100 00047 ADRES FINALFLG # FINALFLG
021424,000972: 35,3101 05561 CLUPDATE TC DOWNFLAG
021425,000973: 35,3102 00155 ADRES TIMRFLAG # TERMINATE CLOKTASK
021426,000974: 35,3103 33136 CAF VN1645AD # CHANGE BACK TO 4.1 FOR
021427,000975: 35,3104 54373 TS TEMPFLSH # FUTURE DISPLAYS
021428,000976: 35,3105 05402 TC PHASCHNG
021429,000977: 35,3106 00014 OCT 14
021430,000978:
021431,000979: 35,3107 06006 VN1645R TC INTPRET
021432,000980: 35,3110 52014 CLEAR GOTO
021433,000981: 35,3111 00670 UPDATFLG
021434,000982: 35,3112 02356 +3 QSAVED
021435,000983: 35,3113 05402 N45ENAJ TC PHASCHNG # PROTECT MANEVFLG, WRENDPOS
021436,000984: 35,3114 04024 OCT 04024
021437,000985: 35,3115 06006 TC INTPRET
021438,000986: 35,3116 77745 DLOAD
021439,000987: 35,3117 03413 TIG
021440,000988: 35,3120 03450 STORE NOMTIG
021441,000989: 35,3121 43014 BON SET
021442,000990: 35,3122 05316 PCFLAG
021443,000991: 35,3123 73125 CHGRMS
021444,000992: 35,3124 05072 MANEUFLG # DONT SET FLAG IF PC MANEUVER
021445,000993: 35,3125 71214 CHGRMS BOFF DLOAD
021446,000994: 35,3126 05350 AUTOSEQ
021447,000995: 35,3127 73132 SAMERMS
021448,000996: 35,3130 33135 POSVEL2 # CHANGE RMS ONLY IN MINKEY
021449,000997: 35,3131 02001 STORE WRENDPOS
021450,000998: 35,3132 77776 SAMERMS EXIT
021451,000999: 35,3133 14105 TCF MNKGOPOO
021452,001000: 35,3134 00023 POSVEL2 DEC 608 B-19 # 2000 FT IN METERS
021453,001001: 35,3135 00144 POSVEL3 DEC .00608 # 2 FT/SEC IN M/CS
021454,001002: 35,3136 73112 VN1645AD CADR VN1645R +3
021455,001003:
021456,001004: # # Page 487
021457,001005: # ..... P3XORP7X .....
021458,001006:
021459,001007: 35,3137 37677 P3XORP7X CAF HIGH9
021460,001008: 35,3140 71214 MASK MODREG
021461,001009: 35,3141 15651 TCF INCRQCK
021462,001010: 4000 SETLOC P30SUBS
021463,001011: 4000 BANK
021464,001012:
021465,001013: 4532 COUNT* $$/P3474
021466,001014:
021467,001015: # # Page 488
021468,001016: # ..... CONSTANTS .....
021469,001017:
021470,001018: 4532 01445 V06N37 VN 0637
021471,001019: 4533 01467 V06N55 VN 0655
021472,001020: 4534 01472 V06N58 VN 0658
021473,001021: 4535 01521 V06N81 VN 0681
021474,001022: 4536 04055 V16N45 VN 1645
021475,001023: 4537 01006 V04N06 VN 0406
021476,001024:
021477,001025: 35,2000 SETLOC CSI/CDH
021478,001026: 35,2000 BANK
021479,001027:
021480,001028: 35,3142 COUNT* $$/P3474
021481,001029: 35,3142 14441 37325 TWOPI 2DEC 6.283185307 B-4
021482,001030: 35,3144 00001 20650 MAX250 2DEC 25 E3
021483,001031: 35,3146 12525 12525 THIRD 2DEC .333333333
021484,001032: 35,3150 00004 21505 ELEPS 2DEC .27777777 E-3
021485,001033: 35,3152 00002 DECTWO DEC 2 B-14
021486,001034: 35,3153 77777 DP-.01 OCT 77777 # CONSTANTS
021487,001035: 35,3154 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
021488,001036: 35,3155 01252 25253 EPSFOUR 2DEC .0416666666
021489,001037: 35,3157 01473 V06N59 VN 0659
021490,001038:
021491,001039: # # Page 489
021492,001040: # ..... INITVEL .....
021493,001041:
021494,001042: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
021495,001043: # MOD BY WHITE.P DATE 21NOV67
021496,001044:
021497,001045: # FUNCTIONAL DESCRIPTION
021498,001046:
021499,001047: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
021500,001048: # A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL
021501,001049: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
021502,001050: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
021503,001051: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
021504,001052: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
021505,001053: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
021506,001054: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
021507,001055: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
021508,001056: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
021509,001057:
021510,001058: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
021511,001059: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
021512,001060: # SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
021513,001061: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
021514,001062: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
021515,001063: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
021516,001064: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
021517,001065: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
021518,001066:
021519,001067: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND
021520,001068: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
021521,001069: # TRAJECTORY COMPUTATIONS.
021522,001070:
021523,001071: # CALLING SEQUENCE
021524,001072:
021525,001073: # L CALL
021526,001074: # L+1 INITVEL
021527,001075: # L+2 (RETURN - ALWAYS)
021528,001076:
021529,001077: # INPUT
021530,001078:
021531,001079: # (1) RINIT INITIAL POSITION RADIUS VECTOR
021532,001080: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
021533,001081: # (3) RTARG TARGET POSITION RADIUS VECTOR
021534,001082: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
021535,001083: # (5) INTIME TIME OF RINIT
021536,001084: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
021537,001085: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
021538,001086: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
021539,001087: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
021540,001088: # PUSHLOC SET AT 4D
021541,001089:
021542,001090: # # Page 490
021543,001091: # OUTPUT
021544,001092:
021545,001093: # (1) RTARG OFFSET TARGET POSITION VECTOR
021546,001094: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
021547,001095: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
021548,001096: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
021549,001097:
021550,001098: # SUBROUTINES USED
021551,001099:
021552,001100: # LAMBERT
021553,001101: # INTSTALL
021554,001102: # INTEGRVS
021555,001103:
021556,001104: 11,2000 SETLOC INTVEL
021557,001105: 11,2000 BANK
021558,001106:
021559,001107: 11,2000 COUNT* $$/INITV
021560,001108: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
021561,001109: 11,2001 00475 GUESSW
021562,001110: 11,2002 44175 HAVEGUES VLOAD STQ
021563,001111: 11,2003 03415 RTARG
021564,001112: 11,2004 01023 NORMEX
021565,001113: 11,2005 03604 STORE RTARG1
021566,001114: 11,2006 46135 SLOAD BHIZ
021567,001115: 11,2007 03747 RTX2
021568,001116: 11,2010 22022 INITVEL1
021569,001117: 11,2011 72575 VLOAD VSL2
021570,001118: 11,2012 03570 RINIT # B29
021571,001119: 11,2013 27570 STOVL RINIT # B27
021572,001120: 11,2014 03576 VINIT # B7
021573,001121: 11,2015 77752 VSL2
021574,001122: 11,2016 27576 STOVL VINIT # B5
021575,001123: 11,2017 03604 RTARG1
021576,001124: 11,2020 77752 VSL2
021577,001125: 11,2021 03604 STORE RTARG1
021578,001126:
021579,001127: # INITIALIZATION
021580,001128:
021581,001129: 11,2022 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
021582,001130: 11,2023 03505 ITCTR
021583,001131: 11,2024 77776 0 -1
021584,001132: 11,2025 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
021585,001133: 11,2026 17630 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
021586,001134: 11,2027 67154 LXA,2 SXA,2
021587,001135: 11,2030 00154 MPAC
021588,001136: 11,2031 02703 VTARGTAG # SET VTARGTAG TO 0D (SP)
021589,001137: 11,2032 77775 VLOAD
021590,001138: 11,2033 03570 RINIT
021591,001139: 11,2034 26657 STOVL R1VEC # R1VEC EQ RINIT
021592,001140: 11,2035 03604 RTARG1
021593,001141: 11,2036 16665 STODL R2VEC # R2VEC EQ RTARG
021594,001142: # # Page 491
021595,001143: 11,2037 03423 DELLT4
021596,001144: 11,2040 02673 STORE TDESIRED # TDESIRED EQ DELLT4
021597,001145: 11,2041 77201 SETPD VLOAD
021598,001146: 11,2042 00001 0D # INITIALIZE PL TO 0D
021599,001147: 11,2043 03570 RINIT # MPAC EQ RINIT (+29)
021600,001148: 11,2044 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
021601,001149: 11,2045 53435 VXV UNIT
021602,001150: 11,2046 03576 VINIT # MPAC EQ UNIT(RI) X VI (+8)
021603,001151: 11,2047 26676 STOVL UN
021604,001152: 11,2050 03604 RTARG1
021605,001153: 11,2051 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
021606,001154: 11,2052 43015 DAD CLEAR
021607,001155: 11,2053 03630 COZY4
021608,001156: 11,2054 03665 NORMSW
021609,001157: 11,2055 03630 STORE COZY4
021610,001158: 11,2056 43044 INITVEL2 BPL SET
021611,001159: 11,2057 22101 INITVEL3 # UN CALCULATED IN LAMBERT
021612,001160: 11,2060 03465 NORMSW
021613,001161:
021614,001162: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021615,001163:
021616,001164: 11,2061 41575 VLOAD PUSH # (PL 6D)
021617,001165: 11,2062 02665 R2VEC # RC TO 6D (+29)
021618,001166: 11,2063 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021619,001167: 11,2064 46206 PUSH VPROJ # (PL 8D)
021620,001168: 11,2065 02676 UN
021621,001169: 11,2066 51352 VSL2 BVSU
021622,001170: 11,2067 74256 UNIT VXSC # (PL 0D)
021623,001171: 11,2070 77772 VSL1
021624,001172: 11,2071 02665 STORE R2VEC
021625,001173: 11,2072 67351 TLOAD SLOAD
021626,001174: 11,2073 11762 ZEROVEC
021627,001175: 11,2074 03505 ITCTR
021628,001176: 11,2075 77244 BPL VLOAD
021629,001177: 11,2076 22101 INITVEL3
021630,001178: 11,2077 02665 R2VEC
021631,001179: 11,2100 03604 STORE RTARG1
021632,001180: 11,2101 63345 INITVEL3 DLOAD PDVL # (PL 2D)
021633,001181: 11,2102 27740 MUEARTH # POSITIVE VALUE
021634,001182: 11,2103 02665 R2VEC
021635,001183: 11,2104 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
021636,001184: 11,2105 02657 R1VEC
021637,001185: 11,2106 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL14D)
021638,001186: 11,2107 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
021639,001187: 11,2110 00003 2D
021640,001188: 11,2111 77606 PUSH # (PL20D)
021641,001189: 11,2112 71350 LXA,1 DLOAD
021642,001190: 11,2113 03745 RTX1
021643,001191: 11,2114 00023 18D
021644,001192: 11,2115 62040 BMN INCR,1
021645,001193: 11,2116 22120 +2
021646,001194: # # Page 492
021647,001195: 11,2117 77767 DEC -8 B-14
021648,001196: 11,2120 67310 INCR,1 SLOAD
021649,001197: 11,2121 00012 10D
021650,001198: 11,2122 00047 X1
021651,001199: 11,2123 77230 BHIZ VLOAD # (PL14D)
021652,001200: 11,2124 22126 +2
021653,001201: 11,2125 41476 VCOMP PUSH # (PL20D)
021654,001202: 11,2126 77775 VLOAD # (PL14D)
021655,001203: 11,2127 50235 VXV DOT # (PL 2D)
021656,001204: 11,2130 71244 BPL DLOAD # (PL 0D)
021657,001205: 11,2131 22133 INITVEL4
021658,001206: 11,2132 41476 DCOMP PUSH # (PL 2D)
021659,001207: 11,2133 67154 INITVEL4 LXA,2 SXA,2
021660,001208: 11,2134 00000 0D
021661,001209: 11,2135 02674 GEOMSGN
021662,001210:
021663,001211: # SET INPUTS UP FOR LAMBERT
021664,001212:
021665,001213: 11,2136 45150 LXA,1 CALL
021666,001214: 11,2137 03745 RTX1
021667,001215:
021668,001216: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021669,001217:
021670,001218: 11,2140 25255 LAMBERT
021671,001219:
021672,001220: 11,2141 77214 CLEAR VLOAD
021673,001221: 11,2142 00675 GUESSW
021674,001222: 11,2143 02746 VVEC
021675,001223:
021676,001224: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021677,001225:
021678,001226: 11,2144 17612 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
021679,001227:
021680,001228: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021681,001229: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021682,001230:
021683,001231: 11,2145 02704 VTARGTAG
021684,001232: 11,2146 45030 BHIZ CALL
021685,001233: 11,2147 34003 INITVEL7
021686,001234: 11,2150 27516 INTSTALL
021687,001235: 11,2151 43135 SLOAD CLEAR
021688,001236: 11,2152 03747 RTX2
021689,001237: 11,2153 00263 MOONFLAG
021690,001238: 11,2154 43030 BHIZ SET
021691,001239: 11,2155 22157 INITVEL5
021692,001240: 11,2156 00063 MOONFLAG
021693,001241: 11,2157 77775 INITVEL5 VLOAD
021694,001242: 11,2160 03570 RINIT
021695,001243: 11,2161 02657 STORE R1VEC
021696,001244: 11,2162 25535 STOVL RCV
021697,001245: 11,2163 03612 VIPRIME
021698,001246: 11,2164 15543 STODL VCV
021699,001247: 11,2165 03503 INTIME
021700,001248: # # Page 493
021701,001249: 11,2166 01517 STORE TET
021702,001250: 11,2167 43015 DAD CLEAR
021703,001251: 11,2170 03423 DELLT4
021704,001252: 11,2171 01673 INTYPFLG
021705,001253: 11,2172 34041 STCALL TDEC1
021706,001254: 11,2173 27211 INTEGRVS
021707,001255: 11,2174 77775 VLOAD
021708,001256: 11,2175 00025 VATT1
021709,001257: 11,2176 02705 STORE VTARGET
021710,001258:
021711,001259: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021712,001260: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021713,001261:
021714,001262: 11,2177 63154 LXA,2 INCR,2
021715,001263: 11,2200 03504 ITCTR
021716,001264: 11,2201 00001 1D # INCREMENT ITCTR
021717,001265: 11,2202 55134 SXA,2 XSU,2
021718,001266: 11,2203 03504 ITCTR
021719,001267: 11,2204 02703 VTARGTAG
021720,001268: 11,2205 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021721,001269: 11,2206 00050 X2
021722,001270: 11,2207 34000 INITVEL6
021723,001271:
021724,001272: # OFFSET CONIC TARGET VECTOR
021725,001273:
021726,001274: 11,2210 52375 VLOAD VSU
021727,001275: 11,2211 03604 RTARG1
021728,001276: 11,2212 00017 RATT1
021729,001277: 11,2213 77655 VAD
021730,001278: 11,2214 02665 R2VEC
021731,001279: 11,2215 16665 STODL R2VEC
021732,001280: 11,2216 03630 COZY4
021733,001281: 11,2217 77650 GOTO
021734,001282: 11,2220 22056 INITVEL2 # CONTINUE ITERATING AT INITVEL2
021735,001283: 16,2000 SETLOC INTVEL1
021736,001284: 16,2000 BANK
021737,001285:
021738,001286: 16,2000 COUNT* $$/INITV
021739,001287:
021740,001288: # COMPUTE THE DELTA VELOCITY
021741,001289:
021742,001290: 16,2000 77775 INITVEL6 VLOAD
021743,001291: 16,2001 02665 R2VEC
021744,001292: 16,2002 03604 STORE RTARG1
021745,001293: 16,2003 52375 INITVEL7 VLOAD VSU
021746,001294: 16,2004 03612 VIPRIME
021747,001295: 16,2005 03576 VINIT
021748,001296: 16,2006 27646 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
021749,001297: 16,2007 02705 VTARGET
021750,001298: 16,2010 37620 STCALL VTPRIME
021751,001299: 16,2011 22221 INITVEL8
021752,001300: 11,2000 SETLOC INTVEL
021753,001301: # # Page 494
021754,001302: 11,2000 BANK
021755,001303:
021756,001304: 11,2221 COUNT* $$/INITV
021757,001305: 11,2221 46135 INITVEL8 SLOAD BHIZ
021758,001306: 11,2222 03747 RTX2
021759,001307: 11,2223 22240 INITVELX
021760,001308: 11,2224 70575 VLOAD VSR2
021761,001309: 11,2225 03620 VTPRIME
021762,001310: 11,2226 27620 STOVL VTPRIME
021763,001311: 11,2227 03612 VIPRIME
021764,001312: 11,2230 77742 VSR2
021765,001313: 11,2231 27612 STOVL VIPRIME
021766,001314: 11,2232 03604 RTARG1
021767,001315: 11,2233 77742 VSR2
021768,001316: 11,2234 27604 STOVL RTARG1
021769,001317: 11,2235 03646 DELVEET3
021770,001318: 11,2236 77742 VSR2
021771,001319: 11,2237 03646 STORE DELVEET3
021772,001320: 11,2240 77201 INITVELX SETPD VLOAD
021773,001321: 11,2241 00001 0D
021774,001322: 11,2242 03604 RTARG1
021775,001323: 11,2243 03415 STORE RTARG
021776,001324: 11,2244 77614 CLRGO
021777,001325: 11,2245 01227 XDELVFLG
021778,001326: 11,2246 01023 NORMEX
021779,001327:
021780,001328: # ..... END OF INITVEL ROUTINE .....
021781,001329:
021782,001330: # # Page 495
021783,001331:
021784,001332: # MIDDLE GIMBAL ANGLE COMPUTATION.
021785,001333:
021786,001334: 27,2000 SETLOC MGIM
021787,001335: 27,2000 BANK
021788,001336:
021789,001337: 27,2442 COUNT* $$/MIDG
021790,001338:
021791,001339: 27,2442 20000 00000 HALFREV 2DEC 1 B-1
021792,001340:
021793,001341: 27,2444 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
021794,001342: 27,2445 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021795,001343: 27,2446 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
021796,001344: 27,2447 51136 ARCSIN BPL
021797,001345: 27,2450 56454 SETMGA
021798,001346: 27,2451 43215 DAD DAD # CONVERT -MGA TO +MGA BY
021799,001347: 27,2452 16443 HALFREV # ADDING ONE REVOLUTION
021800,001348: 27,2453 16443 HALFREV
021801,001349: 27,2454 03626 SETMGA STORE +MGA
021802,001350: 27,2455 77616 RVQ
021803,001351:
021804,001352: 04,2000 SETLOC MIDDGIM
021805,001353: 04,2000 BANK
021806,001354:
021807,001355: 04,3200 COUNT* $$/MIDG
021808,001356:
021809,001357: # TRANSFORM INPUT VECTOR INTO LOCAL VERTICAL COORDINATES.
021810,001358:
021811,001359: 04,3200 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR
021812,001360: 04,3201 03570 RINIT
021813,001361: 04,3202 77676 VCOMP # U(-R)
021814,001362: 04,3203 00023 STORE 18D # U(-R) TO 18D
021815,001363: 04,3204 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
021816,001364: 04,3205 03576 VINIT
021817,001365: 04,3206 00015 STORE 12D # U(V*R) TO 12D
021818,001366: 04,3207 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
021819,001367: 04,3210 00023 18D
021820,001368: 04,3211 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
021821,001369: 04,3212 00001 0D # DELTA V (+7) IN 0D
021822,001370: 04,3213 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
021823,001371: 04,3214 00007 6D # AND SCALE +7 IN MPAC
021824,001372: 04,3215 03405 STORE DELVLVC # STORE IN DELVLVC (+7)
021825,001373: 04,3216 77616 RVQ
021826,001374:
021827,001375: # # Page 496
021828,001376: 04,3217 77160 SELECTMU AXC,1 AXT,2
021829,001377: 04,3220 00002 2D
021830,001378: 04,3221 00000 0D
021831,001379: 04,3222 77614 BOFF
021832,001380: 04,3223 04343 CMOONFLG
021833,001381: 04,3224 11230 SETMUER
021834,001382: 04,3225 77160 AXC,1 AXT,2
021835,001383: 04,3226 00012 10D
021836,001384: 04,3227 00002 2D
021837,001385: 04,3230 66143 SETMUER DLOAD* SXA,1
021838,001386: 04,3231 22305 MUTABLE +4,1
021839,001387: 04,3232 03745 RTX1
021840,001388: 04,3233 23752 STODL* RTSR1/MU
021841,001389: 04,3234 22277 MUTABLE -2,1
021842,001390: 04,3235 54214 BOFF SR
021843,001391: 04,3236 04343 CMOONFLG
021844,001392: 04,3237 11241 RTRNMU
021845,001393: 04,3240 20607 6D
021846,001394: 04,3241 03750 RTRNMU STORE RTMU
021847,001395: 04,3242 43134 SXA,2 CLEAR
021848,001396: 04,3243 03746 RTX2
021849,001397: 04,3244 01271 FINALFLG
021850,001398: 04,3245 52014 BON GOTO
021851,001399: 04,3246 05316 PCFLAG
021852,001400: 04,3247 45343 P36A
021853,001401: 04,3250 73027 VN1645
021854,001402:
021855,001403: # # Page 497
021856,001404: # ..... PERIAPO .....
021857,001405: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
021858,001406: # MOD BY WHITE.P DATE 18JAN68
021859,001407:
021860,001408: # FUNCTIONAL DESCRIPTION
021861,001409:
021862,001410: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021863,001411: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021864,001412: # THE TRAJECTORY AND THE PRIMARY BODY.
021865,001413:
021866,001414: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021867,001415:
021868,001416: # APSIDES IS CALLED TO SOVE FOR THE TWO BODY RADII OF APOCENTER AND
021869,001417: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021870,001418:
021871,001419: # CALLING SEQUENCE
021872,001420:
021873,001421: # L CALL
021874,001422: # L+1 PERIAPO
021875,001423: # L+2 (RETURN - ALWAYS)
021876,001424:
021877,001425: # INPUT
021878,001426:
021879,001427: # (1) RVEC POSITION VECTOR IN METERS
021880,001428: # SCALE FACTOR - EARTH +29, MOON +27
021881,001429: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
021882,001430: # SCALE FACTOR - EARTH +7, MOON +5
021883,001431: # (3) X1 PRIMARY BODY INDICATOR
021884,001432: # EARTH -2, MOON -10
021885,001433:
021886,001434: # OUTPUT
021887,001435:
021888,001436: # (1) 2D APOCENTER RADIUS IN METERS
021889,001437: # SCALE FACTOR - EARTH +29, MOON +27
021890,001438: # (2) 4D APOCENTER ALTITUDE IN METERS
021891,001439: # SCALE FACTOR - EARTH +29, MOON P27
021892,001440: # (3) 6D PERICENTER RADIUS IN METERS
021893,001441: # SCALE FACTOR - EARTH +29, MOON +27
021894,001442: # (4) 8D PERICENTER ALTITUDE IN METERS
021895,001443: # SCALE FACTOR - EARTH +29, MOON +27
021896,001444: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
021897,001445: # SCALE FACTOR - +3
021898,001446: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
021899,001447: # SCALE FACTOR - EARTH +29, MOON +27
021900,001448: # (7) PUSHLOC EQUALS 10D
021901,001449:
021902,001450: # SUBROUTINES USED
021903,001451:
021904,001452: # SETRAD
021905,001453: # # Page 498
021906,001454: # APSIDES
021907,001455:
021908,001456: 22,2000 SETLOC APOPERI
021909,001457: 22,2000 BANK
021910,001458:
021911,001459: 22,3172 COUNT* $$/PERAP
021912,001460:
021913,001461: 22,3172 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
021914,001462: # = 20 909 901.57 FT
021915,001463:
021916,001464: 22,3174 53754 PERIAPO1 LXA,2 VSR*
021917,001465: 22,3175 03746 RTX2
021918,001466: 22,3176 57176 0,2
021919,001467: 22,3177 26746 STOVL VVEC
021920,001468: 22,3200 53750 LXA,1 VSR*
021921,001469: 22,3201 03745 RTX1
021922,001470: 22,3202 57176 0,2
021923,001471: 22,3203 02657 STORE RVEC
021924,001472: 22,3204 45020 PERIAPO STQ CALL
021925,001473: 22,3205 01023 NORMEX
021926,001474: 22,3206 45222 SETRAD
021927,001475: 22,3207 37456 STCALL XXXALT
021928,001476: 22,3210 25717 APSIDES
021929,001477: 22,3211 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
021930,001478: 22,3212 00003 2D
021931,001479: 22,3213 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
021932,001480: 22,3214 03456 XXXALT
021933,001481: 22,3215 00001 0D
021934,001482: 22,3216 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
021935,001483: 22,3217 03456 XXXALT
021936,001484: 22,3220 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
021937,001485: 22,3221 01023 NORMEX
021938,001486: # # Page 499
021939,001487: # SETRAD
021940,001488: 22,3222 41545 SETRAD DLOAD PUSH
021941,001489: 22,3223 05173 RPAD
021942,001490: 22,3224 63130 SXA,1 INCR,2
021943,001491: 22,3225 00047 X2
021944,001492: 22,3226 00002 2D
021945,001493: 22,3227 46135 SLOAD BHIZ
021946,001494: 22,3230 00050 X2
021947,001495: 22,3231 45235 SETRADX
021948,001496: 22,3232 51575 VLOAD ABVAL
021949,001497: 22,3233 02026 RLS
021950,001498: 22,3234 77725 PDDL
021951,001499: 22,3235 43545 SETRADX DLOAD RVQ
021952,001500:
021953,001501: # # Page 500
021954,001502: # PRECSET
021955,001503: 22,3236 77620 PRECSET STQ
021956,001504: 22,3237 01023 NORMEX
021957,001505: 22,3240 36635 STCALL TDEC2
021958,001506: 22,3241 27202 LEMCONIC # CONIC INTEG
021959,001507: 22,3242 77624 CALL
021960,001508: 22,3243 45300 LEMSTORE
021961,001509: 22,3244 77745 DLOAD
021962,001510: 22,3245 02635 TDEC2
021963,001511: 22,3246 34041 STCALL TDEC1
021964,001512: 22,3247 27170 CSMCONIC # CONIC INTEG
021965,001513: 22,3250 77624 CALL
021966,001514: 22,3251 45310 CSMSTORE
021967,001515: 22,3252 53575 VLOAD UNIT
021968,001516: 22,3253 03554 RPASS3
021969,001517: 22,3254 53435 VXV UNIT
021970,001518: 22,3255 03562 VPASS3
021971,001519: 22,3256 26611 STOVL UP1 # UNIT(RPASS3) X VPASS3
021972,001520: 22,3257 03546 VACT3
021973,001521: 22,3260 72441 DOT SL1
021974,001522: 22,3261 02611 UP1
021975,001523: 22,3262 26603 STOVL CMYDOT # -YDOT (CSM)
021976,001524: 22,3263 03540 RACT3
021977,001525: 22,3264 72441 DOT SL1
021978,001526: 22,3265 02611 UP1
021979,001527: 22,3266 26601 STOVL AUTOY # -Y(CSM)
021980,001528: 22,3267 03540 RACT3
021981,001529: 22,3270 53435 VXV UNIT
021982,001530: 22,3271 03546 VACT3
021983,001531: 22,3272 26617 STOVL UNRM
021984,001532: 22,3273 03562 VPASS3
021985,001533: 22,3274 72441 DOT SL1
021986,001534: 22,3275 02617 UNRM # RACT3 X VACT3
021987,001535: 22,3276 36605 STCALL LMYDOT # -YDOT(LM)
021988,001536: 22,3277 01023 NORMEX
021989,001537: 22,3300 43175 LEMSTORE VLOAD BOFF
021990,001538: 22,3301 00001 RATT
021991,001539: 22,3302 01352 AVFLAG
021992,001540: 22,3303 45314 PASSIVE
021993,001541: 22,3304 27540 ACTIVE STOVL RACT3
021994,001542: 22,3305 00007 VATT
021995,001543: 22,3306 03546 STORE VACT3
021996,001544: 22,3307 77616 RVQ
021997,001545: 22,3310 43175 CSMSTORE VLOAD BOFF
021998,001546: 22,3311 00001 RATT
021999,001547: 22,3312 01352 AVFLAG
022000,001548: 22,3313 45304 ACTIVE
022001,001549: 22,3314 27554 PASSIVE STOVL RPASS3
022002,001550: 22,3315 00007 VATT
022003,001551: 22,3316 03562 STORE VPASS3
022004,001552: # # Page 501
022005,001553: 22,3317 77616 RVQ
022006,001554:
022007,001555: # # Page 502
022008,001556:
022009,001557: # VECSHIFT
022010,001558: 22,3320 53754 VECSHIFT LXA,2 VSR*
022011,001559: 22,3321 03746 RTX2
022012,001560: 22,3322 57176 0,2
022013,001561: 22,3323 63350 LXA,1 PDVL
022014,001562: 22,3324 03745 RTX1
022015,001563: 22,3325 63257 VSR* PDVL
022016,001564: 22,3326 57176 0,2
022017,001565: 22,3327 77616 RVQ
022018,001566:
022019,001567: # # Page 503
022020,001568: # SHIFTR1
022021,001569: 22,3330 53754 SHIFTR1 LXA,2 SL*
022022,001570: 22,3331 03746 RTX2
022023,001571: 22,3332 57576 0,2
022024,001572: 22,3333 77616 RVQ
022025,001573:
022026,001574: # # Page 504
022027,001575: # PROGRAM DESCRIPTION
022028,001576: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
022029,001577: # MOD NO. 3 DATE 18 NOVEMBER 1969
022030,001578: # MOD BY T.E.CROCKER
022031,001579:
022032,001580: # FUNCTIONAL DESCRIPTION
022033,001581:
022034,001582: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
022035,001583: # OUT-OF-PLANE PARAMETERS (YDOT CSM,YDOT LEM,Y).
022036,001584:
022037,001585: # CALLING SEQUENCE
022038,001586:
022039,001587: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
022040,001588:
022041,001589: # SUBROUTINES CALLED
022042,001590:
022043,001591: # EXDSPRET TIMEOPT
022044,001592: # GOMARKF VEHOPT
022045,001593: # CSMCONIC
022046,001594: # LEMCONIC
022047,001595: # LOADTIME
022048,001596:
022049,001597: # NORMAL EXIT MODES
022050,001598:
022051,001599: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
022052,001600:
022053,001601: # ALARM OR ABORT EXIT MODES
022054,001602:
022055,001603: # NONE
022056,001604:
022057,001605: # OUTPUT
022058,001606: #
022059,001607: # DECIMAL DISPLAY OF YDOT CSM, YDOT LEM, Y, TIME.
022060,001608: # DISPLAYED VALUES YDOT, YDOT, Y ARE STORED IN ERASABLE
022061,001609: # REGISTERS RRATE, RRATE2, RANGE RESPECTIVELY.
022062,001610:
022063,001611: # ERASABLE INITIALIZATION REQUIRED
022064,001612:
022065,001613: # CSM AND LEM STATE VECTORS
022066,001614:
022067,001615: # DEBRIS
022068,001616:
022069,001617: # CENTRALS A,Q,L
022070,001618:
022071,001619: # OTHER: THOSE USED BY THE ABOVE LISTED SUBROUTINES
022072,001620:
022073,001621: 24,2000 SETLOC R36CM
022074,001622: 24,2000 BANK
022075,001623:
022076,001624: 24,2000 E7,1412 EBANK= TIG
022077,001625: 24,2000 COUNT* $$/R36
022078,001626:
022079,001627: 24,2000 06006 R36 TC INTPRET
022080,001628: # # Page 505
022081,001629:
022082,001630: 24,2001 45145 DLOAD CALL
022083,001631: 24,2002 03413 TIG
022084,001632: 24,2003 46424 TIMEOPT
022085,001633: 24,2004 77624 R36A CALL
022086,001634: 24,2005 27202 LEMCONIC
022087,001635: 24,2006 63375 VLOAD PDVL # VL TO PDLO
022088,001636: 24,2007 00007 VATT
022089,001637: 24,2010 00001 RATT
022090,001638: 24,2011 63256 UNIT PDVL # UNIT RL TO PDL0, VL TO MPAC
022091,001639: 24,2012 77626 STADR
022092,001640: 24,2013 75457 STORE VPASS36 # VL TO VPASS36
022093,001641: 24,2014 53435 VXV UNIT # VL(MPAC) X RL(PDL0)
022094,001642: 24,2015 77626 STADR
022095,001643: 24,2016 61451 STODL UNP36 # UNIT(VL X RL) TO UNP36
022096,001644: 24,2017 00015 TAT
022097,001645: 24,2020 34041 STCALL TDEC1
022098,001646: 24,2021 27170 CSMCONIC
022099,001647: 24,2022 63375 VLOAD PDVL # VC TO PDL0
022100,001648: 24,2023 00007 VATT
022101,001649: 24,2024 00001 RATT
022102,001650: 24,2025 00007 STORE 6D # RC TO PDL6
022103,001651: 24,2026 63256 UNIT PDVL # UNIT(RC) TO PDL0, VC TO MPAC
022104,001652: 24,2027 77626 STADR
022105,001653: 24,2030 77762 STORE 12D # VC TO PDL12
022106,001654: 24,2031 53435 VXV UNIT # VC(MPAC) X RC(PDL0)
022107,001655: 24,2032 77626 STADR
022108,001656: 24,2033 51443 STOVL UNA36 # UNIT(VC X RC) TO UNA36
022109,001657: 24,2034 00007 6D # RC TO MPAC
022110,001658: 24,2035 72441 DOT SL1
022111,001659: 24,2036 02326 UNP36 # RC . UNIT(VL X RL)
022112,001660: 24,2037 26312 STOVL RANGE # EQUALS RANGE
022113,001661: 24,2040 00015 12D # VC TO MPAC
022114,001662: 24,2041 72441 DOT SL1
022115,001663: 24,2042 02326 UNP36 # VC . UNIT(VL X RL)
022116,001664: 24,2043 26314 STOVL RRATE # EQUALS R. RATE OF CSM
022117,001665: 24,2044 02320 VPASS36 # VL TO MPAC
022118,001666: 24,2045 72441 DOT SL1
022119,001667: 24,2046 02334 UNA36
022120,001668: 24,2047 02316 STORE RRATE2 # VL . UNIT(VC X RC)
022121,001669: 24,2050 77776 EXIT # EQUALS R. RATE OF LEM
022122,001670: 24,2051 32103 CAF V06N96 # DISPLAY Y, YDOTCM,YDOTLM
022123,001671: 24,2052 04636 TC BANKCALL
022124,001672: 24,2053 20576 CADR GOMARKF
022125,001673: 24,2054 15524 TCF ENDEXT # T OR
022126,001674: 24,2055 15524 TCF ENDEXT # P....EXIT R36
022127,001675: # R...DISPLAY TIME
022128,001676: 24,2056 06006 TC INTPRET
022129,001677: 24,2057 77624 CALL
022130,001678: 24,2060 46425 TIMEOPT +1
022131,001679: 24,2061 77650 GOTO
022132,001680: # # Page 506
022133,001681: 24,2062 50004 R36A
022134,001682: 24,2063 01420 V06N16N VN 0616
022135,001683: 24,2064 77420 VEHOPT STQ EXIT # ALLOW VEHICLE OPTION
022136,001684: 24,2065 00734 VEHRET
022137,001685: 24,2066 00006 EXTEND
022138,001686: 24,2067 34770 DCA TWO
022139,001687: 24,2070 53256 DXCH OPTIONX
022140,001688: 24,2071 32102 CAF OPTIONVN
022141,001689: 24,2072 04636 TC BANKCALL
022142,001690: 24,2073 20576 CADR GOXDSPF
022143,001691: 24,2074 05524 TC ENDEXT
022144,001692: 24,2075 02077 TC +2
022145,001693: 24,2076 02071 TC -5
022146,001694:
022147,001695: 24,2077 06006 TC INTPRET
022148,001696: 24,2100 77650 GOTO
022149,001697: 24,2101 00734 VEHRET
022150,001698: 24,2102 01014 OPTIONVN VN 0412
022151,001699: 24,2103 01540 V06N96 VN 0696
022152,001700:
022153,001701: 24,2104 30,2000 SBANK= LOWSUPER
End of include-file P34-P35_P74-P75.agc. Parent file is MAIN.agc