Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

036818,000002:                                                                                                  ## Copyright:   Public domain.
036819,000003:                                                                                                  ## Filename:    P70-P71.agc
036820,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
036821,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
036822,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
036823,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
036824,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
036825,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
036826,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
036827,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
036828,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
036829,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
036830,000014:                                                                                                  ##              the original YUL assembler.
036831,000015:                                                                                                  ##
036832,000016:                                                                                                  ## Assembler:   yaYUL
036833,000017:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>.
036834,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
036835,000019:                                                                                                  ## Pages:       829-837
036836,000020:                                                                                                  ## Mod history: 2009-05-23 HG   Transcribed from page images.
036837,000021:                                                                                                  ##              2009-06-05 RSB  Fixed a typo.
036838,000022:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-labels which were incorrectly real labels.
036839,000023:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
036840,000024:                                                                                                  ##                              and corrected the errors found.
036841,000025:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
036842,000026:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
036843,000027:                                                                                                  ##              2017-08-16 RSB  Comment typo identified in AP11ROPE scans.
036844,000028: 
036845,000029:                                                                                                  ## This source code has been transcribed or otherwise adapted from
036846,000030:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
036847,000031:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
036848,000032:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
036849,000033:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
036850,000034:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
036851,000035:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
036852,000036:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
036853,000037:                                                                                                  ## actually created.
036854,000038:                                                                                                  ##
036855,000039:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
036856,000040:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
036857,000041:                                                                                                  ## the listing from which it was transcribed. It has been verified to
036858,000042:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
036859,000043:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
036860,000044:                                                                                                  ##
036861,000045:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
036862,000046:                                                                                                  ##
036863,000047:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
036864,000048: 

Page 829

036866,000050: 21,2006                                           BANK     21                                    
036867,000051: 21,2000                                           SETLOC   R11                                   
036868,000052: 21,2000                                           BANK                                           
036869,000053: 
036870,000054: 21,2006  E7,1515                                  EBANK=   DVCNTR                                
036871,000055: 21,2006                                           COUNT*   $$/R11                                
036872,000056: 
036873,000057: 21,2006           40103        R10,R11            CS       FLAGWRD7                              #  IS SERVICER STILL RUNNING?
036874,000058: 21,2007           74747                           MASK     AVEGFBIT                              
036875,000059: 21,2010           10000                           CCS      A                                     
036876,000060: 21,2011           15261                           TCF      TASKOVER                              #  LET AVGEND TAKE CARE OF GROUP 2.
036877,000061: 21,2012           11056                           CCS      PIPCTR                                
036878,000062: 21,2013           12015                           TCF      +2                                    
036879,000063: 21,2014           12130                           TCF      LRHTASK                               #  LAST PASS. CALL LRHTASK.
036880,000064: 21,2015           55714                 +2        TS       PIPCTR1                               
036881,000065: 
036882,000066: 21,2016  E7,1714               PIPCTR1            =        LADQSAVE                              
036883,000067: 21,2016     1056               PIPCTR             =        PHSPRDT2                              
036884,000068: 21,2016           36010                           CAF      OCT31                                 
036885,000069: 21,2017           05173                           TC       TWIDDLE                               
036886,000070: 21,2020           02006                           ADRES    R10,R11                               
036887,000071: 21,2021           41303        R10,R11A           CS       IMODES33                              #  IF LAMP TEST, DO NOT CHANGE LR LITES.
036888,000072: 21,2022           74753                           MASK     BIT1                                  
036889,000073: 21,2023           00006                           EXTEND                                         
036890,000074: 21,2024           12042                           BZF      10,11                                 
036891,000075: 
036892,000076: 21,2025           70107        FLASHH?            MASK     FLGWRD11                              #  C(A) = 1 = HFLASH BIT
036893,000077: 21,2026           00006                           EXTEND                                         
036894,000078: 21,2027           12033                           BZF      FLASHV?                               #  H FLASH OFF, SO LEAVE ALONE
036895,000079: 
036896,000080: 21,2030           34747                           CA       HLITE                                 
036897,000081: 21,2031           54001                           TS       L                                     
036898,000082: 21,2032           04606                           TC       FLIP                                  #  FLIP H LITE
036899,000083: 
036900,000084: 21,2033           34752        FLASHV?            CA       VFLSHBIT                              #  VFLASHBIT MUST BE BIT 2.
036901,000085: 21,2034           70107                           MASK     FLGWRD11                              
036902,000086: 21,2035           00006                           EXTEND                                         
036903,000087: 21,2036           12042                           BZF      10,11                                 #  V FLASH OFF
036904,000088: 
036905,000089: 21,2037           34751                           CA       VLITE                                 
036906,000090: 21,2040           54001                           TS       L                                     
036907,000091: 21,2041           04606                           TC       FLIP                                  #  FLIP V LITE
036908,000092: 
036909,000093: 21,2042           30105        10,11              CA       FLAGWRD9                              #  IS THE LETABORT FLAG SET ?
036910,000094: 21,2043           74743                           MASK     LETABBIT                              
036911,000095: 21,2044           00006                           EXTEND                                         
036912,000096: 21,2045           12154                           BZF      LANDISP                               #  NO. PROCEED TO R10.
036913,000097: 
036914,000098: 21,2046           41011        P71NOW?            CS       MODREG                                #  YES.  ARE WE IN P71 NOW?

