Source Code

This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!

036148,000002:                                                                                                  ## Copyright:   Public domain.
036149,000003:                                                                                                  ## Filename:    ASCENT_GUIDNCE.agc
036150,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
036151,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
036152,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
036153,000007:                                                                                                  ## Assembler:   yaYUL
036154,000008:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>.
036155,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
036156,000010:                                                                                                  ## Pages:       843-856
036157,000011:                                                                                                  ## Mod history: 2009-05-23 HG   Transcribed from page images.
036158,000012:                                                                                                  ##              2009-06-05 RSB  Fixed a couple of typos.
036159,000013:                                                                                                  ##              2009-06-07 RSB  Corrected a typo.
036160,000014:                                                                                                  ##              2010-12-31 JL   Fixed page number comment.
036161,000015:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
036162,000016:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
036163,000017:                                                                                                  ##                              and corrected the errors found.
036164,000018:                                                                                                  ##              2017-03-03 RSB  Snapshot of Luminary 99 Rev 1. 
036165,000019:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes identified in 5-way
036166,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
036167,000021: 

Page 843

036169,000023: 34,3642                                           BANK     34                                    
036170,000024: 34,2000                                           SETLOC   ASCFILT                               
036171,000025: 34,2000                                           BANK                                           
036172,000026: 
036173,000027: 34,3642  E7,1515                                  EBANK=   DVCNTR                                
036174,000028: 
036175,000029: 34,3642                                           COUNT*   $$/ASENT                              
036176,000030: 
036177,000031: 34,3642           05353        ATMAG              TC       PHASCHNG                              
036178,000032: 34,3643           00035                           OCT      00035                                 
036179,000033: 34,3644           06037                           TC       INTPRET                               
036180,000034: 34,3645           77614                           BON                                            
036181,000035: 34,3646           04705                                    FLRCS                                 
036182,000036: 34,3647           60321                                    ASCENT                                
036183,000037: 34,3650           45345                           DLOAD    DSU                                   
036184,000038: 34,3651           03514                                    ABDVCONV                              
036185,000039: 34,3652           26205                                    MINABDV                               
036186,000040: 34,3653           43040                           BMN      CLEAR                                 
036187,000041: 34,3654           60750                                    ASCTERM4                              
036188,000042: 34,3655           04267                                    SURFFLAG                              
036189,000043: 34,3656           67214                           CLEAR    SLOAD                                 
036190,000044: 34,3657           02676                                    RENDWFLG                              
036191,000045: 34,3660           31716                                    BIT3H                                 
036192,000046: 34,3661           77471                           DDV      EXIT                                  
036193,000047: 34,3662           03514                                    ABDVCONV                              
036194,000048: 34,3663           52155                           DXCH     MPAC                                  
036195,000049: 34,3664           53641                           DXCH     1/DV3                                 
036196,000050: 34,3665           53637                           DXCH     1/DV2                                 
036197,000051: 34,3666           53635                           DXCH     1/DV1                                 
036198,000052: 34,3667           53571                           DXCH     1/DV0                                 
036199,000053: 34,3670           06037                           TC       INTPRET                               
036200,000054: 34,3671           43345                           DLOAD    DAD                                   
036201,000055: 34,3672           03571                                    1/DV0                                 
036202,000056: 34,3673           03635                                    1/DV1                                 
036203,000057: 34,3674           43215                           DAD      DAD                                   
036204,000058: 34,3675           03637                                    1/DV2                                 
036205,000059: 34,3676           03641                                    1/DV3                                 
036206,000060: 34,3677           41205                           DMP      DMP                                   
036207,000061: 34,3700           02265                                    VE                                    
036208,000062: 34,3701           21032                                    2SEC(9)                               
036209,000063: 34,3702           65252                           SL3      PDDL                                  
036210,000064: 34,3703           02271                                    TBUP                                  
036211,000065: 34,3704           43342                           SR1      DAD                                   
036212,000066: 34,3705           77625                           DSU                                            
036213,000067: 34,3706           21027                                    6SEC(18)                              
036214,000068: 34,3707           16271                           STODL    TBUP                                  
036215,000069: 34,3710           02265                                    VE                                    
036216,000070: 34,3711           56342                           SR1      DDV                                   
036217,000071: 34,3712           02271                                    TBUP                                  
036218,000072: 34,3713           36263                           STCALL   AT                                    

Page 844

036220,000074: 34,3714           60321                                    ASCENT                                
036221,000075: 34,3715           00004        BIT3H              OCT      4                                     
036222,000076: 

Page 845

036224,000078: 30,2321                                           BANK     30                                    
036225,000079: 30,2000                                           SETLOC   ASENT                                 
036226,000080: 30,2000                                           BANK                                           
036227,000081: 30,2321                                           COUNT*   $$/ASENT                              
036228,000082: 
036229,000083: 30,2321           51575        ASCENT             VLOAD    ABVAL                                 
036230,000084: 30,2322           03521                                    R                                     
036231,000085: 30,2323           26301                           STOVL    /R/MAG                                
036232,000086: 30,2324           03726                                    ZAXIS1                                
036233,000087: 30,2325           72441                           DOT      SL1                                   
036234,000088: 30,2326           03527                                    V                                     #  Z.V = ZDOT*2(-8).
036235,000089: 30,2327           26313                           STOVL    ZDOT                                  #  ZDOT*2(-7)
036236,000090: 30,2330           03726                                    ZAXIS1                                
036237,000091: 30,2331           76435                           VXV      VSL1                                  
036238,000092: 30,2332           03537                                    UNIT/R/                               #  Z X UR = LAXIS*2(-2)
036239,000093: 30,2333           02303                           STORE    LAXIS                                 #  LAXIS*2(-1)
036240,000094: 30,2334           72441                           DOT      SL1                                   
036241,000095: 30,2335           03527                                    V                                     #  L.V = YDOT*2(-8).
036242,000096: 30,2336           36311                           STCALL   YDOT                                  #  YDOT * 2(-7)
036243,000097: 30,2337           57312                                    YCOMP                                 
036244,000098: 30,2340           77775                           VLOAD                                          
036245,000099: 30,2341           03563                                    GDT1/2                                #  LOAD GDT1/2*2(-7) M/CS.
036246,000100: 30,2342           50341                           V/SC     DOT                                   
036247,000101: 30,2343           27147                                    2SEC(18)                              
036248,000102: 30,2344           03537                                    UNIT/R/                               #  G.UR*2(9) = GR*2(9).
036249,000103: 30,2345           47315                           PDVL     VXV                                   #  STORE IN PDL(0)                       (2)
036250,000104: 30,2346           03537                                    UNIT/R/                               #  LOAD UNIT/R/ *2(-1).
036251,000105: 30,2347           03527                                    V                                     #  UR*2(-1) X V*2(-7) = H/R*2(-8).
036252,000106: 30,2350           56236                           VSQ      DDV                                   #  H(2)/R(2)*2(-16).
036253,000107: 30,2351           02301                                    /R/MAG                                #  H(2)/R(3)*2(9).
036254,000108: 30,2352           43352                           SL1      DAD                                   
036255,000109: 30,2353           77626                           STADR                                          
036256,000110: 30,2354           61462                           STODL    GEFF                                  #  GEFF*2(10)M/CS/CS.
036257,000111: 30,2355           02277                                    ZDOTD                                 
036258,000112: 30,2356           77625                           DSU                                            
036259,000113: 30,2357           02313                                    ZDOT                                  
036260,000114: 30,2360           02343                           STORE    DZDOT                                 #  DZDOT = (ZDOTD - ZDOT) * 2(7) M/CS.
036261,000115: 30,2361           65361                           VXSC     PDDL                                  
036262,000116: 30,2362           03726                                    ZAXIS1                                
036263,000117: 30,2363           02275                                    YDOTD                                 
036264,000118: 30,2364           77625                           DSU                                            
036265,000119: 30,2365           02311                                    YDOT                                  
036266,000120: 30,2366           02341                           STORE    DYDOT                                 #  DYDOT = (YDOTD - YDOT) *2(7) M/CS.
036267,000121: 30,2367           65361                           VXSC     PDDL                                  
036268,000122: 30,2370           02303                                    LAXIS                                 
036269,000123: 30,2371           02273                                    RDOTD                                 

Page 846

036271,000125: 30,2372           77625                           DSU                                            
036272,000126: 30,2373           03474                                    RDOT                                  
036273,000127: 30,2374           02337                           STORE    DRDOT                                 #  DRDOT = (RDOTD - RDOT) * 2(7) M/CS.
036274,000128: 30,2375           53361                           VXSC     VAD                                   
036275,000129: 30,2376           03537                                    UNIT/R/                               
036276,000130: 30,2377           76455                           VAD      VSL1                                  
036277,000131: 30,2400           77626                           STADR                                          
036278,000132: 30,2401           74131                           STORE    VGVECT                                #  VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
036279,000133: 30,2402           41345                           DLOAD    DMP                                   #  LOAD TGO
036280,000134: 30,2403           03517                                    TGO                                   #  TGO GEFF
036281,000135: 30,2404           02315                                    GEFF                                  
036282,000136: 30,2405           76561                           VXSC     VSL1                                  
036283,000137: 30,2406           03537                                    UNIT/R/                               #  TGO GEFF UR
036284,000138: 30,2407           77645                           BVSU                                           
036285,000139: 30,2410           03646                                    VGVECT                                #  COMPENSATED FOR GEFF
036286,000140: 30,2411           03646                           STORE    VGVECT                                #  STORE FOR DOWNLINK
036287,000141: 30,2412           76521                           MXV      VSL1                                  #  GET VGBODY FOR N85 DISPLAY
036288,000142: 30,2413           02146                                    XNBPIP                                
036289,000143: 30,2414           27502                           STOVL    VGBODY                                
036290,000144: 30,2415           03646                                    VGVECT                                
036291,000145: 30,2416           43046                           ABVAL    BOFF                                  #  MAGNITUDE OF VGVECT
036292,000146: 30,2417           04745                                    FLRCS                                 #  IF FLRCS=0,DO NORMAL GUIDANCE
036293,000147: 30,2420           60425                                    MAINENG                               
036294,000148: 30,2421           77671                           DDV                                            #  USE TGO=VG/AT WITH RCS
036295,000149: 30,2422           20001                                    AT/RCS                                
036296,000150: 30,2423           37517                           STCALL   TGO                                   #  THIS WILL BE USED ON NEXT CYCLE
036297,000151: 30,2424           60746                                    ASCTERM2                              
036298,000152: 30,2425           41471        MAINENG            DDV      PUSH                                  #  VG/VE IN PDL(0)               (2)
036299,000153: 30,2426           02265                                    VE                                    
036300,000154: 30,2427           44205                           DMP      BDSU                                  #  1 - KT VG/VE
036301,000155: 30,2430           26201                                    KT1                                   
036302,000156: 30,2431           17771                                    NEARONE                               
036303,000157: 30,2432           41205                           DMP      DMP                                   #  TBUP VG(1-KT VG/VE)/VE        (0)
036304,000158: 30,2433           02271                                    TBUP                                  #        = TGO
036305,000159: 30,2434           77625                           DSU                                            #  COMPENSATE FOR TAILOFF
036306,000160: 30,2435           02267                                    TTO                                   
036307,000161: 30,2436           03517                           STORE    TGO                                   
036308,000162: 30,2437           57461                           SR       DCOMP                                 
036309,000163: 30,2440           20614                                    11D                                   
036310,000164: 30,2441           17454                           STODL    TTOGO                                 #  TGO *2(-28) CS
036311,000165: 30,2442           03517                                    TGO                                   
036312,000166: 30,2443           45214                           BON      DSU                                   
036313,000167: 30,2444           03710                                    IDLEFLAG                              
036314,000168: 30,2445           60451                                    T2TEST                                
036315,000169: 30,2446           21021                                    4SEC(17)                              #  ( TGO - 4 )*2(-17) CS.
036316,000170: 30,2447           77640                           BMN                                            
036317,000171: 30,2450           30355                                    ENGOFF                                
036318,000172: 30,2451           77745        T2TEST             DLOAD                                          
036319,000173: 30,2452           03517                                    TGO                                   
036320,000174: 30,2453           50025                           DSU      BMN                                   #  IF TGO - T2 NEG., GO TO CMPONENT

Page 847

036322,000176: 30,2454           21023                                    T2A                                   
036323,000177: 30,2455           60612                                    CMPONENT                              
036324,000178: 30,2456           45345                           DLOAD    DSU                                   
036325,000179: 30,2457           02271                                    TBUP                                  
036326,000180: 30,2460           03517                                    TGO                                   
036327,000181: 30,2461           45071                           DDV      CALL                                  #  1- TGO/TBUP
036328,000182: 30,2462           02271                                    TBUP                                  
036329,000183: 30,2463           61036                                    LOGSUB                                
036330,000184: 30,2464           41461                           SL       PUSH                                  #  -L IN PDL(0)                  (2)
036331,000185: 30,2465           20206                                    5                                     
036332,000186: 30,2466           44265                           BDDV     BDSU                                  #  -TGO/L*2(-17)
036333,000187: 30,2467           03517                                    TGO                                   
036334,000188: 30,2470           02271                                    TBUP                                  #  TBUP + TGO/L = D12*2(-17)
036335,000189: 30,2471           43006                           PUSH     BON                                   #  STORE IN PDL(2)               (4)
036336,000190: 30,2472           04703                                    FLPC                                  #  IF FLPC = 1, GO TO CONST
036337,000191: 30,2473           60502                                    NORATES                               
036338,000192: 30,2474           45345                           DLOAD    DSU                                   
036339,000193: 30,2475           03517                                    TGO                                   
036340,000194: 30,2476           21025                                    T3                                    
036341,000195: 30,2477           43044                           BPL      SET                                   #  FLPC=1
036342,000196: 30,2500           60510                                    RATES                                 
036343,000197: 30,2501           04463                                    FLPC                                  
036344,000198: 30,2502           77745        NORATES            DLOAD                                          
036345,000199: 30,2503           06522                                    HI6ZEROS                              
036346,000200: 30,2504           02351                           STORE    PRATE                                 #  B = 0
036347,000201: 30,2505           02353                           STORE    YRATE                                 #  D = 0
036348,000202: 30,2506           77650                           GOTO                                           
036349,000203: 30,2507           60572                                    CONST                                 #  GO TO CONST
036350,000204: 30,2510           45345        RATES              DLOAD    DSU                                   
036351,000205: 30,2511           03517                                    TGO                                   
036352,000206: 30,2512           00003                                    02D                                   #  TGO - D12 = D21*2(-17)
036353,000207: 30,2513           72406                           PUSH     SL1                                   #  IN PDL(4)                     (6)
036354,000208: 30,2514           52421                           BDSU     SL3                                   #  (1/2TGO - D21)*2(-13) = E * 2(-13)
036355,000209: 30,2515           03517                                    TGO                                   #                                (8)
036356,000210: 30,2516           41325                           PDDL     DMP                                   #  IN PDL(6)
036357,000211: 30,2517           03517                                    TGO                                   
036358,000212: 30,2520           03474                                    RDOT                                  #  RDOT TGO * 2(-24)
036359,000213: 30,2521           45215                           DAD      DSU                                   #  R + RDOT TGO
036360,000214: 30,2522           02301                                    /R/MAG                                #  R + RDOT TGO - RCO
036361,000215: 30,2523           03631                                    RCO                                   #  MPAC = -DR *2(-24).
036362,000216: 30,2524           41325                           PDDL     DMP                                   #  -DR IN PDL(8)                 (10)
036363,000217: 30,2525           02337                                    DRDOT                                 
036364,000218: 30,2526           00005                                    04D                                   #  D21 DRDOT*2(-24)
036365,000219: 30,2527           62415                           DAD      SL2                                   #  (D21 DRDOT-DR)*2(-22)         (8)
036366,000220: 30,2530           56271                           DDV      DDV                                   
036367,000221: 30,2531           00007                                    06D                                   #  (D21 DRDOT-DR)/E*2(-9)
036368,000222: 30,2532           03517                                    TGO                                   
036369,000223: 30,2533           02351                           STORE    PRATE                                 #  B * 2(8)
036370,000224: 30,2534           71240                           BMN      DLOAD                                 #  B>0 NOT PERMITTED
036371,000225: 30,2535           60541                                    CHKBMAG                               

Page 848

036373,000227: 30,2536           06522                                    HI6ZEROS                              
036374,000228: 30,2537           36351                           STCALL   PRATE                                 
036375,000229: 30,2540           60553                                    PROK                                  
036376,000230: 30,2541           56202        CHKBMAG            SR4      DDV                                   #  B*2(4)
036377,000231: 30,2542           02271                                    TBUP                                  #  (B / TAU) * 2(21)
036378,000232: 30,2543           51025                           DSU      BPL                                   
036379,000233: 30,2544           26203                                    PRLIMIT                               #  ( B / TAU ) * 2(21) MAX.
036380,000234: 30,2545           60553                                    PROK                                  
036381,000235: 30,2546           41345                           DLOAD    DMP                                   
036382,000236: 30,2547           26203                                    PRLIMIT                               
036383,000237: 30,2550           02271                                    TBUP                                  #  B MAX. * 2(4)
036384,000238: 30,2551           77612                           SL4                                            #  BMAX*2(8)
036385,000239: 30,2552           02351                           STORE    PRATE                                 
036386,000240: 30,2553           77745        PROK               DLOAD                                          
036387,000241: 30,2554           03517                                    TGO                                   
036388,000242: 30,2555           43205                           DMP      DAD                                   #  YDOT TGO
036389,000243: 30,2556           02311                                    YDOT                                  
036390,000244: 30,2557           02335                                    Y                                     #  Y + YDOT TGO
036391,000245: 30,2560           65225                           DSU      PDDL                                  #  Y + YDOT TGO - YCO
036392,000246: 30,2561           03633                                    YCO                                   #  MPAC = - DY*2(-24.) IN PDL(8) (10)
036393,000247: 30,2562           02341                                    DYDOT                                 
036394,000248: 30,2563           43205                           DMP      DAD                                   #  D21 DYDOT - DY                (8)
036395,000249: 30,2564           00005                                    04D                                   
036396,000250: 30,2565           56312                           SL2      DDV                                   #  (D21 DYDOT - DY)/E*2(-9)
036397,000251: 30,2566           40271                           DDV      SETPD                                 #  (D21 DYDOT - DY)/E TGO*2(8)
036398,000252: 30,2567           03517                                    TGO                                   #        = D*2(8)
036399,000253: 30,2570           00005                                    04                                    
036400,000254: 30,2571           02353                           STORE    YRATE                                 
036401,000255: 30,2572           41345        CONST              DLOAD    DMP                                   #  LOAD B*2(8)
036402,000256: 30,2573           02351                                    PRATE                                 #  B D12*2(-9)
036403,000257: 30,2574           00003                                    02D                                   
036404,000258: 30,2575           56325                           PDDL     DDV                                   #  D12 B IN PDL(4)       (6)
036405,000259: 30,2576           02337                                    DRDOT                                 #  LOAD DRDOT*2(-7)
036406,000260: 30,2577           00001                                    00D                                   #  -DRDOT/L*2(-7)
036407,000261: 30,2600           45302                           SR2      DSU                                   #  (-DRDOT/L-D12 B)=A*2(-9)      (4)
036408,000262: 30,2601           77626                           STADR                                          
036409,000263: 30,2602           61432                           STODL    PCONS                                 
036410,000264: 30,2603           02353                                    YRATE                                 #  D*2(8)
036411,000265: 30,2604           65205                           DMP      PDDL                                  #  D12 D,EXCH WITH -L IN PDL(0)  (2,2)
036412,000266: 30,2605           60465                           BDDV     SR2                                   #  -DYDOT/L*2(-9)
036413,000267: 30,2606           02341                                    DYDOT                                 
036414,000268: 30,2607           77625                           DSU                                            #  (-DYDOT/L-D12 D)=C*2(-9)
036415,000269: 30,2610           00001                                    00D                                   
036416,000270: 30,2611           02347                           STORE    YCONS                                 
036417,000271: 30,2612           71201        CMPONENT           SETPD    DLOAD                                 
036418,000272: 30,2613           00001                                    00D                                   
036419,000273: 30,2614           27147                                    100CS                                 
036420,000274: 30,2615           77605                           DMP                                            
036421,000275: 30,2616           02351                                    PRATE                                 #  B(T-T0)*2(-9)
036422,000276: 30,2617           56215                           DAD      DDV                                   #  (A+B(T-T0))*2(-9)

Page 849

036424,000278: 30,2620           02345                                    PCONS                                 #  (A+B(T-T0))/TBUP*2(8)
036425,000279: 30,2621           02271                                    TBUP                                  
036426,000280: 30,2622           45352                           SL1      DSU                                   
036427,000281: 30,2623           02315                                    GEFF                                  #  ATR*2(9)
036428,000282: 30,2624           16357                           STODL    ATR                                   
036429,000283: 30,2625           27147                                    100CS                                 
036430,000284: 30,2626           43205                           DMP      DAD                                   
036431,000285: 30,2627           02353                                    YRATE                                 
036432,000286: 30,2630           02347                                    YCONS                                 #  (C+D(T-T0))*2(-9)
036433,000287: 30,2631           72471                           DDV      SL1                                   
036434,000288: 30,2632           02271                                    TBUP                                  
036435,000289: 30,2633           02355                           STORE    ATY                                   #  ATY*2(9)
036436,000290: 30,2634           65361                           VXSC     PDDL                                  #  ATY UY*2(8)                   (6)
036437,000291: 30,2635           02303                                    LAXIS                                 
036438,000292: 30,2636           02357                                    ATR                                   
036439,000293: 30,2637           53361                           VXSC     VAD                                   #                                (0)
036440,000294: 30,2640           03537                                    UNIT/R/                               
036441,000295: 30,2641           41572                           VSL1     PUSH                                  #  AH*2(9) IN PDL(0)             (6)
036442,000296: 30,2642           65246                           ABVAL    PDDL                                  #  AH(2) IN PDL(34)
036443,000297: 30,2643           02263                                    AT                                    #  AHMAG IN PDL(6)               (8)
036444,000298: 30,2644           45316                           DSQ      DSU                                   #  (AT(2)-AH(2))*2(18)
036445,000299: 30,2645           00043                                    34D                                   #  =ATP2*2(18)
036446,000300: 30,2646           41525                           PDDL     PUSH                                  #                                (12)
036447,000301: 30,2647           02263                                    AT                                    
036448,000302: 30,2650           45316                           DSQ      DSU                                   #  (AT(2)KR(2)-AH(2))*2(18)      (10)
036449,000303: 30,2651           00043                                    34D                                   #  =ATP3*2(18)
036450,000304: 30,2652           71240                           BMN      DLOAD                                 #  IF ATP3 NEG,GO TO NO-ATP
036451,000305: 30,2653           60657                                    NO-ATP                                #  LOAD ATP2, IF ATP3 POS
036452,000306: 30,2654           00011                                    8D                                    
036453,000307: 30,2655           52166                           SQRT     GOTO                                  #  ATP*2(9)
036454,000308: 30,2656           60665                                    AIMER                                 
036455,000309: 30,2657           55345        NO-ATP             DLOAD    BDDV                                  #  KR AT/AH = KH                 (8)
036456,000310: 30,2660           00007                                    6D                                    
036457,000311: 30,2661           77761                           VXSC                                           #  KH AH*2(9)
036458,000312: 30,2662           00001                                    00D                                   
036459,000313: 30,2663           14001                           STODL    00D                                   #  STORE NEW AH IN PDL(0)
036460,000314: 30,2664           06522                                    HI6ZEROS                              
036461,000315: 30,2665           77765        AIMER              SIGN                                           
036462,000316: 30,2666           02343                                    DZDOT                                 
036463,000317: 30,2667           02361                           STORE    ATP                                   
036464,000318: 30,2670           77761                           VXSC                                           
036465,000319: 30,2671           03726                                    ZAXIS1                                #  ATP ZAXIS *2(8).
036466,000320: 30,2672           53372                           VSL1     VAD                                   #  AT*2(9)
036467,000321: 30,2673           00001                                    00D                                   
036468,000322: 30,2674           03254                           STORE    UNFC/2                                #  WILL BE OVERWRITTEN IF IN VERT. RISE.
036469,000323: 30,2675           43001                           SETPD    BON                                   
036470,000324: 30,2676           00001                                    00D                                   
036471,000325: 30,2677           04704                                    FLPI                                  
036472,000326: 30,2700           60220                                    P12RET                                
036473,000327: 30,2701           77614                           BON                                            

