Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

037275,000002:                                                                                                  ## Copyright:   Public domain.
037276,000003:                                                                                                  ## Filename:    ASCENT_GUIDANCE.agc
037277,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
037278,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
037279,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
037280,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
037281,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
037282,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
037283,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
037284,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
037285,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
037286,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
037287,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
037288,000015:                                                                                                  ## Reference:   pp. 834-849
037289,000016:                                                                                                  ## Assembler:   yaYUL
037290,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037291,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
037292,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
037293,000020:                                                                                                  ##              2017-08-20 MAS  Updated for Zerlina 56.
037294,000021: 

Page 834

037296,000023: 34,3455                                           BANK     34                                    
037297,000024: 34,2000                                           SETLOC   ASCFILT                               
037298,000025: 34,2000                                           BANK                                           
037299,000026: 
037300,000027: 34,3455  E7,1513                                  EBANK=   DVCNTR                                
037301,000028: 
037302,000029: 34,3455                                           COUNT*   $$/ASENT                              
037303,000030: 
037304,000031: 34,3455           05364        ATMAG              TC       PHASCHNG                              
037305,000032: 34,3456           06025                           OCT      06025                                 
037306,000033: 34,3457  E7,1513                                  EBANK=   DVCNTR                                
037307,000034: 34,3457           02102 66067                     2CADR    PIPCYCLE                              
037308,000035: 
037309,000036: 
037310,000037: 34,3461           06051                           TC       INTPRET                               
037311,000038: 34,3462           77614                           BON                                            
037312,000039: 34,3463           04705                                    FLRCS                                 
037313,000040: 34,3464           60307                                    ASCENT                                
037314,000041: 34,3465           41335                           SLOAD    DMP                                   
037315,000042: 34,3466           01251                                    ABDVACC                               
037316,000043: 34,3467           26013                                    KPIP                                  
037317,000044: 34,3470           00007                           STORE    6D                                    
037318,000045: 34,3471           77625                           DSU                                            
037319,000046: 34,3472           26034                                    MINABDV                               
037320,000047: 34,3473           43040                           BMN      CLEAR                                 
037321,000048: 34,3474           60752                                    ASCTERM4                              
037322,000049: 34,3475           04267                                    SURFFLAG                              
037323,000050: 34,3476           67214                           CLEAR    SLOAD                                 
037324,000051: 34,3477           02676                                    RENDWFLG                              
037325,000052: 34,3500           31536                                    BIT3H                                 
037326,000053: 34,3501           77471                           DDV      EXIT                                  
037327,000054: 34,3502           00007                                    6D                                    
037328,000055: 34,3503           52155                           DXCH     MPAC                                  
037329,000056: 34,3504           53641                           DXCH     1/DV3                                 
037330,000057: 34,3505           53637                           DXCH     1/DV2                                 
037331,000058: 34,3506           53635                           DXCH     1/DV1                                 
037332,000059: 34,3507           53571                           DXCH     1/DV0                                 
037333,000060: 34,3510           06051                           TC       INTPRET                               
037334,000061: 34,3511           43345                           DLOAD    DAD                                   
037335,000062: 34,3512           03571                                    1/DV0                                 
037336,000063: 34,3513           03635                                    1/DV1                                 
037337,000064: 34,3514           43215                           DAD      DAD                                   
037338,000065: 34,3515           03637                                    1/DV2                                 
037339,000066: 34,3516           03641                                    1/DV3                                 
037340,000067: 34,3517           41205                           DMP      DMP                                   
037341,000068: 34,3520           02256                                    VE                                    
037342,000069: 34,3521           21012                                    2SEC(9)                               
037343,000070: 34,3522           65252                           SL3      PDDL                                  
037344,000071: 34,3523           02262                                    TBUP                                  
037345,000072: 34,3524           43342                           SR1      DAD                                   

Page 835

037347,000074: 34,3525           77625                           DSU                                            
037348,000075: 34,3526           21010                                    6SEC(18)                              
037349,000076: 34,3527           16262                           STODL    TBUP                                  
037350,000077: 34,3530           02256                                    VE                                    
037351,000078: 34,3531           56342                           SR1      DDV                                   
037352,000079: 34,3532           02262                                    TBUP                                  
037353,000080: 34,3533           36254                           STCALL   AT                                    
037354,000081: 34,3534           60307                                    ASCENT                                
037355,000082: 
037356,000083: 34,3535           00004        BIT3H              OCT      4                                     
037357,000084: 

Page 836

037359,000086: 30,2307                                           BANK     30                                    
037360,000087: 30,2000                                           SETLOC   ASENT                                 
037361,000088: 30,2000                                           BANK                                           
037362,000089: 30,2307                                           COUNT*   $$/ASENT                              
037363,000090: 
037364,000091: 
037365,000092: 30,2307           51575        ASCENT             VLOAD    ABVAL                                 
037366,000093: 30,2310           03517                                    R                                     
037367,000094: 30,2311           26272                           STOVL    /R/MAG                                
037368,000095: 30,2312           03535                                    UNIT/R/                               
037369,000096: 30,2313           53435                           VXV      UNIT                                  
037370,000097: 30,2314           02567                                    QAXIS                                 
037371,000098: 30,2315           02575                           STORE    ZAXIS1                                
037372,000099: 30,2316           72441                           DOT      SL1                                   
037373,000100: 30,2317           03525                                    V                                     #  Z.V = ZDOT*2(-8).
037374,000101: 30,2320           26304                           STOVL    ZDOT                                  #  ZDOT*2(-7)
037375,000102: 30,2321           02575                                    ZAXIS1                                
037376,000103: 30,2322           76435                           VXV      VSL1                                  
037377,000104: 30,2323           03535                                    UNIT/R/                               #  Z X UR = LAXIS*2(-2)
037378,000105: 30,2324           02274                           STORE    LAXIS                                 #  LAXIS*2(-1)
037379,000106: 30,2325           72441                           DOT      SL1                                   
037380,000107: 30,2326           03525                                    V                                     #  L.V = YDOT*2(-8).
037381,000108: 30,2327           36302                           STCALL   YDOT                                  #  YDOT * 2(-7)
037382,000109: 30,2330           57333                                    YCOMP                                 
037383,000110: 30,2331           77775                           VLOAD                                          
037384,000111: 30,2332           03561                                    G1                                    
037385,000112: 30,2333           42441                           DOT      SL4                                   
037386,000113: 30,2334           03535                                    UNIT/R/                               #  G.UR*2(9) = GR*2(9).
037387,000114: 30,2335           47315                           PDVL     VXV                                   #  STORE IN PDL(0)                     (2)
037388,000115: 30,2336           03535                                    UNIT/R/                               #  LOAD UNIT/R/*2(-1).
037389,000116: 30,2337           03525                                    V                                     #  UR*2(-1) X V*2(-7) = H/R*2(-8).
037390,000117: 30,2340           56236                           VSQ      DDV                                   #  H(2)/R(2)*2(-16).
037391,000118: 30,2341           02272                                    /R/MAG                                #  H(2)/R(3)*2(9).
037392,000119: 30,2342           43352                           SL1      DAD                                   
037393,000120: 30,2343           77626                           STADR                                          
037394,000121: 30,2344           75471                           STORE    GEFF                                  #  GEFF*2(10)M/CS/CS
037395,000122: 30,2345           45014                           BOFF     CALL                                  #  IF P7071FLG = 1 (I.E. P70 OR P71)
037396,000123: 30,2346           04742                                    P7071FLG                              #      CALL ZDOTDCMP TO UPDATE ZDOTD
037397,000124: 30,2347           60351                                    +2                                    #      ON THE BASIS OF THE LAST RP.
037398,000125: 30,2350           71614                                    ZDOTDCMP                              
037399,000126: 30,2351           45345                 +2        DLOAD    DSU                                   
037400,000127: 30,2352           02270                                    ZDOTD                                 
037401,000128: 30,2353           02304                                    ZDOT                                  
037402,000129: 30,2354           02334                           STORE    DZDOT                                 #  DZDOT = (ZDOTD - ZDOT)*2(7)M/CS.
037403,000130: 30,2355           65361                           VXSC     PDDL                                  
037404,000131: 30,2356           02575                                    ZAXIS1                                
037405,000132: 30,2357           02266                                    YDOTD                                 

Page 837

037407,000134: 30,2360           77625                           DSU                                            
037408,000135: 30,2361           02302                                    YDOT                                  
037409,000136: 30,2362           02332                           STORE    DYDOT                                 #  DYDOT = (YDOTD - YDOT)*2(7)M/CS.
037410,000137: 30,2363           65361                           VXSC     PDDL                                  
037411,000138: 30,2364           02274                                    LAXIS                                 
037412,000139: 30,2365           02264                                    RDOTD                                 
037413,000140: 30,2366           77625                           DSU                                            
037414,000141: 30,2367           03474                                    RDOT                                  
037415,000142: 30,2370           02330                           STORE    DRDOT                                 #  DRDOT = (RDOTD - RDOT)*2(7)M/CS.
037416,000143: 30,2371           53361                           VXSC     VAD                                   
037417,000144: 30,2372           03535                                    UNIT/R/                               
037418,000145: 30,2373           76455                           VAD      VSL1                                  
037419,000146: 30,2374           77626                           STADR                                          
037420,000147: 30,2375           74131                           STORE    VGVECT                                #  VG = (DRDOT)R + (DYDOT)L + (DZDOT)Z.
037421,000148: 30,2376           41345                           DLOAD    DMP                                   #  LOAD TGO
037422,000149: 30,2377           03515                                    TGO                                   #  TGO GEFF
037423,000150: 30,2400           02306                                    GEFF                                  
037424,000151: 30,2401           76561                           VXSC     VSL1                                  
037425,000152: 30,2402           03535                                    UNIT/R/                               #  TGO GEFF UR
037426,000153: 30,2403           77645                           BVSU                                           
037427,000154: 30,2404           03646                                    VGVECT                                #  COMPENSATED FOR GEFF
037428,000155: 30,2405           03646                           STORE    VGVECT                                #  STORE FOR DOWNLINK
037429,000156: 30,2406           76521                           MXV      VSL1                                  #  GET VGBODY FOR N85 DISPLAY
037430,000157: 30,2407           02137                                    XNBPIP                                
037431,000158: 30,2410           27502                           STOVL    VGBODY                                
037432,000159: 30,2411           03646                                    VGVECT                                
037433,000160: 30,2412           43046                           ABVAL    BOFF                                  #  MAGNITUDE OF VGVECT
037434,000161: 30,2413           04745                                    FLRCS                                 #  IF FLRCS=0,DO NORMAL GUIDANCE
037435,000162: 30,2414           60423                                    MAINENG                               
037436,000163: 30,2415           77671                           DDV                                            #  USE TGO=VG/AT  WITH RCS
037437,000164: 30,2416           20001                                    AT/RCS                                
037438,000165: 30,2417           37515                           STCALL   TGO                                   #  THIS WILL BE USED ON NEXT CYCLE
037439,000166: 30,2420           71565                                    RPCOMP1                               #  COMPUTE NEW RP FOR NEXT CYCLE.
037440,000167: 30,2421           77634                           RTB                                            
037441,000168: 30,2422           60750                                    ASCTERM3                              
037442,000169: 30,2423           41471        MAINENG            DDV      PUSH                                  #  VG/VE IN PDL(0)                    (2)
037443,000170: 30,2424           02256                                    VE                                    
037444,000171: 30,2425           44342                           SR1      BDSU                                  #  1 - VG / 2 VE
037445,000172: 30,2426           17753                                    NEARONE                               
037446,000173: 30,2427           41205                           DMP      DMP                                   #  TBUP VG(1-KT VG/VE)/VE             (0)
037447,000174: 30,2430           02262                                    TBUP                                  #   = TGO
037448,000175: 30,2431           77625                           DSU                                            #  COMPENSATE FOR TAILOFF
037449,000176: 30,2432           02260                                    TTO                                   
037450,000177: 30,2433           03515                           STORE    TGO                                   
037451,000178: 30,2434           57461                           SR       DCOMP                                 
037452,000179: 30,2435           20614                                    11D                                   
037453,000180: 30,2436           17454                           STODL    TTOGO                                 #  TGO*2(-28)CS
037454,000181: 30,2437           03515                                    TGO                                   
037455,000182: 30,2440           45214                           BON      DSU                                   
037456,000183: 30,2441           03710                                    IDLEFLAG                              

Page 838

