Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
027072,000002: ## Copyright: Public domain.
027073,000003: ## Filename: P32-P35,_P72-P75.agc
027074,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
027075,000005: ## otherwise known as Luminary Rev 99, the third release
027076,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
027077,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
027078,000008: ## placement of a single label. The corrections shown here have
027079,000009: ## been verified to have the same bank checksums as AGC developer
027080,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
027081,000011: ## to be accurate. This file is intended to be a faithful
027082,000012: ## recreation, except that the code format has been changed to
027083,000013: ## conform to the requirements of the yaYUL assembler rather than
027084,000014: ## the original YUL assembler.
027085,000015: ##
027086,000016: ## Assembler: yaYUL
027087,000017: ## Contact: Ron Burkey <info@sandroid.org>.
027088,000018: ## Website: www.ibiblio.org/apollo.
027089,000019: ## Pages: 618-650
027090,000020: ## Mod history: 2009-05-18 RSB Adapted from the Luminary 131 file of the
027091,000021: ## same name, as corrected from Luminary 099
027092,000022: ## page images.
027093,000023: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
027094,000024: ## 2016-12-14 RSB VNP00H -> VNPOOH.
027095,000025: ## 2016-12-14 RSB Proofed text comments with octopus/ProoferComments
027096,000026: ## and corrected the errors found.
027097,000027: ## 2017-02-07 RSB Comment-text corrections identified while
027098,000028: ## proofing Artemis 72.
027099,000029: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
027100,000030: ## 2017-08-01 MAS Created from LMY99 Rev 1.
027101,000031: ## 2021-05-30 ABS TTPIO -> TTPI0
027102,000032: ## K10RK2 -> K1ORK2
027103,000033:
027104,000034: ## This source code has been transcribed or otherwise adapted from
027105,000035: ## digitized images of a hardcopy from the MIT Museum. The digitization
027106,000036: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
027107,000037: ## the Museum. Many thanks to both. The images (with suitable reduction
027108,000038: ## in storage size and consequent reduction in image quality as well) are
027109,000039: ## available online at www.ibiblio.org/apollo. If for some reason you
027110,000040: ## find that the images are illegible, contact me at info@sandroid.org
027111,000041: ## about getting access to the (much) higher-quality images which Paul
027112,000042: ## actually created.
027113,000043: ##
027114,000044: ## The code has been modified to match LMY99 Revision 0, otherwise
027115,000045: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
027116,000046: ## the listing from which it was transcribed. It has been verified to
027117,000047: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
027118,000048: ## of Luminary Revision 99 (for which we do not have scans).
027119,000049: ##
027120,000050: ## Notations on Allan Klumpp's listing read, in part:
027121,000051: ##
027122,000052: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
027123,000053:
|
|
Page 618 |
027125,000055: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027126,000056:
027127,000057: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027128,000058: # MOD BY WHITE.P DATE 1 JUNE 67
027129,000059:
027130,000060: # PURPOSE
027131,000061:
027132,000062: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027133,000063: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027134,000064: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027135,000065: # (CDH) MANEUVER.
027136,000066:
027137,000067: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027138,000068: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027139,000069:
027140,000070: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027141,000071: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027142,000072: # APPROVAL BY THE ASTRONAUT/GROUND.
027143,000073:
027144,000074: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027145,000075: # THRUSTING PROGRAM.
027146,000076:
027147,000077: # ASSUMPTIONS
027148,000078:
027149,000079: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027150,000080: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027151,000081: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027152,000082: # POSITION.
027153,000083:
027154,000084: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027155,000085: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027156,000086: # COMPLETION OF THE PROGRAM.
027157,000087:
027158,000088: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027159,000089: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027160,000090: # COMPLETION OF THE PROGRAM.
027161,000091:
027162,000092: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027163,000093: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027164,000094:
027165,000095: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027166,000096: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027167,000097: # IGNITION.
027168,000098:
027169,000099: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027170,000100: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027171,000101: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027172,000102:
027173,000103: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027174,000104: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
|
|
Page 619 |
027176,000106: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027177,000107: # OUT-OF-PLANE CSI MANEUVER.
027178,000108:
027179,000109: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027180,000110: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027181,000111:
027182,000112: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027183,000113: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027184,000114: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027185,000115: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027186,000116:
027187,000117: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027188,000118: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027189,000119: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027190,000120: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027191,000121: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027192,000122: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027193,000123: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027194,000124: # THRUSTING MANEUVER.
027195,000125:
027196,000126: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027197,000127:
027198,000128: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027199,000129:
027200,000130: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027201,000131: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027202,000132: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027203,000133: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027204,000134:
027205,000135: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027206,000136: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027207,000137: # CYCLE.
027208,000138:
027209,000139: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027210,000140: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027211,000141: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027212,000142: # PROGRAM.
027213,000143:
027214,000144: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027215,000145: # A THRUSTING MANEUVER.
027216,000146:
027217,000147: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027218,000148:
027219,000149: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027220,000150:
027221,000151: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027222,000152:
027223,000153: # INPUT
027224,000154:
027225,000155: # (1) TCSI TIME OF THE CSI MANEUVER
027226,000156:
|
|
Page 620 |
027228,000158: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027229,000159: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027230,000160: # MANEUVER POINT
027231,000161: # (3) ELEV DESIRED LOS ANGLE AT TPI
027232,000162: # (4) TTPI TIME OF THE TPI MANEUVER
027233,000163:
027234,000164: # OUTPUT
027235,000165:
027236,000166: # (1) TRKMKCNT NUMBER OF MARKS
027237,000167: # (2) TTOGO TIME TO GO
027238,000168: # (3) +MGA MIDDLE GIMBAL ANGLE
027239,000169: # (4) DIFFALT DELTA ALTITUDE AT CDH
027240,000170: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
027241,000171: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
027242,000172: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027243,000173: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027244,000174:
027245,000175: # DOWNLINK
027246,000176:
027247,000177: # (1) TCSI TIME OF THE CSI MANEUVER
027248,000178: # (2) TCDH TIME OF THE CDH MANEUVER
027249,000179: # (3) TTPI TIME OF THE TPI MANEUVER
027250,000180: # (4) TIG TIME OF THE CSI MANEUVER
027251,000181: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027252,000182: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027253,000183: # (7) DIFFALT DELTA ALTITUDE AT CDH
027254,000184: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027255,000185: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027256,000186: # MANEUVER POINT
027257,000187: # (9) ELEV DESIRED LOS ANGLE AT TPI
027258,000188:
027259,000189: # COMMUNICATION TO THRUSTING PROGRAMS
027260,000190:
027261,000191: # (1) TIG TIME OF THE CSI MANEUVER
027262,000192: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027263,000193: # INTO PLANE OF PASSIVE VEHICLE
027264,000194: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027265,000195: # INTO PLANE OF PASSIVE VEHICLE
027266,000196: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027267,000197: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
027268,000198: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027269,000199:
027270,000200: # SUBROUTINES USED
027271,000201:
027272,000202: # AVFLAGA
027273,000203: # AVFLAGP
027274,000204: # P20FLGON
027275,000205: # VARALARM
027276,000206: # BANKCALL
027277,000207: # GOFLASH
027278,000208: # GOTOPOOH
|
|
Page 621 |
027280,000210: # VNPOOH
027281,000211: # GOFLASHR
027282,000212: # BLANKET
027283,000213: # ENDOFJOB
027284,000214: # SELECTMU
027285,000215: # ADVANCE
027286,000216: # INTINT
027287,000217: # PASSIVE
027288,000218: # CSI/A
027289,000219: # S32/33.1
027290,000220: # DISDVLVC
027291,000221: # VN1645
027292,000222:
027293,000223: 35,2027 BANK 35
027294,000224: 35,2000 SETLOC CSI/CDH
027295,000225: 35,2000 BANK
027296,000226: 35,2027 E7,1470 EBANK= SUBEXIT
027297,000227: 35,2027 COUNT* $$/P3272
027298,000228: 35,2027 02347 P32 TC AVFLAGA
027299,000229: 35,2030 02032 TC P32STRT
027300,000230: 35,2031 02354 P72 TC AVFLAGP
027301,000231: 35,2032 00006 P32STRT EXTEND
027302,000232: 35,2033 32420 DCA P30ZERO
027303,000233: 35,2034 53621 DXCH CENTANG
027304,000234: 35,2035 02053 TC P32/P72A
027305,000235: 35,2036 77734 ALMXITA SXA,2
027306,000236: 35,2037 03613 CSIALRM
027307,000237: 35,2040 77740 ALMXIT LXC,1
027308,000238: 35,2041 03613 CSIALRM
027309,000239: 35,2042 77533 SLOAD* EXIT
027310,000240: 35,2043 32423 ALARM/TB -1,1
027311,000241: 35,2044 30154 CA MPAC
027312,000242: 35,2045 05744 TC VARALARM
027313,000243: 35,2046 35006 CAF V05N09
027314,000244: 35,2047 04616 TC BANKCALL
027315,000245: 35,2050 20476 CADR GOFLASH
027316,000246: 35,2051 06001 TC GOTOPOOH
027317,000247: 35,2052 02046 TC -4
027318,000248: 35,2053 02361 P32/P72A TC P20FLGON
027319,000249: 35,2054 32417 CAF P30ZERO
027320,000250: 35,2055 55467 TS NN +1
027321,000251: 35,2056 55633 TS TCSI
027322,000252: 35,2057 55634 TS TCSI +1
027323,000253: 35,2060 32410 VN0611 CAF V06N11 # TCSI
027324,000254: 35,2061 03712 TC VNPOOH
027325,000255: 35,2062 06037 TC INTPRET
027326,000256: 35,2063 57545 DLOAD DCOMP
027327,000257: 35,2064 03634 TCSI
027328,000258: 35,2065 71240 BMN DLOAD
027329,000259: 35,2066 72113 VN0655
|
|
Page 622 |
027331,000261: 35,2067 01643 TETLEM
027332,000262: 35,2070 34041 STCALL TDEC1
027333,000263: 35,2071 46360 PRECSET
027334,000264: 35,2072 53775 VLOAD VSR*
027335,000265: 35,2073 03536 RACT3
027336,000266: 35,2074 57176 0,2
027337,000267: 35,2075 26655 STOVL RVEC
027338,000268: 35,2076 03544 VACT3
027339,000269: 35,2077 43057 VSR* SET
027340,000270: 35,2100 57176 0,2
027341,000271: 35,2101 03466 RVSW
027342,000272: 35,2102 16744 STODL VVEC
027343,000273: 35,2103 06530 DPPOSMAX
027344,000274: 35,2104 36756 STCALL RDESIRED
027345,000275: 35,2105 25547 TIMERAD
027346,000276: 35,2106 77615 DAD
027347,000277: 35,2107 03574 TDEC2
027348,000278: 35,2110 03634 STORE TCSI
027349,000279: 35,2111 77776 EXIT
027350,000280: 35,2112 02060 TC VN0611
027351,000281: 35,2113 77776 VN0655 EXIT
027352,000282: 35,2114 33724 CAF V06N55 # NN, ELEV(RGLOS)
027353,000283: 35,2115 04616 TC BANKCALL
027354,000284: 35,2116 20476 CADR GOFLASH
027355,000285: 35,2117 06001 TC GOTOPOOH
027356,000286: 35,2120 02122 TC +2
027357,000287: 35,2121 02114 TC -5
027358,000288: 35,2122 33723 CAF V06N37 # TTPI
027359,000289: 35,2123 03712 TC VNPOOH
027360,000290: 35,2124 06037 TC INTPRET
027361,000291: 35,2125 77745 DLOAD
027362,000292: 35,2126 03634 TCSI
027363,000293: 35,2127 37442 STCALL TIG
027364,000294: 35,2130 20000 SELECTMU
027365,000295: 35,2131 77624 P32/P72B CALL
027366,000296: 35,2132 71016 ADVANCE
027367,000297: 35,2133 77201 SETPD VLOAD
027368,000298: 35,2134 00001 0D
027369,000299: 35,2135 03506 VPASS1
027370,000300: 35,2136 65315 PDVL PDDL
027371,000301: 35,2137 03500 RPASS1
027372,000302: 35,2140 03634 TCSI
027373,000303: 35,2141 65325 PDDL PDDL
027374,000304: 35,2142 03636 TTPI
027375,000305: 35,2143 33732 TWOPI
027376,000306: 35,2144 45006 PUSH CALL
027377,000307: 35,2145 73466 INTINT
027378,000308: 35,2146 77624 CALL
027379,000309: 35,2147 46412 PASSIVE
027380,000310: 35,2150 77624 CALL
|
|
Page 623 |
027382,000312: 35,2151 70113 CSI/A
027383,000313: 35,2152 43014 P32/P72C BON SET
027384,000314: 35,2153 01311 FINALFLG
027385,000315: 35,2154 72156 P32/P72D
027386,000316: 35,2155 00470 UPDATFLG
027387,000317: 35,2156 77745 P32/P72D DLOAD
027388,000318: 35,2157 02253 T1TOT2
027389,000319: 35,2160 02253 P32/P72E STORE T1TOT2
027390,000320: 35,2161 51025 DSU BPL
027391,000321: 35,2162 32422 60MIN
027392,000322: 35,2163 72160 P32/P72E
027393,000323: 35,2164 77745 DLOAD
027394,000324: 35,2165 02255 T2TOT3
027395,000325: 35,2166 02255 P32/P72F STORE T2TOT3
027396,000326: 35,2167 51025 DSU BPL
027397,000327: 35,2170 32422 60MIN
027398,000328: 35,2171 72166 P32/P72F
027399,000329: 35,2172 77776 EXIT
027400,000330: 35,2173 32412 CAF V06N75
027401,000331: 35,2174 03712 TC VNPOOH
027402,000332: 35,2175 06037 TC INTPRET
027403,000333: 35,2176 45175 VLOAD CALL
027404,000334: 35,2177 02267 DELVEET1
027405,000335: 35,2200 71100 S32/33.1
027406,000336: 35,2201 26267 STOVL DELVEET1
027407,000337: 35,2202 02311 RACT2
027408,000338: 35,2203 26303 STOVL RACT1
027409,000339: 35,2204 02275 DELVEET2
027410,000340: 35,2205 45170 AXT,1 CALL
027411,000341: 35,2206 01522 VN 0682
027412,000342: 35,2207 72370 DISDVLVC
027413,000343: 35,2210 77745 DLOAD
027414,000344: 35,2211 03636 TTPI
027415,000345: 35,2212 37640 STCALL TTPI0
027416,000346: 35,2213 73606 VN1645
027417,000347: 35,2214 77650 GOTO
027418,000348: 35,2215 72131 P32/P72B
027419,000349:
|
|
Page 624 |
027421,000351: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027422,000352: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027423,000353: # MOD BY WHITE.P DATE 1JUNE67
027424,000354:
027425,000355: # PURPOSE
027426,000356:
027427,000357: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027428,000358: # ALTITUDE MANEUVER (CDH).
027429,000359:
027430,000360: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027431,000361: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027432,000362:
027433,000363: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027434,000364: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027435,000365: # ASTRONAUT/GROUND.
027436,000366:
027437,000367: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027438,000368: # THRUSTING PROGRAM.
027439,000369:
027440,000370: # ASSUMPTIONS
027441,000371:
027442,000372: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027443,000373: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027444,000374: # THERFORE -
027445,000375:
027446,000376: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027447,000377: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027448,000378: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027449,000379: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027450,000380:
027451,000381: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027452,000382: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027453,000383:
027454,000384: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027455,000385: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027456,000386:
027457,000387: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027458,000388: # ORBITS WAS MINMIZED.
027459,000389:
027460,000390: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027461,000391: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027462,000392: # POSITION AT CSI IGNITION.
027463,000393:
027464,000394: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027465,000395: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027466,000396: # ORBIT OR 85 NM FOR EARTH ORBIT.
027467,000397:
027468,000398: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027469,000399: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
|
|
Page 625 |
027471,000401: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027472,000402: # IN AN OUT-OF-PLANE MANEUVER.
027473,000403:
027474,000404: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027475,000405: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027476,000406:
027477,000407: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027478,000408: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027479,000409: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027480,000410: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027481,000411:
027482,000412: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027483,000413: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027484,000414: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027485,000415: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027486,000416: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027487,000417: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027488,000418: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027489,000419: # THRUSTING MANEUVER.
027490,000420:
027491,000421: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027492,000422:
027493,000423: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027494,000424:
027495,000425: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027496,000426: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027497,000427: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027498,000428: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027499,000429:
027500,000430: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027501,000431: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027502,000432: # CYCLE.
027503,000433:
027504,000434: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027505,000435: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027506,000436: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027507,000437: # PROGRAM.
027508,000438:
027509,000439: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027510,000440: # A THRUSTING MANEUVER.
027511,000441:
027512,000442: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027513,000443:
027514,000444: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
027515,000445:
027516,000446: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
027517,000447:
027518,000448: # INPUT
027519,000449:
027520,000450: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
|
|
Page 626 |
027522,000452: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
027523,000453: # (3) TCDH TIME OF THE CDH MANEUVER
027524,000454:
027525,000455: # OUTPUT
027526,000456:
027527,000457: # (1) TRKMKCNT NUMBER OF MARKS
027528,000458: # (2) TTOGO TIME TO GO
027529,000459: # (3) +MGA MIDDLE GIMBAL ANGLE
027530,000460: # (4) DIFFALT DELTA ALTITUDE AT CDH
027531,000461: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
027532,000462: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
027533,000463: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027534,000464:
027535,000465: # DOWNLINK
027536,000466:
027537,000467: # (1) TCDH TIME OF THE CDH MANEUVER
027538,000468: # (2) TTPI TIME OF THE TPI MANEUVER
027539,000469: # (3) TIG TIME OF THE CDH MANEUVER
027540,000470: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027541,000471: # (5) DIFFALT DELTA ALTITUDE AT CDH
027542,000472: # (6) ELEV DESIRED LOS ANGLE AT TPI
027543,000473:
027544,000474: # COMMUNICATION TO THRUSTING PROGRAMS
027545,000475:
027546,000476: # (1) TIG TIME OF THE CDH MANEUVER
027547,000477: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027548,000478: # INTO PLANE OF PASSIVE VEHICLE
027549,000479: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027550,000480: # INTO PLANE OF PASSIVE VEHICLE
027551,000481: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027552,000482: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
027553,000483: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027554,000484:
027555,000485: # SUBROUTINES USED
027556,000486:
027557,000487: # AVFLAGA
027558,000488: # AVFLAGP
027559,000489: # P20FLGON
027560,000490: # VNPOOH
027561,000491: # SELECTMU
027562,000492: # ADVANCE
027563,000493: # CDHMVR
027564,000494: # INTINT3P
027565,000495: # ACTIVE
027566,000496: # PASSIVE
027567,000497: # S33/34.1
027568,000498: # ALARM
027569,000499: # BANKCALL
027570,000500: # GOFLASH
027571,000501: # GOTOPOOH
027572,000502: # S32/33.1
|
|
Page 627 |
027574,000504: # VN1645
027575,000505:
027576,000506: 35,2216 COUNT* $$/P3373
027577,000507: 35,2216 02347 P33 TC AVFLAGA
027578,000508: 35,2217 02221 TC P33/P73A
027579,000509: 35,2220 02354 P73 TC AVFLAGP
027580,000510: 35,2221 02361 P33/P73A TC P20FLGON
027581,000511: 35,2222 32411 CAF V06N13 # TCDH
027582,000512: 35,2223 03712 TC VNPOOH
027583,000513: 35,2224 06037 TC INTPRET
027584,000514: 35,2225 77745 DLOAD
027585,000515: 35,2226 03640 TTPI0
027586,000516: 35,2227 17636 STODL TTPI
027587,000517: 35,2230 01777 TCDH
027588,000518: 35,2231 37442 STCALL TIG
027589,000519: 35,2232 20000 SELECTMU
027590,000520: 35,2233 77624 P33/P73B CALL
027591,000521: 35,2234 71016 ADVANCE
027592,000522: 35,2235 77624 CALL
027593,000523: 35,2236 71133 CDHMVR
027594,000524: 35,2237 77201 SETPD VLOAD
027595,000525: 35,2240 00001 0D
027596,000526: 35,2241 03544 VACT3
027597,000527: 35,2242 45115 PDVL CALL
027598,000528: 35,2243 02311 RACT2
027599,000529: 35,2244 71071 INTINT3P
027600,000530: 35,2245 77624 CALL
027601,000531: 35,2246 46402 ACTIVE
027602,000532: 35,2247 77201 SETPD VLOAD
027603,000533: 35,2250 00001 0D
027604,000534: 35,2251 03530 VPASS2
027605,000535: 35,2252 45115 PDVL CALL
027606,000536: 35,2253 03522 RPASS2
027607,000537: 35,2254 71071 INTINT3P
027608,000538: 35,2255 77624 CALL
027609,000539: 35,2256 46412 PASSIVE
027610,000540: 35,2257 43145 DLOAD SET
027611,000541: 35,2260 32420 P30ZERO
027612,000542: 35,2261 03460 ITSWICH
027613,000543: 35,2262 36317 STCALL NOMTPI
027614,000544: 35,2263 72764 S33/34.1
027615,000545: 35,2264 77454 BZE EXIT
027616,000546: 35,2265 72302 P33/P73C
027617,000547: 35,2266 05567 TC ALARM
027618,000548: 35,2267 00611 OCT 611
027619,000549: 35,2270 35006 CAF V05N09
027620,000550: 35,2271 04616 TC BANKCALL
027621,000551: 35,2272 20476 CADR GOFLASH
027622,000552: 35,2273 06001 TC GOTOPOOH
027623,000553: 35,2274 02276 TC +2
|
|
Page 628 |
027625,000555: 35,2275 02221 TC P33/P73A
027626,000556: 35,2276 06037 TC INTPRET
027627,000557: 35,2277 77745 DLOAD
027628,000558: 35,2300 32420 P30ZERO
027629,000559: 35,2301 02317 STORE NOMTPI
027630,000560: 35,2302 43014 P33/P73C BON SET
027631,000561: 35,2303 01311 FINALFLG
027632,000562: 35,2304 72306 P33/P73D
027633,000563: 35,2305 00470 UPDATFLG
027634,000564: 35,2306 43345 P33/P73D DLOAD DAD
027635,000565: 35,2307 02317 NOMTPI
027636,000566: 35,2310 03636 TTPI
027637,000567: 35,2311 03636 STORE TTPI
027638,000568: 35,2312 77625 DSU
027639,000569: 35,2313 01777 TCDH
027640,000570: 35,2314 51025 P33/P73E DSU BPL
027641,000571: 35,2315 32422 60MIN
027642,000572: 35,2316 72314 P33/P73E
027643,000573: 35,2317 77615 DAD
027644,000574: 35,2320 32422 60MIN
027645,000575: 35,2321 16253 STODL T1TOT2
027646,000576: 35,2322 03636 TTPI
027647,000577: 35,2323 41425 DSU PUSH
027648,000578: 35,2324 03640 TTPI0
027649,000579: 35,2325 45246 P33/P73F ABS DSU
027650,000580: 35,2326 32422 60MIN
027651,000581: 35,2327 43244 BPL DAD
027652,000582: 35,2330 72325 P33/P73F
027653,000583: 35,2331 32422 60MIN
027654,000584: 35,2332 45565 SIGN STADR
027655,000585: 35,2333 75522 STORE T2TOT3
027656,000586: 35,2334 77776 EXIT
027657,000587: 35,2335 32412 CAF V06N75
027658,000588: 35,2336 03712 TC VNPOOH
027659,000589: 35,2337 06037 TC INTPRET
027660,000590: 35,2340 45175 VLOAD CALL
027661,000591: 35,2341 02275 DELVEET2
027662,000592: 35,2342 71100 S32/33.1
027663,000593: 35,2343 36275 STCALL DELVEET2
027664,000594: 35,2344 73606 VN1645
027665,000595: 35,2345 77650 GOTO
027666,000596: 35,2346 72233 P33/P73B
027667,000597:
|
|
Page 629 |
027669,000599: # ..... AVFLAGA/P .....
027670,000600:
027671,000601: # SUBROUTINES USED
027672,000602:
027673,000603: # UPFLAG
027674,000604: # DOWNFLAG
027675,000605:
027676,000606: 35,2347 00006 AVFLAGA EXTEND # AVFLAG = LEM
027677,000607: 35,2350 23470 QXCH SUBEXIT
027678,000608: 35,2351 05504 TC UPFLAG
027679,000609: 35,2352 00050 ADRES AVFLAG
027680,000610: 35,2353 01470 TC SUBEXIT
027681,000611: 35,2354 00006 AVFLAGP EXTEND # AVFLAG = CSM
027682,000612: 35,2355 23470 QXCH SUBEXIT
027683,000613: 35,2356 05516 TC DOWNFLAG
027684,000614: 35,2357 00050 ADRES AVFLAG
027685,000615: 35,2360 01470 TC SUBEXIT
027686,000616: 35,2361 00006 P20FLGON EXTEND
027687,000617: 35,2362 23470 QXCH SUBEXIT
027688,000618: 35,2363 05504 TC UPFLAG
027689,000619: 35,2364 00027 ADRES UPDATFLG # SET UPDATFLG
027690,000620: 35,2365 05504 TC UPFLAG
027691,000621: 35,2366 00031 ADRES TRACKFLG # SET TRACKFLG
027692,000622: 35,2367 01470 TC SUBEXIT
027693,000623:
|
|
Page 630 |
027695,000625: # ..... DISDVLVC .....
027696,000626:
027697,000627: # SUBROUTINES USED
027698,000628:
027699,000629: # S32/33.X
027700,000630: # VNPOOH
027701,000631:
027702,000632: 35,2370 03434 DISDVLVC STORE DELVLVC
027703,000633: 35,2371 45020 STQ CALL
027704,000634: 35,2372 03463 NORMEX
027705,000635: 35,2373 71120 S32/33.X
027706,000636: 35,2374 64375 VLOAD MXV
027707,000637: 35,2375 03434 DELVLVC
027708,000638: 35,2376 00001 0D
027709,000639: 35,2377 66172 VSL1 SXA,1
027710,000640: 35,2400 03615 VERBNOUN
027711,000641: 35,2401 03434 STORE DELVLVC
027712,000642: 35,2402 77776 EXIT
027713,000643: 35,2403 31615 CA VERBNOUN
027714,000644: 35,2404 03712 TC VNPOOH
027715,000645: 35,2405 06037 TC INTPRET
027716,000646: 35,2406 77650 GOTO
027717,000647: 35,2407 03463 NORMEX
027718,000648:
|
|
Page 631 |
027720,000650: # ..... CONSTANTS .....
027721,000651:
027722,000652: 35,2410 01413 V06N11 VN 0611
027723,000653: 35,2411 01415 V06N13 VN 0613
027724,000654: 35,2412 01513 V06N75 VN 0675
027725,000655: 35,2413 77776 62460 SN359+ 2DEC -.000086601
027726,000656:
027727,000657: 35,2415 17777 37776 CS359+ 2DEC +.499999992
027728,000658:
027729,000659: 35,2417 00000 00000 P30ZERO 2DEC 0 B-28
027730,000660:
027731,000661: 35,2421 00025 37100 60MIN 2DEC 360000 B-28
027732,000662:
027733,000663: 35,2423 00600 ALARM/TB OCT 00600 # NO 1
027734,000664: 35,2424 00601 OCT 00601 # 2
027735,000665: 35,2425 00602 OCT 00602 # 3
027736,000666: 35,2426 00603 OCT 00603 # 4
027737,000667: 35,2427 00604 OCT 00604 # 5
027738,000668: 35,2430 00605 OCT 00605 # 6
027739,000669: 35,2431 00606 OCT 00606 # 7
027740,000670:
|
|
Page 632 |
027742,000672: # ..... CSI/A .....
027743,000673:
027744,000674: # SUBROUTINES USED
027745,000675:
027746,000676: # VECSHIFT
027747,000677: # TIMETHET
027748,000678: # PERIAPO
027749,000679: # SHIFTR1
027750,000680: # INTINT2C
027751,000681: # CDHMVR
027752,000682: # PERIAPO1
027753,000683: # INTINT
027754,000684: # ACTIVE
027755,000685:
027756,000686: 34,2057 BANK 34
027757,000687: 34,2000 SETLOC CSI/CDH1
027758,000688: 34,2000 BANK
027759,000689: 34,2057 E7,1470 EBANK= SUBEXIT
027760,000690: 34,2057 COUNT* $$/CSI
027761,000691: 34,2057 00000 00020 LOOPMX 2DEC 16 B-28
027762,000692:
027763,000693: 34,2061 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
027764,000694:
027765,000695: 34,2063 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
027766,000696:
027767,000697: 34,2065 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
027768,000698:
027769,000699: 34,2067 10000 00000 1DPB2 2DEC 1.0 B-2
027770,000700:
027771,000701: 34,2071 00000 00001 1DPB28 2DEC 1 B-28
027772,000702:
027773,000703: 34,2073 00004 31566 PMINE 2DEC 157420 B-29 # 85 NM - MUST BE 8 WORDS BEFORE PMINM
027774,000704:
027775,000705: 34,2075 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
027776,000706:
027777,000707: 34,2077 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS (CHANGED FROM .05 FPS)
027778,000708:
027779,000709: 34,2101 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
027780,000710:
027781,000711: 34,2103 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE
027782,000712:
027783,000713: 34,2105 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
027784,000714:
027785,000715: 34,2107 00000 06433 ONETHTH 2DEC .0001 B-3
027786,000716:
027787,000717: 34,2111 00003 25140 TMIN 2DEC 60000 B-28 # 10 MIN
027788,000718:
027789,000719: 34,2113 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
027790,000720: 34,2114 03260 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
027791,000721: 34,2115 03061 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
|
|
Page 633 |
027793,000723: 34,2116 43014 CLEAR SET
027794,000724: 34,2117 03262 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
027795,000725: 34,2120 03063 S32.1F3B # 10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
027796,000726: 34,2121 77745 DLOAD
027797,000727: 34,2122 32420 P30ZERO
027798,000728: 34,2123 03606 STORE LOOPCT
027799,000729: 34,2124 03614 STORE CSIALRM
027800,000730: 34,2125 77201 CSI/B SETPD VLOAD
027801,000731: 34,2126 00001 0D
027802,000732: 34,2127 02303 RACT1
027803,000733: 34,2130 41446 ABVAL PUSH # RA1 B29 PL02D
027804,000734: 34,2131 70501 NORM SR1
027805,000735: 34,2132 00050 X2 # B29-N2+ B1 PL04D
027806,000736: 34,2133 51515 PDVL ABVAL
027807,000737: 34,2134 03552 RPASS3
027808,000738: 34,2135 55301 NORM BDDV # RA1/RP3 B1 PL02D
027809,000739: 34,2136 00047 X1
027810,000740: 34,2137 53664 XSU,2 SR* # B2
027811,000741: 34,2140 00046 X1
027812,000742: 34,2141 57175 1,2
027813,000743: 34,2142 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
027814,000744: 34,2143 30070 1DPB2
027815,000745: 34,2144 65301 NORM PDDL # PL02D
027816,000746: 34,2145 00047 X1
027817,000747: 34,2146 02321 RTMU
027818,000748: 34,2147 56342 SR1 DDV # B38-B31= B7 PL00D
027819,000749: 34,2150 75457 SL* SQRT # B7
027820,000750: 34,2151 20172 0 -7,1
027821,000751: 34,2152 53515 PDVL UNIT # PL02D
027822,000752: 34,2153 02303 RACT1
027823,000753: 34,2154 47315 PDVL VXV
027824,000754: 34,2155 02261 UP1
027825,000755: 34,2156 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
027826,000756: 34,2157 72441 DOT SL1 # VA1 . UH1 B7
027827,000757: 34,2160 03472 VACT1
027828,000758: 34,2161 45421 BDSU STADR # PL00D
027829,000759: 34,2162 60203 STODL DELVCSI
027830,000760: 34,2163 30062 INITST # 10 FPS
027831,000761: 34,2164 03612 STORE DELDV
027832,000762: 34,2165 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
027833,000763: 34,2166 03606 LOOPCT
027834,000764: 34,2167 30072 1DPB28
027835,000765: 34,2170 03606 STORE LOOPCT
027836,000766: 34,2171 77025 DSU AXT,2
027837,000767: 34,2172 30060 LOOPMX
027838,000768: 34,2173 00006 6
027839,000769: 34,2174 77644 BPL
027840,000770: 34,2175 70776 SCNDSOL
027841,000771: 34,2176 77601 CSI/B2 SETPD
027842,000772: 34,2177 00001 0D
|
|
Page 634 |
027844,000774: 34,2200 51545 DLOAD ABS
027845,000775: 34,2201 03574 DELVCSI
027846,000776: 34,2202 50025 DSU BMN
027847,000777: 34,2203 30064 DVMAX1
027848,000778: 34,2204 70224 CSI/B23
027849,000779: 34,2205 43174 AXT,2 BON
027850,000780: 34,2206 00007 7
027851,000781: 34,2207 03300 S32.1F1
027852,000782: 34,2210 70776 SCNDSOL
027853,000783: 34,2211 43014 BOFF BON
027854,000784: 34,2212 03342 S32.1F3A
027855,000785: 34,2213 70216 CSI/B22 # FLAG 3 NEQ 3
027856,000786: 34,2214 03303 S32.1F3B
027857,000787: 34,2215 70776 SCNDSOL
027858,000788: 34,2216 71214 CSI/B22 SET DLOAD
027859,000789: 34,2217 03060 S32.1F1
027860,000790: 34,2220 30066 DVMAX2
027861,000791: 34,2221 77765 SIGN
027862,000792: 34,2222 03574 DELVCSI
027863,000793: 34,2223 03574 STORE DELVCSI
027864,000794: 34,2224 41575 CSI/B23 VLOAD PUSH
027865,000795: 34,2225 02303 RACT1
027866,000796: 34,2226 63256 UNIT PDVL
027867,000797: 34,2227 02261 UP1
027868,000798: 34,2230 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
027869,000799: 34,2231 76561 VXSC VSL1
027870,000800: 34,2232 03574 DELVCSI
027871,000801: 34,2233 02267 STORE DELVEET1
027872,000802: 34,2234 40055 VAD BOV
027873,000803: 34,2235 03472 VACT1
027874,000804: 34,2236 70237 CSI/B23D
027875,000805: 34,2237 37566 CSI/B23D STCALL VACT4
027876,000806: 34,2240 46416 VECSHIFT
027877,000807: 34,2241 26744 STOVL VVEC
027878,000808: 34,2242 77614 SET
027879,000809: 34,2243 03466 RVSW
027880,000810: 34,2244 26655 STOVL RVEC
027881,000811: 34,2245 32414 SN359+
027882,000812: 34,2246 36730 STCALL SNTH # ALSO CSTH
027883,000813: 34,2247 24732 TIMETHET
027884,000814: 34,2250 72142 SR1 LXA,1
027885,000815: 34,2251 02776 RTX1
027886,000816: 34,2252 37604 STCALL HAFPA1
027887,000817: 34,2253 46326 PERIAPO
027888,000818: 34,2254 77624 CALL
027889,000819: 34,2255 46426 SHIFTR1
027890,000820: 34,2256 17602 STODL POSTCSI
027891,000821: 34,2257 03621 CENTANG
027892,000822: 34,2260 52054 BZE GOTO
027893,000823: 34,2261 70263 +2
|
|
Page 635 |
027895,000825: 34,2262 70372 CIRCL
027896,000826: 34,2263 77745 DLOAD
027897,000827: 34,2264 02752 ECC
027898,000828: 34,2265 50025 DSU BMN
027899,000829: 34,2266 30110 ONETHTH
027900,000830: 34,2267 70372 CIRCL
027901,000831: 34,2270 45145 DLOAD CALL
027902,000832: 34,2271 00041 R1
027903,000833: 34,2272 46426 SHIFTR1
027904,000834: 34,2273 60201 SETPD NORM
027905,000835: 34,2274 00003 2D
027906,000836: 34,2275 00047 X1
027907,000837: 34,2276 50315 PDVL DOT # PL04D
027908,000838: 34,2277 02303 RACT1
027909,000839: 34,2300 03566 VACT4
027910,000840: 34,2301 56246 ABS DDV
027911,000841: 34,2302 00003 02D # (/RDOTV/)/R1 B36-B29= B7
027912,000842: 34,2303 45257 SL* DSU
027913,000843: 34,2304 20201 0,1
027914,000844: 34,2305 30100 NICKELDP
027915,000845: 34,2306 71240 BMN DLOAD
027916,000846: 34,2307 70372 CIRCL
027917,000847: 34,2310 02740 P
027918,000848: 34,2311 45312 SL2 DSU
027919,000849: 34,2312 30070 1DPB2
027920,000850: 34,2313 14017 STODL 14D
027921,000851: 34,2314 02317 RTSR1/MU
027922,000852: 34,2315 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
027923,000853: 34,2316 41325 PDDL DMP
027924,000854: 34,2317 02740 P
027925,000855: 34,2320 00041 R1
027926,000856: 34,2321 77624 CALL
027927,000857: 34,2322 46426 SHIFTR1
027928,000858: 34,2323 72412 SL4 SL1
027929,000859: 34,2324 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
027930,000860: 34,2325 52414 BOFF SL3
027931,000861: 34,2326 04343 CMOONFLG
027932,000862: 34,2327 70330 CSI/B3
027933,000863: 34,2330 50315 CSI/B3 PDVL DOT
027934,000864: 34,2331 02303 RACT1
027935,000865: 34,2332 03566 VACT4
027936,000866: 34,2333 03617 STORE RDOTV
027937,000867: 34,2334 77646 ABS
027938,000868: 34,2335 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
027939,000869: 34,2336 00050 X2
027940,000870: 34,2337 53660 XSU,1 SL* # B-31+B36-B3 = B2
027941,000871: 34,2340 00047 X2
027942,000872: 34,2341 20204 3,1
027943,000873: 34,2342 14015 STODL 12D
027944,000874: 34,2343 32420 P30ZERO
|
|
Page 636 |
027946,000876: 34,2344 00021 STORE 16D
027947,000877: 34,2345 53575 VLOAD UNIT
027948,000878: 34,2346 00015 12D
027949,000879: 34,2347 26730 STOVL SNTH # ALSO STORES CSTH AND 0
027950,000880: 34,2350 02303 RACT1
027951,000881: 34,2351 75315 PDVL SIGN
027952,000882: 34,2352 03566 VACT4
027953,000883: 34,2353 03617 RDOTV
027954,000884: 34,2354 45076 VCOMP CALL
027955,000885: 34,2355 46416 VECSHIFT
027956,000886: 34,2356 26744 STOVL VVEC
027957,000887: 34,2357 77614 SET
027958,000888: 34,2360 03466 RVSW
027959,000889: 34,2361 36655 STCALL RVEC
027960,000890: 34,2362 24732 TIMETHET
027961,000891: 34,2363 51125 PDDL BPL
027962,000892: 34,2364 03617 RDOTV
027963,000893: 34,2365 70376 NTP/2
027964,000894: 34,2366 45345 DLOAD DSU
027965,000895: 34,2367 03604 HAFPA1
027966,000896: 34,2370 52006 PUSH GOTO
027967,000897: 34,2371 70376 NTP/2
027968,000898: 34,2372 71201 CIRCL SETPD DLOAD
027969,000899: 34,2373 00001 00D
027970,000900: 34,2374 32420 P30ZERO
027971,000901: 34,2375 77606 PUSH
027972,000902: 34,2376 41345 NTP/2 DLOAD DMP
027973,000903: 34,2377 03467 NN
027974,000904: 34,2400 03604 HAFPA1
027975,000905: 34,2401 45261 SL DSU
027976,000906: 34,2402 20217 14D
027977,000907: 34,2403 77615 DAD
027978,000908: 34,2404 03634 TCSI
027979,000909: 34,2405 01777 STORE TCDH
027980,000910: 34,2406 77021 BDSU AXT,2
027981,000911: 34,2407 03636 TTPI
027982,000912: 34,2410 00005 5D
027983,000913: 34,2411 40240 BMN SETPD
027984,000914: 34,2412 70776 SCNDSOL
027985,000915: 34,2413 00001 0D
027986,000916: 34,2414 63375 VLOAD PDVL
027987,000917: 34,2415 03566 VACT4
027988,000918: 34,2416 02303 RACT1
027989,000919: 34,2417 77624 CALL
027990,000920: 34,2420 71062 INTINT2C
027991,000921: 34,2421 26311 STOVL RACT2
027992,000922: 34,2422 00007 VATT
027993,000923: 34,2423 27514 STOVL VACT2
027994,000924: 34,2424 03506 VPASS1
027995,000925: 34,2425 63201 SETPD PDVL
|
|
Page 637 |
027997,000927: 34,2426 00001 0D
027998,000928: 34,2427 03500 RPASS1
027999,000929: 34,2430 77624 CALL
028000,000930: 34,2431 71062 INTINT2C
028001,000931: 34,2432 27522 STOVL RPASS2
028002,000932: 34,2433 00007 VATT
028003,000933: 34,2434 37530 STCALL VPASS2
028004,000934: 34,2435 71133 CDHMVR
028005,000935: 34,2436 40375 VLOAD SETPD
028006,000936: 34,2437 02311 RACT2
028007,000937: 34,2440 00001 0D
028008,000938: 34,2441 45115 PDVL CALL
028009,000939: 34,2442 03544 VACT3
028010,000940: 34,2443 46316 PERIAPO1
028011,000941: 34,2444 77624 CALL
028012,000942: 34,2445 46426 SHIFTR1
028013,000943: 34,2446 27604 STOVL POSTCDH
028014,000944: 34,2447 03544 VACT3
028015,000945: 34,2450 63201 SETPD PDVL
028016,000946: 34,2451 00001 0D
028017,000947: 34,2452 02311 RACT2
028018,000948: 34,2453 65325 PDDL PDDL
028019,000949: 34,2454 01777 TCDH
028020,000950: 34,2455 03636 TTPI
028021,000951: 34,2456 41525 PDDL PUSH
028022,000952: 34,2457 33732 TWOPI
028023,000953: 34,2460 77624 CALL
028024,000954: 34,2461 73466 INTINT
028025,000955: 34,2462 77624 CALL
028026,000956: 34,2463 46402 ACTIVE
028027,000957: 34,2464 77745 DLOAD
028028,000958: 34,2465 02257 ELEV
028029,000959: 34,2466 73401 SETPD SINE
028030,000960: 34,2467 00007 6D
028031,000961: 34,2470 53515 PDVL UNIT
028032,000962: 34,2471 03536 RACT3
028033,000963: 34,2472 00001 STORE 00D # URA3 AT 00D
028034,000964: 34,2473 47315 PDVL VXV # PL14D, PL08D
028035,000965: 34,2474 02261 UP1
028036,000966: 34,2475 77656 UNIT
028037,000967: 34,2476 71525 PDDL COSINE # UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
028038,000968: 34,2477 02257 ELEV
028039,000969: 34,2500 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
028040,000970: 34,2501 77754 STORE 18D # PLUS
028041,000971: 34,2502 74345 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
028042,000972: 34,2503 76455 VAD VSL1
028043,000973: 34,2504 00023 18D # B1
028044,000974: 34,2505 50206 PUSH DOT # PL06D
028045,000975: 34,2506 03536 RACT3 # (U . RA3) = TEMP1 B1 +B29 = B30
028046,000976: 34,2507 41552 SL1 PUSH # B29 PL08D
|
|
Page 638 |
028048,000978: 34,2510 72316 DSQ TLOAD # TEMP1**2 B58
028049,000979: 34,2511 00155 MPAC
028050,000980: 34,2512 50315 PDVL DOT # PL11D
028051,000981: 34,2513 03536 RACT3
028052,000982: 34,2514 03536 RACT3
028053,000983: 34,2515 57551 TLOAD DCOMP # RA3 . RA3
028054,000984: 34,2516 00155 MPAC
028055,000985: 34,2517 50315 PDVL DOT # RP3 . RP3 B58 PL14D
028056,000986: 34,2520 03552 RPASS3
028057,000987: 34,2521 03552 RPASS3 # PL11D
028058,000988: 34,2522 76371 TAD TAD # TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2 PL08D
028059,000989: 34,2523 71244 BPL DLOAD
028060,000990: 34,2524 70542 K1ORK2
028061,000991: 34,2525 03606 LOOPCT
028062,000992: 34,2526 77025 DSU AXT,2
028063,000993: 34,2527 30072 1DPB28
028064,000994: 34,2530 00001 1D
028065,000995: 34,2531 77654 BZE
028066,000996: 34,2532 72036 ALMXITA
028067,000997: 34,2533 70545 DLOAD SR1
028068,000998: 34,2534 03612 DELDV
028069,000999: 34,2535 03612 STORE DELDV
028070,001000: 34,2536 77621 BDSU
028071,001001: 34,2537 03576 DVPREV
028072,001002: 34,2540 37574 STCALL DELVCSI
028073,001003: 34,2541 70165 CSI/B1
028074,001004: 34,2542 41566 K1ORK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
028075,001005: 34,2543 45276 DCOMP DSU
028076,001006: 34,2544 00007 06D # -TEMP1-TEMP3 = K2 AT 10D
028077,001007: 34,2545 14013 STODL 10D # PL08D
028078,001008: 34,2546 45425 DSU STADR # PL06D
028079,001009: 34,2547 77762 STORE 12D # -TEMP1+TEMP3 = K1 AT 12D
028080,001010: 34,2550 77646 ABS
028081,001011: 34,2551 14017 STODL 14D
028082,001012: 34,2552 00013 10D
028083,001013: 34,2553 45246 ABS DSU
028084,001014: 34,2554 00017 14D
028085,001015: 34,2555 71240 BMN DLOAD
028086,001016: 34,2556 70561 K2.
028087,001017: 34,2557 00015 12D
028088,001018: 34,2560 00013 STORE 10D # K = K1
028089,001019: 34,2561 77745 K2. DLOAD
028090,001020: 34,2562 00013 10D
028091,001021: 34,2563 76561 VXSC VSL1
028092,001022: 34,2564 53455 VAD UNIT # V = RA3 + KU UNIT B1
028093,001023: 34,2565 03536 RACT3
028094,001024: 34,2566 53515 PDVL UNIT
028095,001025: 34,2567 03552 RPASS3 # PL06D
028096,001026: 34,2570 53515 PDVL UNIT
028097,001027: 34,2571 03560 VPASS3 # PL12D
|
|
Page 639 |
028099,001029: 34,2572 63235 VXV PDVL # UVP3 X URP3 PL18D
028100,001030: 34,2573 00007 06D
028101,001031: 34,2574 00007 06D
028102,001032: 34,2575 50235 VXV DOT
028103,001033: 34,2576 00001 00D
028104,001034: 34,2577 77626 STADR # PL12D
028105,001035: 34,2600 53762 STOVL 12D # (URP3 X V).(UVP3 X URP3)=TEMP PL06D
028106,001036: 34,2601 72441 DOT SL1 # PL00D
028107,001037: 34,2602 75326 ARCCOS SIGN
028108,001038: 34,2603 00015 12D # B0
028109,001039: 34,2604 41542 SR1 PUSH # GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
028110,001040: 34,2605 71214 BON DLOAD
028111,001041: 34,2606 03301 S32.1F2
028112,001042: 34,2607 70644 FRSTPAS
028113,001043: 34,2610 00001 00D # NOT THE FIRST PASS OF A CYCLE
028114,001044: 34,2611 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
028115,001045: 34,2612 03610 GAMPREV
028116,001046: 34,2613 03574 DELVCSI
028117,001047: 34,2614 60225 DSU NORM # B7
028118,001048: 34,2615 03576 DVPREV
028119,001049: 34,2616 00047 X1
028120,001050: 34,2617 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
028121,001051: 34,2620 00003 02D # = SLOPE
028122,001052: 34,2621 03574 DELVCSI
028123,001053: 34,2622 03576 STORE DVPREV
028124,001054: 34,2623 43014 BOFF BOFF
028125,001055: 34,2624 03342 S32.1F3A
028126,001056: 34,2625 70656 THRDCHK
028127,001057: 34,2626 03343 S32.1F3B
028128,001058: 34,2627 70656 THRDCHK
028129,001059: 34,2630 41345 DLOAD DMP
028130,001060: 34,2631 00003 02D
028131,001061: 34,2632 03610 GAMPREV
028132,001062: 34,2633 71244 BPL DLOAD
028133,001063: 34,2634 70663 FIFTYFPS
028134,001064: 34,2635 30062 INITST
028135,001065: 34,2636 77765 SIGN
028136,001066: 34,2637 03612 DELDV
028137,001067: 34,2640 03612 STORE DELDV
028138,001068: 34,2641 43014 SET CLEAR
028139,001069: 34,2642 03062 S32.1F3A
028140,001070: 34,2643 03263 S32.1F3B
028141,001071: 34,2644 77745 FRSTPAS DLOAD
028142,001072: 34,2645 00001 00D
028143,001073: 34,2646 17610 STODL GAMPREV
028144,001074: 34,2647 03574 DELVCSI
028145,001075: 34,2650 03576 STORE DVPREV
028146,001076: 34,2651 43025 DSU CLEAR
028147,001077: 34,2652 03612 DELDV
028148,001078: 34,2653 03261 S32.1F2
|
|
Page 640 |
028150,001080: 34,2654 37574 STCALL DELVCSI
028151,001081: 34,2655 70165 CSI/B1
028152,001082: 34,2656 43014 THRDCHK BON BON
028153,001083: 34,2657 03302 S32.1F3A
028154,001084: 34,2660 70702 NEWTN
028155,001085: 34,2661 03303 S32.1F3B
028156,001086: 34,2662 70702 NEWTN
028157,001087: 34,2663 75345 FIFTYFPS DLOAD SIGN
028158,001088: 34,2664 30102 FIFPSDP
028159,001089: 34,2665 00005 04D
028160,001090: 34,2666 77765 SIGN
028161,001091: 34,2667 03610 GAMPREV
028162,001092: 34,2670 03612 STORE DELDV
028163,001093: 34,2671 43276 DCOMP DAD
028164,001094: 34,2672 03574 DELVCSI
028165,001095: 34,2673 17574 STODL DELVCSI
028166,001096: 34,2674 00001 00D
028167,001097: 34,2675 43014 SET SET
028168,001098: 34,2676 03063 S32.1F3B
028169,001099: 34,2677 03062 S32.1F3A
028170,001100: 34,2700 37610 STCALL GAMPREV
028171,001101: 34,2701 70176 CSI/B2
028172,001102: 34,2702 60345 NEWTN DLOAD NORM
028173,001103: 34,2703 00005 04D
028174,001104: 34,2704 00050 X2
028175,001105: 34,2705 54065 BDDV XSU,1
028176,001106: 34,2706 00001 00D
028177,001107: 34,2707 00047 X2
028178,001108: 34,2710 77657 SR*
028179,001109: 34,2711 20601 0,1
028180,001110: 34,2712 17612 STODL DELDV
028181,001111: 34,2713 00001 00D
028182,001112: 34,2714 03610 STORE GAMPREV
028183,001113: 34,2715 51545 DLOAD ABS
028184,001114: 34,2716 03612 DELDV # PL08D
028185,001115: 34,2717 45206 PUSH DSU
028186,001116: 34,2720 30076 EPSILN1
028187,001117: 34,2721 71240 BMN DLOAD
028188,001118: 34,2722 70737 CSI/SOL
028189,001119: 34,2723 50025 DSU BMN
028190,001120: 34,2724 30106 DELMAX1
028191,001121: 34,2725 70732 CSISTEP
028192,001122: 34,2726 75345 DLOAD SIGN
028193,001123: 34,2727 30106 DELMAX1
028194,001124: 34,2730 03612 DELDV
028195,001125: 34,2731 03612 STORE DELDV
028196,001126: 34,2732 45345 CSISTEP DLOAD DSU
028197,001127: 34,2733 03574 DELVCSI
028198,001128: 34,2734 03612 DELDV
028199,001129: 34,2735 37574 STCALL DELVCSI
|
|
Page 641 |
028201,001131: 34,2736 70165 CSI/B1
028202,001132: 34,2737 77145 CSI/SOL DLOAD AXT,2
028203,001133: 34,2740 03602 POSTCSI
028204,001134: 34,2741 00002 2
028205,001135: 34,2742 77750 LXA,1
028206,001136: 34,2743 02776 RTX1
028207,001137: 34,2744 50023 DSU* BMN
028208,001138: 34,2745 30072 PMINE -2,1
028209,001139: 34,2746 70776 SCNDSOL
028210,001140: 34,2747 71374 AXT,2 DLOAD
028211,001141: 34,2750 00003 3
028212,001142: 34,2751 03604 POSTCDH
028213,001143: 34,2752 50023 DSU* BMN
028214,001144: 34,2753 30072 PMINE -2,1
028215,001145: 34,2754 70776 SCNDSOL
028216,001146: 34,2755 45345 DLOAD DSU
028217,001147: 34,2756 01777 TCDH
028218,001148: 34,2757 03634 TCSI
028219,001149: 34,2760 02253 STORE T1TOT2
028220,001150: 34,2761 45374 AXT,2 DSU
028221,001151: 34,2762 00004 4
028222,001152: 34,2763 30112 TMIN
028223,001153: 34,2764 77040 BMN AXT,2
028224,001154: 34,2765 70776 SCNDSOL
028225,001155: 34,2766 00005 5
028226,001156: 34,2767 45345 DLOAD DSU
028227,001157: 34,2770 03636 TTPI
028228,001158: 34,2771 01777 TCDH
028229,001159: 34,2772 02255 STORE T2TOT3
028230,001160: 34,2773 51025 DSU BPL
028231,001161: 34,2774 30112 TMIN
028232,001162: 34,2775 72152 P32/P72C
028233,001163: 34,2776 43014 SCNDSOL BON BOFF
028234,001164: 34,2777 03302 S32.1F3A
028235,001165: 34,3000 72040 ALMXIT
028236,001166: 34,3001 03343 S32.1F3B
028237,001167: 34,3002 72040 ALMXIT
028238,001168: 34,3003 71334 SXA,2 DLOAD
028239,001169: 34,3004 03613 CSIALRM
028240,001170: 34,3005 32420 P30ZERO
028241,001171: 34,3006 43014 CLEAR SET
028242,001172: 34,3007 03260 S32.1F1
028243,001173: 34,3010 03061 S32.1F2
028244,001174: 34,3011 43014 CLEAR CLEAR
028245,001175: 34,3012 03262 S32.1F3A
028246,001176: 34,3013 03263 S32.1F3B
028247,001177: 34,3014 37606 STCALL LOOPCT
028248,001178: 34,3015 70125 CSI/B
028249,001179:
|
|
Page 642 |
028251,001181: # ..... ADVANCE .....
028252,001182:
028253,001183: # SUBROUTINES USED
028254,001184: # PRECSET
028255,001185: # ROTATE
028256,001186:
028257,001187: 34,3016 71220 ADVANCE STQ DLOAD
028258,001188: 34,3017 03470 SUBEXIT
028259,001189: 34,3020 03442 TIG
028260,001190: 34,3021 34041 STCALL TDEC1
028261,001191: 34,3022 46360 PRECSET
028262,001192: 34,3023 77214 SET VLOAD
028263,001193: 34,3024 01067 XDELVFLG
028264,001194: 34,3025 03560 VPASS3
028265,001195: 34,3026 03530 STORE VPASS2
028266,001196: 34,3027 27506 STOVL VPASS1
028267,001197: 34,3030 03552 RPASS3
028268,001198: 34,3031 03522 STORE RPASS2
028269,001199: 34,3032 03500 STORE RPASS1
028270,001200: 34,3033 47256 UNIT VXV
028271,001201: 34,3034 03506 VPASS1
028272,001202: 34,3035 77656 UNIT
028273,001203: 34,3036 26261 STOVL UP1
028274,001204: 34,3037 03536 RACT3
028275,001205: 34,3040 37642 STCALL RTIG
028276,001206: 34,3041 71052 ROTATE
028277,001207: 34,3042 02311 STORE RACT2
028278,001208: 34,3043 26303 STOVL RACT1
028279,001209: 34,3044 03544 VACT3
028280,001210: 34,3045 37650 STCALL VTIG
028281,001211: 34,3046 71052 ROTATE
028282,001212: 34,3047 03514 STORE VACT2
028283,001213: 34,3050 37472 STCALL VACT1
028284,001214: 34,3051 03470 SUBEXIT
028285,001215:
|
|
Page 643 |
028287,001217: # ..... ROTATE .....
028288,001218:
028289,001219: 34,3052 41406 ROTATE PUSH PUSH
028290,001220: 34,3053 74241 DOT VXSC
028291,001221: 34,3054 02261 UP1
028292,001222: 34,3055 02261 UP1
028293,001223: 34,3056 51352 VSL2 BVSU
028294,001224: 34,3057 63256 UNIT PDVL
028295,001225: 34,3060 74246 ABVAL VXSC
028296,001226: 34,3061 43572 VSL1 RVQ
028297,001227:
|
|
Page 644 |
028299,001229: # ..... INTINTNA .....
028300,001230:
028301,001231: 34,3062 65325 INTINT2C PDDL PDDL
028302,001232: 34,3063 03634 TCSI
028303,001233: 34,3064 01777 TCDH
028304,001234: 34,3065 41525 PDDL PUSH
028305,001235: 34,3066 33732 TWOPI
028306,001236: 34,3067 77650 GOTO
028307,001237: 34,3070 73466 INTINT
028308,001238: 34,3071 65325 INTINT3P PDDL PDDL
028309,001239: 34,3072 01777 TCDH
028310,001240: 34,3073 03636 TTPI
028311,001241: 34,3074 41525 PDDL PUSH
028312,001242: 34,3075 32420 P30ZERO
028313,001243: 34,3076 77650 GOTO
028314,001244: 34,3077 73466 INTINT
028315,001245:
|
|
Page 645 |
028317,001247: # ..... S32/33.1 .....
028318,001248:
028319,001249: # SUBROUTINES USED
028320,001250: # S32/33.X
028321,001251:
028322,001252: 34,3100 76020 S32/33.1 STQ AXT,1
028323,001253: 34,3101 03470 SUBEXIT
028324,001254: 34,3102 01521 VN 0681
028325,001255: 34,3103 77624 CALL
028326,001256: 34,3104 72370 DISDVLVC
028327,001257: 34,3105 77624 CALL
028328,001258: 34,3106 71120 S32/33.X
028329,001259: 34,3107 61375 VLOAD VXM
028330,001260: 34,3110 03434 DELVLVC
028331,001261: 34,3111 00001 0D
028332,001262: 34,3112 77772 VSL1
028333,001263: 34,3113 03656 STORE DELVSIN
028334,001264: 34,3114 51406 PUSH ABVAL
028335,001265: 34,3115 27664 STOVL DELVSAB
028336,001266: 34,3116 77650 GOTO
028337,001267: 34,3117 03470 SUBEXIT
028338,001268:
|
|
Page 646 |
028340,001270: # ..... S32/33.X .....
028341,001271:
028342,001272: 34,3120 77201 S32/33.X SETPD VLOAD
028343,001273: 34,3121 00007 6D
028344,001274: 34,3122 02261 UP1
028345,001275: 34,3123 63276 VCOMP PDVL
028346,001276: 34,3124 02303 RACT1
028347,001277: 34,3125 57456 UNIT VCOMP
028348,001278: 34,3126 47206 PUSH VXV
028349,001279: 34,3127 02261 UP1
028350,001280: 34,3130 77772 VSL1
028351,001281: 34,3131 00001 STORE 0D
028352,001282: 34,3132 77616 RVQ
028353,001283:
|
|
Page 647 |
028355,001285: # ..... CDHMVR .....
028356,001286:
028357,001287: # SUBROUTINES USED
028358,001288: # VECSHIFT
028359,001289: # TIMETHET
028360,001290: # SHIFTR1
028361,001291:
028362,001292: 34,3133 77220 CDHMVR STQ VLOAD
028363,001293: 34,3134 03470 SUBEXIT
028364,001294: 34,3135 02311 RACT2
028365,001295: 34,3136 53406 PUSH UNIT
028366,001296: 34,3137 27544 STOVL UNVEC # UR SUB A
028367,001297: 34,3140 03522 RPASS2
028368,001298: 34,3141 50256 UNIT DOT
028369,001299: 34,3142 03544 UNVEC
028370,001300: 34,3143 72406 PUSH SL1
028371,001301: 34,3144 16732 STODL CSTH
028372,001302: 34,3145 65316 DSQ PDDL
028373,001303: 34,3146 06512 DP1/4TH
028374,001304: 34,3147 45302 SR2 DSU
028375,001305: 34,3150 72566 SQRT SL1
028376,001306: 34,3151 57515 PDVL VCOMP
028377,001307: 34,3152 77635 VXV
028378,001308: 34,3153 03522 RPASS2
028379,001309: 34,3154 65241 DOT PDDL
028380,001310: 34,3155 02261 UP1
028381,001311: 34,3156 45565 SIGN STADR
028382,001312: 34,3157 51047 STOVL SNTH
028383,001313: 34,3160 03522 RPASS2
028384,001314: 34,3161 45115 PDVL CALL
028385,001315: 34,3162 03530 VPASS2
028386,001316: 34,3163 46416 VECSHIFT
028387,001317: 34,3164 26744 STOVL VVEC
028388,001318: 34,3165 77614 CLEAR
028389,001319: 34,3166 03666 RVSW
028390,001320: 34,3167 36655 STCALL RVEC
028391,001321: 34,3170 24732 TIMETHET
028392,001322: 34,3171 53754 LXA,2 VSL*
028393,001323: 34,3172 02777 RTX2
028394,001324: 34,3173 57576 0,2
028395,001325: 34,3174 00023 STORE 18D
028396,001326: 34,3175 76441 DOT SL1R
028397,001327: 34,3176 03544 UNVEC
028398,001328: 34,3177 51515 PDVL ABVAL # 0D = V SUB PV
028399,001329: 34,3200 63257 SL* PDVL
028400,001330: 34,3201 57576 0,2
028401,001331: 34,3202 02311 RACT2
028402,001332: 34,3203 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
028403,001333: 34,3204 77625 DSU
|
|
Page 648 |
028405,001335: 34,3205 00003 02D
028406,001336: 34,3206 17600 STODL DIFFALT # DELTA H IN METERS B+29
028407,001337: 34,3207 02742 R1A
028408,001338: 34,3210 65301 NORM PDDL # 2 - R V**/MU 04D
028409,001339: 34,3211 00047 X1
028410,001340: 34,3212 00041 R1
028411,001341: 34,3213 77624 CALL
028412,001342: 34,3214 46426 SHIFTR1
028413,001343: 34,3215 56362 SR1R DDV
028414,001344: 34,3216 41457 SL* PUSH
028415,001345: 34,3217 20174 0 -5,1
028416,001346: 34,3220 65225 DSU PDDL # A SUB A B+29 04D
028417,001347: 34,3221 03600 DIFFALT
028418,001348: 34,3222 56302 SR2 DDV # A SUB P B+31
028419,001349: 34,3223 00005 04D # B+2
028420,001350: 34,3224 75406 PUSH SQRT # A SUB P/A SUB A 06D
028421,001351: 34,3225 41275 DMPR DMP
028422,001352: 34,3226 00007 06D
028423,001353: 34,3227 00001 00D
028424,001354: 34,3230 65272 SL3R PDDL # V SUB AV METERS/CS B+7 08D
028425,001355: 34,3231 00003 02D # R SUB A MAGNITUDE B+29
028426,001356: 34,3232 65301 NORM PDDL
028427,001357: 34,3233 00047 X1
028428,001358: 34,3234 02321 RTMU
028429,001359: 34,3235 56342 SR1 DDV # 2MU B+38
028430,001360: 34,3236 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
028431,001361: 34,3237 20174 0 -5,1
028432,001362: 34,3240 00005 04D # ASUBA B+29
028433,001363: 34,3241 65301 NORM PDDL
028434,001364: 34,3242 00050 X2
028435,001365: 34,3243 02321 RTMU
028436,001366: 34,3244 56342 SR1 DDV
028437,001367: 34,3245 44257 SL* BDSU
028438,001368: 34,3246 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
028439,001369: 34,3247 63525 PDDL DSQ # 10D
028440,001370: 34,3250 00011 08D
028441,001371: 34,3251 75421 BDSU SQRT
028442,001372: 34,3252 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
028443,001373: 34,3253 02261 UP1
028444,001374: 34,3254 03544 UNVEC
028445,001375: 34,3255 74256 UNIT VXSC
028446,001376: 34,3256 00013 10D
028447,001377: 34,3257 74315 PDVL VXSC
028448,001378: 34,3260 03544 UNVEC
028449,001379: 34,3261 00011 08D
028450,001380: 34,3262 76455 VAD VSL1
028451,001381: 34,3263 77626 STADR
028452,001382: 34,3264 74233 STORE VACT3
028453,001383: 34,3265 77651 VSU
028454,001384: 34,3266 03514 VACT2
|
|
Page 649 |
028456,001386: 34,3267 36275 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
028457,001387: 34,3270 03470 SUBEXIT
028458,001388:
|
|
Page 650 |
028460,001390: # ..... COMPTGO .....
028461,001391:
028462,001392: # SUBROUTINES USED
028463,001393: # CLOKTASK
028464,001394: # 2PHSCHNG
028465,001395:
028466,001396: 35,2432 BANK 35
028467,001397: 35,2000 SETLOC CSI/CDH
028468,001398: 35,2000 BANK
028469,001399:
028470,001400: 35,2432 E7,1465 EBANK= RTRN
028471,001401:
028472,001402: 35,2432 COUNT* $$/P3575
028473,001403:
028474,001404: 35,2432 00006 COMPTGO EXTEND
028475,001405: 35,2433 23465 QXCH RTRN
028476,001406: 35,2434 34755 CAF ZERO
028477,001407: 35,2435 55163 TS DISPDEX
028478,001408: 35,2436 34752 CAF BIT2
028479,001409: 35,2437 00004 INHINT
028480,001410: 35,2440 05203 TC WAITLIST
028481,001411: 35,2441 E7,1455 EBANK= WHICH
028482,001412: 35,2441 02717 74067 2CADR CLOKTASK
028483,001413:
028484,001414: 35,2443 05327 TC 2PHSCHNG
028485,001415: 35,2444 40036 OCT 40036
028486,001416: 35,2445 05024 OCT 05024
028487,001417: 35,2446 13000 OCT 13000
028488,001418: 35,2447 01465 TC RTRN
028489,001419:
End of include-file P32-P35,_P72-P75.agc. Parent file is MAIN.agc