Page 850

036475,000329: 30,2702           04701                                    FLVR                                  
036476,000330: 30,2703           60755                                    CHECKALT                              
036477,000331: 30,2704           57575        MAINLINE           VLOAD    VCOMP                                 
036478,000332: 30,2705           03537                                    UNIT/R/                               
036479,000333: 30,2706           17262                           STODL    UNWC/2                                
036480,000334: 30,2707           03654                                    TXO                                   
036481,000335: 30,2710           51025                           DSU      BPL                                   
036482,000336: 30,2711           01235                                    PIPTIME                               
036483,000337: 30,2712           60721                                    ASCTERM                               
036484,000338: 30,2713           77614                           BON                                            
036485,000339: 30,2714           04711                                    ROTFLAG                               
036486,000340: 30,2715           57273                                    ANG1CHEK                              
036487,000341: 30,2716           43014        CLRXFLAG           CLEAR    CLEAR                                 
036488,000342: 30,2717           01664                                    NOR29FLG                              #  START R29 IN ASCENT PHASE.
036489,000343: 30,2720           06666                                    XOVINFLG                              #  ALLOW X-AXIS OVERRIDE
036490,000344: 30,2721           77776        ASCTERM            EXIT                                           
036491,000345: 30,2722           30105                           CA       FLAGWRD9                              
036492,000346: 30,2723           74742                           MASK     FLRCSBIT                              
036493,000347: 30,2724           10000                           CCS      A                                     
036494,000348: 30,2725           12747                           TCF      ASCTERM3                              
036495,000349: 30,2726           06037                           TC       INTPRET                               
036496,000350: 30,2727           77624                           CALL                                           
036497,000351: 30,2730           61111                                    FINDCDUW   -2                         
036498,000352: 30,2731           77776        ASCTERM1           EXIT                                           
036499,000353: 30,2732           30105                 +1        CA       FLAGWRD9                              #  INSURE THAT THE NOUN 63 DISPLAY IS
036500,000354: 30,2733           74742                           MASK     FLRCSBIT                              #  BYPASSED IF WE ARE IN THE RCS TRIMMING
036501,000355: 30,2734           10000                           CCS      A                                     #  MODE OF OPERATION
036502,000356: 30,2735           12747                           TCF      ASCTERM3                              
036503,000357: 30,2736           30104                           CA       FLAGWRD8                              #  BYPASS DISPLAYS IF ENGINE FAILURE IS
036504,000358: 30,2737           74742                           MASK     FLUNDBIT                              #  INDICATED.
036505,000359: 30,2740           10000                           CCS      A                                     
036506,000360: 30,2741           12747                           TCF      ASCTERM3                              
036507,000361: 30,2742           33033                           CAF      V06N63*                               
036508,000362: 30,2743           04616                           TC       BANKCALL                              
036509,000363: 30,2744           20451                           CADR     GODSPR                                
036510,000364: 30,2745           12747                           TCF      ASCTERM3                              
036511,000365: 30,2746           77776        ASCTERM2           EXIT                                           
036512,000366: 30,2747           15155        ASCTERM3           TCF      ENDOFJOB                              
036513,000367: 30,2750           77776        ASCTERM4           EXIT                                           
036514,000368: 30,2751           00004                           INHINT                                         
036515,000369: 30,2752           04674                           TC       IBNKCALL                              #  NO GUIDANCE THIS CYCLE -- HENCE ZERO
036516,000370: 30,2753           40153                           CADR     ZATTEROR                              #  THE DAP ATTITUDE ERRORS.
036517,000371: 30,2754           12732                           TCF      ASCTERM1   +1                         
036518,000372: 
036519,000373: 30,2755           45345        CHECKALT           DLOAD    DSU                                   
036520,000374: 30,2756           02301                                    /R/MAG                                
036521,000375: 30,2757           02333                                    /LAND/                                
036522,000376: 30,2760           50025                           DSU      BMN                                   #  IF H LT 25K CHECK Z AXIS ORIENTATION.
036523,000377: 30,2761           26700                                    25KFT                                 
036524,000378: 30,2762           16667                                    CHECKYAW                              