037458,000185: 30,2442           60446                                    T2TEST                                
037459,000186: 30,2443           21002                                    4SEC(17)                              #  ( TGO - 4 )*2(-17)CS.
037460,000187: 30,2444           77640                           BMN                                            
037461,000188: 30,2445           30347                                    ENGOFF                                
037462,000189: 30,2446           77745        T2TEST             DLOAD                                          
037463,000190: 30,2447           03515                                    TGO                                   
037464,000191: 30,2450           50025                           DSU      BMN                                   #  IF TGO - T2 NEG., GO TO CMPONENT
037465,000192: 30,2451           21004                                    T2A                                   
037466,000193: 30,2452           60606                                    CMPONENT                              
037467,000194: 30,2453           45345                           DLOAD    DSU                                   
037468,000195: 30,2454           02262                                    TBUP                                  
037469,000196: 30,2455           03515                                    TGO                                   
037470,000197: 30,2456           45071                           DDV      CALL                                  #  1-TGO/TBUP
037471,000198: 30,2457           02262                                    TBUP                                  
037472,000199: 30,2460           61016                                    LOGSUB                                
037473,000200: 30,2461           41461                           SL       PUSH                                  #  -L IN PDL(0)                        (2)
037474,000201: 30,2462           20206                                    5                                     
037475,000202: 30,2463           44265                           BDDV     BDSU                                  #  -TGO/L*2(-17)
037476,000203: 30,2464           03515                                    TGO                                   
037477,000204: 30,2465           02262                                    TBUP                                  #  TBUP + TGO/L = D12*2(-17)
037478,000205: 30,2466           43006                           PUSH     BON                                   #  STORE IN PDL(2)                      (4)
037479,000206: 30,2467           04703                                    FLPC                                  #  IF FLPC = 1, GO TO CONST
037480,000207: 30,2470           60477                                    NORATES                               
037481,000208: 30,2471           45345                           DLOAD    DSU                                   
037482,000209: 30,2472           03515                                    TGO                                   
037483,000210: 30,2473           21006                                    T3                                    
037484,000211: 30,2474           43044                           BPL      SET                                   #  FLPC=1
037485,000212: 30,2475           60504                                    RATES                                 
037486,000213: 30,2476           04463                                    FLPC                                  
037487,000214: 30,2477           77745        NORATES            DLOAD                                          
037488,000215: 30,2500           06520                                    HI6ZEROS                              
037489,000216: 30,2501           02342                           STORE    PRATE                                 #  B = 0
037490,000217: 30,2502           36344                           STCALL   YRATE                                 #  D = 0
037491,000218: 30,2503           60566                                    CONST                                 #  GO TO CONST
037492,000219: 30,2504           45345        RATES              DLOAD    DSU                                   
037493,000220: 30,2505           03515                                    TGO                                   
037494,000221: 30,2506           00003                                    02D                                   #  TGO - D12 = D21*2(-17)
037495,000222: 30,2507           72406                           PUSH     SL1                                   #  IN PDL(4)                            (6)
037496,000223: 30,2510           52421                           BDSU     SL3                                   #  (1/2TGO - D21)*2(-13) = E * 2(-13)
037497,000224: 30,2511           03515                                    TGO                                   #                                       (8)
037498,000225: 30,2512           41325                           PDDL     DMP                                   #  IN PDL(6)
037499,000226: 30,2513           03515                                    TGO                                   
037500,000227: 30,2514           03474                                    RDOT                                  #  RDOT TGO * 2(-24)
037501,000228: 30,2515           45215                           DAD      DSU                                   #  R + RDOT TGO
037502,000229: 30,2516           02272                                    /R/MAG                                #  R + RDOT TGO - RCO
037503,000230: 30,2517           03631                                    RCO                                   #  MPAC = - DR*2(-24).
037504,000231: 30,2520           41325                           PDDL     DMP                                   #  -DR IN PDL(8)                       (10)
037505,000232: 30,2521           02330                                    DRDOT                                 
037506,000233: 30,2522           00005                                    04D                                   #  D21 DRDOT*2(-24)
037507,000234: 30,2523           62415                           DAD      SL2                                   #  (D21 DRDOT-DR)*2(-22)                (8)

Page 839

037509,000236: 30,2524           56271                           DDV      DDV                                   
037510,000237: 30,2525           00007                                    06D                                   #  (D21 DRDOT-DR)/E*2(-9)
037511,000238: 30,2526           03515                                    TGO                                   
037512,000239: 30,2527           02342                           STORE    PRATE                                 #  B * 2(8)
037513,000240: 30,2530           71240                           BMN      DLOAD                                 #  B>0 NOT PERMITTED
037514,000241: 30,2531           60535                                    CHKBMAG                               
037515,000242: 30,2532           06520                                    HI6ZEROS                              
037516,000243: 30,2533           36342                           STCALL   PRATE                                 
037517,000244: 30,2534           60547                                    PROK                                  
037518,000245: 30,2535           56202        CHKBMAG            SR4      DDV                                   #  B*2(4)
037519,000246: 30,2536           02262                                    TBUP                                  #  (B / TAU) * 2(21)
037520,000247: 30,2537           51025                           DSU      BPL                                   
037521,000248: 30,2540           26032                                    PRLIMIT                               #  ( B/ TAU) * 2(21) MAX.
037522,000249: 30,2541           60547                                    PROK                                  
037523,000250: 30,2542           41345                           DLOAD    DMP                                   
037524,000251: 30,2543           26032                                    PRLIMIT                               
037525,000252: 30,2544           02262                                    TBUP                                  #  B MAX. * 2(4)
037526,000253: 30,2545           77612                           SL4                                            #  BMAX*2(8)
037527,000254: 30,2546           02342                           STORE    PRATE                                 
037528,000255: 30,2547           77745        PROK               DLOAD                                          
037529,000256: 30,2550           03515                                    TGO                                   
037530,000257: 30,2551           43205                           DMP      DAD                                   #  YDOT TGO
037531,000258: 30,2552           02302                                    YDOT                                  
037532,000259: 30,2553           02326                                    Y                                     #  Y + YDOT TGO
037533,000260: 30,2554           65225                           DSU      PDDL                                  #  Y + YDOT TGO - YCO
037534,000261: 30,2555           03633                                    YCO                                   #  MPAC = - DY*2(-24.) IN PDL(8)       (10)
037535,000262: 30,2556           02332                                    DYDOT                                 
037536,000263: 30,2557           43205                           DMP      DAD                                   #  D21 DYDOT - DY                      (8)
037537,000264: 30,2560           00005                                    04D                                   
037538,000265: 30,2561           56312                           SL2      DDV                                   #  (D21 DYDOT - DY)/E*2(-9)
037539,000266: 30,2562           40271                           DDV      SETPD                                 #  (D21 DYDOT - DY)/E TGO*2(8)
037540,000267: 30,2563           03515                                    TGO                                   #    = D*2(8)
037541,000268: 30,2564           00005                                    04                                    
037542,000269: 30,2565           02344                           STORE    YRATE                                 
037543,000270: 30,2566           41345        CONST              DLOAD    DMP                                   #  LOAD B*2(8)
037544,000271: 30,2567           02342                                    PRATE                                 #  B D12*2(-9)
037545,000272: 30,2570           00003                                    02D                                   
037546,000273: 30,2571           56325                           PDDL     DDV                                   #  D12 B IN PDL(4)                     (6)
037547,000274: 30,2572           02330                                    DRDOT                                 #  LOAD DRDOT*2(-7)
037548,000275: 30,2573           00001                                    00D                                   #  -DRDOT/L*2(-7)
037549,000276: 30,2574           45302                           SR2      DSU                                   #  (-DRDOT/L-D12 B)=A*2(-9)             (4)
037550,000277: 30,2575           77626                           STADR                                          
037551,000278: 30,2576           61441                           STODL    PCONS                                 
037552,000279: 30,2577           02344                                    YRATE                                 #  D*2(8)
037553,000280: 30,2600           65205                           DMP      PDDL                                  #  D12 D,EXCH WITH -L IN PDL(0)       (2,2)
037554,000281: 30,2601           60465                           BDDV     SR2                                   #  -DYDOT/L*2(-9)
037555,000282: 30,2602           02332                                    DYDOT                                 
037556,000283: 30,2603           77625                           DSU                                            #  (-DYDOT/L-D12 D)=C*2(-9)
037557,000284: 30,2604           00001                                    00D                                   
037558,000285: 30,2605           02340                           STORE    YCONS                                 

