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