Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
023911,000002: ## Copyright: Public domain.
023912,000003: ## Filename: P32-P35,_P72-P75.agc
023913,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
023914,000005: ## It is part of the reconstructed source code for the Lunar
023915,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
023916,000007: ## No original listings of this program are available;
023917,000008: ## instead, this file was created via disassembly of dumps
023918,000009: ## of various revisions of Sundance core rope modules.
023919,000010: ## Assembler: yaYUL
023920,000011: ## Contact: Ron Burkey <info@sandroid.org>.
023921,000012: ## Website: www.ibiblio.org/apollo/index.html
023922,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
023923,000014: ## 2021-05-30 ABS TTPIO -> TTPI0
023924,000015: ## K10RK2 -> K1ORK2
023925,000016:
023926,000017: ## Sundance 292
023927,000018:
023928,000019: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
023929,000020:
023930,000021: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
023931,000022: # MOD BY WHITE.P DATE 1JUNE67
023932,000023:
023933,000024: # PURPOSE
023934,000025:
023935,000026: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
023936,000027: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
023937,000028: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
023938,000029: # (CDH) MANEUVER.
023939,000030:
023940,000031: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
023941,000032: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
023942,000033:
023943,000034: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
023944,000035: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
023945,000036: # APPROVAL BY THE ASTRONAUT/GROUND.
023946,000037:
023947,000038: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
023948,000039: # THRUSTING PROGRAM.
023949,000040:
023950,000041: # ASSUMPTIONS
023951,000042:
023952,000043: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
023953,000044: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
023954,000045: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
023955,000046: # POSITION.
023956,000047:
023957,000048: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
023958,000049: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
023959,000050: # COMPLETION OF THE PROGRAM.
023960,000051:
023961,000052: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
023962,000053: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
023963,000054: # COMPLETION OF THE PROGRAM.
023964,000055:
023965,000056: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
023966,000057: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
023967,000058:
023968,000059: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
023969,000060: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
023970,000061: # IGNITION.
023971,000062:
023972,000063: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
023973,000064: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
023974,000065: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
023975,000066:
023976,000067: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
023977,000068: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
023978,000069: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
023979,000070: # OUT-OF-PLANE CSI MANEUVER.
023980,000071:
023981,000072: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
023982,000073: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
023983,000074:
023984,000075: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
023985,000076: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
023986,000077: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
023987,000078: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
023988,000079:
023989,000080: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
023990,000081: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
023991,000082: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
023992,000083: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
023993,000084: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
023994,000085: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
023995,000086: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
023996,000087: # THRUSTING MANEUVER.
023997,000088:
023998,000089: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
023999,000090:
024000,000091: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
024001,000092:
024002,000093: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
024003,000094: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
024004,000095: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
024005,000096: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
024006,000097:
024007,000098: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
024008,000099: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
024009,000100: # CYCLE.
024010,000101:
024011,000102: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
024012,000103: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
024013,000104: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
024014,000105: # PROGRAM.
024015,000106:
024016,000107: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
024017,000108: # A THRUSTING MANEUVER.
024018,000109:
024019,000110: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
024020,000111:
024021,000112: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
024022,000113:
024023,000114: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
024024,000115:
024025,000116: # INPUT
024026,000117:
024027,000118: # (1) TCSI TIME OF THE CSI MANEUVER
024028,000119: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
024029,000120: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
024030,000121: # MANEUVER POINT
024031,000122: # (3) ELEV DESIRED LOS ANGLE AT TPI
024032,000123: # (4) TTPI TIME OF THE TPI MANEUVER
024033,000124: # OUTPUT
024034,000125:
024035,000126: # (1) TRKMKCNT NUMBER OF MARKS
024036,000127: # (2) TTOGO TIME TO GO
024037,000128: # (3) +MGA MIDDLE GIMBAL ANGLE
024038,000129: # (4) DIFFALT DELTA ALTITUDE AT CDH
024039,000130: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
024040,000131: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
024041,000132: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
024042,000133: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
024043,000134:
024044,000135: # DOWNLINK
024045,000136:
024046,000137: # (1) TCSI TIME OF THE CSI MANEUVER
024047,000138: # (2) TCDH TIME OF THE CDH MANEUVER
024048,000139: # (3) TTPI TIME OF THE TPI MANEUVER
024049,000140: # (4) TIG TIME OF THE CSI MANEUVER
024050,000141: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
024051,000142: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
024052,000143: # (7) DIFFALT DELTA ALTITUDE AT CDH
024053,000144: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
024054,000145: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
024055,000146: # MANEUVER POINT
024056,000147: # (9) ELEV DESIRED LOS ANGLE AT TPI
024057,000148:
024058,000149: # COMMUNICATION TO THRUSTING PROGRAMS
024059,000150:
024060,000151: # (1) TIG TIME OF THE CSI MANEUVER
024061,000152: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
024062,000153: # INTO PLANE OF PASSIVE VEHICLE
024063,000154: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
024064,000155: # INTO PLANE OF PASSIVE VEHICLE
024065,000156: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
024066,000157: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
024067,000158: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
024068,000159:
024069,000160: # SUBROUTINES USED
024070,000161:
024071,000162: # AVFLAGA
024072,000163: # AVFLAGP
024073,000164: # P20FLGON
024074,000165: # VARALARM
024075,000166: # BANKCALL
024076,000167: # GOFLASH
024077,000168: # GOTOPOOH
024078,000169: # VNPOOH
024079,000170: # GOFLASHR
024080,000171: # BLANKET
024081,000172: # ENDOFJOB
024082,000173: # SELECTMU
024083,000174: # ADVANCE
024084,000175: # INTINT
024085,000176: # PASSIVE
024086,000177: # CSI/A
024087,000178: # S32/33.1
024088,000179: # DISDVLVC
024089,000180: # VN1645
024090,000181:
024091,000182: 35,2120 BANK 35
024092,000183: 35,2000 SETLOC CSI/CDH
024093,000184: 35,2000 BANK
024094,000185: 35,2120 E7,1455 EBANK= SUBEXIT
024095,000186: 35,2120 COUNT* $$/P3272
024096,000187: 35,2120 02405 P32 TC AVFLAGA
024097,000188: 35,2121 02143 TC P32/P72A
024098,000189: 35,2122 02412 P72 TC AVFLAGP
024099,000190: 35,2123 02143 TC P32/P72A
024100,000191: 35,2124 77734 ALMXITA SXA,2
024101,000192: 35,2125 03600 CSIALRM
024102,000193: 35,2126 43140 ALMXIT LXC,1 BOFF
024103,000194: 35,2127 03600 CSIALRM
024104,000195: 35,2130 03346 LTCPFLG
024105,000196: 35,2131 64271 P10ALARM
024106,000197: 35,2132 77533 SLOAD* EXIT
024107,000198: 35,2133 32456 ALARM/TB -1,1
024108,000199: 35,2134 30154 CA MPAC
024109,000200: 35,2135 05736 TC VARALARM
024110,000201: 35,2136 35056 CAF V05N09
024111,000202: 35,2137 04655 TC BANKCALL
024112,000203: 35,2140 20406 CADR GOFLASH
024113,000204: 35,2141 04106 TC GOTOPOOH
024114,000205: 35,2142 02136 TC -4
024115,000206: 35,2143 32452 P32/P72A CAF P30ZERO
024116,000207: 35,2144 55454 TS NN +1
024117,000208: 35,2145 32443 CAF V06N30 # TCSI
024118,000209: 35,2146 03614 TC VNPOOH
024119,000210: 35,2147 33626 CAF V06N55 # NN, ELEV(RGLOS)
024120,000211: 35,2150 04655 TC BANKCALL
024121,000212: 35,2151 20544 CADR GOFLASHR
024122,000213: 35,2152 04106 TC GOTOPOOH
024123,000214: 35,2153 02160 TC +5
024124,000215: 35,2154 02147 TC -5
024125,000216: 35,2155 35024 CAF BIT3
024126,000217: 35,2156 05553 TC BLANKET
024127,000218: 35,2157 05225 TC ENDOFJOB
024128,000219: 35,2160 33625 CAF V06N37 # TTPI
024129,000220: 35,2161 03614 TC VNPOOH
024130,000221: 35,2162 06014 TC INTPRET
024131,000222: 35,2163 77745 DLOAD
024132,000223: 35,2164 03621 TCSI
024133,000224: 35,2165 37425 STCALL TIG
024134,000225: 35,2166 20045 SELECTMU
024135,000226: 35,2167 45014 P32/P72B SET CALL
024136,000227: 35,2170 03066 LTCPFLG
024137,000228: 35,2171 71001 ADVANCE
024138,000229: 35,2172 77201 SETPD VLOAD
024139,000230: 35,2173 00001 0D
024140,000231: 35,2174 03473 VPASS1
024141,000232: 35,2175 65315 PDVL PDDL
024142,000233: 35,2176 03465 RPASS1
024143,000234: 35,2177 03621 TCSI
024144,000235: 35,2200 65325 PDDL PDDL
024145,000236: 35,2201 03623 TTPI
024146,000237: 35,2202 33634 TWOPI
024147,000238: 35,2203 45006 PUSH CALL
024148,000239: 35,2204 73406 INTINT
024149,000240: 35,2205 77624 CALL
024150,000241: 35,2206 46202 PASSIVE
024151,000242: 35,2207 77624 CALL
024152,000243: 35,2210 70077 CSI/A
024153,000244: 35,2211 43014 P32/P72C BON SET
024154,000245: 35,2212 01311 FINALFLG
024155,000246: 35,2213 72215 P32/P72D
024156,000247: 35,2214 00470 UPDATFLG
024157,000248: 35,2215 77745 P32/P72D DLOAD
024158,000249: 35,2216 02261 T1TOT2
024159,000250: 35,2217 02261 P32/P72E STORE T1TOT2
024160,000251: 35,2220 51025 DSU BPL
024161,000252: 35,2221 32455 60MIN
024162,000253: 35,2222 72217 P32/P72E
024163,000254: 35,2223 77745 DLOAD
024164,000255: 35,2224 02263 T2TOT3
024165,000256: 35,2225 02263 P32/P72F STORE T2TOT3
024166,000257: 35,2226 51025 DSU BPL
024167,000258: 35,2227 32455 60MIN
024168,000259: 35,2230 72225 P32/P72F
024169,000260: 35,2231 77776 EXIT
024170,000261: 35,2232 32445 CAF V06N50
024171,000262: 35,2233 03614 TC VNPOOH
024172,000263: 35,2234 06014 TC INTPRET
024173,000264: 35,2235 45175 VLOAD CALL
024174,000265: 35,2236 02303 DELVEET1
024175,000266: 35,2237 71063 S32/33.1
024176,000267: 35,2240 26303 STOVL DELVEET1
024177,000268: 35,2241 02325 RACT2
024178,000269: 35,2242 26317 STOVL RACT1
024179,000270: 35,2243 02311 DELVEET2
024180,000271: 35,2244 45170 AXT,1 CALL
024181,000272: 35,2245 01522 VN 0682
024182,000273: 35,2246 72423 DISDVLVC
024183,000274: 35,2247 77745 DLOAD
024184,000275: 35,2250 03623 TTPI
024185,000276: 35,2251 37625 STCALL TTPI0
024186,000277: 35,2252 73505 VN1645
024187,000278: 35,2253 77650 GOTO
024188,000279: 35,2254 72167 P32/P72B
024189,000280:
024190,000281: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
024191,000282:
024192,000283: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
024193,000284: # MOD BY WHITE.P DATE 1JUNE67
024194,000285: # PURPOSE
024195,000286:
024196,000287: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
024197,000288: # ALTITUDE MANEUVER (CDH).
024198,000289:
024199,000290: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
024200,000291: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
024201,000292:
024202,000293: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
024203,000294: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
024204,000295: # ASTRONAUT/GROUND.
024205,000296:
024206,000297: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
024207,000298: # THRUSTING PROGRAM.
024208,000299:
024209,000300: # ASSUMPTIONS
024210,000301:
024211,000302: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
024212,000303: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
024213,000304: # THERFORE -
024214,000305:
024215,000306: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
024216,000307: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
024217,000308: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
024218,000309: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
024219,000310:
024220,000311: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
024221,000312: # COMPUTED TO BE GREATER THAN 10 MINUTES.
024222,000313:
024223,000314: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
024224,000315: # COMPUTED TO BE GREATER THAN 10 MINUTES.
024225,000316:
024226,000317: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
024227,000318: # ORBITS WAS MINMIZED.
024228,000319:
024229,000320: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
024230,000321: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
024231,000322:
024232,000323: # POSITION AT CSI IGNITION.
024233,000324:
024234,000325: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
024235,000326: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
024236,000327: # ORBIT OR 85 NM FOR EARTH ORBIT.
024237,000328:
024238,000329: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
024239,000330: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
024240,000331: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
024241,000332: # IN AN OUT-OF-PLANE MANEUVER.
024242,000333:
024243,000334: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
024244,000335: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
024245,000336:
024246,000337: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
024247,000338: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
024248,000339: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
024249,000340: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
024250,000341:
024251,000342: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
024252,000343: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
024253,000344: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
024254,000345: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
024255,000346: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
024256,000347: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
024257,000348: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
024258,000349: # THRUSTING MANEUVER.
024259,000350:
024260,000351: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
024261,000352:
024262,000353: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
024263,000354:
024264,000355: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
024265,000356: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
024266,000357: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
024267,000358: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
024268,000359:
024269,000360: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
024270,000361: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
024271,000362: # CYCLE.
024272,000363:
024273,000364: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
024274,000365: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
024275,000366: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
024276,000367: # PROGRAM.
024277,000368:
024278,000369: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
024279,000370: # A THRUSTING MANEUVER.
024280,000371:
024281,000372: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
024282,000373:
024283,000374: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
024284,000375:
024285,000376: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
024286,000377:
024287,000378: # INPUT
024288,000379:
024289,000380: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
024290,000381: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
024291,000382: # (3) TCDH TIME OF THE CDH MANEUVER
024292,000383:
024293,000384: # OUTPUT
024294,000385:
024295,000386: # (1) TRKMKCNT NUMBER OF MARKS
024296,000387: # (2) TTOGO TIME TO GO
024297,000388: # (3) +MGA MIDDLE GIMBAL ANGLE
024298,000389: # (4) DIFFALT DELTA ALTITUDE AT CDH
024299,000390: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
024300,000391: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
024301,000392: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
024302,000393:
024303,000394: # DOWNLINK
024304,000395:
024305,000396: # (1) TCDH TIME OF THE CDH MANEUVER
024306,000397: # (2) TTPI TIME OF THE TPI MANEUVER
024307,000398: # (3) TIG TIME OF THE CDH MANEUVER
024308,000399: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
024309,000400: # (5) DIFFALT DELTA ALTITUDE AT CDH
024310,000401: # (6) ELEV DESIRED LOS ANGLE AT TPI
024311,000402: # COMMUNICATION TO THRUSTING PROGRAMS
024312,000403:
024313,000404: # (1) TIG TIME OF THE CDH MANEUVER
024314,000405: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
024315,000406: # INTO PLANE OF PASSIVE VEHICLE
024316,000407: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
024317,000408: # INTO PLANE OF PASSIVE VEHICLE
024318,000409: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
024319,000410: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
024320,000411: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
024321,000412:
024322,000413: # SUBROUTINES USED
024323,000414:
024324,000415: # AVFLAGA
024325,000416: # AVFLAGP
024326,000417: # P20FLGON
024327,000418: # VNPOOH
024328,000419: # SELECTMU
024329,000420: # ADVANCE
024330,000421: # CDHMVR
024331,000422: # INTINT3P
024332,000423: # ACTIVE
024333,000424: # PASSIVE
024334,000425: # S33/34.1
024335,000426: # ALARM
024336,000427: # BANKCALL
024337,000428: # GOFLASH
024338,000429: # GOTOPOOH
024339,000430: # S32/33.1
024340,000431: # VN1645
024341,000432:
024342,000433: 35,2255 COUNT* $$/P3373
024343,000434: 35,2255 02405 P33 TC AVFLAGA
024344,000435: 35,2256 02260 TC P33/P73A
024345,000436: 35,2257 02412 P73 TC AVFLAGP
024346,000437: 35,2260 32444 P33/P73A CAF V06N31 # TCDH
024347,000438: 35,2261 03614 TC VNPOOH
024348,000439: 35,2262 06014 TC INTPRET
024349,000440: 35,2263 77745 DLOAD
024350,000441: 35,2264 03625 TTPI0
024351,000442: 35,2265 17623 STODL TTPI
024352,000443: 35,2266 03371 TCDH
024353,000444: 35,2267 37425 STCALL TIG
024354,000445: 35,2270 20045 SELECTMU
024355,000446: 35,2271 77624 P33/P73B CALL
024356,000447: 35,2272 71001 ADVANCE
024357,000448: 35,2273 77624 CALL
024358,000449: 35,2274 71116 CDHMVR
024359,000450: 35,2275 77201 SETPD VLOAD
024360,000451: 35,2276 00001 0D
024361,000452: 35,2277 03531 VACT3
024362,000453: 35,2300 45115 PDVL CALL
024363,000454: 35,2301 02325 RACT2
024364,000455: 35,2302 71054 INTINT3P
024365,000456: 35,2303 77624 CALL
024366,000457: 35,2304 46172 ACTIVE
024367,000458: 35,2305 77201 SETPD VLOAD
024368,000459: 35,2306 00001 0D
024369,000460: 35,2307 03515 VPASS2
024370,000461: 35,2310 45115 PDVL CALL
024371,000462: 35,2311 03507 RPASS2
024372,000463: 35,2312 71054 INTINT3P
024373,000464: 35,2313 77624 CALL
024374,000465: 35,2314 46202 PASSIVE
024375,000466: 35,2315 43145 DLOAD SET
024376,000467: 35,2316 32453 P30ZERO
024377,000468: 35,2317 03460 ITSWICH
024378,000469: 35,2320 36335 STCALL NOMTPI
024379,000470: 35,2321 72721 S33/34.1
024380,000471: 35,2322 77454 BZE EXIT
024381,000472: 35,2323 72340 P33/P73C
024382,000473: 35,2324 05646 TC ALARM
024383,000474: 35,2325 00611 OCT 611
024384,000475: 35,2326 35056 CAF V05N09
024385,000476: 35,2327 04655 TC BANKCALL
024386,000477: 35,2330 20406 CADR GOFLASH
024387,000478: 35,2331 04106 TC GOTOPOOH
024388,000479: 35,2332 02334 TC +2
024389,000480: 35,2333 02260 TC P33/P73A
024390,000481: 35,2334 06014 TC INTPRET
024391,000482: 35,2335 77745 DLOAD
024392,000483: 35,2336 32453 P30ZERO
024393,000484: 35,2337 02335 STORE NOMTPI
024394,000485: 35,2340 43014 P33/P73C BON SET
024395,000486: 35,2341 01311 FINALFLG
024396,000487: 35,2342 72344 P33/P73D
024397,000488: 35,2343 00470 UPDATFLG
024398,000489: 35,2344 43345 P33/P73D DLOAD DAD
024399,000490: 35,2345 02335 NOMTPI
024400,000491: 35,2346 03623 TTPI
024401,000492: 35,2347 03623 STORE TTPI
024402,000493: 35,2350 77625 DSU
024403,000494: 35,2351 03371 TCDH
024404,000495: 35,2352 51025 P33/P73E DSU BPL
024405,000496: 35,2353 32455 60MIN
024406,000497: 35,2354 72352 P33/P73E
024407,000498: 35,2355 77615 DAD
024408,000499: 35,2356 32455 60MIN
024409,000500: 35,2357 16261 STODL T1TOT2
024410,000501: 35,2360 03623 TTPI
024411,000502: 35,2361 41425 DSU PUSH
024412,000503: 35,2362 03625 TTPI0
024413,000504: 35,2363 45246 P33/P73F ABS DSU
024414,000505: 35,2364 32455 60MIN
024415,000506: 35,2365 43244 BPL DAD
024416,000507: 35,2366 72363 P33/P73F
024417,000508: 35,2367 32455 60MIN
024418,000509: 35,2370 45565 SIGN STADR
024419,000510: 35,2371 75514 STORE T2TOT3
024420,000511: 35,2372 77776 EXIT
024421,000512: 35,2373 32445 CAF V06N50
024422,000513: 35,2374 03614 TC VNPOOH
024423,000514: 35,2375 06014 TC INTPRET
024424,000515: 35,2376 45175 VLOAD CALL
024425,000516: 35,2377 02311 DELVEET2
024426,000517: 35,2400 71063 S32/33.1
024427,000518: 35,2401 36311 STCALL DELVEET2
024428,000519: 35,2402 73505 VN1645
024429,000520: 35,2403 77650 GOTO
024430,000521: 35,2404 72271 P33/P73B
024431,000522:
024432,000523: # ..... AVFLAGA/P .....
024433,000524:
024434,000525: # SUBROUTINES USED
024435,000526:
024436,000527: # UPFLAG
024437,000528: # DOWNFLAG
024438,000529:
024439,000530: 35,2405 00006 AVFLAGA EXTEND # AVFLAG = LEM
024440,000531: 35,2406 23455 QXCH SUBEXIT
024441,000532: 35,2407 05563 TC UPFLAG
024442,000533: 35,2410 00050 ADRES AVFLAG
024443,000534: 35,2411 02416 TC P20FLGON
024444,000535: 35,2412 00006 AVFLAGP EXTEND # AVFLAG = CSM
024445,000536: 35,2413 23455 QXCH SUBEXIT
024446,000537: 35,2414 05575 TC DOWNFLAG
024447,000538: 35,2415 00050 ADRES AVFLAG
024448,000539: 35,2416 05563 P20FLGON TC UPFLAG
024449,000540: 35,2417 00027 ADRES UPDATFLG # SET UPDATFLG
024450,000541: 35,2420 05563 TC UPFLAG
024451,000542: 35,2421 00031 ADRES TRACKFLG # SET TRACKFLG
024452,000543: 35,2422 01455 TC SUBEXIT
024453,000544:
024454,000545: # ..... DISDVLVC .....
024455,000546:
024456,000547: # SUBROUTINES USED
024457,000548:
024458,000549: # S32/33.X
024459,000550: # VNPOOH
024460,000551:
024461,000552: 35,2423 02267 DISDVLVC STORE DELVLVC
024462,000553: 35,2424 45020 STQ CALL
024463,000554: 35,2425 03450 NORMEX
024464,000555: 35,2426 71103 S32/33.X
024465,000556: 35,2427 64375 VLOAD MXV
024466,000557: 35,2430 02267 DELVLVC
024467,000558: 35,2431 00001 0D
024468,000559: 35,2432 66172 VSL1 SXA,1
024469,000560: 35,2433 03602 VERBNOUN
024470,000561: 35,2434 02267 STORE DELVLVC
024471,000562: 35,2435 77776 EXIT
024472,000563: 35,2436 31602 CA VERBNOUN
024473,000564: 35,2437 03614 TC VNPOOH
024474,000565: 35,2440 06014 TC INTPRET
024475,000566: 35,2441 77650 GOTO
024476,000567: 35,2442 03450 NORMEX
024477,000568:
024478,000569: # ..... CONSTANTS .....
024479,000570:
024480,000571: 35,2443 01436 V06N30 VN 0630
024481,000572: 35,2444 01437 V06N31 VN 0631
024482,000573: 35,2445 01462 V06N50 VN 0650
024483,000574: 35,2446 77776 62460 SN359+ 2DEC -.000086601
024484,000575:
024485,000576: 35,2450 17777 37776 CS359+ 2DEC +.499999992
024486,000577:
024487,000578: 35,2452 00000 00000 P30ZERO 2DEC 0 B-28
024488,000579:
024489,000580: 35,2454 00025 37100 60MIN 2DEC 360000 B-28
024490,000581:
024491,000582: 35,2456 00600 ALARM/TB OCT 00600 # NO 1
024492,000583: 35,2457 00601 OCT 00601 # 2
024493,000584: 35,2460 00602 OCT 00602 # 3
024494,000585: 35,2461 00603 OCT 00603 # 4
024495,000586: 35,2462 00604 OCT 00604 # 5
024496,000587: 35,2463 00605 OCT 00605 # 6
024497,000588: 35,2464 00606 OCT 00606 # 7
024498,000589:
024499,000590: # ..... CSI/A .....
024500,000591:
024501,000592: # SUBROUTINES USED
024502,000593:
024503,000594: # VECSHIFT
024504,000595: # TIMETHET
024505,000596: # PERIAPO
024506,000597: # SHIFTR1
024507,000598: # INTINT2C
024508,000599: # CDHMVR
024509,000600: # PERIAPO1
024510,000601: # INTINT
024511,000602: # ACTIVE
024512,000603:
024513,000604: 34,2043 BANK 34
024514,000605: 34,2000 SETLOC CSI/CDH1
024515,000606: 34,2000 BANK
024516,000607: 34,2043 E7,1455 EBANK= SUBEXIT
024517,000608: 34,2043 COUNT* $$/CSI
024518,000609: 34,2043 00000 00020 LOOPMX 2DEC 16 B-28
024519,000610:
024520,000611: 34,2045 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
024521,000612:
024522,000613: 34,2047 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
024523,000614:
024524,000615: 34,2051 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
024525,000616:
024526,000617: 34,2053 10000 00000 1DPB2 2DEC 1.0 B-2
024527,000618:
024528,000619: 34,2055 00000 00001 1DPB28 2DEC 1 B-28
024529,000620:
024530,000621: 34,2057 00004 31651 PMINE 2DEC 157521 B-29 # 85 NM - MUST BE 8 WORDS BEFORE PMINM
024531,000622:
024532,000623: 34,2061 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
024533,000624:
024534,000625: 34,2063 00000 00500 NICKELDP 2DEC .0001524 B-7 # .05 FPS
024535,000626:
024536,000627: 34,2065 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
024537,000628:
024538,000629: 34,2067 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE
024539,000630:
024540,000631: 34,2071 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
024541,000632:
024542,000633: 34,2073 00000 06433 ONETHTH 2DEC .0001 B-3
024543,000634:
024544,000635: 34,2075 00003 25140 TMIN 2DEC 60000 B-28 # 10 MIN
024545,000636:
024546,000637: 34,2077 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
024547,000638: 34,2100 03260 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
024548,000639: 34,2101 03061 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
024549,000640: 34,2102 43014 CLEAR SET
024550,000641: 34,2103 03262 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
024551,000642: 34,2104 03063 S32.1F3B # 10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
024552,000643: 34,2105 77745 DLOAD
024553,000644: 34,2106 32453 P30ZERO
024554,000645: 34,2107 03575 STORE LOOPCT
024555,000646: 34,2110 03601 STORE CSIALRM
024556,000647: 34,2111 77201 CSI/B SETPD VLOAD
024557,000648: 34,2112 00001 0D
024558,000649: 34,2113 02317 RACT1
024559,000650: 34,2114 41446 ABVAL PUSH # RA1 B29 PL02D
024560,000651: 34,2115 70501 NORM SR1
024561,000652: 34,2116 00050 X2 # B29-N2+ B1 PL04D
024562,000653: 34,2117 51515 PDVL ABVAL
024563,000654: 34,2120 03537 RPASS3
024564,000655: 34,2121 55301 NORM BDDV # RA1/RP3 B1 PL02D
024565,000656: 34,2122 00047 X1
024566,000657: 34,2123 53664 XSU,2 SR* # B2
024567,000658: 34,2124 00046 X1
024568,000659: 34,2125 57175 1,2
024569,000660: 34,2126 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
024570,000661: 34,2127 30054 1DPB2
024571,000662: 34,2130 65301 NORM PDDL # PL02D
024572,000663: 34,2131 00047 X1
024573,000664: 34,2132 02337 RTMU
024574,000665: 34,2133 56342 SR1 DDV # B38-B31= B7 PL00D
024575,000666: 34,2134 75457 SL* SQRT # B7
024576,000667: 34,2135 20172 0 -7,1
024577,000668: 34,2136 53515 PDVL UNIT # PL02D
024578,000669: 34,2137 02317 RACT1
024579,000670: 34,2140 47315 PDVL VXV
024580,000671: 34,2141 02275 UP1
024581,000672: 34,2142 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
024582,000673: 34,2143 72441 DOT SL1 # VA1 . UH1 B7
024583,000674: 34,2144 03457 VACT1
024584,000675: 34,2145 45421 BDSU STADR # PL00D
024585,000676: 34,2146 60216 STODL DELVCSI
024586,000677: 34,2147 30046 INITST # 10 FPS
024587,000678: 34,2150 03565 STORE DELDV
024588,000679: 34,2151 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
024589,000680: 34,2152 03575 LOOPCT
024590,000681: 34,2153 30056 1DPB28
024591,000682: 34,2154 03575 STORE LOOPCT
024592,000683: 34,2155 77025 DSU AXT,2
024593,000684: 34,2156 30044 LOOPMX
024594,000685: 34,2157 00006 6
024595,000686: 34,2160 77644 BPL
024596,000687: 34,2161 70755 SCNDSOL
024597,000688: 34,2162 77601 CSI/B2 SETPD
024598,000689: 34,2163 00001 0D
024599,000690: 34,2164 51545 DLOAD ABS
024600,000691: 34,2165 03561 DELVCSI
024601,000692: 34,2166 50025 DSU BMN
024602,000693: 34,2167 30050 DVMAX1
024603,000694: 34,2170 70210 CSI/B23
024604,000695: 34,2171 43174 AXT,2 BON
024605,000696: 34,2172 00007 7
024606,000697: 34,2173 03300 S32.1F1
024607,000698: 34,2174 70755 SCNDSOL
024608,000699: 34,2175 43014 BOFF BON
024609,000700: 34,2176 03342 S32.1F3A
024610,000701: 34,2177 70202 CSI/B22 # FLAG 3 NEQ 3
024611,000702: 34,2200 03303 S32.1F3B
024612,000703: 34,2201 70755 SCNDSOL
024613,000704: 34,2202 71214 CSI/B22 SET DLOAD
024614,000705: 34,2203 03060 S32.1F1
024615,000706: 34,2204 30052 DVMAX2
024616,000707: 34,2205 77765 SIGN
024617,000708: 34,2206 03561 DELVCSI
024618,000709: 34,2207 03561 STORE DELVCSI
024619,000710: 34,2210 41575 CSI/B23 VLOAD PUSH
024620,000711: 34,2211 02317 RACT1
024621,000712: 34,2212 63256 UNIT PDVL
024622,000713: 34,2213 02275 UP1
024623,000714: 34,2214 53435 VXV UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
024624,000715: 34,2215 76561 VXSC VSL1
024625,000716: 34,2216 03561 DELVCSI
024626,000717: 34,2217 02303 STORE DELVEET1
024627,000718: 34,2220 40055 VAD BOV
024628,000719: 34,2221 03457 VACT1
024629,000720: 34,2222 70223 CSI/B23D
024630,000721: 34,2223 37553 CSI/B23D STCALL VACT4
024631,000722: 34,2224 46206 VECSHIFT
024632,000723: 34,2225 26744 STOVL VVEC
024633,000724: 34,2226 77614 SET
024634,000725: 34,2227 03466 RVSW
024635,000726: 34,2230 26655 STOVL RVEC
024636,000727: 34,2231 32447 SN359+
024637,000728: 34,2232 36730 STCALL SNTH # ALSO CSTH
024638,000729: 34,2233 24732 TIMETHET
024639,000730: 34,2234 72142 SR1 LXA,1
024640,000731: 34,2235 02332 RTX1
024641,000732: 34,2236 37573 STCALL HAFPA1
024642,000733: 34,2237 46116 PERIAPO
024643,000734: 34,2240 77624 CALL
024644,000735: 34,2241 46216 SHIFTR1
024645,000736: 34,2242 17571 STODL POSTCSI
024646,000737: 34,2243 02752 ECC
024647,000738: 34,2244 50025 DSU BMN
024648,000739: 34,2245 30074 ONETHTH
024649,000740: 34,2246 70351 CIRCL
024650,000741: 34,2247 45145 DLOAD CALL
024651,000742: 34,2250 00041 R1
024652,000743: 34,2251 46216 SHIFTR1
024653,000744: 34,2252 60201 SETPD NORM
024654,000745: 34,2253 00003 2D
024655,000746: 34,2254 00047 X1
024656,000747: 34,2255 50315 PDVL DOT # PL04D
024657,000748: 34,2256 02317 RACT1
024658,000749: 34,2257 03553 VACT4
024659,000750: 34,2260 56246 ABS DDV
024660,000751: 34,2261 00003 02D # (/RDOTV/)/R1 B36-B29= B7
024661,000752: 34,2262 45257 SL* DSU
024662,000753: 34,2263 20201 0,1
024663,000754: 34,2264 30064 NICKELDP
024664,000755: 34,2265 71240 BMN DLOAD
024665,000756: 34,2266 70351 CIRCL
024666,000757: 34,2267 02740 P
024667,000758: 34,2270 45312 SL2 DSU
024668,000759: 34,2271 30054 1DPB2
024669,000760: 34,2272 14017 STODL 14D
024670,000761: 34,2273 02335 RTSR1/MU
024671,000762: 34,2274 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
024672,000763: 34,2275 41325 PDDL DMP
024673,000764: 34,2276 02740 P
024674,000765: 34,2277 00041 R1
024675,000766: 34,2300 77624 CALL
024676,000767: 34,2301 46216 SHIFTR1
024677,000768: 34,2302 72412 SL4 SL1
024678,000769: 34,2303 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
024679,000770: 34,2304 52414 BOFF SL3
024680,000771: 34,2305 04343 CMOONFLG
024681,000772: 34,2306 70307 CSI/B3
024682,000773: 34,2307 50315 CSI/B3 PDVL DOT
024683,000774: 34,2310 02317 RACT1
024684,000775: 34,2311 03553 VACT4
024685,000776: 34,2312 03604 STORE RDOTV
024686,000777: 34,2313 77646 ABS
024687,000778: 34,2314 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
024688,000779: 34,2315 00050 X2
024689,000780: 34,2316 53660 XSU,1 SL* # B-31+B36-B3 = B2
024690,000781: 34,2317 00047 X2
024691,000782: 34,2320 20204 3,1
024692,000783: 34,2321 14015 STODL 12D
024693,000784: 34,2322 32453 P30ZERO
024694,000785: 34,2323 00021 STORE 16D
024695,000786: 34,2324 53575 VLOAD UNIT
024696,000787: 34,2325 00015 12D
024697,000788: 34,2326 26730 STOVL SNTH # ALSO STORES CSTH AND 0
024698,000789: 34,2327 02317 RACT1
024699,000790: 34,2330 75315 PDVL SIGN
024700,000791: 34,2331 03553 VACT4
024701,000792: 34,2332 03604 RDOTV
024702,000793: 34,2333 45076 VCOMP CALL
024703,000794: 34,2334 46206 VECSHIFT
024704,000795: 34,2335 26744 STOVL VVEC
024705,000796: 34,2336 77614 SET
024706,000797: 34,2337 03466 RVSW
024707,000798: 34,2340 36655 STCALL RVEC
024708,000799: 34,2341 24732 TIMETHET
024709,000800: 34,2342 51125 PDDL BPL
024710,000801: 34,2343 03604 RDOTV
024711,000802: 34,2344 70355 NTP/2
024712,000803: 34,2345 45345 DLOAD DSU
024713,000804: 34,2346 03573 HAFPA1
024714,000805: 34,2347 52006 PUSH GOTO
024715,000806: 34,2350 70355 NTP/2
024716,000807: 34,2351 71201 CIRCL SETPD DLOAD
024717,000808: 34,2352 00001 00D
024718,000809: 34,2353 32453 P30ZERO
024719,000810: 34,2354 77606 PUSH
024720,000811: 34,2355 41345 NTP/2 DLOAD DMP
024721,000812: 34,2356 03454 NN
024722,000813: 34,2357 03573 HAFPA1
024723,000814: 34,2360 45261 SL DSU
024724,000815: 34,2361 20217 14D
024725,000816: 34,2362 77615 DAD
024726,000817: 34,2363 03621 TCSI
024727,000818: 34,2364 03371 STORE TCDH
024728,000819: 34,2365 77021 BDSU AXT,2
024729,000820: 34,2366 03623 TTPI
024730,000821: 34,2367 00005 5D
024731,000822: 34,2370 40240 BMN SETPD
024732,000823: 34,2371 70755 SCNDSOL
024733,000824: 34,2372 00001 0D
024734,000825: 34,2373 63375 VLOAD PDVL
024735,000826: 34,2374 03553 VACT4
024736,000827: 34,2375 02317 RACT1
024737,000828: 34,2376 77624 CALL
024738,000829: 34,2377 71045 INTINT2C
024739,000830: 34,2400 26325 STOVL RACT2
024740,000831: 34,2401 00007 VATT
024741,000832: 34,2402 27501 STOVL VACT2
024742,000833: 34,2403 03473 VPASS1
024743,000834: 34,2404 63201 SETPD PDVL
024744,000835: 34,2405 00001 0D
024745,000836: 34,2406 03465 RPASS1
024746,000837: 34,2407 77624 CALL
024747,000838: 34,2410 71045 INTINT2C
024748,000839: 34,2411 27507 STOVL RPASS2
024749,000840: 34,2412 00007 VATT
024750,000841: 34,2413 37515 STCALL VPASS2
024751,000842: 34,2414 71116 CDHMVR
024752,000843: 34,2415 40375 VLOAD SETPD
024753,000844: 34,2416 02325 RACT2
024754,000845: 34,2417 00001 0D
024755,000846: 34,2420 45115 PDVL CALL
024756,000847: 34,2421 03531 VACT3
024757,000848: 34,2422 46106 PERIAPO1
024758,000849: 34,2423 77624 CALL
024759,000850: 34,2424 46216 SHIFTR1
024760,000851: 34,2425 27573 STOVL POSTCDH
024761,000852: 34,2426 03531 VACT3
024762,000853: 34,2427 63201 SETPD PDVL
024763,000854: 34,2430 00001 0D
024764,000855: 34,2431 02325 RACT2
024765,000856: 34,2432 65325 PDDL PDDL
024766,000857: 34,2433 03371 TCDH
024767,000858: 34,2434 03623 TTPI
024768,000859: 34,2435 41525 PDDL PUSH
024769,000860: 34,2436 33634 TWOPI
024770,000861: 34,2437 77624 CALL
024771,000862: 34,2440 73406 INTINT
024772,000863: 34,2441 77624 CALL
024773,000864: 34,2442 46172 ACTIVE
024774,000865: 34,2443 77745 DLOAD
024775,000866: 34,2444 02265 ELEV
024776,000867: 34,2445 73401 SETPD SINE
024777,000868: 34,2446 00007 6D
024778,000869: 34,2447 53515 PDVL UNIT
024779,000870: 34,2450 03523 RACT3
024780,000871: 34,2451 00001 STORE 00D # URA3 AT 00D
024781,000872: 34,2452 47315 PDVL VXV # PL14D,PL08D
024782,000873: 34,2453 02275 UP1
024783,000874: 34,2454 77656 UNIT
024784,000875: 34,2455 71525 PDDL COSINE # UNIT(URA3XUVA3XURA3) = UH3 B1 PL14D
024785,000876: 34,2456 02265 ELEV
024786,000877: 34,2457 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
024787,000878: 34,2460 77754 STORE 18D # PLUS
024788,000879: 34,2461 74345 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
024789,000880: 34,2462 76455 VAD VSL1
024790,000881: 34,2463 00023 18D # B1
024791,000882: 34,2464 50206 PUSH DOT # PL06D
024792,000883: 34,2465 03523 RACT3 # (U . RA3) = TEMP1 B1 +B29=B30
024793,000884: 34,2466 41552 SL1 PUSH # B29 PL08D
024794,000885: 34,2467 72316 DSQ TLOAD # TEMP1**2 B58
024795,000886: 34,2470 00155 MPAC
024796,000887: 34,2471 50315 PDVL DOT # PL11D
024797,000888: 34,2472 03523 RACT3
024798,000889: 34,2473 03523 RACT3
024799,000890: 34,2474 57551 TLOAD DCOMP # RA3.RA3
024800,000891: 34,2475 00155 MPAC
024801,000892: 34,2476 50315 PDVL DOT # RP3.RP3 B58 PL14D
024802,000893: 34,2477 03537 RPASS3
024803,000894: 34,2500 03537 RPASS3 # PL11D
024804,000895: 34,2501 76371 TAD TAD # TEMP1**2+RA3.RA3+RP3.RP3=TEMP2 PL08D
024805,000896: 34,2502 71244 BPL DLOAD
024806,000897: 34,2503 70521 K1ORK2
024807,000898: 34,2504 03575 LOOPCT
024808,000899: 34,2505 77025 DSU AXT,2
024809,000900: 34,2506 30056 1DPB28
024810,000901: 34,2507 00001 1D
024811,000902: 34,2510 77654 BZE
024812,000903: 34,2511 72124 ALMXITA
024813,000904: 34,2512 70545 DLOAD SR1
024814,000905: 34,2513 03565 DELDV
024815,000906: 34,2514 03565 STORE DELDV
024816,000907: 34,2515 77621 BDSU
024817,000908: 34,2516 03563 DVPREV
024818,000909: 34,2517 37561 STCALL DELVCSI
024819,000910: 34,2520 70151 CSI/B1
024820,000911: 34,2521 41566 K1ORK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
024821,000912: 34,2522 45276 DCOMP DSU
024822,000913: 34,2523 00007 06D # -TEMP1-TEMP3 =K2 AT 10D
024823,000914: 34,2524 14013 STODL 10D # PL08D
024824,000915: 34,2525 45425 DSU STADR # PL06D
024825,000916: 34,2526 77762 STORE 12D # -TEMP1+TEMP3 =K1 AT 12D
024826,000917: 34,2527 77646 ABS
024827,000918: 34,2530 14017 STODL 14D
024828,000919: 34,2531 00013 10D
024829,000920: 34,2532 45246 ABS DSU
024830,000921: 34,2533 00017 14D
024831,000922: 34,2534 71240 BMN DLOAD
024832,000923: 34,2535 70540 K2.
024833,000924: 34,2536 00015 12D
024834,000925: 34,2537 00013 STORE 10D # K=K1
024835,000926: 34,2540 77745 K2. DLOAD
024836,000927: 34,2541 00013 10D
024837,000928: 34,2542 76561 VXSC VSL1
024838,000929: 34,2543 53455 VAD UNIT # V=RA3+KU UNIT B1
024839,000930: 34,2544 03523 RACT3
024840,000931: 34,2545 53515 PDVL UNIT
024841,000932: 34,2546 03537 RPASS3 # PL06D
024842,000933: 34,2547 53515 PDVL UNIT
024843,000934: 34,2550 03545 VPASS3 # PL12D
024844,000935: 34,2551 63235 VXV PDVL # UVP3 X URP3 PL18D
024845,000936: 34,2552 00007 06D
024846,000937: 34,2553 00007 06D
024847,000938: 34,2554 50235 VXV DOT
024848,000939: 34,2555 00001 00D
024849,000940: 34,2556 77626 STADR # PL12D
024850,000941: 34,2557 53762 STOVL 12D # (URP3XV).(UVP3XURP3)=TEMP PL06D
024851,000942: 34,2560 72441 DOT SL1 # PL00D
024852,000943: 34,2561 75326 ARCCOS SIGN
024853,000944: 34,2562 00015 12D # B0
024854,000945: 34,2563 41542 SR1 PUSH # GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
024855,000946: 34,2564 71214 BON DLOAD
024856,000947: 34,2565 03301 S32.1F2
024857,000948: 34,2566 70623 FRSTPAS
024858,000949: 34,2567 00001 00D # NOT THE FIRST PASS OF A CYCLE
024859,000950: 34,2570 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
024860,000951: 34,2571 03577 GAMPREV
024861,000952: 34,2572 03561 DELVCSI
024862,000953: 34,2573 60225 DSU NORM # B7
024863,000954: 34,2574 03563 DVPREV
024864,000955: 34,2575 00047 X1
024865,000956: 34,2576 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
024866,000957: 34,2577 00003 02D # = SLOPE
024867,000958: 34,2600 03561 DELVCSI
024868,000959: 34,2601 03563 STORE DVPREV
024869,000960: 34,2602 43014 BOFF BOFF
024870,000961: 34,2603 03342 S32.1F3A
024871,000962: 34,2604 70635 THRDCHK
024872,000963: 34,2605 03343 S32.1F3B
024873,000964: 34,2606 70635 THRDCHK
024874,000965: 34,2607 41345 DLOAD DMP
024875,000966: 34,2610 00003 02D
024876,000967: 34,2611 03577 GAMPREV
024877,000968: 34,2612 71244 BPL DLOAD
024878,000969: 34,2613 70642 FIFTYFPS
024879,000970: 34,2614 30046 INITST
024880,000971: 34,2615 77765 SIGN
024881,000972: 34,2616 03565 DELDV
024882,000973: 34,2617 03565 STORE DELDV
024883,000974: 34,2620 43014 SET CLEAR
024884,000975: 34,2621 03062 S32.1F3A
024885,000976: 34,2622 03263 S32.1F3B
024886,000977: 34,2623 77745 FRSTPAS DLOAD
024887,000978: 34,2624 00001 00D
024888,000979: 34,2625 17577 STODL GAMPREV
024889,000980: 34,2626 03561 DELVCSI
024890,000981: 34,2627 03563 STORE DVPREV
024891,000982: 34,2630 43025 DSU CLEAR
024892,000983: 34,2631 03565 DELDV
024893,000984: 34,2632 03261 S32.1F2
024894,000985: 34,2633 37561 STCALL DELVCSI
024895,000986: 34,2634 70151 CSI/B1
024896,000987: 34,2635 43014 THRDCHK BON BON
024897,000988: 34,2636 03302 S32.1F3A
024898,000989: 34,2637 70661 NEWTN
024899,000990: 34,2640 03303 S32.1F3B
024900,000991: 34,2641 70661 NEWTN
024901,000992: 34,2642 75345 FIFTYFPS DLOAD SIGN
024902,000993: 34,2643 30066 FIFPSDP
024903,000994: 34,2644 00005 04D
024904,000995: 34,2645 77765 SIGN
024905,000996: 34,2646 03577 GAMPREV
024906,000997: 34,2647 03565 STORE DELDV
024907,000998: 34,2650 43276 DCOMP DAD
024908,000999: 34,2651 03561 DELVCSI
024909,001000: 34,2652 17561 STODL DELVCSI
024910,001001: 34,2653 00001 00D
024911,001002: 34,2654 43014 SET SET
024912,001003: 34,2655 03063 S32.1F3B
024913,001004: 34,2656 03062 S32.1F3A
024914,001005: 34,2657 37577 STCALL GAMPREV
024915,001006: 34,2660 70162 CSI/B2
024916,001007: 34,2661 60345 NEWTN DLOAD NORM
024917,001008: 34,2662 00005 04D
024918,001009: 34,2663 00050 X2
024919,001010: 34,2664 54065 BDDV XSU,1
024920,001011: 34,2665 00001 00D
024921,001012: 34,2666 00047 X2
024922,001013: 34,2667 77657 SR*
024923,001014: 34,2670 20601 0,1
024924,001015: 34,2671 17565 STODL DELDV
024925,001016: 34,2672 00001 00D
024926,001017: 34,2673 03577 STORE GAMPREV
024927,001018: 34,2674 51545 DLOAD ABS
024928,001019: 34,2675 03565 DELDV # PL08D
024929,001020: 34,2676 45206 PUSH DSU
024930,001021: 34,2677 30062 EPSILN1
024931,001022: 34,2700 71240 BMN DLOAD
024932,001023: 34,2701 70716 CSI/SOL
024933,001024: 34,2702 50025 DSU BMN
024934,001025: 34,2703 30072 DELMAX1
024935,001026: 34,2704 70711 CSISTEP
024936,001027: 34,2705 75345 DLOAD SIGN
024937,001028: 34,2706 30072 DELMAX1
024938,001029: 34,2707 03565 DELDV
024939,001030: 34,2710 03565 STORE DELDV
024940,001031: 34,2711 45345 CSISTEP DLOAD DSU
024941,001032: 34,2712 03561 DELVCSI
024942,001033: 34,2713 03565 DELDV
024943,001034: 34,2714 37561 STCALL DELVCSI
024944,001035: 34,2715 70151 CSI/B1
024945,001036: 34,2716 77145 CSI/SOL DLOAD AXT,2
024946,001037: 34,2717 03571 POSTCSI
024947,001038: 34,2720 00002 2
024948,001039: 34,2721 77750 LXA,1
024949,001040: 34,2722 02332 RTX1
024950,001041: 34,2723 50023 DSU* BMN
024951,001042: 34,2724 30056 PMINE -2,1
024952,001043: 34,2725 70755 SCNDSOL
024953,001044: 34,2726 71374 AXT,2 DLOAD
024954,001045: 34,2727 00003 3
024955,001046: 34,2730 03573 POSTCDH
024956,001047: 34,2731 50023 DSU* BMN
024957,001048: 34,2732 30056 PMINE -2,1
024958,001049: 34,2733 70755 SCNDSOL
024959,001050: 34,2734 45345 DLOAD DSU
024960,001051: 34,2735 03371 TCDH
024961,001052: 34,2736 03621 TCSI
024962,001053: 34,2737 02261 STORE T1TOT2
024963,001054: 34,2740 45374 AXT,2 DSU
024964,001055: 34,2741 00004 4
024965,001056: 34,2742 30076 TMIN
024966,001057: 34,2743 77040 BMN AXT,2
024967,001058: 34,2744 70755 SCNDSOL
024968,001059: 34,2745 00005 5
024969,001060: 34,2746 45345 DLOAD DSU
024970,001061: 34,2747 03623 TTPI
024971,001062: 34,2750 03371 TCDH
024972,001063: 34,2751 02263 STORE T2TOT3
024973,001064: 34,2752 51025 DSU BPL
024974,001065: 34,2753 30076 TMIN
024975,001066: 34,2754 70775 P10CHECK
024976,001067: 34,2755 43014 SCNDSOL BON BOFF
024977,001068: 34,2756 03302 S32.1F3A
024978,001069: 34,2757 72126 ALMXIT
024979,001070: 34,2760 03343 S32.1F3B
024980,001071: 34,2761 72126 ALMXIT
024981,001072: 34,2762 71334 SXA,2 DLOAD
024982,001073: 34,2763 03600 CSIALRM
024983,001074: 34,2764 32453 P30ZERO
024984,001075: 34,2765 43014 CLEAR SET
024985,001076: 34,2766 03260 S32.1F1
024986,001077: 34,2767 03061 S32.1F2
024987,001078: 34,2770 43014 CLEAR CLEAR
024988,001079: 34,2771 03262 S32.1F3A
024989,001080: 34,2772 03263 S32.1F3B
024990,001081: 34,2773 37575 STCALL LOOPCT
024991,001082: 34,2774 70111 CSI/B
024992,001083:
024993,001084: 34,2775 52014 P10CHECK BOFF GOTO
024994,001085: 34,2776 03346 LTCPFLG
024995,001086: 34,2777 64271 P10ALARM
024996,001087: 34,3000 72211 P32/P72C
024997,001088:
024998,001089: # ..... ADVANCE .....
024999,001090:
025000,001091: # SUBROUTINES USED
025001,001092:
025002,001093: # PRECSET
025003,001094: # ROTATE
025004,001095:
025005,001096: 34,3001 71220 ADVANCE STQ DLOAD
025006,001097: 34,3002 03455 SUBEXIT
025007,001098: 34,3003 03425 TIG
025008,001099: 34,3004 34041 STCALL TDEC1
025009,001100: 34,3005 46150 PRECSET
025010,001101: 34,3006 77214 SET VLOAD
025011,001102: 34,3007 01067 XDELVFLG
025012,001103: 34,3010 03545 VPASS3
025013,001104: 34,3011 03515 STORE VPASS2
025014,001105: 34,3012 27473 STOVL VPASS1
025015,001106: 34,3013 03537 RPASS3
025016,001107: 34,3014 03507 STORE RPASS2
025017,001108: 34,3015 03465 STORE RPASS1
025018,001109: 34,3016 47256 UNIT VXV
025019,001110: 34,3017 03473 VPASS1
025020,001111: 34,3020 77656 UNIT
025021,001112: 34,3021 26275 STOVL UP1
025022,001113: 34,3022 03523 RACT3
025023,001114: 34,3023 37627 STCALL RTIG
025024,001115: 34,3024 71035 ROTATE
025025,001116: 34,3025 02325 STORE RACT2
025026,001117: 34,3026 26317 STOVL RACT1
025027,001118: 34,3027 03531 VACT3
025028,001119: 34,3030 37635 STCALL VTIG
025029,001120: 34,3031 71035 ROTATE
025030,001121: 34,3032 03501 STORE VACT2
025031,001122: 34,3033 37457 STCALL VACT1
025032,001123: 34,3034 03455 SUBEXIT
025033,001124:
025034,001125: # ..... ROTATE .....
025035,001126:
025036,001127: 34,3035 41406 ROTATE PUSH PUSH
025037,001128: 34,3036 74241 DOT VXSC
025038,001129: 34,3037 02275 UP1
025039,001130: 34,3040 02275 UP1
025040,001131: 34,3041 51352 VSL2 BVSU
025041,001132: 34,3042 63256 UNIT PDVL
025042,001133: 34,3043 74246 ABVAL VXSC
025043,001134: 34,3044 43572 VSL1 RVQ
025044,001135:
025045,001136: # ..... INTINTNA .....
025046,001137:
025047,001138: 34,3045 65325 INTINT2C PDDL PDDL
025048,001139: 34,3046 03621 TCSI
025049,001140: 34,3047 03371 TCDH
025050,001141: 34,3050 41525 PDDL PUSH
025051,001142: 34,3051 33634 TWOPI
025052,001143: 34,3052 77650 GOTO
025053,001144: 34,3053 73406 INTINT
025054,001145: 34,3054 65325 INTINT3P PDDL PDDL
025055,001146: 34,3055 03371 TCDH
025056,001147: 34,3056 03623 TTPI
025057,001148: 34,3057 41525 PDDL PUSH
025058,001149: 34,3060 32453 P30ZERO
025059,001150: 34,3061 77650 GOTO
025060,001151: 34,3062 73406 INTINT
025061,001152:
025062,001153: # ..... S32/33.1 .....
025063,001154:
025064,001155: # SUBROUTINES USED
025065,001156:
025066,001157: # S32/33.X
025067,001158:
025068,001159: 34,3063 76020 S32/33.1 STQ AXT,1
025069,001160: 34,3064 03455 SUBEXIT
025070,001161: 34,3065 01521 VN 0681
025071,001162: 34,3066 77624 CALL
025072,001163: 34,3067 72423 DISDVLVC
025073,001164: 34,3070 77624 CALL
025074,001165: 34,3071 71103 S32/33.X
025075,001166: 34,3072 61375 VLOAD VXM
025076,001167: 34,3073 02267 DELVLVC
025077,001168: 34,3074 00001 0D
025078,001169: 34,3075 77772 VSL1
025079,001170: 34,3076 03643 STORE DELVSIN
025080,001171: 34,3077 51406 PUSH ABVAL
025081,001172: 34,3100 27651 STOVL DELVSAB
025082,001173: 34,3101 77650 GOTO
025083,001174: 34,3102 03455 SUBEXIT
025084,001175:
025085,001176: # ..... S32/33.X .....
025086,001177:
025087,001178: 34,3103 77201 S32/33.X SETPD VLOAD
025088,001179: 34,3104 00007 6D
025089,001180: 34,3105 02275 UP1
025090,001181: 34,3106 63276 VCOMP PDVL
025091,001182: 34,3107 02317 RACT1
025092,001183: 34,3110 57456 UNIT VCOMP
025093,001184: 34,3111 47206 PUSH VXV
025094,001185: 34,3112 02275 UP1
025095,001186: 34,3113 77772 VSL1
025096,001187: 34,3114 00001 STORE 0D
025097,001188: 34,3115 77616 RVQ
025098,001189:
025099,001190: # ..... CDHMVR .....
025100,001191:
025101,001192: # SUBROUTINES USED
025102,001193:
025103,001194: # VECSHIFT
025104,001195: # TIMETHET
025105,001196: # SHIFTR1
025106,001197:
025107,001198: 34,3116 77220 CDHMVR STQ VLOAD
025108,001199: 34,3117 03455 SUBEXIT
025109,001200: 34,3120 02325 RACT2
025110,001201: 34,3121 53406 PUSH UNIT
025111,001202: 34,3122 27531 STOVL UNVEC # UR SUB A
025112,001203: 34,3123 03507 RPASS2
025113,001204: 34,3124 50256 UNIT DOT
025114,001205: 34,3125 03531 UNVEC
025115,001206: 34,3126 72406 PUSH SL1
025116,001207: 34,3127 16732 STODL CSTH
025117,001208: 34,3130 65316 DSQ PDDL
025118,001209: 34,3131 06223 DP1/4TH
025119,001210: 34,3132 45302 SR2 DSU
025120,001211: 34,3133 72566 SQRT SL1
025121,001212: 34,3134 57515 PDVL VCOMP
025122,001213: 34,3135 77635 VXV
025123,001214: 34,3136 03507 RPASS2
025124,001215: 34,3137 65241 DOT PDDL
025125,001216: 34,3140 02275 UP1
025126,001217: 34,3141 45565 SIGN STADR
025127,001218: 34,3142 51047 STOVL SNTH
025128,001219: 34,3143 03507 RPASS2
025129,001220: 34,3144 45115 PDVL CALL
025130,001221: 34,3145 03515 VPASS2
025131,001222: 34,3146 46206 VECSHIFT
025132,001223: 34,3147 26744 STOVL VVEC
025133,001224: 34,3150 77614 CLEAR
025134,001225: 34,3151 03666 RVSW
025135,001226: 34,3152 36655 STCALL RVEC
025136,001227: 34,3153 24732 TIMETHET
025137,001228: 34,3154 53754 LXA,2 VSL*
025138,001229: 34,3155 02333 RTX2
025139,001230: 34,3156 57576 0,2
025140,001231: 34,3157 00023 STORE 18D
025141,001232: 34,3160 76441 DOT SL1R
025142,001233: 34,3161 03531 UNVEC
025143,001234: 34,3162 51515 PDVL ABVAL # 0D = V SUB PV
025144,001235: 34,3163 63257 SL* PDVL
025145,001236: 34,3164 57576 0,2
025146,001237: 34,3165 02325 RACT2
025147,001238: 34,3166 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
025148,001239: 34,3167 77625 DSU
025149,001240: 34,3170 00003 02D
025150,001241: 34,3171 17567 STODL DIFFALT # DELTA H IN METERS B+29
025151,001242: 34,3172 02742 R1A
025152,001243: 34,3173 65301 NORM PDDL # 2 - R V**/MU 04D
025153,001244: 34,3174 00047 X1
025154,001245: 34,3175 00041 R1
025155,001246: 34,3176 77624 CALL
025156,001247: 34,3177 46216 SHIFTR1
025157,001248: 34,3200 56362 SR1R DDV
025158,001249: 34,3201 41457 SL* PUSH
025159,001250: 34,3202 20174 0 -5,1
025160,001251: 34,3203 65225 DSU PDDL # A SUB A B+29 04D
025161,001252: 34,3204 03567 DIFFALT
025162,001253: 34,3205 56302 SR2 DDV # A SUB P B+31
025163,001254: 34,3206 00005 04D # B+2
025164,001255: 34,3207 75406 PUSH SQRT # A SUB P/A SUB A 06D
025165,001256: 34,3210 41275 DMPR DMP
025166,001257: 34,3211 00007 06D
025167,001258: 34,3212 00001 00D
025168,001259: 34,3213 65272 SL3R PDDL # V SUB AV METERS/CS B+7 08D
025169,001260: 34,3214 00003 02D # R SUB A MAGNITUDE B+29
025170,001261: 34,3215 65301 NORM PDDL
025171,001262: 34,3216 00047 X1
025172,001263: 34,3217 02337 RTMU
025173,001264: 34,3220 56342 SR1 DDV # 2MU B+38
025174,001265: 34,3221 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
025175,001266: 34,3222 20174 0 -5,1
025176,001267: 34,3223 00005 04D # ASUBA B+29
025177,001268: 34,3224 65301 NORM PDDL
025178,001269: 34,3225 00050 X2
025179,001270: 34,3226 02337 RTMU
025180,001271: 34,3227 56342 SR1 DDV
025181,001272: 34,3230 44257 SL* BDSU
025182,001273: 34,3231 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
025183,001274: 34,3232 63525 PDDL DSQ # 10D
025184,001275: 34,3233 00011 08D
025185,001276: 34,3234 75421 BDSU SQRT
025186,001277: 34,3235 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)10D
025187,001278: 34,3236 02275 UP1
025188,001279: 34,3237 03531 UNVEC
025189,001280: 34,3240 74256 UNIT VXSC
025190,001281: 34,3241 00013 10D
025191,001282: 34,3242 74315 PDVL VXSC
025192,001283: 34,3243 03531 UNVEC
025193,001284: 34,3244 00011 08D
025194,001285: 34,3245 76455 VAD VSL1
025195,001286: 34,3246 77626 STADR
025196,001287: 34,3247 74246 STORE VACT3
025197,001288: 34,3250 77651 VSU
025198,001289: 34,3251 03501 VACT2
025199,001290: 34,3252 36311 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
025200,001291: 34,3253 03455 SUBEXIT
025201,001292:
025202,001293: # ..... COMPTGO .....
025203,001294:
025204,001295: # SUBROUTINES USED
025205,001296:
025206,001297: # CLOKTASK
025207,001298: # 2PHSCHNG
025208,001299:
025209,001300: 35,2465 BANK 35
025210,001301: 35,2000 SETLOC CSI/CDH
025211,001302: 35,2000 BANK
025212,001303:
025213,001304: 35,2465 E7,1452 EBANK= RTRN
025214,001305:
025215,001306: 35,2465 COUNT* $$/P3575
025216,001307:
025217,001308: 35,2465 00006 COMPTGO EXTEND
025218,001309: 35,2466 23452 QXCH RTRN
025219,001310: 35,2467 35030 CAF ZERO
025220,001311: 35,2470 55175 TS DISPDEX
025221,001312: 35,2471 35025 CAF BIT2
025222,001313: 35,2472 00004 INHINT
025223,001314: 35,2473 05252 TC WAITLIST
025224,001315: 35,2474 E7,1430 EBANK= WHICH
025225,001316: 35,2474 02707 74067 2CADR CLOKTASK
025226,001317:
025227,001318: 35,2476 05373 TC 2PHSCHNG
025228,001319: 35,2477 40036 OCT 40036
025229,001320: 35,2500 05024 OCT 05024
025230,001321: 35,2501 13000 OCT 13000
025231,001322: 35,2502 01452 TC RTRN
End of include-file P32-P35,_P72-P75.agc. Parent file is MAIN.agc