Page 840

037560,000287: 30,2606           43001        CMPONENT           SETPD    BOFF                                  
037561,000288: 30,2607           00001                                    00D                                   
037562,000289: 30,2610           04742                                    P7071FLG                              
037563,000290: 30,2611           60614                                    +3                                    #  IF P7071FLG = 1 (I.E. P70 OR P71)
037564,000291: 30,2612           77624                           CALL                                           #      COMPUTE NEW RP FOR NEXT CYCLE.
037565,000292: 30,2613           71571                                    RPCOMP2                               
037566,000293: 30,2614           41345                 +3        DLOAD    DMP                                   
037567,000294: 30,2615           27747                                    100CS                                 
037568,000295: 30,2616           02342                                    PRATE                                 #  B(T-T0)*2(-9)
037569,000296: 30,2617           56215                           DAD      DDV                                   #  (A+B(T-T0))*2(-9)
037570,000297: 30,2620           02336                                    PCONS                                 #  (A+B(T-T0))/TBUP*2(8)
037571,000298: 30,2621           02262                                    TBUP                                  
037572,000299: 30,2622           45352                           SL1      DSU                                   
037573,000300: 30,2623           02306                                    GEFF                                  #  ATR*2(9)
037574,000301: 30,2624           16350                           STODL    ATR                                   
037575,000302: 30,2625           27747                                    100CS                                 
037576,000303: 30,2626           43205                           DMP      DAD                                   
037577,000304: 30,2627           02344                                    YRATE                                 
037578,000305: 30,2630           02340                                    YCONS                                 #  (C+D(T-T0))*2(-9)
037579,000306: 30,2631           72471                           DDV      SL1                                   
037580,000307: 30,2632           02262                                    TBUP                                  
037581,000308: 30,2633           02346                           STORE    ATY                                   #  ATY*2(9)
037582,000309: 30,2634           65361                           VXSC     PDDL                                  #  ATY UY*2(8)                         (6)
037583,000310: 30,2635           02274                                    LAXIS                                 
037584,000311: 30,2636           02350                                    ATR                                   
037585,000312: 30,2637           53361                           VXSC     VAD                                   #                                      (0)
037586,000313: 30,2640           03535                                    UNIT/R/                               
037587,000314: 30,2641           41572                           VSL1     PUSH                                  #  AH*2(9) IN PDL(0)                   (6)
037588,000315: 30,2642           65246                           ABVAL    PDDL                                  #  AH(2) IN PDL(34)
037589,000316: 30,2643           02254                                    AT                                    #  AHMAG IN PDL(6)                     (8)
037590,000317: 30,2644           45316                           DSQ      DSU                                   #  (AT(2)-AH(2))*2(18)
037591,000318: 30,2645           00043                                    34D                                   #  =ATP2*2(18)
037592,000319: 30,2646           41525                           PDDL     PUSH                                  #                                      (12)
037593,000320: 30,2647           02254                                    AT                                    
037594,000321: 30,2650           45316                           DSQ      DSU                                   #  (AT(2)KR(2)-AH(2))*2(18)            (10)
037595,000322: 30,2651           00043                                    34D                                   #  =ATP3*2(18)
037596,000323: 30,2652           71240                           BMN      DLOAD                                 #  IF ATP3 NEG,GO TO NO-ATP
037597,000324: 30,2653           60657                                    NO-ATP                                #  LOAD ATP2,IF ATP3 POS
037598,000325: 30,2654           00011                                    8D                                    
037599,000326: 30,2655           52166                           SQRT     GOTO                                  #  ATP*2(9)
037600,000327: 30,2656           60665                                    AIMER                                 
037601,000328: 30,2657           55345        NO-ATP             DLOAD    BDDV                                  #  KR AT/AH = KH                       (8)
037602,000329: 30,2660           00007                                    6D                                    
037603,000330: 30,2661           77761                           VXSC                                           #  KH AH*2(9)
037604,000331: 30,2662           00001                                    00D                                   
037605,000332: 30,2663           14001                           STODL    00D                                   #  STORE NEW AH IN PDL(0)
037606,000333: 30,2664           06520                                    HI6ZEROS                              
037607,000334: 30,2665           77765        AIMER              SIGN                                           
037608,000335: 30,2666           02334                                    DZDOT                                 
037609,000336: 30,2667           02352                           STORE    ATP                                   

Page 841

