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.

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

Page 836

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

Page 837

036107,000073: 34,3444           60315                                    ASCENT                                
036108,000074: 34,3445           00004        BIT3H              OCT      4                                     
036109,000075: 

Page 838

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

Page 839

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

Page 840

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

Page 841

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

Page 842

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

Page 843

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

Page 844

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

Page 845

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

Page 846

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

Page 847

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

Page 848

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

Page 849

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

Page 850

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

Page 851

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

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