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