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