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 Peter McDermott. 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:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

038595,000002:                                                                                                  ## Copyright:   Public domain.
038596,000003:                                                                                                  ## Filename:    ASCENT_STEERING.agc
038597,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
038598,000005:                                                                                                  ##              It is part of an early development version of the software
038599,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
038600,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
038601,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
038602,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
038603,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
038604,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
038605,000012:                                                                                                  ##              that the code format has been changed to conform to the
038606,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
038607,000014:                                                                                                  ##              original YUL assembler.
038608,000015:                                                                                                  ## Reference:   pp. 853-861
038609,000016:                                                                                                  ## Assembler:   yaYUL
038610,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
038611,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038612,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
038613,000020:                                                                                                  ##              2017-06-11 HG   Transcribed
038614,000021:                                                                                                  ##              2017-06-15 HG   Fix value T2 2DEC 200 B-17 -> 2DEC 200
038615,000022:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
038616,000023:                                                                                                  ##                              octopus/ProoferComments.
038617,000024: 

Page 853

038619,000026:                                                                                                  #     PROGRAM NAME--ASCENT        BY--BERMAN
038620,000027:                                                                                                  #      ASCENT IS AN E-GUIDANCE SCHEME WHICH PRODUCES A DESIRED UNIT THRUST VECTOR DURING ASCENT BURNS, WITH THE
038621,000028:                                                                                                  #  CURRENT STATE AND ESTIMATED TGO,AND ESTIMATED VCO (VELOCITIES IN ASCENT ARE DEFINED IN LOCAL VERTICAL SYSTEMS),
038622,000029:                                                                                                  #  RCO IS ESTIMATED. THIS ENABLES THE LAMBERT SUBROUTINE TO SOLVE FOR A BETTER VCO. THIS AND V ALLOW US TO IMPROVE
038623,000030:                                                                                                  #  THE ESTIMATE OF TGO. FINALLY, TGO AND THE DESIRED CHANGES IN R AND V ARE USED TO COMPUTE UT.
038624,000031:                                                                                                  #     MODING SWITCHES
038625,000032:                                                                                                  #        HC--IF 0, ABVAL(RCO) IS CONSTRAINED TO A SPECIFIED VALUE-- IF 1, ABVAL(RCO) IS NOT CONSTRAINED, BUT IS
038626,000033:                                                                                                  #            ESTIMATED.
038627,000034: 
038628,000035:                                                                                                  #        PASS-- IF 0, USE LAMBERT TO UPDATE VCO-- IF 1, SKIP LAMBERT. PASS IS INVERTED EVERY ENTRY TO ASCENT, THUS
038629,000036:                                                                                                  #            LAMBERT IS USED EVERY OTHER ENTRY.
038630,000037:                                                                                                  #        DIRECT-- IF 0, SPECIFIED INJECTION CONDITIONS ARE USED AND PASS IS SET PERMANENTLY TO 1 AFTER THE FIRST
038631,000038:                                                                                                  #            ENTRY-- IF 1, LAMBERT IS USED FOR TARGETING UNDER CONTROL OF            PASS.
038632,000039: 
038633,000040:                                                                                                  #  CALLING SEQUENCE
038634,000041:                                                                                                  #     ASCENT IS ENTERED IN INTERPRETIVE BY
038635,000042:                                                                                                  #                                                   GOTO
038636,000043:                                                                                                  #                                                          ASCENT
038637,000044: 
038638,000045:                                                                                                  #  NORMAL EXIT
038639,000046:                                                                                                  #     NORMAL EXIT FROM ASCENT IS BY
038640,000047:                                                                                                  #                                                   GOTO
038641,000048:                                                                                                  #                                                          ASCRET
038642,000049: 
038643,000050:                                                                                                  #  WHERE THE PREAPS PROGRAM PUTS A RETURN ADDRESS IN ASCRET FOR THE FIRST (PRE-IGNITION) ENTRY, AND THEN STORES
038644,000051:                                                                                                  #  FINDCDUD IN ASCRET SO THAT SUBSEQUENT EXITS WILL BE TO FINDCDUD.
038645,000052: 
038646,000053:                                                                                                  #  DEBRIS
038647,000054:                                                                                                  #     USES 118 ERASABLE LOCATIONS CURRENTLY ASSIGNED TO  AMEMORY  THRU  AMEMORY +117. (SEE PG. 32 OF SUNBURST FOR
038648,000055:                                                                                                  #  VARIABLE NAMES.
038649,000056: 
038650,000057:                                                                                                  #  RESERVED LOCATIONS
038651,000058: 
038652,000059:                                                                                                  #     THE FOLLOWING 44 LOCATIONS MUST NOT BE DISTURBED DURING MP13 OR MP4 -- PAXIS1,QAXIS,SAXIS,ATMEAS,RDOTD,YDOTD,
038653,000060:                                                                                                  #  ZDOTD,RCO,TGO,PCONS,PRATE,TINT,TREF,YCONS,ASCRET. THE REMAINING 74 LOCATIONS MAY BE USED BETWEEN EXIT FROM
038654,000061:                                                                                                  #  ASCENT AND RE-ENTRY INTO THE THRUST MAGNITUDE FILTER, ATMAG.
038655,000062: 32,2120                                           BANK     32                                    
038656,000063: 32,2120  E4,1452                                  EBANK=   TCO                                   
038657,000064: 32,2120           70375        ASCENT             VLOAD    V/SC                                  #  FORM GRAVITY SCALED 2(10)M/CS/CS FROM
038658,000065: 32,2121           01065                                    GDT1/2                                #  GDT1/2 SCALED 2(-7)M/CS
038659,000066: 32,2122           24653                                    2SEC(18)                              
038660,000067: 32,2123           50360                           AXC,1    DOT                                   #  LOAD X1 WITH -5   (OLD NSHIFT CONTENTS)
038661,000068: 32,2124           00005                                    5                                     
038662,000069: 
038663,000070: 32,2125           01033                                    UNITR                                 #  G,URX2(9)=GRX2(9)
038664,000071: 32,2126           47315                           PDVL     VXV                                   #  STORE IN PDL(0)                        2
038665,000072: 32,2127           01033                                    UNITR                                 #  LOAD UNITR*2(-1)
038666,000073: 32,2130           01017                                    VN                                    #  UR*2(-1) X VN*2(-7)=H/R*2(-8)
038667,000074: 32,2131           53406                           PUSH     UNIT                                  #  STORE H/R IN PDL (2), GET UH*2(-1)     8
038668,000075: 32,2132           25725                           STOVL    UNNORM                                #  STORE UH IN UNNORM, LOAD H/R           2
038669,000076: 32,2133           56236                           VSQ      DDV                                   #  H(2)/R(2)*2(-16)
038670,000077: 32,2134           01047                                    RMAG                                  #  H(2)/R(3)*2(9)
038671,000078: 32,2135           43352                           SL1      DAD                                   
038672,000079: 

Page 854

038674,000081: 32,2136           77626                           STADR                                          
038675,000082: 
038676,000083: 32,2137           51666                           STOVL    GEFF                                  #  STORE GEFFX2(9) (POS UP)
038677,000084: 32,2140           01033                                    UNITR                                 #  LOAD URX2(-1)
038678,000085: 32,2141           53435                           VXV      UNIT                                  #  URX2(-1)XQX2(-1)=ZAXISXSIN
038679,000086: 32,2142           02007                                    QAXIS                                 #  ZAXISX2(-1)
038680,000087: 32,2143           02077                           STORE    ZAXIS                                 #  STORE ZAXIS
038681,000088: 32,2144           57435                           VXV      VCOMP                                 #  ZAXISX2(-1)XQAXISX2(-1)=-MAXISX2(-2)
038682,000089: 32,2145           02007                                    QAXIS                                 #  MAXISX2(-2)
038683,000090: 32,2146           63372                           VSL1     PDVL                                  #  MAXISX2(-1) IN PDL(0)                  6
038684,000091: 32,2147           01033                                    UNITR                                 #  LOAD URX2(-1)
038685,000092: 32,2150           72441                           DOT      SL1                                   #  URX2(-1).VX2(-7)=VRX2(-8)
038686,000093: 32,2151           01017                                    VN                                    #  SHIFT TO VRX2(-7)
038687,000094: 32,2152           26147                           STOVL    RDOT                                  #  STORE IN RDOT
038688,000095: 
038689,000096: 32,2153           02077                                    ZAXIS                                 #  LOAD ZAXISX2(-1)
038690,000097: 32,2154           72441                           DOT      SL1                                   #  ZAXISX2(-1).VX2(-7)=ZDOTX2(-8)        (6
038691,000098: 32,2155           01017                                    VN                                    #  SHIFT TO ZDOTX2(-7)
038692,000099: 32,2156           26105                           STOVL    ZDOT                                  #  STORE IN ZDOT
038693,000100: 32,2157           02077                                    ZAXIS                                 #  LOAD ZAXISX2(-1)
038694,000101: 32,2160           76435                           VXV      VSL1                                  #  Z*2(-1)XUR*2(-1)=LAXIS*2(-2)
038695,000102: 32,2161           01033                                    UNITR                                 #  SHIFT TO LAXIS*2(-1)
038696,000103: 32,2162           02071                           STORE    LAXIS                                 #  STORE
038697,000104: 32,2163           72441                           DOT      SL1                                   #  LAXIS.VN=YDOT*2(-8)
038698,000105: 32,2164           01017                                    VN                                    #  SHIFT TO YDOT*2(-7)
038699,000106: 
038700,000107: 32,2165           26067                           STOVL    YDOT                                  #  STORE IN YDOT
038701,000108: 32,2166           00001                                    00D                                   #  LOAD MAXISX2(-1)
038702,000109: 32,2167           62441                           DOT      SL2                                   #  MAXISX2(-1).SX2(-1)=RZX2(-2)
038703,000110: 32,2170           02015                                    SAXIS                                 #  SHIFT TO RZ
038704,000111: 32,2171           63406                           PUSH     DSQ                                   #  STORE RZ IN PDL(6)                     8
038705,000112: 32,2172           41206                           PUSH     DMP                                   #  STORE RZ(2) IN PDL(8)                 10
038706,000113: 32,2173           24651                                    DP3/80                                #  3/8ORZ(2)
038707,000114: 32,2174           41215                           DAD      DMP                                   #  1/12+3/8ORZ(2)
038708,000115: 32,2175           24661                                    1/12TH                                #  RZ(2)/12+3/8ORZ(4)                     8
038709,000116: 32,2176           41215                           DAD      DMP                                   #  1/2+RZ(2)/12+3/8ORZ(4)
038710,000117: 32,2177           26515                                    DP.5                                  #  RZ(...)                                6
038711,000118: 32,2200           72405                           DMP      SL1                                   #  ZX2(N-31)
038712,000119: 
038713,000120: 32,2201           02375                                    RCO                                   #  SHIFT TO ZX2(N-30)
038714,000121: 32,2202           50315                           PDVL     DOT                                   #  STORE Z IN PDL(6)                      8
038715,000122: 32,2203           01033                                    UNITR                                 #  LOAD URX2(-1)
038716,000123: 32,2204           02007                                    QAXIS                                 #  URX2(-1).QX2(-1)=RYX2(-2)
038717,000124: 32,2205           02151                           STORE    RY                                    #  STORE IN RY
038718,000125: 32,2206           41316                           DSQ      DMP                                   #  RY(2)X2(-4)                           (8
038719,000126: 32,2207           24665                                    DP2/3H                                #  RY(2)/24
038720,000127: 32,2210           41215                           DAD      DMP                                   
038721,000128: 32,2211           24663                                    DP.25                                 #  1/4+RY(2)/24
038722,000129: 32,2212           02151                                    RY                                    #  RY(1+RY(2)/6)/16
038723,000130: 
038724,000131: 32,2213           42405                           DMP      SL4                                   #  RCORY(1+RY(2)/6)X2(N-34)=YX2(N-34)
038725,000132: 32,2214           02375                                    RCO                                   #  YX2(N-30)
038726,000133: 32,2215           45325                           PDDL     DSU                                   #  STORE IN PDL(8)                       10
038727,000134: 32,2216           02350                                    TGO                                   #  LOAD TGO*2(-17)
038728,000135: 32,2217           24667                                    DTASC                                 #  (TGO-DT)*2(-17)
038729,000136: 

Page 855

038731,000138: 32,2220           02350                           STORE    TGO                                   #  REPLACE IN TGO
038732,000139: 32,2221           71214                           BOFF     DLOAD                                 #  IF HC=0, GO TO HOLDR
038733,000140: 32,2222           01756                                    HC                                    
038734,000141: 32,2223           64233                                    HOLDR                                 
038735,000142: 32,2224           02147                                    RDOT                                  #  LOAD RDOT*2(-7)
038736,000143: 32,2225           41215                           DAD      DMP                                   #  (RDOT+RDOTD)*2(-7)
038737,000144: 
038738,000145: 32,2226           02041                                    RDOTD                                 
038739,000146: 32,2227           02350                                    TGO                                   #  TGO(RDOT+RDOTD)*2(-24)
038740,000147: 32,2230           43342                           SR1      DAD                                   #  SHIFT TO RGO*2(-24)
038741,000148: 32,2231           01047                                    RMAG                                  #  FORM RCO*2(-24)
038742,000149: 32,2232           02375                           STORE    RCO                                   #  STORE IN RCO
038743,000150: 
038744,000151: 32,2233           43014        HOLDR              BON      BON                                   #  IF DIRECT=1, GO TO LAMPREP
038745,000152: 32,2234           01714                                    DIRECT                                
038746,000153: 32,2235           64250                                    LAMPREP                               
038747,000154: 32,2236           01715                                    PASS                                  #  IF PASS=1, GO TO GAIN+1
038748,000155: 32,2237           64367                                    GAIN       +1                         
038749,000156: 32,2240           71214                           SET      DLOAD                                 #  IF PASS=0, SET TO 1
038750,000157: 
038751,000158: 32,2241           01475                                    PASS                                  
038752,000159: 32,2242           24645                                    VINJ                                  #  LOAD VINJ
038753,000160: 32,2243           16045                           STODL    ZDOTD                                 #  ZDOTD=VINJ
038754,000161: 32,2244           26517                                    DP0                                   #  CLEAR MPAC
038755,000162: 32,2245           02041                           STORE    RDOTD                                 #  RDOTD=0
038756,000163: 32,2246           77650                           GOTO                                           #  GO TO GAIN WITH YDOTD=0 IN MPAC
038757,000164: 32,2247           64366                                    GAIN                                  
038758,000165: 32,2250           71214        LAMPREP            BOFF     DLOAD                                 #  IF LAMB NOT DONE, GO TO GAIN+1
038759,000166: 32,2251           02341                                    DONESW                                
038760,000167: 32,2252           64367                                    GAIN       +1                         
038761,000168: 
038762,000169: 32,2253           02067                                    YDOT                                  #  LOAD YDOT*2(-7)
038763,000170: 32,2254           65205                           DMP      PDDL                                  #  YDOT TGO*2(-24)
038764,000171: 32,2255           02350                                    TGO                                   #  PUSH DOWN                             12
038765,000172: 32,2256           02043                                    YDOTD                                 #  LOAD YDOTD*2(-7)
038766,000173: 32,2257           43205                           DMP      DAD                                   #  YDOTD TGO*2(-24)
038767,000174: 32,2260           02350                                    TGO                                   #  TGO(YDOT+YDOTD)*2(-24)                10
038768,000175: 32,2261           43257                           SL*      DAD                                   #  YGO/2*2(N-30)
038769,000176: 32,2262           20172                                    0          -7,1                       #                                         8
038770,000177: 32,2263           77626                           STADR                                          #  YCO*2(N-30)
038771,000178: 32,2264           63736                           STODL    32D                                   #  STORE IN PDL(32)
038772,000179: 32,2265           02105                                    ZDOT                                  #  LOAD ZDOTX2(-7)
038773,000180: 32,2266           41215                           DAD      DMP                                   #  (ZDOT+ZDOTD)X2(-7)
038774,000181: 
038775,000182: 32,2267           02045                                    ZDOTD                                 #  TGO(ZDOT+ZDOTD)X2(-24)
038776,000183: 32,2270           02350                                    TGO                                   
038777,000184: 32,2271           43257                           SL*      DAD                                   #  SHIFT TO TGO(ZDOT+ZDOTD)X2(N-34)
038778,000185: 32,2272           20167                                    0          -10D,1                     #  ZCOX2(N-33)                            6
038779,000186: 32,2273           56271                           DDV      DDV                                   #  ZRADCO/8
038780,000187: 32,2274           02375                                    RCO                                   
038781,000188: 32,2275           05600                                    PI/4                                  #  ZRADCO/2PI
038782,000189: 32,2276           71406                           PUSH     COS                                   #  STORE IN PDL(6),TAKE 1/2COS            8
038783,000190: 32,2277           73525                           PDDL     SIN                                   #  EXCH.ZRADCO/2PI WITH .5COS,TAKE .5SIN  8
038784,000191: 32,2300           74206                           PUSH     VXSC                                  #  STORE 1/2SIN IN PDL(8)                10
038785,000192: 

Page 856

038787,000194: 32,2301           02015                                    SAXIS                                 #  S/4SIN
038788,000195: 32,2302           74325                           PDDL     VXSC                                  #  STORE IN PDL(10),LOAD1/2COS           16
038789,000196: 
038790,000197: 32,2303           00007                                    06D                                   #  P/4COS
038791,000198: 32,2304           02001                                    PAXIS1                                
038792,000199: 32,2305           77655                           VAD                                            #  S/4SIN+P/4COS,                        10
038793,000200: 32,2306           77725                           PDDL                                           #  STORE IN PDL(10)                      16
038794,000201: 32,2307           00041                                    32D                                   #  LOAD YCOX2(N-30)
038795,000202: 32,2310           65316                           DSQ      PDDL                                  #  YCO(2)X2(2N-60),STORE IN PDL(16)      18
038796,000203: 32,2311           02375                                    RCO                                   #  LOAD RCOX2(N-30)
038797,000204: 32,2312           45316                           DSQ      DSU                                   #  (RCO(2)-YCO(2))X2(2N-60)              16
038798,000205: 32,2313           74366                           SQRT     VXSC                                  #  (RCO(2)-YCO(2))(1/2)X2(N-30)XPDL(10)  10
038799,000206: 32,2314           65372                           VSL1     PDDL                                  #  SHIFT TO ROOT*(SSIN+PCOS)*2(N-31)
038800,000207: 
038801,000208: 32,2315           00041                                    32D                                   #  STORE PS TERMS IN PDL(10),LOAD YCO    16
038802,000209: 32,2316           53361                           VXSC     VAD                                   #  QYCOX2(N-31)
038803,000210: 32,2317           02007                                    QAXIS                                 #  ADD PS TERMS,GET RCOX2(N-31)          10
038804,000211: 32,2320           77772                           VSL1                                           #  SHIFT TO RCOV*2(N-30)
038805,000212: 32,2321           02141                           STORE    RCOV                                  #  STORE CUTOFF POSITION
038806,000213: 32,2322           77656                           UNIT                                           #  GET URCO*2(-1)
038807,000214: 32,2323           26153                           STOVL    URCO                                  #  STORE URCO*2(-1)
038808,000215: 32,2324           02001                                    PAXIS1                                
038809,000216: 32,2325           77761                           VXSC                                           #  PSINX2(-2)                             8
038810,000217: 32,2326           77715                           PDVL                                           #  STORE IN PDL(8)                       10
038811,000218: 32,2327           02015                                    SAXIS                                 #  LOAD SX2(-1)
038812,000219: 32,2330           52361                           VXSC     VSU                                   #  SCOS*2(-2)
038813,000220: 
038814,000221: 32,2331           00007                                    06D                                   #  (SCOS-PSIN)*2(-2)=H1*2(-2)
038815,000222: 32,2332           40372                           VSL1     SETPD                                 #  SHIFT TO H1X2(-1)
038816,000223: 32,2333           00001                                    00D                                   #  RESET PDC TO 0                         0
038817,000224: 32,2334           16133                           STODL    H1                                    #  STORE H1
038818,000225: 32,2335           02373                                    TINT                                  #  LOAD TINT*2(-28)
038819,000226: 32,2336           77625                           DSU                                            
038820,000227: 32,2337           02053                                    TCO                                   
038821,000228: 32,2340           02167                           STORE    TFL                                   #  TIME (+28) FOR LAMBERT
038822,000229: 32,2341           77776                           EXIT                                           
038823,000230: 32,2342           31451                           CA       LAMPRIO                               #  SET PRIORITY FOR LAMBERT
038824,000231: 
038825,000232: 32,2343           00004                           INHINT                                         
038826,000233: 32,2344           05534                           TC       FINDVAC                               #  SET UP LAMBERT LOB
038827,000234: 32,2345  E3,1677                                  EBANK=   SPLOC                                 
038828,000235: 32,2345           02672 64063                     2CADR    LAMBSET                               
038829,000236: 
038830,000237: 32,2347           00003                           RELINT                                         
038831,000238: 32,2350           06103                           TC       INTPRET                               #  DURING PREBURN PASS,HIGH PRIO FOR LAMB
038832,000239: 32,2351           41575                           VLOAD    PUSH                                  #  WILL CAUSE INTERRUPT HERE.
038833,000240: 32,2352           01717                                    V0VEC                                 #  LOAD V0VEC, RESCALE FOR ASCENT
038834,000241: 32,2353           72441                           DOT      SL1                                   #  V1*2(-7) IN PDL(0)
038835,000242: 32,2354           02153                                    URCO                                  #  V1.URCO=RDOTD*2(-8)
038836,000243: 32,2355           26041                           STOVL    RDOTD                                 #  STORE IN RDOTD
038837,000244: 
038838,000245: 32,2356           00001                                    00D                                   #  LOAD V1*2(-7)
038839,000246: 32,2357           72441                           DOT      SL1                                   #  V1.H1*2(-8)=ZDOTD*2(-8)
038840,000247: 32,2360           02133                                    H1                                    #  SHIFT TO 2(-7)
038841,000248: 32,2361           26045                           STOVL    ZDOTD                                 #  STORE IN ZDOTD,LOAD URCO*2(-1)
038842,000249: 

Page 857

038844,000251: 32,2362           02153                                    URCO                                  
038845,000252: 32,2363           50235                           VXV      DOT                                   #  URCOXH1*2(-2)=-UYCO*2(-2)
038846,000253: 32,2364           02133                                    H1                                    #  -UYCO.V1*2(-9)=-YDOTD*2(-9)            0
038847,000254: 32,2365           57512                           SL2      DCOMP                                 #  +YDOTD*2(-7)
038848,000255: 32,2366           02043        GAIN               STORE    YDOTD                                 #  STORE YDOTDX2(-7)
038849,000256: 32,2367           40345                           DLOAD    SETPD                                 #  LOAD YDOTD
038850,000257: 32,2370           02043                                    YDOTD                                 
038851,000258: 32,2371           00001                                    00D                                   
038852,000259: 
038853,000260: 32,2372           41425                           DSU      PUSH                                  #  (YDOTD-YDOT)X2(-7)=DYDOTX2(-7)
038854,000261: 32,2373           02067                                    YDOT                                  #  STORE DYDOT IN PDL(0)                  2
038855,000262: 32,2374           14041                           STODL    32D                                   #  STORE DYDOT IN 32                     (2
038856,000263: 32,2375           02045                                    ZDOTD                                 #  LOAD ZDOT
038857,000264: 32,2376           41425                           DSU      PUSH                                  #  ZDOTD-ZDOT=DZDOT*2(-7)
038858,000265: 32,2377           02105                                    ZDOT                                  #  STORE IN PDL(2)                        4
038859,000266: 32,2400           14037                           STODL    30D                                   #  ALSO IN 30
038860,000267: 32,2401           02111                                    GEFF                                  #  LOAD GEFF
038861,000268: 32,2402           72405                           DMP      SL1                                   #  GEFF TGOX2(-8)
038862,000269: 32,2403           02350                                    TGO                                   #  SHIFT TO 2(-7)
038863,000270: 
038864,000271: 32,2404           45325                           PDDL     DSU                                   #  STORE IN PDL(4)                        6
038865,000272: 32,2405           02041                                    RDOTD                                 #  LOAD RDOTD
038866,000273: 32,2406           02147                                    RDOT                                  #  DRDOTX2(-7)
038867,000274: 32,2407           00035                           STORE    28D                                   #  STORE IN 28
038868,000275: 32,2410           55425                           DSU      VDEF                                  #  DRDOT-TGOGEFF,DEFINE VGX2(-7)        0,4
038869,000276: 32,2411           45246                           ABVAL    DSU                                   #  GET VG(SCALAR)
038870,000277: 32,2412           24647                                    VTO                                   #  SUBTRACT TAILOFF
038871,000278: 32,2413           52405                           DMP      SL3                                   #  VG*2(-7)*1/VE*2(4)=VG/VE*2(-3)
038872,000279: 32,2414           02025                                    1/VE                                  #  SHIFT TO VG/VE
038873,000280: 32,2415           77606                           PUSH                                           #  STORE INPDL(0)                         2
038874,000281: 32,2416           44205                           DMP      BDSU                                  #  KTVG/VE
038875,000282: 32,2417           24643                                    KT                                    #  1/2-KTVG/VE
038876,000283: 
038877,000284: 32,2420           26515                                    DP.5                                  
038878,000285: 32,2421           41215                           DAD      DMP                                   #  1-KTVG/VE
038879,000286: 32,2422           26515                                    DP.5                                  #  VG/VE(1-KTVG/VE)=TGO/TBUP              0
038880,000287: 32,2423           41206                           PUSH     DMP                                   #  STORE TGO/TBUP IN PDL(0)               2
038881,000288: 32,2424           02027                                    TBUP                                  #  TGOX2(-17)
038882,000289: 32,2425           02350                           STORE    TGO                                   #  STORE
038883,000290: 32,2426           50025                           DSU      BMN                                   #  IF TGO SMTHAN 4SEC,GO TO SET UP ENGOFF
038884,000291: 32,2427           24655                                    2SEC(16)                              #  2*2(-16)=4*2(-17)
038885,000292: 32,2430           64675                                    ENGOFF                                
038886,000293: 32,2431           47014        KEEPGOIN           BONCLR   RTB                                   #  DURING PRECOI, GO BACK TO MP4
038887,000294: 
038888,000295: 32,2432           01613                                    56D                                   
038889,000296: 32,2433           66232                                    TKNOWN                                
038890,000297: 32,2434           33521                                    LOADTIME                              
038891,000298: 32,2435           02107                           STORE    TIME                                  
038892,000299: 32,2436           54345                           DLOAD    SR                                    
038893,000300: 32,2437           02350                                    TGO                                   #  TGO*2(-17)
038894,000301: 32,2440           20614                                    11D                                   #  TGO*2(-28)
038895,000302: 32,2441           77615                           DAD                                            
038896,000303: 32,2442           02107                                    TIME                                  #  T+TGO=TCO*2(-28)
038897,000304: 32,2443           16053                           STODL    TCO                                   #  STORE TCO                             (2
038898,000305: 

