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