Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
039284,000002: ## Copyright: Public domain.
039285,000003: ## Filename: LAMB.agc
039286,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
039287,000005: ## It is part of an early development version of the software
039288,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
039289,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
039290,000008: ## upon which Don Eyles's offline development program Shepatin
039291,000009: ## was based; the listing herein transcribed was actually for
039292,000010: ## the equivalent revision 0 of Shepatin.
039293,000011: ## This file is intended to be a faithful transcription, except
039294,000012: ## that the code format has been changed to conform to the
039295,000013: ## requirements of the yaYUL assembler rather than the
039296,000014: ## original YUL assembler.
039297,000015: ## Reference: pp. 865-884
039298,000016: ## Assembler: yaYUL
039299,000017: ## Contact: Ron Burkey <info@sandroid.org>.
039300,000018: ## Website: www.ibiblio.org/apollo/index.html
039301,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
039302,000020: ## 2017-06-10 MAS Updated for Sunburst 37.
039303,000021: ## 2017-06-14 HG Fix interpretive operand COGAMIN -> COGAMN
039304,000022: ## 2017-06-23 RSB Proofed comment text with
039305,000023: ## octopus/ProoferComments.
039306,000024:
![]() |
Page 865 |
039308,000026: 36,2430 BANK 36
039309,000027: 36,2430 E3,1671 EBANK= RTN
039310,000028:
039311,000029:
039312,000030: # PROGRAM NAME ... LAMBERT ROUTINE DATE ... 11/29/66
039313,000031:
039314,000032: # MOD NO ... 3 LOG SECTION ...LAMB
039315,000033:
039316,000034: # ASSEMBLY ... SUNBURST REVISION 03
039317,000035:
039318,000036: # MODIFICATION BY ... J.J. BESTER AND L.G. HULL
039319,000037: # FUNCTIONAL DESCRIPTION ...
039320,000038:
039321,000039: # THIS SUBROUTINE SOLVES FOR THE CONIC TRAJECTORY BETWEEN R0VEC AND R1VEC WHICH SATISFIES A SPECIFIED TIME
039322,000040: # OF FLIGHT, TFL. A SLOPE ITERATOR IS USED TO FORCE THE TIME OF FLIGHT TO CONVERGE.
039323,000041:
039324,000042:
039325,000043:
039326,000044: # CALLING SEQUENCE:
039327,000045:
039328,000046: # THIS ROUTINE IS CALLED IN THE INTERPRETIVE MODE BY
039329,000047: # CALL
039330,000048: # LAMBERT
039331,000049:
039332,000050:
039333,000051:
039334,000052: # NORMAL EXIT MODE:
039335,000053:
039336,000054: # EXIT FROM THIS ROUTINE IS IN BASIC BY
039337,000055: # TCF ENDOFJOB
039338,000056:
039339,000057:
039340,000058:
039341,000059: # OUTPUT:
039342,000060:
039343,000061: # THE OUTPUT OF THIS ROUTINE (WITH SCALING INDICATED IN PARENTHESES) CONSISTS OF ...
039344,000062:
039345,000063: # V0VEC (+7) -THE REQUIRED VELOCITY VECTOR IN METERS/CENTISECONDS
039346,000064:
039347,000065: # DONESW -THE DONE SWITCH INDICATING WHETHER THE JOB HAS BEEN COMPLETED. WHEN THE JOB IS DONE IT
039348,000066: # IS TURNED ON.
039349,000067:
039350,000068: # CONVSW - THE CONVERGENCE SWITCH INDICATING WHETHER THE ITERATION PROCESS HAS CONVERGED. IT IS TURNED
039351,000069: # ON IF CONVERGENCE HAS NOT OCCURRED, BUT AN ESTIMATE OF V0VEC IS NEVERTHELESS GIVEN.
039352,000070:
039353,000071:
039354,000072:
039355,000073: # INPUT:
039356,000074:
039357,000075: # THE QUANTITIES INPUTED AND THEIR SCALE FACTORS ARE ...
![]() |
Page 866 |
039359,000077: # RCOV (+25) -INITIAL POSITION IN METERS.
039360,000078: # R1VEC (+25) -THE TARGET POSITION IN METERS.
039361,000079:
039362,000080: # TFL (+28) -TIME OF FLIGHT IN CENTISECONDS.
039363,000081:
039364,000082: # UNNORM (+1) -A UNIT VECTOR IN THE DIRECTION OF THE ANGULAR MOMENTUM VECTOR.
039365,000083:
039366,000084: # TAG5 -A PARAMETER SET TO -0.5 IF THE TRUE ANOMALY DIFFERENCE BETWEEN R0VEC AND R1VEC IS MORE THAN
039367,000085: # 180 DEGREES. OTHERWISE IT SHOULD BE SET TO +0.5.
039368,000086:
039369,000087: # GUESSW -THE GUESS SWITCH, IF A FIRST GUESS TO THE COTANGENT OF THE FLIGHT PATH ANGLE IS AVAILABLE THE
039370,000088: # SWITCH SHOULD BE SET , CLEAR IF NO GUESS IS FORTHCOMING.
039371,000089:
039372,000090: # COGAVAIL (+5) -THE AVAILABLE COTANGENT OF THE FLIGHT PATH ANGLE. IF A GUESS IS AVAILABLE THE GUESSW SHOULD BE
039373,000091: # SET AND THE GUESS PLACED HERE BEFORE THE LAMBERT ROUTINE IS ENTERED. AFTER ONE PASS THROUGH
039374,000092: # LAMBERT, THE LAST ITERATED VALUE OF THE COTANGENT IS PLACED IN COGAVAIL AND MAY BE USED AS THE
039375,000093: # GUESS FOR THE NEXT PASS.
039376,000094:
039377,000095:
039378,000096:
039379,000097: # THE FOLLOWING SWITCHES ARE IN THIS ROUTINE , THOUGH THEY ARE NOT USED FOR THIS PARTICULAR MISSION AND ARE
039380,000098: # ALWAYS CLEAR IN 206.
039381,000099:
039382,000100: # MOONSW - THE MOON SWITCH: 1-INSIDE THE SPHERE OF INFLUENCE OF THE MOON (35,000 N.MI.)
039383,000101: # 0-OUTSIDE
039384,000102:
039385,000103: # ESCPSW -THE ESCAPE SWITCH: 1-HYPERBOLIC ORBIT
039386,000104: # 0-ELLIPTIC ORBIT
039387,000105:
039388,000106: # SMANGLSW -SMALL ANGLE SWITCH: 1-SMALL TRANSFER ANGLES
039389,000107: # 0-LARGE ANGLES (THE USUAL CASE)
039390,000108:
039391,000109: # TWO SWITCHES ARE USED INTERNALLY. THEY ARE ...
039392,000110:
039393,000111: # ITERSW -THE ITERATION SWITCH: 1-FIRST ITERATION IS TO TAKE PLACE
039394,000112: # 0-SUBSEQUENT ITERATIONS
039395,000113:
039396,000114: # PIESW -THE 180 DEGREES SWITCH: 1-ANGLES GREATER THAN 180 DEGREES WITH TAG5=-0.5
039397,000115: # 0-ANGLES LESS THAN 180, TAG5=0.5
039398,000116:
039399,000117:
039400,000118:
039401,000119: # DEBRIS ...
039402,000120:
039403,000121: # THE LAMBERT ROUTINE INTERNALLY USES SCALING WHICH IS DIFFERENT FROM THAT USED BY THE MAIN PROGRAM.
039404,000122: # INTERNAL TO LAMBERT,
039405,000123: # 7
039406,000124: # LENGTH IS SCALED BY RNORM = 2 RE
039407,000125:
039408,000126: # VELOCITY IS SCALED BY VNORM = 2 SQRT(MU/RE)
![]() |
Page 867 |
039410,000128: # 10 3
039411,000129: # TIME IS SCALED BY TNORM = 2 SQRT(RE /MU)
039412,000130: # WHERE MU IS THE GRAVITATIONAL CONSTANT TIMES THE MASS OF THE EARTH AND RE IS THE RADIUS OF THE EARTH.
039413,000131: # 22
039414,000132: # FOR RE, 2 METERS IS USED. HOWEVER, INPUT AND OUTPUT QUANTITIES HAVE SCALING COMPATIBLE WITH THE REST OF THE
039415,000133: # PROGRAM. RESCALING WILL BE DONE BY THE LAMBERT ROUTINE BEFORE COMPUTATIONS BEGIN.
039416,000134:
![]() |
Page 868 |
039418,000136: 36,2430 40214 LAMBERT SET SETPD
039419,000137: 36,2431 02062 ITERSW
039420,000138:
039421,000139: 36,2432 00001 0D
039422,000140: 36,2433 43014 CLEAR CLEAR
039423,000141: 36,2434 02265 MOONSW
039424,000142: 36,2435 02261 DONESW
039425,000143: 36,2436 43014 CLEAR CLEAR
039426,000144: 36,2437 02265 SMANGLSW
039427,000145: 36,2440 02264 PIESW
039428,000146: 36,2441 51145 DLOAD BPL
039429,000147: 36,2442 01673 TAG5
039430,000148: 36,2443 74446 +3
039431,000149:
039432,000150: 36,2444 77614 SET
039433,000151: 36,2445 02064 PIESW
039434,000152: 36,2446 77614 BON
039435,000153: 36,2447 02303 GUESSW
039436,000154: 36,2450 74456 +6
039437,000155: 36,2451 77745 DLOAD
039438,000156: 36,2452 35447 D1/4
039439,000157: 36,2453 01735 STORE TWEEKIT
039440,000158: 36,2454 77650 GOTO
039441,000159: 36,2455 74461 PROG
039442,000160: 36,2456 77745 DLOAD
039443,000161: 36,2457 35443 D1/64
039444,000162:
039445,000163: 36,2460 01735 STORE TWEEKIT
039446,000164: 36,2461 41345 PROG DLOAD DMP
039447,000165: 36,2462 02167 TFL
039448,000166: 36,2463 35473 TFACT
039449,000167: 36,2464 77652 SL3 # RESCALE TIME OF FLIGHT
039450,000168: 36,2465 25674 STOVL TF
039451,000169: 36,2466 02141 RCOV # RCOV (+25) ASSUMED
039452,000170: 36,2467 77702 VSR4
039453,000171: 36,2470 35711 STCALL R0VEC
039454,000172: 36,2471 74715 DTPRD
039455,000173:
039456,000174: 36,2472 77624 CALL
039457,000175: 36,2473 74736 CGTH
039458,000176: 36,2474 60345 DLOAD NORM
039459,000177: 36,2475 00045 36D
039460,000178: 36,2476 00047 X1
039461,000179: 36,2477 53665 BDDV SL*
039462,000180: 36,2500 00041 32D
039463,000181: 36,2501 20172 0 -7,1
039464,000182: 36,2502 14037 STODL 30D # 30D=R (+7)
039465,000183:
039466,000184: 36,2503 35451 D1/2
039467,000185: 36,2504 70425 DSU SR1
039468,000186:
039469,000187: 36,2505 00035 28D
039470,000188: 36,2506 00025 STORE 20D # 20D=1-CSTH (+2) (FOR PCALC IN LOOP)
039471,000189:
039472,000190: 36,2507 65301 NORM PDDL # 1-CSTH (+2-N1) PL AT 2D
![]() |
Page 869 |
039474,000192: 36,2510 00047 X1
039475,000193: 36,2511 00037 30D
039476,000194: 36,2512 77671 DDV # PL AT 0D
039477,000195: 36,2513 75457 SL* SQRT
039478,000196: 36,2514 20175 0 -4,1
039479,000197: 36,2515 44214 BOFF BDSU
039480,000198: 36,2516 02345 ESCPSW
039481,000199: 36,2517 74664 ELIPLMTS
039482,000200:
039483,000201: 36,2520 00021 16D
039484,000202: 36,2521 51406 PUSH ABS # PL AT 2D
039485,000203: 36,2522 44205 DMP BDSU # PL AT 0D
039486,000204: 36,2523 35461 PERCENT
039487,000205: 36,2524 77626 STADR
039488,000206: 36,2525 63744 STODL 26D # 26D=COGAMX
039489,000207:
039490,000208: 36,2526 00031 24D
039491,000209: 36,2527 77742 SR1
039492,000210: 36,2530 00023 STORE 18D # 18D=SIN(TH) (+2) (FOR PCALC IN LOOP)
039493,000211:
039494,000212: 36,2531 65301 NORM PDDL # SIN(TH) (+1-N1) PL AT 2D
039495,000213: 36,2532 00047 X1
039496,000214: 36,2533 00035 28D
039497,000215: 36,2534 45261 SR DSU
039498,000216: 36,2535 20607 6
039499,000217: 36,2536 00037 30D
039500,000218: 36,2537 00037 STORE 30D # 30D=COS(TH)-R (+7) (FOR PCALC IN LOOP)
039501,000219:
039502,000220: 36,2540 56214 BON DDV # PL AT 0D
039503,000221: 36,2541 02304 PIESW
039504,000222: 36,2542 74553 ABSMIN
039505,000223: 36,2543 40057 SL* BOV
039506,000224:
039507,000225: 36,2544 20201 0,1
039508,000226: 36,2545 74553 ABSMIN
039509,000227: 36,2546 51406 PUSH ABS # (CSTH-R)/SNTH (+5) PL AT 2D
039510,000228: 36,2547 43205 DMP DAD # PL AT 0D
039511,000229: 36,2550 35461 PERCENT
039512,000230: 36,2551 77650 GOTO
039513,000231: 36,2552 74556 +4
039514,000232: 36,2553 71201 ABSMIN SETPD DLOAD # PL AT 0D
039515,000233: 36,2554 00001 0D
039516,000234: 36,2555 35471 ABSOLMIN
039517,000235:
039518,000236: 36,2556 00027 STORE 22D # 22D=COGAMN (+5)
039519,000237: 36,2557 71214 BOFF DLOAD # PL AT 2D
039520,000238: 36,2560 02343 GUESSW
039521,000239: 36,2561 74644 FIRSTCOG
039522,000240: 36,2562 01676 COGAVAIL
039523,000241: 36,2563 45214 BON DSU # IF ESCPSW IS OFF, CHECK IF COGAVAIL
039524,000242: 36,2564 02305 ESCPSW # IS LESS THAN COGAMN
039525,000243: 36,2565 74577 LOOP
039526,000244: 36,2566 00027 22D
039527,000245: 36,2567 71244 BPL DLOAD
![]() |
Page 870 |
039529,000247: 36,2570 74575 +5
039530,000248:
039531,000249: 36,2571 00027 COGAMN # COGAVAIL IS A BAD GUESS, SO PUT
039532,000250: 36,2572 01676 STORE COGAVAIL # COGAMN IN COGAVAIL
039533,000251: 36,2573 77650 GOTO
039534,000252: 36,2574 74577 LOOP
039535,000253: 36,2575 77745 DLOAD
039536,000254: 36,2576 01676 COGAVAIL
039537,000255: 36,2577 01733 LOOP STORE INDEP
039538,000256: 36,2600 45205 DMP DSU
039539,000257: 36,2601 00023 18D
039540,000258: 36,2602 00037 30D
039541,000259: 36,2603 55301 NORM BDDV
039542,000260: 36,2604 00047 X1
039543,000261:
039544,000262: 36,2605 00025 20D
039545,000263: 36,2606 40057 SL* BOV
039546,000264: 36,2607 20172 0 -7,1
039547,000265: 36,2610 74712 SPEEDY
039548,000266: 36,2611 34043 PSTORE STCALL 34D # 34D=P (+2)
039549,000267: 36,2612 74751 SMAR
039550,000268: 36,2613 77624 CALL
039551,000269: 36,2614 74766 TRIGFNS
039552,000270: 36,2615 77624 CALL
039553,000271: 36,2616 75151 SMA
039554,000272:
039555,000273: 36,2617 77624 CALL
039556,000274: 36,2620 75217 DELTIME
039557,000275: 36,2621 01737 ZOOM STORE DEPVAR
039558,000276: 36,2622 77621 BDSU
039559,000277: 36,2623 01674 TF
039560,000278: 36,2624 01743 STORE DELDEP
039561,000279: 36,2625 45246 ABS DSU
039562,000280: 36,2626 35475 DEPCRIT
039563,000281: 36,2627 45040 BMN CALL
039564,000282: 36,2630 74651 TIMECONV
039565,000283: 36,2631 75316 ITERATOR
039566,000284: 36,2632 45246 ABS DSU
039567,000285:
039568,000286: 36,2633 35453 NEARZERO
039569,000287: 36,2634 71240 BMN DLOAD
039570,000288: 36,2635 74661 NOSOL
039571,000289: 36,2636 01737 DEPVAR
039572,000290: 36,2637 15741 STODL PREVDEP
039573,000291: 36,2640 01745 DELINDEP
039574,000292: 36,2641 52015 DAD GOTO
039575,000293: 36,2642 01733 INDEP
039576,000294: 36,2643 74577 LOOP
039577,000295: 36,2644 65342 FIRSTCOG SR1 PDDL # PL AT 2D
039578,000296:
039579,000297: 36,2645 00033 26D
039580,000298: 36,2646 43342 SR1 DAD # PL AT 0D
039581,000299: 36,2647 77650 GOTO
039582,000300: 36,2650 74577 LOOP
![]() |
Page 871 |
039584,000302: 36,2651 77745 TIMECONV DLOAD
039585,000303: 36,2652 01733 INDEP
039586,000304: 36,2653 01676 STORE COGAVAIL
039587,000305: 36,2654 34023 STCALL 18D # 18D=COGA (+5)
039588,000306: 36,2655 75405 INITV
039589,000307: 36,2656 77414 SET EXIT
039590,000308:
039591,000309: 36,2657 02061 DONESW
039592,000310: 36,2660 15605 TCF ENDOFJOB
039593,000311: 36,2661 52014 NOSOL SET GOTO
039594,000312: 36,2662 02060 CONVSW
039595,000313: 36,2663 74651 TIMECONV
039596,000314: 36,2664 43206 ELIPLMTS PUSH DAD # PL AT 2D
039597,000315: 36,2665 00021 16D
039598,000316: 36,2666 51406 PUSH ABS # PL AT 4D
039599,000317: 36,2667 44205 DMP BDSU # PL AT 2D
039600,000318: 36,2670 35461 PERCENT
039601,000319: 36,2671 77626 STADR
039602,000320: 36,2672 63744 STODL 26D # 26D=COGAMX (+5)
039603,000321: 36,2673 00035 28D
039604,000322: 36,2674 45261 SR DSU
039605,000323: 36,2675 20607 6
039606,000324: 36,2676 00037 30D
039607,000325: 36,2677 14037 STODL 30D # 30D=CSTH-R (+7)
039608,000326: 36,2700 00031 24D
039609,000327: 36,2701 77742 SR1
039610,000328: 36,2702 14023 STODL 18D
039611,000329: 36,2703 00021 16D
039612,000330: 36,2704 41425 DSU PUSH # PL AT 0D,2D
039613,000331:
039614,000332: 36,2705 41246 ABS DMP
039615,000333: 36,2706 35461 PERCENT
039616,000334: 36,2707 77615 DAD # PL AT 0D
039617,000335: 36,2710 77650 GOTO
039618,000336: 36,2711 74556 ABSMIN +3
039619,000337: 36,2712 52145 SPEEDY DLOAD GOTO
039620,000338: 36,2713 35076 DZERO
039621,000339: 36,2714 74621 ZOOM
039622,000340: # V0VEC (+1) IN MPAC.
039623,000341:
![]() |
Page 872 |
039625,000343: # THIS SECTION CALCULATES THE SINE AND COSINE OF THE ANGLE BETWEEN R0VEC
039626,000344: # AND R1VEC. THE SIGN OF SIN(TH) IS DETERMINED BY TAG5. THE COSINE OF THE
039627,000345:
039628,000346: # ANGLE IS STORED IN 28D WHILE THE SINE IS IN MPAC AS WELL AS IN 24D, BOTH
039629,000347: # ARE SCALED BY (+2).
039630,000348:
039631,000349:
039632,000350:
039633,000351: # ASSUMES R0VEC (+7) , R1VEC (+7) , TAG5 (+/- ACCORDING TO ANGLE GREATER
039634,000352: # OR LESS THAN 180 DEG) AVAILABLE.
039635,000353: 36,2715 53575 DTPRD VLOAD UNIT
039636,000354: 36,2716 01711 R0VEC
039637,000355: 36,2717 15703 STODL UNR1
039638,000356:
039639,000357: 36,2720 00045 36D
039640,000358: 36,2721 24041 STOVL 32D # 32D=R1 (+7)
039641,000359: 36,2722 02365 R1VEC
039642,000360: 36,2723 77702 VSR4
039643,000361: 36,2724 41456 UNIT PUSH # 32D=R1 (+7) PL AT 6D
039644,000362: 36,2725 72441 DOT SL1
039645,000363: 36,2726 01703 UNR1
039646,000364: 36,2727 24035 STOVL 28D # 28D=COS(TH) (+1)
039647,000365: 36,2730 01703 UNR1
039648,000366: 36,2731 76435 VXV VSL1 # PL AT 0D
039649,000367: 36,2732 75246 ABVAL SIGN
039650,000368: 36,2733 01673 TAG5
039651,000369:
039652,000370: 36,2734 00031 STORE 24D # 24D=SIN(TH) (+1)
039653,000371: 36,2735 77616 RVQ
039654,000372:
039655,000373: # 28D=COS(TH) (+1), 24D=SIN(TH) (+1)=MPAC.
039656,000374:
![]() |
Page 873 |
039658,000376: # THIS SECTION COMPUTES COT(TH/2) = (1+COS(TH))/SIN(TH) SCALED BY (+5),
039659,000377: # AND STORES IT IN 16D. NOTE THAT COT(TH/2) WILL OVERFLOW IF THE ANGLE
039660,000378: # TH IS LESS THAN 3 DEG 35 MINUTES OR GREATER THAN 356 DEG 25 MINUTES.
039661,000379:
039662,000380:
039663,000381:
039664,000382: # ASSUMES SNTH(+1) IN MPAC, 28D=CSTH (+1).
039665,000383: 36,2736 60254 CGTH BZE NORM # SNTH (+1-N1)
039666,000384:
039667,000385: 36,2737 74747 THISPI
039668,000386: 36,2740 00047 X1
039669,000387: 36,2741 70525 PDDL SR1
039670,000388: 36,2742 00035 28D
039671,000389: 36,2743 56215 DAD DDV # PL AT 0D
039672,000390: 36,2744 35447 D1/4
039673,000391: 36,2745 77657 SL*
039674,000392: 36,2746 20175 0 -4,1
039675,000393: 36,2747 00021 THISPI STORE 16D
039676,000394: 36,2750 77616 RVQ
039677,000395:
039678,000396: # COGTH (+5)=16D.
039679,000397:
![]() |
Page 874 |
039681,000399: # THIS SECTION USES COT(GAMMA),I.E. COGA (+5) AND P (+2) TO CALCULATE R1A
039682,000400:
039683,000401: # SCALED BY (+6) AND STORES THE RESULT IN 14D.
039684,000402:
039685,000403:
039686,000404:
039687,000405: # ASSUMES COGA=INDEP (+5), P (+2)=34D.
039688,000406: 36,2751 63545 SMAR DLOAD DSQ
039689,000407: 36,2752 01733 INDEP
039690,000408: 36,2753 60215 DAD NORM
039691,000409: 36,2754 35441 D1/1024
039692,000410: 36,2755 00047 X1
039693,000411: 36,2756 53605 DMP SR*
039694,000412: 36,2757 00043 34D
039695,000413:
039696,000414: 36,2760 20573 0 -6,1
039697,000415: 36,2761 40021 BDSU BOV
039698,000416: 36,2762 35445 D1/32
039699,000417: 36,2763 74712 SPEEDY
039700,000418: 36,2764 00017 SMARSTOR STORE 14D # 14D=R1A (+6)
039701,000419: 36,2765 77616 RVQ
039702,000420:
039703,000421:
039704,000422:
039705,000423: # R1A (+6)=2-P(1+COGA*COGA) IN 14D.
039706,000424:
![]() |
Page 875 |
039708,000426: # ASSUMES 16D=COGTH (+5), INDEP=COGA(+5), 34D=P (+2), 14D= R1A (+6).
039709,000427: 36,2766 45345 TRIGFNS DLOAD DSU
039710,000428: 36,2767 00021 16D
039711,000429: 36,2770 01733 INDEP
039712,000430: 36,2771 00045 STORE 36D # 36D=DCOT=COT(TH/2)-COGA (+5)
039713,000431:
039714,000432:
039715,000433: 36,2772 60316 DSQ NORM
039716,000434: 36,2773 00047 X1
039717,000435: 36,2774 70405 DMP SR1
039718,000436: 36,2775 00043 34D
039719,000437: 36,2776 51525 PDDL ABS # DCOT*DCOT (+13-N1) PL AT 2D
039720,000438: 36,2777 00017 14D
039721,000439: 36,3000 55301 NORM BDDV # COGDS (+7-N1+N2) PL AT 0D
039722,000440: 36,3001 00051 S1
039723,000441: 36,3002 53660 XSU,1 SR*
039724,000442: 36,3003 00050 S1
039725,000443: 36,3004 20604 3,1
039726,000444: 36,3005 77600 BOV
039727,000445:
039728,000446: 36,3006 75146 COGDSOVF
039729,000447: 36,3007 75206 COGDSTOR PUSH SIGN # COGDS (+10)
039730,000448: 36,3010 00017 14D
039731,000449: 36,3011 60215 DAD NORM
039732,000450: 36,3012 35441 D1/1024
039733,000451: 36,3013 00047 X1
039734,000452: 36,3014 65265 BDDV PDDL # 2D=1-CSD (-7+N1) PL AT 4D
039735,000453: 36,3015 35447 D1/4
039736,000454: 36,3016 00001 0D
039737,000455: 36,3017 60366 SQRT NORM
039738,000456:
039739,000457: 36,3020 00050 X2
039740,000458: 36,3021 75205 DMP SIGN
039741,000459: 36,3022 00003 2D
039742,000460: 36,3023 00045 36D # SND=+-(1-CSD)SQRT(COGDS) (-2+N1-N2)
039743,000461: 36,3024 43064 XSU,2 BON
039744,000462: 36,3025 00046 X1
039745,000463: 36,3026 02305 ESCPSW
039746,000464: 36,3027 75053 HYPTRIG # DUE TO DIFFERENT SCALING
039747,000465: 36,3030 65257 SR* PDDL # DXNGE WITH PD,2D=SND (+1) PL AT 4D
039748,000466: 36,3031 57173 3,2
039749,000467: 36,3032 40057 SL* BOV
039750,000468: 36,3033 20171 0 -8D,1
039751,000469:
039752,000470: 36,3034 75050 HALFCIRC
039753,000471: 36,3035 57406 COSFN PUSH DCOMP # 4D=(1-CSD)(+1) PL AT 6D
039754,000472: 36,3036 65415 DAD ACOS
039755,000473: 36,3037 35451 D1/2
039756,000474: 36,3040 41365 SIGN DMP
039757,000475: 36,3041 00045 36D
039758,000476: 36,3042 05600 PI/4 # CONVERT FROM CIRCLES TO RADIANS/8
039759,000477: 36,3043 43244 BPL DAD
039760,000478: 36,3044 75046 +2
039761,000479: 36,3045 05600 PI/4
![]() |
Page 876 |
039763,000481: 36,3046 00001 STORE 0D # 0D=DELTAE (+3)
039764,000482: 36,3047 77616 RVQ
039765,000483:
039766,000484:
039767,000485:
039768,000486: 36,3050 52145 HALFCIRC DLOAD GOTO
039769,000487: 36,3051 35455 NEARI
039770,000488: 36,3052 75035 COSFN
039771,000489: 36,3053 57457 HYPTRIG SR* DCOMP
039772,000490: 36,3054 57162 12D,2
039773,000491: 36,3055 77725 PDDL # DXNGE WITH PD,2D=SND (+10) PL AT 4D
039774,000492: 36,3056 41457 SL* PUSH
039775,000493:
039776,000494: 36,3057 20160 0 -17D,1 # 4D=(1-CSD) (+10) PL AT 6D
039777,000495: 36,3060 43276 DCOMP DAD
039778,000496: 36,3061 35441 D1/1024
039779,000497: 36,3062 65342 SR1 PDDL # PL AT 8D
039780,000498: 36,3063 00003 2D
039781,000499: 36,3064 43342 SR1 DAD # ARG=COSH(DELG)+SINH(DELG) (+11) PL AT 6D
039782,000500:
039783,000501: 36,3065 44301 NORM BDSU # THIS IS AN ARCSINH ROUTINE
039784,000502: 36,3066 01700 SPLOC # ARG=.5-ARG (+11-N1)
039785,000503: 36,3067 35451 D1/2
039786,000504: 36,3070 77776 EXIT
039787,000505: 36,3071 34557 ARCSINH CA TEN
039788,000506:
039789,000507: 36,3072 27677 ADS SPLOC # C(SPLOC)=10-N1
039790,000508: 36,3073 07265 TC POLY
039791,000509: 36,3074 00011 DEC 9 B-14
039792,000510: 36,3075 00000 00000 DZERO 2DEC .0
039793,000511:
039794,000512: 36,3077 00400 00000 2DEC .015625
039795,000513:
039796,000514: 36,3101 00400 00000 2DEC .015625
039797,000515:
039798,000516: 36,3103 00525 12525 2DEC .020833333
039799,000517:
039800,000518: 36,3105 01000 00000 2DEC .03125
039801,000519:
039802,000520: 36,3107 01463 06315 2DEC .05
039803,000521:
039804,000522: 36,3111 02525 12525 2DEC .083333333
039805,000523:
039806,000524: 36,3113 04444 22222 2DEC .14285714
039807,000525:
039808,000526: 36,3115 10000 00000 2DEC .25
039809,000527:
039810,000528: 36,3117 16161 30706 2DEC .44444444
039811,000529:
039812,000530:
039813,000531: 36,3121 31463 06315 2DEC .8
039814,000532:
039815,000533: 36,3123 37761 CAF ZERO
039816,000534:
![]() |
Page 877 |
039818,000536: 36,3124 54146 TS MPAC +2
039819,000537: 36,3125 00006 EXTEND
039820,000538: 36,3126 33463 DCA LN2/128
039821,000539: 36,3127 52145 DXCH MPAC # MPAC,+1 CONTAINS LN2/128
039822,000540: 36,3130 53701 DXCH SPLOC +1 # SPLOC+1,+2 CONTAINS LN(1/2-ARGS)/128
039823,000541: 36,3131 31677 CA SPLOC
039824,000542: 36,3132 07351 TC SHORTMP
039825,000543: 36,3133 52146 DXCH MPAC +1
039826,000544:
039827,000545: 36,3134 52145 DXCH MPAC # MPAC CONTAINS (10-N1)LN2/128
039828,000546: 36,3135 53701 DXCH SPLOC +1 # A,L CONTAIN LN(1/2-ARGS)/128
039829,000547: 36,3136 00006 EXTEND
039830,000548: 36,3137 40001 DCOM
039831,000549: 36,3140 20145 DAS MPAC
039832,000550: 36,3141 06103 TC INTPRET
039833,000551: 36,3142 77661 SR
039834,000552: 36,3143 20606 5
039835,000553: 36,3144 00001 STORE 0D # 0D=DELG (+12) PL AT 6D
039836,000554: 36,3145 77616 RVQ
039837,000555:
039838,000556:
039839,000557:
039840,000558: 36,3146 52145 COGDSOVF DLOAD GOTO
039841,000559: 36,3147 35457 BIGNO # BIGNO=NEARONE-DP1/1024
039842,000560: 36,3150 75007 COGDSTOR
039843,000561: # RETURNS WITH 0D=DELE (+3) OR DELG(+12),,2D=SND (+1 OR +10),4D=1-CSD (+1
039844,000562: # OR +10), AND PUSHLOC AT 6D
039845,000563:
![]() |
Page 878 |
039847,000565: # ASSUMES 14D=R1A (+6), 32D= R1 (+7)
039848,000566:
039849,000567: 36,3151 60345 SMA DLOAD NORM # THIS IS ESSENTIALLY A FLOATING POINT SUB
039850,000568: 36,3152 00017 14D # C(SPLOC+1)=-N1
039851,000569: 36,3153 01701 SPLOC +1 # SPLOC LATER WILL BE STORED IN X1 FOR SHF
039852,000570: 36,3154 60325 PDDL NORM
039853,000571: 36,3155 00041 32D
039854,000572: 36,3156 01700 SPLOC # C(SPLOC)=-N2
039855,000573: 36,3157 56342 SR1 DDV
039856,000574: 36,3160 77446 ABS EXIT # ABS(R1/R1A) (+2+N1-N2)
039857,000575: 36,3161 41700 CS SPLOC +1
039858,000576: 36,3162 61677 AD SPLOC
039859,000577: 36,3163 55677 TS SPLOC
039860,000578: 36,3164 54020 TS CYR
039861,000579:
039862,000580: 36,3165 30020 CA CYR
039863,000581: 36,3166 60000 DOUBLE
039864,000582: 36,3167 54000 OVSK
039865,000583: 36,3170 13173 TCF EVEN
039866,000584: 36,3171 37755 ODD CA ONE
039867,000585: 36,3172 13174 TCF STORETAG
039868,000586: 36,3173 37761 EVEN CA ZERO
039869,000587: 36,3174 55700 STORETAG TS SPLOC +1 # A TAG TO DESIGNATE ADDITIONAL SHIFTRIGHT
039870,000588: 36,3175 27677 ADS SPLOC # C(SPLOC)=N1-N2+0 OR 1
039871,000589: 36,3176 31677 CA SPLOC
039872,000590:
039873,000591: 36,3177 54021 TS SR
039874,000592: 36,3200 60021 AD SR
039875,000593: 36,3201 55677 TS SPLOC # C(SPLOC)=3(N1-N2+0 OR 1)/2
039876,000594: 36,3202 06103 TC INTPRET
039877,000595: 36,3203 53740 LXC,1 SR*
039878,000596: 36,3204 01700 SPLOC +1
039879,000597: 36,3205 20601 0,1
039880,000598: 36,3206 73006 PUSH LXA,2 # ABS(R1/R1A) (+2+N1-N2+0 OR 1) PL DOWN 2
039881,000599: 36,3207 01677 SPLOC # C(X2)=+3(N1-N2+0 OR 1)/2
039882,000600: 36,3210 41366 SQRT DMP # ARG TO THE 3/2 POWER,SCALED +3+(3/2)(N1
039883,000601: # -N2 +0 OR 1) PL UP 2
039884,000602: 36,3211 41214 BOFF DMP
039885,000603:
039886,000604: 36,3212 02345 MOONSW
039887,000605: 36,3213 75215 +2
039888,000606: 36,3214 35465 ROOTMU
039889,000607: 36,3215 00015 STORE 12D # 12D=SQRT(ABS(R1/R1A))ABS(R1/R1A)
039890,000608: 36,3216 77616 RVQ # SCALED (+3 OR +7)+(3/2)(N1-N2+0 OR 1)
039891,000609: # SMA TO THE 3/2 POWER * ROOTMU IN 12D.
039892,000610: # IF LSW1 SET, INSIDE SPHERE AND 12D SCALED +7+C(X2)
039893,000611: # IF LSW1 OFF, OUTSIDE SPHERE AND 12D SCALED +3+C(X2)
039894,000612:
![]() |
Page 879 |
039896,000614: # THIS IS KEPLERS EQUATION FOR TIME-OF-FLIGHT BETWEEN TWO POINTS ON A
039897,000615: # CONIC TRAJECTORY. IT ASSUMES R1A (+6)=14D, P (+2)=34D, 1-CSD (+1,+10,-2
039898,000616: # =4D, SND (+1,+10,-2)=2D, D (+3,+12,0)=0D.
039899,000617:
039900,000618: 36,3217 41345 DELTIME DLOAD DMP # PL AT 6D
039901,000619: 36,3220 00043 34D
039902,000620:
039903,000621: 36,3221 00017 14D
039904,000622: 36,3222 40061 SL BOV
039905,000623: 36,3223 20207 6
039906,000624: 36,3224 74712 SPEEDY
039907,000625: 36,3225 75446 ABS SQRT
039908,000626: 36,3226 77605 DMP # PL AT 4D
039909,000627: 36,3227 72205 DMP TLOAD
039910,000628: 36,3230 01733 INDEP
039911,000629: 36,3231 00145 MPAC # CHANGES MODE TO TP (00001).
039912,000630: 36,3232 45325 PDDL DSU # SQRT(P ABS(R1A))(1-CSD)COGA (+7 OR 16)
039913,000631: 36,3233 00017 14D # PL AT 7D
039914,000632: 36,3234 35443 D1/64
039915,000633:
039916,000634: 36,3235 77605 DMP
039917,000635: 36,3236 00003 2D
039918,000636: 36,3237 65351 TLOAD PDDL # (R1A-1)SND (+7 OR16)
039919,000637: 36,3240 00145 MPAC # CHANGES MODE TO TP PL AT 10D
039920,000638: 36,3241 00001 0D
039921,000639: 36,3242 76202 SR4 TAD # PL PUSHES UP 3 SINCE TAD GOVERNS INSTEAD
039922,000640: 36,3243 77771 TAD # OF MODE. MODE REMAINS DP. PL AT 7D,4D
039923,000641: 36,3244 75301 NORM SIGN
039924,000642: 36,3245 00047 X1
039925,000643: 36,3246 00017 14D
039926,000644:
039927,000645: 36,3247 56005 DMP XAD,1 # T (+(3 OR 7)+C(X2)+(7 OR 16)+C(X1))
039928,000646: 36,3250 00015 12D
039929,000647: 36,3251 00047 X2
039930,000648: 36,3252 77614 BON
039931,000649: 36,3253 02305 SMANGLSW
039932,000650: 36,3254 75305 THETASM
039933,000651: 36,3255 43014 BOFF BOFF
039934,000652: 36,3256 02345 MOONSW
039935,000653: 36,3257 75270 NEARERTH
039936,000654: 36,3260 02345 ESCPSW
039937,000655: 36,3261 75265 +4
039938,000656: 36,3262 52057 SR* GOTO
039939,000657:
039940,000658: 36,3263 20564 0 -13D,1
039941,000659: 36,3264 75300 TMESTORE
039942,000660: 36,3265 52057 SR* GOTO
039943,000661: 36,3266 20575 0 -4,1
039944,000662: 36,3267 75300 TMESTORE
039945,000663: 36,3270 53614 NEARERTH BOFF SR*
039946,000664: 36,3271 02345 ESCPSW
039947,000665: 36,3272 75276 +4
039948,000666: 36,3273 20570 0 -9D,1
039949,000667: 36,3274 77650 GOTO
![]() |
Page 880 |
039951,000669: 36,3275 75300 TMESTORE
039952,000670: 36,3276 77657 SR*
039953,000671:
039954,000672: 36,3277 20601 0,1
039955,000673: 36,3300 77600 TMESTORE BOV
039956,000674: 36,3301 75313 TIMELONG
039957,000675: 36,3302 00015 STORE 12D # 12D=T (+10)
039958,000676: 36,3303 43401 SETPD RVQ
039959,000677: 36,3304 00001 0D
039960,000678:
039961,000679:
039962,000680:
039963,000681: 36,3305 42414 THETASM BOFF SL4 # T (+7 +C(X1))
039964,000682:
039965,000683: 36,3306 02342 ITERSW
039966,000684: 36,3307 75310 ERTHSFER
039967,000685: 36,3310 52057 ERTHSFER SR* GOTO
039968,000686: 36,3311 20604 3,1
039969,000687: 36,3312 75300 TMESTORE
039970,000688:
039971,000689: 36,3313 52145 TIMELONG DLOAD GOTO
039972,000690: 36,3314 35455 NEARI
039973,000691: 36,3315 75302 TMESTORE +2
039974,000692:
039975,000693:
039976,000694:
039977,000695: # T (+10) IN 12D AND IN MPAC.
039978,000696:
039979,000697:
![]() |
Page 881 |
039981,000699: # THIS IS A GENERAL NEWTON ITERATOR WHEREIN A STARTING INDEPENDENT VARIABL
039982,000700: # IS INPUT AND THE CHANGE IN THE INDEPENDENT VARIABLE IS OUTPUT. THE
039983,000701: # BOUNDS OF THE INDEPENDENT VARIABLE,MAXINDEP AND MININDEP, MUST BE AVAILA
039984,000702: # BLE AND SWITCH 7 MUST BE SET. IF A GOOD GUESS TO INDEP IS KNOWN,
039985,000703: # TWEEKIT SHOULD BE SET TO A SMALL FRACTION,DEPENDING ON HOW WELL INDEP IS
039986,000704: # KNOWN. OTHERWISE THE FIRST GUESS TO INDEP SHOULD BE .5(MAXINDEP+MININ-
039987,000705: # DEP) AND TWEEKIT SHOULD BE SET TO .25. IT IS ASSUMED THAT THE CRITERIA
039988,000706: # FOR EXITING FROM THE CALLING PROGRAMS LOOP IS IN THE CALLING PROGRAM.
039989,000707:
039990,000708: # THE DEPENDENT VARIABLE MUST BE IN DEPVAR AND THE PREVIOUS ONE MUST BE IN
039991,000709: # PREVDEP. THE SIGN OF TWEEKIT SOULD BE +/- ACCORDING TO WHETHER THE
039992,000710: # SINGLE-VALUED FUNCTION IS MONOTONICLY INCREASING OR DECREASING.
039993,000711:
039994,000712:
039995,000713:
039996,000714: 36,3316 71214 ITERATOR BONCLR DLOAD
039997,000715: 36,3317 02202 ITERSW
039998,000716: 36,3320 75347 FRSTTIME
039999,000717: 36,3321 01737 DEPVAR
040000,000718:
040001,000719: 36,3322 60225 DSU NORM
040002,000720: 36,3323 01741 PREVDEP
040003,000721: 36,3324 00047 X1
040004,000722: 36,3325 70525 PDDL SR1 # PL DOWN 2
040005,000723: 36,3326 01743 DELDEP
040006,000724: 36,3327 77671 DDV # PL UP 2
040007,000725: 36,3330 53605 DMP SL*
040008,000726: 36,3331 01745 DELINDEP
040009,000727: 36,3332 20202 1,1
040010,000728: 36,3333 01745 NEWDELTA STORE DELINDEP
040011,000729: 36,3334 71240 BMN DLOAD # NOW MUST CHECK TO SEE IF THIS DELTA CAN
040012,000730: 36,3335 75361 MINCHECK # CAUSE THE INDEPENDENT VARIABLE TO EXCEED
040013,000731:
040014,000732: 36,3336 00033 MAXINDEP # ITS LIMITS.
040015,000733: 36,3337 45225 DSU DSU
040016,000734: 36,3340 01733 INDEP
040017,000735: 36,3341 01745 DELINDEP
040018,000736: 36,3342 50000 BOV BMN
040019,000737: 36,3343 75373 XEEDULMT
040020,000738: 36,3344 75373 XEEDULMT
040021,000739: 36,3345 43545 DLOAD RVQ
040022,000740: 36,3346 01745 DELINDEP
040023,000741:
040024,000742:
040025,000743:
040026,000744: 36,3347 41345 FRSTTIME DLOAD DMP
040027,000745: 36,3350 00027 MININDEP
040028,000746: 36,3351 01735 TWEEKIT # TWEEKIT SHOULD BE SET .25 IF THE FIRST
040029,000747: # GUESS OF INDEP WAS .5(MAXINDEP+MININDEP)
040030,000748: 36,3352 41325 PDDL DMP # DOWN 2D
040031,000749: 36,3353 00033 MAXINDEP
040032,000750: 36,3354 01735 TWEEKIT
040033,000751: 36,3355 77625 DSU # UP 2D
![]() |
Page 882 |
040035,000753: 36,3356 52165 SIGN GOTO
040036,000754:
040037,000755: 36,3357 01743 DELDEP
040038,000756: 36,3360 75333 NEWDELTA
040039,000757: 36,3361 45345 MINCHECK DLOAD DSU
040040,000758: 36,3362 00027 MININDEP
040041,000759: 36,3363 01733 INDEP
040042,000760: 36,3364 40025 DSU BOV
040043,000761: 36,3365 01745 DELINDEP
040044,000762: 36,3366 75400 XEEDLLMT
040045,000763: 36,3367 71244 BPL DLOAD
040046,000764: 36,3370 75400 XEEDLLMT
040047,000765: 36,3371 01745 DELINDEP
040048,000766: 36,3372 77616 RVQ
040049,000767:
040050,000768:
040051,000769:
040052,000770:
040053,000771: 36,3373 45345 XEEDULMT DLOAD DSU
040054,000772: 36,3374 00033 MAXINDEP
040055,000773: 36,3375 01733 INDEP
040056,000774: 36,3376 01745 STORE DELINDEP
040057,000775: 36,3377 77616 RVQ
040058,000776:
040059,000777:
040060,000778: 36,3400 45345 XEEDLLMT DLOAD DSU
040061,000779: 36,3401 00027 MININDEP
040062,000780: 36,3402 01733 INDEP
040063,000781: 36,3403 01745 STORE DELINDEP
040064,000782: 36,3404 77616 RVQ
040065,000783:
![]() |
Page 883 |
040067,000785: # ASSUMES 32D=R (+7), 34D=P (+2), TAG5 (+/-), 18D=COGA (+5), UNR1 (+1), R2
040068,000786: # VEC (+7) AVAILABLE.
040069,000787: 36,3405 60345 INITV DLOAD NORM
040070,000788: 36,3406 00041 32D
040071,000789: 36,3407 00047 X1
040072,000790: 36,3410 70525 PDDL SR1 # R1 (+7-N1) PL AT 2D
040073,000791:
040074,000792: 36,3411 00043 34D
040075,000793: 36,3412 77671 DDV # P/R1 (-4+N1) PL AT 0D
040076,000794: 36,3413 41214 BOFF DMP
040077,000795: 36,3414 02345 MOONSW
040078,000796: 36,3415 75422 OUTSIDE
040079,000797: 36,3416 35467 MU
040080,000798: 36,3417 52057 SL* GOTO
040081,000799: 36,3420 20165 0 -12D,1
040082,000800: 36,3421 75424 MAGVTAN
040083,000801: 36,3422 77657 OUTSIDE SL*
040084,000802: 36,3423 20173 0 -6,1
040085,000803: 36,3424 63366 MAGVTAN SQRT PDVL # V SIN(GAMMA) (+1) PL AT 2D
040086,000804:
040087,000805:
040088,000806: 36,3425 01703 UNR1
040089,000807: 36,3426 63361 VXSC PDVL # 2D=COGA UNR1 (+6) PL AT 8D
040090,000808: 36,3427 00023 18D
040091,000809: 36,3430 01725 UNNORM
040092,000810: 36,3431 60435 VXV VSR4 # UNVTAN (+6)
040093,000811: 36,3432 01703 UNR1
040094,000812: 36,3433 74255 VAD VXSC # PL AT 2D,0D
040095,000813: 36,3434 46561 VXSC VSL7
040096,000814: 36,3435 35473 VFACT # SCALE FOR ASCENT STEERING AT +7
040097,000815:
040098,000816: 36,3436 01717 STORE V0VEC
040099,000817: 36,3437 77616 RVQ
040100,000818:
040101,000819: # RETURNS WITH VELOCITY IN MPAC AND IN V0VEC SCALED (+1)
040102,000820:
040103,000821:
![]() |
Page 884 |
040105,000823: 36,3440 00020 00000 D1/1024 2DEC .5 B-9
040106,000824:
040107,000825: 36,3442 00400 00000 D1/64 2DEC .5 B-5
040108,000826:
040109,000827: 36,3444 01000 00000 D1/32 2DEC .5 B-4
040110,000828:
040111,000829: 36,3446 10000 00000 D1/4 2DEC .5 B-1
040112,000830:
040113,000831: 36,3450 20000 00000 D1/2 2DEC .5
040114,000832:
![]() |
The following line is "NEARZERO 2OCT B0" in the original program listing, but the yaYUL assembler does not syntactically support a bare exponent like "B0" in the operand, so it has been replaced by a numerical equivalent that the assembler does support. |
040118,000836: 36,3452 00000 00001 NEARZERO 2OCT 1
040119,000837:
040120,000838: 36,3454 37777 37777 NEARI 2OCT 3777737777
040121,000839:
040122,000840: 36,3456 37757 37777 BIGNO 2OCT 3775737777
040123,000841:
040124,000842: 36,3460 00020 14223 PERCENT 2DEC E-3 B-28
040125,000843:
040126,000844: 36,3462 00130 27103 LN2/128 2DEC .693147181 B-7
040127,000845:
040128,000846: 36,3464 22031 22343 ROOTMU 2DEC 9.0249769 B-4
040129,000847:
040130,000848: 36,3466 31111 32405 MU 2DEC .0122774395 B+6
040131,000849:
040132,000850:
040133,000851: 36,3470 40010 40042 ABSOLMIN 2DEC -.999511590
040134,000852:
040135,000853: 36,3472 30276 05000 VFACT 2DEC .761606218
040136,000854:
040137,000855: 36,3474 36,3472 TFACT EQUALS VFACT
040138,000856: 36,3474 00000 00003 DEPCRIT 2DEC .000000012
040139,000857:
040140,000858: 36,3476 COGAMN EQUALS 22D # TEMP PATCH BY COVELLI ******************
End of include-file LAMB.agc. Parent file is MAIN.agc