Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
019293,000002: ## Copyright: Public domain.
019294,000003: ## Filename: P34-P35,_P74-P75.agc
019295,000004: ## Purpose: A section of Comanche revision 067.
019296,000005: ## It is part of the reconstructed source code for the flight
019297,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
019298,000007: ## (AGC) for Apollo 12. No original listings of this program are
019299,000008: ## available; instead, this file was created via dissassembly of
019300,000009: ## dumps of Comanche 067 core rope modules and comparison with
019301,000010: ## other AGC programs.
019302,000011: ## Assembler: yaYUL
019303,000012: ## Contact: Ron Burkey <info@sandroid.org>.
019304,000013: ## Website: www.ibiblio.org/apollo/index.html
019305,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
019306,000015: ## 2024-03-15 MAS Updated for Comanche 067.
019307,000016:
019308,000017: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
019309,000018: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
019310,000019: # MOD BY WHITE.P DATE 1JUNE67
019311,000020:
019312,000021: # PURPOSE
019313,000022: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019314,000023: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019315,000024: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
019316,000025: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
019317,000026: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
019318,000027: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
019319,000028: # INTERCEPT TIME (TIG (TPF)).
019320,000029: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
019321,000030: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
019322,000031: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
019323,000032: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019324,000033: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019325,000034: # ASTRONAUT/GROUND.
019326,000035: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
019327,000036: # THRUSTING PROGRAM.
019328,000037:
019329,000038: # ASSUMPTIONS
019330,000039: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
019331,000040: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
019332,000041: # THEREFORE -
019333,000042: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
019334,000043: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
019335,000044: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
019336,000045: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
019337,000046: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
019338,000047: # COMPUTED TO BE GREATER THAN 10 MINUTES.
019339,000048: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
019340,000049: # ORBITS WAS MINIMIZED.
019341,000050: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
019342,000051: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
019343,000052: # ORBIT OR 85 NM FOR EARTH ORBIT.
019344,000053: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
019345,000054: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
019346,000055: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
019347,000056: # IN AN OUT-OF-PLANE MANEUVER.
019348,000057: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
019349,000058: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
019350,000059: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
019351,000060: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
019352,000061: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
019353,000062: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
019354,000063: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
019355,000064: # FLIGHT PLAN MANEUVER SEQUENCES.
019356,000065: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
019357,000066: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
019358,000067: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
019359,000068: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
019360,000069: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
019361,000070: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
019362,000071: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
019363,000072: # THRUSTING MANEUVER.
019364,000073: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019365,000074: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019366,000075:
019367,000076: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019368,000077: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019369,000078: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
019370,000079: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019371,000080:
019372,000081: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019373,000082: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019374,000083:
019375,000084: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019376,000085: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019377,000086: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019378,000087:
019379,000088: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
019380,000089: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019381,000090: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019382,000091: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019383,000092: # THROUGH THE USE OF V06N52.
019384,000093:
019385,000094: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019386,000095: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
019387,000096: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
019388,000097: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
019389,000098: # UPON DELTA V AND EXPECTED MANEUVER TIME.
019390,000099: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
019391,000100:
019392,000101: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
019393,000102:
019394,000103: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
019395,000104:
019396,000105: # INPUT
019397,000106: # (1) TTPI TIME OF THE TPI MANEUVER
019398,000107: # (2) ELEV DESIRED LOS ANGLE AT TPI
019399,000108: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019400,000109: # TRANSFER FROM TPI TO TIME OF INTERCEPT
019401,000110:
019402,000111: # OUTPUT
019403,000112: # (1) TRKMKCNT NUMBER OF MARKS
019404,000113: # (2) TTOGO TIME TO GO
019405,000114: # (3) +MGA MIDDLE GIMBAL ANGLE
019406,000115: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
019407,000116: # OR
019408,000117: # ELEV COMPUTED LOS ANGLE AT TPI
019409,000118: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
019410,000119: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
019411,000120: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
019412,000121: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
019413,000122: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
019414,000123:
019415,000124: # DOWNLINK
019416,000125: # (1) TTPI TIME OF THE TPI MANEUVER
019417,000126: # (2) TIG TIME OF THE TPI MANEUVER
019418,000127: # (3) ELEV DESIRED LOS ANGLE AT TPI
019419,000128: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019420,000129: # TRANSFER FROM TPI TO TIME OF INTERCEPT
019421,000130: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
019422,000131: # (6) TPASS4 TIME OF INTERCEPT
019423,000132:
019424,000133: # COMMUNICATION TO THRUSTING PROGRAMS
019425,000134: # (1) TIG TIME OF THE TPI MANEUVER
019426,000135: # (2) RTARG OFFSET TARGET POSITION
019427,000136: # (3) TPASS4 TIME OF INTERCEPT
019428,000137: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019429,000138:
019430,000139: # SUBROUTINES USED
019431,000140: # AVFLAGA
019432,000141: # AVFLAGP
019433,000142: # VNPOOH
019434,000143: # DISPLAYE
019435,000144: # SELECTMU
019436,000145: # PRECSET
019437,000146: # S33/34.1
019438,000147: # ALARM
019439,000148: # BANKCALL
019440,000149: # GOFLASH
019441,000150: # GOTOPOOH
019442,000151: # TIMETHET
019443,000152: # S34/35.2
019444,000153: # PERIAPO1
019445,000154: # SHIFTR1
019446,000155: # S34/35.5
019447,000156: # VN1645
019448,000157:
019449,000158: 35,2000 SETLOC CSI/CDH
019450,000159: 35,2000 BANK
019451,000160: 35,2000 E4,1770 EBANK= SUBEXIT
019452,000161: 35,2000 COUNT 35/P3474
019453,000162:
019454,000163: 35,2000 04627 P34 TC AVFLAGA
019455,000164: 35,2001 02003 TC P34/P74A
019456,000165: 35,2002 04642 P74 TC AVFLAGP
019457,000166: 35,2003 04647 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
019458,000167: 35,2004 34614 CAF V06N37 # TTPI
019459,000168: 35,2005 04575 TC VNPOOH
019460,000169: 35,2006 06006 TC INTPRET
019461,000170: 35,2007 77531 SSP EXIT
019462,000171: 35,2010 03766 NN
019463,000172: 35,2011 00000 0
019464,000173: 35,2012 03070 TC DISPLAYE # ELEV AND CENTANG
019465,000174: 35,2013 06006 TC INTPRET
019466,000175: 35,2014 71214 CLEAR DLOAD
019467,000176: 35,2015 01270 ETPIFLAG
019468,000177: 35,2016 03663 TTPI
019469,000178: 35,2017 17413 STODL TIG
019470,000179: 35,2020 03744 ELEV
019471,000180: 35,2021 43054 BZE SET
019472,000181: 35,2022 72024 P34/P74B
019473,000182: 35,2023 01070 ETPIFLAG
019474,000183: 35,2024 77624 P34/P74B CALL
019475,000184: 35,2025 10712 SELECTMU
019476,000185: 35,2026 DELELO EQUALS 26D
019477,000186: 35,2026 43145 P34/P74C DLOAD SET
019478,000187: 35,2027 15334 ZEROVECS
019479,000188: 35,2030 03461 ITSWICH
019480,000189: 35,2031 43014 BON CLEAR
019481,000190: 35,2032 01310 ETPIFLAG
019482,000191: 35,2033 72035 SWCHSET
019483,000192: 35,2034 03661 ITSWICH
019484,000193: 35,2035 02364 SWCHSET STORE NOMTPI
019485,000194: 35,2036 43345 INTLOOP DLOAD DAD
019486,000195: 35,2037 03663 TTPI
019487,000196: 35,2040 02364 NOMTPI
019488,000197: 35,2041 34041 STCALL TDEC1
019489,000198: 35,2042 45215 PRECSET
019490,000199: 35,2043 77624 CALL
019491,000200: 35,2044 72216 S33/34.1
019492,000201: 35,2045 77454 BZE EXIT
019493,000202: 35,2046 72057 SWCHCLR
019494,000203: 35,2047 05664 TC ALARM
019495,000204: 35,2050 00611 OCT 611
019496,000205: 35,2051 35064 CAF V05N09
019497,000206: 35,2052 04676 TC BANKCALL
019498,000207: 35,2053 20720 CADR GOFLASH
019499,000208: 35,2054 04106 TC GOTOPOOH
019500,000209: 35,2055 02003 TC P34/P74A # PROCEED
019501,000210: 35,2056 02047 TC -7 # V32
019502,000211:
019503,000212: 35,2057 43014 SWCHCLR BONCLR BON
019504,000213: 35,2060 03601 ITSWICH
019505,000214: 35,2061 72036 INTLOOP
019506,000215: 35,2062 01310 ETPIFLAG
019507,000216: 35,2063 72067 P34/P74D # DISPLAY TTPI
019508,000217: 35,2064 77776 EXIT
019509,000218: 35,2065 03070 TC DISPLAYE # DISPLAY ELEV AND CENTANG
019510,000219: 35,2066 02072 TC P34/P74E
019511,000220: 35,2067 77776 P34/P74D EXIT
019512,000221: 35,2070 34614 CAF V06N37 # TTPI
019513,000222: 35,2071 04575 TC VNPOOH
019514,000223: 35,2072 06006 P34/P74E TC INTPRET
019515,000224: 35,2073 71201 SETPD DLOAD
019516,000225: 35,2074 00001 0D
019517,000226: 35,2075 03746 RTX1
019518,000227: 35,2076 14047 STODL X1
019519,000228: 35,2077 03754 CENTANG
019520,000229: 35,2100 71406 PUSH COS
019521,000230: 35,2101 16734 STODL CSTH
019522,000231: 35,2102 77756 SIN
019523,000232: 35,2103 26732 STOVL SNTH
019524,000233: 35,2104 03554 RPASS3
019525,000234: 35,2105 77657 VSR*
019526,000235: 35,2106 57176 0,2
019527,000236: 35,2107 26657 STOVL RVEC
019528,000237: 35,2110 03562 VPASS3
019529,000238: 35,2111 43057 VSR* SET
019530,000239: 35,2112 57176 0,2
019531,000240: 35,2113 03466 RVSW
019532,000241: 35,2114 36746 STCALL VVEC
019533,000242: 35,2115 24744 TIMETHET
019534,000243: 35,2116 77745 DLOAD
019535,000244: 35,2117 03663 TTPI
019536,000245: 35,2120 03503 STORE INTIME # FOR INITVEL
019537,000246: 35,2121 77615 DAD
019538,000247: 35,2122 00037 T # RENDEZVOUS TIME
019539,000248: 35,2123 37656 STCALL TPASS4 # FOR INITVEL
019540,000249: 35,2124 72526 S34/35.2
019541,000250: 35,2125 51575 VLOAD ABVAL
019542,000251: 35,2126 03646 DELVEET3
019543,000252: 35,2127 26635 STOVL DELVTPI
019544,000253: 35,2130 03640 VPASS4
019545,000254: 35,2131 51451 VSU ABVAL
019546,000255: 35,2132 03620 VTPRIME
019547,000256: 35,2133 26637 STOVL DELVTPF
019548,000257: 35,2134 03540 RACT3
019549,000258: 35,2135 45115 PDVL CALL
019550,000259: 35,2136 03612 VIPRIME
019551,000260: 35,2137 45153 PERIAPO1
019552,000261: 35,2140 77624 CALL
019553,000262: 35,2141 45263 SHIFTR1
019554,000263: 35,2142 16641 STODL POSTTPI
019555,000264: 35,2143 03663 TTPI
019556,000265: 35,2144 03413 STORE TIG
019557,000266: 35,2145 77776 EXIT
019558,000267: 35,2146 34616 CAF V06N58
019559,000268: 35,2147 04575 TC VNPOOH
019560,000269: 35,2150 06006 TC INTPRET
019561,000270: 35,2151 77624 CALL
019562,000271: 35,2152 72741 S34/35.5
019563,000272: 35,2153 77624 CALL
019564,000273: 35,2154 73002 VN1645
019565,000274: 35,2155 77650 GOTO
019566,000275: 35,2156 72026 P34/P74C
019567,000276:
019568,000277: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
019569,000278: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
019570,000279: # MOD BY WHITE.P DATE 1JUNE67
019571,000280:
019572,000281: # PURPOSE
019573,000282: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019574,000283: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
019575,000284: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
019576,000285: # VEHICLE RENDEZVOUS.
019577,000286: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019578,000287: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019579,000288: # ASTRONAUT/GROUND.
019580,000289: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
019581,000290: # THRUSTING PROGRAM.
019582,000291:
019583,000292: # ASSUMPTIONS
019584,000293: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019585,000294: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
019586,000295: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
019587,000296: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
019588,000297: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
019589,000298: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
019590,000299: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
019591,000300: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
019592,000301: # P20 AND AFTER EACH THRUSTING MANEUVER.
019593,000302: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019594,000303:
019595,000304: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019596,000305: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019597,000306: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
019598,000307: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019599,000308:
019600,000309: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019601,000310: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019602,000311:
019603,000312: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019604,000313: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019605,000314: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019606,000315:
019607,000316: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
019608,000317: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
019609,000318: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
019610,000319: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
019611,000320: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019612,000321: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019613,000322: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019614,000323: # THROUGH THE USE OF V06N52.
019615,000324:
019616,000325: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019617,000326: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
019618,000327: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
019619,000328: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
019620,000329: # UPON DELTA V AND EXPECTED MANEUVER TIME.
019621,000330: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
019622,000331:
019623,000332: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
019624,000333:
019625,000334: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
019626,000335:
019627,000336: # INPUT
019628,000337: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
019629,000338:
019630,000339: # OUTPUT
019631,000340: # (1) TRKMKCNT NUMBER OF MARKS
019632,000341: # (2) TTOGO TIME TO GO
019633,000342: # (3) +MGA MIDDLE GIMBAL ANGLE
019634,000343: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
019635,000344: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
019636,000345:
019637,000346: # DOWNLINK
019638,000347: # (1) TIG TIME OF THE TPM MANEUVER
019639,000348: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
019640,000349: # (3) TPASS4 TIME OF INTERCEPT
019641,000350:
019642,000351: # COMMUNICATION TO THRUSTING PROGRAMS
019643,000352: # (1) TIG TIME OF THE TPM MANEUVER
019644,000353: # (2) RTARG OFFSET TARGET POSITION
019645,000354: # (3) TPASS4 TIME OF INTERCEPT
019646,000355: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019647,000356:
019648,000357: # SUBROUTINES USED
019649,000358: # AVFLAGA
019650,000359: # AVFLAGP
019651,000360: # LOADTIME
019652,000361: # SELECTMU
019653,000362: # PRECSET
019654,000363: # S34/35.1
019655,000364: # S34/35.2
019656,000365: # S34/35.5
019657,000366: # VN1645
019658,000367:
019659,000368: 35,2157 COUNT 35/P3575
019660,000369: 35,2157 E4,1763 EBANK= KT
019661,000370:
019662,000371: 35,2157 04627 P35 TC AVFLAGA
019663,000372: 35,2160 00006 EXTEND
019664,000373: 35,2161 31422 DCA ATIGINC
019665,000374: 35,2162 02166 TC P35/P75A
019666,000375: 35,2163 04642 P75 TC AVFLAGP
019667,000376: 35,2164 00006 EXTEND
019668,000377: 35,2165 31424 DCA PTIGINC
019669,000378: 35,2166 53764 P35/P75A DXCH KT
019670,000379: 35,2167 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
019671,000380: 35,2170 06006 TC INTPRET
019672,000381: 35,2171 77624 CALL
019673,000382: 35,2172 10712 SELECTMU
019674,000383: 35,2173 77634 P35/P75B RTB
019675,000384: 35,2174 45510 LOADTIME
019676,000385: 35,2175 03665 STORE TSTRT
019677,000386: 35,2176 77615 DAD
019678,000387: 35,2177 02364 KT
019679,000388: 35,2200 03413 STORE TIG
019680,000389: 35,2201 03503 STORE INTIME # FOR INITVEL
019681,000390: 35,2202 34041 STCALL TDEC1
019682,000391: 35,2203 45215 PRECSET # ADVANCE BOTH VEHICLES
019683,000392: 35,2204 77624 CALL
019684,000393: 35,2205 74000 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
019685,000394: 35,2206 77624 CALL
019686,000395: 35,2207 72526 S34/35.2 # GET DELTA V(LV)
019687,000396: 35,2210 77624 CALL
019688,000397: 35,2211 72741 S34/35.5
019689,000398: 35,2212 77624 CALL
019690,000399: 35,2213 73002 VN1645
019691,000400: 35,2214 77650 GOTO
019692,000401: 35,2215 72173 P35/P75B
019693,000402: # ..... S33/34.1 .....
019694,000403:
019695,000404: 35,2216 66220 S33/34.1 STQ SSP
019696,000405: 35,2217 01340 NORMEX
019697,000406: 35,2220 03665 TITER
019698,000407: 35,2221 40000 OCT 40000
019699,000408: 35,2222 40345 DLOAD SETPD
019700,000409: 35,2223 33111 MAX250
019701,000410: 35,2224 00001 0D
019702,000411: 35,2225 27454 STOVL SECMAX
019703,000412: 35,2226 03540 RACT3
019704,000413: 35,2227 27576 STOVL RAPREC
019705,000414: 35,2230 03546 VACT3
019706,000415: 35,2231 27570 STOVL VAPREC
019707,000416: 35,2232 03554 RPASS3
019708,000417: 35,2233 27620 STOVL RPPREC
019709,000418: 35,2234 03562 VPASS3
019710,000419: 35,2235 03612 STORE VPPREC
019711,000420: 35,2236 77624 ELCALC CALL
019712,000421: 35,2237 74000 S34/35.1 # NORMAL AND LOS
019713,000422: 35,2240 63235 VXV PDVL
019714,000423: 35,2241 03540 RACT3 # (RA*VA)*RA 0D
019715,000424: 35,2242 53515 PDVL UNIT # ULOS AT 6D
019716,000425: 35,2243 03540 RACT3
019717,000426: 35,2244 46315 PDVL VPROJ # XCHNJ AND UP
019718,000427: 35,2245 51352 VSL2 BVSU
019719,000428: 35,2246 02625 ULOS
019720,000429: 35,2247 63256 UNIT PDVL # UP AT 0D
019721,000430: 35,2250 63241 DOT PDVL # UP.UN*RA AT 0D
019722,000431: 35,2251 00001 0D # UP IN MPAC
019723,000432: 35,2252 75241 DOT SIGN
019724,000433: 35,2253 02625 ULOS
019725,000434: 35,2254 65552 SL1 ACOS
019726,000435: 35,2255 50315 PDVL DOT # EA AT 0D
019727,000436: 35,2256 02625 ULOS
019728,000437: 35,2257 03540 RACT3
019729,000438: 35,2260 71244 BPL DLOAD
019730,000439: 35,2261 72264 TESTY
019731,000440: 35,2262 15342 DPPOSMAX
019732,000441: 35,2263 41425 DSU PUSH
019733,000442: 35,2264 71214 TESTY BOFF DLOAD
019734,000443: 35,2265 03741 ITSWICH
019735,000444: 35,2266 72513 ELEX
019736,000445: 35,2267 03452 DELEL
019737,000446: 35,2270 14033 STODL DELELO
019738,000447: 35,2271 77625 DSU
019739,000448: 35,2272 03744 ELEV
019740,000449: 35,2273 03452 STORE DELEL
019741,000450: 35,2274 45246 ABS DSU
019742,000451: 35,2275 33115 ELEPS
019743,000452: 35,2276 77640 BMN
019744,000453: 35,2277 72523 TIMEX # COMMERCIALS EVERYWHERE
019745,000454: 35,2300 70535 FIGTIME SLOAD SR1
019746,000455: 35,2301 03665 TITER
019747,000456: 35,2302 72030 BHIZ LXA,1
019748,000457: 35,2303 01340 NORMEX # TOO MANY ITERATIONS
019749,000458: 35,2304 00154 MPAC
019750,000459: 35,2305 77330 SXA,1 VLOAD
019751,000460: 35,2306 03664 TITER
019752,000461: 35,2307 03554 RPASS3
019753,000462: 35,2310 65256 UNIT PDDL
019754,000463: 35,2311 00045 36D
019755,000464: 35,2312 53515 PDVL UNIT
019756,000465: 35,2313 03540 RACT3
019757,000466: 35,2314 77725 PDDL
019758,000467: 35,2315 41525 PDDL PUSH
019759,000468: 35,2316 00045 36D
019760,000469: 35,2317 77621 BDSU
019761,000470: 35,2320 00015 12D
019762,000471: 35,2321 14037 STODL 30D # RP-RA MAGNITUDES
019763,000472: 35,2322 15332 DPHALF
019764,000473: 35,2323 41425 DSU PUSH
019765,000474: 35,2324 03744 ELEV
019766,000475: 35,2325 50165 SIGN BMN
019767,000476: 35,2326 00037 30D
019768,000477: 35,2327 01340 NORMEX
019769,000478: 35,2330 71545 DLOAD COS
019770,000479: 35,2331 56205 DMP DDV
019771,000480: 35,2332 00017 14D
019772,000481: 35,2333 00015 12D
019773,000482: 35,2334 77676 DCOMP # SINCE COS(180-A)=-COS A
019774,000483: 35,2335 00035 STORE 28D
019775,000484: 35,2336 44246 ABS BDSU
019776,000485: 35,2337 15332 DPHALF
019777,000486: 35,2340 77240 BMN VLOAD
019778,000487: 35,2341 01340 NORMEX
019779,000488: 35,2342 02617 UNRM
019780,000489: 35,2343 53435 VXV UNIT
019781,000490: 35,2344 00007 6D # UN*RA
019782,000491: 35,2345 41241 DOT DMP
019783,000492: 35,2346 03546 VACT3
019784,000493: 35,2347 00015 12D
019785,000494: 35,2350 47315 PDVL VXV
019786,000495: 35,2351 00001 0D
019787,000496: 35,2352 03562 VPASS3
019788,000497: 35,2353 53435 VXV UNIT
019789,000498: 35,2354 00001 0D # (RP*VP)*RP
019790,000499: 35,2355 41241 DOT DMP
019791,000500: 35,2356 03562 VPASS3
019792,000501: 35,2357 00017 14D
019793,000502: 35,2360 77621 BDSU
019794,000503: 35,2361 63301 NORM PDVL # NORMALIZED WA-WP 12D
019795,000504: 35,2362 00047 X1
019796,000505: 35,2363 00007 6D
019797,000506: 35,2364 50235 VXV DOT
019798,000507: 35,2365 00001 0D
019799,000508: 35,2366 02617 UNRM # RA*RP.UN 14D
019800,000509: 35,2367 50315 PDVL DOT
019801,000510: 35,2370 00001 0D
019802,000511: 35,2371 00007 6D
019803,000512: 35,2372 65552 SL1 ACOS
019804,000513: 35,2373 77765 SIGN
019805,000514: 35,2374 43225 DSU DAD # ALPHA PI
019806,000515: 35,2375 15332 DPHALF
019807,000516: 35,2376 03744 ELEV
019808,000517: 35,2377 65525 PDDL ACOS
019809,000518: 35,2400 00035 28D
019810,000519: 35,2401 75221 BDSU SIGN
019811,000520: 35,2402 15332 DPHALF
019812,000521: 35,2403 00037 30D # CONTAINS RP-RA
019813,000522: 35,2404 77615 DAD
019814,000523: 35,2405 56205 DMP DDV
019815,000524: 35,2406 33107 TWOPI
019816,000525: 35,2407 77605 DMP
019817,000526: 35,2410 41257 SL* DMP
019818,000527: 35,2411 20176 0 -3,1
019819,000528: 35,2412 51406 PUSH ABS
019820,000529: 35,2413 50025 DSU BMN
019821,000530: 35,2414 03454 SECMAX
019822,000531: 35,2415 72421 OKMAX
019823,000532: 35,2416 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
019824,000533: 35,2417 03454 SECMAX
019825,000534: 35,2420 77606 PUSH
019826,000535: 35,2421 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
019827,000536: 35,2422 03665 TITER
019828,000537: 35,2423 72431 REPETE
019829,000538: 35,2424 71331 SSP DLOAD
019830,000539: 35,2425 03665 TITER
019831,000540: 35,2426 37777 OCT 37777
019832,000541: 35,2427 77650 GOTO
019833,000542: 35,2430 72467 STORDELT
019834,000543: 35,2431 41345 REPETE DLOAD DMP
019835,000544: 35,2432 03452 DELEL
019836,000545: 35,2433 00033 DELELO
019837,000546: 35,2434 71244 BPL DLOAD
019838,000547: 35,2435 72445 NEXTES
019839,000548: 35,2436 03454 SECMAX
019840,000549: 35,2437 77605 DMP
019841,000550: 35,2440 33113 THIRD
019842,000551: 35,2441 17454 STODL SECMAX
019843,000552: 35,2442 70446 ABS SR1 # CROSSED OVER SOLUTION
019844,000553: 35,2443 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
019845,000554: 35,2444 72455 RESIGN
019846,000555: 35,2445 51545 NEXTES DLOAD ABS
019847,000556: 35,2446 03452 DELEL
019848,000557: 35,2447 51525 PDDL ABS
019849,000558: 35,2450 00033 DELELO
019850,000559: 35,2451 77625 DSU
019851,000560: 35,2452 71240 BMN DLOAD
019852,000561: 35,2453 72460 REVERS # WRONG DIRECTION
019853,000562: 35,2454 77646 ABS
019854,000563: 35,2455 52165 RESIGN SIGN GOTO
019855,000564: 35,2456 03450 DELTEEO
019856,000565: 35,2457 72467 STORDELT
019857,000566: 35,2460 57545 REVERS DLOAD DCOMP
019858,000567: 35,2461 03450 DELTEEO
019859,000568: 35,2462 70406 PUSH SR1
019860,000569: 35,2463 03450 STORE DELTEEO
019861,000570: 35,2464 77615 DAD
019862,000571: 35,2465 77650 GOTO
019863,000572: 35,2466 72470 ADTIME
019864,000573: 35,2467 03450 STORDELT STORE DELTEEO
019865,000574: 35,2470 77615 ADTIME DAD
019866,000575: 35,2471 02364 NOMTPI # SUM OF DELTA T:S
019867,000576: 35,2472 02364 STORE NOMTPI
019868,000577: 35,2473 63375 VLOAD PDVL
019869,000578: 35,2474 03570 VAPREC
019870,000579: 35,2475 03576 RAPREC
019871,000580: 35,2476 77624 CALL
019872,000581: 35,2477 72701 GOINT
019873,000582: 35,2500 77624 CALL
019874,000583: 35,2501 45237 ACTIVE # STORE NEW RACT3 VACT3
019875,000584: 35,2502 63375 VLOAD PDVL
019876,000585: 35,2503 03612 VPPREC
019877,000586: 35,2504 03620 RPPREC
019878,000587: 35,2505 77624 CALL
019879,000588: 35,2506 72701 GOINT
019880,000589: 35,2507 77624 CALL
019881,000590: 35,2510 45247 PASSIVE # STORE NEW RPASS3 VPASS3
019882,000591: 35,2511 77650 GOTO
019883,000592: 35,2512 72236 ELCALC
019884,000593: 35,2513 43345 ELEX DLOAD DAD
019885,000594: 35,2514 03663 TTPI
019886,000595: 35,2515 02364 NOMTPI
019887,000596: 35,2516 17663 STODL TTPI
019888,000597: 35,2517 77614 BON
019889,000598: 35,2520 01310 ETPIFLAG
019890,000599: 35,2521 72523 TIMEX
019891,000600: 35,2522 03744 STORE ELEV
019892,000601: 35,2523 52145 TIMEX DLOAD GOTO
019893,000602: 35,2524 15334 ZEROVECS
019894,000603: 35,2525 01340 NORMEX
019895,000604:
019896,000605: # ..... S34/35.1 .....
019897,000606:
019898,000607: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
019899,000608: # PASSIVE POS AND VEL AT TIME T3
019900,000609: 36,2000 SETLOC S3435LOC
019901,000610: 36,2000 BANK
019902,000611:
019903,000612: 36,2000 52375 S34/35.1 VLOAD VSU
019904,000613: 36,2001 03554 RPASS3
019905,000614: 36,2002 03540 RACT3
019906,000615: 36,2003 41456 UNIT PUSH
019907,000616: 36,2004 26625 STOVL ULOS
019908,000617: 36,2005 03540 RACT3
019909,000618: 36,2006 53435 VXV UNIT
019910,000619: 36,2007 03546 VACT3
019911,000620: 36,2010 02617 STORE UNRM
019912,000621: 36,2011 77616 RVQ
019913,000622:
019914,000623: # ..... S34/35.2 .....
019915,000624:
019916,000625: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
019917,000626: 35,2000 SETLOC CSI/CDH
019918,000627: 35,2000 BANK
019919,000628:
019920,000629: 35,2526 77220 S34/35.2 STQ VLOAD
019921,000630: 35,2527 02370 SUBEXIT
019922,000631: 35,2530 03562 VPASS3
019923,000632: 35,2531 65315 PDVL PDDL
019924,000633: 35,2532 03554 RPASS3
019925,000634: 35,2533 03503 INTIME
019926,000635: 35,2534 65325 PDDL PDDL
019927,000636: 35,2535 03656 TPASS4
019928,000637: 35,2536 33107 TWOPI # CONIC
019929,000638: 35,2537 46125 PDDL BHIZ
019930,000639: 35,2540 03766 NN
019931,000640: 35,2541 72544 S3435.23
019932,000641: 35,2542 65345 DLOAD PDDL
019933,000642: 35,2543 15334 ZEROVECS # PRECISION
019934,000643: 35,2544 77624 S3435.23 CALL
019935,000644: 35,2545 72705 INTINT # GET TARGET VECTOR
019936,000645: 35,2546 27415 S3435.25 STOVL RTARG
019937,000646: 35,2547 00007 VATT
019938,000647: 35,2550 27640 STOVL VPASS4
019939,000648: 35,2551 03415 RTARG
019940,000649: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
019941,000650: 35,2552 63256 UNIT PDVL # UNIT RP
019942,000651: 35,2553 03540 RACT3
019943,000652: 35,2554 41456 UNIT PUSH # UNIT RA
019944,000653: 35,2555 50235 VXV DOT
019945,000654: 35,2556 00001 0D
019946,000655: 35,2557 02617 UNRM # RA*RP.U
019947,000656: 35,2560 77715 PDVL
019948,000657: 35,2561 72441 DOT SL1 # UNIT RA.UNIT RP
019949,000658: 35,2562 00001 0D
019950,000659: 35,2563 75326 ACOS SIGN
019951,000660: 35,2564 43244 BPL DAD
019952,000661: 35,2565 72567 NOPIE
019953,000662: 35,2566 15342 DPPOSMAX # REASONABLE TWO PI
019954,000663: 35,2567 16633 NOPIE STODL ACTCENT
019955,000664: 35,2570 03656 TPASS4
019956,000665: 35,2571 77625 DSU
019957,000666: 35,2572 03503 INTIME
019958,000667: 35,2573 03423 STORE DELLT4
019959,000668: 35,2574 40335 SLOAD SETPD
019960,000669: 35,2575 03766 NN # NUMBER OF OFFSETS
019961,000670: 35,2576 00001 0D
019962,000671: 35,2577 63325 PDDL PDVL
019963,000672: 35,2600 33122 EPSFOUR
019964,000673: 35,2601 03540 RACT3
019965,000674: 35,2602 27570 STOVL RINIT
019966,000675: 35,2603 03546 VACT3
019967,000676: 35,2604 37576 STCALL VINIT
019968,000677: 35,2605 22000 INITVEL
019969,000678: 35,2606 77624 CALL
019970,000679: 35,2607 72666 LOMAT
019971,000680: 35,2610 64375 VLOAD MXV
019972,000681: 35,2611 03646 DELVEET3
019973,000682: 35,2612 00001 0D
019974,000683: 35,2613 77772 VSL1
019975,000684: 35,2614 37405 STCALL DELVLVC
019976,000685: 35,2615 02370 SUBEXIT
019977,000686:
019978,000687: # ..... S34/35.3 .....
019979,000688:
019980,000689: 35,2616 45020 S34/35.3 STQ CALL
019981,000690: 35,2617 01340 NORMEX
019982,000691: 35,2620 72666 LOMAT # GET MATRIX IN PUSH LIST
019983,000692: 35,2621 61375 VLOAD VXM
019984,000693: 35,2622 03405 DELVLVC # NEW DEL V TPI
019985,000694: 35,2623 00001 0D
019986,000695: 35,2624 77772 VSL1
019987,000696: 35,2625 03646 STORE DELVEET3 # SAVE FOR TRANSFORM
019988,000697: 35,2626 63255 VAD PDVL
019989,000698: 35,2627 03546 VACT3 # NEW V REQ
019990,000699: 35,2630 03540 RACT3
019991,000700: 35,2631 65325 PDDL PDDL
019992,000701: 35,2632 03413 TIG
019993,000702: 35,2633 03656 TPASS4
019994,000703: 35,2634 41525 PDDL PUSH
019995,000704: 35,2635 15342 DPPOSMAX
019996,000705: 35,2636 77624 CALL # INTEG. FOR NEW TARGET VEC
019997,000706: 35,2637 72705 INTINT
019998,000707: 35,2640 77775 VLOAD
019999,000708: 35,2641 00001 RATT
020000,000709: 35,2642 03415 STORE RTARG
020001,000710: 35,2643 41575 NOVRWRT VLOAD PUSH
020002,000711: 35,2644 02625 ULOS
020003,000712: 35,2645 57435 VXV VCOMP
020004,000713: 35,2646 02617 UNRM
020005,000714: 35,2647 41456 UNIT PUSH
020006,000715: 35,2650 76435 VXV VSL1
020007,000716: 35,2651 02625 ULOS
020008,000717: 35,2652 77715 PDVL
020009,000718: 35,2653 64315 PDVL MXV
020010,000719: 35,2654 03646 DELVEET3
020011,000720: 35,2655 00001 0D
020012,000721: 35,2656 77772 VSL1
020013,000722: 35,2657 36611 STCALL DVLOS
020014,000723: 35,2660 01340 NORMEX
020015,000724:
020016,000725: # ..... S34/35.4 .....
020017,000726:
020018,000727: 35,2661 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
020019,000728: 35,2662 01340 NORMEX
020020,000729: 35,2663 00001 0D
020021,000730: 35,2664 77650 GOTO
020022,000731: 35,2665 72643 NOVRWRT
020023,000732:
020024,000733: # ..... LOMAT .....
020025,000734:
020026,000735: 35,2666 57575 LOMAT VLOAD VCOMP
020027,000736: 35,2667 02617 UNRM
020028,000737: 35,2670 24007 STOVL 6D # Y
020029,000738: 35,2671 03540 RACT3
020030,000739: 35,2672 57456 UNIT VCOMP
020031,000740: 35,2673 00015 STORE 12D
020032,000741: 35,2674 76435 VXV VSL1
020033,000742: 35,2675 02617 UNRM # Z*-Y
020034,000743: 35,2676 00001 STORE 0D
020035,000744: 35,2677 43401 SETPD RVQ
020036,000745: 35,2700 00023 18D
020037,000746: 35,2701 65325 GOINT PDDL PDDL # DO
020038,000747: 35,2702 15334 ZEROVECS # NOT
020039,000748: 35,2703 02364 NOMTPI
020040,000749: 35,2704 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
020041,000750: 35,2705 45020 INTINT STQ CALL
020042,000751: 35,2706 02367 RTRN
020043,000752: 35,2707 27452 INTSTALL
020044,000753: 35,2710 71214 CLEAR DLOAD
020045,000754: 35,2711 01673 INTYPFLG
020046,000755: 35,2712 43054 BZE SET
020047,000756: 35,2713 72715 +2
020048,000757: 35,2714 01473 INTYPFLG
020049,000758: 35,2715 45545 DLOAD STADR
020050,000759: 35,2716 63736 STODL TDEC1
020051,000760: 35,2717 73014 SET LXA,2
020052,000761: 35,2720 00063 MOONFLAG
020053,000762: 35,2721 03746 RTX2
020054,000763: 35,2722 43014 BON CLEAR
020055,000764: 35,2723 04303 CMOONFLG
020056,000765: 35,2724 72726 ALLSET
020057,000766: 35,2725 00263 MOONFLAG
020058,000767: 35,2726 25517 ALLSET STOVL TET
020059,000768: 35,2727 77657 VSR*
020060,000769: 35,2730 57176 0,2
020061,000770: 35,2731 25535 STOVL RCV
020062,000771: 35,2732 77657 VSR*
020063,000772: 35,2733 57176 0,2
020064,000773: 35,2734 35543 STCALL VCV
020065,000774: 35,2735 27145 INTEGRVS
020066,000775: 35,2736 52175 VLOAD GOTO
020067,000776: 35,2737 00001 RATT
020068,000777: 35,2740 02367 RTRN
020069,000778:
020070,000779: # ..... S34/35.5 .....
020071,000780:
020072,000781: # SUBROUTINES USED
020073,000782: # BANKCALL
020074,000783: # GOFLASH
020075,000784: # GOTOPOOH
020076,000785: # S34/35.3
020077,000786: # S34/35.4
020078,000787: # VNPOOH
020079,000788:
020080,000789: 35,2741 43020 S34/35.5 STQ BON
020081,000790: 35,2742 02370 SUBEXIT
020082,000791: 35,2743 01311 FINALFLG
020083,000792: 35,2744 72750 FLAGON
020084,000793: 35,2745 52014 SET GOTO
020085,000794: 35,2746 00470 UPDATFLG
020086,000795: 35,2747 72772 FLAGOFF
020087,000796: 35,2750 77775 FLAGON VLOAD
020088,000797: 35,2751 03405 DELVLVC
020089,000798: 35,2752 02611 STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
020090,000799: 35,2753 77776 EXIT
020091,000800: 35,2754 34620 CAF V06N81
020092,000801: 35,2755 04575 TC VNPOOH
020093,000802: 35,2756 06006 TC INTPRET
020094,000803: 35,2757 52375 VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED
020095,000804: 35,2760 03405 DELVLVC # DELTA V
020096,000805: 35,2761 02611 DVLOS
020097,000806: 35,2762 53046 ABVAL BZE
020098,000807: 35,2763 72766 NOCHG # NO OVERWRITE
020099,000808: 35,2764 77624 CALL
020100,000809: 35,2765 72616 S34/35.3 # COMPUTE NEW TARGET VECTOR
020101,000810: 35,2766 77214 NOCHG CLEAR VLOAD
020102,000811: 35,2767 01267 XDELVFLG
020103,000812: 35,2770 03646 DELVEET3
020104,000813: 35,2771 03646 STORE DELVSIN
020105,000814: 35,2772 77624 FLAGOFF CALL
020106,000815: 35,2773 72661 S34/35.4
020107,000816: 35,2774 77776 EXIT
020108,000817: 35,2775 34617 CAF V06N59
020109,000818: 35,2776 04575 TC VNPOOH
020110,000819: 35,2777 06006 TC INTPRET
020111,000820: 35,3000 77650 GOTO
020112,000821: 35,3001 02370 SUBEXIT
020113,000822:
020114,000823: # ..... VN1645 .....
020115,000824:
020116,000825: # SUBROUTINES USED
020117,000826: # P3XORP7X
020118,000827: # GET+MGA
020119,000828: # BANKCALL
020120,000829: # DELAYJOB
020121,000830: # COMPTGO
020122,000831: # GOFLASHR
020123,000832: # GOTOPOOH
020124,000833: # FLAGUP
020125,000834:
020126,000835: 35,3002 71220 VN1645 STQ DLOAD
020127,000836: 35,3003 02370 SUBEXIT
020128,000837: 35,3004 33120 DP-.01
020129,000838: 35,3005 03626 STORE +MGA # MGA = -.01
020130,000839: 35,3006 71214 BOFF DLOAD
020131,000840: 35,3007 01351 FINALFLG
020132,000841: 35,3010 73030 GET45
020133,000842: 35,3011 33120 DP-.01
020134,000843: 35,3012 77615 DAD
020135,000844: 35,3013 33120 DP-.01
020136,000845: 35,3014 03626 STORE +MGA # MGA = -.02
020137,000846: 35,3015 77414 BOFF EXIT
020138,000847: 35,3016 01742 REFSMFLG
020139,000848: 35,3017 73030 GET45
020140,000849: 35,3020 03100 TC P3XORP7X
020141,000850: 35,3021 03023 TC +2 # P3X
020142,000851: 35,3022 03031 TC GET45 +1 # P7X
020143,000852: 35,3023 06006 TC INTPRET
020144,000853: 35,3024 41575 VLOAD PUSH
020145,000854: 35,3025 03646 DELVSIN
020146,000855: 35,3026 77624 CALL # COMPUTE MGA
020147,000856: 35,3027 10654 GET+MGA
020148,000857: 35,3030 77776 GET45 EXIT
020149,000858: 35,3031 03304 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
020150,000859: 35,3032 31770 CA SUBEXIT
020151,000860: 35,3033 55766 TS QSAVED
020152,000861: 35,3034 35055 CAF 1SEC
020153,000862: 35,3035 04676 TC BANKCALL
020154,000863: 35,3036 01732 CADR DELAYJOB
020155,000864: 35,3037 34621 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
020156,000865: 35,3040 04676 TC BANKCALL
020157,000866: 35,3041 20720 CADR GOFLASH
020158,000867: 35,3042 03045 TC KILCLOCK # TERMINATE
020159,000868: 35,3043 03050 TC N45PROC # PROCEED
020160,000869: 35,3044 03060 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
020161,000870: 35,3045 30005 KILCLOCK CA Z
020162,000871: 35,3046 54000 TS DISPDEX
020163,000872: 35,3047 04106 TC GOTOPOOH
020164,000873: 35,3050 40076 N45PROC CS FLAGWRD2
020165,000874: 35,3051 75026 MASK BIT6
020166,000875: 35,3052 00006 EXTEND
020167,000876: 35,3053 13045 BZF KILCLOCK # FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
020168,000877: 35,3054 05426 TC PHASCHNG
020169,000878: 35,3055 04024 OCT 04024
020170,000879: 35,3056 05562 TC UPFLAG # SET
020171,000880: 35,3057 00047 ADRES FINALFLG # FINALFLG
020172,000881: 35,3060 30005 CLUPDATE CA Z
020173,000882: 35,3061 54000 TS DISPDEX
020174,000883: 35,3062 05426 TC PHASCHNG
020175,000884: 35,3063 04024 OCT 04024
020176,000885: 35,3064 06006 TC INTPRET
020177,000886: 35,3065 52014 CLEAR GOTO
020178,000887: 35,3066 00670 UPDATFLG
020179,000888: 35,3067 02366 QSAVED
020180,000889:
020181,000890: # ..... DISPLAYE .....
020182,000891:
020183,000892: # SUBROUTINES USED
020184,000893: # BANKCALL
020185,000894: # GOFLASHR
020186,000895: # GOTOPOOH
020187,000896: # BLANKET
020188,000897: # ENDOFJOB
020189,000898:
020190,000899: 35,3070 00006 DISPLAYE EXTEND
020191,000900: 35,3071 23340 QXCH NORMEX
020192,000901: 35,3072 34615 CAF V06N55
020193,000902: 35,3073 04676 TCR BANKCALL
020194,000903: 35,3074 20720 CADR GOFLASH
020195,000904: 35,3075 14106 TCF GOTOPOOH
020196,000905: 35,3076 01340 TC NORMEX
020197,000906: 35,3077 13072 TCF -5
020198,000907:
020199,000908: # ..... P3XORP7X .....
020200,000909:
020201,000910: 35,3100 37713 P3XORP7X CAF HIGH9
020202,000911: 35,3101 71011 MASK MODREG
020203,000912: 35,3102 00006 EXTEND
020204,000913: 35,3103 13105 BZF +2
020205,000914: 35,3104 24002 INCR Q
020206,000915: 35,3105 00002 RETURN
020207,000916:
020208,000917: # ..... VNPOOH .....
020209,000918:
020210,000919: # SUBROUTINES USED
020211,000920: # BANKCALL
020212,000921: # GOFLASH
020213,000922: # GOTOPOOH
020214,000923:
020215,000924: 4000 SETLOC P30SUBS
020216,000925: 4000 BANK
020217,000926:
020218,000927: 4575 00006 VNPOOH EXTEND
020219,000928: 4576 23767 QXCH RTRN
020220,000929: 4577 55765 TS VERBNOUN
020221,000930: 4600 34610 CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN
020222,000931: 4601 56004 XCH FBANK # FIXED-FIXED *****
020223,000932: 4602 55063 TS TBASE5 # * WATCH OUT *
020224,000933:
020225,000934: 4603 31765 CA VERBNOUN
020226,000935: 4604 04676 TCR BANKCALL
020227,000936: 4605 20720 CADR GOFLASH
020228,000937: 4606 14106 TCF GOTOPOOH
020229,000938: 4607 14611 TCF +2
020230,000939: 4610 04603 VNBANK TC -5
020231,000940:
020232,000941: 4611 31063 CA TBASE5
020233,000942: 4612 54004 TS FBANK
020234,000943: 4613 01767 TC RTRN
020235,000944:
020236,000945: # ..... CONSTANTS .....
020237,000946:
020238,000947: 4614 01445 V06N37 VN 0637
020239,000948: 4615 01467 V06N55 VN 0655
020240,000949: 4616 01472 V06N58 VN 0658
020241,000950: 4617 01473 V06N59 VN 0659
020242,000951: 4620 01521 V06N81 VN 0681
020243,000952: 4621 04055 V16N45 VN 1645
020244,000953: 35,2000 SETLOC CSI/CDH
020245,000954: 35,2000 BANK
020246,000955:
020247,000956: 35,3106 14441 37325 TWOPI 2DEC 6.283185307 B-4
020248,000957: 35,3110 00001 20650 MAX250 2DEC 25 E3
020249,000958: 35,3112 12525 12525 THIRD 2DEC .333333333
020250,000959: 35,3114 00004 21505 ELEPS 2DEC .27777777 E-3
020251,000960: 35,3116 00002 DECTWO OCT 2
020252,000961: 35,3117 77777 DP-.01 OCT 77777 # CONSTANTS
020253,000962: 35,3120 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
020254,000963: 35,3121 01252 25253 EPSFOUR 2DEC .0416666666
020255,000964:
020256,000965: # ..... INITVEL .....
020257,000966: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
020258,000967: # MOD BY WHITE.P DATE 21NOV67
020259,000968:
020260,000969: # FUNCTIONAL DESCRIPTION
020261,000970: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020262,000971: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020263,000972: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
020264,000973: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020265,000974: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
020266,000975: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020267,000976: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
020268,000977: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020269,000978: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020270,000979: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020271,000980:
020272,000981: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020273,000982: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020274,000983: # SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020275,000984: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020276,000985: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020277,000986: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020278,000987: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020279,000988: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020280,000989:
020281,000990: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020282,000991: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020283,000992: # TRAJECTORY COMPUTATIONS.
020284,000993:
020285,000994: # CALLING SEQUENCE
020286,000995: # L CALL
020287,000996: # L+1 INITVEL
020288,000997: # L+2 (RETURN - ALWAYS)
020289,000998:
020290,000999: # INPUT
020291,001000: # (1) RINIT INITIAL POSITION RADIUS VECTOR
020292,001001: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
020293,001002: # (3) RTARG TARGET POSITION RADIUS VECTOR
020294,001003: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020295,001004: # (5) INTIME TIME OF RINIT
020296,001005: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020297,001006: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020298,001007: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
020299,001008: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020300,001009: # PUSHLOC SET AT 4D
020301,001010:
020302,001011: # OUTPUT
020303,001012: # (1) RTARG OFFSET TARGET POSITION VECTOR
020304,001013: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
020305,001014: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
020306,001015: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
020307,001016:
020308,001017: # SUBROUTINES USED
020309,001018: # LAMBERT
020310,001019: # INTSTALL
020311,001020: # INTEGRVS
020312,001021:
020313,001022: 11,2000 SETLOC INTVEL
020314,001023: 11,2000 BANK
020315,001024:
020316,001025: 11,2000 COUNT 11/INITV
020317,001026: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
020318,001027: 11,2001 00475 GUESSW
020319,001028: 11,2002 44175 HAVEGUES VLOAD STQ
020320,001029: 11,2003 03415 RTARG
020321,001030: 11,2004 01340 NORMEX
020322,001031: 11,2005 03604 STORE RTARG1
020323,001032: 11,2006 46135 SLOAD BHIZ
020324,001033: 11,2007 03747 RTX2
020325,001034: 11,2010 22022 INITVEL1
020326,001035: 11,2011 72575 VLOAD VSL2
020327,001036: 11,2012 03570 RINIT # B29
020328,001037: 11,2013 27570 STOVL RINIT # B27
020329,001038: 11,2014 03576 VINIT # B7
020330,001039: 11,2015 77752 VSL2
020331,001040: 11,2016 27576 STOVL VINIT # B5
020332,001041: 11,2017 03604 RTARG1
020333,001042: 11,2020 77752 VSL2
020334,001043: 11,2021 03604 STORE RTARG1
020335,001044:
020336,001045: # INITIALIZATION
020337,001046:
020338,001047: 11,2022 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
020339,001048: 11,2023 03505 ITCTR
020340,001049: 11,2024 77776 0 -1
020341,001050: 11,2025 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
020342,001051: 11,2026 17630 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
020343,001052: 11,2027 67154 LXA,2 SXA,2
020344,001053: 11,2030 00154 MPAC
020345,001054: 11,2031 02703 VTARGTAG # SET VTARGTAG TO 0D (SP)
020346,001055: 11,2032 77775 VLOAD
020347,001056: 11,2033 03570 RINIT
020348,001057: 11,2034 26657 STOVL R1VEC # R1VEC EQ RINIT
020349,001058: 11,2035 03604 RTARG1
020350,001059: 11,2036 16665 STODL R2VEC # R2VEC EQ RTARG
020351,001060: 11,2037 03423 DELLT4
020352,001061: 11,2040 02673 STORE TDESIRED # TDESIRED EQ DELLT4
020353,001062: 11,2041 77201 SETPD VLOAD
020354,001063: 11,2042 00001 0D # INITIALIZE PL TO 0D
020355,001064: 11,2043 03570 RINIT # MPAC EQ RINIT (+29)
020356,001065: 11,2044 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
020357,001066: 11,2045 53435 VXV UNIT
020358,001067: 11,2046 03576 VINIT # MPAC EQ UNIT(RI) X VI (+8)
020359,001068: 11,2047 26676 STOVL UN
020360,001069: 11,2050 03604 RTARG1
020361,001070: 11,2051 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
020362,001071: 11,2052 43015 DAD CLEAR
020363,001072: 11,2053 03630 COZY4
020364,001073: 11,2054 03665 NORMSW
020365,001074: 11,2055 03630 STORE COZY4
020366,001075: 11,2056 43044 INITVEL2 BPL SET
020367,001076: 11,2057 22101 INITVEL3 # UN CALCULATED IN LAMBERT
020368,001077: 11,2060 03465 NORMSW
020369,001078:
020370,001079: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
020371,001080:
020372,001081: 11,2061 41575 VLOAD PUSH # (PL 6D)
020373,001082: 11,2062 02665 R2VEC # RC TO 6D (+29)
020374,001083: 11,2063 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
020375,001084: 11,2064 46206 PUSH VPROJ # (PL 8D)
020376,001085: 11,2065 02676 UN
020377,001086: 11,2066 51352 VSL2 BVSU
020378,001087: 11,2067 74256 UNIT VXSC # (PL 0D)
020379,001088: 11,2070 77772 VSL1
020380,001089: 11,2071 02665 STORE R2VEC
020381,001090: 11,2072 67351 TLOAD SLOAD
020382,001091: 11,2073 11566 ZEROVEC
020383,001092: 11,2074 03505 ITCTR
020384,001093: 11,2075 77244 BPL VLOAD
020385,001094: 11,2076 22101 INITVEL3
020386,001095: 11,2077 02665 R2VEC
020387,001096: 11,2100 03604 STORE RTARG1
020388,001097: 11,2101 63345 INITVEL3 DLOAD PDVL # (PL 2D)
020389,001098: 11,2102 27745 MUEARTH # POSITIVE VALUE
020390,001099: 11,2103 02665 R2VEC
020391,001100: 11,2104 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
020392,001101: 11,2105 02657 R1VEC
020393,001102: 11,2106 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
020394,001103: 11,2107 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
020395,001104: 11,2110 00003 2D
020396,001105: 11,2111 77606 PUSH # (PL 20D)
020397,001106: 11,2112 71350 LXA,1 DLOAD
020398,001107: 11,2113 03745 RTX1
020399,001108: 11,2114 00023 18D
020400,001109: 11,2115 62040 BMN INCR,1
020401,001110: 11,2116 22120 +2
020402,001111: 11,2117 77767 DEC -8 B-14
020403,001112: 11,2120 67310 INCR,1 SLOAD
020404,001113: 11,2121 00012 10D
020405,001114: 11,2122 00047 X1
020406,001115: 11,2123 77230 BHIZ VLOAD # (PL 14D)
020407,001116: 11,2124 22126 +2
020408,001117: 11,2125 41476 VCOMP PUSH # (PL 20 D)
020409,001118: 11,2126 77775 VLOAD # (PL 14D)
020410,001119: 11,2127 50235 VXV DOT # (PL 2D)
020411,001120: 11,2130 71244 BPL DLOAD # (PL 0D)
020412,001121: 11,2131 22133 INITVEL4
020413,001122: 11,2132 41476 DCOMP PUSH # (PL 2D)
020414,001123: 11,2133 67154 INITVEL4 LXA,2 SXA,2
020415,001124: 11,2134 00000 0D
020416,001125: 11,2135 02674 GEOMSGN
020417,001126:
020418,001127: # SET INPUTS UP FOR LAMBERT
020419,001128:
020420,001129: 11,2136 45150 LXA,1 CALL
020421,001130: 11,2137 03745 RTX1
020422,001131: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
020423,001132:
020424,001133: 11,2140 25224 LAMBERT
020425,001134:
020426,001135: # DELETE THRU 4521
020427,001136: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
020428,001137:
020429,001138: 11,2141 77214 CLEAR VLOAD
020430,001139: 11,2142 00675 GUESSW
020431,001140: 11,2143 02746 VVEC
020432,001141:
020433,001142: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
020434,001143:
020435,001144: 11,2144 17612 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
020436,001145:
020437,001146: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
020438,001147: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
020439,001148:
020440,001149: 11,2145 02704 VTARGTAG
020441,001150: 11,2146 45030 BHIZ CALL
020442,001151: 11,2147 22224 INITVEL7
020443,001152: 11,2150 27452 INTSTALL
020444,001153: 11,2151 43135 SLOAD CLEAR
020445,001154: 11,2152 03747 RTX2
020446,001155: 11,2153 00263 MOONFLAG
020447,001156: 11,2154 43030 BHIZ SET
020448,001157: 11,2155 22157 INITVEL5
020449,001158: 11,2156 00063 MOONFLAG
020450,001159: 11,2157 77775 INITVEL5 VLOAD
020451,001160: 11,2160 03570 RINIT
020452,001161: 11,2161 02657 STORE R1VEC
020453,001162: 11,2162 25535 STOVL RCV
020454,001163: 11,2163 03612 VIPRIME
020455,001164: 11,2164 15543 STODL VCV
020456,001165: 11,2165 03503 INTIME
020457,001166: 11,2166 01517 STORE TET
020458,001167: 11,2167 43015 DAD CLEAR
020459,001168: 11,2170 03423 DELLT4
020460,001169: 11,2171 01673 INTYPFLG
020461,001170: 11,2172 34041 STCALL TDEC1
020462,001171: 11,2173 27145 INTEGRVS
020463,001172: 11,2174 77775 VLOAD
020464,001173: 11,2175 00025 VATT1
020465,001174: 11,2176 02705 STORE VTARGET
020466,001175:
020467,001176: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
020468,001177: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
020469,001178:
020470,001179: 11,2177 63154 LXA,2 INCR,2
020471,001180: 11,2200 03504 ITCTR
020472,001181: 11,2201 00001 1D # INCREMENT ITCTR
020473,001182: 11,2202 55134 SXA,2 XSU,2
020474,001183: 11,2203 03504 ITCTR
020475,001184: 11,2204 02703 VTARGTAG
020476,001185: 11,2205 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
020477,001186: 11,2206 00050 X2
020478,001187: 11,2207 22221 INITVEL6
020479,001188:
020480,001189: # OFFSET CONIC TARGET VECTOR
020481,001190:
020482,001191: 11,2210 52375 VLOAD VSU
020483,001192: 11,2211 03604 RTARG1
020484,001193: 11,2212 00017 RATT1
020485,001194: 11,2213 77655 VAD
020486,001195: 11,2214 02665 R2VEC
020487,001196: 11,2215 16665 STODL R2VEC
020488,001197: 11,2216 03630 COZY4
020489,001198: 11,2217 77650 GOTO
020490,001199: 11,2220 22056 INITVEL2 # CONTINUE ITERATING AT INITVEL2
020491,001200:
020492,001201: # COMPUTE THE DELTA VELOCITY
020493,001202:
020494,001203: 11,2221 77775 INITVEL6 VLOAD
020495,001204: 11,2222 02665 R2VEC
020496,001205: 11,2223 03604 STORE RTARG1
020497,001206: 11,2224 52375 INITVEL7 VLOAD VSU
020498,001207: 11,2225 03612 VIPRIME
020499,001208: 11,2226 03576 VINIT
020500,001209: 11,2227 27646 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
020501,001210: 11,2230 02705 VTARGET
020502,001211: 11,2231 03620 STORE VTPRIME
020503,001212: 11,2232 46135 SLOAD BHIZ
020504,001213: 11,2233 03747 RTX2
020505,001214: 11,2234 22251 INITVELX
020506,001215: 11,2235 70575 VLOAD VSR2
020507,001216: 11,2236 03620 VTPRIME
020508,001217: 11,2237 27620 STOVL VTPRIME
020509,001218: 11,2240 03612 VIPRIME
020510,001219: 11,2241 77742 VSR2
020511,001220: 11,2242 27612 STOVL VIPRIME
020512,001221: 11,2243 03604 RTARG1
020513,001222: 11,2244 77742 VSR2
020514,001223: 11,2245 27604 STOVL RTARG1
020515,001224: 11,2246 03646 DELVEET3
020516,001225: 11,2247 77742 VSR2
020517,001226: 11,2250 03646 STORE DELVEET3
020518,001227: 11,2251 77201 INITVELX SETPD VLOAD
020519,001228: 11,2252 00001 0D
020520,001229: 11,2253 03604 RTARG1
020521,001230: 11,2254 03415 STORE RTARG
020522,001231: 11,2255 77614 CLRGO
020523,001232: 11,2256 01227 XDELVFLG
020524,001233: 11,2257 01340 NORMEX
020525,001234:
020526,001235: # ..... END OF INITVEL ROUTINE .....
020527,001236:
020528,001237: # ..... MIDGIM .....
020529,001238: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
020530,001239: # REVISION 03, 17 FEB 67
020531,001240:
020532,001241: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
020533,001242: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
020534,001243: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
020535,001244: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
020536,001245: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
020537,001246:
020538,001247: # .. INPUTS ..
020539,001248: # NAME MEANING UNITS/SCALING/MODE
020540,001249: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
020541,001250: # COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER BIT
020542,001251: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
020543,001252: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
020544,001253: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
020545,001254:
020546,001255: # .. OUTPUTS ..
020547,001256: # NAME MEANING UNITS/SCALING/MODE
020548,001257: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
020549,001258: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
020550,001259: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
020551,001260:
020552,001261: # .. CALLING SEQUENCE ..
020553,001262: # L CALL
020554,001263: # L+1 MIDGIM
020555,001264: # L+2 (RETURN - ALWAYS)
020556,001265:
020557,001266: # .. NO SUBROUTINES CALLED ..
020558,001267:
020559,001268: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
020560,001269: # A,Q,L, PUSH LIST, MPAC.
020561,001270:
020562,001271: # .. ALARMS - NONE ..
020563,001272:
020564,001273: # MIDDLE GIMBAL ANGLE COMPUTATION.
020565,001274: 04,2000 SETLOC MIDDGIM
020566,001275: 04,2000 BANK
020567,001276:
020568,001277: 04,2645 COUNT* $$/MIDG
020569,001278:
020570,001279: 04,2645 20000 00000 HALFREV 2DEC 1 B-1
020571,001280:
020572,001281: 04,2647 43014 MIDGIM BON BOFF
020573,001282: 04,2650 01312 AVFLAG
020574,001283: 04,2651 10667 MIDGIM1
020575,001284: 04,2652 02747 COMPUTER
020576,001285: 04,2653 10672 GET.LVC
020577,001286:
020578,001287: # COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
020579,001288:
020580,001289: 04,2654 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
020581,001290: 04,2655 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
020582,001291: 04,2656 01744 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
020583,001292: 04,2657 51136 ARCSIN BPL
020584,001293: 04,2660 10664 SETMGA
020585,001294: 04,2661 43215 DAD DAD # CONVERT -MGA TO +MGA BY
020586,001295: 04,2662 10646 HALFREV # ADDING ONE REVOLUTION
020587,001296: 04,2663 10646 HALFREV
020588,001297: 04,2664 03626 SETMGA STORE +MGA
020589,001298: 04,2665 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
020590,001299: 04,2666 02675 MGLVFLAG # AND EXIT
020591,001300:
020592,001301: 04,2667 77614 MIDGIM1 BOFF
020593,001302: 04,2670 02747 COMPUTER
020594,001303: 04,2671 10654 GET+MGA
020595,001304:
020596,001305: # COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
020597,001306:
020598,001307: 04,2672 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
020599,001308: 04,2673 03570 RINIT
020600,001309: 04,2674 77676 VCOMP # U(-R)
020601,001310: 04,2675 00023 STORE 18D # U(-R) TO 18D
020602,001311: 04,2676 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
020603,001312: 04,2677 03576 VINIT
020604,001313: 04,2700 00015 STORE 12D # U(V*R) TO 12D
020605,001314: 04,2701 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
020606,001315: 04,2702 00023 18D
020607,001316: 04,2703 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
020608,001317: 04,2704 00001 0D # DELTA V (+7) IN 0D
020609,001318: 04,2705 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
020610,001319: 04,2706 00007 6D # AND SCALE +7 IN MPAC
020611,001320: 04,2707 03405 STORE DELVLVC # STORE IN DELVLVC (+7)
020612,001321: 04,2710 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
020613,001322: 04,2711 02475 MGLVFLAG # AND EXIT
020614,001323:
020615,001324: # ..... END OF MIDGIM ROUTINE .....
020616,001325:
020617,001326: 04,2712 77160 SELECTMU AXC,1 AXT,2
020618,001327: 04,2713 00002 2D
020619,001328: 04,2714 00000 0D
020620,001329: 04,2715 77614 BOFF
020621,001330: 04,2716 04343 CMOONFLG
020622,001331: 04,2717 10723 SETMUER
020623,001332: 04,2720 77160 AXC,1 AXT,2
020624,001333: 04,2721 00012 10D
020625,001334: 04,2722 00002 2D
020626,001335: 04,2723 66143 SETMUER DLOAD* SXA,1
020627,001336: 04,2724 11744 MUTABLE +4,1
020628,001337: 04,2725 03745 RTX1
020629,001338: 04,2726 23752 STODL* RTSR1/MU
020630,001339: 04,2727 11736 MUTABLE -2,1
020631,001340: 04,2730 54214 BOFF SR
020632,001341: 04,2731 04343 CMOONFLG
020633,001342: 04,2732 10734 RTRNMU
020634,001343: 04,2733 20607 6D
020635,001344: 04,2734 03750 RTRNMU STORE RTMU
020636,001345: 04,2735 43134 SXA,2 CLEAR
020637,001346: 04,2736 03746 RTX2
020638,001347: 04,2737 01271 FINALFLG
020639,001348: 04,2740 77650 GOTO
020640,001349: 04,2741 73002 VN1645
020641,001350:
020642,001351: # ..... PERIAPO .....
020643,001352: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
020644,001353: # MOD BY WHITE.P DATE 18JAN68
020645,001354:
020646,001355: # FUNCTIONAL DESCRIPTION
020647,001356:
020648,001357: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
020649,001358: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
020650,001359: # THE TRAJECTORY AND THE PRIMARY BODY.
020651,001360:
020652,001361: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
020653,001362:
020654,001363: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
020655,001364: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
020656,001365:
020657,001366: # CALLING SEQUENCE
020658,001367: # L CALL
020659,001368: # L+1 PERIAPO
020660,001369: # L+2 (RETURN - ALWAYS)
020661,001370:
020662,001371: # INPUT
020663,001372: # (1) RVEC POSITION VECTOR IN METERS
020664,001373: # SCALE FACTOR - EARTH +29, MOON +27
020665,001374: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
020666,001375: # SCALE FACTOR - EARTH +7, MOON +5
020667,001376: # (3) X1 PRIMARY BODY INDICATOR
020668,001377: # EARTH -2, MOON -10
020669,001378:
020670,001379: # OUTPUT
020671,001380: # (1) 2D APOCENTER RADIUS IN METERS
020672,001381: # SCALE FACTOR - EARTH +29, MOON +27
020673,001382: # (2) 4D APOCENTER ALTITUDE IN METERS
020674,001383: # SCALE FACTOR - EARTH +29, MOON P27
020675,001384: # (3) 6D PERICENTER RADIUS IN METERS
020676,001385: # SCALE FACTOR - EARTH +29, MOON +27
020677,001386: # (4) 8D PERICENTER ALTITUDE IN METERS
020678,001387: # SCALE FACTOR - EARTH +29, MOON +27
020679,001388: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
020680,001389: # SCALE FACTOR - +3
020681,001390: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
020682,001391: # SCALE FACTOR - EARTH +29, MOON +27
020683,001392: # (7) PUSHLOC EQUALS 10D
020684,001393:
020685,001394: # SUBROUTINES USED
020686,001395: # SETRAD
020687,001396: # APSIDES
020688,001397:
020689,001398: 22,2000 SETLOC APOPERI
020690,001399: 22,2000 BANK
020691,001400:
020692,001401: 22,3151 COUNT* $$/PERAP
020693,001402:
020694,001403: 22,3151 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
020695,001404: # = 20 909 901.57 FT
020696,001405:
020697,001406: 22,3153 53754 PERIAPO1 LXA,2 VSR*
020698,001407: 22,3154 03746 RTX2
020699,001408: 22,3155 57176 0,2
020700,001409: 22,3156 26746 STOVL VVEC
020701,001410: 22,3157 53750 LXA,1 VSR*
020702,001411: 22,3160 03745 RTX1
020703,001412: 22,3161 57176 0,2
020704,001413: 22,3162 02657 STORE RVEC
020705,001414: 22,3163 45020 PERIAPO STQ CALL
020706,001415: 22,3164 01340 NORMEX
020707,001416: 22,3165 45201 SETRAD
020708,001417: 22,3166 37456 STCALL XXXALT
020709,001418: 22,3167 25713 APSIDES
020710,001419: 22,3170 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
020711,001420: 22,3171 00003 2D
020712,001421: 22,3172 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
020713,001422: 22,3173 03456 XXXALT
020714,001423: 22,3174 00001 0D
020715,001424: 22,3175 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
020716,001425: 22,3176 03456 XXXALT
020717,001426: 22,3177 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
020718,001427: 22,3200 01340 NORMEX
020719,001428: # SETRAD
020720,001429: 22,3201 41545 SETRAD DLOAD PUSH
020721,001430: 22,3202 05152 RPAD
020722,001431: 22,3203 63130 SXA,1 INCR,2
020723,001432: 22,3204 00047 X2
020724,001433: 22,3205 00002 2D
020725,001434: 22,3206 46135 SLOAD BHIZ
020726,001435: 22,3207 00050 X2
020727,001436: 22,3210 45214 SETRADX
020728,001437: 22,3211 51575 VLOAD ABVAL
020729,001438: 22,3212 02026 RLS
020730,001439: 22,3213 77725 PDDL
020731,001440: 22,3214 43545 SETRADX DLOAD RVQ
020732,001441:
020733,001442: # PRECSET
020734,001443: 22,3215 77620 PRECSET STQ
020735,001444: 22,3216 01340 NORMEX
020736,001445: 22,3217 36635 STCALL TDEC2
020737,001446: 22,3220 27115 LEMPREC
020738,001447: 22,3221 77624 CALL
020739,001448: 22,3222 45233 LEMSTORE
020740,001449: 22,3223 77745 DLOAD
020741,001450: 22,3224 02635 TDEC2
020742,001451: 22,3225 34041 STCALL TDEC1
020743,001452: 22,3226 27101 CSMPREC
020744,001453: 22,3227 77624 CALL
020745,001454: 22,3230 45243 CSMSTORE
020746,001455: 22,3231 77650 GOTO
020747,001456: 22,3232 01340 NORMEX
020748,001457: 22,3233 43175 LEMSTORE VLOAD BOFF
020749,001458: 22,3234 00001 RATT
020750,001459: 22,3235 01352 AVFLAG
020751,001460: 22,3236 45247 PASSIVE
020752,001461: 22,3237 27540 ACTIVE STOVL RACT3
020753,001462: 22,3240 00007 VATT
020754,001463: 22,3241 03546 STORE VACT3
020755,001464: 22,3242 77616 RVQ
020756,001465: 22,3243 43175 CSMSTORE VLOAD BOFF
020757,001466: 22,3244 00001 RATT
020758,001467: 22,3245 01352 AVFLAG
020759,001468: 22,3246 45237 ACTIVE
020760,001469: 22,3247 27554 PASSIVE STOVL RPASS3
020761,001470: 22,3250 00007 VATT
020762,001471: 22,3251 03562 STORE VPASS3
020763,001472: 22,3252 77616 RVQ
020764,001473:
020765,001474: # VECSHIFT
020766,001475: 22,3253 53754 VECSHIFT LXA,2 VSR*
020767,001476: 22,3254 03746 RTX2
020768,001477: 22,3255 57176 0,2
020769,001478: 22,3256 63350 LXA,1 PDVL
020770,001479: 22,3257 03745 RTX1
020771,001480: 22,3260 63257 VSR* PDVL
020772,001481: 22,3261 57176 0,2
020773,001482: 22,3262 77616 RVQ
020774,001483:
020775,001484: # SHIFTR1
020776,001485: 22,3263 53754 SHIFTR1 LXA,2 SL*
020777,001486: 22,3264 03746 RTX2
020778,001487: 22,3265 57576 0,2
020779,001488: 22,3266 77616 RVQ
020780,001489:
020781,001490: # PROGRAM DESCRIPTION
020782,001491:
020783,001492: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
020784,001493: # MOD NO. 2 DATE 2 JANUARY 1969
020785,001494: # MOD BY A.W.BANCROFT LOG SECTION EXTENDED VERBS
020786,001495:
020787,001496: # FUNCTIONAL DESCRIPTION
020788,001497:
020789,001498: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
020790,001499: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY).
020791,001500:
020792,001501: # CALLING SEQUENCE
020793,001502: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
020794,001503:
020795,001504: # SUBROUTINES CALLED
020796,001505: # EXDSPRET
020797,001506: # GOMARKF
020798,001507: # CSMPREC
020799,001508: # LEMPREC
020800,001509: # SGNAGREE
020801,001510: # LOADTIME
020802,001511:
020803,001512: # NORMAL EXIT MODES
020804,001513: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
020805,001514:
020806,001515: # ALARM OR ABORT EXIT MODES
020807,001516: # NONE
020808,001517:
020809,001518: # OUTPUT
020810,001519: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
020811,001520:
020812,001521: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
020813,001522: # REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
020814,001523:
020815,001524: # ERASABLE INITIALIZATION REQUIRED
020816,001525: # CSM AND LEM STATE VECTORS
020817,001526:
020818,001527: # DEBRIS
020819,001528: # CENTRALS A,Q,L
020820,001529: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
020821,001530:
020822,001531: 20,2164 BANK 20
020823,001532: 20,2000 SETLOC R36CM
020824,001533: 20,2000 BANK
020825,001534: 20,2164 E4,1726 EBANK= RPASS36
020826,001535:
020827,001536: 20,2164 41,3727 SBANK= R36A
020828,001537: 20,2164 COUNT* $$/R36
020829,001538:
020830,001539: 20,2164 35032 R36 CAF TWO
020831,001540: 20,2165 55051 TS OPTIONX
020832,001541: 20,2166 35033 CAF ONE
020833,001542: 20,2167 55052 TS OPTIONX +1
020834,001543: 20,2170 32200 CAF OPTION36 # V 04 N 12
020835,001544: 20,2171 04676 TC BANKCALL
020836,001545: 20,2172 20561 CADR GOXDSPF
020837,001546: 20,2173 05550 TC ENDEXT # TERMINATE
020838,001547: 20,2174 02176 TC +2 # PROCEED
020839,001548: 20,2175 02170 TC -5 # R2 LOADED VIA DSKY
020840,001549: 20,2176 04715 TC POSTJUMP
020841,001550: 20,2177 63727 CADR R36A
020842,001551:
020843,001552: 20,2200 01014 OPTION36 VN 0412
020844,001553:
020845,001554: 41,2000 SETLOC R36LM
020846,001555: 41,2000 BANK
020847,001556:
020848,001557: 41,3727 22007 R36A ZL
020849,001558: 41,3730 35035 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
020850,001559: 41,3731 53052 DXCH DSPTEMX # DISPLAY
020851,001560: 41,3732 23742 LXCH OPTIONY # SAVE VEH. OPTION
020852,001561: 41,3733 33775 R36P3 CAF V06N16N
020853,001562: 41,3734 04676 TC BANKCALL
020854,001563: 41,3735 20561 CADR GOMARKF
020855,001564: 41,3736 15550 TCF ENDEXT # TERMINATE
020856,001565: 41,3737 13741 TCF +2 # PROCEED
020857,001566: 41,3740 13733 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
020858,001567: 41,3741 53052 DXCH DSPTEMX
020859,001568: 41,3742 00006 EXTEND
020860,001569: 41,3743 13764 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
020861,001570: 41,3744 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
020862,001571: 41,3745 06006 TC INTPRET
020863,001572: 41,3746 52034 RTB GOTO
020864,001573: 41,3747 45716 DPMODE
020865,001574: 41,3750 65521 R36INT
020866,001575:
020867,001576: 42,2000 SETLOC R36LM1
020868,001577: 42,2000 BANK
020869,001578:
020870,001579: 42,3521 00041 R36INT STORE TDEC1
020871,001580: 42,3522 70535 SLOAD SR1
020872,001581: 42,3523 02343 OPTIONY
020873,001582: 42,3524 45030 BHIZ CALL
020874,001583: 42,3525 65531 R36PROG2 # FOR CSM DISPLAY
020875,001584: 42,3526 27101 THISPREC # FOR LEM DISPLAY
020876,001585: 42,3527 77650 GOTO
020877,001586: 42,3530 65533 R36PROG3
020878,001587: 42,3531 77624 R36PROG2 CALL
020879,001588: 42,3532 27115 OTHPREC
020880,001589: 42,3533 63375 R36PROG3 VLOAD PDVL
020881,001590: 42,3534 00007 VATT
020882,001591: 42,3535 00001 RATT # -
020883,001592: 42,3536 02327 STORE RPASS36 # R
020884,001593: 42,3537 63256 UNIT PDVL # P
020885,001594: 42,3540 53435 VXV UNIT # -
020886,001595: 42,3541 77626 STADR
020887,001596: 42,3542 61442 STODL UNP36 # U
020888,001597: 42,3543 00015 TAT
020889,001598: 42,3544 00041 STORE TDEC1
020890,001599: 42,3545 70535 SLOAD SR1
020891,001600: 42,3546 02343 OPTIONY
020892,001601: 42,3547 45030 BHIZ CALL
020893,001602: 42,3550 65554 R36PROG4 # FOR CSM DISPLAY
020894,001603: 42,3551 27115 OTHPREC # FOR LEM DISPLAY
020895,001604: 42,3552 77650 GOTO
020896,001605: 42,3553 65556 R36PROG5
020897,001606: 42,3554 77624 R36PROG4 CALL
020898,001607: 42,3555 27101 THISPREC
020899,001608: 42,3556 63375 R36PROG5 VLOAD PDVL # -
020900,001609: 42,3557 00007 VATT # VELOCITY VECTOR V 00D
020901,001610: 42,3560 00001 RATT # A
020902,001611: 42,3561 77725 PDDL
020903,001612: 42,3562 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
020904,001613: 42,3563 24037 STOVL 30D # -
020905,001614: 42,3564 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
020906,001615: 42,3565 63245 BVSU PDVL # A - -
020907,001616: 42,3566 02327 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
020908,001617: 42,3567 72441 DOT SL1 # P A
020909,001618: 42,3570 02335 UNP36 # - -
020910,001619: 42,3571 26321 STOVL RANGE # Y = U . R
020911,001620: 42,3572 00001 00D # A
020912,001621: 42,3573 72441 DOT SL1
020913,001622: 42,3574 02335 UNP36 # . - -
020914,001623: 42,3575 26323 STOVL RRATE # Y = U . V
020915,001624: 42,3576 00007 06D # - A -
020916,001625: 42,3577 41456 UNIT PUSH # U = UNIT ( R ) 18D
020917,001626: 42,3600 47235 VXV VXV # RA A
020918,001627: 42,3601 00001 00D # - - - -
020919,001628: 42,3602 00023 18D # (U X V ) X U = U
020920,001629: 42,3603 53552 VSL2 UNIT # RA A RA A
020921,001630: 42,3604 52056 UNIT GOTO
020922,001631: 42,3605 61606 R36B
020923,001632:
020924,001633: 40,2000 SETLOC R36CM1
020925,001634: 40,2000 BANK
020926,001635:
020927,001636: 40,3606 24001 R36B STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
020928,001637: 40,3607 00023 18D
020929,001638: 40,3610 74241 DOT VXSC # -
020930,001639: 40,3611 00015 12D # U
020931,001640: 40,3612 77752 VSL2 # L
020932,001641: 40,3613 53445 BVSU UNIT
020933,001642: 40,3614 77656 UNIT
020934,001643: 40,3615 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
020935,001644: 40,3616 00001 00D # PLANE
020936,001645: 40,3617 65552 SL1 ARCCOS # - -
020937,001646: 40,3620 26325 STOVL RTHETA # PSI = ARCCOS(U . U )
020938,001647: 40,3621 50235 VXV DOT # A L
020939,001648: 40,3622 00001 00D
020940,001649: 40,3623 71244 BPL DLOAD
020941,001650: 40,3624 63751 R36TAG2
020942,001651: 40,3625 15342 DPPOSMAX
020943,001652: 40,3626 77625 DSU
020944,001653: 40,3627 02325 RTHETA
020945,001654: 40,3630 36325 STCALL RTHETA
020946,001655: 40,3631 63751 R36TAG2
020947,001656:
020948,001657: 41,2000 SETLOC R36LM
020949,001658: 41,2000 BANK
020950,001659:
020951,001660: 41,3751 47145 R36TAG2 DLOAD RTB
020952,001661: 41,3752 00037 30D
020953,001662: 41,3753 45544 SGNAGREE
020954,001663: 41,3754 01052 STORE DSPTEMX
020955,001664: 41,3755 77776 EXIT
020956,001665: 41,3756 33776 CAF V06N90N # DISPLAY Y, YDOT, AND PSI
020957,001666: 41,3757 04676 TC BANKCALL
020958,001667: 41,3760 20561 CADR GOMARKF
020959,001668: 41,3761 15550 TCF ENDEXT # TERMINATE
020960,001669: 41,3762 15550 TCF ENDEXT # PROCEED, END OF PROGRAM
020961,001670: 41,3763 13733 TCF R36P3 # REDISPLAY OUTPUT
020962,001671: 41,3764 56001 LREGCHK XCH L
020963,001672: 41,3765 00006 EXTEND
020964,001673: 41,3766 13771 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
020965,001674: 41,3767 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
020966,001675: 41,3770 13744 TCF ASTROTIM
020967,001676: 41,3771 06006 ENTTIM2 TC INTPRET
020968,001677: 41,3772 52034 RTB GOTO
020969,001678: 41,3773 45510 LOADTIME
020970,001679: 41,3774 65521 R36INT
020971,001680: 41,3775 01420 V06N16N VN 00616
020972,001681: 41,3776 01532 V06N90N VN 00690
020973,001682: 41,3777 30,2000 SBANK= LOWSUPER
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc