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!

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

Page 843

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

Page 844

036212,000074: 34,3714           60321                                    ASCENT                                
036213,000075: 34,3715           00004        BIT3H              OCT      4                                     
036214,000076: 

Page 845

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

Page 846

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

Page 847

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

Page 848

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

Page 849

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

Page 850

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

Page 851

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

Page 852

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

Page 853

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

Page 854

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

Page 855

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

Page 856

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

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