Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

036043,000002:                                                                                                  ## Copyright:   Public domain.
036044,000003:                                                                                                  ## Filename:    ASCENT_GUIDANCE.agc
036045,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
036046,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
036047,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
036048,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
036049,000008:                                                                                                  ##              that the code format has been changed to conform to the
036050,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
036051,000010:                                                                                                  ##              original YUL assembler.
036052,000011:                                                                                                  ## Reference:   pp. 836-851
036053,000012:                                                                                                  ## Assembler:   yaYUL
036054,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036055,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036056,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
036057,000016:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes identified in 5-way
036058,000017:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
036059,000018:                                                                                                  ##              2017-03-15 HG   Transcribed
036060,000019: 

Page 836

036062,000021: 34,3372                                           BANK     34                                    
036063,000022: 34,2000                                           SETLOC   ASCFILT                               
036064,000023: 34,2000                                           BANK                                           
036065,000024: 
036066,000025: 34,3372  E7,1515                                  EBANK=   DVCNTR                                
036067,000026: 
036068,000027: 34,3372                                           COUNT*   $$/ASENT                              
036069,000028: 
036070,000029: 34,3372           05353        ATMAG              TC       PHASCHNG                              
036071,000030: 34,3373           00035                           OCT      00035                                 
036072,000031: 34,3374           06042                           TC       INTPRET                               
036073,000032: 34,3375           77614                           BON                                            
036074,000033: 34,3376           04705                                    FLRCS                                 
036075,000034: 34,3377           60315                                    ASCENT                                
036076,000035: 34,3400           45345                           DLOAD    DSU                                   
036077,000036: 34,3401           03514                                    ABDVCONV                              
036078,000037: 34,3402           26203                                    MINABDV                               
036079,000038: 34,3403           43040                           BMN      CLEAR                                 
036080,000039: 34,3404           60756                                    ASCTERM4                              
036081,000040: 34,3405           04267                                    SURFFLAG                              
036082,000041: 34,3406           67214                           CLEAR    SLOAD                                 
036083,000042: 34,3407           02676                                    RENDWFLG                              
036084,000043: 34,3410           31446                                    BIT3H                                 
036085,000044: 34,3411           77471                           DDV      EXIT                                  
036086,000045: 34,3412           03514                                    ABDVCONV                              
036087,000046: 34,3413           52155                           DXCH     MPAC                                  
036088,000047: 34,3414           53641                           DXCH     1/DV3                                 
036089,000048: 34,3415           53637                           DXCH     1/DV2                                 
036090,000049: 34,3416           53635                           DXCH     1/DV1                                 
036091,000050: 34,3417           53571                           DXCH     1/DV0                                 
036092,000051: 34,3420           06042                           TC       INTPRET                               
036093,000052: 34,3421           43345                           DLOAD    DAD                                   
036094,000053: 34,3422           03571                                    1/DV0                                 
036095,000054: 34,3423           03635                                    1/DV1                                 
036096,000055: 34,3424           43215                           DAD      DAD                                   
036097,000056: 34,3425           03637                                    1/DV2                                 
036098,000057: 34,3426           03641                                    1/DV3                                 
036099,000058: 34,3427           41205                           DMP      DMP                                   
036100,000059: 34,3430           02265                                    VE                                    
036101,000060: 34,3431           21017                                    2SEC(9)                               
036102,000061: 34,3432           65252                           SL3      PDDL                                  
036103,000062: 34,3433           02271                                    TBUP                                  
036104,000063: 34,3434           43342                           SR1      DAD                                   
036105,000064: 34,3435           77625                           DSU                                            
036106,000065: 34,3436           21014                                    6SEC(18)                              
036107,000066: 34,3437           16271                           STODL    TBUP                                  
036108,000067: 34,3440           02265                                    VE                                    
036109,000068: 34,3441           56342                           SR1      DDV                                   
036110,000069: 34,3442           02271                                    TBUP                                  
036111,000070: 34,3443           36263                           STCALL   AT                                    
036112,000071: 

Page 837

036114,000073: 34,3444           60315                                    ASCENT                                
036115,000074: 34,3445           00004        BIT3H              OCT      4                                     
036116,000075: 

Page 838

036118,000077: 30,2315                                           BANK     30                                    
036119,000078: 30,2000                                           SETLOC   ASENT                                 
036120,000079: 30,2000                                           BANK                                           
036121,000080: 30,2315                                           COUNT*   $$/ASENT                              
036122,000081: 
036123,000082: 30,2315           51575        ASCENT             VLOAD    ABVAL                                 
036124,000083: 30,2316           03521                                    R                                     
036125,000084: 30,2317           26301                           STOVL    /R/MAG                                
036126,000085: 30,2320           03726                                    ZAXIS1                                
036127,000086: 30,2321           72441                           DOT      SL1                                   
036128,000087: 30,2322           03527                                    V                                     #  Z.V = ZDOT*2(-8).
036129,000088: 30,2323           26313                           STOVL    ZDOT                                  #  ZDOT*2(-7)
036130,000089: 30,2324           03726                                    ZAXIS1                                
036131,000090: 30,2325           76435                           VXV      VSL1                                  
036132,000091: 30,2326           03537                                    UNIT/R/                               #  Z X UR = LAXIS*2(-2)
036133,000092: 30,2327           02303                           STORE    LAXIS                                 #  LAXIS*2(-1)
036134,000093: 30,2330           72441                           DOT      SL1                                   
036135,000094: 30,2331           03527                                    V                                     #  L.V = YDOT*2(-8).
036136,000095: 30,2332           36311                           STCALL   YDOT                                  #  YDOT * 2(-7)
036137,000096: 30,2333           57312                                    YCOMP                                 
036138,000097: 30,2334           77775                           VLOAD                                          
036139,000098: 30,2335           03563                                    GDT1/2                                #  LOAD GDT1/2*2(-7)M/CS.
036140,000099: 30,2336           50341                           V/SC     DOT                                   
036141,000100: 30,2337           27106                                    2SEC(18)                              
036142,000101: 30,2340           03537                                    UNIT/R/                               #  G.UR*2(9) = GR*2(9).
036143,000102: 30,2341           47315                           PDVL     VXV                                   #  STORE IN PDL(0)                    (2)
036144,000103: 30,2342           03537                                    UNIT/R/                               #  LOAD UNIT/R/*2(-1).
036145,000104: 30,2343           03527                                    V                                     #  UR*2(-1) X V*2(-7) = H/R*2(-8).
036146,000105: 30,2344           56236                           VSQ      DDV                                   #  H(2)/R(2)*2(-16).
036147,000106: 30,2345           02301                                    /R/MAG                                #  H(2)/R(3)*2(9).
036148,000107: 30,2346           43352                           SL1      DAD                                   
036149,000108: 30,2347           77626                           STADR                                          
036150,000109: 30,2350           75462                           STORE    GEFF                                  #  GEFF*2(10)M/CS/CS.
036151,000110: 30,2351           45014                           BOFF     CALL                                  #  IF P7071FLG = 1 (I.E. P70 OR P71)
036152,000111: 30,2352           04742                                    P7071FLG                              #      CALL ZDOTCOMP TO UPDATE ZDOTD
036153,000112: 30,2353           60355                                    +2                                    #      ON THE BASIS OF THE LAST RP.
036154,000113: 30,2354           71524                                    ZDOTCOMP                              
036155,000114: 30,2355           45345                 +2        DLOAD    DSU                                   
036156,000115: 30,2356           02277                                    ZDOTD                                 
036157,000116: 30,2357           02313                                    ZDOT                                  
036158,000117: 30,2360           02343                           STORE    DZDOT                                 #  DZDOT = (ZDOTD - ZDOT)*2(7)M/CS.
036159,000118: 30,2361           65361                           VXSC     PDDL                                  
036160,000119: 30,2362           03726                                    ZAXIS1                                
036161,000120: 30,2363           02275                                    YDOTD                                 
036162,000121: 30,2364           77625                           DSU                                            
036163,000122: 30,2365           02311                                    YDOT                                  
036164,000123: 

Page 839

036166,000125: 30,2366           02341                           STORE    DYDOT                                 #  DYDOT = (YDOTD - YDOT)*2(7)M/CS.
036167,000126: 30,2367           65361                           VXSC     PDDL                                  
036168,000127: 30,2370           02303                                    LAXIS                                 
036169,000128: 30,2371           02273                                    RDOTD                                 
036170,000129: 30,2372           77625                           DSU                                            
036171,000130: 30,2373           03474                                    RDOT                                  
036172,000131: 30,2374           02337                           STORE    DRDOT                                 #  DRDOT = (RDOTD - RDOT)*2(7)M/CS.
036173,000132: 30,2375           53361                           VXSC     VAD                                   
036174,000133: 30,2376           03537                                    UNIT/R/                               
036175,000134: 30,2377           76455                           VAD      VSL1                                  
036176,000135: 30,2400           77626                           STADR                                          
036177,000136: 30,2401           74131                           STORE    VGVECT                                #  VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
036178,000137: 30,2402           41345                           DLOAD    DMP                                   #  LOAD TGO
036179,000138: 30,2403           03517                                    TGO                                   #  TGO GEFF
036180,000139: 30,2404           02315                                    GEFF                                  
036181,000140: 30,2405           76561                           VXSC     VSL1                                  
036182,000141: 30,2406           03537                                    UNIT/R/                               #  TGO GEFF UR
036183,000142: 30,2407           77645                           BVSU                                           
036184,000143: 30,2410           03646                                    VGVECT                                #  COMPENSATED FOR GEFF
036185,000144: 30,2411           03646                           STORE    VGVECT                                #  STORE FOR DOWNLINK
036186,000145: 30,2412           76521                           MXV      VSL1                                  #  GET VGBODY FOR N85 DISPLAY
036187,000146: 30,2413           02146                                    XNBPIP                                
036188,000147: 30,2414           27502                           STOVL    VGBODY                                
036189,000148: 30,2415           03646                                    VGVECT                                
036190,000149: 30,2416           43046                           ABVAL    BOFF                                  #  MAGNITUDE OF VGVECT
036191,000150: 30,2417           04745                                    FLRCS                                 #  IF FLRCS=0,DO NORMAL GUIDANCE
036192,000151: 30,2420           60427                                    MAINENG                               
036193,000152: 30,2421           77671                           DDV                                            #  USE TGO=VG/AT  WITH RCS
036194,000153: 30,2422           20001                                    AT/RCS                                
036195,000154: 30,2423           37517                           STCALL   TGO                                   #  THIS WILL BE USED ON NEXT CYCLE
036196,000155: 30,2424           71475                                    RPCOMP1                               #  COMPUTE NEW RR FOR NEXT CYCLE.
036197,000156: 30,2425           77650                           GOTO                                           
036198,000157: 30,2426           60754                                    ASCTERM2                              
036199,000158: 30,2427           41471        MAINENG            DDV      PUSH                                  #  VG/VE IN PDL(0)                      (2)
036200,000159: 30,2430           02265                                    VE                                    
036201,000160: 30,2431           44342                           SR1      BDSU                                  #  1 - KT VG/VE
036202,000161: 30,2432           17771                                    NEARONE                               
036203,000162: 30,2433           41205                           DMP      DMP                                   #  TBUP VG(1-KT VG/VE)/VE               (0)
036204,000163: 30,2434           02271                                    TBUP                                  #   = TGO
036205,000164: 30,2435           77625                           DSU                                            #  COMPENSATE FOR TAILOFF
036206,000165: 30,2436           02267                                    TTO                                   
036207,000166: 30,2437           03517                           STORE    TGO                                   
036208,000167: 30,2440           57461                           SR       DCOMP                                 
036209,000168: 30,2441           20614                                    11D                                   
036210,000169: 30,2442           17454                           STODL    TTOGO                                 #  TGO*2(-28) CS
036211,000170: 30,2443           03517                                    TGO                                   
036212,000171: 30,2444           45214                           BON      DSU                                   
036213,000172: 30,2445           03710                                    IDLEFLAG                              
036214,000173: 30,2446           60452                                    T2TEST                                
036215,000174: 30,2447           21006                                    4SEC(17)                              #  ( TGO - 4 )*2(-17)CS.
036216,000175: 

Page 840

036218,000177: 30,2450           77640                           BMN                                            
036219,000178: 30,2451           30347                                    ENGOFF                                
036220,000179: 30,2452           77745        T2TEST             DLOAD                                          
036221,000180: 30,2453           03517                                    TGO                                   
036222,000181: 30,2454           50025                           DSU      BMN                                   #  IF TGO - T2 NEG., GO TO CMPONENT
036223,000182: 30,2455           21010                                    T2A                                   
036224,000183: 30,2456           60612                                    CMPONENT                              
036225,000184: 30,2457           45345                           DLOAD    DSU                                   
036226,000185: 30,2460           02271                                    TBUP                                  
036227,000186: 30,2461           03517                                    TGO                                   
036228,000187: 30,2462           45071                           DDV      CALL                                  #  1-TGO/TBUP
036229,000188: 30,2463           02271                                    TBUP                                  
036230,000189: 30,2464           61023                                    LOGSUB                                
036231,000190: 30,2465           41461                           SL       PUSH                                  #  -L IN PDL(0)                        (2)
036232,000191: 30,2466           20206                                    5                                     
036233,000192: 30,2467           44265                           BDDV     BDSU                                  #  -TGO/L*2(-17)
036234,000193: 30,2470           03517                                    TGO                                   
036235,000194: 30,2471           02271                                    TBUP                                  #  TBUP + TGO/L = D12*2(-17)
036236,000195: 30,2472           43006                           PUSH     BON                                   #  STORE IN PDL(2)                      (4)
036237,000196: 30,2473           04703                                    FLPC                                  #  IF FLPC = 1, GO TO CONST
036238,000197: 30,2474           60503                                    NORATES                               
036239,000198: 30,2475           45345                           DLOAD    DSU                                   
036240,000199: 30,2476           03517                                    TGO                                   
036241,000200: 30,2477           21012                                    T3                                    
036242,000201: 30,2500           43044                           BPL      SET                                   #  FLPC=1
036243,000202: 30,2501           60510                                    RATES                                 
036244,000203: 30,2502           04463                                    FLPC                                  
036245,000204: 30,2503           77745        NORATES            DLOAD                                          
036246,000205: 30,2504           06524                                    HI6ZEROS                              
036247,000206: 30,2505           02351                           STORE    PRATE                                 #  B = 0
036248,000207: 30,2506           36353                           STCALL   YRATE                                 #  D = 0
036249,000208: 30,2507           60572                                    CONST                                 #  GO TO CONST
036250,000209: 30,2510           45345        RATES              DLOAD    DSU                                   
036251,000210: 30,2511           03517                                    TGO                                   
036252,000211: 30,2512           00003                                    02D                                   #  TGO - D12 = D21*2(-17)
036253,000212: 30,2513           72406                           PUSH     SL1                                   #  IN PDL(4)                            (6)
036254,000213: 30,2514           52421                           BDSU     SL3                                   #  (1/2TGO - D21)*2(-13) = E * 2(-13)
036255,000214: 30,2515           03517                                    TGO                                   #                                       (8)
036256,000215: 30,2516           41325                           PDDL     DMP                                   #  IN PDL(6)
036257,000216: 30,2517           03517                                    TGO                                   
036258,000217: 30,2520           03474                                    RDOT                                  #  RDOT TGO * 2(-24)
036259,000218: 30,2521           45215                           DAD      DSU                                   #  R + RDOT TGO
036260,000219: 30,2522           02301                                    /R/MAG                                #  R + RDOT TGO - RCO
036261,000220: 30,2523           03631                                    RCO                                   #  MPAC = -DR *2(-24).
036262,000221: 30,2524           41325                           PDDL     DMP                                   #  -DR IN PDL(8)                       (10)
036263,000222: 30,2525           02337                                    DRDOT                                 
036264,000223: 30,2526           00005                                    04D                                   #  D21 DRDOT*2(-24)
036265,000224: 30,2527           62415                           DAD      SL2                                   #  (D21 DRDOT-DR)*2(-22)                (8)
036266,000225: 30,2530           56271                           DDV      DDV                                   
036267,000226: 30,2531           00007                                    06D                                   #  (D21 DRDOT-DR)/E*2(-9)
036268,000227: 

Page 841

036270,000229: 30,2532           03517                                    TGO                                   
036271,000230: 30,2533           02351                           STORE    PRATE                                 #  B * 2(8)
036272,000231: 30,2534           71240                           BMN      DLOAD                                 #  B>0 NOT PERMITTED
036273,000232: 30,2535           60541                                    CHKBMAG                               
036274,000233: 30,2536           06524                                    HI6ZEROS                              
036275,000234: 30,2537           36351                           STCALL   PRATE                                 
036276,000235: 30,2540           60553                                    PROK                                  
036277,000236: 30,2541           56202        CHKBMAG            SR4      DDV                                   #  B*2(4)
036278,000237: 30,2542           02271                                    TBUP                                  #  (B / TAU) * 2(21)
036279,000238: 30,2543           51025                           DSU      BPL                                   
036280,000239: 30,2544           26201                                    PRLIMIT                               #  ( B/ TAU) * 2(21) MAX.
036281,000240: 30,2545           60553                                    PROK                                  
036282,000241: 30,2546           41345                           DLOAD    DMP                                   
036283,000242: 30,2547           26201                                    PRLIMIT                               
036284,000243: 30,2550           02271                                    TBUP                                  #  B MAX. * 2(4)
036285,000244: 30,2551           77612                           SL4                                            #  BMAX*2(8)
036286,000245: 30,2552           02351                           STORE    PRATE                                 
036287,000246: 30,2553           77745        PROK               DLOAD                                          
036288,000247: 30,2554           03517                                    TGO                                   
036289,000248: 30,2555           43205                           DMP      DAD                                   #  YDOT TGO
036290,000249: 30,2556           02311                                    YDOT                                  
036291,000250: 30,2557           02335                                    Y                                     #  Y + YDOT TGO
036292,000251: 30,2560           65225                           DSU      PDDL                                  #  Y + YDOT TGO - YCO
036293,000252: 30,2561           03633                                    YCO                                   #  MPAC = - DY*2(-24.) IN PDL(8)        (10)
036294,000253: 30,2562           02341                                    DYDOT                                 
036295,000254: 30,2563           43205                           DMP      DAD                                   #  D21 DYDOT - DY                       (8)
036296,000255: 30,2564           00005                                    04D                                   
036297,000256: 30,2565           56312                           SL2      DDV                                   #  (D21 DYDOT - DY)/E*2(-9)
036298,000257: 30,2566           40271                           DDV      SETPD                                 #  (D21 DYDOT - DY)/E TGO*2(8)
036299,000258: 30,2567           03517                                    TGO                                   #    = D*2(8)
036300,000259: 30,2570           00005                                    04                                    
036301,000260: 30,2571           02353                           STORE    YRATE                                 
036302,000261: 30,2572           41345        CONST              DLOAD    DMP                                   #  LOAD B*2(8)
036303,000262: 30,2573           02351                                    PRATE                                 #  B D12*2(-9)
036304,000263: 30,2574           00003                                    02D                                   
036305,000264: 30,2575           56325                           PDDL     DDV                                   #  D12 B IN PDL(4)                      (6)
036306,000265: 30,2576           02337                                    DRDOT                                 #  LOAD DRDOT*2(-7)
036307,000266: 30,2577           00001                                    00D                                   #  -DRDOT/L*2(-7)
036308,000267: 30,2600           45302                           SR2      DSU                                   #  (-DRDOT/L-D12 B)=A*2(-9)              (4)
036309,000268: 30,2601           77626                           STADR                                          
036310,000269: 30,2602           61432                           STODL    PCONS                                 
036311,000270: 30,2603           02353                                    YRATE                                 #  D*2(8)
036312,000271: 30,2604           65205                           DMP      PDDL                                  #  D12 D,EXCH WITH -L IN PDL(0)        (2,2)
036313,000272: 30,2605           60465                           BDDV     SR2                                   #  -DYDOT/L*2(-9)
036314,000273: 30,2606           02341                                    DYDOT                                 
036315,000274: 30,2607           77625                           DSU                                            #  (-DYDOT/L-D12 D)=C*2(-9)
036316,000275: 30,2610           00001                                    00D                                   
036317,000276: 30,2611           02347                           STORE    YCONS                                 
036318,000277: 30,2612           43001        CMPONENT           SETPD    BOFF                                  
036319,000278: 30,2613           00001                                    00D                                   
036320,000279: 

Page 842

036322,000281: 30,2614           04742                                    P7071FLG                              
036323,000282: 30,2615           60620                                    +3                                    #  IF P7071FLG = 1 (I.E. P70 OR P71)
036324,000283: 30,2616           77624                           CALL                                           #      COMPUTE NEW RP FOR NEXT CYCLE.
036325,000284: 30,2617           71501                                    RPCOMP2                               
036326,000285: 30,2620           41345                 +3        DLOAD    DMP                                   
036327,000286: 30,2621           27106                                    100CS                                 
036328,000287: 30,2622           02351                                    PRATE                                 #  B(T-T0)*2(-9)
036329,000288: 30,2623           56215                           DAD      DDV                                   #  (A+B(T-T0))*2(-9)
036330,000289: 30,2624           02345                                    PCONS                                 #  (A+B(T-T0))/TBUP*2(8)
036331,000290: 30,2625           02271                                    TBUP                                  
036332,000291: 30,2626           45352                           SL1      DSU                                   
036333,000292: 30,2627           02315                                    GEFF                                  #  ATR*2(9)
036334,000293: 30,2630           16357                           STODL    ATR                                   
036335,000294: 30,2631           27106                                    100CS                                 
036336,000295: 30,2632           43205                           DMP      DAD                                   
036337,000296: 30,2633           02353                                    YRATE                                 
036338,000297: 30,2634           02347                                    YCONS                                 #  (C+D(T-T0))*2(-9)
036339,000298: 30,2635           72471                           DDV      SL1                                   
036340,000299: 30,2636           02271                                    TBUP                                  
036341,000300: 30,2637           02355                           STORE    ATY                                   #  ATY*2(9)
036342,000301: 30,2640           65361                           VXSC     PDDL                                  #  ATY UY*2(8)                          (6)
036343,000302: 30,2641           02303                                    LAXIS                                 
036344,000303: 30,2642           02357                                    ATR                                   
036345,000304: 30,2643           53361                           VXSC     VAD                                   #                                       (0)
036346,000305: 30,2644           03537                                    UNIT/R/                               
036347,000306: 30,2645           41572                           VSL1     PUSH                                  #  AH*2(9) IN PDL(0)                    (6)
036348,000307: 30,2646           65246                           ABVAL    PDDL                                  #  AH(2) IN PDL(34)
036349,000308: 30,2647           02263                                    AT                                    #  AHMAG IN PDL(6)                      (8)
036350,000309: 30,2650           45316                           DSQ      DSU                                   #  (AT(2)-AH(2))*2(18)
036351,000310: 30,2651           00043                                    34D                                   #  =ATP2*2(18)
036352,000311: 30,2652           41525                           PDDL     PUSH                                  #                                       (12)
036353,000312: 30,2653           02263                                    AT                                    
036354,000313: 30,2654           45316                           DSQ      DSU                                   #  (AT(2)KR(2)-AH(2))*2(18)             (10)
036355,000314: 30,2655           00043                                    34D                                   #  =ATP3*2(18)
036356,000315: 30,2656           71240                           BMN      DLOAD                                 #  IF ATP3 NEG,GO TO NO-ATP
036357,000316: 30,2657           60663                                    NO-ATP                                #  LOAD ATP2,IF ATP3 POS
036358,000317: 30,2660           00011                                    8D                                    
036359,000318: 30,2661           52166                           SQRT     GOTO                                  #  ATP*2(9)
036360,000319: 30,2662           60671                                    AIMER                                 
036361,000320: 30,2663           55345        NO-ATP             DLOAD    BDDV                                  #  KR AT/AH = KH                        (8)
036362,000321: 30,2664           00007                                    6D                                    
036363,000322: 30,2665           77761                           VXSC                                           #  KH AH*2(9)
036364,000323: 30,2666           00001                                    00D                                   
036365,000324: 30,2667           14001                           STODL    00D                                   #  STORE NEW AH IN PDL(0)
036366,000325: 30,2670           06524                                    HI6ZEROS                              
036367,000326: 30,2671           77765        AIMER              SIGN                                           
036368,000327: 30,2672           02343                                    DZDOT                                 
036369,000328: 30,2673           02361                           STORE    ATP                                   
036370,000329: 30,2674           77761                           VXSC                                           
036371,000330: 30,2675           03726                                    ZAXIS1                                #  ATP ZAXIS *2(8).
036372,000331: 

Page 843

