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