Source Code

026228,000001: # Copyright: Public domain. 026229,000002: # Filename: P32-P35_P72-P75.agc 026230,000003: # Purpose: A section of Luminary 1C, revision 131. 026231,000004: # It is part of the source code for the Lunar Module's (LM) 026232,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 026233,000006: # This file is intended to be a faithful transcription, except 026234,000007: # that the code format has been changed to conform to the 026235,000008: # requirements of the yaYUL assembler rather than the 026236,000009: # original YUL assembler. 026237,000010: # Reference: pp. 628-660 of 1729.pdf. 026238,000011: # Contact: Ron Burkey <info@sandroid.org>. 026239,000012: # Website: www.ibiblio.org/apollo 026240,000013: # Mod history: 05/20/03 RSB. Began transcribing. 026241,000014: 026242,000015: # Page 628 026243,000016: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) 026244,000017: 026245,000018: # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 026246,000019: # MOD BY WHITE, P. DATE 1 JUNE 67 026247,000020: 026248,000021: # PURPOSE 026249,000022: # (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE TIME FOLLOWING 026250,000023: # CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE 026251,000024: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE 026252,000025: # (CDH) MANEUVER. 026253,000026: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 026254,000027: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 026255,000028: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES 026256,000029: # ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR 026257,000030: # APPROVAL BY TEH ASTRRONAUT/GROUND. 026258,000031: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED 026259,000032: # THRUSTING PROGRAM. 026260,000033: 026261,000034: # ASSUMPTIONS 026262,000035: # (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE 026263,000036: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) 026264,000037: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE 026265,000038: # POSITION. 026266,000039: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE 026267,000040: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL 026268,000041: # COMPLETION OF THE PROGRAM. 026269,000042: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE 026270,000043: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL 026271,000044: # COMPLETION OF THE PROGRAM. 026272,000045: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE 026273,000046: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS. 026274,000047: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN HTE 026275,000048: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI 026276,000049: # IGNITION. 026277,000050: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH 026278,000051: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARCH 026279,000052: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM. 026280,000053: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE 026281,000054: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER, CREW 026282,000055: # Page 629 026283,000056: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN 026284,000057: # OUT-OF-PLANE CSI MANEUVER 026285,000058: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 026286,000059: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10). 026287,000060: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY 026288,000061: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED 026289,000062: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME 026290,000063: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. 026291,000064: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 026292,000065: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 026293,000066: # DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY 026294,000067: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 026295,000068: # AUTOMATICALLY APPROXIMATELY ONCE A MINUT WHEN ENABLED BY THE 026296,000069: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 026297,000070: # MARK COUNTER IS ZEROED BY TEH SELECTION OF P20 AND AFTER EACH 026298,000071: # THRUSTING MANEUVER. 026299,000072: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 026300,000073: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 026301,000074: 026302,000075: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 026303,000076: # DOING RENDEZVOUS THRUSTING MANEUVERS TO TEH PROGRAM WHICH 026304,000077: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 026305,000078: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 026306,000079: 026307,000080: # FINAL FLAG -- SELECTES FINAL PROGRAM DISPLAYS AFTER CREW HAS 026308,000081: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY 026309,000082: # CYCLE. 026310,000083: 026311,000084: # EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF 026312,000085: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE 026313,000086: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS 026314,000087: # PROGRAM. 026315,000088: 026316,000089: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO 026317,000090: # A THRUSTING MANEUVER. 026318,000091: 026319,000092: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY 026320,000093: 026321,000094: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE. 026322,000095: 026323,000096: # P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE. 026324,000097: 026325,000098: # INPUT 026326,000099: # (1) TCSI TIME OF THE CSI MANEUVER 026327,000100: # Page 630 026328,000101: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE 026329,000102: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH 026330,000103: # MANEUVER POINT. 026331,000104: # (3) ELEV DESIRED LOS ANGLE AT TPI 026332,000105: # (4) TTPI TIME OF THE TPI MANEUVER 026333,000106: 026334,000107: # OUTPUT 026335,000108: # (1) TRKMKCNT NUMBER OF MARKS 026336,000109: # (2) TTOGO TIME TO GO 026337,000110: # (3) +MGA MIDDLE GIMBAL ANGLE 026338,000111: # (4) DIFFALT DELTA ALTITUDE AT CDH 026339,000112: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH 026340,000113: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI 026341,000114: # (7) DELVLVC DELTA VELOCITY AT CSI -- LOCAL VERTICAL COORDINATES 026342,000115: # (8) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES 026343,000116: 026344,000117: # DOWNLINK 026345,000118: # (1) TCSI TIME OF THE CSI MANEUVER 026346,000119: # (2) TCDH TIME OF THE CDH MANEUVER 026347,000120: # (3) TTPI TIME OF THE TPI MANEUVER 026348,000121: # (4) TIG TIME OF THE CSI MANEUVER 026349,000122: # (5) DELVEET1 DELTA VELOCITY AT CSI -- REFERENCE COORDINATES 026350,000123: # (6) DELVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES 026351,000124: # (7) DIFFALT DELTA ALTITUDE AT CDH 026352,000125: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE 026353,000126: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH 026354,000127: # MANEUVER POINT 026355,000128: # (9) ELEV DESIRED LOS ANGLE AT TPI 026356,000129: 026357,000130: # COMMUNICATION TO THRUSTING PROGRAMS 026358,000131: # (1) TIG TIME OF THE CSI MANEUVER 026359,000132: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI -- BEFORE ROTATION 026360,000133: # INTO PLANE OF PASSIVE VEHICLE 026361,000134: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE -- BEFORE ROTATION 026362,000135: # INTO PLANE OF PASSIVE VEHICLE 026363,000136: # (4) DELVSIN DELTA VELOCITY AT CSI -- REFERENCE COORDINATES 026364,000137: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI 026365,000138: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION 026366,000139: 026367,000140: # SUBROUTINES USED 026368,000141: # AVFLAGA 026369,000142: # AVFLAGP 026370,000143: # P20FLGON 026371,000144: # VARALARM 026372,000145: # BANKCALL 026373,000146: # GOFLASH 026374,000147: # GOTOP00H 026375,000148: # Page 631 026376,000149: # VNP00H 026377,000150: # GOFLASHR 026378,000151: # BLANKET 026379,000152: # ENDOFJOB 026380,000153: # SELECTMU 026381,000154: # ADVANCE 026382,000155: # INTINT 026383,000156: # PASSIVE 026384,000157: # CSI/A 026385,000158: # S32/33.1 026386,000159: # DISDVLVC 026387,000160: # VN1645 026388,000161: 026389,000162: 35,2034 BANK 35 026390,000163: 35,2000 SETLOC CSI/CDH 026391,000164: 35,2000 BANK 026392,000165: 35,2034 E7,1470 EBANK= SUBEXIT 026393,000166: 35,2034 COUNT* $$/P3272 026394,000167: 35,2034 02354 P32 TC AVFLAGA 026395,000168: 35,2035 02037 TC P32STRT 026396,000169: 35,2036 02361 P72 TC AVFLAGP 026397,000170: 35,2037 00006 P32STRT EXTEND 026398,000171: 35,2040 32425 DCA P30ZERO 026399,000172: 35,2041 53621 DXCH CENTANG 026400,000173: 35,2042 02060 TC P32/P72A 026401,000174: 35,2043 77734 ALMXITA SXA,2 026402,000175: 35,2044 03613 CSIALRM 026403,000176: 35,2045 77740 ALMXIT LXC,1 026404,000177: 35,2046 03613 CSIALRM 026405,000178: 35,2047 77533 SLOAD* EXIT 026406,000179: 35,2050 32430 ALARM/TB -1,1 026407,000180: 35,2051 30154 CA MPAC 026408,000181: 35,2052 05734 TC VARALARM 026409,000182: 35,2053 35006 CAF V05N09 026410,000183: 35,2054 04616 TC BANKCALL 026411,000184: 35,2055 20477 CADR GOFLASH 026412,000185: 35,2056 06001 TC GOTOP00H 026413,000186: 35,2057 02053 TC -4 026414,000187: 35,2060 02366 P32/P72A TC P20FLGON 026415,000188: 35,2061 32424 CAF P30ZERO 026416,000189: 35,2062 55467 TS NN +1 026417,000190: 35,2063 55633 TS TCSI 026418,000191: 35,2064 55634 TS TCSI +1 026419,000192: 35,2065 32415 VN0611 CAF V06N11 # TCSI 026420,000193: 35,2066 03621 TC VNP00H 026421,000194: 35,2067 06042 TC INTPRET 026422,000195: 35,2070 57545 DLOAD DCOMP 026423,000196: 35,2071 03634 TCSI 026424,000197: 35,2072 71240 BMN DLOAD 026425,000198: 35,2073 72120 VN0655 026426,000199: # Page 632 026427,000200: 35,2074 01643 TETLEM 026428,000201: 35,2075 34041 STCALL TDEC1 026429,000202: 35,2076 46403 PRECSET 026430,000203: 35,2077 53775 VLOAD VSR* 026431,000204: 35,2100 03536 RACT3 026432,000205: 35,2101 57176 0,2 026433,000206: 35,2102 26655 STOVL RVEC 026434,000207: 35,2103 03544 VACT3 026435,000208: 35,2104 43057 VSR* SET 026436,000209: 35,2105 57176 0,2 026437,000210: 35,2106 03466 RVSW 026438,000211: 35,2107 16744 STODL VVEC 026439,000212: 35,2110 06532 DPPOSMAX 026440,000213: 35,2111 36756 STCALL RDESIRED 026441,000214: 35,2112 25557 TIMERAD 026442,000215: 35,2113 77615 DAD 026443,000216: 35,2114 03574 TDEC2 026444,000217: 35,2115 03634 STORE TCSI 026445,000218: 35,2116 77776 EXIT 026446,000219: 35,2117 02065 TC VN0611 026447,000220: 35,2120 77776 VN0655 EXIT 026448,000221: 35,2121 33633 CAF V06N55 # NN, ELEV(RGLOS) 026449,000222: 35,2122 04616 TC BANKCALL 026450,000223: 35,2123 20477 CADR GOFLASH 026451,000224: 35,2124 06001 TC GOTOP00H 026452,000225: 35,2125 02127 TC +2 026453,000226: 35,2126 02121 TC -5 026454,000227: 35,2127 33632 CAF V06N37 # TTPI 026455,000228: 35,2130 03621 TC VNP00H 026456,000229: 35,2131 06042 TC INTPRET 026457,000230: 35,2132 77745 DLOAD 026458,000231: 35,2133 03634 TCSI 026459,000232: 35,2134 37442 STCALL TIG 026460,000233: 35,2135 20000 SELECTMU 026461,000234: 35,2136 77624 P32/P72B CALL 026462,000235: 35,2137 71016 ADVANCE 026463,000236: 35,2140 77201 SETPD VLOAD 026464,000237: 35,2141 00001 00 026465,000238: 35,2142 03506 VPASS1 026466,000239: 35,2143 65315 PDVL PDDL 026467,000240: 35,2144 03500 RPASS1 026468,000241: 35,2145 03634 TCSI 026469,000242: 35,2146 65325 PDDL PDDL 026470,000243: 35,2147 03636 TTPI 026471,000244: 35,2150 33641 TWOPI 026472,000245: 35,2151 45006 PUSH CALL 026473,000246: 35,2152 73376 INTINT 026474,000247: 35,2153 77624 CALL 026475,000248: 35,2154 46435 PASSIVE 026476,000249: 35,2155 77624 CALL 026477,000250: # Page 633 026478,000251: 35,2156 70113 CSI/A 026479,000252: 35,2157 43014 P32/P72C BON SET 026480,000253: 35,2160 01311 FINALFLG 026481,000254: 35,2161 72163 P32/P72D 026482,000255: 35,2162 00470 UPDATFLG 026483,000256: 35,2163 77745 P32/P72D DLOAD 026484,000257: 35,2164 02253 T1TOT2 026485,000258: 35,2165 02253 P32/P72E STORE T1TOT2 026486,000259: 35,2166 51025 DSU BPL 026487,000260: 35,2167 32427 60MIN 026488,000261: 35,2170 72165 P32/P72E 026489,000262: 35,2171 77745 DLOAD 026490,000263: 35,2172 02255 T2TOT3 026491,000264: 35,2173 02255 P32/P72F STORE T2TOT3 026492,000265: 35,2174 51025 DSU BPL 026493,000266: 35,2175 32427 60MIN 026494,000267: 35,2176 72173 P32/P72F 026495,000268: 35,2177 77776 EXIT 026496,000269: 35,2200 32417 CAF V06N75 026497,000270: 35,2201 03621 TC VNP00H 026498,000271: 35,2202 06042 TC INTPRET 026499,000272: 35,2203 45175 VLOAD CALL 026500,000273: 35,2204 02267 DELVEET1 026501,000274: 35,2205 71100 S32/33.1 026502,000275: 35,2206 26267 STOVL DELVEET1 026503,000276: 35,2207 02311 RACT2 026504,000277: 35,2210 26303 STOVL RACT1 026505,000278: 35,2211 02275 DELVEET2 026506,000279: 35,2212 45170 AXT,1 CALL 026507,000280: 35,2213 01522 VN 0682 026508,000281: 35,2214 72375 DISDVLVC 026509,000282: 35,2215 77745 DLOAD 026510,000283: 35,2216 03636 TTPI 026511,000284: 35,2217 37640 STCALL TTPIO 026512,000285: 35,2220 73515 VN1645 026513,000286: 35,2221 77650 GOTO 026514,000287: 35,2222 72136 P32/P72B 026515,000288: 026516,000289: # Page 634 026517,000290: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73) 026518,000291: # MOD NO -1 LOC SECTION -- P32-P35, P72-P75 026519,000292: # MOD BY WHITE, P. DATE: 1 JUNE 67 026520,000293: 026521,000294: # PURPOSE 026522,000295: 026523,000296: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA 026524,000297: # ALTITUDE MANEUVER (CDH). 026525,000298: 026526,000299: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA 026527,000300: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. 026528,000301: 026529,000302: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES 026530,000303: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE 026531,000304: # ASTRONAUT/GROUND. 026532,000305: 026533,000306: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED 026534,000307: # THRUSTING PROGRAM. 026535,000308: 026536,000309: # ASSUMPTIONS 026537,000310: 026538,000311: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE 026539,000312: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72). 026540,000313: # THEREFORE -- 026541,000314: 026542,000315: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT 026543,000316: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE 026544,000317: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE 026545,000318: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION. 026546,000319: 026547,000320: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS 026548,000321: # COMPUTED TO BE GREATER THAN 10 MINUTES. 026549,000322: 026550,000323: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS 026551,000324: # COMPUTED TO BE GREATER THAN 10 MINUTES. 026552,000325: 026553,000326: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE 026554,000327: # ORBITS WAS MINIMIZED. 026555,000328: 026556,000329: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS 026557,000330: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE 026558,000331: # POSITION AT CSI IGNITION. 026559,000332: 026560,000333: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND 026561,000334: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR 026562,000335: # ORBIT OR 85 NM FOR EARTH ORBIT. 026563,000336: 026564,000337: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO 026565,000338: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW 026566,000339: # Page 635 026567,000340: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED 026568,000341: # IN AN OUT-OF-PLANE MANEUVER. 026569,000342: 026570,000343: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 026571,000344: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4). 026572,000345: 026573,000346: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY 026574,000347: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED 026575,000348: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME 026576,000349: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES. 026577,000350: 026578,000351: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM. 026579,000352: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 026580,000353: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY 026581,000354: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE 026582,000355: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE 026583,000356: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING 026584,000357: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH 026585,000358: # THRUSTING MANEUVER. 026586,000359: 026587,000360: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM. 026588,000361: 026589,000362: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -- 026590,000363: 026591,000364: # ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS 026592,000365: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 026593,000366: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF 026594,000367: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. 026595,000368: 026596,000369: # FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS 026597,000370: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY 026598,000371: # CYCLE. 026599,000372: 026600,000373: # EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF 026601,000374: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE 026602,000375: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS 026603,000376: # PROGRAM. 026604,000377: 026605,000378: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO 026606,000379: # A THRUSTING MANEUVER. 026607,000380: 026608,000381: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY. 026609,000382: 026610,000383: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE. 026611,000384: 026612,000385: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE. 026613,000386: 026614,000387: # INPUT 026615,000388: 026616,000389: # (1) TTPIO TIME OF THE TPI MANEUVER -- SAVED FROM P32/P72 026617,000390: # Page 636 026618,000391: # (2) ELEV DESIRED LOS ANGLE AT TPI -- SAVED FROM P32/P72 026619,000392: # (3) TCDH TIME OF THE CDH MANEUVER 026620,000393: 026621,000394: # OUTPUT 026622,000395: 026623,000396: # (1) TRKMKCNT NUMBER OF MARKS 026624,000397: # (2) TTOGO TIME TO GO 026625,000398: # (3) +MGA MIDDLE GIMBAL ANGLE 026626,000399: # (4) DIFFALT DELTA ALTITUDE AT CDH 026627,000400: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI 026628,000401: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI 026629,000402: # (7) DELVLVC DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES 026630,000403: 026631,000404: # DOWNLINK 026632,000405: 026633,000406: # (1) TCDH TIME OF THE CDH MANEUVER 026634,000407: # (2) TTPI TIME OF THE TPI MANEUVER 026635,000408: # (3) TIG TIME OF THE CDH MANEUVER 026636,000409: # (4) DELLVEET2 DELTA VELOCITY AT CDH -- REFERENCE COORDINATES 026637,000410: # (5) DIFFALT DELTA ALTITUDE AT CDH 026638,000411: # (6) ELEV DESIRED LOS ANGLE AT TPI 026639,000412: 026640,000413: # COMMUNICATION TO THRUSTING PROGRAMS 026641,000414: 026642,000415: # (1) TIG TIME OF THE CDH MANEUVER 026643,000416: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION 026644,000417: # INTO PLANE OF PASSIVE VEHICLE. 026645,000418: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION 026646,000419: # INTO PLANE OF PASSIVE VEHICLE. 026647,000420: # (4) DELVSIN DELTA VELOCITY AT CDH -- REFERENCE COORDINATES. 026648,000421: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH. 026649,000422: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION. 026650,000423: 026651,000424: # SUBROUTINES USED 026652,000425: 026653,000426: # AVFLAGA 026654,000427: # AVFLAGP 026655,000428: # P20FLGON 026656,000429: # VNP00H 026657,000430: # SELECTMU 026658,000431: # ADVANCE 026659,000432: # CDHMVR 026660,000433: # INTINT3P 026661,000434: # ACTIVE 026662,000435: # PASSIVE 026663,000436: # S33/S34.1 026664,000437: # ALARM 026665,000438: # BANKCALL 026666,000439: # GOFLASH 026667,000440: # GOTOP00H 026668,000441: # S32/33.1 026669,000442: # Page 637 026670,000443: # VN1645 026671,000444: 026672,000445: 35,2223 COUNT* $$/P3373 026673,000446: 35,2223 02354 P33 TC AVFLAGA 026674,000447: 35,2224 02226 TC P33/P73A 026675,000448: 35,2225 02361 P73 TC AVFLAGP 026676,000449: 35,2226 02366 P33/P73A TC P20FLGON 026677,000450: 35,2227 32416 CAF V06N13 # TCDH 026678,000451: 35,2230 03621 TC VNP00H 026679,000452: 35,2231 06042 TC INTPRET 026680,000453: 35,2232 77745 DLOAD 026681,000454: 35,2233 03640 TTPIO 026682,000455: 35,2234 17636 STODL TTPI 026683,000456: 35,2235 01777 TCDH 026684,000457: 35,2236 37442 STCALL TIG 026685,000458: 35,2237 20000 SELECTMU 026686,000459: 35,2240 77624 P33/P73B CALL 026687,000460: 35,2241 71016 ADVANCE 026688,000461: 35,2242 77624 CALL 026689,000462: 35,2243 71133 CDHMVR 026690,000463: 35,2244 77201 SETPD VLOAD 026691,000464: 35,2245 00001 0D 026692,000465: 35,2246 03544 VACT3 026693,000466: 35,2247 45115 PDVL CALL 026694,000467: 35,2250 02311 RACT2 026695,000468: 35,2251 71071 INTINT3P 026696,000469: 35,2252 77624 CALL 026697,000470: 35,2253 46425 ACTIVE 026698,000471: 35,2254 77201 SETPD VLOAD 026699,000472: 35,2255 00001 0D 026700,000473: 35,2256 03530 VPASS2 026701,000474: 35,2257 45115 PDVL CALL 026702,000475: 35,2260 03522 RPASS2 026703,000476: 35,2261 71071 INTINT3P 026704,000477: 35,2262 77624 CALL 026705,000478: 35,2263 46435 PASSIVE 026706,000479: 35,2264 43145 DLOAD SET 026707,000480: 35,2265 32425 P30ZERO 026708,000481: 35,2266 03460 ITSWICH 026709,000482: 35,2267 36317 STCALL NOMTPI 026710,000483: 35,2270 72674 S33/34.1 026711,000484: 35,2271 77454 BZE EXIT 026712,000485: 35,2272 72307 P33/P73C 026713,000486: 35,2273 05567 TC ALARM 026714,000487: 35,2274 00611 OCT 611 026715,000488: 35,2275 35006 CAF V05N09 026716,000489: 35,2276 04616 TC BANKCALL 026717,000490: 35,2277 20477 CADR GOFLASH 026718,000491: 35,2300 06001 TC GOTOP00H 026719,000492: 35,2301 02303 TC +2 026720,000493: # Page 638 026721,000494: 35,2302 02226 TC P33/P73A 026722,000495: 35,2303 06042 TC INTPRET 026723,000496: 35,2304 77745 DLOAD 026724,000497: 35,2305 32425 P30ZERO 026725,000498: 35,2306 02317 STORE NOMTPI 026726,000499: 35,2307 43014 P33/P73C BON SET 026727,000500: 35,2310 01311 FINALFLG 026728,000501: 35,2311 72313 P33/P73D 026729,000502: 35,2312 00470 UPDATFLG 026730,000503: 35,2313 43345 P33/P73D DLOAD DAD 026731,000504: 35,2314 02317 NOMTPI 026732,000505: 35,2315 03636 TTPI 026733,000506: 35,2316 03636 STORE TTPI 026734,000507: 35,2317 77625 DSU 026735,000508: 35,2320 01777 TCDH 026736,000509: 35,2321 51025 P33/P73E DSU BPL 026737,000510: 35,2322 32427 60MIN 026738,000511: 35,2323 72321 P33/P73E 026739,000512: 35,2324 77615 DAD 026740,000513: 35,2325 32427 60MIN 026741,000514: 35,2326 16253 STODL T1TOT2 026742,000515: 35,2327 03636 TTPI 026743,000516: 35,2330 41425 DSU PUSH 026744,000517: 35,2331 03640 TTPIO 026745,000518: 35,2332 45246 P33/P73F ABS DSU 026746,000519: 35,2333 32427 60MIN 026747,000520: 35,2334 43244 BPL DAD 026748,000521: 35,2335 72332 P33/P73F 026749,000522: 35,2336 32427 60MIN 026750,000523: 35,2337 45565 SIGN STADR 026751,000524: 35,2340 75522 STORE T2TOT3 026752,000525: 35,2341 77776 EXIT 026753,000526: 35,2342 32417 CAF V06N75 026754,000527: 35,2343 03621 TC VNP00H 026755,000528: 35,2344 06042 TC INTPRET 026756,000529: 35,2345 45175 VLOAD CALL 026757,000530: 35,2346 02275 DELVEET2 026758,000531: 35,2347 71100 S32/33.1 026759,000532: 35,2350 36275 STCALL DELVEET2 026760,000533: 35,2351 73515 VN1645 026761,000534: 35,2352 77650 GOTO 026762,000535: 35,2353 72240 P33/P73B 026763,000536: 026764,000537: # Page 639 026765,000538: # ***** ADFLAG/P ***** 026766,000539: 026767,000540: # SUBROUTINES USED 026768,000541: 026769,000542: # UPFLAG 026770,000543: # DOWNFLAG 026771,000544: 026772,000545: 35,2354 00006 AVFLAGA EXTEND # AVFLAG = LEM 026773,000546: 35,2355 23470 QXCH SUBEXIT 026774,000547: 35,2356 05504 TC UPFLAG 026775,000548: 35,2357 00050 ADRES AVFLAG 026776,000549: 35,2360 01470 TC SUBEXIT 026777,000550: 35,2361 00006 AVFLAGP EXTEND # AVFLAG = CSM 026778,000551: 35,2362 23470 QXCH SUBEXIT 026779,000552: 35,2363 05516 TC DOWNFLAG 026780,000553: 35,2364 00050 ADRES AVFLAG 026781,000554: 35,2365 01470 TC SUBEXIT 026782,000555: 35,2366 00006 P20FLGON EXTEND 026783,000556: 35,2367 23470 QXCH SUBEXIT 026784,000557: 35,2370 05504 TC UPFLAG 026785,000558: 35,2371 00027 ADRES UPDATFLG # SET UPDATFLG 026786,000559: 35,2372 05504 TC UPFLAG 026787,000560: 35,2373 00031 ADRES TRACKFLG # SET TRACKFLG 026788,000561: 35,2374 01470 TC SUBEXIT 026789,000562: 026790,000563: # Page 640 026791,000564: # ***** DISDVLVC ***** 026792,000565: 026793,000566: # SUBROUTINES USED 026794,000567: 026795,000568: # S32/33.X 026796,000569: # VNP00H 026797,000570: 026798,000571: 35,2375 03434 DISDVLVC STORE DELVLVC 026799,000572: 35,2376 45020 STQ CALL 026800,000573: 35,2377 03463 NORMEX 026801,000574: 35,2400 71120 S32/33.X 026802,000575: 35,2401 64375 VLOAD MXV 026803,000576: 35,2402 03434 DELVLVC 026804,000577: 35,2403 00001 0D 026805,000578: 35,2404 66172 VSL1 SXA,1 026806,000579: 35,2405 03615 VERBNOUN 026807,000580: 35,2406 03434 STORE DELVLVC 026808,000581: 35,2407 77776 EXIT 026809,000582: 35,2410 31615 CA VERBNOUN 026810,000583: 35,2411 03621 TC VNP00H 026811,000584: 35,2412 06042 TC INTPRET 026812,000585: 35,2413 77650 GOTO 026813,000586: 35,2414 03463 NORMEX 026814,000587: 026815,000588: # Page 641 026816,000589: # ***** CONSTANTS ***** 026817,000590: 026818,000591: 35,2415 01413 V06N11 VN 0611 026819,000592: 35,2416 01415 V06N13 VN 0613 026820,000593: 35,2417 01513 V06N75 VN 0675 026821,000594: 35,2420 77776 62460 SN359+ 2DEC -.000086601 026822,000595: 35,2422 17777 37776 CS359+ 2DEC +.499999992 026823,000596: 35,2424 00000 00000 P30ZERO 2DEC 0 B-28 026824,000597: 35,2426 00025 37100 60MIN 2DEC 360000 B-28 026825,000598: 026826,000599: 35,2430 00600 ALARM/TB OCT 00600 # NO 1 026827,000600: 35,2431 00601 OCT 00601 # 2 026828,000601: 35,2432 00602 OCT 00602 # 3 026829,000602: 35,2433 00603 OCT 00603 # 4 026830,000603: 35,2434 00604 OCT 00604 # 5 026831,000604: 35,2435 00605 OCT 00605 # 6 026832,000605: 35,2436 00606 OCT 00606 # 7 026833,000606: 026834,000607: # Page 642 026835,000608: # ***** CSI/A ***** 026836,000609: 026837,000610: # SUBROUTINES USED 026838,000611: 026839,000612: # VECSHIFT 026840,000613: # TIMETHET 026841,000614: # PERIAPO 026842,000615: # SHIFTR1 026843,000616: # INTINT2C 026844,000617: # CDHMVR 026845,000618: # PERIAPO1 026846,000619: # INTINT 026847,000620: # ACTIVE 026848,000621: 026849,000622: 34,2057 BANK 34 026850,000623: 34,2000 SETLOC CSI/CDH1 026851,000624: 34,2000 BANK 026852,000625: 34,2057 E7,1470 EBANK= SUBEXIT 026853,000626: 34,2057 COUNT* $$/CSI 026854,000627: 34,2057 00000 00020 LOOPMX 2DEC 16 B-28 026855,000628: 34,2061 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS 026856,000629: 34,2063 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS 026857,000630: 34,2065 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS 026858,000631: 34,2067 10000 00000 1DPB2 2DEC 1.0 B-2 026859,000632: 34,2071 00000 00001 1DPB28 2DEC 1 B-28 026860,000633: 34,2073 00004 31566 PMINE 2DEC 157420 B-29 # 85 NM -- MUST BE 8 WORDS BEFORE PMINM 026861,000634: 34,2075 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS 026862,000635: 34,2077 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS (CHANGED FROM .05 FPS) 026863,000636: 34,2101 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 5 FPS 026864,000637: 34,2103 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT -- MUST BE 8 WORDS AFTER PMINE 026865,000638: 34,2105 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS 026866,000639: 34,2107 00000 06433 ONETHTH 2DEC .0001 B-3 026867,000640: 34,2111 00003 25140 TMIN 2DEC 60000 B-28 # 10 MIN 026868,000641: 026869,000642: 34,2113 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS 026870,000643: 34,2114 03260 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR 026871,000644: 34,2115 03061 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATOR 026872,000645: # Page 643 026873,000646: 34,2116 43014 CLEAR SET 026874,000647: 34,2117 03262 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE 026875,000648: 34,2120 03063 S32.1F3B # 10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE 026876,000649: 34,2121 77745 DLOAD 026877,000650: 34,2122 32425 P30ZERO 026878,000651: 34,2123 03606 STORE LOOPCT 026879,000652: 34,2124 03614 STORE CSIALRM 026880,000653: 34,2125 77201 CSI/B SETPD VLOAD 026881,000654: 34,2126 00001 0D 026882,000655: 34,2127 02303 RACT1 026883,000656: 34,2130 41446 ABVAL PUSH # RA1 B29 PL02D 026884,000657: 34,2131 70501 NORM SR1 026885,000658: 34,2132 00050 X2 # B29-N2+ B1 PL04D 026886,000659: 34,2133 51515 PDVL ABVAL 026887,000660: 34,2134 03552 RPASS3 026888,000661: 34,2135 55301 NORM BDDV # RA1/RP3 B1 PL02D 026889,000662: 34,2136 00047 X1 026890,000663: 34,2137 53664 XSU,2 SR* # B2 026891,000664: 34,2140 00046 X1 026892,000665: 34,2141 57175 1,2 026893,000666: 34,2142 41215 DAD DMP # (1+(RA1/RP3))RA1 B29_B2=B31 PL00D 026894,000667: 34,2143 30070 1DPB2 026895,000668: 34,2144 65301 NORM PDDL # PL02D 026896,000669: 34,2145 00047 X1 026897,000670: 34,2146 02321 RTMU 026898,000671: 34,2147 56342 SR1 DDV # B38-B3= B7 PL00D 026899,000672: 34,2150 75457 SL* SQRT # B7 026900,000673: 34,2151 20172 0 -7,1 026901,000674: 34,2152 53515 PDVL UNIT # PL02D 026902,000675: 34,2153 02303 RACT1 026903,000676: 34,2154 47315 PDVL VXV 026904,000677: 34,2155 02261 UP1 026905,000678: 34,2156 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1 026906,000679: 34,2157 72441 DOT SL1 # VA1 . UH1 B7 026907,000680: 34,2160 03472 VACT1 026908,000681: 34,2161 45421 BDSU STADR # PL00D 026909,000682: 34,2162 60203 STODL DELVCSI 026910,000683: 34,2163 30062 INITST # 10 FPS 026911,000684: 34,2164 03612 STORE DELDV 026912,000685: 34,2165 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16 026913,000686: 34,2166 03606 LOOPCT 026914,000687: 34,2167 30072 1DPB28 026915,000688: 34,2170 03606 STORE LOOPCT 026916,000689: 34,2171 77025 DSU AXT,2 026917,000690: 34,2172 30060 LOOPMX 026918,000691: 34,2173 00006 6 026919,000692: 34,2174 77644 BPL 026920,000693: 34,2175 70776 SCNDSOL 026921,000694: 34,2176 77601 CSI/B2 SETPD 026922,000695: 34,2177 00001 0D 026923,000696: # Page 644 026924,000697: 34,2200 51545 DLOAD ABS 026925,000698: 34,2201 03574 DELVCSI 026926,000699: 34,2202 50025 DSU BMN 026927,000700: 34,2203 30064 DVMAX1 026928,000701: 34,2204 70224 CSI/B23 026929,000702: 34,2205 43174 AXT,2 BON 026930,000703: 34,2206 00007 7 026931,000704: 34,2207 03300 S32.1F1 026932,000705: 34,2210 70776 SCNDSOL 026933,000706: 34,2211 43014 BOFF BON 026934,000707: 34,2212 03342 S32.1F3A 026935,000708: 34,2213 70216 CSI/B22 # FLAG 3 NEQ 3 026936,000709: 34,2214 03303 S32.1F3B 026937,000710: 34,2215 70776 SCNDSOL 026938,000711: 34,2216 71214 CSI/B22 SET DLOAD 026939,000712: 34,2217 03060 S32.1F1 026940,000713: 34,2220 30066 DVMAX2 026941,000714: 34,2221 77765 SIGN 026942,000715: 34,2222 03574 DELVCSI 026943,000716: 34,2223 03574 STORE DELVCSI 026944,000717: 34,2224 41575 CSI/B23 VLOAD PUSH 026945,000718: 34,2225 02303 RACT1 026946,000719: 34,2226 63256 UNIT PDVL 026947,000720: 34,2227 02261 UP1 026948,000721: 34,2230 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1 026949,000722: 34,2231 76561 VXSC VSL1 026950,000723: 34,2232 03574 DELVCSI 026951,000724: 34,2233 02267 STORE DELVEET1 026952,000725: 34,2234 40055 VAD BOV 026953,000726: 34,2235 03472 VACT1 026954,000727: 34,2236 70237 CSI/B23D 026955,000728: 34,2237 37566 CSI/B23D STCALL VACT4 026956,000729: 34,2240 46441 VECSHIFT 026957,000730: 34,2241 26744 STOVL VVEC 026958,000731: 34,2242 77614 SET 026959,000732: 34,2243 03466 RVSW 026960,000733: 34,2244 26655 STOVL RVEC 026961,000734: 34,2245 32421 SN359+ 026962,000735: 34,2246 36730 STCALL SNTH # ALSO CSTH 026963,000736: 34,2247 24732 TIMETHET 026964,000737: 34,2250 72142 SR1 LXA,1 026965,000738: 34,2251 02776 RTX1 026966,000739: 34,2252 37604 STCALL HAFPA1 026967,000740: 34,2253 46351 PERIAPO 026968,000741: 34,2254 77624 CALL 026969,000742: 34,2255 46451 SHIFTR1 026970,000743: 34,2256 17602 STODL POSTCSI 026971,000744: 34,2257 03621 CENTANG 026972,000745: 34,2260 52054 BZE GOTO 026973,000746: 34,2261 70263 +2 026974,000747: # Page 645 026975,000748: 34,2262 70372 CIRCL 026976,000749: 34,2263 77745 DLOAD 026977,000750: 34,2264 02752 ECC 026978,000751: 34,2265 50025 DSU BMN 026979,000752: 34,2266 30110 ONETHTH 026980,000753: 34,2267 70372 CIRCL 026981,000754: 34,2270 45145 DLOAD CALL 026982,000755: 34,2271 00041 R1 026983,000756: 34,2272 46451 SHIFTR1 026984,000757: 34,2273 60201 SETPD NORM 026985,000758: 34,2274 00003 2D 026986,000759: 34,2275 00047 X1 026987,000760: 34,2276 50315 PDVL DOT # PL04D 026988,000761: 34,2277 02303 RACT1 026989,000762: 34,2300 03566 VACT4 026990,000763: 34,2301 56246 ABS DDV 026991,000764: 34,2302 00003 02D # (/RDOTV/)/R1 B38-B29= B7 026992,000765: 34,2303 45257 SL* DSU 026993,000766: 34,2304 20201 0,1 026994,000767: 34,2305 30100 NICKELDP 026995,000768: 34,2306 71240 BMN DLOAD 026996,000769: 34,2307 70372 CIRCL 026997,000770: 34,2310 02740 P 026998,000771: 34,2311 45312 SL2 DSU 026999,000772: 34,2312 30070 1DPB2 027000,000773: 34,2313 14017 STODL 14D 027001,000774: 34,2314 02317 RTSR1/MU 027002,000775: 34,2315 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D 027003,000776: 34,2316 41325 PDDL DMP 027004,000777: 34,2317 02740 P 027005,000778: 34,2320 00041 R1 027006,000779: 34,2321 77624 CALL 027007,000780: 34,2322 46451 SHIFTR1 027008,000781: 34,2323 72412 SL4 SL1 027009,000782: 34,2324 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-14 = B-31 BL02D 027010,000783: 34,2325 52414 BOFF SL3 027011,000784: 34,2326 04343 CMOONFLG 027012,000785: 34,2327 70330 CSI/B3 027013,000786: 34,2330 50315 CSI/B3 PDVL DOT 027014,000787: 34,2331 02303 RACT1 027015,000788: 34,2332 03566 VACT4 027016,000789: 34,2333 03617 STORE RDOTV 027017,000790: 34,2334 77646 ABS 027018,000791: 34,2335 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D 027019,000792: 34,2336 00050 X2 027020,000793: 34,2337 53660 XSU,1 SL* # B-31+B36-B3 = B2 027021,000794: 34,2340 00047 X2 027022,000795: 34,2341 20204 3,1 027023,000796: 34,2342 14015 STODL 12D 027024,000797: 34,2343 32425 P30ZERO 027025,000798: # Page 646 027026,000799: 34,2344 00021 STORE 16D 027027,000800: 34,2345 53575 VLOAD UNIT 027028,000801: 34,2346 00015 12D 027029,000802: 34,2347 26730 STOVL SNTH # ALSO STORES CSTH AND 0 027030,000803: 34,2350 02303 RACT1 027031,000804: 34,2351 75315 PDVL SIGN 027032,000805: 34,2352 03566 VACT4 027033,000806: 34,2353 03617 RDOTV 027034,000807: 34,2354 45076 VCOMP CALL 027035,000808: 34,2355 46441 VECSHIFT 027036,000809: 34,2356 26744 STOVL VVEC 027037,000810: 34,2357 77614 SET 027038,000811: 34,2360 03466 RVSW 027039,000812: 34,2361 36655 STCALL RVEC 027040,000813: 34,2362 24732 TIMETHET 027041,000814: 34,2363 51125 PDDL BPL 027042,000815: 34,2364 03617 RDOTV 027043,000816: 34,2365 70376 NTP/2 027044,000817: 34,2366 45345 DLOAD DSU 027045,000818: 34,2367 03604 HAFPA1 027046,000819: 34,2370 52006 PUSH GOTO 027047,000820: 34,2371 70376 NTP/2 027048,000821: 34,2372 71201 CIRCL SETPD DLOAD 027049,000822: 34,2373 00001 00D 027050,000823: 34,2374 32425 P30ZERO 027051,000824: 34,2375 77606 PUSH 027052,000825: 34,2376 41345 NTP/2 DLOAD DMP 027053,000826: 34,2377 03467 NN 027054,000827: 34,2400 03604 HAFPA1 027055,000828: 34,2401 45261 SL DSU 027056,000829: 34,2402 20217 14D 027057,000830: 34,2403 77615 DAD 027058,000831: 34,2404 03634 TCSI 027059,000832: 34,2405 01777 STORE TCDH 027060,000833: 34,2406 77021 BDSU AXT,2 027061,000834: 34,2407 03636 TTPI 027062,000835: 34,2410 00005 5D 027063,000836: 34,2411 40240 BMN SETPD 027064,000837: 34,2412 70776 SCNDSOL 027065,000838: 34,2413 00001 0D 027066,000839: 34,2414 63375 VLOAD PDVL 027067,000840: 34,2415 03566 VACT4 027068,000841: 34,2416 02303 RACT1 027069,000842: 34,2417 77624 CALL 027070,000843: 34,2420 71062 INTINT2C 027071,000844: 34,2421 26311 STOVL RACT2 027072,000845: 34,2422 00007 VATT 027073,000846: 34,2423 27514 STOVL VACT2 027074,000847: 34,2424 03506 VPASS1 027075,000848: 34,2425 63201 SETPD PDVL 027076,000849: # Page 647 027077,000850: 34,2426 00001 0D 027078,000851: 34,2427 03500 RPASS1 027079,000852: 34,2430 77624 CALL 027080,000853: 34,2431 71062 INTINT2C 027081,000854: 34,2432 27522 STOVL RPASS2 027082,000855: 34,2433 00007 VATT 027083,000856: 34,2434 37530 STCALL VPASS2 027084,000857: 34,2435 71133 CDHMVR 027085,000858: 34,2436 40375 VLOAD SETPD 027086,000859: 34,2437 02311 RACT2 027087,000860: 34,2440 00001 0D 027088,000861: 34,2441 45115 PDVL CALL 027089,000862: 34,2442 03544 VACT3 027090,000863: 34,2443 46341 PERIAPO1 027091,000864: 34,2444 77624 CALL 027092,000865: 34,2445 46451 SHIFTR1 027093,000866: 34,2446 27604 STOVL POSTCDH 027094,000867: 34,2447 03544 VACT3 027095,000868: 34,2450 63201 SETPD PDVL 027096,000869: 34,2451 00001 0D 027097,000870: 34,2452 02311 RACT2 027098,000871: 34,2453 65325 PDDL PDDL 027099,000872: 34,2454 01777 TCDH 027100,000873: 34,2455 03636 TTPI 027101,000874: 34,2456 41525 PDDL PUSH 027102,000875: 34,2457 33641 TWOPI 027103,000876: 34,2460 77624 CALL 027104,000877: 34,2461 73376 INTINT 027105,000878: 34,2462 77624 CALL 027106,000879: 34,2463 46425 ACTIVE 027107,000880: 34,2464 77745 DLOAD 027108,000881: 34,2465 02257 ELEV 027109,000882: 34,2466 73401 SETPD SINE 027110,000883: 34,2467 00007 6D 027111,000884: 34,2470 53515 PDVL UNIT 027112,000885: 34,2471 03536 RACT3 027113,000886: 34,2472 00001 STORE 00D # URA3 AT 00D 027114,000887: 34,2473 47315 PDVL VXV # PL14D, PL08D 027115,000888: 34,2474 02261 UP1 027116,000889: 34,2475 77656 UNIT 027117,000890: 34,2476 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D 027118,000891: 34,2477 02257 ELEV 027119,000892: 34,2500 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D 027120,000893: 34,2501 77754 STORE 18D # PLUS 027121,000894: 34,2502 74345 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D 027122,000895: 34,2503 76455 VAD VSL1 027123,000896: 34,2504 00023 18D # B1 027124,000897: 34,2505 50206 PUSH DOT # PL06D 027125,000898: 34,2506 03536 RACT3 # (U . RA3) = TEMP1 B1 + B29 = B30 027126,000899: 34,2507 41552 SL1 PUSH # B29 PL08D 027127,000900: # Page 648 027128,000901: 34,2510 72316 DSQ TLOAD # TEMP1**2 B58 027129,000902: 34,2511 00155 MPAC 027130,000903: 34,2512 50315 PDVL DOT # PL11D 027131,000904: 34,2513 03536 RACT3 027132,000905: 34,2514 03536 RACT3 027133,000906: 34,2515 57551 TLOAD DCOMP # RA3 . RA3 027134,000907: 34,2516 00155 MPAC 027135,000908: 34,2517 50315 PDVL DOT # RP3 . RP3 B58 PL14D 027136,000909: 34,2520 03552 RPASS3 027137,000910: 34,2521 03552 RPASS3 # PL11D 027138,000911: 34,2522 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D 027139,000912: 34,2523 71244 BPL DLOAD 027140,000913: 34,2524 70542 K10RK2 027141,000914: 34,2525 03606 LOOPCT 027142,000915: 34,2526 77025 DSU AXT,2 027143,000916: 34,2527 30072 1DPB28 027144,000917: 34,2530 00001 1D 027145,000918: 34,2531 77654 BZE 027146,000919: 34,2532 72043 ALMXITA 027147,000920: 34,2533 70545 DLOAD SR1 027148,000921: 34,2534 03612 DELDV 027149,000922: 34,2535 03612 STORE DELDV 027150,000923: 34,2536 77621 BDSU 027151,000924: 34,2537 03576 DVPREV 027152,000925: 34,2540 37574 STCALL DELVCSI 027153,000926: 34,2541 70165 CSI/B1 027154,000927: 34,2542 41566 K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D 027155,000928: 34,2543 45276 DCOMP DSU 027156,000929: 34,2544 00007 06D # -TEMP1-TEMP3 = K2 AT 10D 027157,000930: 34,2545 14013 STODL 10D # PL08D 027158,000931: 34,2546 45425 DSU STADR # PL06D 027159,000932: 34,2547 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D 027160,000933: 34,2550 77646 ABS 027161,000934: 34,2551 14017 STODL 14D 027162,000935: 34,2552 00013 10D 027163,000936: 34,2553 45246 ABS DSU 027164,000937: 34,2554 00017 14D 027165,000938: 34,2555 71240 BMN DLOAD 027166,000939: 34,2556 70561 K2. 027167,000940: 34,2557 00015 12D 027168,000941: 34,2560 00013 STORE 10D # K = K1 027169,000942: 34,2561 77745 K2. DLOAD 027170,000943: 34,2562 00013 10D 027171,000944: 34,2563 76561 VXSC VSL1 027172,000945: 34,2564 53455 VAD UNIT # V = RA3 + KU UNIT B1 027173,000946: 34,2565 03536 RACT3 027174,000947: 34,2566 53515 PDVL UNIT 027175,000948: 34,2567 03552 RPASS3 # PL06D 027176,000949: 34,2570 53515 PDVL UNIT 027177,000950: 34,2571 03560 VPASS3 # PL12D 027178,000951: # Page 649 027179,000952: 34,2572 63235 VXV PDVL # UVP3 X URP3 PL18D 027180,000953: 34,2573 00007 06D 027181,000954: 34,2574 00007 06D 027182,000955: 34,2575 50235 VXV DOT 027183,000956: 34,2576 00001 00D 027184,000957: 34,2577 77626 STADR # PL12D 027185,000958: 34,2600 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D 027186,000959: 34,2601 72441 DOT SL1 # PL00D 027187,000960: 34,2602 75326 ARCCOS SIGN 027188,000961: 34,2603 00015 12D # B0 027189,000962: 34,2604 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D 027190,000963: 34,2605 71214 BON DLOAD 027191,000964: 34,2606 03301 S32.1F2 027192,000965: 34,2607 70644 FRSTPAS 027193,000966: 34,2610 00001 00D # NOT THE FIRST PASS OF A CYCLE 027194,000967: 34,2611 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D 027195,000968: 34,2612 03610 GAMPREV 027196,000969: 34,2613 03574 DELVCSI 027197,000970: 34,2614 60225 DSU NORM # B7 027198,000971: 34,2615 03576 DVPREV 027199,000972: 34,2616 00047 X1 027200,000973: 34,2617 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D 027201,000974: 34,2620 00003 02D # = SLOPE 027202,000975: 34,2621 03574 DELVCSI 027203,000976: 34,2622 03576 STORE DVPREV 027204,000977: 34,2623 43014 BOFF BOFF 027205,000978: 34,2624 03342 S32.1F3A 027206,000979: 34,2625 70656 THRDCHK 027207,000980: 34,2626 03343 S32.1F3B 027208,000981: 34,2627 70656 THRDCHK 027209,000982: 34,2630 41345 DLOAD DMP 027210,000983: 34,2631 00003 02D 027211,000984: 34,2632 03610 GAMPREV 027212,000985: 34,2633 71244 BPL DLOAD 027213,000986: 34,2634 70663 FIFTYFPS 027214,000987: 34,2635 30062 INITST 027215,000988: 34,2636 77765 SIGN 027216,000989: 34,2637 03612 DELDV 027217,000990: 34,2640 03612 STORE DELDV 027218,000991: 34,2641 43014 SET CLEAR 027219,000992: 34,2642 03062 S32.1F3A 027220,000993: 34,2643 03263 S32.1F3B 027221,000994: 34,2644 77745 FRSTPAS DLOAD 027222,000995: 34,2645 00001 00D 027223,000996: 34,2646 17610 STODL GAMPREV 027224,000997: 34,2647 03574 DELVCSI 027225,000998: 34,2650 03576 STORE DVPREV 027226,000999: 34,2651 43025 DSU CLEAR 027227,001000: 34,2652 03612 DELDV 027228,001001: 34,2653 03261 S32.1F2 027229,001002: # Page 650 027230,001003: 34,2654 37574 STCALL DELVCSI 027231,001004: 34,2655 70165 CSI/B1 027232,001005: 34,2656 43014 THRDCHK BON BON 027233,001006: 34,2657 03302 S32.1F3A 027234,001007: 34,2660 70702 NEWTN 027235,001008: 34,2661 03303 S32.1F3B 027236,001009: 34,2662 70702 NEWTN 027237,001010: 34,2663 75345 FIFTYFPS DLOAD SIGN 027238,001011: 34,2664 30102 FIFPSDP 027239,001012: 34,2665 00005 04D 027240,001013: 34,2666 77765 SIGN 027241,001014: 34,2667 03610 GAMPREV 027242,001015: 34,2670 03612 STORE DELDV 027243,001016: 34,2671 43276 DCOMP DAD 027244,001017: 34,2672 03574 DELVCSI 027245,001018: 34,2673 17574 STODL DELVCSI 027246,001019: 34,2674 00001 00D 027247,001020: 34,2675 43014 SET SET 027248,001021: 34,2676 03063 S32.1F3B 027249,001022: 34,2677 03062 S32.1F3A 027250,001023: 34,2700 37610 STCALL GAMPREV 027251,001024: 34,2701 70176 CSI/B2 027252,001025: 34,2702 60345 NEWTN DLOAD NORM 027253,001026: 34,2703 00005 04D 027254,001027: 34,2704 00050 X2 027255,001028: 34,2705 54065 BDDV XSU,1 027256,001029: 34,2706 00001 00D 027257,001030: 34,2707 00047 X2 027258,001031: 34,2710 77657 SR* 027259,001032: 34,2711 20601 0,1 027260,001033: 34,2712 17612 STODL DELDV 027261,001034: 34,2713 00001 00D 027262,001035: 34,2714 03610 STORE GAMPREV 027263,001036: 34,2715 51545 DLOAD ABS 027264,001037: 34,2716 03612 DELDV 027265,001038: 34,2717 45206 PUSH DSU 027266,001039: 34,2720 30076 EPSILN1 027267,001040: 34,2721 71240 BMN DLOAD 027268,001041: 34,2722 70737 CSI/SOL 027269,001042: 34,2723 50025 DSU BMN 027270,001043: 34,2724 30106 DELMAX1 027271,001044: 34,2725 70732 CSISTEP 027272,001045: 34,2726 75345 DLOAD SIGN 027273,001046: 34,2727 30106 DELMAX1 027274,001047: 34,2730 03612 DELDV 027275,001048: 34,2731 03612 STORE DELDV 027276,001049: 34,2732 45345 CSISTEP DLOAD DSU 027277,001050: 34,2733 03574 DELVCSI 027278,001051: 34,2734 03612 DELDV 027279,001052: 34,2735 37574 STCALL DELVCSI 027280,001053: # Page 651 027281,001054: 34,2736 70165 CSI/B1 027282,001055: 34,2737 77145 CSI/SOL DLOAD AXT,2 027283,001056: 34,2740 03602 POSTCSI 027284,001057: 34,2741 00002 2 027285,001058: 34,2742 77750 LXA,1 027286,001059: 34,2743 02776 RTX1 027287,001060: 34,2744 50023 DSU* BMN 027288,001061: 34,2745 30072 PMINE -2,1 027289,001062: 34,2746 70776 SCNDSOL 027290,001063: 34,2747 71374 AXT,2 DLOAD 027291,001064: 34,2750 00003 3 027292,001065: 34,2751 03604 POSTCDH 027293,001066: 34,2752 50023 DSU* BMN 027294,001067: 34,2753 30072 PMINE -2,1 027295,001068: 34,2754 70776 SCNDSOL 027296,001069: 34,2755 45345 DLOAD DSU 027297,001070: 34,2756 01777 TCDH 027298,001071: 34,2757 03634 TCSI 027299,001072: 34,2760 02253 STORE T1TOT2 027300,001073: 34,2761 45374 AXT,2 DSU 027301,001074: 34,2762 00004 4 027302,001075: 34,2763 30112 TMIN 027303,001076: 34,2764 77040 BMN AXT,2 027304,001077: 34,2765 70776 SCNDSOL 027305,001078: 34,2766 00005 5 027306,001079: 34,2767 45345 DLOAD DSU 027307,001080: 34,2770 03636 TTPI 027308,001081: 34,2771 01777 TCDH 027309,001082: 34,2772 02255 STORE T2TOT3 027310,001083: 34,2773 51025 DSU BPL 027311,001084: 34,2774 30112 TMIN 027312,001085: 34,2775 72157 P32/P72C 027313,001086: 34,2776 43014 SCNDSOL BON BOFF 027314,001087: 34,2777 03302 S32.1F3A 027315,001088: 34,3000 72045 ALMXIT 027316,001089: 34,3001 03343 S32.1F3B 027317,001090: 34,3002 72045 ALMXIT 027318,001091: 34,3003 71334 SXA,2 DLOAD 027319,001092: 34,3004 03613 CSIALRM 027320,001093: 34,3005 32425 P30ZERO 027321,001094: 34,3006 43014 CLEAR SET 027322,001095: 34,3007 03260 S32.1F1 027323,001096: 34,3010 03061 S32.1F2 027324,001097: 34,3011 43014 CLEAR CLEAR 027325,001098: 34,3012 03262 S32.1F3A 027326,001099: 34,3013 03263 S32.1F3B 027327,001100: 34,3014 37606 STCALL LOOPCT 027328,001101: 34,3015 70125 CSI/B 027329,001102: 027330,001103: # Page 652 027331,001104: # ***** ADVANCE ***** 027332,001105: 027333,001106: # SUBROUTINES USED 027334,001107: # PRECSET 027335,001108: # ROTATE 027336,001109: 027337,001110: 34,3016 71220 ADVANCE STQ DLOAD 027338,001111: 34,3017 03470 SUBEXIT 027339,001112: 34,3020 03442 TIG 027340,001113: 34,3021 34041 STCALL TDEC1 027341,001114: 34,3022 46403 PRECSET 027342,001115: 34,3023 77214 SET VLOAD 027343,001116: 34,3024 01067 XDELVFLG 027344,001117: 34,3025 03560 VPASS3 027345,001118: 34,3026 03530 STORE VPASS2 027346,001119: 34,3027 27506 STOVL VPASS1 027347,001120: 34,3030 03552 RPASS3 027348,001121: 34,3031 03522 STORE RPASS2 027349,001122: 34,3032 03500 STORE RPASS1 027350,001123: 34,3033 47256 UNIT VXV 027351,001124: 34,3034 03506 VPASS1 027352,001125: 34,3035 77656 UNIT 027353,001126: 34,3036 26261 STOVL UP1 027354,001127: 34,3037 03536 RACT3 027355,001128: 34,3040 37642 STCALL RTIG 027356,001129: 34,3041 71052 ROTATE 027357,001130: 34,3042 02311 STORE RACT2 027358,001131: 34,3043 26303 STOVL RACT1 027359,001132: 34,3044 03544 VACT3 027360,001133: 34,3045 37650 STCALL VTIG 027361,001134: 34,3046 71052 ROTATE 027362,001135: 34,3047 03514 STORE VACT2 027363,001136: 34,3050 37472 STCALL VACT1 027364,001137: 34,3051 03470 SUBEXIT 027365,001138: 027366,001139: # Page 653 027367,001140: # ***** ROTATE ***** 027368,001141: 027369,001142: 34,3052 41406 ROTATE PUSH PUSH 027370,001143: 34,3053 74241 DOT VXSC 027371,001144: 34,3054 02261 UP1 027372,001145: 34,3055 02261 UP1 027373,001146: 34,3056 51352 VSL2 BVSU 027374,001147: 34,3057 63256 UNIT PDVL 027375,001148: 34,3060 74246 ABVAL VXSC 027376,001149: 34,3061 43572 VSL1 RVQ 027377,001150: 027378,001151: # Page 654 027379,001152: # ***** INTINTNA ***** 027380,001153: 027381,001154: 34,3062 65325 INTINT2C PDDL PDDL 027382,001155: 34,3063 03634 TCSI 027383,001156: 34,3064 01777 TCDH 027384,001157: 34,3065 41525 PDDL PUSH 027385,001158: 34,3066 33641 TWOPI 027386,001159: 34,3067 77650 GOTO 027387,001160: 34,3070 73376 INTINT 027388,001161: 34,3071 65325 INTINT3P PDDL PDDL 027389,001162: 34,3072 01777 TCDH 027390,001163: 34,3073 03636 TTPI 027391,001164: 34,3074 41525 PDDL PUSH 027392,001165: 34,3075 32425 P30ZERO 027393,001166: 34,3076 77650 GOTO 027394,001167: 34,3077 73376 INTINT 027395,001168: 027396,001169: # Page 655 027397,001170: # ***** S32/33.1 ***** 027398,001171: 027399,001172: # SUBROUTINES USED 027400,001173: # S32/33.X 027401,001174: 027402,001175: 34,3100 76020 S32/33.1 STQ AXT,1 027403,001176: 34,3101 03470 SUBEXIT 027404,001177: 34,3102 01521 VN 0681 027405,001178: 34,3103 77624 CALL 027406,001179: 34,3104 72375 DISDVLVC 027407,001180: 34,3105 77624 CALL 027408,001181: 34,3106 71120 S32/33.X 027409,001182: 34,3107 61375 VLOAD VXM 027410,001183: 34,3110 03434 DELVLVC 027411,001184: 34,3111 00001 0D 027412,001185: 34,3112 77772 VSL1 027413,001186: 34,3113 03656 STORE DELVSIN 027414,001187: 34,3114 51406 PUSH ABVAL 027415,001188: 34,3115 27664 STOVL DELVSAB 027416,001189: 34,3116 77650 GOTO 027417,001190: 34,3117 03470 SUBEXIT 027418,001191: 027419,001192: # Page 656 027420,001193: # ***** S32/33.X ***** 027421,001194: 027422,001195: 34,3120 77201 S32/33.X SETPD VLOAD 027423,001196: 34,3121 00007 6D 027424,001197: 34,3122 02261 UP1 027425,001198: 34,3123 63276 VCOMP PDVL 027426,001199: 34,3124 02303 RACT1 027427,001200: 34,3125 57456 UNIT VCOMP 027428,001201: 34,3126 47206 PUSH VXV 027429,001202: 34,3127 02261 UP1 027430,001203: 34,3130 77772 VSL1 027431,001204: 34,3131 00001 STORE 0D 027432,001205: 34,3132 77616 RVQ 027433,001206: 027434,001207: # Page 657 027435,001208: # ***** CDHMVR ***** 027436,001209: 027437,001210: # SUBROUTINES USED 027438,001211: # VECSHIFT 027439,001212: # TIMETHET 027440,001213: # SHIFTR1 027441,001214: 027442,001215: 34,3133 77220 CDHMVR STQ VLOAD 027443,001216: 34,3134 03470 SUBEXIT 027444,001217: 34,3135 02311 RACT2 027445,001218: 34,3136 53406 PUSH UNIT 027446,001219: 34,3137 27544 STOVL UNVEC # UR SUB A 027447,001220: 34,3140 03522 RPASS2 027448,001221: 34,3141 50256 UNIT DOT 027449,001222: 34,3142 03544 UNVEC 027450,001223: 34,3143 72406 PUSH SL1 027451,001224: 34,3144 16732 STODL CSTH 027452,001225: 34,3145 65316 DSQ PDDL 027453,001226: 34,3146 06514 DP1/4TH 027454,001227: 34,3147 45302 SR2 DSU 027455,001228: 34,3150 72566 SQRT SL1 027456,001229: 34,3151 57515 PDVL VCOMP 027457,001230: 34,3152 77635 VXV 027458,001231: 34,3153 03522 RPASS2 027459,001232: 34,3154 65241 DOT PDDL 027460,001233: 34,3155 02261 UP1 027461,001234: 34,3156 45565 SIGN STADR 027462,001235: 34,3157 51047 STOVL SNTH 027463,001236: 34,3160 03522 RPASS2 027464,001237: 34,3161 45115 PDVL CALL 027465,001238: 34,3162 03530 VPASS2 027466,001239: 34,3163 46441 VECSHIFT 027467,001240: 34,3164 26744 STOVL VVEC 027468,001241: 34,3165 77614 CLEAR 027469,001242: 34,3166 03666 RVSW 027470,001243: 34,3167 36655 STCALL RVEC 027471,001244: 34,3170 24732 TIMETHET 027472,001245: 34,3171 53754 LXA,2 VSL* 027473,001246: 34,3172 02777 RTX2 027474,001247: 34,3173 57576 0,2 027475,001248: 34,3174 00023 STORE 18D 027476,001249: 34,3175 76441 DOT SL1R 027477,001250: 34,3176 03544 UNVEC 027478,001251: 34,3177 51515 PDVL ABVAL # 0D = V SUB PV 027479,001252: 34,3200 63257 SL* PDVL 027480,001253: 34,3201 57576 0,2 027481,001254: 34,3202 02311 RACT2 027482,001255: 34,3203 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A 027483,001256: 34,3204 77625 DSU 027484,001257: # Page 658 027485,001258: 34,3205 00003 02D 027486,001259: 34,3206 17600 STODL DIFFALT # DELTA H IN METERS B+29 027487,001260: 34,3207 02742 R1A 027488,001261: 34,3210 65301 NORM PDDL # 2 - R V**/MU 04D 027489,001262: 34,3211 00047 X1 027490,001263: 34,3212 00041 R1 027491,001264: 34,3213 77624 CALL 027492,001265: 34,3214 46451 SHIFTR1 027493,001266: 34,3215 56362 SR1R DDV 027494,001267: 34,3216 41457 SL* PUSH 027495,001268: 34,3217 20174 0 -5,1 027496,001269: 34,3220 65225 DSU PDDL # A SUB A B+29 04D 027497,001270: 34,3221 03600 DIFFALT 027498,001271: 34,3222 56302 SR2 DDV # A SUB P B+31 027499,001272: 34,3223 00005 04D # B+2 027500,001273: 34,3224 75406 PUSH SQRT # A SUB P/A SUB A 06D 027501,001274: 34,3225 41275 DMPR DMP 027502,001275: 34,3226 00007 06D 027503,001276: 34,3227 00001 00D 027504,001277: 34,3230 65272 SL3R PDDL # V SUB A V METERS/CS B+7 08D 027505,001278: 34,3231 00003 02D # R SUB A MAGNITUDE B+29 027506,001279: 34,3232 65301 NORM PDDL 027507,001280: 34,3233 00047 X1 027508,001281: 34,3234 02321 RTMU 027509,001282: 34,3235 56342 SR1 DDV # 2MU B+38 027510,001283: 34,3236 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D 027511,001284: 34,3237 20174 0 -5,1 027512,001285: 34,3240 00005 04D # ASUBA B+29 027513,001286: 34,3241 65301 NORM PDDL 027514,001287: 34,3242 00050 X2 027515,001288: 34,3243 02321 RTMU 027516,001289: 34,3244 56342 SR1 DDV 027517,001290: 34,3245 44257 SL* BDSU 027518,001291: 34,3246 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ 027519,001292: 34,3247 63525 PDDL DSQ # 10D 027520,001293: 34,3250 00011 08D 027521,001294: 34,3251 75421 BDSU SQRT 027522,001295: 34,3252 47315 PDVL VXV # SQRT(MU(2/R SUB 1-1/A SUB A)-VSUBA2) 10D 027523,001296: 34,3253 02261 UP1 027524,001297: 34,3254 03544 UNVEC 027525,001298: 34,3255 74256 UNIT VXSC 027526,001299: 34,3256 00013 10D 027527,001300: 34,3257 74315 PDVL VXSC 027528,001301: 34,3260 03544 UNVEC 027529,001302: 34,3261 00011 08D 027530,001303: 34,3262 76455 VAD VSL1 027531,001304: 34,3263 77626 STADR 027532,001305: 34,3264 74233 STORE VACT3 027533,001306: 34,3265 77651 VSU 027534,001307: 34,3266 03514 VACT2 027535,001308: # Page 659 027536,001309: 34,3267 36275 STCALL DELVEET2 # DELTA VCDH -- REFERENCE COORDINATES 027537,001310: 34,3270 03470 SUBEXIT 027538,001311: 027539,001312: # Page 660 027540,001313: # ***** COMPTGO ***** 027541,001314: 027542,001315: # SUBROUTINES USED 027543,001316: # CLOKTASK 027544,001317: # 2PHSCHNG 027545,001318: 027546,001319: 35,2437 BANK 35 027547,001320: 35,2000 SETLOC CSI/CDH 027548,001321: 35,2000 BANK 027549,001322: 027550,001323: 35,2437 E7,1465 EBANK= RTRN 027551,001324: 027552,001325: 35,2437 COUNT* $$/P3575 027553,001326: 027554,001327: 35,2437 00006 COMPTGO EXTEND 027555,001328: 35,2440 23465 QXCH RTRN 027556,001329: 35,2441 34755 CAF ZERO 027557,001330: 35,2442 55162 TS DISPDEX 027558,001331: 35,2443 34752 CAF BIT2 027559,001332: 35,2444 00004 INHINT 027560,001333: 35,2445 05203 TC WAITLIST 027561,001334: 35,2446 E7,1455 EBANK= WHICH 027562,001335: 35,2446 02723 74067 2CADR CLOKTASK 027563,001336: 027564,001337: 35,2450 05327 TC 2PHSCHNG 027565,001338: 35,2451 40036 OCT 40036 027566,001339: 35,2452 05024 OCT 05024 027567,001340: 35,2453 13000 OCT 13000 027568,001341: 35,2454 01465 TC RTRN 027569,001342: 027570,001343: # *** END OF LEMP30S .105 *** End of include-file P32-P35_P72-P75.agc. Parent file is MAIN.agc