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