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.

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