Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
026526,000002: ## Copyright: Public domain.
026527,000003: ## Filename: P34.agc
026528,000004: ## Purpose: A section of Skylark revision 048.
026529,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
026530,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
026531,000007: ## this software are available; instead, this file was created via
026532,000008: ## disassembly of dumps of the core rope modules actually flown on
026533,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
026534,000010: ## Museum of Space History.
026535,000011: ## Assembler: yaYUL
026536,000012: ## Contact: Ron Burkey <info@sandroid.org>.
026537,000013: ## Website: www.ibiblio.org/apollo/index.html
026538,000014: ## Mod history: 2024-02-18 MAS Created.
026539,000015: ## 2024-03-05 MAS Finished filling out.
026540,000016:
026541,000017:
026542,000018: ## This log section is derived from Artemis's P32-P33, P72-P73.
026543,000019:
026544,000020: # CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
026545,000021: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
026546,000022: # MOD BY WHITE.P DATE 1 JUNE 67
026547,000023:
026548,000024: # PURPOSE
026549,000025:
026550,000026: # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
026551,000027: # ALTITUDE MANEUVER (CDH).
026552,000028:
026553,000029: # (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
026554,000030: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
026555,000031:
026556,000032: # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
026557,000033: # ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
026558,000034: # ASTRONAUT/GROUND.
026559,000035:
026560,000036: # (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
026561,000037: # THRUSTING PROGRAM.
026562,000038:
026563,000039: # ASSUMPTIONS
026564,000040:
026565,000041: # (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
026566,000042: # CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
026567,000043: # THERFORE -
026568,000044:
026569,000045: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
026570,000046: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
026571,000047: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
026572,000048: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
026573,000049:
026574,000050: # (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
026575,000051: # COMPUTED TO BE GREATER THAN 10 MINUTES.
026576,000052:
026577,000053: # (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
026578,000054: # COMPUTED TO BE GREATER THAN 10 MINUTES.
026579,000055:
026580,000056: # (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
026581,000057: # ORBITS WAS MINMIZED.
026582,000058:
026583,000059: # (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
026584,000060: # IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
026585,000061: # POSITION AT CSI IGNITION.
026586,000062:
026587,000063: # (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
026588,000064: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
026589,000065: # ORBIT OR 85 NM FOR EARTH ORBIT.
026590,000066:
026591,000067: # (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
026592,000068: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
026593,000069: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
026594,000070: # IN AN OUT-OF-PLANE MANEUVER.
026595,000071:
026596,000072: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
026597,000073: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
026598,000074:
026599,000075: # (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
026600,000076: # THE GROUND. THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
026601,000077: # ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
026602,000078: # EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
026603,000079:
026604,000080: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
026605,000081: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
026606,000082: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
026607,000083: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
026608,000084: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
026609,000085: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
026610,000086: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
026611,000087: # THRUSTING MANEUVER.
026612,000088:
026613,000089: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
026614,000090:
026615,000091: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
026616,000092:
026617,000093: # ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
026618,000094: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
026619,000095: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
026620,000096: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
026621,000097:
026622,000098: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
026623,000099: # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
026624,000100: # CYCLE.
026625,000101:
026626,000102: # EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
026627,000103: # STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
026628,000104: # THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
026629,000105: # PROGRAM.
026630,000106:
026631,000107: # (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
026632,000108: # A THRUSTING MANEUVER.
026633,000109:
026634,000110: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
026635,000111:
026636,000112: # P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
026637,000113:
026638,000114: # P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
026639,000115:
026640,000116: # INPUT
026641,000117:
026642,000118: # (1) TTPI0 TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
026643,000119: # (2) ELEV DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
026644,000120: # (3) TCDH TIME OF THE CDH MANEUVER
026645,000121:
026646,000122: # OUTPUT
026647,000123:
026648,000124: # (1) TRKMKCNT NUMBER OF MARKS
026649,000125: # (2) TTOGO TIME TO GO
026650,000126: # (3) +MGA MIDDLE GIMBAL ANGLE
026651,000127: # (4) DIFFALT DELTA ALTITUDE AT CDH
026652,000128: # (5) T2TOT3 DELTA TIME FROM CDH TO COMPUTED TPI
026653,000129: # (6) NOMTPI DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
026654,000130: # (7) DELVLVC DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
026655,000131:
026656,000132: # DOWNLINK
026657,000133:
026658,000134: # (1) TCDH TIME OF THE CDH MANEUVER
026659,000135: # (2) TTPI TIME OF THE TPI MANEUVER
026660,000136: # (3) TIG TIME OF THE CDH MANEUVER
026661,000137: # (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026662,000138: # (5) DIFFALT DELTA ALTITUDE AT CDH
026663,000139: # (6) ELEV DESIRED LOS ANGLE AT TPI
026664,000140:
026665,000141: # COMMUNICATION TO THRUSTING PROGRAMS
026666,000142:
026667,000143: # (1) TIG TIME OF THE CDH MANEUVER
026668,000144: # (2) RTIG POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
026669,000145: # INTO PLANE OF PASSIVE VEHICLE
026670,000146: # (3) VTIG VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
026671,000147: # INTO PLANE OF PASSIVE VEHICLE
026672,000148: # (4) DELVSIN DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026673,000149: # (5) DELVSAB MAGNITUDE OF DELTA VELOCITY AT CDH
026674,000150: # (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
026675,000151:
026676,000152: # SUBROUTINES USED
026677,000153:
026678,000154: # P20FLGON
026679,000155: # VNPOOH
026680,000156: # ADVANCE
026681,000157: # CDHMVR
026682,000158: # INTINT3P
026683,000159: # ACTIVE
026684,000160: # PASSIVE
026685,000161: # S33/34.1
026686,000162: # ALARM
026687,000163: # BANKCALL
026688,000164: # GOFLASH
026689,000165: # GOTOPOOH
026690,000166: # S32/33.1
026691,000167: # VN1645
026692,000168:
026693,000169: 31,2000 SETLOC CSI/CDH1
026694,000170: 31,2000 BANK
026695,000171: 31,2444 E4,1636 EBANK= SUBEXIT
026696,000172: 31,2444 COUNT* $$/P34
026697,000173: 31,2444 04564 P34 TC P20FLGON
026698,000174: 31,2445 34576 CAF V06N13 # TCDH
026699,000175: 31,2446 05550 TC VNFLASH
026700,000176: 31,2447 06006 TC INTPRET
026701,000177: 31,2450 43145 DLOAD CLEAR
026702,000178: 31,2451 03643 TTPI
026703,000179: 31,2452 01271 FINALFLG
026704,000180: 31,2453 16465 STODL TTPI0
026705,000181: 31,2454 02461 TCDH
026706,000182: 31,2455 37413 STCALL TIG
026707,000183: 31,2456 73430 VN1645
026708,000184: 31,2457 45145 P33/P73B DLOAD CALL
026709,000185: 31,2460 03413 TIG
026710,000186: 31,2461 76424 ADVANCE
026711,000187: 31,2462 77624 CALL
026712,000188: 31,2463 56602 CDHMVR
026713,000189: 31,2464 02445 STORE DELVEET1 # CDH DV TO USE DISDVLVC SUB FOR N81 DISP
026714,000190: 31,2465 77201 SETPD VLOAD
026715,000191: 31,2466 00001 0D
026716,000192: 31,2467 03524 VACT3
026717,000193: 31,2470 45115 PDVL CALL
026718,000194: 31,2471 02453 RACT2
026719,000195: 31,2472 62565 INTINT3P
026720,000196: 31,2473 77624 CALL
026721,000197: 31,2474 45462 ACTIVE
026722,000198: 31,2475 77201 SETPD VLOAD
026723,000199: 31,2476 00001 0D
026724,000200: 31,2477 02617 VPASS2
026725,000201: 31,2500 45115 PDVL CALL
026726,000202: 31,2501 02625 RPASS2
026727,000203: 31,2502 62565 INTINT3P
026728,000204: 31,2503 77624 CALL
026729,000205: 31,2504 45470 PASSIVE
026730,000206: 31,2505 43145 DLOAD SET
026731,000207: 31,2506 15204 ZEROVECS
026732,000208: 31,2507 03461 ITSWICH
026733,000209: 31,2510 36234 STCALL NOMTPI
026734,000210: 31,2511 72713 S33/34.1
026735,000211: 31,2512 77454 BZE EXIT
026736,000212: 31,2513 62530 P33/P73C
026737,000213: 31,2514 05644 TC ALARM
026738,000214: 31,2515 00611 OCT 611
026739,000215: 31,2516 35036 CAF V05N09
026740,000216: 31,2517 04647 TC BANKCALL
026741,000217: 31,2520 20623 CADR GOFLASH
026742,000218: 31,2521 04103 TC GOTOPOOH
026743,000219: 31,2522 02524 TC +2
026744,000220: 31,2523 02444 TC P34
026745,000221: 31,2524 06006 TC INTPRET
026746,000222: 31,2525 77745 DLOAD
026747,000223: 31,2526 15204 ZEROVECS
026748,000224: 31,2527 02234 STORE NOMTPI
026749,000225: 31,2530 43014 P33/P73C BON SET
026750,000226: 31,2531 01311 FINALFLG
026751,000227: 31,2532 62534 P33/P73D
026752,000228: 31,2533 00470 UPDATFLG
026753,000229: 31,2534 43345 P33/P73D DLOAD DAD
026754,000230: 31,2535 02234 NOMTPI
026755,000231: 31,2536 03643 TTPI
026756,000232: 31,2537 03643 STORE TTPI
026757,000233: 31,2540 77625 DSU
026758,000234: 31,2541 02461 TCDH
026759,000235: 31,2542 51025 P33/P73E DSU BPL
026760,000236: 31,2543 22564 60MIN
026761,000237: 31,2544 62542 P33/P73E
026762,000238: 31,2545 77615 DAD
026763,000239: 31,2546 22564 60MIN
026764,000240: 31,2547 36541 STCALL T1TOT2
026765,000241: 31,2550 56566 P33/73F
026766,000242: 31,2551 77776 EXIT
026767,000243:
026768,000244: 31,2552 34577 CAF V06N75
026769,000245: 31,2553 05550 TC VNFLASH
026770,000246: 31,2554 06006 TC INTPRET
026771,000247: 31,2555 77624 SKIP75 CALL
026772,000248: 31,2556 76403 DISDVLVC # PUT UP N81, COMPUTE DELVSIN
026773,000249: 31,2557 77624 CALL
026774,000250: 31,2560 73430 VN1645
026775,000251: 31,2561 77650 GOTO
026776,000252: 31,2562 62457 P33/P73B
026777,000253:
026778,000254: 31,2563 00025 37100 60MIN 2DEC 360000 B-28
026779,000255:
026780,000256:
026781,000257: 4000 SETLOC FFTAG12
026782,000258: 4000 BANK
026783,000259:
026784,000260: 4575 COUNT* $$/P34
026785,000261: 4575 01413 V06N11 VN 0611
026786,000262: 4576 01415 V06N13 VN 0613
026787,000263: 4577 01513 V06N75 VN 0675
026788,000264:
026789,000265:
026790,000266: # ..... DISDVLVC .....
026791,000267:
026792,000268: # SUBROUTINES USED
026793,000269:
026794,000270: # S32/33.X
026795,000271: # VNPOOH
026796,000272:
026797,000273: 37,2000 SETLOC CDHTAG3
026798,000274: 37,2000 BANK
026799,000275:
026800,000276: 37,2403 COUNT* $$/CSI
026801,000277: 37,2403 45020 DISDVLVC STQ CALL
026802,000278: 37,2404 01011 NORMEX
026803,000279: 37,2405 32050 S32/33.X
026804,000280: 37,2406 64375 VLOAD MXV
026805,000281: 37,2407 02445 DELVEET1
026806,000282: 37,2410 00001 0D
026807,000283: 37,2411 77772 VSL1
026808,000284: 37,2412 37405 STCALL DELVLVC # REF TO L V
026809,000285: 37,2413 15667 DISPN90
026810,000286: 37,2414 77624 CALL
026811,000287: 37,2415 32050 S32/33.X
026812,000288: 37,2416 61375 VLOAD VXM
026813,000289: 37,2417 03405 DELVLVC
026814,000290: 37,2420 00001 0D
026815,000291: 37,2421 77772 VSL1
026816,000292: 37,2422 37624 STCALL DELVSIN # L V TO REF
026817,000293: 37,2423 01011 NORMEX
026818,000294:
026819,000295: # ..... ADVANCE .....
026820,000296:
026821,000297: # SUBROUTINES USED
026822,000298: # PRECSET
026823,000299: # ROTATE
026824,000300:
026825,000301: 37,2000 SETLOC CDHTAG3
026826,000302: 37,2000 BANK
026827,000303:
026828,000304: 37,2424 COUNT* $$/CDH
026829,000305: 37,2424 77620 ADVANCE STQ
026830,000306: 37,2425 02236 SUBEXIT
026831,000307: 37,2426 34041 STCALL TDEC1
026832,000308: 37,2427 45416 PRECSET
026833,000309: 37,2430 77214 SET VLOAD
026834,000310: 37,2431 01067 XDELVFLG
026835,000311: 37,2432 03540 VPASS3
026836,000312: 37,2433 26617 STOVL VPASS2
026837,000313: 37,2434 03532 RPASS3
026838,000314: 37,2435 26625 STOVL RPASS2
026839,000315: 37,2436 03516 RACT3
026840,000316: 37,2437 37610 STCALL RTIG
026841,000317: 37,2440 16302 ROTATE
026842,000318: 37,2441 26453 STOVL RACT2
026843,000319: 37,2442 03524 VACT3
026844,000320: 37,2443 37616 STCALL VTIG
026845,000321: 37,2444 16302 ROTATE
026846,000322: 37,2445 36533 STCALL VACT2
026847,000323: 37,2446 02236 SUBEXIT
026848,000324:
026849,000325: # ..... ROTATE .....
026850,000326:
026851,000327: 07,2000 SETLOC CSIPROG6
026852,000328: 07,2000 BANK
026853,000329:
026854,000330: 07,2302 COUNT* $$/CSI
026855,000331: 07,2302 41406 ROTATE PUSH PUSH
026856,000332: 07,2303 74241 DOT VXSC
026857,000333: 07,2304 02611 UP1
026858,000334: 07,2305 02611 UP1
026859,000335: 07,2306 51352 VSL2 BVSU
026860,000336: 07,2307 63256 UNIT PDVL
026861,000337: 07,2310 74246 ABVAL VXSC
026862,000338: 07,2311 43572 VSL1 RVQ
026863,000339:
026864,000340: # .... DISPN90 .....
026865,000341:
026866,000342: 06,2000 SETLOC CSIPROG
026867,000343: 06,2000 BANK
026868,000344: 06,3667 COUNT* $$/CSI
026869,000345: 06,3667 77620 DISPN90 STQ
026870,000346: 06,3670 02237 ANEXIT
026871,000347: 06,3671 57575 VLOAD VCOMP
026872,000348: 06,3672 02601 AUTOY
026873,000349: 06,3673 16250 STODL YCSM # COMPLEMENT VALUES FOR N90 DISPLAYS.
026874,000350: 06,3674 02603 CMYDOT
026875,000351: 06,3675 03407 STORE DELVLVC +2
026876,000352: 06,3676 51414 BOFF ABS
026877,000353: 06,3677 05356 PCFLAG
026878,000354: 06,3700 15707 OKN81 # NOT IN P36
026879,000355: 06,3701 51025 DSU BPL # IS YDOT LESS THAN .1 FPS
026880,000356: 06,3702 15716 1/10FPS
026881,000357: 06,3703 15707 OKN81 # NO
026882,000358: 06,3704 77775 VLOAD # YES - FORCE DSKY DISPLAY TO BE 0
026883,000359: 06,3705 15726 ZEROVEC
026884,000360: 06,3706 03405 STORE DELVLVC
026885,000361: 06,3707 77776 OKN81 EXIT
026886,000362:
026887,000363: 06,3710 34603 CAF V06N81
026888,000364: 06,3711 05550 TC VNFLASH
026889,000365:
026890,000366: 06,3712 06006 TC INTPRET
026891,000367: 06,3713 77650 GOTO
026892,000368: 06,3714 02237 ANEXIT
026893,000369:
026894,000370: 06,3715 00000 01177 1/10FPS 2DEC .0003048 B-7 # .1 FPS
026895,000371:
026896,000372: # ..... INTINTNA .....
026897,000373:
026898,000374: 31,2000 SETLOC CDHTAG2
026899,000375: 31,2000 BANK
026900,000376:
026901,000377: 31,2565 COUNT* $$/CDH
026902,000378: 31,2565 65325 INTINT3P PDDL PDDL
026903,000379: 31,2566 02461 TCDH
026904,000380: 31,2567 03643 TTPI
026905,000381: 31,2570 41525 PDDL PUSH
026906,000382: 31,2571 33542 TWOPI # FOR CONIC INTEGRATION
026907,000383: 31,2572 77650 GOTO
026908,000384: 31,2573 73352 INTINT
026909,000385:
026910,000386: # ..... S32/33.X .....
026911,000387:
026912,000388: 15,2000 SETLOC CDHTAGS
026913,000389: 15,2000 BANK
026914,000390:
026915,000391: 15,2050 COUNT* $$/CDH
026916,000392: 15,2050 77201 S32/33.X SETPD VLOAD
026917,000393: 15,2051 00007 6D
026918,000394: 15,2052 02611 UP1
026919,000395: 15,2053 63276 VCOMP PDVL
026920,000396: 15,2054 02453 RACT2
026921,000397: 15,2055 57456 UNIT VCOMP
026922,000398: 15,2056 47206 PUSH VXV
026923,000399: 15,2057 02611 UP1
026924,000400: 15,2060 77772 VSL1
026925,000401: 15,2061 00001 STORE 0D
026926,000402: 15,2062 77616 RVQ
026927,000403:
026928,000404: 27,2000 SETLOC CDHTAG
026929,000405: 27,2000 BANK
026930,000406:
026931,000407: 27,2566 COUNT* $$/CDH
026932,000408:
026933,000409: # The name of the following label is a guess.
026934,000410: 27,2566 45345 P33/73F DLOAD DSU
026935,000411: 27,2567 03643 TTPI
026936,000412: 27,2570 02465 TTPI0
026937,000413: 27,2571 77606 PUSH
026938,000414: 27,2572 45246 P33/P73F ABS DSU
026939,000415: 27,2573 33555 60MINH
026940,000416: 27,2574 43244 BPL DAD
026941,000417: 27,2575 56572 P33/P73F
026942,000418: 27,2576 33555 60MINH
026943,000419: 27,2577 45565 SIGN STADR
026944,000420: 27,2600 74145 STORE T2TOT3
026945,000421: 27,2601 77616 RVQ
026946,000422:
026947,000423:
026948,000424: # ..... CDHMVR .....
026949,000425:
026950,000426: # SUBROUTINES USED
026951,000427: # TIMETHET
026952,000428:
026953,000429:
026954,000430: 27,2602 77220 CDHMVR STQ VLOAD
026955,000431: 27,2603 02236 SUBEXIT
026956,000432: 27,2604 02453 RACT2
026957,000433: 27,2605 53406 PUSH UNIT
026958,000434: 27,2606 27524 STOVL UNVEC # UR SUB A
026959,000435: 27,2607 02625 RPASS2
026960,000436: 27,2610 50256 UNIT DOT
026961,000437: 27,2611 03524 UNVEC
026962,000438: 27,2612 72406 PUSH SL1
026963,000439: 27,2613 16726 STODL CSTH
026964,000440: 27,2614 65316 DSQ PDDL
026965,000441: 27,2615 15174 DP1/4TH
026966,000442: 27,2616 45302 SR2 DSU
026967,000443: 27,2617 72566 SQRT SL1
026968,000444: 27,2620 57515 PDVL VCOMP
026969,000445: 27,2621 77635 VXV
026970,000446: 27,2622 02625 RPASS2
026971,000447: 27,2623 65241 DOT PDDL
026972,000448: 27,2624 02611 UP1
026973,000449: 27,2625 45565 SIGN STADR
026974,000450: 27,2626 51053 STOVL SNTH
026975,000451: 27,2627 02625 RPASS2
026976,000452: 27,2630 26651 STOVL RVEC
026977,000453: 27,2631 02617 VPASS2
026978,000454: 27,2632 77614 CLEAR
026979,000455: 27,2633 03666 RVSW
026980,000456: 27,2634 36740 STCALL VVEC
026981,000457: 27,2635 25004 TIMETHET
026982,000458: 27,2636 00023 STORE 18D
026983,000459: 27,2637 76441 DOT SL1R
026984,000460: 27,2640 03524 UNVEC
026985,000461: 27,2641 51515 PDVL ABVAL # 0D = V SUB PV
026986,000462: 27,2642 77715 PDVL
026987,000463: 27,2643 02453 RACT2
026988,000464: 27,2644 65246 ABVAL PDDL # 2D = LENGTH OF R SUB A
026989,000465: 27,2645 77625 DSU
026990,000466: 27,2646 00003 02D
026991,000467: 27,2647 16633 STODL DIFFALT # DELTA H IN METERS B+29
026992,000468: 27,2650 02736 R1A
026993,000469: 27,2651 65301 NORM PDDL # 2 - R V**/MU 04D
026994,000470: 27,2652 00047 X1
026995,000471: 27,2653 00041 R1
026996,000472: 27,2654 56362 SR1R DDV
026997,000473: 27,2655 41457 SL* PUSH
026998,000474: 27,2656 20174 0 -5,1
026999,000475: 27,2657 65225 DSU PDDL # A SUB A B+29 04D
027000,000476: 27,2660 02633 DIFFALT
027001,000477: 27,2661 56302 SR2 DDV # A SUB P B+31
027002,000478: 27,2662 00005 04D # B+2
027003,000479: 27,2663 75406 PUSH SQRT # A SUB P/A SUB A 06D
027004,000480: 27,2664 41275 DMPR DMP
027005,000481: 27,2665 00007 06D
027006,000482: 27,2666 00001 00D
027007,000483: 27,2667 65272 SL3R PDDL # V SUB AV METERS/CS B+7 08D
027008,000484: 27,2670 00003 02D # R SUB A MAGNITUDE B+29
027009,000485: 27,2671 65301 NORM PDDL
027010,000486: 27,2672 00047 X1
027011,000487: 27,2673 16731 RTMU
027012,000488: 27,2674 56342 SR1 DDV # 2MU B+38
027013,000489: 27,2675 65257 SL* PDDL # 2 MU/R SUBAA B+14 10D
027014,000490: 27,2676 20174 0 -5,1
027015,000491: 27,2677 00005 04D # ASUBA B+29
027016,000492: 27,2700 65301 NORM PDDL
027017,000493: 27,2701 00050 X2
027018,000494: 27,2702 16731 RTMU
027019,000495: 27,2703 56342 SR1 DDV
027020,000496: 27,2704 44257 SL* BDSU
027021,000497: 27,2705 57604 0 -6,2 # 2U/R - U/A B+14 (METERS/CS)SQ
027022,000498: 27,2706 63525 PDDL DSQ # 10D
027023,000499: 27,2707 00011 08D
027024,000500: 27,2710 75421 BDSU SQRT
027025,000501: 27,2711 47315 PDVL VXV # SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2) 10D
027026,000502: 27,2712 02611 UP1
027027,000503: 27,2713 03524 UNVEC
027028,000504: 27,2714 74256 UNIT VXSC
027029,000505: 27,2715 00013 10D
027030,000506: 27,2716 74315 PDVL VXSC
027031,000507: 27,2717 03524 UNVEC
027032,000508: 27,2720 00011 08D
027033,000509: 27,2721 76455 VAD VSL1
027034,000510: 27,2722 77626 STADR
027035,000511: 27,2723 74253 STORE VACT3
027036,000512: 27,2724 77651 VSU
027037,000513: 27,2725 02533 VACT2
027038,000514: 27,2726 37647 STCALL DELVEET2 # DELTA VCDH - REFERENCE COORDINATES
027039,000515: 27,2727 02236 SUBEXIT
027040,000516:
027041,000517: 27,2730 22437 16067 RTMU 2DEC* 3.986032 E10 B-36*
End of include-file P34.agc. Parent file is MAIN.agc