036374,000333: 30,2676           53372                           VSL1     VAD                                   #  AT*2(9)
036375,000334: 30,2677           00001                                    00D                                   
036376,000335: 30,2700           03254                           STORE    UNFC/2                                #  WILL BE OVERWRITTEN IF IN VERT. RISE.
036377,000336: 30,2701           43001                           SETPD    BON                                   
036378,000337: 30,2702           00001                                    00D                                   
036379,000338: 30,2703           04704                                    FLPI                                  
036380,000339: 30,2704           60216                                    P12RET                                
036381,000340: 30,2705           77614                           BON                                            
036382,000341: 30,2706           04701                                    FLVR                                  
036383,000342: 30,2707           60763                                    CHECKALT                              
036384,000343: 30,2710           57575        MAINLINE           VLOAD    VCOMP                                 
036385,000344: 30,2711           03537                                    UNIT/R/                               
036386,000345: 30,2712           17262                           STODL    UNWC/2                                
036387,000346: 30,2713           03654                                    TXO                                   
036388,000347: 30,2714           51025                           DSU      BPL                                   
036389,000348: 30,2715           01234                                    PIPTIME                               
036390,000349: 30,2716           60730                                    ASCTERM                               
036391,000350: 30,2717           77614                           BON                                            
036392,000351: 30,2720           04711                                    ROTFLAG                               
036393,000352: 30,2721           57273                                    ANG1CHEK                              
036394,000353: 30,2722           43014        CLRXFLAG           CLEAR    BON                                   #  ALLOW X-AXIS OVERRIDE
036395,000354: 30,2723           06666                                    XOVINFLG                              
036396,000355: 30,2724           04702                                    P7071FLG                              #  ONLY ACTIVATE R29 IF IN P12
036397,000356: 30,2725           60730                                    ASCTERM                               
036398,000357: 30,2726           77614                           CLEAR                                          
036399,000358: 30,2727           01664                                    NOR29FLG                              
036400,000359: 30,2730           77776        ASCTERM            EXIT                                           
036401,000360: 30,2731           30105                           CA       FLAGWRD9                              
036402,000361: 30,2732           74742                           MASK     FLRCSBIT                              
036403,000362: 30,2733           10000                           CCS      A                                     
036404,000363: 30,2734           12755                           TCF      ASCTERM3                              
036405,000364: 30,2735           06042                           TC       INTPRET                               
036406,000365: 30,2736           77624                           CALL                                           
036407,000366: 30,2737           61076                                    FINDCDUW   -2                         
036408,000367: 30,2740           77776        ASCTERM1           EXIT                                           
036409,000368: 30,2741           30105                 +1        CA       FLAGWRD9                              #  INSURE THAT THE NOUN 63 DISPLAY IS
036410,000369: 30,2742           74742                           MASK     FLRCSBIT                              #  BYPASSED IF WE ARE IN THE RCS TRIMMING
036411,000370: 30,2743           10000                           CCS      A                                     #  MODE OF OPERATION
036412,000371: 30,2744           12755                           TCF      ASCTERM3                              
036413,000372: 30,2745           30104                           CA       FLAGWRD8                              #  BYPASS DISPLAYS IF ENGINE FAILURE IS
036414,000373: 30,2746           74742                           MASK     FLUNDBIT                              #  INDICATED.
036415,000374: 30,2747           10000                           CCS      A                                     
036416,000375: 30,2750           12755                           TCF      ASCTERM3                              
036417,000376: 30,2751           33020                           CAF      V06N63*                               
036418,000377: 30,2752           04616                           TC       BANKCALL                              
036419,000378: 30,2753           20444                           CADR     GODSP                                 
036420,000379: 30,2754           77776        ASCTERM2           EXIT                                           
036421,000380: 30,2755           15155        ASCTERM3           TCF      ENDOFJOB                              
036422,000381: 30,2756           77776        ASCTERM4           EXIT                                           
036423,000382: 30,2757           00004                           INHINT                                         
036424,000383: 

Page 844

036426,000385: 30,2760           04674                           TC       IBNKCALL                              #  NO GUIDANCE THIS CYCLE -- HENCE ZERO
036427,000386: 30,2761           40166                           CADR     STOPRATE                              #  THE DAP COMMANDED RATES.
036428,000387: 30,2762           12741                           TCF      ASCTERM1   +1                         
036429,000388: 
036430,000389: 30,2763           45345        CHECKALT           DLOAD    DSU                                   
036431,000390: 30,2764           02301                                    /R/MAG                                
036432,000391: 30,2765           02333                                    /LAND/                                
036433,000392: 30,2766           50025                           DSU      BMN                                   #  IF H LT 25K CHECK Z AXIS ORIENTATION.
036434,000393: 30,2767           26205                                    25KFT                                 
036435,000394: 30,2770           16667                                    CHECKYAW                              
036436,000395: 30,2771           43014        EXITVR             CLEAR    BON                                   
036437,000396: 30,2772           04661                                    FLVR                                  
036438,000397: 30,2773           04711                                    ROTFLAG                               
036439,000398: 30,2774           60710                                    MAINLINE                              
036440,000399: 30,2775           43345                           DLOAD    DAD                                   
036441,000400: 30,2776           01234                                    PIPTIME                               
036442,000401: 30,2777           25747                                    10SECS                                
036443,000402: 30,3000           37654                           STCALL   TXO                                   
036444,000403: 30,3001           60710                                    MAINLINE                              
036445,000404: 30,3002           77614        EXITVR1            CLRGO                                          
036446,000405: 30,3003           04631                                    ROTFLAG                               
036447,000406: 30,3004           60771                                    EXITVR                                
036448,000407: 
036449,000408: 27,2000                                           SETLOC   ASENT1                                
036450,000409: 27,2000                                           BANK                                           
036451,000410: 27,3273                                           COUNT*   $$/ASENT                              
036452,000411: 
036453,000412: 27,3273           50375        ANG1CHEK           VLOAD    DOT                                   
036454,000413: 27,3274           03254                                    UNFC/2                                
036455,000414: 27,3275           02146                                    XNBPIP                                
036456,000415: 27,3276           51025                           DSU      BPL                                   
036457,000416: 27,3277           02571                                    COSTHET1                              
036458,000417: 27,3300           57307                                    OFFROT                                
036459,000418: 27,3301           50375                           VLOAD    DOT                                   
036460,000419: 27,3302           02146                                    XNBPIP                                
036461,000420: 27,3303           03537                                    UNIT/R/                               
036462,000421: 27,3304           50025                           DSU      BMN                                   
036463,000422: 27,3305           02573                                    COSTHET2                              
036464,000423: 27,3306           71450                                    KEEPVR1                               
036465,000424: 27,3307           77614        OFFROT             CLRGO                                          
036466,000425: 27,3310           04631                                    ROTFLAG                               
036467,000426: 27,3311           60722                                    CLRXFLAG                              
036468,000427: 
036469,000428: 07,2667                                           BANK     7                                     
036470,000429: 07,2000                                           SETLOC   ASENT2                                
036471,000430: 07,2000                                           BANK                                           
036472,000431: 07,2667                                           COUNT*   $$/ASENT                              
036473,000432: 
036474,000433: 07,2667  07,2667               SETXFLAG           =        CHECKYAW                              
036475,000434: 

Page 845

036477,000436: 07,2667           77614        CHECKYAW           SET                                            
036478,000437: 07,2670           06466                                    XOVINFLG                              #  PROHIBIT X-AXIS OVERRIDE
036479,000438: 07,2671           74345                           DLOAD    VXSC                                  
036480,000439: 07,2672           02355                                    ATY                                   
036481,000440: 07,2673           02303                                    LAXIS                                 
036482,000441: 07,2674           74325                           PDDL     VXSC                                  
036483,000442: 07,2675           02361                                    ATP                                   
036484,000443: 07,2676           03726                                    ZAXIS1                                
036485,000444: 07,2677           53455                           VAD      UNIT                                  
036486,000445: 07,2700           45325                           PDDL     DSU                                   
036487,000446: 07,2701           03474                                    RDOT                                  
036488,000447: 07,2702           13471                                    40FPS                                 
036489,000448: 07,2703           52044                           BPL      GOTO                                  
036490,000449: 07,2704           61002                                    EXITVR1                               
036491,000450: 07,2705           71446                                    KEEPVR                                
036492,000451: 
036493,000452: 05,3470                                           BANK     5                                     
036494,000453: 05,2000                                           SETLOC   ASENT3                                
036495,000454: 05,2000                                           BANK                                           
036496,000455: 05,3470                                           COUNT*   $$/ASENT                              
036497,000456: 
036498,000457: 05,3470           00017 23305  40FPS              2DEC     0.12192    B-7                        
036499,000458: 34,3446                                           BANK     34                                    
036500,000459: 34,2000                                           SETLOC   ASENT8                                
036501,000460: 34,2000                                           BANK                                           
036502,000461: 34,3446                                           COUNT*   $$/ASENT                              
036503,000462: 
036504,000463: 34,3446           45575        KEEPVR             VLOAD    STADR                                 #  RECALL LOSVEC FROM PUSHLIST
036505,000464: 34,3447           74515                           STORE    UNWC/2                                
036506,000465: 34,3450           77775        KEEPVR1            VLOAD                                          
036507,000466: 34,3451           03537                                    UNIT/R/                               
036508,000467: 34,3452           37254                           STCALL   UNFC/2                                
036509,000468: 34,3453           60730                                    ASCTERM                               
036510,000469: 
036511,000470: 
036512,000471: 14,2347                                           BANK     14                                    
036513,000472: 14,2000                                           SETLOC   ASENT4                                
036514,000473: 14,2000                                           BANK                                           
036515,000474: 14,2347                                           COUNT*   $$/ASENT                              
036516,000475: 
036517,000476: 14,2347           77634        ENGOFF             RTB                                            
036518,000477: 14,2350           21574                                    LOADTIME                              
036519,000478: 14,2351           43225                           DSU      DAD                                   
036520,000479: 14,2352           01234                                    PIPTIME                               
036521,000480: 14,2353           03454                                    TTOGO                                 
036522,000481: 14,2354           77476                           DCOMP    EXIT                                  
036523,000482: 14,2355           07262                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
036524,000483: 14,2356           35016                           CAF      EBANK7                                
036525,000484: 14,2357           54003                           TS       EBANK                                 
036526,000485: 

Page 846

036528,000487: 14,2360  E7,1516                                  EBANK=   TGO                                   
036529,000488: 14,2360           00004                           INHINT                                         
036530,000489: 14,2361           10155                           CCS      MPAC       +1                         
036531,000490: 14,2362           12365                           TCF      +3                                    #  C(A) = DT - 1 BIT
036532,000491: 14,2363           12365                           TCF      +2                                    #  C(A) = 0
036533,000492: 14,2364           34755                           CAF      ZERO                                  #  C(A) = 0
036534,000493: 14,2365           64753                           AD       BIT1                                  #  C(A) = 1 BIT OR DT.
036535,000494: 14,2366           55644                           TS       ENGOFFDT                              
036536,000495: 14,2367           05173                           TC       TWIDDLE                               
036537,000496: 14,2370           02402                           ADRES    ENGOFF1                               
036538,000497: 14,2371           05353                           TC       PHASCHNG                              
036539,000498: 14,2372           47014                           OCT      47014                                 
036540,000499: 14,2373           76133                           -GENADR  ENGOFFDT                              
036541,000500: 14,2374  E7,1516                                  EBANK=   TGO                                   
036542,000501: 14,2374           02402 30067                     2CADR    ENGOFF1                               
036543,000502: 
036544,000503: 14,2376           06042                           TC       INTPRET                               
036545,000504: 14,2377           52014                           SET      GOTO                                  
036546,000505: 14,2400           03470                                    IDLEFLAG                              #  DISABLE DELTA-V MONITOR
036547,000506: 14,2401           60452                                    T2TEST                                
036548,000507: 
036549,000508: 14,2402           04674        ENGOFF1            TC       IBNKCALL                              #  SHUT OFF THE ENGINE.
036550,000509: 14,2403           75555                           CADR     ENGINOF2                              
036551,000510: 
036552,000511: 14,2404           35027                           CAF      PRIO17                                #  SET UP A JOB FOR THE ASCENT GUIDANCE
036553,000512: 14,2405           05105                           TC       FINDVAC                               #  POSTBURN LOGIC.
036554,000513: 14,2406  E7,1455                                  EBANK=   WHICH                                 
036555,000514: 14,2406           02416 30067                     2CADR    CUTOFF                                
036556,000515: 
036557,000516: 14,2410           05353                           TC       PHASCHNG                              
036558,000517: 14,2411           07024                           OCT      07024                                 
036559,000518: 14,2412           17000                           OCT      17000                                 
036560,000519: 14,2413  E7,1516                                  EBANK=   TGO                                   
036561,000520: 14,2413           02416 30067                     2CADR    CUTOFF                                
036562,000521: 
036563,000522: 14,2415           15261                           TCF      TASKOVER                              
036564,000523: 
036565,000524: 14,2416           05504        CUTOFF             TC       UPFLAG                                #  SET FLRCS FLAG.
036566,000525: 14,2417           00214                           ADRES    FLRCS                                 
036567,000526: 
036568,000527: 14,2420           32437                 -5        CAF      V16N63                                
036569,000528: 14,2421           04616                           TC       BANKCALL                              
036570,000529: 14,2422           20477                           CADR     GOFLASH                               
036571,000530: 14,2423           12426                           TCF      +3                                    
036572,000531: 14,2424           12430                           TCF      CUTOFF1                               
036573,000532: 14,2425           12420                           TCF      -5                                    
036574,000533: 
036575,000534: 14,2426           04635                 +3        TC       POSTJUMP                              
036576,000535: 14,2427           71464                           CADR     TERMASC                               
036577,000536: 

Page 847

036579,000538: 
036580,000539: 14,2430           00004        CUTOFF1            INHINT                                         
036581,000540: 14,2431           04674                           TC       IBNKCALL                              #  ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
036582,000541: 14,2432           40154                           CADR     ZATTEROR                              
036583,000542: 14,2433           04674                           TC       IBNKCALL                              
036584,000543: 14,2434           40141                           CADR     SETMINDB                              
036585,000544: 14,2435           04635                           TC       POSTJUMP                              
036586,000545: 14,2436           71454                           CADR     CUTOFF2                               
036587,000546: 
036588,000547: 14,2437           04077        V16N63             VN       1663                                  
036589,000548: 34,3454                                           BANK     34                                    
036590,000549: 34,2000                                           SETLOC   ASENT8                                
036591,000550: 34,2000                                           BANK                                           
036592,000551: 34,3454                                           COUNT*   $$/ASENT                              
036593,000552: 
036594,000553: 34,3454           05353        CUTOFF2            TC       PHASCHNG                              
036595,000554: 34,3455           04024                           OCT      04024                                 
036596,000555: 
036597,000556: 34,3456           33474                           CAF      V16N85C                               
036598,000557: 34,3457           04616                           TC       BANKCALL                              
036599,000558: 34,3460           20477                           CADR     GOFLASH                               
036600,000559: 34,3461           13464                           TCF      TERMASC                               
036601,000560: 34,3462           13464                           TCF      +2                                    #  PROCEED
036602,000561: 34,3463           13454                           TCF      CUTOFF2                               
036603,000562: 
036604,000563: 34,3464           05353        TERMASC            TC       PHASCHNG                              
036605,000564: 34,3465           04024                           OCT      04024                                 
036606,000565: 
036607,000566: 34,3466           00004                           INHINT                                         #  RESTORE DEADBAND DESIRED BY ASTRONAUT.
036608,000567: 34,3467           04674                           TC       IBNKCALL                              
036609,000568: 34,3470           40115                           CADR     RESTORDB                              
036610,000569: 34,3471           05516                           TC       DOWNFLAG                              #  DISALLOW ABORTS AT THIS TIME.
036611,000570: 34,3472           00215                           ADRES    LETABORT                              
036612,000571: 34,3473           16001                           TCF      GOTOPOOH                              
036613,000572: 
036614,000573: 34,3474           04125        V16N85C            VN       1685                                  
036615,000574: 
036616,000575: 34,3475           77745        RPCOMP1            DLOAD                                          #  FLRCS = 1 (TRIM MODE)
036617,000576: 34,3476           06524                                    HI6ZEROS                              
036618,000577: 34,3477           02345                           STORE    PCONS                                 #  SET PCONS = PRATE = 0 SO THAT
036619,000578: 34,3500           02351                           STORE    PRATE                                 #      RF = R + RDOT TGO
036620,000579: 34,3501           41345        RPCOMP2            DLOAD    DMP                                   #  FLRCS =C (GUIDANCE MODE)
036621,000580: 34,3502           02351                                    PRATE                                 #  LEAVE FCONS AND PRATE ALONE SO THAT
036622,000581: 34,3503           03517                                    TGO                                   #      RF = R + RDOT TGO + (FCONS*TGC**2)/
036623,000582: 34,3504           43205                           DMP      DAD                                   #      (2 TBUP) + (PRATE*TGO**3)/(6 TBUP)
036624,000583: 34,3505           33645                                    THIRD                                 
036625,000584: 34,3506           02345                                    PCONS                                 
036626,000585: 34,3507           41205                           DMP      DMP                                   
036627,000586: 34,3510           03517                                    TGO                                   
036628,000587: 34,3511           03517                                    TGO                                   
036629,000588: 34,3512           72471                           DDV      SL1                                   
036630,000589: 

Page 848

036632,000591: 34,3513           02271                                    TBUP                                  
036633,000592: 34,3514           65215                           DAD      PDDL                                  
036634,000593: 34,3515           02301                                    /R/MAG                                
036635,000594: 34,3516           03474                                    RDOT                                  
036636,000595: 34,3517           43205                           DMP      DAD                                   
036637,000596: 34,3520           03517                                    TGO                                   
036638,000597: 34,3521           77626                           STADR                                          
036639,000598: 34,3522           75152                           STORE    RP                                    
036640,000599: 34,3523           77616                           RVQ                                            
036641,000600: 
036642,000601: 34,3524           45020        ZDOTCOMP           STQ      CALL                                  #  COMPUTE CETRAL ANGLE                (0)
036643,000602: 34,3525           02574                                    ASCSAVE                               
036644,000603: 34,3526           71554                                    THETCOMP                              
036645,000604: 34,3527           43205                           DMP      DAD                                   
036646,000605: 34,3530           02623                                    KPARM                                 
036647,000606: 34,3531           02621                                    JPARM                                 
036648,000607: 34,3532           41425                           DSU      PUSH                                  #  RA IN MPAC AND IN PUSHLIST          (2)
036649,000608: 34,3533           02625                                    RP                                    
036650,000609: 34,3534           51025                           DSU      BPL                                   
036651,000610: 34,3535           02563                                    RAMIN                                 
036652,000611: 34,3536           71541                                    +3                                    
036653,000612: 34,3537           65345                           DLOAD    PDDL                                  #  RA < RAMIN.  SET RA = RAMIN.        (2)
036654,000613: 34,3540           02563                                    RAMIN                                 
036655,000614: 34,3541           41345                 +3        DLOAD    DMP                                   
036656,000615: 34,3542           00001                                    0D                                    
036657,000616: 34,3543           16025                                    MUM(-37)                              
036658,000617: 34,3544           77725                           PDDL                                           
036659,000618: 34,3545           41215                           DAD      DMP                                   
036660,000619: 34,3546           02625                                    RP                                    
036661,000620: 34,3547           02625                                    RP                                    
036662,000621: 34,3550           75465                           BDDV     SQRT                                  #                                      (0)
036663,000622: 34,3551           77626                           STADR                                          
036664,000623: 34,3552           41500                           STCALL   ZDOTD                                 #  UPDATE ZDOTD FOR GUIDANCE AND DOWNLINK.
036665,000624: 34,3553           02574                                    ASCSAVE                               
036666,000625: 
036667,000626: 34,3554           53575        THETCOMP           VLOAD    UNIT                                  
036668,000627: 34,3555           03521                                    R                                     
036669,000628: 34,3556           53515                           PDVL     UNIT                                  #                                      (6)
036670,000629: 34,3557           01720                                    R(CSM)                                
036671,000630: 34,3560           47206                           PUSH     VXV                                   #                                      (12)
036672,000631: 34,3561           00001                                    0D                                    
036673,000632: 34,3562           77641                           DOT                                            
036674,000633: 34,3563           02325                                    WM                                    
036675,000634: 34,3564           24037                           STOVL    30D                                   #                                      (6)
036676,000635: 34,3565           72441                           DOT      SL1                                   #                                      (0)
036677,000636: 34,3566           75326                           ARCCOS   SIGN                                  
036678,000637: 34,3567           00037                                    30D                                   
036679,000638: 34,3570           77616                           RVQ                                            
036680,000639: 
036681,000640: 34,3571  E5,1574               ASCSAVE            =        CG                                    
036682,000641: 

