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