037611,000338: 30,2670           77761                           VXSC                                           
037612,000339: 30,2671           02575                                    ZAXIS1                                #  ATP ZAXIS *2(8).
037613,000340: 30,2672           53372                           VSL1     VAD                                   #  AT*2(9)
037614,000341: 30,2673           00001                                    00D                                   
037615,000342: 30,2674           03253                           STORE    UNFC/2                                #  WILL BE OVERWRITTEN IF IN VERT. RISE.
037616,000343: 30,2675           43001                           SETPD    BON                                   
037617,000344: 30,2676           00001                                    00D                                   
037618,000345: 30,2677           04704                                    FLPI                                  
037619,000346: 30,2700           60210                                    P12RET                                
037620,000347: 30,2701           77614                           BON                                            
037621,000348: 30,2702           04701                                    FLVR                                  
037622,000349: 30,2703           60757                                    CHECKALT                              
037623,000350: 30,2704           57575        MAINLINE           VLOAD    VCOMP                                 
037624,000351: 30,2705           03535                                    UNIT/R/                               
037625,000352: 30,2706           17261                           STODL    UNWC/2                                
037626,000353: 30,2707           03654                                    TXO                                   
037627,000354: 30,2710           51025                           DSU      BPL                                   
037628,000355: 30,2711           01234                                    PIPTIME                               
037629,000356: 30,2712           60720                                    ASCTERM                               
037630,000357: 30,2713           77614                           BON                                            
037631,000358: 30,2714           04711                                    ROTFLAG                               
037632,000359: 30,2715           57272                                    ANG1CHEK                              
037633,000360: 30,2716           77614        CLRXFLAG           CLEAR                                          
037634,000361: 30,2717           06666                                    XOVINFLG                              #    (XOVINFLG)
037635,000362: 30,2720           77776        ASCTERM            EXIT                                           
037636,000363: 30,2721           30105                           CA       FLAGWRD9                              
037637,000364: 30,2722           74742                           MASK     FLRCSBIT                              
037638,000365: 30,2723           10000                           CCS      A                                     
037639,000366: 30,2724           12750                           TCF      ASCTERM3                              
037640,000367: 30,2725           06051                           TC       INTPRET                               
037641,000368: 30,2726           77624                           CALL                                           
037642,000369: 30,2727           61073                                    FINDCDUW   -2                         
037643,000370: 30,2730           77776        ASCTERM1           EXIT                                           
037644,000371: 30,2731           30105                 +1        CA       FLAGWRD9                              #  INSURE THAT THE NOUN 63 DISPLAY IS
037645,000372: 30,2732           74742                           MASK     FLRCSBIT                              #  BYPASSED IF WE ARE IN THE RCS TRIMMING
037646,000373: 30,2733           10000                           CCS      A                                     #  MODE OF OPERATION
037647,000374: 30,2734           12750                           TCF      ASCTERM3                              
037648,000375: 30,2735           30104                           CA       FLAGWRD8                              #  BYPASS DISPLAYS IF ENGINE FAILURE IS
037649,000376: 30,2736           74742                           MASK     FLUNDBIT                              #  INDICATED.
037650,000377: 30,2737           10000                           CCS      A                                     
037651,000378: 30,2740           12750                           TCF      ASCTERM3                              
037652,000379: 30,2741           37723                           CAF      PRIO23                                #  RAISE PRIORITY SO MAKEPLAY WILL BE SET
037653,000380: 30,2742           05146                           TC       PRIOCHNG                              #    UP AT A HIGHER PRIORITY THAN SERVICER
037654,000381: 30,2743           33013                           CAF      V06N94                                
037655,000382: 30,2744           04616                           TC       BANKCALL                              
037656,000383: 30,2745           20471                           CADR     REGODSPR                              
037657,000384: 30,2746           34736                           CAF      PRIO20                                #  RETURN TO NORMAL SERVICER PRIORITY
037658,000385: 30,2747           05146                           TC       PRIOCHNG                              
037659,000386: 30,2750           04635        ASCTERM3           TC       POSTJUMP                              
037660,000387: 30,2751           66102                           CADR     PIPCYCLE                              

Page 842

037662,000389: 30,2752           77776        ASCTERM4           EXIT                                           
037663,000390: 30,2753           00004                           INHINT                                         
037664,000391: 30,2754           04674                           TC       IBNKCALL                              #  NO GUIDANCE THIS CYCLE -- HENCE ZERO
037665,000392: 30,2755           40166                           CADR     STOPRATE                              #  THE DAP COMMANDED RATES.
037666,000393: 30,2756           12731                           TCF      ASCTERM1   +1                         
037667,000394: 
037668,000395: 30,2757           45345        CHECKALT           DLOAD    DSU                                   
037669,000396: 30,2760           02272                                    /R/MAG                                
037670,000397: 30,2761           02324                                    /LAND/                                
037671,000398: 30,2762           50025                           DSU      BMN                                   #  IF H LT 25K CHECK Z AXIS ORIENTATION.
037672,000399: 30,2763           26036                                    25KFT                                 
037673,000400: 30,2764           57312                                    CHECKYAW                              
037674,000401: 30,2765           43014        EXITVR             CLEAR    BON                                   
037675,000402: 30,2766           04661                                    FLVR                                  
037676,000403: 30,2767           04711                                    ROTFLAG                               
037677,000404: 30,2770           60704                                    MAINLINE                              
037678,000405: 30,2771           43345                           DLOAD    DAD                                   
037679,000406: 30,2772           01234                                    PIPTIME                               
037680,000407: 30,2773           25723                                    10SECS                                
037681,000408: 30,2774           37654                           STCALL   TXO                                   
037682,000409: 30,2775           60704                                    MAINLINE                              
037683,000410: 30,2776           77614        EXITVR1            CLRGO                                          
037684,000411: 30,2777           04631                                    ROTFLAG                               
037685,000412: 30,3000           60765                                    EXITVR                                
037686,000413: 
037687,000414: 27,2000                                           SETLOC   ASENT1                                
037688,000415: 27,2000                                           BANK                                           
037689,000416: 27,3272                                           COUNT*   $$/ASENT                              
037690,000417: 
037691,000418: 27,3272           53575        ANG1CHEK           VLOAD    UNIT                                  
037692,000419: 27,3273           03253                                    UNFC/2                                
037693,000420: 27,3274           77641                           DOT                                            
037694,000421: 27,3275           02137                                    XNBPIP                                
037695,000422: 27,3276           51025                           DSU      BPL                                   
037696,000423: 27,3277           02555                                    COSTHET1                              
037697,000424: 27,3300           57307                                    OFFROT                                
037698,000425: 27,3301           50375                           VLOAD    DOT                                   
037699,000426: 27,3302           02137                                    XNBPIP                                
037700,000427: 27,3303           03535                                    UNIT/R/                               
037701,000428: 27,3304           50025                           DSU      BMN                                   
037702,000429: 27,3305           02557                                    COSTHET2                              
037703,000430: 27,3306           71540                                    KEEPVR1                               
037704,000431: 27,3307           77614        OFFROT             CLRGO                                          
037705,000432: 27,3310           04631                                    ROTFLAG                               
037706,000433: 27,3311           60716                                    CLRXFLAG                              
037707,000434: 
037708,000435: 07,2661                                           BANK     7                                     
037709,000436: 27,2000                                           SETLOC   ASENT1                                
037710,000437: 27,2000                                           BANK                                           
037711,000438: 27,3312                                           COUNT*   $$/ASENT                              
037712,000439: 

