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