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