Page 843

037714,000441: 27,3312  27,3312               SETXFLAG           =        CHECKYAW                              
037715,000442: 
037716,000443: 27,3312           77614        CHECKYAW           SET                                            
037717,000444: 27,3313           06466                                    XOVINFLG                              #  PROHIBIT X-AXIS OVERRIDE
037718,000445: 27,3314           74345                           DLOAD    VXSC                                  
037719,000446: 27,3315           02346                                    ATY                                   
037720,000447: 27,3316           02274                                    LAXIS                                 
037721,000448: 27,3317           74325                           PDDL     VXSC                                  
037722,000449: 27,3320           02352                                    ATP                                   
037723,000450: 27,3321           02575                                    ZAXIS1                                
037724,000451: 27,3322           53455                           VAD      UNIT                                  
037725,000452: 27,3323           45325                           PDDL     DSU                                   
037726,000453: 27,3324           03474                                    RDOT                                  
037727,000454: 27,3325           17332                                    40FPS                                 
037728,000455: 27,3326           52044                           BPL      GOTO                                  
037729,000456: 27,3327           60776                                    EXITVR1                               
037730,000457: 27,3330           71536                                    KEEPVR                                
037731,000458: 
037732,000459: 27,3331           00017 23305  40FPS              2DEC     0.12192    B-7                        
037733,000460: 
037734,000461: 34,3536                                           BANK     34                                    
037735,000462: 34,2000                                           SETLOC   ASENT8                                
037736,000463: 34,2000                                           BANK                                           
037737,000464: 34,3536                                           COUNT*   $$/ASENT                              
037738,000465: 
037739,000466: 34,3536           45575        KEEPVR             VLOAD    STADR                                 #  RECALL LOSVEC FROM PUSHLIST
037740,000467: 34,3537           74516                           STORE    UNWC/2                                
037741,000468: 34,3540           77775        KEEPVR1            VLOAD                                          
037742,000469: 34,3541           03535                                    UNIT/R/                               
037743,000470: 34,3542           37253                           STCALL   UNFC/2                                
037744,000471: 34,3543           60720                                    ASCTERM                               
037745,000472: 
037746,000473: 
037747,000474: 14,2347                                           BANK     14                                    
037748,000475: 14,2000                                           SETLOC   ASENT4                                
037749,000476: 14,2000                                           BANK                                           
037750,000477: 14,2347                                           COUNT*   $$/ASENT                              
037751,000478: 
037752,000479: 14,2347           77634        ENGOFF             RTB                                            
037753,000480: 14,2350           21555                                    LOADTIME                              
037754,000481: 14,2351           43225                           DSU      DAD                                   
037755,000482: 14,2352           01234                                    PIPTIME                               
037756,000483: 14,2353           03454                                    TTOGO                                 
037757,000484: 14,2354           77476                           DCOMP    EXIT                                  
037758,000485: 14,2355           07271                           TC       TPAGREE                               #  FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
037759,000486: 14,2356           35016                           CAF      EBANK7                                
037760,000487: 14,2357           54003                           TS       EBANK                                 
037761,000488: 14,2360  E7,1514                                  EBANK=   TGO                                   
037762,000489: 14,2360           00004                           INHINT                                         
037763,000490: 14,2361           10155                           CCS      MPAC       +1                         

Page 844

037765,000492: 14,2362           12365                           TCF      +3                                    #  C(A) = DT - 1 BIT
037766,000493: 14,2363           12365                           TCF      +2                                    #  C(A) = 0
037767,000494: 14,2364           34755                           CAF      ZERO                                  #  C(A) = 0
037768,000495: 14,2365           64753                           AD       BIT1                                  #  C(A) = 1 BIT OR DT.
037769,000496: 14,2366           55644                           TS       ENGOFFDT                              
037770,000497: 14,2367           05204                           TC       TWIDDLE                               
037771,000498: 14,2370           02402                           ADRES    ENGOFF1                               
037772,000499: 14,2371           05364                           TC       PHASCHNG                              
037773,000500: 14,2372           47014                           OCT      47014                                 
037774,000501: 14,2373           76133                           -GENADR  ENGOFFDT                              
037775,000502: 14,2374  E7,1514                                  EBANK=   TGO                                   
037776,000503: 14,2374           02402 30067                     2CADR    ENGOFF1                               
037777,000504: 
037778,000505: 14,2376           06051                           TC       INTPRET                               
037779,000506: 14,2377           52014                           SET      GOTO                                  
037780,000507: 14,2400           03470                                    IDLEFLAG                              #  DISABLE DELTA-V MONITOR
037781,000508: 14,2401           60446                                    T2TEST                                
037782,000509: 
037783,000510: 14,2402           04674        ENGOFF1            TC       IBNKCALL                              #  SHUT OFF THE ENGINE.
037784,000511: 14,2403           75551                           CADR     ENGINOF2                              
037785,000512: 
037786,000513: 14,2404           35027                           CAF      PRIO17                                #  SET UP A JOB FOR THE ASCENT GUIDANCE
037787,000514: 14,2405           05072                           TC       NOVAC                                 
037788,000515: 14,2406  E7,1455                                  EBANK=   WHICH                                 
037789,000516: 14,2406           02416 30067                     2CADR    CUTOFF                                
037790,000517: 
037791,000518: 14,2410           05364                           TC       PHASCHNG                              
037792,000519: 14,2411           07024                           OCT      07024                                 
037793,000520: 14,2412           17000                           OCT      17000                                 
037794,000521: 14,2413  E7,1514                                  EBANK=   TGO                                   
037795,000522: 14,2413           02416 30067                     2CADR    CUTOFF                                
037796,000523: 
037797,000524: 14,2415           15272                           TCF      TASKOVER                              
037798,000525: 
037799,000526: 14,2416           05515        CUTOFF             TC       UPFLAG                                #  SET FLRCS FLAG.
037800,000527: 14,2417           00214                           ADRES    FLRCS                                 
037801,000528: 
037802,000529: 14,2420           32437                 -5        CAF      V16N63                                
037803,000530: 14,2421           04616                           TC       BANKCALL                              
037804,000531: 14,2422           20477                           CADR     GOFLASH                               
037805,000532: 14,2423           12426                           TCF      +3                                    
037806,000533: 14,2424           12430                           TCF      CUTOFF1                               
037807,000534: 14,2425           12420                           TCF      -5                                    
037808,000535: 
037809,000536: 14,2426           04635                 +3        TC       POSTJUMP                              
037810,000537: 14,2427           71554                           CADR     TERMASC                               
037811,000538: 
037812,000539: 14,2430           00004        CUTOFF1            INHINT                                         
037813,000540: 14,2431           04674                           TC       IBNKCALL                              #  ZERO ATTITUDE ERRORS BEFORE REDUCING DB.
037814,000541: 14,2432           40154                           CADR     ZATTEROR                              

