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