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