ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
019944,000002: ## Copyright: Public domain.
019945,000003: ## Filename: P34-35_P74-75.agc
019946,000004: ## Purpose: Part of the source code for Colossus, build 249.
019947,000005: ## It is part of the source code for the Command Module's (CM)
019948,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
019949,000007: ## Assembler: yaYUL
019950,000008: ## Reference: pp. 452-495.
019951,000009: ## Contact: Ron Burkey <info@sandroid.org>.
019952,000010: ## Website: www.ibiblio.org/apollo.
019953,000011: ## Mod history: 08/11/04 RSB. Began adapting from corresponding Luminary131
019954,000012: ## source file.
019955,000013: ## 2010-08-29 JL Added missing comment characters.
019956,000014: ## 2011-05-07 JL Removed workaround.
019957,000015: ## 2017-01-06 RSB Page numbers now agree with those on the
019958,000016: ## original harcopy, as opposed to the PDF page
019959,000017: ## numbers in 1701.pdf.
019960,000018: ## 2017-01-17 RSB Cross-diff'd comment text (not whitespace)
019961,000019: ## vs the already-proofed corresponding Colossus
019962,000020: ## 237 and Comanche 55 source-code files
019963,000021: ## and corrected errors found.
019964,000022: ## 2017-01-28 RSB Back-ported some comment fixes I noticed while
019965,000023: ## proofing Artemis 72.
019966,000024: ## 2017-03-09 RSB Fixed VNP00H to VNPOOH.
019967,000025: ##
019968,000026: ## The contents of the "Colossus249" files, in general, are transcribed
019969,000027: ## from a scanned copy of the program listing. Notations on this
019970,000028: ## document read, in part:
019971,000029: ##
019972,000030: ## Assemble revision 249 of AGC program Colossus by NASA
019973,000031: ## 2021111-041. October 28, 1968.
019974,000032: ##
019975,000033: ## This AGC program shall also be referred to as
019976,000034: ## Colossus 1A
019977,000035: ##
019978,000036: ## Prepared by
019979,000037: ## Massachusetts Institute of Technology
019980,000038: ## 75 Cambridge Parkway
019981,000039: ## Cambridge, Massachusetts
019982,000040: ## under NASA contract NAS 9-4065.
019983,000041: ##
019984,000042: ## Refer directly to the online document mentioned above for further information.
019985,000043: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
019986,000044: ##
019987,000045: ## In some cases, where the source code for Luminary 131 overlaps that of
019988,000046: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
019989,000047: ## source file, and then is proofed to incorporate any changes.
019990,000048:
|
|
Page 452 |
019992,000050: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
019993,000051: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
019994,000052: # MOD BY WHITE.P DATE 1 JUNE 67
019995,000053:
019996,000054: # PURPOSE
019997,000055: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019998,000056: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019999,000057: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
020000,000058: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
020001,000059: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
020002,000060: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
020003,000061: # INTERCEPT TIME (TIG (TPF)).
020004,000062: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
020005,000063: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
020006,000064: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
020007,000065: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020008,000066: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020009,000067: # ASTRONAUT/GROUND.
020010,000068: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
020011,000069: # THRUSTING PROGRAM.
020012,000070:
020013,000071: # ASSUMPTIONS
020014,000072: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
020015,000073: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
020016,000074: # THEREFORE -
020017,000075: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
020018,000076: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
020019,000077: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
020020,000078: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
020021,000079: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
020022,000080: # COMPUTED TO BE GREATER THAN 10 MINUTES.
020023,000081: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
020024,000082: # ORBITS WAS MINIMIZED.
020025,000083: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
020026,000084: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
|
|
Page 453 |
020028,000086: # ORBIT OR 85 NM FOR EARTH ORBIT.
020029,000087: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
020030,000088: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
020031,000089: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
020032,000090: # IN AN OUT-OF-PLANE MANEUVER.
020033,000091: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
020034,000092: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
020035,000093: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
020036,000094: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
020037,000095: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
020038,000096: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
020039,000097: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
020040,000098: # FLIGHT PLAN MANEUVER SEQUENCES.
020041,000099: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
020042,000100: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
020043,000101: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
020044,000102: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
020045,000103: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
020046,000104: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
020047,000105: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
020048,000106: # THRUSTING MANEUVER.
020049,000107: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020050,000108: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020051,000109:
020052,000110: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020053,000111: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020054,000112: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
020055,000113: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020056,000114:
020057,000115: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020058,000116: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020059,000117:
020060,000118: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020061,000119: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020062,000120: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020063,000121:
020064,000122: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
020065,000123: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020066,000124: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020067,000125: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020068,000126: # THROUGH THE USE OF V06N52.
020069,000127:
020070,000128: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020071,000129: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
|
|
Page 454 |
020073,000131: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
020074,000132: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020075,000133: # UPON DELTA V AND EXPECTED MANEUVER TIME.
020076,000134: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020077,000135:
020078,000136: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
020079,000137:
020080,000138: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
020081,000139:
020082,000140: # INPUT
020083,000141: # (1) TTPI TIME OF THE TPI MANEUVER
020084,000142: # (2) ELEV DESIRED LOS ANGLE AT TPI
020085,000143: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020086,000144: # TRANSFER FROM TPI TO TIME OF INTERCEPT
020087,000145:
020088,000146: # OUTPUT
020089,000147: # (1) TRKMKCNT NUMBER OF MARKS
020090,000148: # (2) TTOGO TIME TO GO
020091,000149: # (3) +MGA MIDDLE GIMBAL ANGLE
020092,000150: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
020093,000151: # OR
020094,000152: # ELEV COMPUTED LOS ANGLE AT TPI
020095,000153: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
020096,000154: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
020097,000155: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
020098,000156: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
020099,000157: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
020100,000158:
020101,000159: # DOWNLINK
020102,000160: # (1) TTPI TIME OF THE TPI MANEUVER
020103,000161: # (2) TIG TIME OF THE TPI MANEUVER
020104,000162: # (3) ELEV DESIRED LOS ANGLE AT TPI
020105,000163: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
020106,000164: # TRANSFER FROM TPI TO TIME OF INTERCEPT
020107,000165: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
020108,000166: # (6) TPASS4 TIME OF INTERCEPT
020109,000167:
020110,000168: # COMMUNICATION TO THRUSTING PROGRAMS
020111,000169: # (1) TIG TIME OF THE TPI MANEUVER
020112,000170: # (2) RTARG OFFSET TARGET POSITION
020113,000171: # (3) TPASS4 TIME OF INTERCEPT
020114,000172: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020115,000173:
020116,000174: # SUBROUTINES USED
020117,000175: # AVFLAGA
|
|
Page 455 |
020119,000177: # AVFLAGP
020120,000178: # VNPOOH
020121,000179: # DISPLAYE
020122,000180: # SELECTMU
020123,000181: # PRECSET
020124,000182: # S33/34.1
020125,000183: # ALARM
020126,000184: # BANKCALL
020127,000185: # GOFLASH
020128,000186: # GOTOPOOH
020129,000187: # TIMETHET
020130,000188: # S34/35.2
020131,000189: # PERIAPO1
020132,000190: # SHIFTR1
020133,000191: # S34/35.5
020134,000192: # VN1645
020135,000193:
020136,000194: 35,2000 SETLOC CSI/CDH
020137,000195: 35,2000 BANK
020138,000196: 35,2000 E4,1770 EBANK= SUBEXIT
020139,000197: 35,2000 COUNT 35/P3474
020140,000198: 35,2000 03726 P34 TC AVFLAGA
020141,000199: 35,2001 02003 TC P34/P74A
020142,000200: 35,2002 03741 P74 TC AVFLAGP
020143,000201: 35,2003 03746 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
020144,000202: 35,2004 33125 CAF V06N37 # TTPI
020145,000203: 35,2005 03114 TC VNPOOH
020146,000204: 35,2006 03073 TC DISPLAYE # ELEV AND CENTANG
020147,000205: 35,2007 06006 TC INTPRET
020148,000206: 35,2010 71214 CLEAR DLOAD
020149,000207: 35,2011 01270 ETPIFLAG
020150,000208: 35,2012 03663 TTPI
020151,000209: 35,2013 17413 STODL TIG
020152,000210: 35,2014 03744 ELEV
020153,000211: 35,2015 43054 BZE SET
020154,000212: 35,2016 72020 P34/P74B
020155,000213: 35,2017 01070 ETPIFLAG
020156,000214: 35,2020 77624 P34/P74B CALL
020157,000215: 35,2021 10716 SELECTMU
020158,000216: 35,2022 DELELO EQUALS 26D
020159,000217: 35,2022 43145 P34/P74C DLOAD SET
020160,000218: 35,2023 15332 ZEROVECS
020161,000219: 35,2024 03461 ITSWICH
020162,000220: 35,2025 43014 BON CLEAR
020163,000221: 35,2026 01310 ETPIFLAG
020164,000222: 35,2027 72031 SWCHSET
020165,000223: 35,2030 03661 ITSWICH
020166,000224: 35,2031 02364 SWCHSET STORE NOMTPI
020167,000225: 35,2032 43345 INTLOOP DLOAD DAD
|
|
Page 456 |
020169,000227: 35,2033 03663 TTPI
020170,000228: 35,2034 02364 NOMTPI
020171,000229: 35,2035 34041 STCALL TDEC1
020172,000230: 35,2036 45354 PRECSET
020173,000231: 35,2037 77624 CALL
020174,000232: 35,2040 72212 S33/34.1
020175,000233: 35,2041 77454 BZE EXIT
020176,000234: 35,2042 72053 SWCHCLR
020177,000235: 35,2043 05537 TC ALARM
020178,000236: 35,2044 00611 OCT 611
020179,000237: 35,2045 34743 CAF V05N09
020180,000238: 35,2046 04555 TC BANKCALL
020181,000239: 35,2047 20624 CADR GOFLASH
020182,000240: 35,2050 04106 TC GOTOPOOH
020183,000241: 35,2051 02003 TC P34/P74A # PROCEED
020184,000242: 35,2052 02043 TC -7 # V32
020185,000243:
020186,000244: 35,2053 43014 SWCHCLR BONCLR BON
020187,000245: 35,2054 03601 ITSWICH
020188,000246: 35,2055 72032 INTLOOP
020189,000247: 35,2056 01310 ETPIFLAG
020190,000248: 35,2057 72063 P34/P74D # DISPLAY TTPI
020191,000249: 35,2060 77776 EXIT
020192,000250: 35,2061 03073 TC DISPLAYE # DISPLAY ELEV AND CENTANG
020193,000251: 35,2062 02066 TC P34/P74E
020194,000252: 35,2063 77776 P34/P74D EXIT
020195,000253: 35,2064 33125 CAF V06N37 # TTPI
020196,000254: 35,2065 03114 TC VNPOOH
020197,000255: 35,2066 06006 P34/P74E TC INTPRET
020198,000256: 35,2067 71201 SETPD DLOAD
020199,000257: 35,2070 00001 0D
020200,000258: 35,2071 03746 RTX1
020201,000259: 35,2072 14047 STODL X1
020202,000260: 35,2073 03754 CENTANG
020203,000261: 35,2074 71406 PUSH COS
020204,000262: 35,2075 16734 STODL CSTH
020205,000263: 35,2076 77756 SIN
020206,000264: 35,2077 26732 STOVL SNTH
020207,000265: 35,2100 03554 RPASS3
020208,000266: 35,2101 77657 VSR*
020209,000267: 35,2102 57176 0,2
020210,000268: 35,2103 26657 STOVL RVEC
020211,000269: 35,2104 03562 VPASS3
020212,000270: 35,2105 43057 VSR* SET
020213,000271: 35,2106 57176 0,2
020214,000272: 35,2107 03466 RVSW
020215,000273: 35,2110 36746 STCALL VVEC
020216,000274: 35,2111 24737 TIMETHET
020217,000275: 35,2112 77745 DLOAD
020218,000276: 35,2113 03663 TTPI
|
|
Page 457 |
020220,000278: 35,2114 03503 STORE INTIME # FOR INITVEL
020221,000279: 35,2115 77615 DAD
020222,000280: 35,2116 00037 T # RENDEZVOUS TIME
020223,000281: 35,2117 37656 STCALL TPASS4 # FOR INITVEL
020224,000282: 35,2120 72534 S34/35.2
020225,000283: 35,2121 51575 VLOAD ABVAL
020226,000284: 35,2122 03646 DELVEET3
020227,000285: 35,2123 26635 STOVL DELVTPI
020228,000286: 35,2124 03640 VPASS4
020229,000287: 35,2125 51451 VSU ABVAL
020230,000288: 35,2126 03620 VTPRIME
020231,000289: 35,2127 26637 STOVL DELVTPF
020232,000290: 35,2130 03540 RACT3
020233,000291: 35,2131 45115 PDVL CALL
020234,000292: 35,2132 03612 VIPRIME
020235,000293: 35,2133 45312 PERIAPO1
020236,000294: 35,2134 77624 CALL
020237,000295: 35,2135 45422 SHIFTR1
020238,000296: 35,2136 16641 STODL POSTTPI
020239,000297: 35,2137 03663 TTPI
020240,000298: 35,2140 03413 STORE TIG
020241,000299: 35,2141 77776 EXIT
020242,000300: 35,2142 33127 CAF V06N58
020243,000301: 35,2143 03114 TC VNPOOH
020244,000302: 35,2144 06006 TC INTPRET
020245,000303: 35,2145 77624 CALL
020246,000304: 35,2146 72742 S34/35.5
020247,000305: 35,2147 77624 CALL
020248,000306: 35,2150 73005 VN1645
020249,000307: 35,2151 77650 GOTO
020250,000308: 35,2152 72022 P34/P74C
020251,000309:
|
|
Page 458 |
020253,000311: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020254,000312: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
020255,000313: # MOD BY WHITE.P DATE 1 JUNE 67
020256,000314:
020257,000315: # PURPOSE
020258,000316: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020259,000317: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020260,000318: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020261,000319: # VEHICLE RENDEZVOUS.
020262,000320: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020263,000321: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020264,000322: # ASTRONAUT/GROUND.
020265,000323: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020266,000324: # THRUSTING PROGRAM.
020267,000325:
020268,000326: # ASSUMPTIONS
020269,000327: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020270,000328: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020271,000329: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020272,000330: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
020273,000331: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
020274,000332: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020275,000333: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
020276,000334: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020277,000335: # P20 AND AFTER EACH THRUSTING MANEUVER.
020278,000336: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020279,000337:
020280,000338: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020281,000339: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020282,000340: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
020283,000341: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020284,000342:
020285,000343: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020286,000344: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020287,000345:
020288,000346: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020289,000347: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020290,000348: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020291,000349:
020292,000350: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020293,000351: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020294,000352: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
|
|
Page 459 |
020296,000354: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
020297,000355: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020298,000356: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020299,000357: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020300,000358: # THROUGH THE USE OF V06N52.
020301,000359:
020302,000360: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020303,000361: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020304,000362: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
020305,000363: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020306,000364: # UPON DELTA V AND EXPECTED MANEUVER TIME.
020307,000365: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020308,000366:
020309,000367: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020310,000368:
020311,000369: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020312,000370:
020313,000371: # INPUT
020314,000372: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
020315,000373:
020316,000374: # OUTPUT
020317,000375: # (1) TRKMKCNT NUMBER OF MARKS
020318,000376: # (2) TTOGO TIME TO GO
020319,000377: # (3) +MGA MIDDLE GIMBAL ANGLE
020320,000378: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
020321,000379: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020322,000380:
020323,000381: # DOWNLINK
020324,000382: # (1) TIG TIME OF THE TPM MANEUVER
020325,000383: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020326,000384: # (3) TPASS4 TIME OF INTERCEPT
020327,000385:
020328,000386: # COMMUNICATION TO THRUSTING PROGRAMS
020329,000387: # (1) TIG TIME OF THE TPM MANEUVER
020330,000388: # (2) RTARG OFFSET TARGET POSITION
020331,000389: # (3) TPASS4 TIME OF INTERCEPT
020332,000390: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020333,000391:
020334,000392: # SUBROUTINES USED
020335,000393: # AVFLAGA
020336,000394: # AVFLAGP
020337,000395: # LOADTIME
020338,000396: # SELECTMU
020339,000397: # PRECSET
020340,000398: # S34/35.1
020341,000399: # S34/35.2
|
|
Page 460 |
020343,000401: # S34/35.5
020344,000402: # VN1645
020345,000403:
020346,000404: 35,2153 COUNT 35/P3575
020347,000405: 35,2153 E4,1763 EBANK= KT
020348,000406:
020349,000407: 35,2153 03726 P35 TC AVFLAGA
020350,000408: 35,2154 00006 EXTEND
020351,000409: 35,2155 31422 DCA ATIGINC
020352,000410: 35,2156 02162 TC P35/P75A
020353,000411: 35,2157 03741 P75 TC AVFLAGP
020354,000412: 35,2160 00006 EXTEND
020355,000413: 35,2161 31424 DCA PTIGINC
020356,000414: 35,2162 53764 P35/P75A DXCH KT
020357,000415: 35,2163 03746 TC P20FLGON # SET UPDATFLG, TRACKFLG
020358,000416: 35,2164 06006 TC INTPRET
020359,000417: 35,2165 77624 CALL
020360,000418: 35,2166 10716 SELECTMU
020361,000419: 35,2167 77634 P35/P75B RTB
020362,000420: 35,2170 45505 LOADTIME
020363,000421: 35,2171 03665 STORE TSTRT
020364,000422: 35,2172 77615 DAD
020365,000423: 35,2173 02364 KT
020366,000424: 35,2174 03413 STORE TIG
020367,000425: 35,2175 03503 STORE INTIME # FOR INITVEL
020368,000426: 35,2176 34041 STCALL TDEC1
020369,000427: 35,2177 45354 PRECSET # ADVANCE BOTH VEHICLES
020370,000428: 35,2200 77624 CALL
020371,000429: 35,2201 72522 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
020372,000430: 35,2202 77624 CALL
020373,000431: 35,2203 72534 S34/35.2 # GET DELTA V(LV)
020374,000432: 35,2204 77624 CALL
020375,000433: 35,2205 72742 S34/35.5
020376,000434: 35,2206 77624 CALL
020377,000435: 35,2207 73005 VN1645
020378,000436: 35,2210 77650 GOTO
020379,000437: 35,2211 72167 P35/P75B
|
|
Page 461 |
020381,000439: # ..... S33/34.1 .....
020382,000440:
020383,000441: 35,2212 66220 S33/34.1 STQ SSP
020384,000442: 35,2213 01340 NORMEX
020385,000443: 35,2214 03665 TITER
020386,000444: 35,2215 40000 OCT 40000
020387,000445: 35,2216 40345 DLOAD SETPD
020388,000446: 35,2217 33136 MAX250
020389,000447: 35,2220 00001 0D
020390,000448: 35,2221 27454 STOVL SECMAX
020391,000449: 35,2222 03540 RACT3
020392,000450: 35,2223 27576 STOVL RAPREC
020393,000451: 35,2224 03546 VACT3
020394,000452: 35,2225 27570 STOVL VAPREC
020395,000453: 35,2226 03554 RPASS3
020396,000454: 35,2227 27620 STOVL RPPREC
020397,000455: 35,2230 03562 VPASS3
020398,000456: 35,2231 03612 STORE VPPREC
020399,000457: 35,2232 77624 ELCALC CALL
020400,000458: 35,2233 72522 S34/35.1 # NORMAL AND LOS
020401,000459: 35,2234 63235 VXV PDVL
020402,000460: 35,2235 03540 RACT3 # (RA*VA)*RA 0D
020403,000461: 35,2236 53515 PDVL UNIT # ULOS AT 6D
020404,000462: 35,2237 03540 RACT3
020405,000463: 35,2240 46315 PDVL VPROJ # XCHNJ AND UP
020406,000464: 35,2241 51352 VSL2 BVSU
020407,000465: 35,2242 02625 ULOS
020408,000466: 35,2243 63256 UNIT PDVL # UP AT 0D
020409,000467: 35,2244 63241 DOT PDVL # UP.UN*RA AT 0D
020410,000468: 35,2245 00001 0D # UP IN MPAC
020411,000469: 35,2246 75241 DOT SIGN
020412,000470: 35,2247 02625 ULOS
020413,000471: 35,2250 65552 SL1 ACOS
020414,000472: 35,2251 50315 PDVL DOT # EA AT 0D
020415,000473: 35,2252 02625 ULOS
020416,000474: 35,2253 03540 RACT3
020417,000475: 35,2254 71244 BPL DLOAD
020418,000476: 35,2255 72260 TESTY
020419,000477: 35,2256 15340 DPPOSMAX
020420,000478: 35,2257 41425 DSU PUSH
020421,000479: 35,2260 71214 TESTY BOFF DLOAD
020422,000480: 35,2261 03741 ITSWICH
020423,000481: 35,2262 72507 ELEX
020424,000482: 35,2263 03452 DELEL
020425,000483: 35,2264 14033 STODL DELELO
020426,000484: 35,2265 77625 DSU
020427,000485: 35,2266 03744 ELEV
020428,000486: 35,2267 03452 STORE DELEL
020429,000487: 35,2270 45246 ABS DSU
020430,000488: 35,2271 33142 ELEPS
|
|
Page 462 |
020432,000490: 35,2272 77640 BMN
020433,000491: 35,2273 72517 TIMEX # COMMERCIALS EVERYWHERE
020434,000492: 35,2274 70535 FIGTIME SLOAD SR1
020435,000493: 35,2275 03665 TITER
020436,000494: 35,2276 72030 BHIZ LXA,1
020437,000495: 35,2277 01340 NORMEX # TOO MANY ITERATIONS
020438,000496: 35,2300 00154 MPAC
020439,000497: 35,2301 77330 SXA,1 VLOAD
020440,000498: 35,2302 03664 TITER
020441,000499: 35,2303 03554 RPASS3
020442,000500: 35,2304 65256 UNIT PDDL
020443,000501: 35,2305 00045 36D
020444,000502: 35,2306 53515 PDVL UNIT
020445,000503: 35,2307 03540 RACT3
020446,000504: 35,2310 77725 PDDL
020447,000505: 35,2311 41525 PDDL PUSH
020448,000506: 35,2312 00045 36D
020449,000507: 35,2313 77621 BDSU
020450,000508: 35,2314 00015 12D
020451,000509: 35,2315 14037 STODL 30D # RP-RA MAGNITUDES
020452,000510: 35,2316 15330 DPHALF
020453,000511: 35,2317 41425 DSU PUSH
020454,000512: 35,2320 03744 ELEV
020455,000513: 35,2321 50165 SIGN BMN
020456,000514: 35,2322 00037 30D
020457,000515: 35,2323 01340 NORMEX
020458,000516: 35,2324 71545 DLOAD COS
020459,000517: 35,2325 56205 DMP DDV
020460,000518: 35,2326 00017 14D
020461,000519: 35,2327 00015 12D
020462,000520: 35,2330 77676 DCOMP # SINCE COS(180-A)=-COS A
020463,000521: 35,2331 00035 STORE 28D
020464,000522: 35,2332 44246 ABS BDSU
020465,000523: 35,2333 15330 DPHALF
020466,000524: 35,2334 77240 BMN VLOAD
020467,000525: 35,2335 01340 NORMEX
020468,000526: 35,2336 02617 UNRM
020469,000527: 35,2337 53435 VXV UNIT
020470,000528: 35,2340 00007 6D # UN*RA
020471,000529: 35,2341 41241 DOT DMP
020472,000530: 35,2342 03546 VACT3
020473,000531: 35,2343 00015 12D
020474,000532: 35,2344 47315 PDVL VXV
020475,000533: 35,2345 00001 0D
020476,000534: 35,2346 03562 VPASS3
020477,000535: 35,2347 53435 VXV UNIT
020478,000536: 35,2350 00001 0D # (RP*VP)*RP
020479,000537: 35,2351 41241 DOT DMP
020480,000538: 35,2352 03562 VPASS3
020481,000539: 35,2353 00017 14D
|
|
Page 463 |
020483,000541: 35,2354 77621 BDSU
020484,000542: 35,2355 63301 NORM PDVL # NORMALIZED WA-WP 12D
020485,000543: 35,2356 00047 X1
020486,000544: 35,2357 00007 6D
020487,000545: 35,2360 50235 VXV DOT
020488,000546: 35,2361 00001 0D
020489,000547: 35,2362 02617 UNRM # RA*RP.UN 14D
020490,000548: 35,2363 50315 PDVL DOT
020491,000549: 35,2364 00001 0D
020492,000550: 35,2365 00007 6D
020493,000551: 35,2366 65552 SL1 ACOS
020494,000552: 35,2367 77765 SIGN
020495,000553: 35,2370 43225 DSU DAD # ALPHA PI
020496,000554: 35,2371 15330 DPHALF
020497,000555: 35,2372 03744 ELEV
020498,000556: 35,2373 65525 PDDL ACOS
020499,000557: 35,2374 00035 28D
020500,000558: 35,2375 75221 BDSU SIGN
020501,000559: 35,2376 15330 DPHALF
020502,000560: 35,2377 00037 30D # CONTAINS RP-RA
020503,000561: 35,2400 77615 DAD
020504,000562: 35,2401 56205 DMP DDV
020505,000563: 35,2402 33134 TWOPI
020506,000564: 35,2403 77605 DMP
020507,000565: 35,2404 41257 SL* DMP
020508,000566: 35,2405 20176 0 -3,1
020509,000567: 35,2406 51406 PUSH ABS
020510,000568: 35,2407 50025 DSU BMN
020511,000569: 35,2410 03454 SECMAX
020512,000570: 35,2411 72415 OKMAX
020513,000571: 35,2412 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
020514,000572: 35,2413 03454 SECMAX
020515,000573: 35,2414 77606 PUSH
020516,000574: 35,2415 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
020517,000575: 35,2416 03665 TITER
020518,000576: 35,2417 72425 REPETE
020519,000577: 35,2420 71331 SSP DLOAD
020520,000578: 35,2421 03665 TITER
020521,000579: 35,2422 37777 OCT 37777
020522,000580: 35,2423 77650 GOTO
020523,000581: 35,2424 72463 STORDELT
020524,000582: 35,2425 41345 REPETE DLOAD DMP
020525,000583: 35,2426 03452 DELEL
020526,000584: 35,2427 00033 DELELO
020527,000585: 35,2430 71244 BPL DLOAD
020528,000586: 35,2431 72441 NEXTES
020529,000587: 35,2432 03454 SECMAX
020530,000588: 35,2433 77605 DMP
020531,000589: 35,2434 33140 THIRD
020532,000590: 35,2435 17454 STODL SECMAX
|
|
Page 464 |
020534,000592: 35,2436 70446 ABS SR1 # CROSSED OVER SOLUTION
020535,000593: 35,2437 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
020536,000594: 35,2440 72451 RESIGN
020537,000595: 35,2441 51545 NEXTES DLOAD ABS
020538,000596: 35,2442 03452 DELEL
020539,000597: 35,2443 51525 PDDL ABS
020540,000598: 35,2444 00033 DELELO
020541,000599: 35,2445 77625 DSU
020542,000600: 35,2446 71240 BMN DLOAD
020543,000601: 35,2447 72454 REVERS # WRONG DIRECTION
020544,000602: 35,2450 77646 ABS
020545,000603: 35,2451 52165 RESIGN SIGN GOTO
020546,000604: 35,2452 03450 DELTEEO
020547,000605: 35,2453 72463 STORDELT
020548,000606: 35,2454 57545 REVERS DLOAD DCOMP
020549,000607: 35,2455 03450 DELTEEO
020550,000608: 35,2456 70406 PUSH SR1
020551,000609: 35,2457 03450 STORE DELTEEO
020552,000610: 35,2460 77615 DAD
020553,000611: 35,2461 77650 GOTO
020554,000612: 35,2462 72464 ADTIME
020555,000613: 35,2463 03450 STORDELT STORE DELTEEO
020556,000614: 35,2464 77615 ADTIME DAD
020557,000615: 35,2465 02364 NOMTPI # SUM OF DELTA T:S
020558,000616: 35,2466 02364 STORE NOMTPI
020559,000617: 35,2467 63375 VLOAD PDVL
020560,000618: 35,2470 03570 VAPREC
020561,000619: 35,2471 03576 RAPREC
020562,000620: 35,2472 77624 CALL
020563,000621: 35,2473 72702 GOINT
020564,000622: 35,2474 77624 CALL
020565,000623: 35,2475 45376 ACTIVE # STORE NEW RACT3 VACT3
020566,000624: 35,2476 63375 VLOAD PDVL
020567,000625: 35,2477 03612 VPPREC
020568,000626: 35,2500 03620 RPPREC
020569,000627: 35,2501 77624 CALL
020570,000628: 35,2502 72702 GOINT
020571,000629: 35,2503 77624 CALL
020572,000630: 35,2504 45406 PASSIVE # STORE NEW RPASS3 VPASS3
020573,000631: 35,2505 77650 GOTO
020574,000632: 35,2506 72232 ELCALC
020575,000633: 35,2507 43345 ELEX DLOAD DAD
020576,000634: 35,2510 03663 TTPI
020577,000635: 35,2511 02364 NOMTPI
020578,000636: 35,2512 17663 STODL TTPI
020579,000637: 35,2513 77614 BON
020580,000638: 35,2514 01310 ETPIFLAG
020581,000639: 35,2515 72517 TIMEX
020582,000640: 35,2516 03744 STORE ELEV
020583,000641: 35,2517 52145 TIMEX DLOAD GOTO
|
|
Page 465 |
020585,000643: 35,2520 15332 ZEROVECS
020586,000644: 35,2521 01340 NORMEX
020587,000645:
|
|
Page 466 |
020589,000647: # ..... S34/35.1 .....
020590,000648:
020591,000649: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020592,000650: # PASSIVE POS AND VEL AT TIME T3
020593,000651:
020594,000652: 35,2522 52375 S34/35.1 VLOAD VSU
020595,000653: 35,2523 03554 RPASS3
020596,000654: 35,2524 03540 RACT3
020597,000655: 35,2525 41456 UNIT PUSH
020598,000656: 35,2526 26625 STOVL ULOS
020599,000657: 35,2527 03540 RACT3
020600,000658: 35,2530 53435 VXV UNIT
020601,000659: 35,2531 03546 VACT3
020602,000660: 35,2532 02617 STORE UNRM
020603,000661: 35,2533 77616 RVQ
020604,000662:
|
|
Page 467 |
020606,000664: # ..... S34/35.2 .....
020607,000665:
020608,000666: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020609,000667:
020610,000668: 35,2534 77220 S34/35.2 STQ VLOAD
020611,000669: 35,2535 02370 SUBEXIT
020612,000670: 35,2536 03562 VPASS3
020613,000671: 35,2537 65315 PDVL PDDL
020614,000672: 35,2540 03554 RPASS3
020615,000673: 35,2541 03503 INTIME
020616,000674: 35,2542 65325 PDDL PDDL
020617,000675: 35,2543 03656 TPASS4
020618,000676: 35,2544 15332 ZEROVECS
020619,000677: 35,2545 45006 PUSH CALL
020620,000678: 35,2546 72706 INTINT # GET TARGET VECTOR
020621,000679: 35,2547 27415 S3435.25 STOVL RTARG
020622,000680: 35,2550 00007 VATT
020623,000681: 35,2551 27640 STOVL VPASS4
020624,000682: 35,2552 03415 RTARG
020625,000683: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
020626,000684: 35,2553 63256 UNIT PDVL # UNIT RP
020627,000685: 35,2554 03540 RACT3
020628,000686: 35,2555 41456 UNIT PUSH # UNIT RA
020629,000687: 35,2556 50235 VXV DOT
020630,000688: 35,2557 00001 0D
020631,000689: 35,2560 02617 UNRM # RA*RP.U
020632,000690: 35,2561 77715 PDVL
020633,000691: 35,2562 72441 DOT SL1 # UNIT RA.UNIT RP
020634,000692: 35,2563 00001 0D
020635,000693: 35,2564 75326 ACOS SIGN
020636,000694: 35,2565 43244 BPL DAD
020637,000695: 35,2566 72570 NOPIE
020638,000696: 35,2567 15340 DPPOSMAX # REASONABLE TWO PI
020639,000697: 35,2570 16633 NOPIE STODL ACTCENT
020640,000698: 35,2571 03656 TPASS4
020641,000699: 35,2572 77625 DSU
020642,000700: 35,2573 03503 INTIME
020643,000701: 35,2574 03423 STORE DELLT4
020644,000702: 35,2575 40335 SLOAD SETPD
020645,000703: 35,2576 33144 DECTWO
020646,000704: 35,2577 00001 0D
020647,000705: 35,2600 63325 PDDL PDVL
020648,000706: 35,2601 33147 EPSFOUR
020649,000707: 35,2602 03540 RACT3
020650,000708: 35,2603 27570 STOVL RINIT
020651,000709: 35,2604 03546 VACT3
020652,000710: 35,2605 37576 STCALL VINIT
020653,000711: 35,2606 22000 INITVEL
020654,000712: 35,2607 77624 CALL
020655,000713: 35,2610 72667 LOMAT
020656,000714: 35,2611 64375 VLOAD MXV
|
|
Page 468 |
020658,000716: 35,2612 03646 DELVEET3
020659,000717: 35,2613 00001 0D
020660,000718: 35,2614 77772 VSL1
020661,000719: 35,2615 37405 STCALL DELVLVC
020662,000720: 35,2616 02370 SUBEXIT
020663,000721:
|
|
Page 469 |
020665,000723: # ..... S34/35.3 .....
020666,000724:
020667,000725: 35,2617 45020 S34/35.3 STQ CALL
020668,000726: 35,2620 01340 NORMEX
020669,000727: 35,2621 72667 LOMAT # GET MATRIX IN PUSH LIST
020670,000728: 35,2622 61375 VLOAD VXM
020671,000729: 35,2623 03405 DELVLVC # NEW DEL V TPI
020672,000730: 35,2624 00001 0D
020673,000731: 35,2625 77772 VSL1
020674,000732: 35,2626 03646 STORE DELVEET3 # SAVE FOR TRANSFORM
020675,000733: 35,2627 63255 VAD PDVL
020676,000734: 35,2630 03546 VACT3 # NEW V REQ
020677,000735: 35,2631 03540 RACT3
020678,000736: 35,2632 65325 PDDL PDDL
020679,000737: 35,2633 03413 TIG
020680,000738: 35,2634 03656 TPASS4
020681,000739: 35,2635 41525 PDDL PUSH
020682,000740: 35,2636 15340 DPPOSMAX
020683,000741: 35,2637 77624 CALL # INTEG. FOR NEW TARGET VEC
020684,000742: 35,2640 72706 INTINT
020685,000743: 35,2641 77775 VLOAD
020686,000744: 35,2642 00001 RATT
020687,000745: 35,2643 03415 STORE RTARG
020688,000746: 35,2644 41575 NOVRWRT VLOAD PUSH
020689,000747: 35,2645 02625 ULOS
020690,000748: 35,2646 57435 VXV VCOMP
020691,000749: 35,2647 02617 UNRM
020692,000750: 35,2650 41456 UNIT PUSH
020693,000751: 35,2651 76435 VXV VSL1
020694,000752: 35,2652 02625 ULOS
020695,000753: 35,2653 77715 PDVL
020696,000754: 35,2654 64315 PDVL MXV
020697,000755: 35,2655 03646 DELVEET3
020698,000756: 35,2656 00001 0D
020699,000757: 35,2657 77772 VSL1
020700,000758: 35,2660 36611 STCALL DVLOS
020701,000759: 35,2661 01340 NORMEX
020702,000760:
|
|
Page 470 |
020704,000762: # ..... S34/35.4 .....
020705,000763:
020706,000764: 35,2662 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
020707,000765: 35,2663 01340 NORMEX
020708,000766: 35,2664 00001 0D
020709,000767: 35,2665 77650 GOTO
020710,000768: 35,2666 72644 NOVRWRT
020711,000769:
|
|
Page 471 |
020713,000771: # ..... LOMAT .....
020714,000772:
020715,000773: 35,2667 57575 LOMAT VLOAD VCOMP
020716,000774: 35,2670 02617 UNRM
020717,000775: 35,2671 24007 STOVL 6D # Y
020718,000776: 35,2672 03540 RACT3
020719,000777: 35,2673 57456 UNIT VCOMP
020720,000778: 35,2674 00015 STORE 12D
020721,000779: 35,2675 76435 VXV VSL1
020722,000780: 35,2676 02617 UNRM # Z*-Y
020723,000781: 35,2677 00001 STORE 0D
020724,000782: 35,2700 43401 SETPD RVQ
020725,000783: 35,2701 00023 18D
020726,000784: 35,2702 65325 GOINT PDDL PDDL # DO
020727,000785: 35,2703 15332 ZEROVECS # NOT
020728,000786: 35,2704 02364 NOMTPI
020729,000787: 35,2705 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
020730,000788: 35,2706 45020 INTINT STQ CALL
020731,000789: 35,2707 02367 RTRN
020732,000790: 35,2710 27371 INTSTALL
020733,000791: 35,2711 71214 CLEAR DLOAD
020734,000792: 35,2712 01673 INTYPFLG
020735,000793: 35,2713 43054 BZE SET
020736,000794: 35,2714 72716 +2
020737,000795: 35,2715 01473 INTYPFLG
020738,000796: 35,2716 45545 DLOAD STADR
020739,000797: 35,2717 63736 STODL TDEC1
020740,000798: 35,2720 73014 SET LXA,2
020741,000799: 35,2721 00063 MOONFLAG
020742,000800: 35,2722 03746 RTX2
020743,000801: 35,2723 43014 BON CLEAR
020744,000802: 35,2724 04303 CMOONFLG
020745,000803: 35,2725 72727 ALLSET
020746,000804: 35,2726 00263 MOONFLAG
020747,000805: 35,2727 25517 ALLSET STOVL TET
020748,000806: 35,2730 77657 VSR*
020749,000807: 35,2731 57176 0,2
020750,000808: 35,2732 25535 STOVL RCV
020751,000809: 35,2733 77657 VSR*
020752,000810: 35,2734 57176 0,2
020753,000811: 35,2735 35543 STCALL VCV
020754,000812: 35,2736 27066 INTEGRVS
020755,000813: 35,2737 52175 VLOAD GOTO
020756,000814: 35,2740 00001 RATT
020757,000815: 35,2741 02367 RTRN
020758,000816:
|
|
Page 472 |
020760,000818: # ..... S34/35.5 .....
020761,000819:
020762,000820: # SUBROUTINES USED
020763,000821: # BANKCALL
020764,000822: # GOFLASH
020765,000823: # GOTOPOOH
020766,000824: # S34/35.3
020767,000825: # S34/35.4
020768,000826: # VNPOOH
020769,000827:
020770,000828: 35,2742 43020 S34/35.5 STQ BON
020771,000829: 35,2743 02370 SUBEXIT
020772,000830: 35,2744 01311 FINALFLG
020773,000831: 35,2745 72751 FLAGON
020774,000832: 35,2746 52014 SET GOTO
020775,000833: 35,2747 00470 UPDATFLG
020776,000834: 35,2750 72775 FLAGOFF
020777,000835: 35,2751 77414 FLAGON CLEAR EXIT
020778,000836: 35,2752 03274 NTARGFLG
020779,000837: 35,2753 33131 CAF V06N81
020780,000838: 35,2754 04555 TC BANKCALL
020781,000839: 35,2755 20624 CADR GOFLASH
020782,000840: 35,2756 04106 TC GOTOPOOH
020783,000841: 35,2757 02764 TC +5
020784,000842: 35,2760 06006 TC INTPRET
020785,000843: 35,2761 77414 SET EXIT
020786,000844: 35,2762 03074 NTARGFLG
020787,000845: 35,2763 02753 TC FLAGON +2
020788,000846: 35,2764 06006 TC INTPRET
020789,000847: 35,2765 45014 BOFF CALL
020790,000848: 35,2766 03354 NTARGFLG
020791,000849: 35,2767 72771 NOCHG
020792,000850: 35,2770 72617 S34/35.3
020793,000851: 35,2771 77214 NOCHG CLEAR VLOAD
020794,000852: 35,2772 01267 XDELVFLG
020795,000853: 35,2773 03646 DELVEET3
020796,000854: 35,2774 03646 STORE DELVSIN
020797,000855: 35,2775 77624 FLAGOFF CALL
020798,000856: 35,2776 72662 S34/35.4
020799,000857: 35,2777 77776 EXIT
020800,000858: 35,3000 33130 CAF V06N59
020801,000859: 35,3001 03114 TC VNPOOH
020802,000860: 35,3002 06006 TC INTPRET
020803,000861: 35,3003 77650 GOTO
020804,000862: 35,3004 02370 SUBEXIT
020805,000863:
|
|
Page 473 |
020807,000865: # ..... VN1645 .....
020808,000866:
020809,000867: # SUBROUTINES USED
020810,000868: # P3XORP7X
020811,000869: # GET+MGA
020812,000870: # BANKCALL
020813,000871: # DELAYJOB
020814,000872: # COMPTGO
020815,000873: # GOFLASHR
020816,000874: # GOTOPOOH
020817,000875: # FLAGUP
020818,000876:
020819,000877: 35,3005 71220 VN1645 STQ DLOAD
020820,000878: 35,3006 02370 SUBEXIT
020821,000879: 35,3007 33145 DP-.01
020822,000880: 35,3010 03626 STORE +MGA # MGA = -.01
020823,000881: 35,3011 71214 BOFF DLOAD
020824,000882: 35,3012 01351 FINALFLG
020825,000883: 35,3013 73033 GET45
020826,000884: 35,3014 33145 DP-.01
020827,000885: 35,3015 77615 DAD
020828,000886: 35,3016 33145 DP-.01
020829,000887: 35,3017 03626 STORE +MGA # MGA = -.02
020830,000888: 35,3020 77414 BOFF EXIT
020831,000889: 35,3021 01742 REFSMFLG
020832,000890: 35,3022 73033 GET45
020833,000891: 35,3023 03106 TC P3XORP7X
020834,000892: 35,3024 03026 TC +2 # P3X
020835,000893: 35,3025 03034 TC GET45 +1 # P7X
020836,000894: 35,3026 06006 TC INTPRET
020837,000895: 35,3027 41575 VLOAD PUSH
020838,000896: 35,3030 03646 DELVSIN
020839,000897: 35,3031 77624 CALL # COMPUTE MGA
020840,000898: 35,3032 10660 GET+MGA
020841,000899: 35,3033 77776 GET45 EXIT
020842,000900: 35,3034 03564 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
020843,000901: 35,3035 31770 CA SUBEXIT
020844,000902: 35,3036 55766 TS QSAVED
020845,000903: 35,3037 34734 CAF 1SEC
020846,000904: 35,3040 04555 TC BANKCALL
020847,000905: 35,3041 01732 CADR DELAYJOB
020848,000906: 35,3042 33132 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
020849,000907: 35,3043 04555 TC BANKCALL
020850,000908: 35,3044 20624 CADR GOFLASH
020851,000909: 35,3045 03050 TC KILCLOCK # TERMINATE
020852,000910: 35,3046 03053 TC N45PROC # PROCEED
020853,000911: 35,3047 03063 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
020854,000912: 35,3050 30005 KILCLOCK CA Z
020855,000913: 35,3051 54000 TS DISPDEX
|
|
Page 474 |
020857,000915: 35,3052 04106 TC GOTOPOOH
020858,000916: 35,3053 40076 N45PROC CS FLAGWRD2
020859,000917: 35,3054 74705 MASK BIT6
020860,000918: 35,3055 00006 EXTEND
020861,000919: 35,3056 13050 BZF KILCLOCK # FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
020862,000920: 35,3057 05301 TC PHASCHNG
020863,000921: 35,3060 04024 OCT 04024
020864,000922: 35,3061 05435 TC UPFLAG # SET
020865,000923: 35,3062 00047 ADRES FINALFLG # FINALFLG
020866,000924: 35,3063 30005 CLUPDATE CA Z
020867,000925: 35,3064 54000 TS DISPDEX
020868,000926: 35,3065 05301 TC PHASCHNG
020869,000927: 35,3066 04024 OCT 04024
020870,000928: 35,3067 06006 TC INTPRET
020871,000929: 35,3070 52014 CLEAR GOTO
020872,000930: 35,3071 00670 UPDATFLG
020873,000931: 35,3072 02366 QSAVED
020874,000932:
|
|
Page 475 |
020876,000934: # ..... DISPLAYE .....
020877,000935:
020878,000936: # SUBROUTINES USED
020879,000937: # BANKCALL
020880,000938: # GOFLASHR
020881,000939: # GOTOPOOH
020882,000940: # BLANKET
020883,000941: # ENDOFJOB
020884,000942:
020885,000943: 35,3073 00006 DISPLAYE EXTEND
020886,000944: 35,3074 23340 QXCH NORMEX
020887,000945: 35,3075 33126 CAF V06N55
020888,000946: 35,3076 04555 TCR BANKCALL
020889,000947: 35,3077 20763 CADR GOFLASHR
020890,000948: 35,3100 14106 TCF GOTOPOOH
020891,000949: 35,3101 01340 TC NORMEX
020892,000950: 35,3102 13075 TCF -5
020893,000951: 35,3103 34712 CAF BIT1 # BLANK R1
020894,000952: 35,3104 05415 TCR BLANKET
020895,000953: 35,3105 15112 TCF ENDOFJOB
020896,000954:
|
|
Page 476 |
020898,000956: # ..... P3XORP7X .....
020899,000957:
020900,000958: 35,3106 37713 P3XORP7X CAF HIGH9
020901,000959: 35,3107 71011 MASK MODREG
020902,000960: 35,3110 00006 EXTEND
020903,000961: 35,3111 13113 BZF +2
020904,000962: 35,3112 24002 INCR Q
020905,000963: 35,3113 00002 RETURN
020906,000964:
020907,000965: # ..... VNPOOH .....
020908,000966:
020909,000967: # SUBROUTINES USED
020910,000968: # BANKCALL
020911,000969: # GOFLASH
020912,000970: # GOTOPOOH
020913,000971:
020914,000972: 35,3114 00006 VNPOOH EXTEND
020915,000973: 35,3115 23767 QXCH RTRN
020916,000974: 35,3116 55765 TS VERBNOUN
020917,000975: 35,3117 31765 CA VERBNOUN
020918,000976: 35,3120 04555 TCR BANKCALL
020919,000977: 35,3121 20624 CADR GOFLASH
020920,000978: 35,3122 14106 TCF GOTOPOOH
020921,000979: 35,3123 01767 TC RTRN
020922,000980: 35,3124 13117 TCF -5
020923,000981:
|
|
Page 477 |
020925,000983: # ..... CONSTANTS .....
020926,000984:
020927,000985: 35,3125 01445 V06N37 VN 0637
020928,000986: 35,3126 01467 V06N55 VN 0655
020929,000987: 35,3127 01472 V06N58 VN 0658
020930,000988: 35,3130 01473 V06N59 VN 0659
020931,000989: 35,3131 01521 V06N81 VN 0681
020932,000990: 35,3132 04055 V16N45 VN 1645
020933,000991: 35,3133 14441 37325 TWOPI 2DEC 6.283185307 B-4
020934,000992: 35,3135 00001 20650 MAX250 2DEC 25 E3
020935,000993: 35,3137 12525 12525 THIRD 2DEC .333333333
020936,000994: 35,3141 00004 21505 ELEPS 2DEC .27777777 E-3
020937,000995: 35,3143 00002 DECTWO OCT 2
020938,000996: 35,3144 77777 DP-.01 OCT 77777 # CONSTANTS
020939,000997: 35,3145 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
020940,000998: 35,3146 01252 25253 EPSFOUR 2DEC .0416666666
020941,000999:
|
|
Page 478 |
020943,001001: # ..... INITVEL .....
020944,001002: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
020945,001003: # MOD BY WHITE.P DATE 21 NOV 67
020946,001004:
020947,001005: # FUNCTIONAL DESCRIPTION
020948,001006: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020949,001007: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020950,001008: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
020951,001009: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020952,001010: # OFFSETS). IN ADDITION, IN TH EPRECISION TRAJECTORY CASE, THE
020953,001011: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020954,001012: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
020955,001013: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020956,001014: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020957,001015: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020958,001016:
020959,001017: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020960,001018: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020961,001019: # SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020962,001020: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020963,001021: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020964,001022: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020965,001023: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020966,001024: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020967,001025:
020968,001026: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020969,001027: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020970,001028: # TRAJECTORY COMPUTATIONS.
020971,001029:
020972,001030: # CALLING SEQUENCE
020973,001031: # L CALL
020974,001032: # L+1 INITVEL
020975,001033: # L+2 (RETURN - ALWAYS)
020976,001034:
020977,001035: # INPUT
020978,001036: # (1) RINIT INITIAL POSITION RADIUS VECTOR
020979,001037: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
020980,001038: # (3) RTARG TARGET POSITION RADIUS VECTOR
020981,001039: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020982,001040: # (5) INTIME TIME OF RINIT
020983,001041: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020984,001042: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020985,001043: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
020986,001044: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020987,001045: # PUSHLOC SET AT 4D
020988,001046:
|
|
Page 479 |
020990,001048: # OUTPUT
020991,001049: # (1) RTARG OFFSET TARGET POSITION VECTOR
020992,001050: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
020993,001051: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
020994,001052: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
020995,001053:
020996,001054: # SUBROUTINES USED
020997,001055: # LAMBERT
020998,001056: # INTSTALL
020999,001057: # INTEGRVS
021000,001058:
021001,001059: 11,2000 SETLOC INTVEL
021002,001060: 11,2000 BANK
021003,001061:
021004,001062: 11,2000 COUNT 11/INITV
021005,001063: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
021006,001064: 11,2001 00475 GUESSW
021007,001065: 11,2002 44175 HAVEGUES VLOAD STQ
021008,001066: 11,2003 03415 RTARG
021009,001067: 11,2004 01340 NORMEX
021010,001068: 11,2005 03604 STORE RTARG1
021011,001069: 11,2006 46135 SLOAD BHIZ
021012,001070: 11,2007 03747 RTX2
021013,001071: 11,2010 22022 INITVEL1
021014,001072: 11,2011 72575 VLOAD VSL2
021015,001073: 11,2012 03570 RINIT # B29
021016,001074: 11,2013 27570 STOVL RINIT # B27
021017,001075: 11,2014 03576 VINIT # B7
021018,001076: 11,2015 77752 VSL2
021019,001077: 11,2016 27576 STOVL VINIT # B5
021020,001078: 11,2017 03604 RTARG1
021021,001079: 11,2020 77752 VSL2
021022,001080: 11,2021 03604 STORE RTARG1
021023,001081:
021024,001082: # INITIALIZATION
021025,001083:
021026,001084: 11,2022 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
021027,001085: 11,2023 03505 ITCTR
021028,001086: 11,2024 77776 0 -1
021029,001087: 11,2025 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
021030,001088: 11,2026 17630 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
021031,001089: 11,2027 67154 LXA,2 SXA,2
021032,001090: 11,2030 00154 MPAC
021033,001091: 11,2031 02703 VTARGTAG # SET VTARGTAG TO 0D (SP)
021034,001092: 11,2032 77775 VLOAD
021035,001093: 11,2033 03570 RINIT
021036,001094: 11,2034 26657 STOVL R1VEC # R1VEC EQ RINIT
021037,001095: 11,2035 03604 RTARG1
|
|
Page 480 |
021039,001097: 11,2036 16665 STODL R2VEC # R2VEC EQ RTARG
021040,001098: 11,2037 03423 DELLT4
021041,001099: 11,2040 02673 STORE TDESIRED # TDESIRED EQ DELLT4
021042,001100: 11,2041 77201 SETPD VLOAD
021043,001101: 11,2042 00001 0D # INITIALIZE PL TO 0D
021044,001102: 11,2043 03570 RINIT # MPAC EQ RINIT (+29)
021045,001103: 11,2044 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
021046,001104: 11,2045 53435 VXV UNIT
021047,001105: 11,2046 03576 VINIT # MPAC EQ UNIT(RI) X VI (+8)
021048,001106: 11,2047 26676 STOVL UN
021049,001107: 11,2050 03604 RTARG1
021050,001108: 11,2051 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
021051,001109: 11,2052 43015 DAD CLEAR
021052,001110: 11,2053 03630 COZY4
021053,001111: 11,2054 03665 NORMSW
021054,001112: 11,2055 03630 STORE COZY4
021055,001113: 11,2056 43044 INITVEL2 BPL SET
021056,001114: 11,2057 22101 INITVEL3 # UN CALCULATED IN LAMBERT
021057,001115: 11,2060 03465 NORMSW
021058,001116:
021059,001117: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
021060,001118:
021061,001119: 11,2061 41575 VLOAD PUSH # (PL 6D)
021062,001120: 11,2062 02665 R2VEC # RC TO 6D (+29)
021063,001121: 11,2063 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
021064,001122: 11,2064 46206 PUSH VPROJ # (PL 8D)
021065,001123: 11,2065 02676 UN
021066,001124: 11,2066 51352 VSL2 BVSU
021067,001125: 11,2067 74256 UNIT VXSC # (PL 0D)
021068,001126: 11,2070 77772 VSL1
021069,001127: 11,2071 02665 STORE R2VEC
021070,001128: 11,2072 67351 TLOAD SLOAD
021071,001129: 11,2073 11456 ZEROVEC
021072,001130: 11,2074 03505 ITCTR
021073,001131: 11,2075 77244 BPL VLOAD
021074,001132: 11,2076 22101 INITVEL3
021075,001133: 11,2077 02665 R2VEC
021076,001134: 11,2100 03604 STORE RTARG1
021077,001135: 11,2101 63345 INITVEL3 DLOAD PDVL # (PL 2D)
021078,001136: 11,2102 27736 MUEARTH # POSITIVE VALUE
021079,001137: 11,2103 02665 R2VEC
021080,001138: 11,2104 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
021081,001139: 11,2105 02657 R1VEC
021082,001140: 11,2106 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
021083,001141: 11,2107 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
021084,001142: 11,2110 00003 2D
021085,001143: 11,2111 77606 PUSH # (PL 20D)
021086,001144: 11,2112 71350 LXA,1 DLOAD
021087,001145: 11,2113 03745 RTX1
021088,001146: 11,2114 00023 18D
021089,001147: 11,2115 62040 BMN INCR,1
|
|
Page 481 |
021091,001149: 11,2116 22120 +2
021092,001150: 11,2117 77767 DEC -8 B-14
021093,001151: 11,2120 67310 INCR,1 SLOAD
021094,001152: 11,2121 00012 10D
021095,001153: 11,2122 00047 X1
021096,001154: 11,2123 77230 BHIZ VLOAD # (PL 14D)
021097,001155: 11,2124 22126 +2
021098,001156: 11,2125 41476 VCOMP PUSH # (PL 20 D)
021099,001157: 11,2126 77775 VLOAD # (PL 14D)
021100,001158: 11,2127 50235 VXV DOT # (PL 2D)
021101,001159: 11,2130 71244 BPL DLOAD # (PL 0D)
021102,001160: 11,2131 22133 INITVEL4
021103,001161: 11,2132 41476 DCOMP PUSH # (PL 2D)
021104,001162: 11,2133 67154 INITVEL4 LXA,2 SXA,2
021105,001163: 11,2134 00000 0D
021106,001164: 11,2135 02674 GEOMSGN
021107,001165:
021108,001166: # SET INPUTS UP FOR LAMBERT
021109,001167:
021110,001168: 11,2136 45150 LXA,1 CALL
021111,001169: 11,2137 03745 RTX1
021112,001170: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
021113,001171: 11,2140 25215 LAMBERT
021114,001172:
021115,001173: # DELETE THRU 4521
021116,001174: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
021117,001175:
021118,001176: 11,2141 77214 CLEAR VLOAD
021119,001177: 11,2142 00675 GUESSW
021120,001178: 11,2143 02746 VVEC
021121,001179:
021122,001180: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
021123,001181:
021124,001182: 11,2144 17612 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
021125,001183:
021126,001184: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
021127,001185: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
021128,001186:
021129,001187: 11,2145 02704 VTARGTAG
021130,001188: 11,2146 45030 BHIZ CALL
021131,001189: 11,2147 22224 INITVEL7
021132,001190: 11,2150 27371 INTSTALL
021133,001191: 11,2151 43135 SLOAD CLEAR
021134,001192: 11,2152 03747 RTX2
021135,001193: 11,2153 00263 MOONFLAG
021136,001194: 11,2154 43030 BHIZ SET
021137,001195: 11,2155 22157 INITVEL5
021138,001196: 11,2156 00063 MOONFLAG
021139,001197: 11,2157 77775 INITVEL5 VLOAD
021140,001198: 11,2160 03570 RINIT
021141,001199: 11,2161 02657 STORE R1VEC
|
|
Page 482 |
021143,001201: 11,2162 25535 STOVL RCV
021144,001202: 11,2163 03612 VIPRIME
021145,001203: 11,2164 15543 STODL VCV
021146,001204: 11,2165 03503 INTIME
021147,001205: 11,2166 01517 STORE TET
021148,001206: 11,2167 43015 DAD CLEAR
021149,001207: 11,2170 03423 DELLT4
021150,001208: 11,2171 01673 INTYPFLG
021151,001209: 11,2172 34041 STCALL TDEC1
021152,001210: 11,2173 27066 INTEGRVS
021153,001211: 11,2174 77775 VLOAD
021154,001212: 11,2175 00025 VATT1
021155,001213: 11,2176 02705 STORE VTARGET
021156,001214:
021157,001215: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
021158,001216: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
021159,001217:
021160,001218: 11,2177 63154 LXA,2 INCR,2
021161,001219: 11,2200 03504 ITCTR
021162,001220: 11,2201 00001 1D # INCREMENT ITCTR
021163,001221: 11,2202 55134 SXA,2 XSU,2
021164,001222: 11,2203 03504 ITCTR
021165,001223: 11,2204 02703 VTARGTAG
021166,001224: 11,2205 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
021167,001225: 11,2206 00050 X2
021168,001226: 11,2207 22221 INITVEL6
021169,001227:
021170,001228: # OFFSET CONIC TARGET VECTOR
021171,001229:
021172,001230: 11,2210 52375 VLOAD VSU
021173,001231: 11,2211 03604 RTARG1
021174,001232: 11,2212 00017 RATT1
021175,001233: 11,2213 77655 VAD
021176,001234: 11,2214 02665 R2VEC
021177,001235: 11,2215 16665 STODL R2VEC
021178,001236: 11,2216 03630 COZY4
021179,001237: 11,2217 77650 GOTO
021180,001238: 11,2220 22056 INITVEL2 # CONTINUE ITERATING AT INITVEL2
021181,001239:
021182,001240: # COMPUTE THE DELTA VELOCITY
021183,001241:
021184,001242: 11,2221 77775 INITVEL6 VLOAD
021185,001243: 11,2222 02665 R2VEC
021186,001244: 11,2223 03604 STORE RTARG1
021187,001245: 11,2224 52375 INITVEL7 VLOAD VSU
021188,001246: 11,2225 03612 VIPRIME
021189,001247: 11,2226 03576 VINIT
021190,001248: 11,2227 27646 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
021191,001249: 11,2230 02705 VTARGET
021192,001250: 11,2231 03620 STORE VTPRIME
021193,001251: 11,2232 46135 SLOAD BHIZ
021194,001252: 11,2233 03747 RTX2
|
|
Page 483 |
021196,001254: 11,2234 22251 INITVELX
021197,001255: 11,2235 70575 VLOAD VSR2
021198,001256: 11,2236 03620 VTPRIME
021199,001257: 11,2237 27620 STOVL VTPRIME
021200,001258: 11,2240 03612 VIPRIME
021201,001259: 11,2241 77742 VSR2
021202,001260: 11,2242 27612 STOVL VIPRIME
021203,001261: 11,2243 03604 RTARG1
021204,001262: 11,2244 77742 VSR2
021205,001263: 11,2245 27604 STOVL RTARG1
021206,001264: 11,2246 03646 DELVEET3
021207,001265: 11,2247 77742 VSR2
021208,001266: 11,2250 03646 STORE DELVEET3
021209,001267: 11,2251 77201 INITVELX SETPD VLOAD
021210,001268: 11,2252 00001 0D
021211,001269: 11,2253 03604 RTARG1
021212,001270: 11,2254 37415 STCALL RTARG
021213,001271: 11,2255 01340 NORMEX
021214,001272:
021215,001273: # ..... END OF INITVEL ROUTINE .....
021216,001274:
|
|
Page 484 |
021218,001276: # ..... MIDGIM .....
021219,001277: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
021220,001278: # REVISION 03, 17 FEB 67
021221,001279:
021222,001280: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
021223,001281: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
021224,001282: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
021225,001283: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
021226,001284: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
021227,001285:
021228,001286: # .. INPUTS ..
021229,001287: # NAME MEANING UNITS/SCALING/MODE
021230,001288: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
021231,001289: # COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER BIT
021232,001290: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
021233,001291: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
021234,001292: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
021235,001293:
021236,001294: # .. OUTPUTS ..
021237,001295: # NAME MEANING UNITS/SCALING/MODE
021238,001296: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
021239,001297: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
021240,001298: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
021241,001299:
021242,001300: # .. CALLING SEQUENCE ..
021243,001301: # L CALL
021244,001302: # L+1 MIDGIM
021245,001303: # L+2 (RETURN - ALWAYS)
021246,001304:
021247,001305: # .. NO SUBROUTINES CALLED ..
021248,001306:
021249,001307: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
021250,001308: # A,Q,L, PUSH LIST, MPAC.
021251,001309:
021252,001310: # .. ALARMS - NONE ..
021253,001311:
|
|
Page 485 |
021255,001313: # MIDDLE GIMBAL ANGLE COMPUTATION.
021256,001314: 04,2000 SETLOC MIDDGIM
021257,001315: 04,2000 BANK
021258,001316:
021259,001317: 04,2651 COUNT* $$/MIDG
021260,001318:
021261,001319: 04,2651 20000 00000 HALFREV 2DEC 1 B-1
021262,001320:
021263,001321: 04,2653 43014 MIDGIM BON BOFF
021264,001322: 04,2654 01312 AVFLAG
021265,001323: 04,2655 10673 MIDGIM1
021266,001324: 04,2656 02747 COMPUTER
021267,001325: 04,2657 10676 GET.LVC
021268,001326:
021269,001327: # COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
021270,001328:
021271,001329: 04,2660 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
021272,001330: 04,2661 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021273,001331: 04,2662 01744 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
021274,001332: 04,2663 51136 ARCSIN BPL
021275,001333: 04,2664 10670 SETMGA
021276,001334: 04,2665 43215 DAD DAD # CONVERT -MGA TO +MGA BY
021277,001335: 04,2666 10652 HALFREV # ADDING ONE REVOLUTION
021278,001336: 04,2667 10652 HALFREV
021279,001337: 04,2670 03626 SETMGA STORE +MGA
021280,001338: 04,2671 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
021281,001339: 04,2672 02675 MGLVFLAG # AND EXIT
021282,001340:
021283,001341: 04,2673 77614 MIDGIM1 BOFF
021284,001342: 04,2674 02747 COMPUTER
021285,001343: 04,2675 10660 GET+MGA
021286,001344:
021287,001345: # COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
021288,001346:
021289,001347: 04,2676 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
021290,001348: 04,2677 03570 RINIT
021291,001349: 04,2700 77676 VCOMP # U(-R)
021292,001350: 04,2701 00023 STORE 18D # U(-R) TO 18D
021293,001351: 04,2702 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
021294,001352: 04,2703 03576 VINIT
021295,001353: 04,2704 00015 STORE 12D # U(V*R) TO 12D
021296,001354: 04,2705 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
021297,001355: 04,2706 00023 18D
021298,001356: 04,2707 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
021299,001357: 04,2710 00001 0D # DELTA V (+7) IN 0D
021300,001358: 04,2711 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
021301,001359: 04,2712 00007 6D # AND SCALE +7 IN MPAC
021302,001360: 04,2713 03405 STORE DELVLVC # STORE IN DELVLVC (+7)
021303,001361: 04,2714 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
021304,001362: 04,2715 02475 MGLVFLAG # AND EXIT
021305,001363:
021306,001364: # ..... END OF MIDGIM ROUTINE .....
021307,001365:
|
|
Page 486 |
021309,001367: 04,2716 77160 SELECTMU AXC,1 AXT,2
021310,001368: 04,2717 00002 2D
021311,001369: 04,2720 00000 0D
021312,001370: 04,2721 77614 BOFF
021313,001371: 04,2722 04343 CMOONFLG
021314,001372: 04,2723 10727 SETMUER
021315,001373: 04,2724 77160 AXC,1 AXT,2
021316,001374: 04,2725 00012 10D
021317,001375: 04,2726 00002 2D
021318,001376: 04,2727 66143 SETMUER DLOAD* SXA,1
021319,001377: 04,2730 11635 MUTABLE +4,1
021320,001378: 04,2731 03745 RTX1
021321,001379: 04,2732 23752 STODL* RTSR1/MU
021322,001380: 04,2733 11627 MUTABLE -2,1
021323,001381: 04,2734 54214 BOFF SR
021324,001382: 04,2735 04343 CMOONFLG
021325,001383: 04,2736 10740 RTRNMU
021326,001384: 04,2737 20607 6D
021327,001385: 04,2740 03750 RTRNMU STORE RTMU
021328,001386: 04,2741 43134 SXA,2 CLEAR
021329,001387: 04,2742 03746 RTX2
021330,001388: 04,2743 01271 FINALFLG
021331,001389: 04,2744 77650 GOTO
021332,001390: 04,2745 73005 VN1645
021333,001391:
|
|
Page 487 |
021335,001393: # ..... PERIAPO .....
021336,001394: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
021337,001395: # MOD BY WHITE.P DATE 18 JAN 68
021338,001396:
021339,001397: # FUNCTIONAL DESCRIPTION
021340,001398: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021341,001399: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021342,001400: # THE TRAJECTORY AND THE PRIMARY BODY.
021343,001401:
021344,001402: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021345,001403:
021346,001404: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
021347,001405: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021348,001406:
021349,001407: # CALLING SEQUENCE
021350,001408: # L CALL
021351,001409: # L+1 PERIAPO
021352,001410: # L+2 (RETURN - ALWAYS)
021353,001411:
021354,001412: # INPUT
021355,001413: # (1) RVEC POSITION VECTOR IN METERS
021356,001414: # SCALE FACTOR - EARTH +29, MOON +27
021357,001415: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
021358,001416: # SCALE FACTOR - EARTH +7, MOON +5
021359,001417: # (3) X1 PRIMARY BODY INDICATOR
021360,001418: # EARTH -2, MOON -10
021361,001419:
021362,001420: # OUTPUT
021363,001421: # (1) 2D APOCENTER RADIUS IN METERS
021364,001422: # SCALE FACTOR - EARTH +29, MOON +27
021365,001423: # (2) 4D APOCENTER ALTITUDE IN METERS
021366,001424: # SCALE FACTOR - EARTH +29, MOON P27
021367,001425: # (3) 6D PERICENTER RADIUS IN METERS
021368,001426: # SCALE FACTOR - EARTH +29, MOON +27
021369,001427: # (4) 8D PERICENTER ALTITUDE IN METERS
021370,001428: # SCALE FACTOR - EARTH +29, MOON +27
021371,001429: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
021372,001430: # SCALE FACTOR - +3
021373,001431: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
021374,001432: # SCALE FACTOR - EARTH +29, MOON +27
021375,001433: # (7) PUSHLOC EQUALS 10D
021376,001434:
021377,001435: # SUBROUTINES USED
021378,001436: # SETRAD
|
|
Page 488 |
021380,001438: # APSIDES
021381,001439:
021382,001440: 22,2000 SETLOC APOPERI
021383,001441: 22,2000 BANK
021384,001442:
021385,001443: 22,3310 COUNT* $$/PERAP
021386,001444:
021387,001445: 22,3310 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
021388,001446: # = 20 909 901.57 FT
021389,001447:
021390,001448: 22,3312 53754 PERIAPO1 LXA,2 VSR*
021391,001449: 22,3313 03746 RTX2
021392,001450: 22,3314 57176 0,2
021393,001451: 22,3315 26746 STOVL VVEC
021394,001452: 22,3316 53750 LXA,1 VSR*
021395,001453: 22,3317 03745 RTX1
021396,001454: 22,3320 57176 0,2
021397,001455: 22,3321 02657 STORE RVEC
021398,001456: 22,3322 45020 PERIAPO STQ CALL
021399,001457: 22,3323 01340 NORMEX
021400,001458: 22,3324 45340 SETRAD
021401,001459: 22,3325 37456 STCALL XXXALT
021402,001460: 22,3326 25671 APSIDES
021403,001461: 22,3327 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
021404,001462: 22,3330 00003 2D
021405,001463: 22,3331 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
021406,001464: 22,3332 03456 XXXALT
021407,001465: 22,3333 00001 0D
021408,001466: 22,3334 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
021409,001467: 22,3335 03456 XXXALT
021410,001468: 22,3336 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
021411,001469: 22,3337 01340 NORMEX
|
|
Page 489 |
021413,001471: # SETRAD
021414,001472:
021415,001473: 22,3340 41545 SETRAD DLOAD PUSH
021416,001474: 22,3341 05311 RPAD
021417,001475: 22,3342 63130 SXA,1 INCR,2
021418,001476: 22,3343 00047 X2
021419,001477: 22,3344 00002 2D
021420,001478: 22,3345 46135 SLOAD BHIZ
021421,001479: 22,3346 00050 X2
021422,001480: 22,3347 45353 SETRADX
021423,001481: 22,3350 51575 VLOAD ABVAL
021424,001482: 22,3351 02026 RLS
021425,001483: 22,3352 77725 PDDL
021426,001484: 22,3353 43545 SETRADX DLOAD RVQ
021427,001485:
|
|
Page 490 |
021429,001487: # PRECSET
021430,001488:
021431,001489: 22,3354 77620 PRECSET STQ
021432,001490: 22,3355 01340 NORMEX
021433,001491: 22,3356 36635 STCALL TDEC2
021434,001492: 22,3357 27036 LEMPREC
021435,001493: 22,3360 77624 CALL
021436,001494: 22,3361 45372 LEMSTORE
021437,001495: 22,3362 77745 DLOAD
021438,001496: 22,3363 02635 TDEC2
021439,001497: 22,3364 34041 STCALL TDEC1
021440,001498: 22,3365 27022 CSMPREC
021441,001499: 22,3366 77624 CALL
021442,001500: 22,3367 45402 CSMSTORE
021443,001501: 22,3370 77650 GOTO
021444,001502: 22,3371 01340 NORMEX
021445,001503: 22,3372 43175 LEMSTORE VLOAD BOFF
021446,001504: 22,3373 00001 RATT
021447,001505: 22,3374 01352 AVFLAG
021448,001506: 22,3375 45406 PASSIVE
021449,001507: 22,3376 27540 ACTIVE STOVL RACT3
021450,001508: 22,3377 00007 VATT
021451,001509: 22,3400 03546 STORE VACT3
021452,001510: 22,3401 77616 RVQ
021453,001511: 22,3402 43175 CSMSTORE VLOAD BOFF
021454,001512: 22,3403 00001 RATT
021455,001513: 22,3404 01352 AVFLAG
021456,001514: 22,3405 45376 ACTIVE
021457,001515: 22,3406 27554 PASSIVE STOVL RPASS3
021458,001516: 22,3407 00007 VATT
021459,001517: 22,3410 03562 STORE VPASS3
021460,001518: 22,3411 77616 RVQ
021461,001519:
|
|
Page 491 |
021463,001521: # VECSHIFT
021464,001522:
021465,001523: 22,3412 53754 VECSHIFT LXA,2 VSR*
021466,001524: 22,3413 03746 RTX2
021467,001525: 22,3414 57176 0,2
021468,001526: 22,3415 63350 LXA,1 PDVL
021469,001527: 22,3416 03745 RTX1
021470,001528: 22,3417 63257 VSR* PDVL
021471,001529: 22,3420 57176 0,2
021472,001530: 22,3421 77616 RVQ
021473,001531:
|
|
Page 492 |
021475,001533: # SHIFTR1
021476,001534:
021477,001535: 22,3422 53754 SHIFTR1 LXA,2 SL*
021478,001536: 22,3423 03746 RTX2
021479,001537: 22,3424 57576 0,2
021480,001538: 22,3425 77616 RVQ
021481,001539:
|
|
Page 493 |
021483,001541: # PROGRAM DESCRIPTION
021484,001542:
021485,001543: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
021486,001544: # MOD NO. 0 DATE 22 DECEMBER 67
021487,001545: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
021488,001546:
021489,001547: # FUNCTIONAL DESCRIPTION
021490,001548:
021491,001549: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
021492,001550: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY).
021493,001551:
021494,001552: # CALLING SEQUENCE
021495,001553: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
021496,001554:
021497,001555: # SUBROUTINES CALLED
021498,001556: # EXDSPRET
021499,001557: # GOMARKF
021500,001558: # CSMPREC
021501,001559: # LEMPREC
021502,001560: # SGNAGREE
021503,001561: # LOADTIME
021504,001562:
021505,001563: # NORMAL EXIT MODES
021506,001564: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
021507,001565:
021508,001566: # ALARM OR ABORT EXIT MODES
021509,001567: # NONE
021510,001568:
021511,001569: # OUTPUT
021512,001570: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
021513,001571:
021514,001572: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
021515,001573: # REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
021516,001574:
021517,001575: # ERASABLE INITIALIZATION REQUIRED
021518,001576: # CSM AND LEM STATE VECTORS
021519,001577:
021520,001578: # DEBRIS
021521,001579: # CENTRALS A,Q,L
021522,001580: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
021523,001581:
021524,001582: 20,2000 BANK 20
021525,001583: 04,2000 SETLOC R36LM
021526,001584: 04,2000 BANK
|
|
Page 494 |
021528,001586: 04,2746 E4,1726 EBANK= RPASS36
021529,001587: 04,2746 COUNT* $$/R36
021530,001588:
021531,001589: 04,2746 22007 R36 ZL
021532,001590: 04,2747 34714 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
021533,001591: 04,2750 53052 DXCH DSPTEMX # DISPLAY
021534,001592: 04,2751 33101 CAF V06N16N
021535,001593: 04,2752 04555 TC BANKCALL
021536,001594: 04,2753 20465 CADR GOMARKF
021537,001595: 04,2754 15423 TCF ENDEXT # TERMINATE
021538,001596: 04,2755 12757 TCF +2 # PROCEED
021539,001597: 04,2756 12751 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
021540,001598: 04,2757 53052 DXCH DSPTEMX
021541,001599: 04,2760 00006 EXTEND
021542,001600: 04,2761 13070 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
021543,001601: 04,2762 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
021544,001602: 04,2763 06006 TC INTPRET
021545,001603: 04,2764 77634 RTB
021546,001604: 04,2765 45713 DPMODE
021547,001605: 04,2766 34041 R36INT STCALL TDEC1
021548,001606: 04,2767 27036 OTHPREC
021549,001607: 04,2770 63375 VLOAD PDVL
021550,001608: 04,2771 00007 VATT
021551,001609: 04,2772 00001 RATT # -
021552,001610: 04,2773 02327 STORE RPASS36 # R
021553,001611: 04,2774 63256 UNIT PDVL # P
021554,001612: 04,2775 53435 VXV UNIT # -
021555,001613: 04,2776 77626 STADR
021556,001614: 04,2777 61442 STODL UNP36 # U
021557,001615: 04,3000 00015 TAT
021558,001616: 04,3001 34041 STCALL TDEC1
021559,001617: 04,3002 27022 THISPREC
021560,001618: 04,3003 63375 VLOAD PDVL # -
021561,001619: 04,3004 00007 VATT # VELOCITY VECTOR V 00D
021562,001620: 04,3005 00001 RATT # A
021563,001621: 04,3006 77725 PDDL
021564,001622: 04,3007 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
021565,001623: 04,3010 24037 STOVL 30D # -
021566,001624: 04,3011 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
021567,001625: 04,3012 63245 BVSU PDVL # A - -
021568,001626: 04,3013 02327 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
021569,001627: 04,3014 72441 DOT SL1 # P A
021570,001628: 04,3015 02335 UNP36 # - -
021571,001629: 04,3016 26321 STOVL RANGE # Y = U . R
021572,001630: 04,3017 00001 00D # A
021573,001631: 04,3020 72441 DOT SL1
021574,001632: 04,3021 02335 UNP36 # . - -
021575,001633: 04,3022 26323 STOVL RRATE # Y = U . V
021576,001634: 04,3023 00007 06D # - A -
|
|
Page 495 |
021578,001636: 04,3024 41456 UNIT PUSH # U = UNIT ( R ) 18D
021579,001637: 04,3025 47235 VXV VXV # RA A
021580,001638: 04,3026 00001 00D # - - - -
021581,001639: 04,3027 00023 18D # (U X V ) X U = U
021582,001640: 04,3030 53552 VSL2 UNIT # RA A RA A
021583,001641: 04,3031 77656 UNIT
021584,001642: 04,3032 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
021585,001643: 04,3033 00023 18D
021586,001644: 04,3034 74241 DOT VXSC # -
021587,001645: 04,3035 00015 12D # U
021588,001646: 04,3036 77752 VSL2 # L
021589,001647: 04,3037 53445 BVSU UNIT
021590,001648: 04,3040 77656 UNIT
021591,001649: 04,3041 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
021592,001650: 04,3042 00001 00D # PLANE
021593,001651: 04,3043 65552 SL1 ARCCOS # - -
021594,001652: 04,3044 26325 STOVL RTHETA # PSI = ARCCOS(U . U )
021595,001653: 04,3045 50235 VXV DOT # A L
021596,001654: 04,3046 00001 00D
021597,001655: 04,3047 71244 BPL DLOAD
021598,001656: 04,3050 11055 R36TAG2
021599,001657: 04,3051 11467 LODPMAX
021600,001658: 04,3052 77625 DSU
021601,001659: 04,3053 02325 RTHETA
021602,001660: 04,3054 02325 STORE RTHETA
021603,001661: 04,3055 47145 R36TAG2 DLOAD RTB
021604,001662: 04,3056 00037 30D
021605,001663: 04,3057 45541 SGNAGREE
021606,001664: 04,3060 01052 STORE DSPTEMX
021607,001665: 04,3061 77776 EXIT
021608,001666: 04,3062 33102 CAF V06N90N # DISPLAY Y, YDOT, AND PSI
021609,001667: 04,3063 04555 TC BANKCALL
021610,001668: 04,3064 20465 CADR GOMARKF
021611,001669: 04,3065 15423 TCF ENDEXT # TERMINATE
021612,001670: 04,3066 15423 TCF ENDEXT # PROCEED, END OF PROGRAM
021613,001671: 04,3067 12751 TCF R36 +3 # REDISPLAY OUTPUT
021614,001672: 04,3070 56001 LREGCHK XCH L
021615,001673: 04,3071 00006 EXTEND
021616,001674: 04,3072 13075 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
021617,001675: 04,3073 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
021618,001676: 04,3074 12762 TCF ASTROTIM
021619,001677: 04,3075 06006 ENTTIM2 TC INTPRET
021620,001678: 04,3076 52034 RTB GOTO
021621,001679: 04,3077 45505 LOADTIME
021622,001680: 04,3100 10766 R36INT
021623,001681: 04,3101 01420 V06N16N VN 00616
021624,001682: 04,3102 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc