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