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