Page 851

036526,000380: 30,2763           43014        EXITVR             CLEAR    BON                                   
036527,000381: 30,2764           04661                                    FLVR                                  
036528,000382: 30,2765           04711                                    ROTFLAG                               
036529,000383: 30,2766           60704                                    MAINLINE                              
036530,000384: 30,2767           43345                           DLOAD    DAD                                   
036531,000385: 30,2770           01235                                    PIPTIME                               
036532,000386: 30,2771           25755                                    10SECS                                
036533,000387: 30,2772           37654                           STCALL   TXO                                   
036534,000388: 30,2773           60704                                    MAINLINE                              
036535,000389: 30,2774           77614        EXITVR1            CLRGO                                          
036536,000390: 30,2775           04631                                    ROTFLAG                               
036537,000391: 30,2776           60763                                    EXITVR                                
036538,000392: 
036539,000393: 27,2000                                           SETLOC   ASENT1                                
036540,000394: 27,2000                                           BANK                                           
036541,000395: 27,3273                                           COUNT*   $$/ASENT                              
036542,000396: 
036543,000397: 27,3273           50375        ANG1CHEK           VLOAD    DOT                                   
036544,000398: 27,3274           03254                                    UNFC/2                                
036545,000399: 27,3275           02146                                    XNBPIP                                
036546,000400: 27,3276           51025                           DSU      BPL                                   
036547,000401: 27,3277           02577                                    COSTHET1                              
036548,000402: 27,3300           57307                                    OFFROT                                
036549,000403: 27,3301           50375                           VLOAD    DOT                                   
036550,000404: 27,3302           02146                                    XNBPIP                                
036551,000405: 27,3303           03537                                    UNIT/R/                               
036552,000406: 27,3304           50025                           DSU      BMN                                   
036553,000407: 27,3305           02601                                    COSTHET2                              
036554,000408: 27,3306           30351                                    KEEPVR1                               
036555,000409: 27,3307           77614        OFFROT             CLRGO                                          
036556,000410: 27,3310           04631                                    ROTFLAG                               
036557,000411: 27,3311           60716                                    CLRXFLAG                              
036558,000412: 
036559,000413: 07,2667                                           BANK     7                                     
036560,000414: 07,2000                                           SETLOC   ASENT2                                
036561,000415: 07,2000                                           BANK                                           
036562,000416: 07,2667                                           COUNT*   $$/ASENT                              
036563,000417: 
036564,000418: 07,2667  07,2667               SETXFLAG           =        CHECKYAW                              
036565,000419: 
036566,000420: 07,2667           77614        CHECKYAW           SET                                            
036567,000421: 07,2670           06466                                    XOVINFLG                              #  PROHIBIT X-AXIS OVERRIDE
036568,000422: 07,2671           74345                           DLOAD    VXSC                                  
036569,000423: 07,2672           02355                                    ATY                                   
036570,000424: 07,2673           02303                                    LAXIS                                 
036571,000425: 07,2674           74325                           PDDL     VXSC                                  
036572,000426: 07,2675           02361                                    ATP                                   
036573,000427: 07,2676           03726                                    ZAXIS1                                
036574,000428: 07,2677           53455                           VAD      UNIT                                  
036575,000429: 07,2700           50206                           PUSH     DOT                                   

Page 852

036577,000431: 07,2701           02154                                    YNBPIP                                
036578,000432: 07,2702           45246                           ABS      DSU                                   
036579,000433: 07,2703           13503                                    SIN5DEG                               
036580,000434: 07,2704           71244                           BPL      DLOAD                                 
036581,000435: 07,2705           30347                                    KEEPVR                                
036582,000436: 07,2706           03474                                    RDOT                                  
036583,000437: 07,2707           51025                           DSU      BPL                                   
036584,000438: 07,2710           13505                                    40FPS                                 
036585,000439: 07,2711           60774                                    EXITVR1                               
036586,000440: 07,2712           77650                           GOTO                                           
036587,000441: 07,2713           30347                                    KEEPVR                                
036588,000442: 
036589,000443: 05,3502                                           BANK     5                                     
036590,000444: 05,2000                                           SETLOC   ASENT3                                
036591,000445: 05,2000                                           BANK                                           
036592,000446: 05,3502                                           COUNT*   $$/ASENT                              
036593,000447: 
036594,000448: 05,3502           00545 00171  SIN5DEG            2DEC     0.08716    B-2                        
036595,000449: 05,3504           00017 23305  40FPS              2DEC     0.12192    B-7                        
036596,000450: 
036597,000451: 14,2347                                           BANK     14                                    
036598,000452: 14,2000                                           SETLOC   ASENT4                                
036599,000453: 14,2000                                           BANK                                           
036600,000454: 14,2347                                           COUNT*   $$/ASENT                              
036601,000455: 
036602,000456: 14,2347           45575        KEEPVR             VLOAD    STADR                                 #  RECALL LOSVEC FROM PUSHLIST
036603,000457: 14,2350           74515                           STORE    UNWC/2                                
036604,000458: 14,2351           77775        KEEPVR1            VLOAD                                          
036605,000459: 14,2352           03537                                    UNIT/R/                               
036606,000460: 14,2353           37254                           STCALL   UNFC/2                                
036607,000461: 14,2354           60721                                    ASCTERM                               
036608,000462: 
036609,000463: 14,2355           77634        ENGOFF             RTB                                            
036610,000464: 14,2356           21573                                    LOADTIME                              
036611,000465: 14,2357           43225                           DSU      DAD                                   
036612,000466: 14,2360           01235                                    PIPTIME                               
036613,000467: 14,2361           03454                                    TTOGO                                 
036614,000468: 14,2362           77476                           DCOMP    EXIT                                  
036615,000469: 14,2363           07257                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
036616,000470: 14,2364           35016                           CAF      EBANK7                                
036617,000471: 14,2365           54003                           TS       EBANK                                 
036618,000472: 14,2366  E7,1516                                  EBANK=   TGO                                   
036619,000473: 14,2366           00004                           INHINT                                         
036620,000474: 14,2367           10155                           CCS      MPAC       +1                         
036621,000475: 14,2370           12373                           TCF      +3                                    #  C(A) = DT - 1 BIT
036622,000476: 14,2371           12373                           TCF      +2                                    #  C(A) = 0
036623,000477: 14,2372           34755                           CAF      ZERO                                  #  C(A) = 0
036624,000478: 14,2373           64753                           AD       BIT1                                  #  C(A) = 1 BIT OR DT.

