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