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