Page 830

036916,000100: 21,2047           62107                           AD       1DEC71                                
036917,000101: 21,2050           00006                           EXTEND                                         
036918,000102: 21,2051           12154                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
036919,000103: 
036920,000104: 21,2052           00006                           EXTEND                                         #  NO. IS AN ABORT STAGE COMMANDED?
036921,000105: 21,2053           00030                           READ     CHAN30                                
036922,000106: 21,2054           40000                           COM                                            
036923,000107: 21,2055           54001                           TS       L                                     
036924,000108: 21,2056           74750                           MASK     BIT4                                  
036925,000109: 21,2057           10000                           CCS      A                                     
036926,000110: 21,2060           12076                           TCF      P71A                                  #  YES.
036927,000111: 
036928,000112: 21,2061           41011        P70NOW?            CS       MODREG                                #  NO. ARE WE IN P70 NOW?
036929,000113: 21,2062           62106                           AD       1DEC70                                
036930,000114: 21,2063           00006                           EXTEND                                         
036931,000115: 21,2064           12154                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
036932,000116: 
036933,000117: 21,2065           30001                           CA       L                                     #  NO.  IS AN ABORT COMMANDED?
036934,000118: 21,2066           74753                           MASK     BIT1                                  
036935,000119: 21,2067           10000                           CCS      A                                     
036936,000120: 21,2070           12073                           TCF      P70A                                  #  YES.
036937,000121: 21,2071           12154                           TCF      LANDISP                               #  NO.  PROCEED TO R10.
036938,000122: 
036939,000123: 21,2072                                           COUNT*   $$/P70                                
036940,000124: 
036941,000125: 21,2072           02110        P70                TC       LEGAL?                                
036942,000126: 21,2073           44755        P70A               CS       ZERO                                  
036943,000127: 21,2074           12077                           TCF      +3                                    
036944,000128: 21,2075           02110        P71                TC       LEGAL?                                
036945,000129: 21,2076           34752        P71A               CAF      TWO                                   
036946,000130: 21,2077           54002                 +3        TS       Q                                     
036947,000131: 21,2100           00004                           INHINT                                         
036948,000132: 21,2101           00006                           EXTEND                                         
036949,000133: 21,2102           32105                           DCA      CNTABTAD                              
036950,000134: 21,2103           52006                           DTCB                                           
036951,000135: 
036952,000136: 21,2104  E7,1515                                  EBANK=   DVCNTR                                
036953,000137: 21,2104           03402 12067  CNTABTAD           2CADR    CONTABRT                              
036954,000138: 
036955,000139: 21,2106           00106        1DEC70             DEC      70         B-14                       
036956,000140: 21,2107           00107        1DEC71             DEC      71         B-14                       
036957,000141: 
036958,000142: 05,3402                                           BANK     05                                    
036959,000143: 05,2000                                           SETLOC   ABORTS1                               
036960,000144: 05,2000                                           BANK                                           
036961,000145: 05,3402                                           COUNT*   $$/P70                                
036962,000146: 
036963,000147: 05,3402           33405        CONTABRT           CAF      ABRTJADR                              
036964,000148: 05,3403           54017                           TS       BRUPT                                 
036965,000149: 05,3404           50017                           RESUME                                         

Page 831

036967,000151: 
036968,000152: 05,3405           13406        ABRTJADR           TCF      ABRTJASK                              
036969,000153: 
036970,000154: 05,3406           33477        ABRTJASK           CAF      OCTAL27                               
036971,000155: 05,3407           60002                           AD       Q                                     
036972,000156: 05,3410           54001                           TS       L                                     
036973,000157: 05,3411           40000                           COM                                            
036974,000158: 05,3412           52761                           DXCH     -PHASE4                               
036975,000159: 05,3413           50002                           INDEX    Q                                     
036976,000160: 05,3414           33476                           CAF      MODE70                                
036977,000161: 05,3415           55011                           TS       MODREG                                
036978,000162: 
036979,000163: 05,3416           55163                           TS       DISPDEX                               #  INSURE DISPDEX IS POSITIVE.
036980,000164: 
036981,000165: 05,3417           10002                           CCS      Q                                     #  SET APSFLAG IF P71.
036982,000166: 05,3420           40106                           CS       FLGWRD10                              #  SET APSFLAG PRIOR TO THE ENEMA.
036983,000167: 05,3421           74737                           MASK     APSFLBIT                              
036984,000168: 05,3422           26106                           ADS      FLGWRD10                              
036985,000169: 05,3423           43501                           CS       DAPBITS                               #  DAPBITS = OCT 640 = BITS 6, 8, 9
036986,000170: 05,3424           70111                           MASK     DAPBOOLS                              #  (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
036987,000171: 05,3425           54111                           TS       DAPBOOLS                              
036988,000172: 
036989,000173: 05,3426           40101                           CS       FLAGWRD5                              #  SET ENGONFLG.
036990,000174: 05,3427           74745                           MASK     ENGONBIT                              
036991,000175: 05,3430           26101                           ADS      FLAGWRD5                              
036992,000176: 
036993,000177: 05,3431           44355                           CS       PRIO30                                #  INSURE THAT THE ENGINE IS ON, IF ARMED.
036994,000178: 05,3432           00006                           EXTEND                                         
036995,000179: 05,3433           02011                           RAND     DSALMOUT                              
036996,000180: 05,3434           64737                           AD       BIT13                                 
036997,000181: 05,3435           00006                           EXTEND                                         
036998,000182: 05,3436           01011                           WRITE    DSALMOUT                              
036999,000183: 
037000,000184: 05,3437           34735                           CAF      LRBYBIT                               #  TERMINATE R12.
037001,000185: 05,3440           54107                           TS       FLGWRD11                              
037002,000186: 
037003,000187: 05,3441           40074                           CS       FLAGWRD0                              #  SET R10FLAG TO SUPPRESS OUTPUTS TO THE
037004,000188: 05,3442           74752                           MASK     R10FLBIT                              #  CROSS-POINTER DISPLAY.
037005,000189: 05,3443           26074                           ADS      FLAGWRD0                              #  THE FOLLOWING ENEMA WILL REMOVE THE
037006,000190:                                                                                                  #  DISPLAY INERTIAL DATA OUTBIT.
037007,000191: 05,3444           06011                           TC       CLRADMOD                              #  INSURE RADMODES PROPERLY SET FOR R29.
037008,000192: 
037009,000193: 05,3445           00006                           EXTEND                                         #  LOAD TEVENT FOR THE DOWNLINK.
037010,000194: 05,3446           30025                           DCA      TIME2                                 
037011,000195: 05,3447           53345                           DXCH     TEVENT                                
037012,000196: 
037013,000197: 05,3450           00006                           EXTEND                                         
037014,000198: 05,3451           33475                           DCA      SVEXITAD                              
037015,000199: 05,3452           53253                           DXCH     AVGEXIT                               
037016,000200: 

Page 832

