Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, 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 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

035393,000002:                                                                                                  ## Copyright:   Public domain.
035394,000003:                                                                                                  ## Filename:    P70-P71.agc
035395,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
035396,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
035397,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
035398,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
035399,000008:                                                                                                  ##              that the code format has been changed to conform to the
035400,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
035401,000010:                                                                                                  ##              original YUL assembler.
035402,000011:                                                                                                  ## Reference:   pp. 823-830
035403,000012:                                                                                                  ## Assembler:   yaYUL
035404,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
035405,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
035406,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
035407,000016:                                                                                                  ##              2017-03-10 HG   Transcribed
035408,000017:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
035409,000018:                                                                                                  ##                              Luminary 99 and 131.
035410,000019:                                                                                                  ##              2017-03-19 HG   Fix operand ROO --> RCO
035411,000020: 

Page 823

035413,000022: 21,2006                                           BANK     21                                    
035414,000023: 21,2000                                           SETLOC   R11                                   
035415,000024: 21,2000                                           BANK                                           
035416,000025: 
035417,000026: 21,2006  E7,1515                                  EBANK=   DVCNTR                                
035418,000027: 21,2006                                           COUNT*   $$/R11                                
035419,000028: 
035420,000029: 21,2006           40103        R10,R11            CS       FLAGWRD7                              #  IS SERVICER STILL RUNNING?
035421,000030: 21,2007           74747                           MASK     AVEGFBIT                              
035422,000031: 21,2010           10000                           CCS      A                                     
035423,000032: 21,2011           15261                           TCF      TASKOVER                              #  LET AVGEND TAKE CARE OF GROUP 2.
035424,000033: 21,2012           11055                           CCS      PIPCTR                                
035425,000034: 21,2013           12015                           TCF      +2                                    
035426,000035: 21,2014           12125                           TCF      LRHTASK                               #  LAST PASS. CALL LRHTASK.

Note: The operand "LRHTASK" above is circled with a red pen.

035428,000037: 21,2015           55714                 +2        TS       PIPCTR1                               
035429,000038: 
035430,000039: 21,2016  E7,1714               PIPCTR1            =        LADQSAVE                              
035431,000040: 21,2016     1055               PIPCTR             =        PHSPRDT2                              
035432,000041: 21,2016           36010                           CAF      OCT31                                 
035433,000042: 21,2017           05173                           TC       TWIDDLE                               
035434,000043: 21,2020           02006                           ADRES    R10,R11                               
035435,000044: 21,2021           34753        R10,R11A           CAF      HFLSHBIT                              
035436,000045: 21,2022           70107        FLASHH?            MASK     FLGWRD11                              
035437,000046: 21,2023           00006                           EXTEND                                         
035438,000047: 21,2024           12030                           BZF      FLASHV?                               #  H FLASH OFF, SO LEAVE ALONE
035439,000048: 
035440,000049: 21,2025           34747                           CA       HLITE                                 
035441,000050: 21,2026           54001                           TS       L                                     
035442,000051: 21,2027           04606                           TC       FLIP                                  #  FLIP H LITE
035443,000052: 
035444,000053: 21,2030           34752        FLASHV?            CA       VFLSHBIT                              #  VFLASHBIT MUST BE BIT 2.
035445,000054: 21,2031           70107                           MASK     FLGWRD11                              
035446,000055: 21,2032           00006                           EXTEND                                         
035447,000056: 21,2033           12037                           BZF      10,11                                 #  V FLASH OFF
035448,000057: 
035449,000058: 21,2034           34751                           CA       VLITE                                 
035450,000059: 21,2035           54001                           TS       L                                     
035451,000060: 21,2036           04606                           TC       FLIP                                  #  FLIP V LITE
035452,000061: 
035453,000062: 
035454,000063: 21,2037           30105        10,11              CA       FLAGWRD9                              #  IS THE LETABORT FLAG SET ?
035455,000064: 21,2040           74743                           MASK     LETABBIT                              
035456,000065: 21,2041           00006                           EXTEND                                         
035457,000066: 21,2042           12145                           BZF      LANDISP                               #  NO.  PROCEED TO R10.
035458,000067: 
035459,000068: 21,2043           41010        P71NOW?            CS       MODREG                                #  YES.  ARE WE IN P71 NOW?
035460,000069: 21,2044           62104                           AD       1DEC71                                
035461,000070: 21,2045           00006                           EXTEND                                         
035462,000071: 21,2046           12145                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
035463,000072: 

Page 824

035465,000074: 21,2047           00006                           EXTEND                                         #  NO. IS AN ABORT STAGE COMMANDED?
035466,000075: 21,2050           00030                           READ     CHAN30                                
035467,000076: 21,2051           40000                           COM                                            
035468,000077: 21,2052           54001                           TS       L                                     
035469,000078: 21,2053           74750                           MASK     BIT4                                  
035470,000079: 21,2054           10000                           CCS      A                                     
035471,000080: 21,2055           12073                           TCF      P71A                                  #  YES.
035472,000081: 
035473,000082: 21,2056           41010        P70NOW?            CS       MODREG                                #  NO.  ARE WE IN P70 NOW?
035474,000083: 21,2057           62103                           AD       1DEC70                                
035475,000084: 21,2060           00006                           EXTEND                                         
035476,000085: 21,2061           12145                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
035477,000086: 
035478,000087: 21,2062           30001                           CA       L                                     #  NO.  IS AN ABORT COMMANDED?
035479,000088: 21,2063           74753                           MASK     BIT1                                  
035480,000089: 21,2064           10000                           CCS      A                                     
035481,000090: 21,2065           12070                           TCF      P70A                                  #  YES.
035482,000091: 21,2066           12145                           TCF      LANDISP                               #  NO.  PROCEED TO R10.
035483,000092: 
035484,000093: 21,2067                                           COUNT*   $$/P70                                
035485,000094: 
035486,000095: 21,2067           02105        P70                TC       LEGAL?                                
035487,000096: 21,2070           44755        P70A               CS       ZERO                                  
035488,000097: 21,2071           12074                           TCF      +3                                    
035489,000098: 21,2072           02105        P71                TC       LEGAL?                                
035490,000099: 21,2073           34752        P71A               CAF      TWO                                   
035491,000100: 21,2074           54002                 +3        TS       Q                                     
035492,000101: 21,2075           00004                           INHINT                                         
035493,000102: 21,2076           00006                           EXTEND                                         
035494,000103: 21,2077           32102                           DCA      CNTABTAD                              
035495,000104: 21,2100           52006                           DTCB                                           
035496,000105: 
035497,000106: 21,2101  E7,1515                                  EBANK=   DVCNTR                                
035498,000107: 21,2101           03400 12067  CNTABTAD           2CADR    CONTABRT                              
035499,000108: 21,2103           00106        1DEC70             DEC      70         B-14                       
035500,000109: 21,2104           00107        1DEC71             DEC      71         B-14                       
035501,000110: 
035502,000111: 05,3400                                           BANK     05                                    
035503,000112: 05,2000                                           SETLOC   ABORTS1                               
035504,000113: 05,2000                                           BANK                                           
035505,000114: 05,3400                                           COUNT*   $$/P70                                
035506,000115: 
035507,000116: 05,3400           33403        CONTABRT           CAF      ABRTJADR                              
035508,000117: 05,3401           54017                           TS       BRUPT                                 
035509,000118: 05,3402           50017                           RESUME                                         
035510,000119: 
035511,000120: 05,3403           13404        ABRTJADR           TCF      ABRTJASK                              
035512,000121: 
035513,000122: 05,3404           33464        ABRTJASK           CAF      OCTAL27                               
035514,000123: 

Page 825

035516,000125: 05,3405           60002                           AD       Q                                     
035517,000126: 05,3406           54001                           TS       L                                     
035518,000127: 05,3407           40000                           COM                                            
035519,000128: 05,3410           52760                           DXCH     -PHASE4                               
035520,000129: 05,3411           50002                           INDEX    Q                                     
035521,000130: 05,3412           33463                           CAF      MODE70                                
035522,000131: 05,3413           55010                           TS       MODREG                                
035523,000132: 
035524,000133: 05,3414           55162                           TS       DISPDEX                               #  INSURE DISPDEX IS POSITIVE.
035525,000134: 
035526,000135: 05,3415           10002                           CCS      Q                                     #  SET APSFLAG IF P71.
035527,000136: 05,3416           40106                           CS       FLGWRD10                              #  SET APSFLAG PRIOR TO THE ENEMA.
035528,000137: 05,3417           74737                           MASK     APSFLBIT                              
035529,000138: 05,3420           26106                           ADS      FLGWRD10                              
035530,000139: 05,3421           43466                           CS       DAPBITS                               #  DAPBITS = OCT 40640 = BITS 6,8,9,15
035531,000140: 05,3422           70111                           MASK     DAPBOOLS                              #  RESET ULLAGE,DRIFT,XOVRIINH,AND PULSES
035532,000141: 05,3423           54111                           TS       DAPBOOLS                              
035533,000142: 
035534,000143: 05,3424           33467                           CAF      1DEGDB                                #  INSURE DAP DEADBAND IS SET TO 1 DEGREE
035535,000144: 05,3425           55343                           TS       DB                                    
035536,000145: 
035537,000146: 05,3426           40101                           CS       FLAGWRD5                              #  SET ENGONFLG.
035538,000147: 05,3427           74745                           MASK     ENGONBIT                              
035539,000148: 05,3430           26101                           ADS      FLAGWRD5                              
035540,000149: 
035541,000150: 05,3431           44355                           CS       PRIO30                                #  INSURE THAT THE ENGINE IS ON, IF ARMED.
035542,000151: 05,3432           00006                           EXTEND                                         
035543,000152: 05,3433           02011                           RAND     DSALMOUT                              
035544,000153: 05,3434           64737                           AD       BIT13                                 
035545,000154: 05,3435           00006                           EXTEND                                         
035546,000155: 05,3436           01011                           WRITE    DSALMOUT                              
035547,000156: 
035548,000157: 05,3437           34735                           CAF      LRBYBIT                               #  TERMINATE R12.
035549,000158: 05,3440           54107                           TS       FLGWRD11                              
035550,000159: 
035551,000160: 05,3441           40074                           CS       FLAGWRD0                              #  SET R10FLAG TO SUPPRESS OUTPUTS TO THE
035552,000161: 05,3442           74752                           MASK     R10FLBIT                              #  CROSS-POINTER DISPLAY.
035553,000162: 05,3443           26074                           ADS      FLAGWRD0                              #  THE FOLLOWING ENEMA WILL REMOVE THE
035554,000163:                                                                                                  #  DISPLAY INERTIAL DATA OUTBIT.
035555,000164: 
035556,000165: 05,3444           00006                           EXTEND                                         #  LOAD TEVENT FOR THE DOWNLINK.
035557,000166: 05,3445           30025                           DCA      TIME2                                 
035558,000167: 05,3446           53342                           DXCH     TEVENT                                
035559,000168: 
035560,000169: 05,3447           00006                           EXTEND                                         
035561,000170: 05,3450           33462                           DCA      SVEXITAD                              
035562,000171: 05,3451           53252                           DXCH     AVGEXIT                               
035563,000172: 
035564,000173: 05,3452           02653                           TC       ABTKLEAN                              #  KILL GROUPS 1,3, AND 6.
035565,000174: 

Page 826

035567,000176: 05,3453           36250                           CAF      THREE                                 #  SET UP 4.3SPOT FOR GOABORT
035568,000177: 05,3454           54001                           TS       L                                     
035569,000178: 05,3455           40000                           COM                                            
035570,000179: 05,3456           52760                           DXCH     -PHASE4                               
035571,000180: 
035572,000181: 05,3457           04635                           TC       POSTJUMP                              
035573,000182: 05,3460           12763                           CADR     ENEMA                                 
035574,000183: 
035575,000184: 05,3461  E7,1515                                  EBANK=   DVCNTR                                
035576,000185: 05,3461           03761 64067  SVEXITAD           2CADR    SERVEXIT                              
035577,000186: 05,3463           00106        MODE70             DEC      70         B-14                       
035578,000187: 05,3464           00027        OCTAL27            OCT      27                                    
035579,000188: 05,3465           00107        MODE71             DEC      71         B-14                       
035580,000189: 
035581,000190: 05,3466           40640        DAPBITS            OCT      40640                                 
035582,000191: 
035583,000192: 05,3467           00554        1DEGDB             OCT      00554                                 
035584,000193: 32,3547                                           BANK     32                                    
035585,000194: 32,2000                                           SETLOC   ABORTS                                
035586,000195: 32,2000                                           BANK                                           
035587,000196: 
035588,000197: 32,3547                                           COUNT*   $$/P70                                
035589,000198: 
035590,000199: 32,3547           34751        GOABORT            CAF      FOUR                                  
035591,000200: 32,3550           55515                           TS       DVCNTR                                
035592,000201: 
035593,000202: 32,3551           33756                           CAF      WHICHADR                              
035594,000203: 32,3552           55455                           TS       WHICH                                 
035595,000204: 
035596,000205: 32,3553           06042                           TC       INTPRET                               
035597,000206: 32,3554           43014                           CLEAR    CLEAR                                 
035598,000207: 32,3555           04665                                    FLRCS                                 
035599,000208: 32,3556           04265                                    FLUNDISP                              
035600,000209: 32,3557           43014                           CLEAR    SET                                   
035601,000210: 32,3560           03670                                    IDLEFLAG                              
035602,000211: 32,3561           06464                                    ACC4-2FL                              
035603,000212: 32,3562           45014                           SET      CALL                                  
035604,000213: 32,3563           04462                                    P7071FLG                              
035605,000214: 32,3564           61071                                    INITCDUW                              

Note: Above interpretive operand "INITCDUW" is circled with a black pen.

035607,000216: 32,3565           77776                           EXIT                                           
035608,000217: 
035609,000218: 32,3566           05321                           TC       CHECKMM                               
035610,000219: 32,3567           00106        70DEC              DEC      70         B-14                       
035611,000220: 32,3570           13702                           TCF      P71RET                                
035612,000221: 
035613,000222: 32,3571           06042        P70INIT            TC       INTPRET                               
035614,000223: 32,3572           77624                           CALL                                           
035615,000224: 32,3573           65731                                    TGOCOMP                               
035616,000225: 32,3574           54345                           DLOAD    SL                                    
035617,000226: 

Page 827

035619,000228: 32,3575           34003                                    MDOTDPS                               
035620,000229: 32,3576           20205                                    4D                                    
035621,000230: 32,3577           77665                           BDDV                                           
035622,000231: 32,3600           01244                                    MASS                                  
035623,000232: 32,3601           16271                           STODL    TBUP                                  
035624,000233: 32,3602           01244                                    MASS                                  
035625,000234: 32,3603           70471                           DDV      SR1                                   
035626,000235: 32,3604           16015                                    K(1/DV)                               
035627,000236: 32,3605           03635                           STORE    1/DV1                                 
035628,000237: 32,3606           03637                           STORE    1/DV2                                 
035629,000238: 32,3607           03641                           STORE    1/DV3                                 
035630,000239: 32,3610           77665                           BDDV                                           
035631,000240: 32,3611           25755                                    K(AT)                                 
035632,000241: 32,3612           16263                           STODL    AT                                    
035633,000242: 32,3613           34015                                    100PCTTO                              
035634,000243: 32,3614           02267                           STORE    TTO                                   
035635,000244: 32,3615           57535                           SLOAD    DCOMP                                 
035636,000245: 32,3616           26002                                    DPSVEX                                
035637,000246: 32,3617           77702                           SR2                                            
035638,000247: 32,3620           36265                           STCALL   VE                                    
035639,000248: 32,3621           60275                                    COMMINIT                              
035640,000249: 32,3622           77745        INJTARG            DLOAD                                          
035641,000250: 32,3623           02567                                    ABTRDOT                               
035642,000251: 32,3624           36273                           STCALL   RDOTD                                 #  INITIALIZE RDOTD.
035643,000252: 32,3625           57312                                    YCOMP                                 #  COMPUTE Y
035644,000253: 32,3626           45246                           ABS      DSU                                   
035645,000254: 32,3627           02565                                    YLIM                                  #  /Y/-DYMAX
035646,000255: 32,3630           75240                           BMN      SIGN                                  #  IF <0, XR<.5DEG, LEAVE YCO AT 0
035647,000256: 32,3631           65634                                    YOK                                   #  IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
035648,000257: 32,3632           02335                                    Y                                     
035649,000258: 32,3633           03633                           STORE    YCO                                   
035650,000259: 32,3634           45345        YOK                DLOAD    DSU                                   
035651,000260: 32,3635           03633                                    YCO                                   
035652,000261: 32,3636           02335                                    Y                                     
035653,000262: 32,3637           77661                           SR                                             
035654,000263: 32,3640           20606                                    5D                                    
035655,000264: 32,3641           03643                           STORE    XRANGE                                
035656,000265: 32,3642           45014                           SET      CALL                                  
035657,000266: 32,3643           04461                                    FLVR                                  
035658,000267: 32,3644           71554                                    THETCOMP                              
035659,000268: 32,3645           51025                           DSU      BPL                                   
035660,000269: 32,3646           02561                                    THETCRIT                              
035661,000270: 32,3647           65653                                    +4                                    
035662,000271: 32,3650           52175                           VLOAD    GOTO                                  
035663,000272: 32,3651           02551                                    J1PARM                                
035664,000273: 32,3652           65655                                    +3                                    
035665,000274: 32,3653           77775                 +4        VLOAD                                          
035666,000275: 32,3654           02555                                    J2PARM                                
035667,000276: 32,3655           16621                 +3        STODL    JPARM                                 
035668,000277: 32,3656           03631                                    RCO                                   
035669,000278: 

Page 828

035671,000280: 32,3657           02625                           STORE    RP                                    
035672,000281: 32,3660           77414                           SET      EXIT                                  
035673,000282: 32,3661           04471                                    ROTFLAG                               
035674,000283: 
035675,000284: 32,3662           03740        UPTHROT            TC       THROTUP                               
035676,000285: 
035677,000286: 32,3663           05353                           TC       PHASCHNG                              
035678,000287: 32,3664           04024                           OCT      04024                                 
035679,000288: 
035680,000289: 32,3665           05504                           TC       UPFLAG                                
035681,000290: 32,3666           00216                           ADRES    FLAP                                  
035682,000291: 
035683,000292: 32,3667           04616        UPTHROT1           TC       BANKCALL                              #  VERIFY THAT THE PANEL SWITCHES
035684,000293: 32,3670           73707                           CADR     P40AUTO                               #  ARE PROPERLY SET.
035685,000294: 
035686,000295: 32,3671           03740                           TC       THROTUP                               
035687,000296: 
035688,000297: 32,3672           35027                           CAF      PRIO17                                #  LET SERVICER FINISH BEFORE CONNECTING
035689,000298: 32,3673           05146                           TC       PRIOCHNG                              #      ASCENT GUIDANCE EQUATIONS.
035690,000299: 
035691,000300: 32,3674           00006                           EXTEND                                         
035692,000301: 32,3675           33760                           DCA      ATMAGAD                               
035693,000302: 32,3676           53252                           DXCH     AVGEXIT                               
035694,000303: 
035695,000304: 32,3677           05353        GRP4OFF            TC       PHASCHNG                              #  TERMINATE USE OF GROUP 4.
035696,000305: 32,3700           00004                           OCT      00004                                 
035697,000306: 
035698,000307: 32,3701           15155                           TCF      ENDOFJOB                              
035699,000308: 
035700,000309: 32,3702           05516        P71RET             TC       DOWNFLAG                              
035701,000310: 32,3703           00215                           ADRES    LETABORT                              
035702,000311: 
035703,000312: 32,3704           36000                           CAF      THRESH2                               #  SET DVMON THRESHOLD TO THE ASCENT VALUE.
035704,000313: 32,3705           55250                           TS       DVTHRUSH                              
035705,000314: 
035706,000315: 32,3706           06042                           TC       INTPRET                               
035707,000316: 32,3707           77624                           CALL                                           
035708,000317: 32,3710           60251                                    P12INIT                               
035709,000318: 32,3711           45014                           BON      CALL                                  
035710,000319: 32,3712           04707                                    FLAP                                  
035711,000320: 32,3713           65717                                    OLDTIME                               
035712,000321: 32,3714           65731                                    TGOCOMP                               #  IF FLAP=0, TGO=T-TIG
035713,000322: 32,3715           77650                           GOTO                                           
035714,000323: 32,3716           65622                                    INJTARG                               
035715,000324: 32,3717           72545        OLDTIME            DLOAD    SL1                                   #  IF FLAP=1,TGO=2 TGO
035716,000325: 32,3720           03517                                    TGO                                   
035717,000326: 32,3721           03502                           STORE    TGO1                                  
035718,000327: 32,3722           77776                           EXIT                                           
035719,000328: 
035720,000329: 32,3723           05353                           TC       PHASCHNG                              
035721,000330: 

Page 829

035723,000332: 32,3724           04024                           OCT      04024                                 
035724,000333: 
035725,000334: 32,3725           00006                           EXTEND                                         
035726,000335: 32,3726           31502                           DCA      TGO1                                  
035727,000336: 32,3727           53517                           DXCH     TGO                                   
035728,000337: 32,3730           13667                           TCF      UPTHROT1                              
035729,000338: 
035730,000339: 32,3731  E7,1501               TGO1               =        VGBODY                                
035731,000340:                                                                                                  #  ************************************************************************
035732,000341: 
035733,000342: 21,2105                                           BANK     21                                    
035734,000343: 21,2000                                           SETLOC   R11                                   
035735,000344: 21,2000                                           BANK                                           
035736,000345: 
035737,000346: 21,2105                                           COUNT*   $$/P70                                
035738,000347: 
035739,000348: 21,2105           40774        LEGAL?             CS       MMNUMBER                              #  IS THE DESIRED PGM ALREADY IN PROGRESS?
035740,000349: 21,2106           61010                           AD       MODREG                                
035741,000350: 21,2107           00006                           EXTEND                                         
035742,000351: 21,2110           12121                           BZF      ABORTALM                              
035743,000352: 
035744,000353: 21,2111           40105                           CS       FLAGWRD9                              #  ARE THE ABORTS ENABLED?
035745,000354: 21,2112           74743                           MASK     LETABBIT                              
035746,000355: 21,2113           10000                           CCS      A                                     
035747,000356: 21,2114           12121                           TCF      ABORTALM                              
035748,000357: 
035749,000358: 21,2115           30103                           CA       FLAGWRD7                              #  IS SERVICER ON THE AIR?
035750,000359: 21,2116           74747                           MASK     AVEGFBIT                              
035751,000360: 21,2117           10000                           CCS      A                                     
035752,000361: 21,2120           00002                           TC       Q                                     #  YES.  ALL IS WELL.
035753,000362: 21,2121           04364        ABORTALM           TC       FALTON                                
035754,000363: 21,2122           04457                           TC       RELDSP                                
035755,000364: 21,2123           04635                           TC       POSTJUMP                              
035756,000365: 21,2124           21051                           CADR     PINBRNCH                              
035757,000366: 
035758,000367: 32,3731                                           BANK     32                                    
035759,000368: 32,2000                                           SETLOC   ABORTS                                
035760,000369: 32,2000                                           BANK                                           
035761,000370: 
035762,000371: 32,3731                                           COUNT*   $$/P70                                
035763,000372: 
035764,000373:                                                                                                  #  ************************************************************************
035765,000374: 
035766,000375: 32,3731           45234        TGOCOMP            RTB      DSU                                   
035767,000376: 32,3732           21574                                    LOADTIME                              
035768,000377: 32,3733           03442                                    TIG                                   
035769,000378: 32,3734           77661                           SL                                             
035770,000379: 32,3735           20214                                    11D                                   
035771,000380: 32,3736           03517                           STORE    TGO                                   
035772,000381: 32,3737           77616                           RVQ                                            
035773,000382: 

Page 830

035775,000384:                                                                                                  #  ************************************************************************
035776,000385: 
035777,000386: 32,3740           34737        THROTUP            CAF      BIT13                                 
035778,000387: 32,3741           54055                           TS       THRUST                                
035779,000388: 32,3742           34750                           CAF      BIT4                                  
035780,000389: 32,3743           00006                           EXTEND                                         
035781,000390: 32,3744           05014                           WOR      CHAN14                                
035782,000391: 32,3745           00002                           TC       Q                                     
035783,000392: 
035784,000393:                                                                                                  #  ************************************************************************
035785,000394: 
035786,000395: 32,3746           00000 01750  10SECS             2DEC     1000       B-28                       
035787,000396: 32,3750           00021 33400  HINJECT            2DEC     18288      B-24                       #  60,000 FEET EXPRESSED IN METERS.
035788,000397: 32,3752           11021 00000  (TGO)A             2DEC     37000      B-17                       
035789,000398: 32,3754           00507 25605  K(AT)              2DEC     .02                                   #  SCALING CONSTANT
035790,000399: 32,3756           02114        WHICHADR           REMADR   ABRTABLE                              
035791,000400: 
035792,000401:                                                                                                  #  ************************************************************************
035793,000402: 
035794,000403: 32,3757  E7,1515                                  EBANK=   DVCNTR                                
035795,000404: 32,3757           03372 70067  ATMAGAD            2CADR    ATMAG                                 

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