Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, 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 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
027427,000002: ## Copyright: Public domain.
027428,000003: ## Filename: P32-P35,_P72-P75.agc
027429,000004: ## Purpose: A section of Luminary revision 210.
027430,000005: ## It is part of the source code for the Lunar Module's (LM)
027431,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
027432,000007: ## This file is intended to be a faithful transcription, except
027433,000008: ## that the code format has been changed to conform to the
027434,000009: ## requirements of the yaYUL assembler rather than the
027435,000010: ## original YUL assembler.
027436,000011: ## Reference: pp. 624-656
027437,000012: ## Assembler: yaYUL
027438,000013: ## Contact: Ron Burkey <info@sandroid.org>.
027439,000014: ## Website: www.ibiblio.org/apollo/index.html
027440,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
027441,000016: ## 2016-11-29 HG Transcribed
027442,000017: ## 2012-12-07 HG fix P00 -> POO
027443,000018: ## 2016-12-25 RSB Comment-text proofed using ProoferComments
027444,000019: ## and corrected errors found.
027445,000020: ## 2017-02-07 RSB Comment-text corrections identified while
027446,000021: ## proofing Artemis 72.
027447,000022: ## 2017-08-25 RSB Corrected a misprint (00 -> 0D) identified in ZERLINA 56.
027448,000023: ## 2021-05-30 ABS TTPIO -> TTPI0
027449,000024: ## K10RK2 -> K1ORK2
027450,000025:
|
|
Page 624 |
027452,000027: # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027453,000028:
027454,000029: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027455,000030: # MOD BY WHITE.P DATE 1JUNE67
027456,000031:
027457,000032: # PURPOSE
027458,000033:
027459,000034: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027460,000035: # CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027461,000036: # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027462,000037: # (CDH) MANEUVER.
027463,000038:
027464,000039: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027465,000040: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027466,000041:
027467,000042: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027468,000043: # ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027469,000044: # APPROVAL BY THE ASTRONAUT/GROUND.
027470,000045:
027471,000046: # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027472,000047: # THRUSTING PROGRAM.
027473,000048:
027474,000049: # ASSUMPTIONS
027475,000050:
027476,000051: # (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027477,000052: # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027478,000053: # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027479,000054: # POSITION.
027480,000055:
027481,000056: # (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027482,000057: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027483,000058: # COMPLETION OF THE PROGRAM.
027484,000059:
027485,000060: # (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027486,000061: # COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027487,000062: # COMPLETION OF THE PROGRAM.
027488,000063:
027489,000064: # (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027490,000065: # ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027491,000066:
027492,000067: # (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027493,000068: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027494,000069: # IGNITION.
027495,000070:
027496,000071: # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027497,000072: # MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027498,000073: # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027499,000074:
027500,000075: # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027501,000076: # PARALLEL TO THE PLANE OF THE CSM ORBIT. HOWEVER CREW
027502,000077:
|
|
Page 625 |
027504,000079: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027505,000080: # OUT-OF-PLANE CSI MANEUVER.
027506,000081:
027507,000082: # (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027508,000083: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027509,000084:
027510,000085: # (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027511,000086: # THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027512,000087: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027513,000088: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027514,000089:
027515,000090: # (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027516,000091: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027517,000092: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027518,000093: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027519,000094: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027520,000095: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027521,000096: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027522,000097: # THRUSTING MANEUVER.
027523,000098:
027524,000099: # (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027525,000100:
027526,000101: # (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027527,000102:
027528,000103: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027529,000104: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027530,000105: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027531,000106: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027532,000107:
027533,000108: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027534,000109: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027535,000110: # CYCLE.
027536,000111:
027537,000112: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027538,000113: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027539,000114: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027540,000115: # PROGRAM.
027541,000116:
027542,000117: # (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027543,000118: # A THRUSTING MANEUVER.
027544,000119:
027545,000120: # (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027546,000121:
027547,000122: # P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027548,000123:
027549,000124: # P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027550,000125:
027551,000126: # INPUT
027552,000127:
027553,000128: # (1) TCSI TIME OF THE CSI MANEUVER
027554,000129:
|
|
Page 626 |
027556,000131: # (2) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027557,000132: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027558,000133: # MANEUVER POINT
027559,000134: # (3) ELEV DESIRED LOS ANGLE AT TPI
027560,000135: # (4) TTPI TIME OF THE TPI MANEUVER
027561,000136: # OUTPUT
027562,000137:
027563,000138: # (1) TRKMKCNT NUMBER OF MARKS
027564,000139: # (2) TTOGO TIME TO GO
027565,000140: # (3) +MGA MIDDLE GIMBAL ANGLE
027566,000141: # (4) DIFFALT DELTA ALTITUDE AT CDH
027567,000142: # (5) T1TOT2 DELTA TIME FROM CSI TO CDH
027568,000143: # (6) T2TOT3 DELTA TIME FROM CDH TO TPI
027569,000144: # (7) DELVLVC DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027570,000145: # (8) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027571,000146:
027572,000147: # DOWNLINK
027573,000148:
027574,000149: # (1) TCSI TIME OF THE CSI MANEUVER
027575,000150: # (2) TCDH TIME OF THE CDH MANEUVER
027576,000151: # (3) TTPI TIME OF THE TPI MANEUVER
027577,000152: # (4) TIG TIME OF THE CSI MANEUVER
027578,000153: # (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027579,000154: # (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027580,000155: # (7) DIFFALT DELTA ALTITUDE AT CDH
027581,000156: # (8) NN NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027582,000157: # VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027583,000158: # MANEUVER POINT
027584,000159: # (9) ELEV DESIRED LOS ANGLE AT TPI
027585,000160:
027586,000161: # COMMUNICATION TO THRUSTING PROGRAMS
027587,000162:
027588,000163: # (1) TIG TIME OF THE CSI MANEUVER
027589,000164: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027590,000165: # INTO PLANE OF PASSIVE VEHICLE
027591,000166: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027592,000167: # INTO PLANE OF PASSIVE VEHICLE
027593,000168: # (4) DELVSIN DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027594,000169: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CSI
027595,000170: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027596,000171:
027597,000172: # SUBROUTINES USED
027598,000173:
027599,000174: # AVFLAGA
027600,000175: # AVFLAGP
027601,000176: # P20FLGON
027602,000177: # VARALARM
027603,000178: # BANKCALL
027604,000179: # GOFLASH
027605,000180: # GOTOPOOH
027606,000181:
|
|
Page 627 |
027608,000183: # VNPOOH
027609,000184: # GOFLASHR
027610,000185: # BLANKET
027611,000186: # ENDOFJOB
027612,000187: # SELECTMU
027613,000188: # ADVANCE
027614,000189: # INTINT
027615,000190: # PASSIVE
027616,000191: # CSI/A
027617,000192: # S32/33.1
027618,000193: # DISDVLVC
027619,000194: # VN1645
027620,000195:
027621,000196: 35,2034 BANK 35
027622,000197: 35,2000 SETLOC CSI/CDH
027623,000198: 35,2000 BANK
027624,000199: 35,2034 E7,1470 EBANK= SUBEXIT
027625,000200: 35,2034 COUNT* $$/P3272
027626,000201: 35,2034 02354 P32 TC AVFLAGA
027627,000202: 35,2035 02037 TC P32STRT
027628,000203: 35,2036 02361 P72 TC AVFLAGP
027629,000204: 35,2037 00006 P32STRT EXTEND
027630,000205: 35,2040 32425 DCA P30ZERO
027631,000206: 35,2041 53621 DXCH CENTANG
027632,000207: 35,2042 02060 TC P32/P72A
027633,000208: 35,2043 77734 ALMXITA SXA,2
027634,000209: 35,2044 03613 CSIALRM
027635,000210: 35,2045 77740 ALMXIT LXC,1
027636,000211: 35,2046 03613 CSIALRM
027637,000212: 35,2047 77533 SLOAD* EXIT
027638,000213: 35,2050 32430 ALARM/TB -1,1
027639,000214: 35,2051 30154 CA MPAC
027640,000215: 35,2052 05740 TC VARALARM
027641,000216: 35,2053 34777 CAF V05N09
027642,000217: 35,2054 04607 TC BANKCALL
027643,000218: 35,2055 20471 CADR GOFLASH
027644,000219: 35,2056 06001 TC GOTOPOOH
027645,000220: 35,2057 02053 TC -4
027646,000221: 35,2060 02366 P32/P72A TC P20FLGON
027647,000222: 35,2061 32424 CAF P30ZERO
027648,000223: 35,2062 55467 TS NN +1
027649,000224: 35,2063 55633 TS TCSI
027650,000225: 35,2064 55634 TS TCSI +1
027651,000226: 35,2065 32415 VN0611 CAF V06N11 # TCSI
027652,000227: 35,2066 03622 TC VNPOOH
027653,000228: 35,2067 06060 TC INTPRET
027654,000229: 35,2070 57545 DLOAD DCOMP
027655,000230: 35,2071 03634 TCSI
027656,000231: 35,2072 71240 BMN DLOAD
027657,000232: 35,2073 72120 VN0655
|
|
Page 628 |
027659,000234: 35,2074 01643 TETLEM
027660,000235: 35,2075 34041 STCALL TDEC1
027661,000236: 35,2076 46401 PRECSET
027662,000237: 35,2077 53775 VLOAD VSR*
027663,000238: 35,2100 03536 RACT3
027664,000239: 35,2101 57176 0,2
027665,000240: 35,2102 26655 STOVL RVEC
027666,000241: 35,2103 03544 VACT3
027667,000242: 35,2104 43057 VSR* SET
027668,000243: 35,2105 57176 0,2
027669,000244: 35,2106 03466 RVSW
027670,000245: 35,2107 16744 STODL VVEC
027671,000246: 35,2110 06513 DPPOSMAX
027672,000247: 35,2111 36756 STCALL RDESIRED
027673,000248: 35,2112 25557 TIMERAD
027674,000249: 35,2113 77615 DAD
027675,000250: 35,2114 03574 TDEC2
027676,000251: 35,2115 03634 STORE TCSI
027677,000252: 35,2116 77776 EXIT
027678,000253: 35,2117 02065 TC VN0611
027679,000254: 35,2120 77776 VN0655 EXIT
027680,000255: 35,2121 33634 CAF V06N55 # NN, ELEV(RGLOS)
027681,000256: 35,2122 04607 TC BANKCALL
027682,000257: 35,2123 20471 CADR GOFLASH
027683,000258: 35,2124 06001 TC GOTOPOOH
027684,000259: 35,2125 02127 TC +2
027685,000260: 35,2126 02121 TC -5
027686,000261: 35,2127 33633 CAF V06N37 # TTPI
027687,000262: 35,2130 03622 TC VNPOOH
027688,000263: 35,2131 06060 TC INTPRET
027689,000264: 35,2132 77745 DLOAD
027690,000265: 35,2133 03634 TCSI
027691,000266: 35,2134 37442 STCALL TIG
027692,000267: 35,2135 20000 SELECTMU
027693,000268: 35,2136 77624 P32/P72B CALL
027694,000269: 35,2137 71016 ADVANCE
027695,000270: 35,2140 77201 SETPD VLOAD
027696,000271: 35,2141 00001 0D
027697,000272: 35,2142 03506 VPASS1
027698,000273: 35,2143 65315 PDVL PDDL
027699,000274: 35,2144 03500 RPASS1
027700,000275: 35,2145 03634 TCSI
027701,000276: 35,2146 65325 PDDL PDDL
027702,000277: 35,2147 03636 TTPI
027703,000278: 35,2150 33642 TWOPI
027704,000279: 35,2151 45006 PUSH CALL
027705,000280: 35,2152 73404 INTINT
027706,000281: 35,2153 77624 CALL
027707,000282: 35,2154 46433 PASSIVE
027708,000283: 35,2155 77624 CALL
027709,000284:
|
|
Page 629 |
027711,000286: 35,2156 70113 CSI/A
027712,000287: 35,2157 43014 P32/P72C BON SET
027713,000288: 35,2160 01311 FINALFLG
027714,000289: 35,2161 72163 P32/P72D
027715,000290: 35,2162 00470 UPDATFLG
027716,000291: 35,2163 77745 P32/P72D DLOAD
027717,000292: 35,2164 02244 T1TOT2
027718,000293: 35,2165 02244 P32/P72E STORE T1TOT2
027719,000294: 35,2166 51025 DSU BPL
027720,000295: 35,2167 32427 60MIN
027721,000296: 35,2170 72165 P32/P72E
027722,000297: 35,2171 77745 DLOAD
027723,000298: 35,2172 02246 T2TOT3
027724,000299: 35,2173 02246 P32/P72F STORE T2TOT3
027725,000300: 35,2174 51025 DSU BPL
027726,000301: 35,2175 32427 60MIN
027727,000302: 35,2176 72173 P32/P72F
027728,000303: 35,2177 77776 EXIT
027729,000304: 35,2200 32417 CAF V06N75
027730,000305: 35,2201 03622 TC VNPOOH
027731,000306: 35,2202 06060 TC INTPRET
027732,000307: 35,2203 45175 VLOAD CALL
027733,000308: 35,2204 02260 DELVEET1
027734,000309: 35,2205 71100 S32/33.1
027735,000310: 35,2206 26260 STOVL DELVEET1
027736,000311: 35,2207 02302 RACT2
027737,000312: 35,2210 26274 STOVL RACT1
027738,000313: 35,2211 02266 DELVEET2
027739,000314: 35,2212 45170 AXT,1 CALL
027740,000315: 35,2213 01522 VN 0682
027741,000316: 35,2214 72375 DISDVLVC
027742,000317: 35,2215 77745 DLOAD
027743,000318: 35,2216 03636 TTPI
027744,000319: 35,2217 37640 STCALL TTPI0
027745,000320: 35,2220 73516 VN1645
027746,000321: 35,2221 77650 GOTO
027747,000322: 35,2222 72136 P32/P72B
027748,000323:
|
|
Page 630 |
027750,000325: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027751,000326:
027752,000327: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027753,000328: # MOD BY WHITE.P DATE 1JUNE67
027754,000329: # PURPOSE
027755,000330:
027756,000331: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027757,000332: # ALTITUDE MANEUVER (CDH).
027758,000333:
027759,000334: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027760,000335: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027761,000336:
027762,000337: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027763,000338: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027764,000339: # ASTRONAUT/GROUND.
027765,000340:
027766,000341: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027767,000342: # THRUSTING PROGRAM.
027768,000343:
027769,000344: # ASSUMPTIONS
027770,000345:
027771,000346: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027772,000347: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027773,000348: # THERFORE -
027774,000349:
027775,000350: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027776,000351: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027777,000352: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027778,000353: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027779,000354:
027780,000355: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027781,000356: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027782,000357:
027783,000358: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027784,000359: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027785,000360:
027786,000361: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027787,000362: # ORBITS WAS MINMIZED.
027788,000363:
027789,000364: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027790,000365: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027791,000366:
027792,000367: # POSITION AT CSI IGNITION.
027793,000368:
027794,000369: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027795,000370: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027796,000371: # ORBIT OR 85 NM FOR EARTH ORBIT.
027797,000372:
027798,000373: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027799,000374: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
027800,000375:
|
|
Page 631 |
027802,000377: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027803,000378: # IN AN OUT-OF-PLANE MANEUVER.
027804,000379:
027805,000380: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027806,000381: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027807,000382:
027808,000383: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027809,000384: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027810,000385: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027811,000386: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027812,000387:
027813,000388: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027814,000389: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027815,000390: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027816,000391: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027817,000392: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027818,000393: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027819,000394: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027820,000395: # THRUSTING MANEUVER.
027821,000396:
027822,000397: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027823,000398:
027824,000399: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027825,000400:
027826,000401: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027827,000402: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027828,000403: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027829,000404: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027830,000405:
027831,000406: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027832,000407: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027833,000408: # CYCLE.
027834,000409:
027835,000410: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027836,000411: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027837,000412: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027838,000413: # PROGRAM.
027839,000414:
027840,000415: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027841,000416: # A THRUSTING MANEUVER.
027842,000417:
027843,000418: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027844,000419:
027845,000420: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
027846,000421:
027847,000422: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
027848,000423:
027849,000424: # INPUT
027850,000425:
027851,000426: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
027852,000427:
|
|
Page 632 |
027854,000429: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
027855,000430: # (3) TCDH TIME OF THE CDH MANEUVER
027856,000431:
027857,000432: # OUTPUT
027858,000433:
027859,000434: # (1) TRKMKCNT NUMBER OF MARKS
027860,000435: # (2) TTOGO TIME TO GO
027861,000436: # (3) +MGA MIDDLE GIMBAL ANGLE
027862,000437: # (4) DIFFALT DELTA ALTITUDE AT CDH
027863,000438: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
027864,000439: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
027865,000440: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027866,000441:
027867,000442: # DOWNLINK
027868,000443:
027869,000444: # (1) TCDH TIME OF THE CDH MANEUVER
027870,000445: # (2) TTPI TIME OF THE TPI MANEUVER
027871,000446: # (3) TIG TIME OF THE CDH MANEUVER
027872,000447: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027873,000448: # (5) DIFFALT DELTA ALTITUDE AT CDH
027874,000449: # (6) ELEV DESIRED LOS ANGLE AT TPI
027875,000450: # COMMUNICATION TO THRUSTING PROGRAMS
027876,000451:
027877,000452: # (1) TIG TIME OF THE CDH MANEUVER
027878,000453: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027879,000454: # INTO PLANE OF PASSIVE VEHICLE
027880,000455: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027881,000456: # INTO PLANE OF PASSIVE VEHICLE
027882,000457: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027883,000458: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
027884,000459: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027885,000460:
027886,000461: # SUBROUTINES USED
027887,000462:
027888,000463: # AVFLAGA
027889,000464: # AVFLAGP
027890,000465: # P20FLGON
027891,000466: # VNPOOH
027892,000467: # SELECTMU
027893,000468: # ADVANCE
027894,000469: # CDHMVR
027895,000470: # INTINT3P
027896,000471: # ACTIVE
027897,000472: # PASSIVE
027898,000473: # S33/34.1
027899,000474: # ALARM
027900,000475: # BANKCALL
027901,000476: # GOFLASH
027902,000477: # GOTOPOOH
027903,000478: # S32/33.1
027904,000479:
|
|
Page 633 |
027906,000481: # VN1645
027907,000482:
027908,000483: 35,2223 COUNT* $$/P3373
027909,000484: 35,2223 02354 P33 TC AVFLAGA
027910,000485: 35,2224 02226 TC P33/P73A
027911,000486: 35,2225 02361 P73 TC AVFLAGP
027912,000487: 35,2226 02366 P33/P73A TC P20FLGON
027913,000488: 35,2227 32416 CAF V06N13 # TCDH
027914,000489: 35,2230 03622 TC VNPOOH
027915,000490: 35,2231 06060 TC INTPRET
027916,000491: 35,2232 77745 DLOAD
027917,000492: 35,2233 03640 TTPI0
027918,000493: 35,2234 17636 STODL TTPI
027919,000494: 35,2235 01775 TCDH
027920,000495: 35,2236 37442 STCALL TIG
027921,000496: 35,2237 20000 SELECTMU
027922,000497: 35,2240 77624 P33/P73B CALL
027923,000498: 35,2241 71016 ADVANCE
027924,000499: 35,2242 77624 CALL
027925,000500: 35,2243 71133 CDHMVR
027926,000501: 35,2244 77201 SETPD VLOAD
027927,000502: 35,2245 00001 0D
027928,000503: 35,2246 03544 VACT3
027929,000504: 35,2247 45115 PDVL CALL
027930,000505: 35,2250 02302 RACT2
027931,000506: 35,2251 71071 INTINT3P
027932,000507: 35,2252 77624 CALL
027933,000508: 35,2253 46423 ACTIVE
027934,000509: 35,2254 77201 SETPD VLOAD
027935,000510: 35,2255 00001 0D
027936,000511: 35,2256 03530 VPASS2
027937,000512: 35,2257 45115 PDVL CALL
027938,000513: 35,2260 03522 RPASS2
027939,000514: 35,2261 71071 INTINT3P
027940,000515: 35,2262 77624 CALL
027941,000516: 35,2263 46433 PASSIVE
027942,000517: 35,2264 43145 DLOAD SET
027943,000518: 35,2265 32425 P30ZERO
027944,000519: 35,2266 03460 ITSWICH
027945,000520: 35,2267 36310 STCALL NOMTPI
027946,000521: 35,2270 72702 S33/34.1
027947,000522: 35,2271 77454 BZE EXIT
027948,000523: 35,2272 72307 P33/P73C
027949,000524: 35,2273 05571 TC ALARM
027950,000525: 35,2274 00611 OCT 611
027951,000526: 35,2275 34777 CAF V05N09
027952,000527: 35,2276 04607 TC BANKCALL
027953,000528: 35,2277 20471 CADR GOFLASH
027954,000529: 35,2300 06001 TC GOTOPOOH
027955,000530: 35,2301 02303 TC +2
027956,000531:
|
|
Page 634 |
027958,000533: 35,2302 02226 TC P33/P73A
027959,000534: 35,2303 06060 TC INTPRET
027960,000535: 35,2304 77745 DLOAD
027961,000536: 35,2305 32425 P30ZERO
027962,000537: 35,2306 02310 STORE NOMTPI
027963,000538: 35,2307 43014 P33/P73C BON SET
027964,000539: 35,2310 01311 FINALFLG
027965,000540: 35,2311 72313 P33/P73D
027966,000541: 35,2312 00470 UPDATFLG
027967,000542: 35,2313 43345 P33/P73D DLOAD DAD
027968,000543: 35,2314 02310 NOMTPI
027969,000544: 35,2315 03636 TTPI
027970,000545: 35,2316 03636 STORE TTPI
027971,000546: 35,2317 77625 DSU
027972,000547: 35,2320 01775 TCDH
027973,000548: 35,2321 51025 P33/P73E DSU BPL
027974,000549: 35,2322 32427 60MIN
027975,000550: 35,2323 72321 P33/P73E
027976,000551: 35,2324 77615 DAD
027977,000552: 35,2325 32427 60MIN
027978,000553: 35,2326 16244 STODL T1TOT2
027979,000554: 35,2327 03636 TTPI
027980,000555: 35,2330 41425 DSU PUSH
027981,000556: 35,2331 03640 TTPI0
027982,000557: 35,2332 45246 P33/P73F ABS DSU
027983,000558: 35,2333 32427 60MIN
027984,000559: 35,2334 43244 BPL DAD
027985,000560: 35,2335 72332 P33/P73F
027986,000561: 35,2336 32427 60MIN
027987,000562: 35,2337 45565 SIGN STADR
027988,000563: 35,2340 75531 STORE T2TOT3
027989,000564: 35,2341 77776 EXIT
027990,000565: 35,2342 32417 CAF V06N75
027991,000566: 35,2343 03622 TC VNPOOH
027992,000567: 35,2344 06060 TC INTPRET
027993,000568: 35,2345 45175 VLOAD CALL
027994,000569: 35,2346 02266 DELVEET2
027995,000570: 35,2347 71100 S32/33.1
027996,000571: 35,2350 36266 STCALL DELVEET2
027997,000572: 35,2351 73516 VN1645
027998,000573: 35,2352 77650 GOTO
027999,000574: 35,2353 72240 P33/P73B
028000,000575:
|
|
Page 635 |
028002,000577: # ..... AVFLAGA/P .....
028003,000578:
028004,000579: # SUBROUTINES USED
028005,000580:
028006,000581: # UPFLAG
028007,000582: # DOWNFLAG
028008,000583:
028009,000584: 35,2354 00006 AVFLAGA EXTEND # AVFLAG = LEM
028010,000585: 35,2355 23470 QXCH SUBEXIT
028011,000586: 35,2356 05506 TC UPFLAG
028012,000587: 35,2357 00050 ADRES AVFLAG
028013,000588: 35,2360 01470 TC SUBEXIT
028014,000589: 35,2361 00006 AVFLAGP EXTEND # AVFLAG = CSM
028015,000590: 35,2362 23470 QXCH SUBEXIT
028016,000591: 35,2363 05520 TC DOWNFLAG
028017,000592: 35,2364 00050 ADRES AVFLAG
028018,000593: 35,2365 01470 TC SUBEXIT
028019,000594: 35,2366 00006 P20FLGON EXTEND
028020,000595: 35,2367 23470 QXCH SUBEXIT
028021,000596: 35,2370 05506 TC UPFLAG
028022,000597: 35,2371 00027 ADRES UPDATFLG # SET UPDATFLG
028023,000598: 35,2372 05506 TC UPFLAG
028024,000599: 35,2373 00031 ADRES TRACKFLG # SET TRACKFLG
028025,000600: 35,2374 01470 TC SUBEXIT
028026,000601:
|
|
Page 636 |
028028,000603: # ..... DISDVLVC .....
028029,000604:
028030,000605: # SUBROUTINES USED
028031,000606:
028032,000607: # S32/33.X
028033,000608: # VNPOOH
028034,000609:
028035,000610: 35,2375 03434 DISDVLVC STORE DELVLVC
028036,000611: 35,2376 45020 STQ CALL
028037,000612: 35,2377 03463 NORMEX
028038,000613: 35,2400 71120 S32/33.X
028039,000614: 35,2401 64375 VLOAD MXV
028040,000615: 35,2402 03434 DELVLVC
028041,000616: 35,2403 00001 0D
028042,000617: 35,2404 66172 VSL1 SXA,1
028043,000618: 35,2405 03615 VERBNOUN
028044,000619: 35,2406 03434 STORE DELVLVC
028045,000620: 35,2407 77776 EXIT
028046,000621: 35,2410 31615 CA VERBNOUN
028047,000622: 35,2411 03622 TC VNPOOH
028048,000623: 35,2412 06060 TC INTPRET
028049,000624: 35,2413 77650 GOTO
028050,000625: 35,2414 03463 NORMEX
028051,000626:
|
|
Page 637 |
028053,000628: # ..... CONSTANTS .....
028054,000629:
028055,000630: 35,2415 01413 V06N11 VN 0611
028056,000631: 35,2416 01415 V06N13 VN 0613
028057,000632: 35,2417 01513 V06N75 VN 0675
028058,000633: 35,2420 77776 62460 SN359+ 2DEC -.000086601
028059,000634: 35,2422 17777 37776 CS359+ 2DEC +.499999992
028060,000635: 35,2424 00000 00000 P30ZERO 2DEC 0 B-28
028061,000636: 35,2426 00025 37100 60MIN 2DEC 360000 B-28
028062,000637:
028063,000638: 35,2430 00600 ALARM/TB OCT 00600 # NO 1
028064,000639: 35,2431 00601 OCT 00601 # 2
028065,000640: 35,2432 00602 OCT 00602 # 3
028066,000641: 35,2433 00603 OCT 00603 # 4
028067,000642: 35,2434 00604 OCT 00604 # 5
028068,000643: 35,2435 00605 OCT 00605 # 6
028069,000644: 35,2436 00606 OCT 00606 # 7
028070,000645:
|
|
Page 638 |
028072,000647: # ..... CSI/A .....
028073,000648:
028074,000649: # SUBROUTINES USED
028075,000650:
028076,000651: # VECSHIFT
028077,000652: # TIMETHET
028078,000653: # PERIAPO
028079,000654: # SHIFTR1
028080,000655: # INTINT2C
028081,000656: # CDHMVR
028082,000657: # PERIAPO1
028083,000658: # INTINT
028084,000659: # ACTIVE
028085,000660:
028086,000661: 34,2057 BANK 34
028087,000662: 34,2000 SETLOC CSI/CDH1
028088,000663: 34,2000 BANK
028089,000664: 34,2057 E7,1470 EBANK= SUBEXIT
028090,000665: 34,2057 COUNT* $$/CSI
028091,000666: 34,2057 00000 00020 LOOPMX 2DEC 16 B-28
028092,000667: 34,2061 00003 34661 INITST 2DEC .03048 B-7 # INITIAL DELDV = 10 FPS
028093,000668: 34,2063 00606 04467 DVMAX1 2DEC 3.0480 B-7 # MAXIMUM DV1 = 1000 FPS
028094,000669: 34,2065 00601 33216 DVMAX2 2DEC 3.014472 B-7 # 989 FPS
028095,000670: 34,2067 10000 00000 1DPB2 2DEC 1.0 B-2
028096,000671: 34,2071 00000 00001 1DPB28 2DEC 1 B-28
028097,000672: 34,2073 00004 31566 PMINE 2DEC 157420 B-29 # 85 NM - MUST BE 8 WORDS BEFORE PMINM
028098,000673: 34,2075 00000 01177 EPSILN1 2DEC .0003048 B-7 # .1 FPS
028099,000674: 34,2077 00002 27311 NICKELDP 2DEC .021336 B-7 # 7 FPS (CHANGED FROM .05 FPS)
028100,000675: 34,2101 77754 57611 FIFPSDP 2DEC -.152400 B-7 # 50 FPS
028101,000676: 34,2103 00000 12326 PMINM 2DEC 10668 B-29 # 35000 FT - MUST BE 8 WORDS AFTER PMINE
028102,000677: 34,2105 00116 00730 DELMAX1 2DEC .6096000 B-7 # 200 FPS
028103,000678: 34,2107 00000 06433 ONETHTH 2DEC .0001 B-3
028104,000679: 34,2111 00003 25140 TMIN 2DEC 60000 B-28 # 10 MIN
028105,000680:
028106,000681: 34,2113 43014 CSI/A CLEAR SET # INITIALIZE INDICATORS
028107,000682: 34,2114 03260 S32.1F1 # DVT1 HAS EXCEEDED MAX INDICATOR
028108,000683: 34,2115 03061 S32.1F2 # FIRST PASS FOR NEWTON ITERATION INDICATR
028109,000684:
|
|
Page 639 |
028111,000686: 34,2116 43014 CLEAR SET
028112,000687: 34,2117 03262 S32.1F3A # 00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028113,000688: 34,2120 03063 S32.1F3B # 10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
028114,000689: 34,2121 77745 DLOAD
028115,000690: 34,2122 32425 P30ZERO
028116,000691: 34,2123 03606 STORE LOOPCT
028117,000692: 34,2124 03614 STORE CSIALRM
028118,000693: 34,2125 77201 CSI/B SETPD VLOAD
028119,000694: 34,2126 00001 0D
028120,000695: 34,2127 02274 RACT1
028121,000696: 34,2130 41446 ABVAL PUSH # RA1 B29 PL02D
028122,000697: 34,2131 70501 NORM SR1
028123,000698: 34,2132 00050 X2 # B29-N2+ B1 PL04D
028124,000699: 34,2133 51515 PDVL ABVAL
028125,000700: 34,2134 03552 RPASS3
028126,000701: 34,2135 55301 NORM BDDV # RA1/RP3 B1 PL02D
028127,000702: 34,2136 00047 X1
028128,000703: 34,2137 53664 XSU,2 SR* # B2
028129,000704: 34,2140 00046 X1
028130,000705: 34,2141 57175 1,2
028131,000706: 34,2142 41215 DAD DMP # (1+(RA1/RP3))RA1 B29+B2=B31 PL00D
028132,000707: 34,2143 30070 1DPB2
028133,000708: 34,2144 65301 NORM PDDL # PL02D
028134,000709: 34,2145 00047 X1
028135,000710: 34,2146 02312 RTMU
028136,000711: 34,2147 56342 SR1 DDV # B38-B31= B7 PL00D
028137,000712: 34,2150 75457 SL* SQRT # B7
028138,000713: 34,2151 20172 0 -7,1
028139,000714: 34,2152 53515 PDVL UNIT # PL02D
028140,000715: 34,2153 02274 RACT1
028141,000716: 34,2154 47315 PDVL VXV
028142,000717: 34,2155 02252 UP1
028143,000718: 34,2156 77656 UNIT # UNIT(URP1 X UVP1 X URA1) = UH1
028144,000719: 34,2157 72441 DOT SL1 # VA1 . UH1 B7
028145,000720: 34,2160 03472 VACT1
028146,000721: 34,2161 45421 BDSU STADR # PL00D
028147,000722: 34,2162 60203 STODL DELVCSI
028148,000723: 34,2163 30062 INITST # 10 FPS
028149,000724: 34,2164 03612 STORE DELDV
028150,000725: 34,2165 43345 CSI/B1 DLOAD DAD # IF LOOPCT = 16
028151,000726: 34,2166 03606 LOOPCT
028152,000727: 34,2167 30072 1DPB28
028153,000728: 34,2170 03606 STORE LOOPCT
028154,000729: 34,2171 77025 DSU AXT,2
028155,000730: 34,2172 30060 LOOPMX
028156,000731: 34,2173 00006 6
028157,000732: 34,2174 77644 BPL
028158,000733: 34,2175 70776 SCNDSOL
028159,000734: 34,2176 77601 CSI/B2 SETPD
028160,000735: 34,2177 00001 0D
028161,000736:
|
|
Page 640 |
028163,000738: 34,2200 51545 DLOAD ABS
028164,000739: 34,2201 03574 DELVCSI
028165,000740: 34,2202 50025 DSU BMN
028166,000741: 34,2203 30064 DVMAX1
028167,000742: 34,2204 70224 CSI/B23
028168,000743: 34,2205 43174 AXT,2 BON
028169,000744: 34,2206 00007 7
028170,000745: 34,2207 03300 S32.1F1
028171,000746: 34,2210 70776 SCNDSOL
028172,000747: 34,2211 43014 BOFF BON
028173,000748: 34,2212 03342 S32.1F3A
028174,000749: 34,2213 70216 CSI/B22 # FLAG 3 NEQ 3
028175,000750: 34,2214 03303 S32.1F3B
028176,000751: 34,2215 70776 SCNDSOL
028177,000752: 34,2216 71214 CSI/B22 SET DLOAD
028178,000753: 34,2217 03060 S32.1F1
028179,000754: 34,2220 30066 DVMAX2
028180,000755: 34,2221 77765 SIGN
028181,000756: 34,2222 03574 DELVCSI
028182,000757: 34,2223 03574 STORE DELVCSI
028183,000758: 34,2224 41575 CSI/B23 VLOAD PUSH
028184,000759: 34,2225 02274 RACT1
028185,000760: 34,2226 63256 UNIT PDVL
028186,000761: 34,2227 02252 UP1
028187,000762: 34,2230 53435 VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
028188,000763: 34,2231 76561 VXSC VSL1
028189,000764: 34,2232 03574 DELVCSI
028190,000765: 34,2233 02260 STORE DELVEET1
028191,000766: 34,2234 40055 VAD BOV
028192,000767: 34,2235 03472 VACT1
028193,000768: 34,2236 70237 CSI/B23D
028194,000769: 34,2237 37566 CSI/B23D STCALL VACT4
028195,000770: 34,2240 46437 VECSHIFT
028196,000771: 34,2241 26744 STOVL VVEC
028197,000772: 34,2242 77614 SET
028198,000773: 34,2243 03466 RVSW
028199,000774: 34,2244 26655 STOVL RVEC
028200,000775: 34,2245 32421 SN359+
028201,000776: 34,2246 36730 STCALL SNTH # ALSO CSTH
028202,000777: 34,2247 24732 TIMETHET
028203,000778: 34,2250 72142 SR1 LXA,1
028204,000779: 34,2251 02776 RTX1
028205,000780: 34,2252 37604 STCALL HAFPA1
028206,000781: 34,2253 46347 PERIAPO
028207,000782: 34,2254 77624 CALL
028208,000783: 34,2255 46447 SHIFTR1
028209,000784: 34,2256 17602 STODL POSTCSI
028210,000785: 34,2257 03621 CENTANG
028211,000786: 34,2260 52054 BZE GOTO
028212,000787: 34,2261 70263 +2
028213,000788:
|
|
Page 641 |
028215,000790: 34,2262 70372 CIRCL
028216,000791: 34,2263 77745 DLOAD
028217,000792: 34,2264 02752 ECC
028218,000793: 34,2265 50025 DSU BMN
028219,000794: 34,2266 30110 ONETHTH
028220,000795: 34,2267 70372 CIRCL
028221,000796: 34,2270 45145 DLOAD CALL
028222,000797: 34,2271 00041 R1
028223,000798: 34,2272 46447 SHIFTR1
028224,000799: 34,2273 60201 SETPD NORM
028225,000800: 34,2274 00003 2D
028226,000801: 34,2275 00047 X1
028227,000802: 34,2276 50315 PDVL DOT # PL04D
028228,000803: 34,2277 02274 RACT1
028229,000804: 34,2300 03566 VACT4
028230,000805: 34,2301 56246 ABS DDV
028231,000806: 34,2302 00003 02D # (/RDOTV/)/R1 B36-B29= B7
028232,000807: 34,2303 45257 SL* DSU
028233,000808: 34,2304 20201 0,1
028234,000809: 34,2305 30100 NICKELDP
028235,000810: 34,2306 71240 BMN DLOAD
028236,000811: 34,2307 70372 CIRCL
028237,000812: 34,2310 02740 P
028238,000813: 34,2311 45312 SL2 DSU
028239,000814: 34,2312 30070 1DPB2
028240,000815: 34,2313 14017 STODL 14D
028241,000816: 34,2314 02310 RTSR1/MU
028242,000817: 34,2315 56342 SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
028243,000818: 34,2316 41325 PDDL DMP
028244,000819: 34,2317 02740 P
028245,000820: 34,2320 00041 R1
028246,000821: 34,2321 77624 CALL
028247,000822: 34,2322 46447 SHIFTR1
028248,000823: 34,2323 72412 SL4 SL1
028249,000824: 34,2324 41366 SQRT DMP # ((P/MU)**.5)/R1 B14+B-45 = B-31 PL02D
028250,000825: 34,2325 52414 BOFF SL3
028251,000826: 34,2326 04343 CMOONFLG
028252,000827: 34,2327 70330 CSI/B3
028253,000828: 34,2330 50315 CSI/B3 PDVL DOT
028254,000829: 34,2331 02274 RACT1
028255,000830: 34,2332 03566 VACT4
028256,000831: 34,2333 03617 STORE RDOTV
028257,000832: 34,2334 77646 ABS
028258,000833: 34,2335 41301 NORM DMP # ((P/MU)**.5)RDOTV/R1 PL02D
028259,000834: 34,2336 00050 X2
028260,000835: 34,2337 53660 XSU,1 SL* # B-31+B36-B3 = B2
028261,000836: 34,2340 00047 X2
028262,000837: 34,2341 20204 3,1
028263,000838: 34,2342 14015 STODL 12D
028264,000839: 34,2343 32425 P30ZERO
028265,000840:
|
|
Page 642 |
028267,000842: 34,2344 00021 STORE 16D
028268,000843: 34,2345 53575 VLOAD UNIT
028269,000844: 34,2346 00015 12D
028270,000845: 34,2347 26730 STOVL SNTH # ALSO STORES CSTH AND 0
028271,000846: 34,2350 02274 RACT1
028272,000847: 34,2351 75315 PDVL SIGN
028273,000848: 34,2352 03566 VACT4
028274,000849: 34,2353 03617 RDOTV
028275,000850: 34,2354 45076 VCOMP CALL
028276,000851: 34,2355 46437 VECSHIFT
028277,000852: 34,2356 26744 STOVL VVEC
028278,000853: 34,2357 77614 SET
028279,000854: 34,2360 03466 RVSW
028280,000855: 34,2361 36655 STCALL RVEC
028281,000856: 34,2362 24732 TIMETHET
028282,000857: 34,2363 51125 PDDL BPL
028283,000858: 34,2364 03617 RDOTV
028284,000859: 34,2365 70376 NTP/2
028285,000860: 34,2366 45345 DLOAD DSU
028286,000861: 34,2367 03604 HAFPA1
028287,000862: 34,2370 52006 PUSH GOTO
028288,000863: 34,2371 70376 NTP/2
028289,000864: 34,2372 71201 CIRCL SETPD DLOAD
028290,000865: 34,2373 00001 00D
028291,000866: 34,2374 32425 P30ZERO
028292,000867: 34,2375 77606 PUSH
028293,000868: 34,2376 41345 NTP/2 DLOAD DMP
028294,000869: 34,2377 03467 NN
028295,000870: 34,2400 03604 HAFPA1
028296,000871: 34,2401 45261 SL DSU
028297,000872: 34,2402 20217 14D
028298,000873: 34,2403 77615 DAD
028299,000874: 34,2404 03634 TCSI
028300,000875: 34,2405 01775 STORE TCDH
028301,000876: 34,2406 77021 BDSU AXT,2
028302,000877: 34,2407 03636 TTPI
028303,000878: 34,2410 00005 5D
028304,000879: 34,2411 40240 BMN SETPD
028305,000880: 34,2412 70776 SCNDSOL
028306,000881: 34,2413 00001 0D
028307,000882: 34,2414 63375 VLOAD PDVL
028308,000883: 34,2415 03566 VACT4
028309,000884: 34,2416 02274 RACT1
028310,000885: 34,2417 77624 CALL
028311,000886: 34,2420 71062 INTINT2C
028312,000887: 34,2421 26302 STOVL RACT2
028313,000888: 34,2422 00007 VATT
028314,000889: 34,2423 27514 STOVL VACT2
028315,000890: 34,2424 03506 VPASS1
028316,000891: 34,2425 63201 SETPD PDVL
028317,000892:
|
|
Page 643 |
028319,000894: 34,2426 00001 0D
028320,000895: 34,2427 03500 RPASS1
028321,000896: 34,2430 77624 CALL
028322,000897: 34,2431 71062 INTINT2C
028323,000898: 34,2432 27522 STOVL RPASS2
028324,000899: 34,2433 00007 VATT
028325,000900: 34,2434 37530 STCALL VPASS2
028326,000901: 34,2435 71133 CDHMVR
028327,000902: 34,2436 40375 VLOAD SETPD
028328,000903: 34,2437 02302 RACT2
028329,000904: 34,2440 00001 0D
028330,000905: 34,2441 45115 PDVL CALL
028331,000906: 34,2442 03544 VACT3
028332,000907: 34,2443 46337 PERIAPO1
028333,000908: 34,2444 77624 CALL
028334,000909: 34,2445 46447 SHIFTR1
028335,000910: 34,2446 27604 STOVL POSTCDH
028336,000911: 34,2447 03544 VACT3
028337,000912: 34,2450 63201 SETPD PDVL
028338,000913: 34,2451 00001 0D
028339,000914: 34,2452 02302 RACT2
028340,000915: 34,2453 65325 PDDL PDDL
028341,000916: 34,2454 01775 TCDH
028342,000917: 34,2455 03636 TTPI
028343,000918: 34,2456 41525 PDDL PUSH
028344,000919: 34,2457 33642 TWOPI
028345,000920: 34,2460 77624 CALL
028346,000921: 34,2461 73404 INTINT
028347,000922: 34,2462 77624 CALL
028348,000923: 34,2463 46423 ACTIVE
028349,000924: 34,2464 77745 DLOAD
028350,000925: 34,2465 02250 ELEV
028351,000926: 34,2466 73401 SETPD SINE
028352,000927: 34,2467 00007 6D
028353,000928: 34,2470 53515 PDVL UNIT
028354,000929: 34,2471 03536 RACT3
028355,000930: 34,2472 00001 STORE 00D # URA3 AT 00D
028356,000931: 34,2473 47315 PDVL VXV # PL14D,PL08D
028357,000932: 34,2474 02252 UP1
028358,000933: 34,2475 77656 UNIT
028359,000934: 34,2476 71525 PDDL COSINE # UNIT(URA3XUVA3XURA3) = UH3 B1 PL14D
028360,000935: 34,2477 02250 ELEV
028361,000936: 34,2500 45561 VXSC STADR # (COSLOS)(UH3) B2 PL08D
028362,000937: 34,2501 77754 STORE 18D # PLUS
028363,000938: 34,2502 74345 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
028364,000939: 34,2503 76455 VAD VSL1
028365,000940: 34,2504 00023 18D # B1
028366,000941: 34,2505 50206 PUSH DOT # PL06D
028367,000942: 34,2506 03536 RACT3 # (U . RA3) = TEMP1 B1 +B29 = B30
028368,000943: 34,2507 41552 SL1 PUSH # B29 PL08D
028369,000944:
|
|
Page 644 |
028371,000946: 34,2510 72316 DSQ TLOAD # TEMP1**2 B58
028372,000947: 34,2511 00155 MPAC
028373,000948: 34,2512 50315 PDVL DOT # PL11D
028374,000949: 34,2513 03536 RACT3
028375,000950: 34,2514 03536 RACT3
028376,000951: 34,2515 57551 TLOAD DCOMP # RA3.RA3
028377,000952: 34,2516 00155 MPAC
028378,000953: 34,2517 50315 PDVL DOT # RP3.RP3 B58 PL14D
028379,000954: 34,2520 03552 RPASS3
028380,000955: 34,2521 03552 RPASS3 # PL11D
028381,000956: 34,2522 76371 TAD TAD # TEMP1**2+RA3.RA3+RP3.RP3=TEMP2 PL08D
028382,000957: 34,2523 71244 BPL DLOAD
028383,000958: 34,2524 70542 K1ORK2
028384,000959: 34,2525 03606 LOOPCT
028385,000960: 34,2526 77025 DSU AXT,2
028386,000961: 34,2527 30072 1DPB28
028387,000962: 34,2530 00001 1D
028388,000963: 34,2531 77654 BZE
028389,000964: 34,2532 72043 ALMXITA
028390,000965: 34,2533 70545 DLOAD SR1
028391,000966: 34,2534 03612 DELDV
028392,000967: 34,2535 03612 STORE DELDV
028393,000968: 34,2536 77621 BDSU
028394,000969: 34,2537 03576 DVPREV
028395,000970: 34,2540 37574 STCALL DELVCSI
028396,000971: 34,2541 70165 CSI/B1
028397,000972: 34,2542 41566 K1ORK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
028398,000973: 34,2543 45276 DCOMP DSU
028399,000974: 34,2544 00007 06D # -TEMP1-TEMP3 =K2 AT 10D
028400,000975: 34,2545 14013 STODL 10D # PL08D
028401,000976: 34,2546 45425 DSU STADR # PL06D
028402,000977: 34,2547 77762 STORE 12D # -TEMP1+TEMP3 =K1 AT 12D
028403,000978: 34,2550 77646 ABS
028404,000979: 34,2551 14017 STODL 14D
028405,000980: 34,2552 00013 10D
028406,000981: 34,2553 45246 ABS DSU
028407,000982: 34,2554 00017 14D
028408,000983: 34,2555 71240 BMN DLOAD
028409,000984: 34,2556 70561 K2.
028410,000985: 34,2557 00015 12D
028411,000986: 34,2560 00013 STORE 10D # K=K1
028412,000987: 34,2561 77745 K2. DLOAD
028413,000988: 34,2562 00013 10D
028414,000989: 34,2563 76561 VXSC VSL1
028415,000990: 34,2564 53455 VAD UNIT # V=RA3+KU UNIT B1
028416,000991: 34,2565 03536 RACT3
028417,000992: 34,2566 53515 PDVL UNIT
028418,000993: 34,2567 03552 RPASS3 # PL06D
028419,000994: 34,2570 53515 PDVL UNIT
028420,000995: 34,2571 03560 VPASS3 # PL12D
028421,000996:
|
|
Page 645 |
028423,000998: 34,2572 63235 VXV PDVL # UVP3 X URP3 PL18D
028424,000999: 34,2573 00007 06D
028425,001000: 34,2574 00007 06D
028426,001001: 34,2575 50235 VXV DOT
028427,001002: 34,2576 00001 00D
028428,001003: 34,2577 77626 STADR # PL12D
028429,001004: 34,2600 53762 STOVL 12D # (URP3XV).(UVP3XURP3)=TEMP PL06D
028430,001005: 34,2601 72441 DOT SL1 # PL00D
028431,001006: 34,2602 75326 ARCCOS SIGN
028432,001007: 34,2603 00015 12D # B0
028433,001008: 34,2604 41542 SR1 PUSH # GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3) PL02D
028434,001009: 34,2605 71214 BON DLOAD
028435,001010: 34,2606 03301 S32.1F2
028436,001011: 34,2607 70644 FRSTPAS
028437,001012: 34,2610 00001 00D # NOT THE FIRST PASS OF A CYCLE
028438,001013: 34,2611 65225 DSU PDDL # GAMMA-GAMPREV B1 PL04D
028439,001014: 34,2612 03610 GAMPREV
028440,001015: 34,2613 03574 DELVCSI
028441,001016: 34,2614 60225 DSU NORM # B7
028442,001017: 34,2615 03576 DVPREV
028443,001018: 34,2616 00047 X1
028444,001019: 34,2617 65265 BDDV PDDL # (GAM-GAMPREV)/(DV-DVPREV) B-6+N1 PL06D
028445,001020: 34,2620 00003 02D # = SLOPE
028446,001021: 34,2621 03574 DELVCSI
028447,001022: 34,2622 03576 STORE DVPREV
028448,001023: 34,2623 43014 BOFF BOFF
028449,001024: 34,2624 03342 S32.1F3A
028450,001025: 34,2625 70656 THRDCHK
028451,001026: 34,2626 03343 S32.1F3B
028452,001027: 34,2627 70656 THRDCHK
028453,001028: 34,2630 41345 DLOAD DMP
028454,001029: 34,2631 00003 02D
028455,001030: 34,2632 03610 GAMPREV
028456,001031: 34,2633 71244 BPL DLOAD
028457,001032: 34,2634 70663 FIFTYFPS
028458,001033: 34,2635 30062 INITST
028459,001034: 34,2636 77765 SIGN
028460,001035: 34,2637 03612 DELDV
028461,001036: 34,2640 03612 STORE DELDV
028462,001037: 34,2641 43014 SET CLEAR
028463,001038: 34,2642 03062 S32.1F3A
028464,001039: 34,2643 03263 S32.1F3B
028465,001040: 34,2644 77745 FRSTPAS DLOAD
028466,001041: 34,2645 00001 00D
028467,001042: 34,2646 17610 STODL GAMPREV
028468,001043: 34,2647 03574 DELVCSI
028469,001044: 34,2650 03576 STORE DVPREV
028470,001045: 34,2651 43025 DSU CLEAR
028471,001046: 34,2652 03612 DELDV
028472,001047: 34,2653 03261 S32.1F2
028473,001048:
|
|
Page 646 |
028475,001050: 34,2654 37574 STCALL DELVCSI
028476,001051: 34,2655 70165 CSI/B1
028477,001052: 34,2656 43014 THRDCHK BON BON
028478,001053: 34,2657 03302 S32.1F3A
028479,001054: 34,2660 70702 NEWTN
028480,001055: 34,2661 03303 S32.1F3B
028481,001056: 34,2662 70702 NEWTN
028482,001057: 34,2663 75345 FIFTYFPS DLOAD SIGN
028483,001058: 34,2664 30102 FIFPSDP
028484,001059: 34,2665 00005 04D
028485,001060: 34,2666 77765 SIGN
028486,001061: 34,2667 03610 GAMPREV
028487,001062: 34,2670 03612 STORE DELDV
028488,001063: 34,2671 43276 DCOMP DAD
028489,001064: 34,2672 03574 DELVCSI
028490,001065: 34,2673 17574 STODL DELVCSI
028491,001066: 34,2674 00001 00D
028492,001067: 34,2675 43014 SET SET
028493,001068: 34,2676 03063 S32.1F3B
028494,001069: 34,2677 03062 S32.1F3A
028495,001070: 34,2700 37610 STCALL GAMPREV
028496,001071: 34,2701 70176 CSI/B2
028497,001072: 34,2702 60345 NEWTN DLOAD NORM
028498,001073: 34,2703 00005 04D
028499,001074: 34,2704 00050 X2
028500,001075: 34,2705 54065 BDDV XSU,1
028501,001076: 34,2706 00001 00D
028502,001077: 34,2707 00047 X2
028503,001078: 34,2710 77657 SR*
028504,001079: 34,2711 20601 0,1
028505,001080: 34,2712 17612 STODL DELDV
028506,001081: 34,2713 00001 00D
028507,001082: 34,2714 03610 STORE GAMPREV
028508,001083: 34,2715 51545 DLOAD ABS
028509,001084: 34,2716 03612 DELDV
028510,001085: 34,2717 45206 PUSH DSU # PL08D
028511,001086: 34,2720 30076 EPSILN1
028512,001087: 34,2721 71240 BMN DLOAD
028513,001088: 34,2722 70737 CSI/SOL
028514,001089: 34,2723 50025 DSU BMN
028515,001090: 34,2724 30106 DELMAX1
028516,001091: 34,2725 70732 CSISTEP
028517,001092: 34,2726 75345 DLOAD SIGN
028518,001093: 34,2727 30106 DELMAX1
028519,001094: 34,2730 03612 DELDV
028520,001095: 34,2731 03612 STORE DELDV
028521,001096: 34,2732 45345 CSISTEP DLOAD DSU
028522,001097: 34,2733 03574 DELVCSI
028523,001098: 34,2734 03612 DELDV
028524,001099: 34,2735 37574 STCALL DELVCSI
028525,001100:
|
|
Page 647 |
028527,001102: 34,2736 70165 CSI/B1
028528,001103: 34,2737 77145 CSI/SOL DLOAD AXT,2
028529,001104: 34,2740 03602 POSTCSI
028530,001105: 34,2741 00002 2
028531,001106: 34,2742 77750 LXA,1
028532,001107: 34,2743 02776 RTX1
028533,001108: 34,2744 50023 DSU* BMN
028534,001109: 34,2745 30072 PMINE -2,1
028535,001110: 34,2746 70776 SCNDSOL
028536,001111: 34,2747 71374 AXT,2 DLOAD
028537,001112: 34,2750 00003 3
028538,001113: 34,2751 03604 POSTCDH
028539,001114: 34,2752 50023 DSU* BMN
028540,001115: 34,2753 30072 PMINE -2,1
028541,001116: 34,2754 70776 SCNDSOL
028542,001117: 34,2755 45345 DLOAD DSU
028543,001118: 34,2756 01775 TCDH
028544,001119: 34,2757 03634 TCSI
028545,001120: 34,2760 02244 STORE T1TOT2
028546,001121: 34,2761 45374 AXT,2 DSU
028547,001122: 34,2762 00004 4
028548,001123: 34,2763 30112 TMIN
028549,001124: 34,2764 77040 BMN AXT,2
028550,001125: 34,2765 70776 SCNDSOL
028551,001126: 34,2766 00005 5
028552,001127: 34,2767 45345 DLOAD DSU
028553,001128: 34,2770 03636 TTPI
028554,001129: 34,2771 01775 TCDH
028555,001130: 34,2772 02246 STORE T2TOT3
028556,001131: 34,2773 51025 DSU BPL
028557,001132: 34,2774 30112 TMIN
028558,001133: 34,2775 72157 P32/P72C
028559,001134: 34,2776 43014 SCNDSOL BON BOFF
028560,001135: 34,2777 03302 S32.1F3A
028561,001136: 34,3000 72045 ALMXIT
028562,001137: 34,3001 03343 S32.1F3B
028563,001138: 34,3002 72045 ALMXIT
028564,001139: 34,3003 71334 SXA,2 DLOAD
028565,001140: 34,3004 03613 CSIALRM
028566,001141: 34,3005 32425 P30ZERO
028567,001142: 34,3006 43014 CLEAR SET
028568,001143: 34,3007 03260 S32.1F1
028569,001144: 34,3010 03061 S32.1F2
028570,001145: 34,3011 43014 CLEAR CLEAR
028571,001146: 34,3012 03262 S32.1F3A
028572,001147: 34,3013 03263 S32.1F3B
028573,001148: 34,3014 37606 STCALL LOOPCT
028574,001149: 34,3015 70125 CSI/B
028575,001150:
|
|
Page 648 |
028577,001152: # ..... ADVANCE .....
028578,001153:
028579,001154: # SUBROUTINES USED
028580,001155:
028581,001156: # PRECSET
028582,001157: # ROTATE
028583,001158:
028584,001159: 34,3016 71220 ADVANCE STQ DLOAD
028585,001160: 34,3017 03470 SUBEXIT
028586,001161: 34,3020 03442 TIG
028587,001162: 34,3021 34041 STCALL TDEC1
028588,001163: 34,3022 46401 PRECSET
028589,001164: 34,3023 77214 SET VLOAD
028590,001165: 34,3024 01067 XDELVFLG
028591,001166: 34,3025 03560 VPASS3
028592,001167: 34,3026 03530 STORE VPASS2
028593,001168: 34,3027 27506 STOVL VPASS1
028594,001169: 34,3030 03552 RPASS3
028595,001170: 34,3031 03522 STORE RPASS2
028596,001171: 34,3032 03500 STORE RPASS1
028597,001172: 34,3033 47256 UNIT VXV
028598,001173: 34,3034 03506 VPASS1
028599,001174: 34,3035 77656 UNIT
028600,001175: 34,3036 26252 STOVL UP1
028601,001176: 34,3037 03536 RACT3
028602,001177: 34,3040 37642 STCALL RTIG
028603,001178: 34,3041 71052 ROTATE
028604,001179: 34,3042 02302 STORE RACT2
028605,001180: 34,3043 26274 STOVL RACT1
028606,001181: 34,3044 03544 VACT3
028607,001182: 34,3045 37650 STCALL VTIG
028608,001183: 34,3046 71052 ROTATE
028609,001184: 34,3047 03514 STORE VACT2
028610,001185: 34,3050 37472 STCALL VACT1
028611,001186: 34,3051 03470 SUBEXIT
028612,001187:
|
|
Page 649 |
028614,001189: # ..... ROTATE .....
028615,001190:
028616,001191: 34,3052 41406 ROTATE PUSH PUSH
028617,001192: 34,3053 74241 DOT VXSC
028618,001193: 34,3054 02252 UP1
028619,001194: 34,3055 02252 UP1
028620,001195: 34,3056 51352 VSL2 BVSU
028621,001196: 34,3057 63256 UNIT PDVL
028622,001197: 34,3060 74246 ABVAL VXSC
028623,001198: 34,3061 43572 VSL1 RVQ
028624,001199:
|
|
Page 650 |
028626,001201: # ..... INTINTNA .....
028627,001202:
028628,001203: 34,3062 65325 INTINT2C PDDL PDDL
028629,001204: 34,3063 03634 TCSI
028630,001205: 34,3064 01775 TCDH
028631,001206: 34,3065 41525 PDDL PUSH
028632,001207: 34,3066 33642 TWOPI
028633,001208: 34,3067 77650 GOTO
028634,001209: 34,3070 73404 INTINT
028635,001210: 34,3071 65325 INTINT3P PDDL PDDL
028636,001211: 34,3072 01775 TCDH
028637,001212: 34,3073 03636 TTPI
028638,001213: 34,3074 41525 PDDL PUSH
028639,001214: 34,3075 32425 P30ZERO
028640,001215: 34,3076 77650 GOTO
028641,001216: 34,3077 73404 INTINT
028642,001217:
|
|
Page 651 |
028644,001219: # ..... S32/33.1 .....
028645,001220:
028646,001221: # SUBROUTINES USED
028647,001222:
028648,001223: # S32/33.X
028649,001224:
028650,001225: 34,3100 76020 S32/33.1 STQ AXT,1
028651,001226: 34,3101 03470 SUBEXIT
028652,001227: 34,3102 01521 VN 0681
028653,001228: 34,3103 77624 CALL
028654,001229: 34,3104 72375 DISDVLVC
028655,001230: 34,3105 77624 CALL
028656,001231: 34,3106 71120 S32/33.X
028657,001232: 34,3107 61375 VLOAD VXM
028658,001233: 34,3110 03434 DELVLVC
028659,001234: 34,3111 00001 0D
028660,001235: 34,3112 77772 VSL1
028661,001236: 34,3113 03656 STORE DELVSIN
028662,001237: 34,3114 51406 PUSH ABVAL
028663,001238: 34,3115 27664 STOVL DELVSAB
028664,001239: 34,3116 77650 GOTO
028665,001240: 34,3117 03470 SUBEXIT
028666,001241:
|
|
Page 652 |
028668,001243: # ..... S32/33.X .....
028669,001244:
028670,001245: 34,3120 77201 S32/33.X SETPD VLOAD
028671,001246: 34,3121 00007 6D
028672,001247: 34,3122 02252 UP1
028673,001248: 34,3123 63276 VCOMP PDVL
028674,001249: 34,3124 02274 RACT1
028675,001250: 34,3125 57456 UNIT VCOMP
028676,001251: 34,3126 47206 PUSH VXV
028677,001252: 34,3127 02252 UP1
028678,001253: 34,3130 77772 VSL1
028679,001254: 34,3131 00001 STORE 0D
028680,001255: 34,3132 77616 RVQ
028681,001256:
|
|
Page 653 |
028683,001258: # ..... CDHMVR .....
028684,001259:
028685,001260: # SUBROUTINES USED
028686,001261:
028687,001262: # VECSHIFT
028688,001263: # TIMETHET
028689,001264: # SHIFTR1
028690,001265:
028691,001266: 34,3133 77220 CDHMVR STQ VLOAD
028692,001267: 34,3134 03470 SUBEXIT
028693,001268: 34,3135 02302 RACT2
028694,001269: 34,3136 53406 PUSH UNIT
028695,001270: 34,3137 27544 STOVL UNVEC # UR SUB A
028696,001271: 34,3140 03522 RPASS2
028697,001272: 34,3141 50256 UNIT DOT
028698,001273: 34,3142 03544 UNVEC
028699,001274: 34,3143 72406 PUSH SL1
028700,001275: 34,3144 16732 STODL CSTH
028701,001276: 34,3145 65316 DSQ PDDL
028702,001277: 34,3146 06475 DP1/4TH
028703,001278: 34,3147 45302 SR2 DSU
028704,001279: 34,3150 72566 SQRT SL1
028705,001280: 34,3151 57515 PDVL VCOMP
028706,001281: 34,3152 77635 VXV
028707,001282: 34,3153 03522 RPASS2
028708,001283: 34,3154 65241 DOT PDDL
028709,001284: 34,3155 02252 UP1
028710,001285: 34,3156 45565 SIGN STADR
028711,001286: 34,3157 51047 STOVL SNTH
028712,001287: 34,3160 03522 RPASS2
028713,001288: 34,3161 45115 PDVL CALL
028714,001289: 34,3162 03530 VPASS2
028715,001290: 34,3163 46437 VECSHIFT
028716,001291: 34,3164 26744 STOVL VVEC
028717,001292: 34,3165 77614 CLEAR
028718,001293: 34,3166 03666 RVSW
028719,001294: 34,3167 36655 STCALL RVEC
028720,001295: 34,3170 24732 TIMETHET
028721,001296: 34,3171 53754 LXA,2 VSL*
028722,001297: 34,3172 02777 RTX2
028723,001298: 34,3173 57576 0,2
028724,001299: 34,3174 00023 STORE 18D
028725,001300: 34,3175 76441 DOT SL1R
028726,001301: 34,3176 03544 UNVEC
028727,001302: 34,3177 51515 PDVL ABVAL # 0D = V SUB PV
028728,001303: 34,3200 63257 SL* PDVL
028729,001304: 34,3201 57576 0,2
028730,001305: 34,3202 02302 RACT2
028731,001306: 34,3203 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
028732,001307: 34,3204 77625 DSU
028733,001308:
|
|
Page 654 |
028735,001310: 34,3205 00003 02D
028736,001311: 34,3206 17600 STODL DIFFALT # DELTA H IN METERS B+29
028737,001312: 34,3207 02742 R1A
028738,001313: 34,3210 65301 NORM PDDL # 2 - R V**/MU 04D
028739,001314: 34,3211 00047 X1
028740,001315: 34,3212 00041 R1
028741,001316: 34,3213 77624 CALL
028742,001317: 34,3214 46447 SHIFTR1
028743,001318: 34,3215 56362 SR1R DDV
028744,001319: 34,3216 41457 SL* PUSH
028745,001320: 34,3217 20174 0 -5,1
028746,001321: 34,3220 65225 DSU PDDL # A SUB A B+29 04D
028747,001322: 34,3221 03600 DIFFALT
028748,001323: 34,3222 56302 SR2 DDV # A SUB P B+31
028749,001324: 34,3223 00005 04D # B+2
028750,001325: 34,3224 75406 PUSH SQRT # A SUB P/A SUB A 06D
028751,001326: 34,3225 41275 DMPR DMP
028752,001327: 34,3226 00007 06D
028753,001328: 34,3227 00001 00D
028754,001329: 34,3230 65272 SL3R PDDL # V SUB A V METERS/CS B+7 08D
028755,001330: 34,3231 00003 02D # R SUB A MAGNITUDE B+29
028756,001331: 34,3232 65301 NORM PDDL
028757,001332: 34,3233 00047 X1
028758,001333: 34,3234 02312 RTMU
028759,001334: 34,3235 56342 SR1 DDV # 2MU B+38
028760,001335: 34,3236 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
028761,001336: 34,3237 20174 0 -5,1
028762,001337: 34,3240 00005 04D # ASUBA B+29
028763,001338: 34,3241 65301 NORM PDDL
028764,001339: 34,3242 00050 X2
028765,001340: 34,3243 02312 RTMU
028766,001341: 34,3244 56342 SR1 DDV
028767,001342: 34,3245 44257 SL* BDSU
028768,001343: 34,3246 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
028769,001344: 34,3247 63525 PDDL DSQ # 10D
028770,001345: 34,3250 00011 08D
028771,001346: 34,3251 75421 BDSU SQRT
028772,001347: 34,3252 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)10D
028773,001348: 34,3253 02252 UP1
028774,001349: 34,3254 03544 UNVEC
028775,001350: 34,3255 74256 UNIT VXSC
028776,001351: 34,3256 00013 10D
028777,001352: 34,3257 74315 PDVL VXSC
028778,001353: 34,3260 03544 UNVEC
028779,001354: 34,3261 00011 08D
028780,001355: 34,3262 76455 VAD VSL1
028781,001356: 34,3263 77626 STADR
028782,001357: 34,3264 74233 STORE VACT3
028783,001358: 34,3265 77651 VSU
028784,001359: 34,3266 03514 VACT2
|
|
Page 655 |
028786,001361: 34,3267 36266 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
028787,001362: 34,3270 03470 SUBEXIT
028788,001363:
|
|
Page 656 |
028790,001365: # ..... COMPTGO .....
028791,001366:
028792,001367: # SUBROUTINES USED
028793,001368:
028794,001369: # CLOKTASK
028795,001370: # 2PHSCHNG
028796,001371:
028797,001372: 35,2437 BANK 35
028798,001373: 35,2000 SETLOC CSI/CDH
028799,001374: 35,2000 BANK
028800,001375:
028801,001376: 35,2437 E7,1465 EBANK= RTRN
028802,001377:
028803,001378: 35,2437 COUNT* $$/P3575
028804,001379:
028805,001380: 35,2437 00006 COMPTGO EXTEND
028806,001381: 35,2440 23465 QXCH RTRN
028807,001382: 35,2441 34746 CAF ZERO
028808,001383: 35,2442 55162 TS DISPDEX
028809,001384: 35,2443 34743 CAF BIT2
028810,001385: 35,2444 00004 INHINT
028811,001386: 35,2445 05205 TC WAITLIST
028812,001387: 35,2446 E7,1455 EBANK= WHICH
028813,001388: 35,2446 02716 74067 2CADR CLOKTASK
028814,001389:
028815,001390: 35,2450 05331 TC 2PHSCHNG
028816,001391: 35,2451 40036 OCT 40036
028817,001392: 35,2452 05024 OCT 05024
028818,001393: 35,2453 13000 OCT 13000
028819,001394: 35,2454 01465 TC RTRN
End of include-file P32-P35,_P72-P75.agc. Parent file is MAIN.agc