037018,000202: 05,3453           00006                           EXTEND                                         
037019,000203: 05,3454           34755                           DCA      NEG0                                  
037020,000204: 05,3455           52753                           DXCH     -PHASE1                               
037021,000205: 
037022,000206: 05,3456           00006                           EXTEND                                         
037023,000207: 05,3457           34755                           DCA      NEG0                                  
037024,000208: 05,3460           52757                           DXCH     -PHASE3                               
037025,000209: 
037026,000210: 05,3461           00006                           EXTEND                                         
037027,000211: 05,3462           34755                           DCA      NEG0                                  
037028,000212: 05,3463           52765                           DXCH     -PHASE6                               
037029,000213: 
037030,000214: 05,3464           36245                           CAF      THREE                                 #  SET UP 4.3SPOT FOR GOABORT
037031,000215: 05,3465           54001                           TS       L                                     
037032,000216: 05,3466           40000                           COM                                            
037033,000217: 05,3467           52761                           DXCH     -PHASE4                               
037034,000218: 
037035,000219: 05,3470           37730                           CAF      OCT37774                              #  SET T5RUPT TO CALL DAPIDLER IN        
037036,000220: 05,3471           54030                           TS       TIME5                                 #  40 MILLISECONDS.
037037,000221: 
037038,000222: 05,3472           04635                           TC       POSTJUMP                              
037039,000223: 05,3473           12765                           CADR     ENEMA                                 
037040,000224: 
037041,000225: 05,3474  E7,1515                                  EBANK=   DVCNTR                                
037042,000226: 05,3474           03770 64067  SVEXITAD           2CADR    SERVEXIT                              
037043,000227: 
037044,000228: 05,3476           00106        MODE70             DEC      70         B-14                       
037045,000229: 05,3477           00027        OCTAL27            OCT      27                                    
037046,000230: 05,3500           00107        MODE71             DEC      71         B-14                       
037047,000231: 
037048,000232: 05,3501           00640        DAPBITS            OCT      00640                                 
037049,000233: 
037050,000234: 32,3540                                           BANK     32                                    
037051,000235: 32,2000                                           SETLOC   ABORTS                                
037052,000236: 32,2000                                           BANK                                           
037053,000237: 
037054,000238: 32,3540                                           COUNT*   $$/P70                                
037055,000239: 
037056,000240: 32,3540           06037        GOABORT            TC       INTPRET                               
037057,000241: 32,3541           77624                           CALL                                           
037058,000242: 32,3542           61104                                    INITCDUW                              
037059,000243: 32,3543           77776                           EXIT                                           
037060,000244: 32,3544           34751                           CAF      FOUR                                  
037061,000245: 32,3545           55515                           TS       DVCNTR                                
037062,000246: 
037063,000247: 32,3546           33764                           CAF      WHICHADR                              
037064,000248: 32,3547           55455                           TS       WHICH                                 
037065,000249: 
037066,000250: 32,3550           05516                           TC       DOWNFLAG                              
037067,000251: 32,3551           00214                           ADRES    FLRCS                                 

Page 833

