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