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