Page 858

038900,000307: 32,2444           24671                                    T2                                    #  LOAD T2X2(-17)
038901,000308: 
038902,000309: 32,2445           51025                           DSU      BPL                                   #  T2-TGO
038903,000310: 32,2446           02350                                    TGO                                   
038904,000311: 32,2447           64547                                    AIMER                                 #  IF T2-TGO POS,GO TO AIMER
038905,000312: 
038906,000313: 32,2450           45345                           DLOAD    DSU                                   #  LOAD T*2(-28)
038907,000314: 32,2451           02107                                    TIME                                  #  SUBTRACT 100 CS, 1/2DT
038908,000315: 32,2452           24641                                    100CS                                 #  (T-.5DT)*2(-28)
038909,000316: 32,2453           16055                           STODL    TREF                                  #  *2(-28)
038910,000317: 32,2454           02350                                    TGO                                   #  LOAD TGOX2(-17)
038911,000318: 32,2455           43205                           DMP      DAD                                   #  RDOT TGO*2(-24)
038912,000319: 32,2456           02147                                    RDOT                                  #  (R+RDOT TGO)*2(-24)
038913,000320: 32,2457           01047                                    RMAG                                  
038914,000321: 
038915,000322: 32,2460           44342                           SR1      BDSU                                  #  *2(-25)
038916,000323: 32,2461           02375                                    RCO                                   #  RCO-R-RDOT TGO=DR*2(-25)
038917,000324: 32,2462           14033                           STODL    26D                                   #  STORE DR IN 26,LOAD TGO/TBUP
038918,000325: 32,2463           43221                           BDSU     DAD                                   #  1/2-TGO/TBUP
038919,000326: 32,2464           26515                                    DP.5                                  
038920,000327: 32,2465           26515                                    DP.5                                  #  1-TGO/TBUP
038921,000328: 32,2466           77624                           CALL                                           
038922,000329: 32,2467           64771                                    LOGSUB                                #  CALL LOG SUBROUTINE
038923,000330: 
038924,000331: 32,2470           41461                           SL       PUSH                                  #  SHIFT TO -L,STORE IN PDL(0)            2
038925,000332: 
038926,000333: 32,2471           20206                                    5                                     
038927,000334: 32,2472           44265                           BDDV     BDSU                                  #  -TGO/L*2(-17)
038928,000335: 32,2473           02350                                    TGO                                   
038929,000336: 32,2474           02027                                    TBUP                                  #  (TBUP+TGO/L)*2(-17)=D12*2(-17)
038930,000337: 32,2475           45325                           PDDL     DSU                                   #  D12 IN PDL(2)                          4
038931,000338: 32,2476           02350                                    TGO                                   
038932,000339: 32,2477           24657                                    T3                                    #  TGO-T3
038933,000340: 32,2500           71244                           BPL      DLOAD                                 #  IF TGO-T3 POS,GO TO RATE
038934,000341: 32,2501           64507                                    RATER                                 
038935,000342: 32,2502           26517                                    DP0                                   #  SET B=0
038936,000343: 32,2503           02131                           STORE    PRATE                                 
038937,000344: 32,2504           77614                           SETGO                                          #  SET HC=1,GO TO CONST
038938,000345: 32,2505           01436                                    HC                                    
038939,000346: 32,2506           64531                                    CONST                                 
038940,000347: 
038941,000348: 32,2507           45345        RATER              DLOAD    DSU                                   #  TGO
038942,000349: 32,2510           02350                                    TGO                                   
038943,000350: 32,2511           00003                                    02D                                   #  TGO-D12=D21X2(-17)
038944,000351: 32,2512           70525                           PDDL     SR1                                   #  D21 IN PDL(4)                          6
038945,000352: 32,2513           02350                                    TGO                                   #  LOAD TGOX2(-17),SHIFT TO 1/2
038946,000353: 32,2514           65225                           DSU      PDDL                                  #  1/2TGO-D21=DX2(-17)
038947,000354: 32,2515           00005                                    04D                                   #  STORE D IN PDL(6)                      8
038948,000355: 
038949,000356: 32,2516           00035                                    28D                                   #  LOAD DRDOT*2(-7)
038950,000357: 32,2517           53605                           DMP      SL*                                   #  DRDOT D21*2(-24)
038951,000358: 32,2520           00005                                    04D                                   
038952,000359: 32,2521           20173                                    0          -6,1                       #  SHIFT TO 2(N-30)
038953,000360: 32,2522           56225                           DSU      DDV                                   #  D21 DRDOT-DR
038954,000361: 

