Source Code

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