Page 849

036684,000643: 27,3312                                           BANK     27                                    
036685,000644: 27,2000                                           SETLOC   ASENT1                                
036686,000645: 27,2000                                           BANK                                           
036687,000646: 27,3312                                           COUNT*   $$/ASENT                              
036688,000647: 
036689,000648: 27,3312           50375        YCOMP              VLOAD    DOT                                   
036690,000649: 27,3313           03537                                    UNIT/R/                               
036691,000650: 27,3314           03720                                    QAXIS                                 
036692,000651: 27,3315           41312                           SL2      DMP                                   
036693,000652: 27,3316           03631                                    RCO                                   
036694,000653: 27,3317           02335                           STORE    Y                                     
036695,000654: 27,3320           77616                           RVQ                                            
036696,000655: 
036697,000656: 
036698,000657: 30,3005                                           BANK     30                                    
036699,000658: 30,2000                                           SETLOC   ASENT                                 
036700,000659: 30,2000                                           BANK                                           
036701,000660: 

Page 850

036703,000662:                                                                                                  #  ASCENT GUIDANCE CONSTANTS
036704,000663: 
036705,000664: 30,3005  33,3105               100CS              EQUALS   2SEC(18)                              
036706,000665: 30,3005  30,3007               T2A                EQUALS   2SEC(17)                              
036707,000666: 30,3005           00062 00000  4SEC(17)           2DEC     400        B-17                       
036708,000667: 30,3007           00031 00000  2SEC(17)           2DEC     200        B-17                       
036709,000668: 30,3011           00175 00000  T3                 2DEC     1000       B-17                       
036710,000669: 30,3013           00045 20000  6SEC(18)           2DEC     600        B-18                       
036711,000670: 30,3015           00010        BIT4H              OCT      10                                    
036712,000671: 30,3016           14400 00000  2SEC(9)            2DEC     200        B-9                        
036713,000672: 30,3020           01477        V06N63*            VN       0663                                  
036714,000673: 30,3021           01514        V06N76             VN       0676                                  
036715,000674: 30,3022           01441        V06N33A            VN       0633                                  
036716,000675: 
036717,000676: 33,2200                                           BANK     33                                    
036718,000677: 33,2000                                           SETLOC   ASENT6                                
036719,000678: 33,2000                                           BANK                                           
036720,000679: 33,2200                                           COUNT*   $$/ASENT                              
036721,000680: 
036722,000681: 33,2200           75751 41775  PRLIMIT            2DEC     -.0639                                #  (B/TBUP)MIN=-.1FT.SEC(-3)
036723,000682: 33,2202           00022 07212  MINABDV            2DEC     .0356      B-5                        #  10 PERCENT BIGGER THAN GRAVITY
036724,000683: 33,2204           00007 16100  25KFT              2DEC     7620       B-24                       
036725,000684: 33,2206  E7,1570               1/DV0              =        MASS1                                 
036726,000685: 

Page 851

036728,000687:                                                                                                  #  THE LOGARITHM SUBROUTINE
036729,000688: 
036730,000689: 24,3677                                           BANK     24                                    
036731,000690: 30,2000                                           SETLOC   FLOGSUB                               
036732,000691: 30,2000                                           BANK                                           
036733,000692: 
036734,000693:                                                                                                  #  INPUT ..... X IN MPAC
036735,000694:                                                                                                  #  OUTPUT ..... -LOG(X) IN MPAC
036736,000695: 
036737,000696: 30,3023           44301        LOGSUB             NORM     BDSU                                  
036738,000697: 30,3024           00163                                    MPAC       +6                         
036739,000698: 30,3025           17771                                    NEARONE                               
036740,000699: 30,3026           77776                           EXIT                                           
036741,000700: 30,3027           07225                           TC       POLY                                  
036742,000701: 30,3030           00006                           DEC      6          B-14                       
036743,000702: 30,3031           00000 00002                     2DEC     .0000000060                            
036744,000703: 30,3033           76777 77175                     2DEC     -.0312514377                            
036745,000704: 30,3035           77400 75416                     2DEC     -.0155686771                            
036746,000705: 30,3037           77507 65515                     2DEC     -.0112502068                            
036747,000706: 30,3041           77741 63547                     2DEC     -.0018545108                            
036748,000707: 30,3043           77052 55373                     2DEC     -.0286607906                            
036749,000708: 30,3045           01167 30361                     2DEC     .0385598563                            
036750,000709: 30,3047           76520 75267                     2DEC     -.0419361902                            
036751,000710: 
036752,000711: 30,3051           34755                           CAF      ZERO                                  
036753,000712: 30,3052           54156                           TS       MPAC       +2                         
036754,000713: 30,3053           00006                           EXTEND                                         
036755,000714: 30,3054           33070                           DCA      CLOG2/32                              
036756,000715: 30,3055           52155                           DXCH     MPAC                                  
036757,000716: 30,3056           52132                           DXCH     BUF        +1                         
036758,000717: 30,3057           30162                           CA       MPAC       +6                         
036759,000718: 30,3060           07312                           TC       SHORTMP                               
036760,000719: 30,3061           52156                           DXCH     MPAC       +1                         
036761,000720: 30,3062           52155                           DXCH     MPAC                                  
036762,000721: 30,3063           52132                           DXCH     BUF        +1                         
036763,000722: 30,3064           20155                           DAS      MPAC                                  
036764,000723: 30,3065           06042                           TC       INTPRET                               
036765,000724: 30,3066           43476                           DCOMP    RVQ                                   
036766,000725: 
036767,000726: 30,3067           00542 34414  CLOG2/32           2DEC     .0216608494                            

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