037069,000253: 32,3552           05516                           TC       DOWNFLAG                              
037070,000254: 32,3553           00175                           ADRES    FLUNDISP                              
037071,000255: 
037072,000256: 32,3554           05516                           TC       DOWNFLAG                              
037073,000257: 32,3555           00161                           ADRES    IDLEFLAG                              
037074,000258: 
037075,000259: 32,3556           05504                           TC       UPFLAG                                #  INSURE 4-JET TRANSLATION CAPABILITY.
037076,000260: 32,3557           00307                           ADRES    ACC4-2FL                              
037077,000261: 
037078,000262: 32,3560           05321                           TC       CHECKMM                               
037079,000263: 32,3561           00106        70DEC              DEC      70         B-14                       
037080,000264: 32,3562           13707                           TCF      P71RET                                
037081,000265: 
037082,000266: 32,3563           06037        P70INIT            TC       INTPRET                               
037083,000267: 32,3564           77624                           CALL                                           
037084,000268: 32,3565           65737                                    TGOCOMP                               
037085,000269: 32,3566           54345                           DLOAD    SL                                    
037086,000270: 32,3567           34003                                    MDOTDPS                               
037087,000271: 32,3570           20205                                    4D                                    
037088,000272: 32,3571           77665                           BDDV                                           
037089,000273: 32,3572           01245                                    MASS                                  
037090,000274: 32,3573           16271                           STODL    TBUP                                  
037091,000275: 32,3574           01245                                    MASS                                  
037092,000276: 32,3575           70471                           DDV      SR1                                   
037093,000277: 32,3576           16015                                    K(1/DV)                               
037094,000278: 32,3577           03635                           STORE    1/DV1                                 
037095,000279: 32,3600           03637                           STORE    1/DV2                                 
037096,000280: 32,3601           03641                           STORE    1/DV3                                 
037097,000281: 32,3602           77665                           BDDV                                           
037098,000282: 32,3603           25763                                    K(AT)                                 
037099,000283: 32,3604           16263                           STODL    AT                                    
037100,000284: 32,3605           34005                                    DTDECAY                               
037101,000285: 32,3606           54276                           DCOMP    SL                                    
037102,000286: 32,3607           20214                                    11D                                   
037103,000287: 32,3610           02267                           STORE    TTO                                   
037104,000288: 32,3611           57535                           SLOAD    DCOMP                                 
037105,000289: 32,3612           26002                                    DPSVEX                                
037106,000290: 32,3613           77702                           SR2                                            
037107,000291: 32,3614           02265                           STORE    VE                                    #  INITIALIZE DPS EXHAUST VELOCITY
037108,000292: 32,3615           45014                           SET      CALL                                  
037109,000293: 32,3616           04467                                    FLAP                                  
037110,000294: 32,3617           60300                                    COMMINIT                              
037111,000295: 32,3620           52160                           AXC,1    GOTO                                  #  RETURN HERE IN P70, SE X1 FOR DPS COEFF.
037112,000296: 32,3621           00000                                    0D                                    
037113,000297: 32,3622           65625                                    BOTHPOLY                              
037114,000298: 32,3623           77760        INJTARG            AXC,1                                          #  RETURN HERE IN P71, SET X1 FOR APS COEFF
037115,000299: 32,3624           00010                                    8D                                    
037116,000300: 32,3625           41343        BOTHPOLY           DLOAD*   DMP                                   #  TGO D
037117,000301: 32,3626           02551                                    ABTCOF,1                              
037118,000302: 32,3627           03517                                    TGO                                   

Page 834

037120,000304: 32,3630           41213                           DAD*     DMP                                   
037121,000305: 32,3631           02553                                    ABTCOF     +2,1                       #  TGO(C+TGO D)
037122,000306: 32,3632           03517                                    TGO                                   
037123,000307: 32,3633           41213                           DAD*     DMP                                   
037124,000308: 32,3634           02555                                    ABTCOF     +4,1                       #  TGO(B+TGO(C + TGO D))
037125,000309: 32,3635           03517                                    TGO                                   
037126,000310: 32,3636           77613                           DAD*                                           
037127,000311: 32,3637           02557                                    ABTCOF     +6,1                       #  A+TGO(B+TGO(C+TGO D)) 
037128,000312: 32,3640           02277                           STORE    ZDOTD                                 #  STORE TENTATIVELY IN ZDOTD
037129,000313: 32,3641           51025                           DSU      BPL                                   #  CHECK AGAINST MINIMUM
037130,000314: 32,3642           02571                                    VMIN                                  
037131,000315: 32,3643           65647                                    UPRATE                                #  IF BIG ENOUGH, LEAVE ZDOTD AS IS .
037132,000316: 32,3644           77745                           DLOAD                                          
037133,000317: 32,3645           02571                                    VMIN                                  
037134,000318: 32,3646           02277                           STORE    ZDOTD                                 #  IF TOO SMALL, REPLACE WITH MINIMUM.
037135,000319: 32,3647           77745        UPRATE             DLOAD                                          
037136,000320: 32,3650           02575                                    ABTRDOT                               
037137,000321: 32,3651           36273                           STCALL   RDOTD                                 #  INITIALIZE RDOTD.
037138,000322: 32,3652           57312                                    YCOMP                                 #  COMPUTE Y
037139,000323: 32,3653           45246                           ABS      DSU                                   
037140,000324: 32,3654           02573                                    YLIM                                  #  /Y/-DYMAX
037141,000325: 32,3655           75240                           BMN      SIGN                                  #  IF <0, XR<.5DEG, LEAVE YCO AT 0
037142,000326: 32,3656           65661                                    YOK                                   #  IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
037143,000327: 32,3657           02335                                    Y                                     
037144,000328: 32,3660           03633                           STORE    YCO                                   
037145,000329: 32,3661           45345        YOK                DLOAD    DSU                                   
037146,000330: 32,3662           03633                                    YCO                                   
037147,000331: 32,3663           02335                                    Y                                     #  COMPUTE XRANGE IN CASE ASTRONAUT WANTS
037148,000332: 32,3664           77661                           SR                                             
037149,000333: 32,3665           20606                                    5D                                    
037150,000334: 32,3666           03643                           STORE    XRANGE                                #  TO LOOK.
037151,000335: 32,3667           77414        UPTHROT            SET      EXIT                                  
037152,000336: 32,3670           04461                                    FLVR                                  
037153,000337: 
037154,000338: 32,3671           05504                           TC       UPFLAG                                #  SET ROTFLAG
037155,000339: 32,3672           00220                           ADRES    ROTFLAG                               
037156,000340: 
037157,000341: 32,3673           03746                           TC       THROTUP                               
037158,000342: 
037159,000343: 32,3674           05353                           TC       PHASCHNG                              
037160,000344: 32,3675           04024                           OCT      04024                                 
037161,000345: 
037162,000346: 32,3676           04616                 -3        TC       BANKCALL                              #  VERIFY THAT THE PANEL SWITCHES 
037163,000347: 32,3677           73747                           CADR     P40AUTO                               #  ARE PROPERLY SET.
037164,000348: 
037165,000349: 32,3700           03746                           TC       THROTUP                               
037166,000350: 
037167,000351: 32,3701           00006        UPTHROT1           EXTEND                                         #  SET SERVICER TO CALL ASCENT GUIDANCE.
037168,000352: 32,3702           33766                           DCA      ATMAGAD                               
037169,000353: 32,3703           53253                           DXCH     AVGEXIT                               

