Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

036650,000002:                                                                                                  ## Copyright:   Public domain.
036651,000003:                                                                                                  ## Filename:    P70-P71.agc
036652,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
036653,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
036654,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
036655,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
036656,000008:                                                                                                  ##              that the code format has been changed to conform to the
036657,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
036658,000010:                                                                                                  ##              original YUL assembler.
036659,000011:                                                                                                  ## Reference:   pp. 831-838
036660,000012:                                                                                                  ## Assembler:   yaYUL
036661,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036662,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036663,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
036664,000016:                                                                                                  ##              2016-12-01 RSB  Completed transcription.
036665,000017:                                                                                                  ##              2016-12-07 HG   Fix pseudo operator ADDRESS -> ADRES
036666,000018:                                                                                                  ##              2016-12-08 HG   Fix operand LANDISP -> LANADISP
036667,000019:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
036668,000020:                                                                                                  ##                              and corrected errors found.
036669,000021:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
036670,000022:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
036671,000023: 

Page 831

036673,000025: 21,2042                                           BANK     21                                    
036674,000026: 21,2000                                           SETLOC   R11                                   
036675,000027: 21,2000                                           BANK                                           
036676,000028: 
036677,000029: 21,2042  E7,1515                                  EBANK=   DVCNTR                                
036678,000030: 21,2042                                           COUNT*   $$/R11                                
036679,000031: 
036680,000032: 21,2042           40103        R10,R11            CS       FLAGWRD7                              #  IS SERVICER STILL RUNNING?
036681,000033: 21,2043           74740                           MASK     AVEGFBIT                              
036682,000034: 21,2044           10000                           CCS      A                                     
036683,000035: 21,2045           15263                           TCF      TASKOVER                              #  LET AVGEND TAKE CARE OF GROUP 2.
036684,000036: 21,2046           11055                           CCS      PIPCTR                                
036685,000037: 21,2047           12054                           TCF      STORPCTR                              
036686,000038: 21,2050           00006                           EXTEND                                         
036687,000039: 21,2051           34746                           DCA      NEG0                                  
036688,000040: 21,2052           52754                           DXCH     -PHASE2                               
036689,000041: 21,2053           12060                           TCF      R10,R11A                              
036690,000042: 
036691,000043: 21,2054           55722        STORPCTR           TS       PIPCTR1                               
036692,000044: 
036693,000045: 21,2055           36010                           CAF      OCT31                                 
036694,000046: 21,2056           05175                           TC       TWIDDLE                               
036695,000047: 21,2057           02042                           ADRES    R10,R11                               
036696,000048: 21,2060           34744        R10,R11A           CAF      HFLSHBIT                              
036697,000049: 21,2061           70107        FLASHH?            MASK     FLGWRD11                              
036698,000050: 21,2062           00006                           EXTEND                                         
036699,000051: 21,2063           12067                           BZF      FLASHV?                               #  H FLASH OFF, SO LEAVE ALONE
036700,000052: 

In the assembly-listing hardcopy, there is a handwritten note, reading "page 541".

036702,000054: 21,2064           34740                           CA       HLITE                                 
036703,000055: 21,2065           54001                           TS       L                                     
036704,000056: 21,2066           04577                           TC       FLIP                                  #  FLIP H LITE
036705,000057: 
036706,000058: 21,2067           34743        FLASHV?            CA       VFLSHBIT                              #  VFLASHBIT MUST BE BIT 2.
036707,000059: 21,2070           70107                           MASK     FLGWRD11                              
036708,000060: 21,2071           00006                           EXTEND                                         
036709,000061: 21,2072           12076                           BZF      10,11                                 #  VFLASH OFF
036710,000062: 
036711,000063: 21,2073           34742                           CA       VLITE                                 
036712,000064: 21,2074           54001                           TS       L                                     
036713,000065: 21,2075           04577                           TC       FLIP                                  #  FLIP V LITE
036714,000066: 
036715,000067: 
036716,000068: 21,2076           30105        10,11              CA       FLAGWRD9                              #  IS THE LETABORT FLAG SET ?
036717,000069: 21,2077           74734                           MASK     LETABBIT                              
036718,000070: 21,2100           00006                           EXTEND                                         
036719,000071: 21,2101           12170                           BZF      LANADISP                              #  NO. PROCEED TO R10.
036720,000072: 
036721,000073: 21,2102           41010        P71NOW?            CS       MODREG                                #  YES.  ARE WE IN P71 NOW?
036722,000074: 21,2103           62147                           AD       1DEC71                                
036723,000075: 21,2104           00006                           EXTEND                                         

Page 832

036725,000077: 21,2105           12170                           BZF      LANADISP                              #  YES.  PROCEED TO R10.
036726,000078: 
036727,000079: 21,2106           34744                           CAF      BIT1                                  
036728,000080: 21,2107           70374                           MASK     CHANBKUP                              
036729,000081: 21,2110           10000                           CCS      A                                     
036730,000082: 21,2111           12170                           TCF      LANADISP                              #  IGNORE CHAN BITS - ASSUME NO ABORT
036731,000083: 
036732,000084: 21,2112           00006                           EXTEND                                         #  NO. IS AN ABORT STAGE COMMANDED?
036733,000085: 21,2113           00030                           READ     CHAN30                                
036734,000086: 21,2114           40000                           COM                                            
036735,000087: 21,2115           54001                           TS       L                                     
036736,000088: 21,2116           74741                           MASK     BIT4                                  
036737,000089: 21,2117           10000                           CCS      A                                     
036738,000090: 21,2120           12136                           TCF      P71A                                  #  YES.
036739,000091: 
036740,000092: 21,2121           41010        P70NOW?            CS       MODREG                                #  NO. ARE WE IN P70 NOW?
036741,000093: 21,2122           62146                           AD       1DEC70                                
036742,000094: 21,2123           00006                           EXTEND                                         
036743,000095: 21,2124           12170                           BZF      LANADISP                              #  YES.  PROCEED TO R10.
036744,000096: 
036745,000097: 21,2125           30001                           CA       L                                     #  NO.  IS AN ABORT COMMANDED?
036746,000098: 21,2126           74744                           MASK     BIT1                                  
036747,000099: 21,2127           10000                           CCS      A                                     
036748,000100: 21,2130           12133                           TCF      P70A                                  #  YES.
036749,000101: 21,2131           12170                           TCF      LANADISP                              #  NO.  PROCEED TO R10.
036750,000102: 
036751,000103: 21,2132                                           COUNT*   $$/P70                                
036752,000104: 
036753,000105: 21,2132           02150        P70                TC       LEGAL?                                
036754,000106: 21,2133           44746        P70A               CS       ZERO                                  
036755,000107: 21,2134           12137                           TCF      +3                                    
036756,000108: 21,2135           02150        P71                TC       LEGAL?                                
036757,000109: 21,2136           34743        P71A               CAF      TWO                                   
036758,000110: 21,2137           54002                 +3        TS       Q                                     
036759,000111: 21,2140           00004                           INHINT                                         
036760,000112: 21,2141           00006                           EXTEND                                         
036761,000113: 21,2142           32145                           DCA      CNTABTAD                              
036762,000114: 21,2143           52006                           DTCB                                           
036763,000115: 
036764,000116: 21,2144  E7,1515                                  EBANK=   DVCNTR                                
036765,000117: 21,2144           03417 12067  CNTABTAD           2CADR    CONTABRT                              
036766,000118: 
036767,000119: 21,2146           00106        1DEC70             DEC      70         B-14                       
036768,000120: 21,2147           00107        1DEC71             DEC      71         B-14                       
036769,000121: 
036770,000122: 05,3417                                           BANK     05                                    
036771,000123: 05,2000                                           SETLOC   ABORTS1                               
036772,000124: 05,2000                                           BANK                                           
036773,000125: 05,3417                                           COUNT*   $$/P70                                
036774,000126: 

Page 833

036776,000128: 05,3417           33422        CONTABRT           CAF      ABRTJADR                              
036777,000129: 05,3420           54017                           TS       BRUPT                                 
036778,000130: 05,3421           50017                           RESUME                                         
036779,000131: 
036780,000132: 05,3422           13423        ABRTJADR           TCF      ABRTJASK                              
036781,000133: 
036782,000134: 05,3423           33503        ABRTJASK           CAF      OCTAL27                               
036783,000135: 05,3424           60002                           AD       Q                                     
036784,000136: 05,3425           54001                           TS       L                                     
036785,000137: 05,3426           40000                           COM                                            
036786,000138: 05,3427           52760                           DXCH     -PHASE4                               
036787,000139: 05,3430           50002                           INDEX    Q                                     
036788,000140: 05,3431           33502                           CAF      MODE70                                
036789,000141: 05,3432           55010                           TS       MODREG                                
036790,000142: 
036791,000143: 05,3433           55162                           TS       DISPDEX                               #  INSURE DISPDEX IS POSITIVE.
036792,000144: 
036793,000145: 05,3434           10002                           CCS      Q                                     #  SET APSFLAG IF P71.
036794,000146: 05,3435           40106                           CS       FLGWRD10                              #  SET APSFLAG PRIOR TO THE ENEMA.
036795,000147: 05,3436           74730                           MASK     APSFLBIT                              
036796,000148: 05,3437           26106                           ADS      FLGWRD10                              
036797,000149: 05,3440           43505                           CS       DAPBITS                               #  DAPBITS = OCT 40640 = BITS 6,8,9,15
036798,000150: 05,3441           70111                           MASK     DAPBOOLS                              #  RESET ULLAGE,DRIFT,XOVRIINH,AND PULSES
036799,000151: 05,3442           54111                           TS       DAPBOOLS                              
036800,000152: 
036801,000153: 05,3443           33506                           CAF      1DEGDB                                #  INSURE DAP DEADBAND IS SET TO 1 DEGREE
036802,000154: 05,3444           55343                           TS       DB                                    
036803,000155: 
036804,000156: 05,3445           40101                           CS       FLAGWRD5                              #  SET ENGONFLG.
036805,000157: 05,3446           74736                           MASK     ENGONBIT                              
036806,000158: 05,3447           26101                           ADS      FLAGWRD5                              
036807,000159: 
036808,000160: 05,3450           44346                           CS       PRIO30                                #  INSURE THAT THE ENGINE IS ON, IF ARMED.
036809,000161: 05,3451           00006                           EXTEND                                         
036810,000162: 05,3452           02011                           RAND     DSALMOUT                              
036811,000163: 05,3453           64730                           AD       BIT13                                 
036812,000164: 05,3454           00006                           EXTEND                                         
036813,000165: 05,3455           01011                           WRITE    DSALMOUT                              
036814,000166: 
036815,000167: 05,3456           34726                           CAF      LRBYBIT                               #  TERMINATE R12.
036816,000168: 05,3457           54107                           TS       FLGWRD11                              
036817,000169: 
036818,000170: 05,3460           40074                           CS       FLAGWRD0                              #  SIGNAL THE LAD TO DISPLAY LATVEL IN
036819,000171: 05,3461           74743                           MASK     R10FLBIT                              #    INERTIAL COORDINATES AND FORVEL ZERO
036820,000172: 05,3462           26074                           ADS      FLAGWRD0                              
036821,000173: 
036822,000174: 05,3463           00006                           EXTEND                                         #  LOAD TEVENT FOR THE DOWNLINK.
036823,000175: 05,3464           30025                           DCA      TIME2                                 
036824,000176: 05,3465           53342                           DXCH     TEVENT                                
036825,000177: 

Page 834

036827,000179: 05,3466           00006                           EXTEND                                         
036828,000180: 05,3467           33501                           DCA      SVEXITAD                              
036829,000181: 05,3470           53252                           DXCH     AVGEXIT                               
036830,000182: 
036831,000183: 05,3471           02657                           TC       ABTKLEAN                              #  KILL GROUPS 1,3, AND 6.
036832,000184: 
036833,000185: 05,3472           36266                           CAF      THREE                                 #  SET UP 4.3SPOT FOR GOABORT
036834,000186: 05,3473           54001                           TS       L                                     
036835,000187: 05,3474           40000                           COM                                            
036836,000188: 05,3475           52760                           DXCH     -PHASE4                               
036837,000189: 
036838,000190: 05,3476           04626                           TC       POSTJUMP                              
036839,000191: 05,3477           12767                           CADR     ENEMA                                 
036840,000192: 
036841,000193: 05,3500  E7,1515                                  EBANK=   DVCNTR                                
036842,000194: 05,3500           03656 64067  SVEXITAD           2CADR    SERVEXIT                              
036843,000195: 
036844,000196: 05,3502           00106        MODE70             DEC      70         B-14                       
036845,000197: 05,3503           00027        OCTAL27            OCT      27                                    
036846,000198: 05,3504           00107        MODE71             DEC      71         B-14                       
036847,000199: 
036848,000200: 05,3505           40640        DAPBITS            OCT      40640                                 
036849,000201: 
036850,000202: 05,3506           00554        1DEGDB             OCT      00554                                 
036851,000203: 32,3443                                           BANK     32                                    
036852,000204: 32,2000                                           SETLOC   ABORTS                                
036853,000205: 32,2000                                           BANK                                           
036854,000206: 
036855,000207: 32,3443                                           COUNT*   $$/P70                                
036856,000208: 
036857,000209: 32,3443           34742        GOABORT            CAF      FOUR                                  
036858,000210: 32,3444           55515                           TS       DVCNTR                                
036859,000211: 
036860,000212: 32,3445           33653                           CAF      WHICHADR                              
036861,000213: 32,3446           55455                           TS       WHICH                                 
036862,000214: 
036863,000215: 32,3447           06060                           TC       INTPRET                               
036864,000216: 32,3450           43014                           CLEAR    CLEAR                                 
036865,000217: 32,3451           04665                                    FLRCS                                 
036866,000218: 32,3452           04265                                    FLUNDISP                              
036867,000219: 32,3453           43014                           CLEAR    SET                                   
036868,000220: 32,3454           03670                                    IDLEFLAG                              
036869,000221: 32,3455           06464                                    ACC4-2FL                              
036870,000222: 32,3456           45014                           SET      CALL                                  
036871,000223: 32,3457           04462                                    P7071FLG                              
036872,000224: 32,3460           61063                                    INITCDUW                              
036873,000225: 32,3461           77776                           EXIT                                           
036874,000226: 
036875,000227: 32,3462           05323                           TC       CHECKMM                               
036876,000228: 32,3463           00106        70DEC              DEC      70         B-14                       

Page 835

036878,000230: 32,3464           13577                           TCF      P71RET                                
036879,000231: 
036880,000232: 32,3465           06060        P70INIT            TC       INTPRET                               
036881,000233: 32,3466           77624                           CALL                                           
036882,000234: 32,3467           65626                                    TGOCOMP                               
036883,000235: 32,3470           54345                           DLOAD    SL                                    
036884,000236: 32,3471           34003                                    MDOTDPS                               
036885,000237: 32,3472           20205                                    4D                                    
036886,000238: 32,3473           77665                           BDDV                                           
036887,000239: 32,3474           01244                                    MASS                                  
036888,000240: 32,3475           16262                           STODL    TBUP                                  
036889,000241: 32,3476           01244                                    MASS                                  
036890,000242: 32,3477           70471                           DDV      SR1                                   
036891,000243: 32,3500           16015                                    K(1/DV)                               
036892,000244: 32,3501           03635                           STORE    1/DV1                                 
036893,000245: 32,3502           03637                           STORE    1/DV2                                 
036894,000246: 32,3503           03641                           STORE    1/DV3                                 
036895,000247: 32,3504           77665                           BDDV                                           
036896,000248: 32,3505           25652                                    K(AT)                                 
036897,000249: 32,3506           16254                           STODL    AT                                    
036898,000250: 32,3507           34015                                    100PCTTO                              
036899,000251: 32,3510           02260                           STORE    TTO                                   
036900,000252: 32,3511           57535                           SLOAD    DCOMP                                 
036901,000253: 32,3512           26002                                    DPSVEX                                
036902,000254: 32,3513           77702                           SR2                                            
036903,000255: 32,3514           36256                           STCALL   VE                                    
036904,000256: 32,3515           60267                                    COMMINIT                              
036905,000257: 32,3516           77745        INJTARG            DLOAD                                          
036906,000258: 32,3517           02564                                    ABTRDOT                               
036907,000259: 32,3520           36264                           STCALL   RDOTD                                 #  INITIALIZE RDOTD.
036908,000260: 32,3521           57315                                    YCOMP                                 #  COMPUTE Y
036909,000261: 32,3522           45246                           ABS      DSU                                   
036910,000262: 32,3523           02562                                    YLIM                                  #  /Y/-DYMAX
036911,000263: 32,3524           75240                           BMN      SIGN                                  #  IF <0, XR<.5DEG, LEAVE YCO AT 0
036912,000264: 32,3525           65530                                    YOK                                   #  IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
036913,000265: 32,3526           02326                                    Y                                     
036914,000266: 32,3527           03633                           STORE    YCO                                   
036915,000267: 32,3530           45345        YOK                DLOAD    DSU                                   
036916,000268: 32,3531           03633                                    YCO                                   
036917,000269: 32,3532           02326                                    Y                                     
036918,000270: 32,3533           77661                           SR                                             
036919,000271: 32,3534           20606                                    5D                                    
036920,000272: 32,3535           03643                           STORE    XRANGE                                
036921,000273: 32,3536           45014                           SET      CALL                                  
036922,000274: 32,3537           04461                                    FLVR                                  
036923,000275: 32,3540           71650                                    THETCOMP                              
036924,000276: 32,3541           51025                           DSU      BPL                                   
036925,000277: 32,3542           02556                                    THETCRIT                              
036926,000278: 32,3543           65547                                    +4                                    
036927,000279: 32,3544           52175                           VLOAD    GOTO                                  

Page 836

036929,000281: 32,3545           02546                                    J1PARM                                
036930,000282: 32,3546           65552                                    STORPARM                              
036931,000283: 32,3547           43175                 +4        VLOAD    SET                                   #  IF J2 IS USED, SET THE
036932,000284: 32,3550           02552                                    J2PARM                                #  ABORT TARGETING FLAG
036933,000285: 32,3551           04470                                    ABTTGFLG                              
036934,000286: 32,3552           16572        STORPARM           STODL    JPARM                                 
036935,000287: 32,3553           03631                                    RCO                                   
036936,000288: 32,3554           02576                           STORE    RP                                    
036937,000289: 32,3555           77414                           SET      EXIT                                  
036938,000290: 32,3556           04471                                    ROTFLAG                               
036939,000291: 
036940,000292: 32,3557           03635        UPTHROT            TC       THROTUP                               
036941,000293: 
036942,000294: 32,3560           05355                           TC       PHASCHNG                              
036943,000295: 32,3561           04024                           OCT      04024                                 
036944,000296: 
036945,000297: 32,3562           05506                           TC       UPFLAG                                
036946,000298: 32,3563           00216                           ADRES    FLAP                                  
036947,000299: 
036948,000300: 32,3564           04607        UPTHROT1           TC       BANKCALL                              #  VERIFY THAT THE PANEL SWITCHES
036949,000301: 32,3565           73710                           CADR     P40AUTO                               #  ARE PROPERLY SET.
036950,000302: 
036951,000303: 32,3566           03635                           TC       THROTUP                               
036952,000304: 
036953,000305: 32,3567           35020                           CAF      PRIO17                                #  LET SERVICER FINISH BEFORE CONNECTING
036954,000306: 32,3570           05137                           TC       PRIOCHNG                              #      ASCENT GUIDANCE EQUATIONS.
036955,000307: 
036956,000308: 32,3571           00006                           EXTEND                                         
036957,000309: 32,3572           33655                           DCA      ATMAGAD                               
036958,000310: 32,3573           53252                           DXCH     AVGEXIT                               
036959,000311: 
036960,000312: 32,3574           05355        GRP4OFF            TC       PHASCHNG                              #  TERMINATE USE OF GROUP 4.
036961,000313: 32,3575           00004                           OCT      00004                                 
036962,000314: 
036963,000315: 32,3576           15146                           TCF      ENDOFJOB                              
036964,000316: 
036965,000317: 32,3577           05520        P71RET             TC       DOWNFLAG                              
036966,000318: 32,3600           00215                           ADRES    LETABORT                              
036967,000319: 
036968,000320: 32,3601           36000                           CAF      THRESH2                               #  SET DVMON THRESHOLD TO THE ASCENT VALUE.
036969,000321: 32,3602           55250                           TS       DVTHRUSH                              
036970,000322: 
036971,000323: 32,3603           06060                           TC       INTPRET                               
036972,000324: 32,3604           77624                           CALL                                           
036973,000325: 32,3605           60243                                    P12INIT                               
036974,000326: 32,3606           45014                           BON      CALL                                  
036975,000327: 32,3607           04707                                    FLAP                                  
036976,000328: 32,3610           65614                                    OLDTIME                               
036977,000329: 32,3611           65626                                    TGOCOMP                               #  IF FLAP=0, TGO=T-TIG
036978,000330: 32,3612           77650                           GOTO                                           

Page 837