Page 853

036626,000480: 14,2374           55644                           TS       ENGOFFDT                              
036627,000481: 14,2375           05173                           TC       TWIDDLE                               
036628,000482: 14,2376           02410                           ADRES    ENGOFF1                               
036629,000483: 14,2377           05353                           TC       PHASCHNG                              
036630,000484: 14,2400           47014                           OCT      47014                                 
036631,000485: 14,2401           76133                           -GENADR  ENGOFFDT                              
036632,000486: 14,2402  E7,1516                                  EBANK=   TGO                                   
036633,000487: 14,2402           02410 30067                     2CADR    ENGOFF1                               
036634,000488: 
036635,000489: 14,2404           06037                           TC       INTPRET                               
036636,000490: 14,2405           52014                           SET      GOTO                                  
036637,000491: 14,2406           03470                                    IDLEFLAG                              #  DISABLE DELTA-V MONITOR
036638,000492: 14,2407           60451                                    T2TEST                                
036639,000493: 
036640,000494: 14,2410           04674        ENGOFF1            TC       IBNKCALL                              #  SHUT OFF THE ENGINE.
036641,000495: 14,2411           75551                           CADR     ENGINOF2                              
036642,000496: 
036643,000497: 14,2412           35027                           CAF      PRIO17                                #  SET UP A JOB FOR THE ASCENT GUIDANCE
036644,000498: 14,2413           05105                           TC       FINDVAC                               #  POSTBURN LOGIC.
036645,000499: 14,2414  E7,1455                                  EBANK=   WHICH                                 
036646,000500: 14,2414           02424 30067                     2CADR    CUTOFF                                
036647,000501: 
036648,000502: 14,2416           05353                           TC       PHASCHNG                              
036649,000503: 14,2417           07024                           OCT      07024                                 
036650,000504: 14,2420           17000                           OCT      17000                                 
036651,000505: 14,2421  E7,1516                                  EBANK=   TGO                                   
036652,000506: 14,2421           02424 30067                     2CADR    CUTOFF                                
036653,000507: 
036654,000508: 14,2423           15261                           TCF      TASKOVER                              
036655,000509: 
036656,000510: 14,2424           05504        CUTOFF             TC       UPFLAG                                #  SET FLRCS FLAG.
036657,000511: 14,2425           00214                           ADRES    FLRCS                                 
036658,000512: 
036659,000513: 14,2426           32445                 -5        CAF      V16N63                                
036660,000514: 14,2427           04616                           TC       BANKCALL                              
036661,000515: 14,2430           20476                           CADR     GOFLASH                               
036662,000516: 14,2431           12434                           TCF      +3                                    
036663,000517: 14,2432           12436                           TCF      CUTOFF1                               
036664,000518: 14,2433           12426                           TCF      -5                                    
036665,000519: 
036666,000520: 14,2434           04635                 +3        TC       POSTJUMP                              
036667,000521: 14,2435           61007                           CADR     TERMASC                               
036668,000522: 
036669,000523: 14,2436           00004        CUTOFF1            INHINT                                         
036670,000524: 14,2437           04674                           TC       IBNKCALL                              #  ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
036671,000525: 14,2440           40153                           CADR     ZATTEROR                              
036672,000526: 14,2441           04674                           TC       IBNKCALL                              
036673,000527: 14,2442           40140                           CADR     SETMINDB                              
036674,000528: 14,2443           04635                           TC       POSTJUMP                              
036675,000529: 14,2444           60777                           CADR     CUTOFF2                               

Page 854

036677,000531: 
036678,000532: 14,2445           04077        V16N63             VN       1663                                  
036679,000533: 30,2777                                           BANK     30                                    
036680,000534: 30,2000                                           SETLOC   ASENT5                                
036681,000535: 30,2000                                           BANK                                           
036682,000536: 30,2777                                           COUNT*   $$/ASENT                              
036683,000537: 
036684,000538: 30,2777           05353        CUTOFF2            TC       PHASCHNG                              
036685,000539: 30,3000           04024                           OCT      04024                                 
036686,000540: 
036687,000541: 30,3001           33017                           CAF      V16N85C                               
036688,000542: 30,3002           04616                           TC       BANKCALL                              
036689,000543: 30,3003           20476                           CADR     GOFLASH                               
036690,000544: 30,3004           13007                           TCF      TERMASC                               
036691,000545: 30,3005           13007                           TCF      +2                                    #  PROCEED
036692,000546: 30,3006           12777                           TCF      CUTOFF2                               
036693,000547: 
036694,000548: 30,3007           05353        TERMASC            TC       PHASCHNG                              
036695,000549: 30,3010           04024                           OCT      04024                                 
036696,000550: 
036697,000551: 30,3011           00004                           INHINT                                         #  RESTORE DEADBAND DESIRED BY ASTRONAUT.
036698,000552: 30,3012           04674                           TC       IBNKCALL                              
036699,000553: 30,3013           40123                           CADR     RESTORDB                              
036700,000554: 30,3014           05516                           TC       DOWNFLAG                              #  DISALLOW ABORTS AT THIS TIME.
036701,000555: 30,3015           00215                           ADRES    LETABORT                              
036702,000556: 30,3016           16001                           TCF      GOTOPOOH                              
036703,000557: 
036704,000558: 30,3017           04125        V16N85C            VN       1685                                  
036705,000559: 
036706,000560: 27,3312                                           BANK     27                                    
036707,000561: 27,2000                                           SETLOC   ASENT1                                
036708,000562: 27,2000                                           BANK                                           
036709,000563: 27,3312                                           COUNT*   $$/ASENT                              
036710,000564: 
036711,000565: 27,3312           50375        YCOMP              VLOAD    DOT                                   
036712,000566: 27,3313           03537                                    UNIT/R/                               
036713,000567: 27,3314           03720                                    QAXIS                                 
036714,000568: 27,3315           41312                           SL2      DMP                                   
036715,000569: 27,3316           03631                                    RCO                                   
036716,000570: 27,3317           02335                           STORE    Y                                     
036717,000571: 27,3320           77616                           RVQ                                            
036718,000572: 
036719,000573: 30,3020                                           BANK     30                                    
036720,000574: 30,2000                                           SETLOC   ASENT                                 
036721,000575: 30,2000                                           BANK                                           
036722,000576: 