Page 859

038956,000363: 32,2523           00033                                    26D                                   
038957,000364: 32,2524           02350                                    TGO                                   #  DIVIDE BY TGO
038958,000365: 32,2525           40271                           DDV      SETPD                                 #  DIVIDE BY D,GET B*2(N+4)
038959,000366: 32,2526           00007                                    06D                                   
038960,000367: 32,2527           00005                                    04D                                   #  SET PD TO 4                            4
038961,000368: 32,2530           02131                           STORE    PRATE                                 #  STORE B IN PRATE
038962,000369: 
038963,000370: 32,2531           56345        CONST              DLOAD    DDV                                   #  LOAD DRDOTX2(-7)
038964,000371: 32,2532           00035                                    28D                                   #  DRDOT/-LX2(-7)
038965,000372: 32,2533           00001                                    00D                                   
038966,000373: 32,2534           77725                           PDDL                                           #  STORE IN PDL(2),PULL D12               4
038967,000374: 32,2535           77605                           DMP                                            
038968,000375: 32,2536           02131                                    PRATE                                 #  D12PX2(N-13)
038969,000376: 32,2537           44257                           SR*      BDSU                                  #  SHIFT TO 2(-7)
038970,000377: 32,2540           20573                                    0          -6,1                       #  PULL DRDOT/-L, GET A*2(-7)
038971,000378: 32,2541           77626                           STADR                                          
038972,000379: 32,2542           61664                           STODL    PCONS                                 #  STORE A
038973,000380: 32,2543           00041                                    32D                                   #  LOAD DYDOTX2(-7)
038974,000381: 32,2544           77671                           DDV                                            #  DYDOT/-LX2(-7)=CX2(-7)
038975,000382: 
038976,000383: 32,2545           00001                                    00D                                   
038977,000384: 32,2546           02065                           STORE    YCONS                                 #  STORE CX2(-7)
038978,000385: 
038979,000386: 32,2547           77601        AIMER              SETPD                                          
038980,000387: 32,2550           00001                                    00D                                   
038981,000388: 32,2551           45345                           DLOAD    DSU                                   
038982,000389: 32,2552           02107                                    TIME                                  
038983,000390: 32,2553           02055                                    TREF                                  #  (T-TO)X2(-28)
038984,000391: 32,2554           53605                           DMP      SR*                                   #  B(T-TO)X2(N-24)
038985,000392: 32,2555           02131                                    PRATE                                 
038986,000393: 
038987,000394: 32,2556           20560                                    0          -17D,1                     
038988,000395: 32,2557           70415                           DAD      SR1                                   #  (A+B(T-TO))*2(-7)
038989,000396: 32,2560           02113                                    PCONS                                 #  2(-8)
038990,000397: 32,2561           45271                           DDV      DSU                                   #  (A+B(T-T0))/TBUP*2(9)
038991,000398: 32,2562           02027                                    TBUP                                  #  ADD GEFFX2(9)
038992,000399: 32,2563           02111                                    GEFF                                  #  GET ATRX2(9)
038993,000400: 32,2564           65361                           VXSC     PDDL                                  #  ATR UR*2(8)
038994,000401: 32,2565           01033                                    UNITR                                 #  STORE IN PDL(0)                        6
038995,000402: 32,2566           02065                                    YCONS                                 #  LOAD C*2(-7)
038996,000403: 32,2567           56342                           SR1      DDV                                   #  SHIFT TO 2(-8)
038997,000404: 32,2570           02027                                    TBUP                                  #  C/TBUP*2(9)=ATY*2(9)
038998,000405: 32,2571           53361                           VXSC     VAD                                   #  ATY LAXIS*2(8)
038999,000406: 
039000,000407: 32,2572           02071                                    LAXIS                                 #  (ATY LAXIS+ATR UR)*2(8)=AH*2(8)        0
039001,000408: 32,2573           41572                           VSL1     PUSH                                  #  SHIFT TO AH*2(9),STORE IN PDL(0)       6
039002,000409: 32,2574           65246                           ABVAL    PDDL                                  #  AH2X2(18) IN PDL(34),AHMAG IN MPAC
039003,000410: 32,2575           02023                                    AT                                    #  STORE AHMAG IN PDL( 6),LOAD AT         8
039004,000411: 32,2576           45316                           DSQ      DSU                                   #  AT(2)X2(18)
039005,000412: 32,2577           00043                                    34D                                   #  (AT(2)-AH2)X2(18)=ATP2X2(18)
039006,000413: 32,2600           41325                           PDDL     DMP                                   #  STORE IN PDL( 8)                      10
039007,000414: 32,2601           02023                                    AT                                    #  LOAD AT X2(9)
039008,000415: 32,2602           02035                                    KR                                    #  AT KRX2(8)
039009,000416: 

Page 860

