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