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