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