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.

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

Page 823

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

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

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

Page 824

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

Page 825

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

Page 826

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

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

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

Page 827

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

Page 828

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

Page 829

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

Page 830

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

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