Page 855

036724,000578:                                                                                                  #  ASCENT GUIDANCE CONSTANTS
036725,000579: 
036726,000580: 30,3020  33,3146               100CS              EQUALS   2SEC(18)                              
036727,000581: 30,3020  30,3022               T2A                EQUALS   2SEC(17)                              
036728,000582: 30,3020           00062 00000  4SEC(17)           2DEC     400        B-17                       
036729,000583: 30,3022           00031 00000  2SEC(17)           2DEC     200        B-17                       
036730,000584: 30,3024           00175 00000  T3                 2DEC     1000       B-17                       
036731,000585: 30,3026           00045 20000  6SEC(18)           2DEC     600        B-18                       
036732,000586: 30,3030           00010        BIT4H              OCT      10                                    
036733,000587: 30,3031           14400 00000  2SEC(9)            2DEC     200        B-9                        
036734,000588: 30,3033           01477        V06N63*            VN       0663                                  
036735,000589: 30,3034           01514        V06N76             VN       0676                                  
036736,000590: 30,3035           01441        V06N33A            VN       0633                                  
036737,000591: 
036738,000592: 33,2200                                           BANK     33                                    
036739,000593: 33,2000                                           SETLOC   ASENT6                                
036740,000594: 33,2000                                           BANK                                           
036741,000595: 33,2200                                           COUNT*   $$/ASENT                              
036742,000596: 
036743,000597: 33,2200           20000 00000  KT1                2DEC     0.5000                                
036744,000598: 33,2202           75751 41775  PRLIMIT            2DEC     -.0639                                #  (B/TBUP)MIN=-.1FT.SEC(-3)
036745,000599: 33,2204           00022 07212  MINABDV            2DEC     .0356      B-5                        #  10 PERCENT BIGGER THAN GRAVITY
036746,000600: 33,2206  E7,1570               1/DV0              =        MASS1                                 
036747,000601: 

Page 856

036749,000603:                                                                                                  #  THE LOGARITHM SUBROUTINE
036750,000604: 
036751,000605: 24,3670                                           BANK     24                                    
036752,000606: 30,2000                                           SETLOC   FLOGSUB                               
036753,000607: 30,2000                                           BANK                                           
036754,000608: 
036755,000609:                                                                                                  #  INPUT ..... X IN MPAC
036756,000610:                                                                                                  #  OUTPUT ..... -LOG(X) IN MPAC
036757,000611: 
036758,000612: 30,3036           44301        LOGSUB             NORM     BDSU                                  
036759,000613: 30,3037           00163                                    MPAC       +6                         
036760,000614: 30,3040           17771                                    NEARONE                               
036761,000615: 30,3041           77776                           EXIT                                           
036762,000616: 30,3042           07222                           TC       POLY                                  
036763,000617: 30,3043           00006                           DEC      6          B-14                       
036764,000618: 30,3044           00000 00002                     2DEC     .0000000060                            
036765,000619: 30,3046           76777 77175                     2DEC     -.0312514377                            
036766,000620: 30,3050           77400 75416                     2DEC     -.0155686771                            
036767,000621: 30,3052           77507 65515                     2DEC     -.0112502068                            
036768,000622: 30,3054           77741 63547                     2DEC     -.0018545108                            
036769,000623: 30,3056           77052 55373                     2DEC     -.0286607906                            
036770,000624: 30,3060           01167 30361                     2DEC     .0385598563                            
036771,000625: 30,3062           76520 75267                     2DEC     -.0419361902                            
036772,000626: 
036773,000627: 30,3064           34755                           CAF      ZERO                                  
036774,000628: 30,3065           54156                           TS       MPAC       +2                         
036775,000629: 30,3066           00006                           EXTEND                                         
036776,000630: 30,3067           33103                           DCA      CLOG2/32                              
036777,000631: 30,3070           52155                           DXCH     MPAC                                  
036778,000632: 30,3071           52132                           DXCH     BUF        +1                         
036779,000633: 30,3072           30162                           CA       MPAC       +6                         
036780,000634: 30,3073           07307                           TC       SHORTMP                               
036781,000635: 30,3074           52156                           DXCH     MPAC       +1                         
036782,000636: 30,3075           52155                           DXCH     MPAC                                  
036783,000637: 30,3076           52132                           DXCH     BUF        +1                         
036784,000638: 30,3077           20155                           DAS      MPAC                                  
036785,000639: 30,3100           06037                           TC       INTPRET                               
036786,000640: 30,3101           43476                           DCOMP    RVQ                                   
036787,000641: 
036788,000642: 30,3102           00542 34414  CLOG2/32           2DEC     .0216608494                            
036789,000643: 

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