Page 845

037816,000543: 14,2433           04674                           TC       IBNKCALL                              
037817,000544: 14,2434           40141                           CADR     SETMINDB                              
037818,000545: 14,2435           04635                           TC       POSTJUMP                              
037819,000546: 14,2436           71544                           CADR     CUTOFF2                               
037820,000547: 
037821,000548: 14,2437           04077        V16N63             VN       1663                                  
037822,000549: 34,3544                                           BANK     34                                    
037823,000550: 34,2000                                           SETLOC   ASENT8                                
037824,000551: 34,2000                                           BANK                                           
037825,000552: 34,3544                                           COUNT*   $$/ASENT                              
037826,000553: 
037827,000554: 34,3544           05364        CUTOFF2            TC       PHASCHNG                              
037828,000555: 34,3545           04024                           OCT      04024                                 
037829,000556: 
037830,000557: 34,3546           33564                           CAF      V16N85C                               
037831,000558: 34,3547           04616                           TC       BANKCALL                              
037832,000559: 34,3550           20477                           CADR     GOFLASH                               
037833,000560: 34,3551           13554                           TCF      TERMASC                               
037834,000561: 34,3552           13554                           TCF      +2                                    #  PROCEED
037835,000562: 34,3553           13544                           TCF      CUTOFF2                               
037836,000563: 
037837,000564: 34,3554           05364        TERMASC            TC       PHASCHNG                              
037838,000565: 34,3555           04024                           OCT      04024                                 
037839,000566: 
037840,000567: 34,3556           00004                           INHINT                                         #  RESTORE DEADBAND DESIRED BY ASTRONAUT.
037841,000568: 34,3557           04674                           TC       IBNKCALL                              
037842,000569: 34,3560           40115                           CADR     RESTORDB                              
037843,000570: 34,3561           05527                           TC       DOWNFLAG                              #  DISALLOW ABORTS AT THIS TIME.
037844,000571: 34,3562           00215                           ADRES    LETABORT                              
037845,000572: 34,3563           16001                           TCF      GOTOPOOH                              
037846,000573: 
037847,000574: 34,3564           04125        V16N85C            VN       1685                                  
037848,000575: 
037849,000576: 34,3565           77745        RPCOMP1            DLOAD                                          #  FLRCS = 1 (TRIM MODE)
037850,000577: 34,3566           06520                                    HI6ZEROS                              
037851,000578: 34,3567           02336                           STORE    PCONS                                 #  SET PCONS = PRATE = 0 SO THAT
037852,000579: 34,3570           02342                           STORE    PRATE                                 #      RP = R + RDOT TGO
037853,000580: 34,3571           41345        RPCOMP2            DLOAD    DMP                                   #  FLRCS = 0 (GUIDANCE MODE)
037854,000581: 34,3572           02342                                    PRATE                                 #  LEAVE PCONS AND PRATE ALONE SO THAT
037855,000582: 34,3573           03515                                    TGO                                   #      RP = R + RDOT TGO + (PCONS*TGO**2)/
037856,000583: 34,3574           43205                           DMP      DAD                                   #      (2 TBUP) + (PRATE*TGO**3)/(6 TBUP)
037857,000584: 34,3575           33653                                    THIRD                                 
037858,000585: 34,3576           02336                                    PCONS                                 
037859,000586: 34,3577           41205                           DMP      DMP                                   
037860,000587: 34,3600           03515                                    TGO                                   
037861,000588: 34,3601           03515                                    TGO                                   
037862,000589: 34,3602           72471                           DDV      SL1                                   
037863,000590: 34,3603           02262                                    TBUP                                  
037864,000591: 34,3604           65215                           DAD      PDDL                                  
037865,000592: 34,3605           02272                                    /R/MAG                                

Page 846

037867,000594: 34,3606           03474                                    RDOT                                  
037868,000595: 34,3607           43205                           DMP      DAD                                   
037869,000596: 34,3610           03515                                    TGO                                   
037870,000597: 34,3611           77626                           STADR                                          
037871,000598: 34,3612           75212                           STORE    RP                                    
037872,000599: 34,3613           77616                           RVQ                                            
037873,000600: 
037874,000601: 34,3614           45020        ZDOTDCMP           STQ      CALL                                  #  COMPUTE CENTRAL ANGLE                (0)
037875,000602: 34,3615           02620                                    ASCSAVE                               
037876,000603: 34,3616           71644                                    THETCOMP                              
037877,000604: 34,3617           43205                           DMP      DAD                                   #  CENTRAL ANGLE IN MPAC
037878,000605: 34,3620           02563                                    KPARM                                 
037879,000606: 34,3621           02561                                    JPARM                                 
037880,000607: 34,3622           41425                           DSU      PUSH                                  #  RA IN MPAC AND IN PUSHLIST          (2)
037881,000608: 34,3623           02565                                    RP                                    
037882,000609: 34,3624           51025                           DSU      BPL                                   
037883,000610: 34,3625           02547                                    RAMIN                                 
037884,000611: 34,3626           71631                                    +3                                    
037885,000612: 34,3627           65345                           DLOAD    PDDL                                  #  RA < RAMIN.  SET RA = RAMIN.        (2)
037886,000613: 34,3630           02547                                    RAMIN                                 
037887,000614: 34,3631           41345                 +3        DLOAD    DMP                                   
037888,000615: 34,3632           00001                                    0D                                    
037889,000616: 34,3633           16025                                    MUM(-37)                              
037890,000617: 34,3634           77725                           PDDL                                           
037891,000618: 34,3635           41215                           DAD      DMP                                   
037892,000619: 34,3636           02565                                    RP                                    
037893,000620: 34,3637           02565                                    RP                                    
037894,000621: 34,3640           75465                           BDDV     SQRT                                  #                                      (0)
037895,000622: 34,3641           77626                           STADR                                          
037896,000623: 34,3642           41507                           STCALL   ZDOTD                                 #  UPDATE ZDOTD FOR GUIDANCE AND DOWNLINK.
037897,000624: 34,3643           02620                                    ASCSAVE                               
037898,000625: 
037899,000626: 34,3644           53575        THETCOMP           VLOAD    UNIT                                  
037900,000627: 34,3645           03517                                    R                                     
037901,000628: 34,3646           53515                           PDVL     UNIT                                  #                                      (6)
037902,000629: 34,3647           01716                                    R(CSM)                                
037903,000630: 34,3650           47206                           PUSH     VXV                                   #                                      (12)
037904,000631: 34,3651           00001                                    0D                                    
037905,000632: 34,3652           77641                           DOT                                            
037906,000633: 34,3653           02316                                    WM                                    
037907,000634: 34,3654           24037                           STOVL    30D                                   #                                      (6)
037908,000635: 34,3655           72441                           DOT      SL1                                   #                                      (0)
037909,000636: 34,3656           75326                           ARCCOS   SIGN                                  
037910,000637: 34,3657           00037                                    30D                                   
037911,000638: 34,3660           77616                           RVQ                                            
037912,000639: 
037913,000640: 27,3333                                           BANK     27                                    
037914,000641: 27,2000                                           SETLOC   ASENT1                                
037915,000642: 27,2000                                           BANK                                           
037916,000643: 27,3333                                           COUNT*   $$/ASENT                              
037917,000644: 