036980,000332: 32,3613           65516                                    INJTARG                               
036981,000333: 32,3614           72545        OLDTIME            DLOAD    SL1                                   #  IF FLAP=1,TGO=2 TGO
036982,000334: 32,3615           03517                                    TGO                                   
036983,000335: 32,3616           03502                           STORE    TGO1                                  
036984,000336: 32,3617           77776                           EXIT                                           
036985,000337: 
036986,000338: 32,3620           05355                           TC       PHASCHNG                              
036987,000339: 32,3621           04024                           OCT      04024                                 
036988,000340: 
036989,000341: 32,3622           00006                           EXTEND                                         
036990,000342: 32,3623           31502                           DCA      TGO1                                  
036991,000343: 32,3624           53517                           DXCH     TGO                                   
036992,000344: 32,3625           13564                           TCF      UPTHROT1                              
036993,000345: 
036994,000346:                                                                                                  #  ************************************************************************
036995,000347: 
036996,000348: 21,2150                                           BANK     21                                    
036997,000349: 21,2000                                           SETLOC   R11                                   
036998,000350: 21,2000                                           BANK                                           
036999,000351: 
037000,000352: 21,2150                                           COUNT*   $$/P70                                
037001,000353: 
037002,000354: 21,2150           40774        LEGAL?             CS       MMNUMBER                              #  IS THE DESIRED PGM ALREADY IN PROGRESS?
037003,000355: 21,2151           61010                           AD       MODREG                                
037004,000356: 21,2152           00006                           EXTEND                                         
037005,000357: 21,2153           12164                           BZF      ABORTALM                              
037006,000358: 
037007,000359: 21,2154           40105                           CS       FLAGWRD9                              #  ARE THE ABORTS ENABLED?
037008,000360: 21,2155           74734                           MASK     LETABBIT                              
037009,000361: 21,2156           10000                           CCS      A                                     
037010,000362: 21,2157           12164                           TCF      ABORTALM                              
037011,000363: 
037012,000364: 21,2160           30103                           CA       FLAGWRD7                              #  IS SERVICER ON THE AIR?
037013,000365: 21,2161           74740                           MASK     AVEGFBIT                              
037014,000366: 21,2162           10000                           CCS      A                                     
037015,000367: 21,2163           00002                           TC       Q                                     #  YES.  ALL IS WELL.
037016,000368: 21,2164           04355        ABORTALM           TC       FALTON                                
037017,000369: 21,2165           04450                           TC       RELDSP                                
037018,000370: 21,2166           04626                           TC       POSTJUMP                              
037019,000371: 21,2167           21062                           CADR     PINBRNCH                              
037020,000372: 
037021,000373: 32,3626                                           BANK     32                                    
037022,000374: 32,2000                                           SETLOC   ABORTS                                
037023,000375: 32,2000                                           BANK                                           
037024,000376: 
037025,000377: 32,3626                                           COUNT*   $$/P70                                
037026,000378: 
037027,000379:                                                                                                  #  ************************************************************************
037028,000380: 
037029,000381: 32,3626           45234        TGOCOMP            RTB      DSU                                   

Page 838

037031,000383: 32,3627           21603                                    LOADTIME                              
037032,000384: 32,3630           03442                                    TIG                                   
037033,000385: 32,3631           77661                           SL                                             
037034,000386: 32,3632           20214                                    11D                                   
037035,000387: 32,3633           03517                           STORE    TGO                                   
037036,000388: 32,3634           77616                           RVQ                                            
037037,000389: 
037038,000390:                                                                                                  #  ************************************************************************
037039,000391: 
037040,000392: 32,3635           34730        THROTUP            CAF      BIT13                                 
037041,000393: 32,3636           54055                           TS       THRUST                                
037042,000394: 32,3637           34741                           CAF      BIT4                                  
037043,000395: 32,3640           00006                           EXTEND                                         
037044,000396: 32,3641           05014                           WOR      CHAN14                                
037045,000397: 32,3642           00002                           TC       Q                                     
037046,000398: 
037047,000399:                                                                                                  #  ************************************************************************
037048,000400: 
037049,000401: 32,3643           00000 01750  10SECS             2DEC     1000       B-28                       
037050,000402: 
037051,000403: 32,3645           00021 33400  HINJECT            2DEC     18288      B-24                       #  60,000 FEET EXPRESSED IN METERS.
037052,000404: 
037053,000405: 32,3647           11021 00000  (TGO)A             2DEC     37000      B-17                       
037054,000406: 
037055,000407: 32,3651           00507 25605  K(AT)              2DEC     .02                                   #  SCALING CONSTANT
037056,000408: 
037057,000409: 32,3653           02114        WHICHADR           REMADR   ABRTABLE                              
037058,000410: 
037059,000411:                                                                                                  #  ************************************************************************
037060,000412: 
037061,000413: 32,3654  E7,1515                                  EBANK=   DVCNTR                                
037062,000414: 32,3654           03375 70067  ATMAGAD            2CADR    ATMAG                                 

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