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