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