Page 847

037919,000646: 27,3333           50375        YCOMP              VLOAD    DOT                                   
037920,000647: 27,3334           03535                                    UNIT/R/                               
037921,000648: 27,3335           02567                                    QAXIS                                 
037922,000649: 27,3336           41312                           SL2      DMP                                   
037923,000650: 27,3337           03631                                    RCO                                   
037924,000651: 27,3340           02326                           STORE    Y                                     
037925,000652: 27,3341           77616                           RVQ                                            
037926,000653: 
037927,000654: 
037928,000655: 30,3001                                           BANK     30                                    
037929,000656: 30,2000                                           SETLOC   ASENT                                 
037930,000657: 30,2000                                           BANK                                           
037931,000658: 

Page 848

037933,000660:                                                                                                  #  ASCENT GUIDANCE CONSTANTS
037934,000661: 
037935,000662: 30,3001  33,3746               100CS              EQUALS   2SEC(18)                              
037936,000663: 30,3001  30,3003               T2A                EQUALS   2SEC(17)                              
037937,000664: 30,3001           00062 00000  4SEC(17)           2DEC     400        B-17                       
037938,000665: 
037939,000666: 30,3003           00031 00000  2SEC(17)           2DEC     200        B-17                       
037940,000667: 
037941,000668: 30,3005           00175 00000  T3                 2DEC     1000       B-17                       
037942,000669: 
037943,000670: 30,3007           00045 20000  6SEC(18)           2DEC     600        B-18                       
037944,000671: 
037945,000672: 30,3011           14400 00000  2SEC(9)            2DEC     200        B-9                        
037946,000673: 
037947,000674: 30,3013           01536        V06N94             VN       0694                                  
037948,000675: 30,3014           01514        V06N76             VN       0676                                  
037949,000676: 30,3015           01441        V06N33A            VN       0633                                  
037950,000677: 
037951,000678: 33,2031                                           BANK     33                                    
037952,000679: 33,2000                                           SETLOC   ASENT6                                
037953,000680: 33,2000                                           BANK                                           
037954,000681: 33,2031                                           COUNT*   $$/ASENT                              
037955,000682: 
037956,000683: 33,2031           75751 41775  PRLIMIT            2DEC     -.0639                                #  (B/TBUP)MIN=-.1FT.SEC(-3)
037957,000684: 
037958,000685: 33,2033           00022 07212  MINABDV            2DEC     .0356      B-5                        #  10 PERCENT BIGGER THAN GRAVITY
037959,000686: 
037960,000687: 33,2035           00007 16100  25KFT              2DEC     7620       B-24                       
037961,000688: 

Page 849

037963,000690:                                                                                                  #  THE LOGARITHM SUBROUTINE
037964,000691: 
037965,000692: 24,3644                                           BANK     24                                    
037966,000693: 30,2000                                           SETLOC   FLOGSUB                               
037967,000694: 30,2000                                           BANK                                           
037968,000695: 
037969,000696:                                                                                                  #  INPUT ..... X IN MPAC
037970,000697:                                                                                                  #  OUTPUT ..... -LOG(X) IN MPAC
037971,000698: 
037972,000699: 30,3016           44301        LOGSUB             NORM     BDSU                                  
037973,000700: 30,3017           00163                                    MPAC       +6                         
037974,000701: 30,3020           17753                                    NEARONE                               
037975,000702: 30,3021           77776                           EXIT                                           
037976,000703: 30,3022           07234                           TC       POLY                                  
037977,000704: 30,3023           00006                           DEC      6          B-14                       
037978,000705: 30,3024           00000 00002                     2DEC     .0000000060                            
037979,000706: 
037980,000707: 30,3026           76777 77175                     2DEC     -.0312514377                            
037981,000708: 
037982,000709: 30,3030           77400 75416                     2DEC     -.0155686771                            
037983,000710: 
037984,000711: 30,3032           77507 65515                     2DEC     -.0112502068                            
037985,000712: 
037986,000713: 30,3034           77741 63547                     2DEC     -.0018545108                            
037987,000714: 
037988,000715: 30,3036           77052 55373                     2DEC     -.0286607906                            
037989,000716: 
037990,000717: 30,3040           01167 30361                     2DEC     .0385598563                            
037991,000718: 
037992,000719: 30,3042           76520 75267                     2DEC     -.0419361902                            
037993,000720: 
037994,000721: 30,3044           34755                           CAF      ZERO                                  
037995,000722: 30,3045           54156                           TS       MPAC       +2                         
037996,000723: 30,3046           00006                           EXTEND                                         
037997,000724: 30,3047           33063                           DCA      CLOG2/32                              
037998,000725: 30,3050           52155                           DXCH     MPAC                                  
037999,000726: 30,3051           52132                           DXCH     BUF        +1                         
038000,000727: 30,3052           30162                           CA       MPAC       +6                         
038001,000728: 30,3053           07321                           TC       SHORTMP                               
038002,000729: 30,3054           52156                           DXCH     MPAC       +1                         
038003,000730: 30,3055           52155                           DXCH     MPAC                                  
038004,000731: 30,3056           52132                           DXCH     BUF        +1                         
038005,000732: 30,3057           20155                           DAS      MPAC                                  
038006,000733: 30,3060           06051                           TC       INTPRET                               
038007,000734: 30,3061           43476                           DCOMP    RVQ                                   
038008,000735: 
038009,000736: 30,3062           00542 34414  CLOG2/32           2DEC     .0216608494                            
038010,000737: 

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