Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

039814,000002:                                                                                                  ## Copyright:   Public domain.
039815,000003:                                                                                                  ## Filename:    LAMB.agc
039816,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
039817,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
039818,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
039819,000007:                                                                                                  ## Assembler:   yaYUL
039820,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039821,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
039822,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
039823,000011:                                                                                                  ##              2016-10-19 RSB  Transcribed from scratch.  Ouch!
039824,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
039825,000013:                                                                                                  ##              2016-11-01 RSB  A line reading "OCT B0", which is not supported by yaYUL,
039826,000014:                                                                                                  ##                              has been replaced by "OCT 1", in lieu of modifying 
039827,000015:                                                                                                  ##                              yaYUL at this time.  An appropriate program comment was 
039828,000016:                                                                                                  ##                              also added at this point in the code.  Plus, more typos.
039829,000017:                                                                                                  ##              2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
039830,000018:                                                                                                  ##                               changes made.
039831,000019:                                                                                                  ##              2017-06-10 MAS  Corrected typos and a missing comment found while
039832,000020:                                                                                                  ##                              updating for Sunburst 37.
039833,000021: 
039834,000022: 
039835,000023: 

Page 926

039837,000025: 36,2625                                           BANK     36                                    
039838,000026: 36,2625  E3,1663                                  EBANK=   SCAXIS                                
039839,000027: 
039840,000028:                                                                                                  #   PROGRAM NAME ... LAMBERT ROUTINE                                        DATE ... 11/29/66
039841,000029: 
039842,000030:                                                                                                  #   MOD NO ... 3                                                            LOG SECTION ...LAMB
039843,000031:                                                                                                  #                                                                           ASSEMBLY ... SUNBURST REVISION 03
039844,000032: 
039845,000033:                                                                                                  #   MODIFICATION BY ... J.J. BESTER AND L.G. HULL
039846,000034:                                                                                                  #   FUNCTIONAL DESCRIPTION ...
039847,000035: 
039848,000036:                                                                                                  #     THIS SUBROUTINE SOLVES FOR THE CONIC TRAJECTORY BETWEEN R0VEC AND R1VEC WHICH SATISFIES A SPECIFIED TIME
039849,000037:                                                                                                  #   OF FLIGHT, TFL.  A SLOPE ITERATOR IS USED TO FORCE THE TIME OF FLIGHT TO CONVERGE.
039850,000038: 
039851,000039: 
039852,000040: 
039853,000041:                                                                                                  #   CALLING SEQUENCE:
039854,000042: 
039855,000043:                                                                                                  #   THIS ROUTINE IS CALLED IN THE INTERPRETIVE MODE BY
039856,000044:                                                                                                  #                                                                  CALL
039857,000045:                                                                                                  #                                                                           LAMBERT
039858,000046: 
039859,000047: 
039860,000048: 
039861,000049:                                                                                                  #   NORMAL EXIT MODE:
039862,000050: 
039863,000051:                                                                                                  #   EXIT FROM THIS ROUTINE IS IN BASIC BY
039864,000052:                                                                                                  #                                                                  TCF      ENDOFJOB
039865,000053: 
039866,000054: 
039867,000055: 
039868,000056:                                                                                                  #   OUTPUT:
039869,000057: 
039870,000058:                                                                                                  #   THE OUTPUT OF THIS ROUTINE (WITH SCALING INDICATED IN PARENTHESES) CONSISTS OF ...
039871,000059: 
039872,000060:                                                                                                  #   V0VEC (+7)    -THE REQUIRED VELOCITY VECTOR IN METERS/CENTISECONDS
039873,000061: 
039874,000062:                                                                                                  #  DONESW         -THE DONE SWITCH INDICATING WHETHER THE JOB HAS BEEN COMPLETED.  WHEN THE JOB IS DONE IT
039875,000063:                                                                                                  #                  IS TURNED ON.
039876,000064: 
039877,000065:                                                                                                  #   CONVSW        - THE CONVERGENCE SWITCH INDICATING WHETHER THE ITERATION PROCESS HAS CONVERGED.  IT IS TURNED
039878,000066:                                                                                                  #                  ON IF CONVERGENCE HAS NOT OCCURRED, BUT AN ESTIMATE OF V0VEC IS NEVERTHELESS GIVEN.
039879,000067: 
039880,000068: 
039881,000069: 
039882,000070:                                                                                                  #   INPUT:
039883,000071: 
039884,000072:                                                                                                  #   THE QUANTITIES INPUTED AND THEIR SCALE FACTORS ARE ...

Page 927

039886,000074:                                                                                                  #  RCOV   (+25)   -INITIAL POSITION IN METERS.
039887,000075:                                                                                                  #   R1VEC (+25)   -THE TARGET POSITION IN METERS.
039888,000076: 
039889,000077:                                                                                                  #   TFL (+28)     -TIME OF FLIGHT IN CENTISECONDS.
039890,000078: 
039891,000079:                                                                                                  #   UNNORM (+1)   -A UNIT VECTOR IN THE DIRECTION OF THE ANGULAR MOMENTUM  VECTOR.
039892,000080: 
039893,000081:                                                                                                  #   TAG5          -A PARAMETER SET TO -0.5 IF THE TRUE ANOMALY DIFFERENCE BETWEEN R0VEC AND R1VEC IS MORE THAN
039894,000082:                                                                                                  #                  180 DEGREES.  OTHERWISE IT SHOULD BE SET TO +0.5.
039895,000083: 
039896,000084:                                                                                                  #   GUESSW        -THE GUESS SWITCH, IF A FIRST GUESS TO THE COTANGENT OF THE FLIGHT PATH ANGLE IS AVAILABLE THE
039897,000085:                                                                                                  #                  SWITCH SHOULD BE SET , CLEAR IF NO GUESS IS FORTHCOMING.
039898,000086: 
039899,000087:                                                                                                  #   COGAVAIL (+5) -THE AVAILABLE COTANGENT OF THE FLIGHT PATH ANGLE.  IF A GUESS IS AVAILABLE THE GUESSW SHOULD BE
039900,000088:                                                                                                  #                  SET AND THE GUESS PLACED HERE BEFORE THE LAMBERT ROUTINE IS ENTERED.  AFTER ONE PASS THROUGH
039901,000089:                                                                                                  #                  LAMBERT, THE LAST ITERATED VALUE OF THE COTANGENT IS PLACED IN COGAVAIL AND  MAY BE USED AS THE
039902,000090:                                                                                                  #                  GUESS FOR THE NEXT PASS.
039903,000091: 
039904,000092: 
039905,000093: 
039906,000094:                                                                                                  #   THE FOLLOWING SWITCHES ARE IN THIS ROUTINE , THOUGH THEY ARE NOT USED FOR THIS PARTICULAR MISSION AND ARE
039907,000095:                                                                                                  #   ALWAYS CLEAR IN 206.
039908,000096: 
039909,000097:                                                                                                  #   MOONSW        - THE MOON SWITCH: 1-INSIDE THE SPHERE OF INFLUENCE OF THE MOON (35,000 N.MI.)
039910,000098:                                                                                                  #                                    0-OUTSIDE
039911,000099: 
039912,000100:                                                                                                  #   ESCPSW        -THE ESCAPE SWITCH: 1-HYPERBOLIC ORBIT
039913,000101:                                                                                                  #                                     0-ELLIPTIC ORBIT
039914,000102: 
039915,000103:                                                                                                  #   SMANGLSW      -SMALL ANGLE SWITCH: 1-SMALL TRANSFER ANGLES
039916,000104:                                                                                                  #                                      0-LARGE ANGLES (THE USUAL CASE)
039917,000105: 
039918,000106:                                                                                                  #   TWO SWITCHES ARE USED INTERNALLY.  THEY ARE ...
039919,000107: 
039920,000108:                                                                                                  #   ITERSW        -THE ITERATION SWITCH: 1-FIRST ITERATION IS TO TAKE PLACE
039921,000109:                                                                                                  #                                        0-SUBSEQUENT ITERATIONS
039922,000110: 
039923,000111:                                                                                                  #   PIESW         -THE 180 DEGREES SWITCH: 1-ANGLES GREATER THAN 180 DEGREES WITH TAG5=-0.5
039924,000112:                                                                                                  #                                          0-ANGLES LESS THAN 180, TAG5=0.5
039925,000113: 
039926,000114: 
039927,000115: 
039928,000116:                                                                                                  #   DEBRIS ...
039929,000117: 
039930,000118:                                                                                                  #     THE LAMBERT ROUTINE INTERNALLY USES SCALING WHICH IS DIFFERENT FROM THAT USED BY THE MAIN PROGRAM.
039931,000119:                                                                                                  #   INTERNAL TO LAMBERT,
039932,000120:                                                                                                  #                                7
039933,000121:                                                                                                  #   LENGTH IS SCALED BY RNORM = 2  RE
039934,000122: 
039935,000123:                                                                                                  #   VELOCITY IS SCALED BY VNORM = 2 SQRT(MU/RE)

Page 928

039937,000125:                                                                                                  #                              10        3
039938,000126:                                                                                                  #   TIME IS SCALED BY TNORM = 2   SQRT(RE /MU)
039939,000127:                                                                                                  #   WHERE MU IS THE GRAVITATIONAL CONSTANT TIMES THE MASS OF THE EARTH AND RE IS THE RADIUS OF THE EARTH.
039940,000128:                                                                                                  #            22
039941,000129:                                                                                                  #   FOR RE, 2   METERS IS USED. HOWEVER, INPUT AND OUTPUT QUANTITIES HAVE  SCALING COMPATIBLE WITH THE REST OF THE
039942,000130:                                                                                                  #   PROGRAM.  RESCALING WILL BE DONE BY THE LAMBERT ROUTINE BEFORE COMPUTATIONS BEGIN.
039943,000131: 

Page 929

039945,000133: 36,2625           40214        LAMBERT            SET      SETPD                                 
039946,000134: 36,2626           02062                                    ITERSW                                
039947,000135: 36,2627           00001                                    0D                                    
039948,000136: 36,2630           43014                           CLEAR    CLEAR                                 
039949,000137: 36,2631           02265                                    MOONSW                                
039950,000138: 36,2632           02261                                    DONESW                                
039951,000139: 36,2633           43014                           CLEAR    CLEAR                                 
039952,000140: 36,2634           02265                                    SMANGLSW                              
039953,000141: 36,2635           02264                                    PIESW                                 
039954,000142: 36,2636           51145                           DLOAD    BPL                                   
039955,000143: 36,2637           03622                                    TAG5                                  
039956,000144: 36,2640           74643                                    +3                                    
039957,000145: 36,2641           77614                           SET                                            
039958,000146: 36,2642           02064                                    PIESW                                 
039959,000147: 36,2643           77614                           BON                                            
039960,000148: 36,2644           02303                                    GUESSW                                
039961,000149: 36,2645           74653                                    +6                                    
039962,000150: 36,2646           77745                           DLOAD                                          
039963,000151: 36,2647           35644                                    D1/4                                  
039964,000152: 36,2650           01725                           STORE    TWEEKIT                               
039965,000153: 36,2651           77650                           GOTO                                           
039966,000154: 36,2652           74656                                    PROG                                  
039967,000155: 36,2653           77745                           DLOAD                                          
039968,000156: 36,2654           35640                                    D1/64                                 
039969,000157: 36,2655           01725                           STORE    TWEEKIT                               
039970,000158: 36,2656           41345        PROG               DLOAD    DMP                                   
039971,000159: 36,2657           02143                                    TFL                                   
039972,000160: 36,2660           35670                                    TFACT                                 
039973,000161: 36,2661           77652                           SL3                                            #  RESCALE TIME OF FLIGHT
039974,000162: 36,2662           25672                           STOVL    TF                                    
039975,000163: 36,2663           03614                                    RCOTEMPV                              
039976,000164: 36,2664           77702                           VSR4                                           
039977,000165: 36,2665           35707                           STCALL   R0VEC                                 
039978,000166: 36,2666           75112                                    DTPRD                                 
039979,000167: 36,2667           77624                           CALL                                           
039980,000168: 36,2670           75133                                    CGTH                                  
039981,000169: 36,2671           60345                           DLOAD    NORM                                  
039982,000170: 36,2672           00045                                    36D                                   
039983,000171: 36,2673           00047                                    X1                                    
039984,000172: 36,2674           53665                           BDDV     SL*                                   
039985,000173: 36,2675           00041                                    32D                                   
039986,000174: 36,2676           20172                                    0          -7,1                       
039987,000175: 36,2677           14037                           STODL    30D                                   #  30D=R (+7)
039988,000176: 
039989,000177: 36,2700           35646                                    D1/2                                  
039990,000178: 36,2701           70425                           DSU      SR1                                   
039991,000179: 36,2702           00035                                    28D                                   
039992,000180: 36,2703           00025                           STORE    20D                                   #  20D=1-CSTH  (+2)  (FOR PCALC IN LOOP)
039993,000181: 
039994,000182: 36,2704           65301                           NORM     PDDL                                  #  1-CSTH (+2-N1)                 PL AT 2D

Page 930

039996,000184: 36,2705           00047                                    X1                                    
039997,000185: 36,2706           00037                                    30D                                   
039998,000186: 36,2707           77671                           DDV                                            #                                 PL AT 0D
039999,000187: 36,2710           75457                           SL*      SQRT                                  
040000,000188: 36,2711           20175                                    0          -4,1                       
040001,000189: 36,2712           44214                           BOFF     BDSU                                  
040002,000190: 36,2713           02345                                    ESCPSW                                
040003,000191: 36,2714           75061                                    ELIPLMTS                              
040004,000192: 36,2715           00021                                    16D                                   
040005,000193: 36,2716           51406                           PUSH     ABS                                   #                                 PL AT 2D
040006,000194: 36,2717           44205                           DMP      BDSU                                  #                                 PL AT 0D
040007,000195: 36,2720           35656                                    PERCENT                               
040008,000196: 36,2721           77626                           STADR                                          
040009,000197: 36,2722           63744                           STODL    26D                                   #  26D=COGAMX
040010,000198: 
040011,000199: 36,2723           00031                                    24D                                   
040012,000200: 36,2724           77742                           SR1                                            
040013,000201: 36,2725           00023                           STORE    18D                                   #  18D=SIN(TH) (+2) (FOR PCALC IN LOOP)
040014,000202: 36,2726           65301                           NORM     PDDL                                  #  SIN(TH) (+1-N1)                PL AT 2D
040015,000203: 36,2727           00047                                    X1                                    
040016,000204: 36,2730           00035                                    28D                                   
040017,000205: 36,2731           45261                           SR       DSU                                   
040018,000206: 36,2732           20607                                    6                                     
040019,000207: 36,2733           00037                                    30D                                   
040020,000208: 36,2734           00037                           STORE    30D                                   #  30D=COS(TH)-R (+7)  (FOR PCALC IN LOOP)
040021,000209: 
040022,000210: 36,2735           56214                           BON      DDV                                   #                                 PL AT 0D
040023,000211: 36,2736           02304                                    PIESW                                 
040024,000212: 36,2737           74750                                    ABSMIN                                
040025,000213: 36,2740           40057                           SL*      BOV                                   
040026,000214: 36,2741           20201                                    0,1                                   
040027,000215: 36,2742           74750                                    ABSMIN                                
040028,000216: 36,2743           51406                           PUSH     ABS                                   #  (CSTH-R)/SNTH (+5)             PL AT 2D
040029,000217: 36,2744           43205                           DMP      DAD                                   #                                 PL AT 0D
040030,000218: 36,2745           35656                                    PERCENT                               
040031,000219: 36,2746           77650                           GOTO                                           
040032,000220: 36,2747           74753                                    +4                                    
040033,000221: 36,2750           71201        ABSMIN             SETPD    DLOAD                                 #                                 PL AT 0D
040034,000222: 36,2751           00001                                    0D                                    
040035,000223: 36,2752           35666                                    ABSOLMIN                              
040036,000224: 36,2753           00027                           STORE    22D                                   #  22D=COGAMN (+5)
040037,000225: 36,2754           71214                           BOFF     DLOAD                                 #                                 PL AT 2D
040038,000226: 36,2755           02343                                    GUESSW                                
040039,000227: 36,2756           75041                                    FIRSTCOG                              
040040,000228: 36,2757           01674                                    COGAVAIL                              
040041,000229: 36,2760           45214                           BON      DSU                                   #  IF ESCPSW IS OFF, CHECK IF COGAVAIL
040042,000230: 36,2761           02305                                    ESCPSW                                #  IS LESS THAN COGAMN
040043,000231: 36,2762           74774                                    LOOP                                  
040044,000232: 36,2763           00027                                    22D                                   
040045,000233: 36,2764           71244                           BPL      DLOAD                                 

Page 931

040047,000235: 36,2765           74772                                    +5                                    
040048,000236: 36,2766           00027                                    22D                                   #  COGAVAIL IS A BAD GUESS, SO PUT
040049,000237: 36,2767           01674                           STORE    COGAVAIL                              #  COGAMN IN COGAVAIL
040050,000238: 36,2770           77650                           GOTO                                           
040051,000239: 36,2771           74774                                    LOOP                                  
040052,000240: 36,2772           77745                           DLOAD                                          
040053,000241: 36,2773           01674                                    COGAVAIL                              
040054,000242: 36,2774           01723        LOOP               STORE    INDEP                                 
040055,000243: 36,2775           45205                           DMP      DSU                                   
040056,000244: 36,2776           00023                                    18D                                   
040057,000245: 36,2777           00037                                    30D                                   
040058,000246: 36,3000           55301                           NORM     BDDV                                  
040059,000247: 36,3001           00047                                    X1                                    
040060,000248: 36,3002           00025                                    20D                                   
040061,000249: 36,3003           40057                           SL*      BOV                                   
040062,000250: 36,3004           20172                                    0          -7,1                       
040063,000251: 36,3005           75107                                    SPEEDY                                
040064,000252: 36,3006           34043        PSTORE             STCALL   34D                                   #  34D=P (+2)
040065,000253: 36,3007           75146                                    SMAR                                  
040066,000254: 36,3010           77624                           CALL                                           
040067,000255: 36,3011           75163                                    TRIGFNS                               
040068,000256: 36,3012           77624                           CALL                                           
040069,000257: 36,3013           75346                                    SMA                                   
040070,000258: 36,3014           77624                           CALL                                           
040071,000259: 36,3015           75414                                    DELTIME                               
040072,000260: 36,3016           01727        ZOOM               STORE    DEPVAR                                
040073,000261: 36,3017           77621                           BDSU                                           
040074,000262: 36,3020           01672                                    TF                                    
040075,000263: 36,3021           01733                           STORE    DELDEP                                
040076,000264: 36,3022           45246                           ABS      DSU                                   
040077,000265: 36,3023           35672                                    DEPCRIT                               
040078,000266: 36,3024           45040                           BMN      CALL                                  
040079,000267: 36,3025           75046                                    TIMECONV                              
040080,000268: 36,3026           75513                                    ITERATOR                              
040081,000269: 36,3027           45246                           ABS      DSU                                   
040082,000270: 36,3030           35650                                    NEARZERO                              
040083,000271: 36,3031           71240                           BMN      DLOAD                                 
040084,000272: 36,3032           75056                                    NOSOL                                 
040085,000273: 36,3033           01727                                    DEPVAR                                
040086,000274: 36,3034           15731                           STODL    PREVDEP                               
040087,000275: 36,3035           01735                                    DELINDEP                              
040088,000276: 36,3036           52015                           DAD      GOTO                                  
040089,000277: 36,3037           01723                                    INDEP                                 
040090,000278: 36,3040           74774                                    LOOP                                  
040091,000279: 36,3041           65342        FIRSTCOG           SR1      PDDL                                  #                                 PL AT 2D
040092,000280: 36,3042           00033                                    26D                                   
040093,000281: 36,3043           43342                           SR1      DAD                                   #                                 PL AT 0D
040094,000282: 36,3044           77650                           GOTO                                           
040095,000283: 36,3045           74774                                    LOOP                                  

Page 932

040097,000285: 36,3046           77745        TIMECONV           DLOAD                                          
040098,000286: 36,3047           01723                                    INDEP                                 
040099,000287: 36,3050           01674                           STORE    COGAVAIL                              
040100,000288: 36,3051           34023                           STCALL   18D                                   #  18D=COGA (+5)
040101,000289: 36,3052           75602                                    INITV                                 
040102,000290: 36,3053           77414                           SET      EXIT                                  
040103,000291: 36,3054           02061                                    DONESW                                
040104,000292: 36,3055           15567                           TCF      ENDOFJOB                              
040105,000293: 36,3056           52014        NOSOL              SET      GOTO                                  
040106,000294: 36,3057           02060                                    CONVSW                                
040107,000295: 36,3060           75046                                    TIMECONV                              
040108,000296: 36,3061           43206        ELIPLMTS           PUSH     DAD                                   #                                 PL AT 2D
040109,000297: 36,3062           00021                                    16D                                   
040110,000298: 36,3063           51406                           PUSH     ABS                                   #                                 PL AT 4D
040111,000299: 36,3064           44205                           DMP      BDSU                                  #                                 PL AT 2D
040112,000300: 36,3065           35656                                    PERCENT                               
040113,000301: 36,3066           77626                           STADR                                          
040114,000302: 36,3067           63744                           STODL    26D                                   #  26D=COGAMX (+5)
040115,000303: 36,3070           00035                                    28D                                   
040116,000304: 36,3071           45261                           SR       DSU                                   
040117,000305: 36,3072           20607                                    6                                     
040118,000306: 36,3073           00037                                    30D                                   
040119,000307: 36,3074           14037                           STODL    30D                                   #  30D=CSTH-R (+7)
040120,000308: 36,3075           00031                                    24D                                   
040121,000309: 36,3076           77742                           SR1                                            
040122,000310: 36,3077           14023                           STODL    18D                                   
040123,000311: 36,3100           00021                                    16D                                   
040124,000312: 36,3101           41425                           DSU      PUSH                                  #                                 PL AT 0D,2D
040125,000313: 36,3102           41246                           ABS      DMP                                   
040126,000314: 36,3103           35656                                    PERCENT                               
040127,000315: 36,3104           77615                           DAD                                            #                                 PL AT 0D
040128,000316: 36,3105           77650                           GOTO                                           
040129,000317: 36,3106           74753                                    ABSMIN     +3                         
040130,000318: 36,3107           52145        SPEEDY             DLOAD    GOTO                                  
040131,000319: 36,3110           35273                                    DZERO                                 
040132,000320: 36,3111           75016                                    ZOOM                                  
040133,000321:                                                                                                  #  V0VEC (+1) IN MPAC.
040134,000322: 

Page 933

040136,000324:                                                                                                  #  THIS SECTION CALCULATES THE SINE AND COSINE OF THE ANGLE BETWEEN R0VEC
040137,000325:                                                                                                  #  AND R1VEC. THE SIGN OF SIN(TH) IS DETERMINED BY TAG5.  THE COSINE OF THE 
040138,000326:                                                                                                  #  ANGLE IS STORED IN 28D WHILE THE SINE IS IN MPAC AS WELL AS IN 24D, BOTH
040139,000327:                                                                                                  #  ARE SCALED BY  (+2).
040140,000328: 
040141,000329: 
040142,000330:                                                                                                  #  ASSUMES R0VEC (+7) , R1VEC (+7) , TAG5 (+/- ACCORDING TO ANGLE GREATER
040143,000331:                                                                                                  #  OR LESS THAN 180 DEG) AVAILABLE.
040144,000332: 36,3112           53575        DTPRD              VLOAD    UNIT                                  
040145,000333: 36,3113           01707                                    R0VEC                                 
040146,000334: 36,3114           15701                           STODL    UNR1                                  
040147,000335: 36,3115           00045                                    36D                                   
040148,000336: 36,3116           24041                           STOVL    32D                                   #  32D=R1 (+7)
040149,000337: 36,3117           02365                                    R1VEC                                 
040150,000338: 36,3120           77702                           VSR4                                           
040151,000339: 36,3121           41456                           UNIT     PUSH                                  #  32D=R1 (+7)                    PL AT 6D
040152,000340: 36,3122           72441                           DOT      SL1                                   
040153,000341: 36,3123           01701                                    UNR1                                  
040154,000342: 36,3124           24035                           STOVL    28D                                   #  28D=COS(TH) (+1)
040155,000343: 36,3125           01701                                    UNR1                                  
040156,000344: 36,3126           76435                           VXV      VSL1                                  #                                 PL AT 0D
040157,000345: 36,3127           75246                           ABVAL    SIGN                                  
040158,000346: 36,3130           03622                                    TAG5                                  
040159,000347: 36,3131           00031                           STORE    24D                                   #  24D=SIN(TH) (+1)
040160,000348: 36,3132           77616                           RVQ                                            
040161,000349: 
040162,000350:                                                                                                  #           28D=COS(TH) (+1), 24D=SIN(TH) (+1)=MPAC.
040163,000351: 

Page 934

040165,000353:                                                                                                  #  THIS SECTION COMPUTES COT(TH/2) = (1+COS(TH))/SIN(TH) SCALED BY (+5),
040166,000354:                                                                                                  #  AND STORES IT IN 16D.  NOTE THAT COT(TH/2) WILL OVERFLOW IF THE ANGLE
040167,000355:                                                                                                  #  TH IS LESS THAN 3 DEG 35 MINUTES OR GREATER THAN 356 DEG 25 MINUTES.
040168,000356: 
040169,000357: 
040170,000358:                                                                                                  #  ASSUMES SNTH(+1) IN MPAC, 28D=CSTH (+1).
040171,000359: 36,3133           60254        CGTH               BZE      NORM                                  #  SNTH (+1-N1)
040172,000360: 36,3134           75144                                    THISPI                                
040173,000361: 36,3135           00047                                    X1                                    
040174,000362: 36,3136           70525                           PDDL     SR1                                   
040175,000363: 36,3137           00035                                    28D                                   
040176,000364: 36,3140           56215                           DAD      DDV                                   #                                 PL AT 0D
040177,000365: 36,3141           35644                                    D1/4                                  
040178,000366: 36,3142           77657                           SL*                                            
040179,000367: 36,3143           20175                                    0          -4,1                       
040180,000368: 36,3144           00021        THISPI             STORE    16D                                   
040181,000369: 36,3145           77616                           RVQ                                            
040182,000370: 
040183,000371:                                                                                                  #           COGTH (+5)=16D.
040184,000372: 

Page 935

040186,000374:                                                                                                  #  THIS SECTION USES COT(GAMMA),I.E. COGA (+5) AND P (+2) TO CALCULATE R1A
040187,000375:                                                                                                  #  SCALED BY (+6) AND STORES THE RESULT IN 14D.
040188,000376: 
040189,000377: 
040190,000378:                                                                                                  #  ASSUMES COGA=INDEP (+5), P (+2)=34D.
040191,000379: 36,3146           63545        SMAR               DLOAD    DSQ                                   
040192,000380: 36,3147           01723                                    INDEP                                 
040193,000381: 36,3150           60215                           DAD      NORM                                  
040194,000382: 36,3151           35636                                    D1/1024                               
040195,000383: 36,3152           00047                                    X1                                    
040196,000384: 36,3153           53605                           DMP      SR*                                   
040197,000385: 36,3154           00043                                    34D                                   
040198,000386: 36,3155           20573                                    0          -6,1                       
040199,000387: 36,3156           40021                           BDSU     BOV                                   
040200,000388: 36,3157           35642                                    D1/32                                 
040201,000389: 36,3160           75107                                    SPEEDY                                
040202,000390: 36,3161           00017        SMARSTOR           STORE    14D                                   #  14D=R1A (+6)
040203,000391: 36,3162           77616                           RVQ                                            
040204,000392: 
040205,000393: 
040206,000394:                                                                                                  #  R1A (+6)=2-P(1+COGA*COGA) IN 14D.
040207,000395: 

Page 936

040209,000397:                                                                                                  #  ASSUMES 16D=COGTH (+5), INDEP=COGA(+5), 34D=P (+2), 14D= R1A (+6).
040210,000398: 36,3163           45345        TRIGFNS            DLOAD    DSU                                   
040211,000399: 36,3164           00021                                    16D                                   
040212,000400: 36,3165           01723                                    INDEP                                 
040213,000401: 36,3166           00045                           STORE    36D                                   #  36D=DCOT=COT(TH/2)-COGA (+5)
040214,000402: 
040215,000403: 36,3167           60316                           DSQ      NORM                                  
040216,000404: 36,3170           00047                                    X1                                    
040217,000405: 36,3171           70405                           DMP      SR1                                   
040218,000406: 36,3172           00043                                    34D                                   
040219,000407: 36,3173           51525                           PDDL     ABS                                   #  DCOT*DCOT (+13-N1)             PL AT 2D
040220,000408: 36,3174           00017                                    14D                                   
040221,000409: 36,3175           55301                           NORM     BDDV                                  #  COGDS (+7-N1+N2)               PL AT 0D
040222,000410: 36,3176           00051                                    S1                                    
040223,000411: 36,3177           53660                           XSU,1    SR*                                   
040224,000412: 36,3200           00050                                    S1                                    
040225,000413: 36,3201           20604                                    3,1                                   
040226,000414: 36,3202           77600                           BOV                                            
040227,000415: 36,3203           75343                                    COGDSOVF                              
040228,000416: 36,3204           75206        COGDSTOR           PUSH     SIGN                                  #  COGDS (+10)
040229,000417: 36,3205           00017                                    14D                                   
040230,000418: 36,3206           60215                           DAD      NORM                                  
040231,000419: 36,3207           35636                                    D1/1024                               
040232,000420: 36,3210           00047                                    X1                                    
040233,000421: 36,3211           65265                           BDDV     PDDL                                  #  2D=1-CSD (-7+N1)               PL AT 4D
040234,000422: 36,3212           35644                                    D1/4                                  
040235,000423: 36,3213           00001                                    0D                                    
040236,000424: 36,3214           60366                           SQRT     NORM                                  
040237,000425: 36,3215           00050                                    X2                                    
040238,000426: 36,3216           75205                           DMP      SIGN                                  
040239,000427: 36,3217           00003                                    2D                                    
040240,000428: 36,3220           00045                                    36D                                   #  SND=+-(1-CSD)SQRT(COGDS) (-2+N1-N2)
040241,000429: 36,3221           43064                           XSU,2    BON                                   
040242,000430: 36,3222           00046                                    X1                                    
040243,000431: 36,3223           02305                                    ESCPSW                                
040244,000432: 36,3224           75250                                    HYPTRIG                               #  DUE TO DIFFERENT SCALING
040245,000433: 36,3225           65257                           SR*      PDDL                                  #  DXNGE WITH PD,2D=SND (+1)      PL AT 4D
040246,000434: 36,3226           57173                                    3,2                                   
040247,000435: 36,3227           40057                           SL*      BOV                                   
040248,000436: 36,3230           20171                                    0          -8D,1                      
040249,000437: 36,3231           75245                                    HALFCIRC                              
040250,000438: 36,3232           57406        COSFN              PUSH     DCOMP                                 #  4D=(1-CSD)(+1)                 PL AT 6D
040251,000439: 36,3233           65415                           DAD      ACOS                                  
040252,000440: 36,3234           35646                                    D1/2                                  
040253,000441: 36,3235           41365                           SIGN     DMP                                   
040254,000442: 36,3236           00045                                    36D                                   
040255,000443: 36,3237           05740                                    PI/4                                  #  CONVERT FROM CIRCLES TO RADIANS/8
040256,000444: 36,3240           43244                           BPL      DAD                                   
040257,000445: 36,3241           75243                                    +2                                    
040258,000446: 36,3242           05740                                    PI/4                                  

Page 937

040260,000448: 36,3243           00001                           STORE    0D                                    #  0D=DELTAE (+3)
040261,000449: 36,3244           77616                           RVQ                                            
040262,000450: 
040263,000451: 
040264,000452: 36,3245           52145        HALFCIRC           DLOAD    GOTO                                  
040265,000453: 36,3246           35652                                    NEARI                                 
040266,000454: 36,3247           75232                                    COSFN                                 
040267,000455: 36,3250           57457        HYPTRIG            SR*      DCOMP                                 
040268,000456: 36,3251           57162                                    12D,2                                 
040269,000457: 36,3252           77725                           PDDL                                           #  DXNGE WITH PD,2D=SND (+10)     PL AT 4D
040270,000458: 36,3253           41457                           SL*      PUSH                                  
040271,000459: 36,3254           20160                                    0          -17D,1                     #  4D=(1-CSD) (+10)               PL AT 6D
040272,000460: 36,3255           43276                           DCOMP    DAD                                   
040273,000461: 36,3256           35636                                    D1/1024                               
040274,000462: 36,3257           65342                           SR1      PDDL                                  #                                 PL AT 8D
040275,000463: 36,3260           00003                                    2D                                    
040276,000464: 36,3261           43342                           SR1      DAD                                   #  ARG=COSH(DELG)+SINH(DELG) (+11)  PL AT 6D
040277,000465: 
040278,000466: 36,3262           44301                           NORM     BDSU                                  #  THIS IS AN ARCSINH ROUTINE
040279,000467: 36,3263           01676                                    SPLOC                                 #  ARG=.5-ARG (+11-N1)
040280,000468: 36,3264           35646                                    D1/2                                  
040281,000469: 36,3265           77776                           EXIT                                           
040282,000470: 36,3266           34570        ARCSINH            CA       TEN                                   
040283,000471: 36,3267           27675                           ADS      SPLOC                                 #  C(SPLOC)=10-N1
040284,000472: 36,3270           07274                           TC       POLY                                  
040285,000473: 36,3271           00011                           DEC      9          B-14                       
040286,000474: 36,3272           00000 00000  DZERO              2DEC     .0                                    
040287,000475: 
040288,000476: 36,3274           00400 00000                     2DEC     .015625                               
040289,000477: 
040290,000478: 36,3276           00400 00000                     2DEC     .015625                               
040291,000479: 
040292,000480: 36,3300           00525 12525                     2DEC     .020833333                            
040293,000481: 
040294,000482: 36,3302           01000 00000                     2DEC     .03125                                
040295,000483: 
040296,000484: 36,3304           01463 06315                     2DEC     .05                                   
040297,000485: 
040298,000486: 36,3306           02525 12525                     2DEC     .083333333                            
040299,000487: 
040300,000488: 36,3310           04444 22222                     2DEC     .14285714                             
040301,000489: 
040302,000490: 36,3312           10000 00000                     2DEC     .25                                   
040303,000491: 
040304,000492: 36,3314           16161 30706                     2DEC     .44444444                             
040305,000493: 
040306,000494: 36,3316           31463 06315                     2DEC     .8                                    
040307,000495: 
040308,000496: 36,3320           37767                           CAF      ZERO                                  
040309,000497: 

Page 938

040311,000499: 36,3321           54146                           TS       MPAC       +2                         
040312,000500: 36,3322           00006                           EXTEND                                         
040313,000501: 36,3323           33660                           DCA      LN2/128                               
040314,000502: 36,3324           52145                           DXCH     MPAC                                  #  MPAC,+1 CONTAINS LN2/128
040315,000503: 36,3325           53677                           DXCH     SPLOC      +1                         #  SPLOC+1,+2 CONTAINS LN(1/2-ARGS)/128
040316,000504: 36,3326           31675                           CA       SPLOC                                 
040317,000505: 36,3327           07357                           TC       SHORTMP                               
040318,000506: 36,3330           52146                           DXCH     MPAC       +1                         
040319,000507: 36,3331           52145                           DXCH     MPAC                                  #  MPAC CONTAINS (10-N1)LN2/128
040320,000508: 36,3332           53677                           DXCH     SPLOC      +1                         #  A,L CONTAIN LN(1/2-ARGS)/128
040321,000509: 36,3333           00006                           EXTEND                                         
040322,000510: 36,3334           40001                           DCOM                                           
040323,000511: 36,3335           20145                           DAS      MPAC                                  
040324,000512: 36,3336           06112                           TC       INTPRET                               
040325,000513: 36,3337           77661                           SR                                             
040326,000514: 36,3340           20606                                    5                                     
040327,000515: 36,3341           00001                           STORE    0D                                    #  0D=DELG (+12)                  PL AT 6D
040328,000516: 36,3342           77616                           RVQ                                            
040329,000517: 
040330,000518: 
040331,000519: 36,3343           52145        COGDSOVF           DLOAD    GOTO                                  
040332,000520: 36,3344           35654                                    BIGNO                                 #  BIGNO=NEARONE-DP1/1024
040333,000521: 36,3345           75204                                    COGDSTOR                              
040334,000522:                                                                                                  #  RETURNS WITH 0D=DELE (+3) OR DELG(+12),,2D=SND (+1 OR +10),4D=1-CSD (+1
040335,000523:                                                                                                  #  OR +10), AND PUSHLOC AT 6D
040336,000524: 

Page 939

040338,000526:                                                                                                  #  ASSUMES 14D=R1A (+6), 32D= R1 (+7)
040339,000527: 36,3346           60345        SMA                DLOAD    NORM                                  #  THIS IS ESSENTIALLY A FLOATING POINT SUB
040340,000528: 36,3347           00017                                    14D                                   #  C(SPLOC+1)=-N1
040341,000529: 36,3350           01677                                    SPLOC      +1                         #  SPLOC LATER WILL BE STORED IN X1 FOR SHF
040342,000530: 36,3351           60325                           PDDL     NORM                                  
040343,000531: 36,3352           00041                                    32D                                   
040344,000532: 36,3353           01676                                    SPLOC                                 #  C(SPLOC)=-N2
040345,000533: 36,3354           56342                           SR1      DDV                                   
040346,000534: 36,3355           77446                           ABS      EXIT                                  #  ABS(R1/R1A) (+2+N1-N2)
040347,000535: 36,3356           41676                           CS       SPLOC      +1                         
040348,000536: 36,3357           61675                           AD       SPLOC                                 
040349,000537: 36,3360           55675                           TS       SPLOC                                 
040350,000538: 36,3361           54020                           TS       CYR                                   
040351,000539: 36,3362           30020                           CA       CYR                                   
040352,000540: 36,3363           60000                           DOUBLE                                         
040353,000541: 36,3364           54000                           OVSK                                           
040354,000542: 36,3365           13370                           TCF      EVEN                                  
040355,000543: 36,3366           37763        ODD                CA       ONE                                   
040356,000544: 36,3367           13371                           TCF      STORETAG                              
040357,000545: 36,3370           37767        EVEN               CA       ZERO                                  
040358,000546: 36,3371           55676        STORETAG           TS       SPLOC      +1                         #  A TAG TO DESIGNATE ADDITIONAL SHIFTRIGHT
040359,000547: 36,3372           27675                           ADS      SPLOC                                 #  C(SPLOC)=N1-N2+0 OR 1
040360,000548: 36,3373           31675                           CA       SPLOC                                 
040361,000549: 36,3374           54021                           TS       SR                                    
040362,000550: 36,3375           60021                           AD       SR                                    
040363,000551: 36,3376           55675                           TS       SPLOC                                 #  C(SPLOC)=3(N1-N2+0 OR 1)/2
040364,000552: 36,3377           06112                           TC       INTPRET                               
040365,000553: 36,3400           53740                           LXC,1    SR*                                   
040366,000554: 36,3401           01676                                    SPLOC      +1                         
040367,000555: 36,3402           20601                                    0,1                                   
040368,000556: 36,3403           73006                           PUSH     LXA,2                                 #  ABS(R1/R1A) (+2+N1-N2+0 OR 1)  PL DOWN 2
040369,000557: 36,3404           01675                                    SPLOC                                 #  C(X2)=+3(N1-N2+0 OR 1)/2
040370,000558: 36,3405           41366                           SQRT     DMP                                   #  ARG TO THE 3/2 POWER,SCALED +3+(3/2)(N1
040371,000559:                                                                                                  #  -N2 +0 OR 1)                   PL UP 2
040372,000560: 36,3406           41214                           BOFF     DMP                                   
040373,000561: 36,3407           02345                                    MOONSW                                
040374,000562: 36,3410           75412                                    +2                                    
040375,000563: 36,3411           35662                                    ROOTMU                                
040376,000564: 36,3412           00015                           STORE    12D                                   #  12D=SQRT(ABS(R1/R1A))ABS(R1/R1A)
040377,000565: 36,3413           77616                           RVQ                                            #  SCALED (+3 OR +7)+(3/2)(N1-N2+0 OR 1)
040378,000566:                                                                                                  #  SMA TO THE 3/2 POWER * ROOTMU IN 12D.
040379,000567:                                                                                                  #  IF LSW1 SET, INSIDE SPHERE AND 12D SCALED +7+C(X2)
040380,000568:                                                                                                  #  IF LSW1 OFF, OUTSIDE SPHERE AND 12D SCALED +3+C(X2)
040381,000569: 
040382,000570: 

Page 940

040384,000572:                                                                                                  #  THIS IS KEPLERS EQUATION FOR TIME-OF-FLIGHT BETWEEN TWO POINTS ON A
040385,000573:                                                                                                  #  CONIC TRAJECTORY.  IT ASSUMES R1A (+6)=14D, P (+2)=34D, 1-CSD (+1,+10,-2
040386,000574:                                                                                                  #  =4D, SND (+1,+10,-2)=2D, D (+3,+12,0)=0D.
040387,000575: 
040388,000576: 36,3414           41345        DELTIME            DLOAD    DMP                                   #                                 PL AT 6D
040389,000577: 36,3415           00043                                    34D                                   
040390,000578: 36,3416           00017                                    14D                                   
040391,000579: 36,3417           40061                           SL       BOV                                   
040392,000580: 36,3420           20207                                    6                                     
040393,000581: 36,3421           75107                                    SPEEDY                                
040394,000582: 36,3422           75446                           ABS      SQRT                                  
040395,000583: 36,3423           77605                           DMP                                            #                                 PL AT 4D
040396,000584: 36,3424           72205                           DMP      TLOAD                                 
040397,000585: 36,3425           01723                                    INDEP                                 
040398,000586: 36,3426           00145                                    MPAC                                  #  CHANGES MODE TO TP (00001).
040399,000587: 36,3427           45325                           PDDL     DSU                                   #  SQRT(P ABS(R1A))(1-CSD)COGA (+7 OR 16)
040400,000588: 36,3430           00017                                    14D                                   #                                 PL AT 7D
040401,000589: 36,3431           35640                                    D1/64                                 
040402,000590: 36,3432           77605                           DMP                                            
040403,000591: 36,3433           00003                                    2D                                    
040404,000592: 36,3434           65351                           TLOAD    PDDL                                  #  (R1A-1)SND (+7 OR16)
040405,000593: 36,3435           00145                                    MPAC                                  #  CHANGES MODE TO TP             PL AT 10D
040406,000594: 36,3436           00001                                    0D                                    
040407,000595: 36,3437           76202                           SR4      TAD                                   #  PL PUSHES UP 3 SINCE TAD GOVERNS INSTEAD
040408,000596: 36,3440           77771                           TAD                                            #  OF MODE. MODE REMAINS DP.      PL AT 7D,4D
040409,000597: 36,3441           75301                           NORM     SIGN                                  
040410,000598: 36,3442           00047                                    X1                                    
040411,000599: 36,3443           00017                                    14D                                   
040412,000600: 36,3444           56005                           DMP      XAD,1                                 #  T (+(3 OR 7)+C(X2)+(7 OR 16)+C(X1))
040413,000601: 36,3445           00015                                    12D                                   
040414,000602: 36,3446           00047                                    X2                                    
040415,000603: 36,3447           77614                           BON                                            
040416,000604: 36,3450           02305                                    SMANGLSW                              
040417,000605: 36,3451           75502                                    THETASM                               
040418,000606: 36,3452           43014                           BOFF     BOFF                                  
040419,000607: 36,3453           02345                                    MOONSW                                
040420,000608: 36,3454           75465                                    NEARERTH                              
040421,000609: 36,3455           02345                                    ESCPSW                                
040422,000610: 36,3456           75462                                    +4                                    
040423,000611: 36,3457           52057                           SR*      GOTO                                  
040424,000612: 36,3460           20564                                    0          -13D,1                     
040425,000613: 36,3461           75475                                    TMESTORE                              
040426,000614: 36,3462           52057                           SR*      GOTO                                  
040427,000615: 36,3463           20575                                    0          -4,1                       
040428,000616: 36,3464           75475                                    TMESTORE                              
040429,000617: 36,3465           53614        NEARERTH           BOFF     SR*                                   
040430,000618: 36,3466           02345                                    ESCPSW                                
040431,000619: 36,3467           75473                                    +4                                    
040432,000620: 36,3470           20570                                    0          -9D,1                      
040433,000621: 36,3471           77650                           GOTO                                           

Page 941

040435,000623: 36,3472           75475                                    TMESTORE                              
040436,000624: 36,3473           77657                           SR*                                            
040437,000625: 36,3474           20601                                    0,1                                   
040438,000626: 36,3475           77600        TMESTORE           BOV                                            
040439,000627: 36,3476           75510                                    TIMELONG                              
040440,000628: 36,3477           00015                           STORE    12D                                   #  12D=T (+10)
040441,000629: 36,3500           43401                           SETPD    RVQ                                   
040442,000630: 36,3501           00001                                    0D                                    
040443,000631: 
040444,000632: 
040445,000633: 36,3502           42414        THETASM            BOFF     SL4                                   #  T (+7 +C(X1))
040446,000634: 36,3503           02342                                    ITERSW                                
040447,000635: 36,3504           75505                                    ERTHSFER                              
040448,000636: 36,3505           52057        ERTHSFER           SR*      GOTO                                  
040449,000637: 36,3506           20604                                    3,1                                   
040450,000638: 36,3507           75475                                    TMESTORE                              
040451,000639: 
040452,000640: 36,3510           52145        TIMELONG           DLOAD    GOTO                                  
040453,000641: 36,3511           35652                                    NEARI                                 
040454,000642: 36,3512           75477                                    TMESTORE   +2                         
040455,000643: 
040456,000644: 
040457,000645:                                                                                                  #  T (+10) IN 12D  AND IN MPAC.
040458,000646: 
040459,000647: 

Page 942

040461,000649:                                                                                                  #  THIS IS A GENERAL NEWTON ITERATOR WHEREIN A STARTING INDEPENDENT VARIABL
040462,000650:                                                                                                  #  IS INPUT AND THE CHANGE IN THE INDEPENDENT VARIABLE IS OUTPUT.  THE
040463,000651:                                                                                                  #  BOUNDS OF THE INDEPENDENT VARIABLE,MAXINDEP AND MININDEP, MUST BE AVAILA
040464,000652:                                                                                                  #  BLE AND SWITCH 7 MUST BE SET.  IF A GOOD GUESS TO INDEP IS KNOWN,
040465,000653:                                                                                                  #  TWEEKIT SHOULD BE SET TO A SMALL FRACTION,DEPENDING ON HOW WELL INDEP IS
040466,000654:                                                                                                  #  KNOWN.  OTHERWISE THE FIRST GUESS TO INDEP SHOULD BE .5(MAXINDEP+MININ-
040467,000655:                                                                                                  #  DEP) AND TWEEKIT SHOULD BE SET TO .25. IT IS ASSUMED THAT THE CRITERIA
040468,000656:                                                                                                  #  FOR EXITING FROM THE CALLING PROGRAMS LOOP IS IN THE CALLING PROGRAM.
040469,000657:                                                                                                  #  THE DEPENDENT VARIABLE MUST BE IN DEPVAR AND THE PREVIOUS ONE MUST BE IN
040470,000658:                                                                                                  #  PREVDEP.  THE SIGN OF TWEEKIT SOULD BE +/- ACCORDING TO WHETHER THE
040471,000659:                                                                                                  #  SINGLE-VALUED FUNCTION IS MONOTONICLY INCREASING OR DECREASING.
040472,000660: 
040473,000661: 
040474,000662: 36,3513           71214        ITERATOR           BONCLR   DLOAD                                 
040475,000663: 36,3514           02202                                    ITERSW                                
040476,000664: 36,3515           75544                                    FRSTTIME                              
040477,000665: 36,3516           01727                                    DEPVAR                                
040478,000666: 36,3517           60225                           DSU      NORM                                  
040479,000667: 36,3520           01731                                    PREVDEP                               
040480,000668: 36,3521           00047                                    X1                                    
040481,000669: 36,3522           70525                           PDDL     SR1                                   #                                 PL DOWN 2
040482,000670: 36,3523           01733                                    DELDEP                                
040483,000671: 36,3524           77671                           DDV                                            #                                 PL UP 2
040484,000672: 36,3525           53605                           DMP      SL*                                   
040485,000673: 36,3526           01735                                    DELINDEP                              
040486,000674: 36,3527           20202                                    1,1                                   
040487,000675: 36,3530           01735        NEWDELTA           STORE    DELINDEP                              
040488,000676: 36,3531           71240                           BMN      DLOAD                                 #  NOW MUST CHECK TO SEE IF THIS DELTA CAN
040489,000677: 36,3532           75556                                    MINCHECK                              #  CAUSE THE INDEPENDENT VARIABLE TO EXCEED
040490,000678: 36,3533           00033                                    MAXINDEP                              #  ITS LIMITS.
040491,000679: 36,3534           45225                           DSU      DSU                                   
040492,000680: 36,3535           01723                                    INDEP                                 
040493,000681: 36,3536           01735                                    DELINDEP                              
040494,000682: 36,3537           50000                           BOV      BMN                                   
040495,000683: 36,3540           75570                                    XEEDULMT                              
040496,000684: 36,3541           75570                                    XEEDULMT                              
040497,000685: 36,3542           43545                           DLOAD    RVQ                                   
040498,000686: 36,3543           01735                                    DELINDEP                              
040499,000687: 
040500,000688: 
040501,000689: 36,3544           41345        FRSTTIME           DLOAD    DMP                                   
040502,000690: 36,3545           00027                                    MININDEP                              
040503,000691: 36,3546           01725                                    TWEEKIT                               #  TWEEKIT SHOULD BE SET  .25  IF THE FIRST
040504,000692:                                                                                                  #  GUESS OF INDEP WAS .5(MAXINDEP+MININDEP)
040505,000693: 36,3547           41325                           PDDL     DMP                                   #                                 DOWN 2D
040506,000694: 36,3550           00033                                    MAXINDEP                              
040507,000695: 36,3551           01725                                    TWEEKIT                               
040508,000696: 36,3552           77625                           DSU                                            #                                 UP 2D  

Page 943

040510,000698: 36,3553           52165                           SIGN     GOTO                                  
040511,000699: 36,3554           01733                                    DELDEP                                
040512,000700: 36,3555           75530                                    NEWDELTA                              
040513,000701: 36,3556           45345        MINCHECK           DLOAD    DSU                                   
040514,000702: 36,3557           00027                                    MININDEP                              
040515,000703: 36,3560           01723                                    INDEP                                 
040516,000704: 36,3561           40025                           DSU      BOV                                   
040517,000705: 36,3562           01735                                    DELINDEP                              
040518,000706: 36,3563           75575                                    XEEDLLMT                              
040519,000707: 36,3564           71244                           BPL      DLOAD                                 
040520,000708: 36,3565           75575                                    XEEDLLMT                              
040521,000709: 36,3566           01735                                    DELINDEP                              
040522,000710: 36,3567           77616                           RVQ                                            
040523,000711: 
040524,000712: 
040525,000713: 36,3570           45345        XEEDULMT           DLOAD    DSU                                   
040526,000714: 36,3571           00033                                    MAXINDEP                              
040527,000715: 36,3572           01723                                    INDEP                                 
040528,000716: 36,3573           01735                           STORE    DELINDEP                              
040529,000717: 36,3574           77616                           RVQ                                            
040530,000718: 
040531,000719: 
040532,000720: 36,3575           45345        XEEDLLMT           DLOAD    DSU                                   
040533,000721: 36,3576           00027                                    MININDEP                              
040534,000722: 36,3577           01723                                    INDEP                                 
040535,000723: 36,3600           01735                           STORE    DELINDEP                              
040536,000724: 36,3601           77616                           RVQ                                            
040537,000725: 
040538,000726: 

Page 944

040540,000728:                                                                                                  #  ASSUMES 32D=R (+7), 34D=P (+2), TAG5 (+/-), 18D=COGA (+5), UNR1 (+1), R2
040541,000729:                                                                                                  #  VEC (+7) AVAILABLE.
040542,000730: 36,3602           60345        INITV              DLOAD    NORM                                  
040543,000731: 36,3603           00041                                    32D                                   
040544,000732: 36,3604           00047                                    X1                                    
040545,000733: 36,3605           70525                           PDDL     SR1                                   #  R1 (+7-N1)                     PL AT 2D
040546,000734: 36,3606           00043                                    34D                                   
040547,000735: 36,3607           77671                           DDV                                            #  P/R1 (-4+N1)                   PL AT 0D
040548,000736: 36,3610           41214                           BOFF     DMP                                   
040549,000737: 36,3611           02345                                    MOONSW                                
040550,000738: 36,3612           75617                                    OUTSIDE                               
040551,000739: 36,3613           35664                                    MU                                    
040552,000740: 36,3614           52057                           SL*      GOTO                                  
040553,000741: 36,3615           20165                                    0          -12D,1                     
040554,000742: 36,3616           75621                                    MAGVTAN                               
040555,000743: 36,3617           77657        OUTSIDE            SL*                                            
040556,000744: 36,3620           20173                                    0          -6,1                       
040557,000745: 36,3621           63366        MAGVTAN            SQRT     PDVL                                  #  V SIN(GAMMA) (+1)              PL AT 2D
040558,000746: 
040559,000747: 36,3622           01701                                    UNR1                                  
040560,000748: 36,3623           63361                           VXSC     PDVL                                  #  2D=COGA UNR1 (+6)              PL AT 8D
040561,000749: 36,3624           00023                                    18D                                   
040562,000750: 36,3625           01715                                    UNNORM                                
040563,000751: 36,3626           60435                           VXV      VSR4                                  #  UNVTAN (+6)
040564,000752: 36,3627           01701                                    UNR1                                  
040565,000753: 36,3630           74255                           VAD      VXSC                                  #                                 PL AT 2D,0D
040566,000754: 36,3631           46561                           VXSC     VSL7                                  
040567,000755: 36,3632           35670                                    VFACT                                 #  SCALE FOR ASCENT STEERING AT +7
040568,000756: 36,3633           02324                           STORE    V0VEC                                 
040569,000757: 36,3634           77616                           RVQ                                            
040570,000758: 
040571,000759:                                                                                                  #  RETURNS WITH VELOCITY IN MPAC AND IN V0VEC SCALED (+1)
040572,000760: 
040573,000761: 

Page 945

040575,000763: 36,3635           00020 00000  D1/1024            2DEC     .5         B-9                        
040576,000764: 
040577,000765: 36,3637           00400 00000  D1/64              2DEC     .5         B-5                        
040578,000766: 
040579,000767: 36,3641           01000 00000  D1/32              2DEC     .5         B-4                        
040580,000768: 
040581,000769: 36,3643           10000 00000  D1/4               2DEC     .5         B-1                        
040582,000770: 
040583,000771: 36,3645           20000 00000  D1/2               2DEC     .5                                    
040584,000772: 

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.

040588,000776: 36,3647           00000 00001  NEARZERO           2OCT     1                                     
040589,000777: 
040590,000778: 36,3651           37777 37777  NEARI              2OCT     3777737777                            
040591,000779: 
040592,000780: 36,3653           37757 37777  BIGNO              2OCT     3775737777                            
040593,000781: 
040594,000782: 36,3655           00020 14223  PERCENT            2DEC     E-3        B-28                       
040595,000783: 
040596,000784: 36,3657           00130 27103  LN2/128            2DEC     .693147181 B-7                        
040597,000785: 
040598,000786: 36,3661           22031 22343  ROOTMU             2DEC     9.0249769  B-4                        
040599,000787: 
040600,000788: 36,3663           31111 32405  MU                 2DEC     .0122774395 B+6                        
040601,000789: 
040602,000790: 36,3665           40010 40042  ABSOLMIN           2DEC     -.999511590                            
040603,000791: 
040604,000792: 36,3667           30276 05000  VFACT              2DEC     .761606218                            
040605,000793: 
040606,000794: 36,3671  36,3667               TFACT              EQUALS   VFACT                                 
040607,000795: 36,3671           00000 00036  DEPCRIT            2DEC     1.135      E-7                        #  50 MS. SCALED BY TNORM

End of include-file LAMB.agc.  Parent file is MAIN.agc