Page 835

037171,000355: 32,3704           05353        GRP4OFF            TC       PHASCHNG                              #  TERMINATE USE OF GROUP 4.
037172,000356: 32,3705           00004                           OCT      00004                                 
037173,000357: 
037174,000358: 32,3706           15155                           TCF      ENDOFJOB                              
037175,000359: 
037176,000360: 32,3707           05516        P71RET             TC       DOWNFLAG                              
037177,000361: 32,3710           00215                           ADRES    LETABORT                              
037178,000362: 
037179,000363: 32,3711           36000                           CAF      THRESH2                               #  SET DVMON THRESHOLD TO THE ASCENT VALUE.
037180,000364: 32,3712           55251                           TS       DVTHRUSH                              
037181,000365: 
037182,000366: 32,3713           06037                           TC       INTPRET                               
037183,000367: 32,3714           45014                           BON      CALL                                  
037184,000368: 32,3715           04707                                    FLAP                                  
037185,000369: 32,3716           65724                                    OLDTIME                               
037186,000370: 32,3717           65737                                    TGOCOMP                               #  IF FLAP=0, TGO=T-TIG
037187,000371: 32,3720           52131                           SSP      GOTO                                  
037188,000372: 32,3721           00053                                    QPRET                                 
037189,000373: 32,3722           65623                           CADR     INJTARG                               
037190,000374: 32,3723           60254                                    P12INIT                               #  WILL EXIT P12INIT TO INJTARG
037191,000375: 32,3724           72545        OLDTIME            DLOAD    SL1                                   #  IF FLAP=1,TGO=2 TGO
037192,000376: 32,3725           03517                                    TGO                                   
037193,000377: 32,3726           37502                           STCALL   TGO1                                  
037194,000378: 32,3727           60254                                    P12INIT                               
037195,000379: 32,3730           77776                           EXIT                                           
037196,000380: 32,3731           05353                           TC       PHASCHNG                              
037197,000381: 32,3732           04024                           OCT      04024                                 
037198,000382: 
037199,000383: 32,3733           00006                           EXTEND                                         
037200,000384: 32,3734           31502                           DCA      TGO1                                  
037201,000385: 32,3735           53517                           DXCH     TGO                                   
037202,000386: 32,3736           13676                           TCF      UPTHROT1   -3                         
037203,000387: 
037204,000388: 32,3737  E7,1501               TGO1               =        VGBODY                                
037205,000389:                                                                                                  #  ************************************************************************
037206,000390: 
037207,000391: 21,2110                                           BANK     21                                    
037208,000392: 21,2000                                           SETLOC   R11                                   
037209,000393: 21,2000                                           BANK                                           
037210,000394: 21,2110                                           COUNT*   $$/P70                                
037211,000395: 
037212,000396: 21,2110           40775        LEGAL?             CS       MMNUMBER                              #  IS THE DESIRED PGM ALREADY IN PROGRESS?
037213,000397: 21,2111           61011                           AD       MODREG                                
037214,000398: 21,2112           00006                           EXTEND                                         
037215,000399: 21,2113           12124                           BZF      ABORTALM                              
037216,000400: 
037217,000401: 21,2114           40105                           CS       FLAGWRD9                              #  ARE THE ABORTS ENABLED?
037218,000402: 21,2115           74743                           MASK     LETABBIT                              
037219,000403: 21,2116           10000                           CCS      A                                     

