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