039011,000418: 32,2603           41552                           SL1      PUSH                                  #  2(9),STORE IN PDL(10)                 12
039012,000419: 32,2604           45316                           DSQ      DSU                                   #  AT(2)KR(2)X2(18)
039013,000420: 
039014,000421: 32,2605           00043                                    34D                                   #   -AH2X2(18) =ATP3X2(18)
039015,000422: 32,2606           71240                           BMN      DLOAD                                 #  IF ATP3 NEG,GO TO AIMING
039016,000423: 32,2607           64614                                    AIMING                                
039017,000424: 32,2610           00011                                    8D                                    #  LOAD ATP2X2(18)
039018,000425: 32,2611           77766                           SQRT                                           #  ATPX2(9)
039019,000426: 32,2612           77650                           GOTO                                           
039020,000427: 32,2613           64624                                    AIMED                                 
039021,000428: 
039022,000429: 32,2614           55345        AIMING             DLOAD    BDDV                                  #  KR AT/AHX2(-1)=KH/2 FROM PDL(10,6)     8
039023,000430: 32,2615           00007                                    06D                                   
039024,000431: 
039025,000432: 32,2616           76561                           VXSC     VSL1                                  #  KH AH*2(8),X2(9)
039026,000433: 32,2617           00001                                    00D                                   
039027,000434: 32,2620           14001                           STODL    00D                                   #  STORE NEW AH IN PDL(0)
039028,000435: 32,2621           02023                                    AT                                    #  LOAD ATX2(9)
039029,000436: 32,2622           77605                           DMP                                            #  AT(1-KR(2))(1/2)X2(9)=ATPX2(9)
039030,000437: 32,2623           02037                                    KR1                                   
039031,000438: 
039032,000439: 32,2624           74365        AIMED              SIGN     VXSC                                  #  GIVE SIGN TO ATP
039033,000440: 32,2625           00037                                    30D                                   
039034,000441: 32,2626           02077                                    ZAXIS                                 #  ATP ZAXISX2(8)
039035,000442: 32,2627           53372                           VSL1     VAD                                   #  ATP ZAXISX2(9)
039036,000443: 32,2630           00001                                    00D                                   #  (ATPZAXIS+AH)X2(9)
039037,000444: 
039038,000445: 32,2631           77656                           UNIT                                           #  GET UT*2(-1)
039039,000446: 32,2632           02057                           STORE    UT                                    
039040,000447: 32,2633           45001                           SETPD    CALL                                  
039041,000448: 32,2634           00001                                    0                                     
039042,000449: 32,2635           02050                                    ASCRET                                
039043,000450: 32,2636           77776                           EXIT                                           
039044,000451: 32,2637           15605                           TCF      ENDOFJOB                              
039045,000452: 32,2640           00000 00144  100CS              2DEC     100        B-28                       
039046,000453: 

Remark: the label 'KT' is actually indented by 2 characters in the original listing but is referenced as operand. The current yaYul considers indented labels as false labels i.e. doesn't pick up the label 'KT' properly

039049,000456: 32,2642           12702 21727  KT                 2DEC     0.34                                  
039050,000457: 
039051,000458: 
039052,000459: 32,2644           23123 36273  VINJ               2DEC     76.655851  B-7                        
039053,000460: 
039054,000461: 32,2646           00100 00000  VTO                2DEC     0.5        B-7                        
039055,000462: 
039056,000463: 32,2650           01146 14632  DP3/80             2DEC     0.0375                                
039057,000464: 
039058,000465: 32,2652           00014 20000  2SEC(18)           2DEC     200        B-18                       
039059,000466: 
039060,000467: 32,2654           00062 00000  2SEC(16)           2DEC     200        B-16                       
039061,000468: 
039062,000469: 32,2656           00000 00000  T3                 2DEC     0          B-28                       
039063,000470: 
039064,000471: 
039065,000472: 32,2660           02525 12525  1/12TH             2DEC     0.083333333                            
039066,000473: 
039067,000474: 32,2662           10000 00000  DP.25              2DEC     0.25                                  
039068,000475: 
039069,000476: 

Page 861

039071,000478: 32,2664           25252 25253  DP2/3H             2DEC     .666666667                            
039072,000479: 
039073,000480: 32,2666           00031 00000  DTASC              2DEC     200        B-17                       
039074,000481: 
039075,000482: 32,2670           00000 00310  T2                 2DEC     200        B-28                       
039076,000483: 
039077,000484: 32,2672           06103        LAMBSET            TC       INTPRET                               #  CALL FOR LAMBERT SUBR.
039078,000485: 32,2673           77624                           CALL                                           
039079,000486: 
039080,000487: 32,2674           74430                                    LAMBERT                               
039081,000488: 32,2675           52545        ENGOFF             DLOAD    SL3                                   #  PUT LOW ORDER BIT OF T IN BIT1 OF MPAC
039082,000489: 32,2676           02350                                    TGO                                   
039083,000490: 32,2677           77776                           EXIT                                           
039084,000491: 32,2700           00004                           INHINT                                         
039085,000492: 32,2701           30144                           CA       MPAC                                  #  PUT TGO INA
039086,000493: 32,2702           05701                           TC       WAITLIST                              #  SET UP CALL TO APSOFF
039087,000494: 32,2703  E4,1747                                  EBANK=   TGO                                   
039088,000495: 32,2703           02711 64064                     2CADR    APSOFF                                
039089,000496: 
039090,000497: 32,2705           00003                           RELINT                                         
039091,000498: 32,2706           06103                           TC       INTPRET                               
039092,000499: 32,2707           77650                           GOTO                                           
039093,000500: 32,2710           64431                                    KEEPGOIN                              #  RETURN TO STEERING
039094,000501: 32,2711           06071        APSOFF             TC       ENGINOFF                              
039095,000502: 32,2712           05745                           TC       TASKOVER                              

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