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