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