Page 836

037221,000405: 21,2117           12124                           TCF      ABORTALM                              
037222,000406: 
037223,000407: 21,2120           30103                           CA       FLAGWRD7                              #  IS SERVICER ON THE AIR?
037224,000408: 21,2121           74747                           MASK     AVEGFBIT                              
037225,000409: 21,2122           10000                           CCS      A                                     
037226,000410: 21,2123           00002                           TC       Q                                     #  YES. ALL IS WELL.
037227,000411: 21,2124           04364        ABORTALM           TC       FALTON                                
037228,000412: 21,2125           04457                           TC       RELDSP                                
037229,000413: 21,2126           04635                           TC       POSTJUMP                              
037230,000414: 21,2127           21050                           CADR     PINBRNCH                              
037231,000415: 
037232,000416: 32,3737                                           BANK     32                                    
037233,000417: 32,2000                                           SETLOC   ABORTS                                
037234,000418: 32,2000                                           BANK                                           
037235,000419: 
037236,000420: 32,3737                                           COUNT*   $$/P70                                
037237,000421: 
037238,000422:                                                                                                  #  ************************************************************************
037239,000423: 
037240,000424: 32,3737           45234        TGOCOMP            RTB      DSU                                   
037241,000425: 32,3740           21573                                    LOADTIME                              
037242,000426: 32,3741           03442                                    TIG                                   
037243,000427: 32,3742           77661                           SL                                             
037244,000428: 32,3743           20214                                    11D                                   
037245,000429: 32,3744           03517                           STORE    TGO                                   
037246,000430: 32,3745           77616                           RVQ                                            
037247,000431: 
037248,000432:                                                                                                  #  ************************************************************************
037249,000433: 
037250,000434: 32,3746           34737        THROTUP            CAF      BIT13                                 
037251,000435: 32,3747           54055                           TS       THRUST                                
037252,000436: 32,3750           34750                           CAF      BIT4                                  
037253,000437: 32,3751           00006                           EXTEND                                         
037254,000438: 32,3752           05014                           WOR      CHAN14                                
037255,000439: 32,3753           00002                           TC       Q                                     
037256,000440: 
037257,000441:                                                                                                  #  ************************************************************************
037258,000442: 
037259,000443: 32,3754           00000 01750  10SECS             2DEC     1000       B-28                       
037260,000444: 32,3756           00021 33400  HINJECT            2DEC     18288      B-24                       #  60,000 FEET EXPRESSED IN METERS.
037261,000445: 32,3760           11021 00000  (TGO)A             2DEC     37000      B-17                       
037262,000446: 32,3762           00507 25605  K(AT)              2DEC     .02                                   #  SCALING CONSTANT
037263,000447: 32,3764           02112        WHICHADR           REMADR   ABRTABLE                              
037264,000448: 
037265,000449:                                                                                                  #  ************************************************************************

Page 837

037267,000451: 32,3765  E7,1515                                  EBANK=   DVCNTR                                
037268,000452: 32,3765           03642 70067  ATMAGAD            2CADR    ATMAG                                 
037269,000453: 32,3767           00003        ORBMANAD           ADRES    ORBMANUV                              
037270,000454: 

End of include-file P70-P71.agc.  Parent file is MAIN.agc