Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

014871,000002:                                                                                                  ## Copyright:    Public domain.
014872,000003:                                                                                                  ## Filename:     DOWN_TELEMETRY_PROGRAM.agc
014873,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
014874,000005:                                                                                                  ## Assembler:    yaYUL
014875,000006:                                                                                                  ## Contact:      Hartmuth Gutsche <hgutsche@xplornet.com>.
014876,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
014877,000008:                                                                                                  ## Pages:        370-376
014878,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
014879,000010:                                                                                                  ##               2016-09-21 HG   Initial transfer from scan
014880,000011:                                                                                                  ##               2016-10-08 HG   Add missed ECADR RSTACK +46D,
014881,000012:                                                                                                  ##                               Remove added decimal markes D  
014882,000013:                                                                                                  ##               2016-10-11 HG   fix label DNPAHSE1 -> DNPHASE1   
014883,000014:                                                                                                  ##                                         DNPAHSE2 -> DNPHASE3 
014884,000015: 
014885,000016:                                                                                                  ## This source code has been transcribed or otherwise adapted from
014886,000017:                                                                                                  ## digitized images of a hardcopy from the private collection of 
014887,000018:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
014888,000019: 
014889,000020:                                                                                                  ## Notations on the hardcopy document read, in part:
014890,000021: 
014891,000022:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014892,000023:                                                                                                  ##       NOV 10, 1966
014893,000024: 
014894,000025:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
014895,000026:                                                                                                  ##       date of the program revision or the assembly.]
014896,000027: 
014897,000028:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
014898,000029:                                                                                                  ## reduction in image quality) are available online at 
014899,000030:                                                                                                  ##       https://www.ibiblio.org/apollo.  
014900,000031:                                                                                                  ## The original high-quality digital images are available at archive.org:
014901,000032:                                                                                                  ##       https://archive.org/details/aurora00dapg
014902,000033: 

Page 370

014904,000035: 15,2000                                           BANK     15                                    
014905,000036: 15,2000  E7,1403                                  EBANK=   DNTMBUFF                              
014906,000037: 15,2000           00437        LOWIDCOD           OCT      00437                                 #  FOD'S CHOICE.
014907,000038:                                                                                                  #        SPECIAL DOWNLINK LIST FOR AGS INITIALIZATION, MUST BE IN LOCATION 2001 OF DOWNLINK FBANK,
014908,000039: 15,2001           00342        AGSLIST            ECADR    UPLOCK                                
014909,000040: 15,2002           00025                           ECADR    TIME1                                 
014910,000041: 15,2003           00024                           ECADR    TIME2                                 
014911,000042: 15,2004           00412                           ECADR    AGSWORD                               
014912,000043: 15,2005           03602                           ECADR    AGSBUFF    +27D                       
014913,000044: 15,2006           03601                           ECADR    AGSBUFF    +26D                       
014914,000045: 15,2007           03600                           ECADR    AGSBUFF    +25D                       
014915,000046: 15,2010           03577                           ECADR    AGSBUFF    +24D                       
014916,000047: 15,2011           00412                           ECADR    AGSWORD                               
014917,000048: 15,2012           03576                           ECADR    AGSBUFF    +23D                       
014918,000049: 15,2013           03575                           ECADR    AGSBUFF    +22D                       
014919,000050: 15,2014           03574                           ECADR    AGSBUFF    +21D                       
014920,000051: 15,2015           03573                           ECADR    AGSBUFF    +20D                       
014921,000052: 15,2016           00412                           ECADR    AGSWORD                               
014922,000053: 15,2017           03572                           ECADR    AGSBUFF    +19D                       
014923,000054: 15,2020           03571                           ECADR    AGSBUFF    +18D                       
014924,000055: 15,2021           03570                           ECADR    AGSBUFF    +17D                       
014925,000056: 15,2022           03567                           ECADR    AGSBUFF    +16D                       
014926,000057: 15,2023           00412                           ECADR    AGSWORD                               
014927,000058: 15,2024           03566                           ECADR    AGSBUFF    +15D                       
014928,000059: 15,2025           03565                           ECADR    AGSBUFF    +14D                       
014929,000060: 15,2026           03564                           ECADR    AGSBUFF    +13D                       
014930,000061: 15,2027           03563                           ECADR    AGSBUFF    +12D                       
014931,000062: 15,2030           00412                           ECADR    AGSWORD                               
014932,000063: 15,2031           03562                           ECADR    AGSBUFF    +11D                       
014933,000064: 15,2032           03561                           ECADR    AGSBUFF    +10D                       
014934,000065: 15,2033           01560                           ADRES    AGSBUFF    +9D                        
014935,000066: 15,2034           01557                           ADRES    AGSBUFF    +8D                        
014936,000067: 15,2035           00412                           ADRES    AGSWORD                               
014937,000068: 15,2036           01556                           ADRES    AGSBUFF    +7                         
014938,000069: 15,2037           01555                           ADRES    AGSBUFF    +6                         
014939,000070: 15,2040           01554                           ADRES    AGSBUFF    +5                         
014940,000071: 15,2041           01553                           ADRES    AGSBUFF    +4                         
014941,000072: 15,2042           00412                           ADRES    AGSWORD                               
014942,000073: 15,2043           01552                           ADRES    AGSBUFF    +3                         
014943,000074: 15,2044           01551                           ADRES    AGSBUFF    +2                         
014944,000075: 15,2045           01550                           ADRES    AGSBUFF    +1                         
014945,000076: 15,2046           01547                           ADRES    AGSBUFF                               

Page 371

014947,000078:                                                                                                  #        THIS ROUTINE IS INITIATED EVERY 20MS BY AN INTERRUPT TRIGGERED
014948,000079:                                                                                                  #  BY THE RECEIPT OF AN ENDPULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER.
014949,000080: 
014950,000081: 15,2047           54016        DODOWNTM           TS       BANKRUPT                              #  DO APPROPRIATE TM PHASE.
014951,000082: 15,2050           51401                           INDEX    DNTMGOTO                              
014952,000083: 15,2051           10000                           TCF      0                                     
014953,000084: 
014954,000085: 15,2052           30411        DNPHASE1           CA       DNLSTADR                              #  ONCE PER CYCLE (1 SECOND), AN ID IS SENT
014955,000086: 15,2053           55400                           TS       LDATALST                              #  AND THE DATA LIST SWITCHED TO THAT
014956,000087: 15,2054           76426                           MASK     LOW10                                 #  SELECTED BY A MISSION OR TEST PROGRAM.
014957,000088: 15,2055           00006                           EXTEND                                         
014958,000089: 15,2056           01034                           WRITE    DNTM1                                 
014959,000090: 15,2057           47651                           CS       BIT7                                  #  WORD ORDER BIT IS 0 FOR ID WORD ONLY.
014960,000091: 15,2060           00006                           EXTEND                                         
014961,000092: 15,2061           03013                           WAND     13                                    
014962,000093: 
014963,000094: 15,2062           32212                           CAF      LDNPHAS2                              #  SWITCH TO PHASE 2.
014964,000095: 15,2063           55401                           TS       DNTMGOTO                              
014965,000096: 15,2064           32000                           CAF      LOWIDCOD                              #  SPECIAL ID CODE IN L.
014966,000097: 15,2065           12151                           TCF      TMEXITL                               
014967,000098: 
014968,000099: 15,2066           37651        DNPHASE2           CAF      BIT7                                  #  SET WORD ORDER BACK TO 1 FOR REMAINDER
014969,000100: 15,2067           00006                           EXTEND                                         #  OF CYCLE AND SET UP TO PICK UP 12 PAIRS
014970,000101: 15,2070           05013                           WOR      13                                    #  FROM ANYWHERE IN COMMON ERASABLE OR E7.
014971,000102: 
014972,000103: 15,2071           37665                           CAF      ZERO                                  
014973,000104: 15,2072           54065                           TS       ITEMP1                                #  TAKE SNAPSHOT OF 12 DP WORDS
014974,000105: 15,2073           37661                           CAF      TEN                                   
014975,000106: 
014976,000107: 15,2074           54066        LOOP               TS       ITEMP2                                #  THESE 12 DP WORDS ARE READ INTO AN
014977,000108: 15,2075           61400                           AD       LDATALST                              #  INTERMEDIATE BUFFER SO THEY REFER TO THE
014978,000109: 15,2076           00006                           EXTEND                                         #  SAME POINT IN THE EXECUTION OF A MISSION
014979,000110: 15,2077           50000                           INDEX    A                                     #  PROGRAM. THE WORDS MAY BE IN NON-
014980,000111: 15,2100           50032                           INDEX    26D                                   
014981,000112: 15,2101           30001                           DCA      0                                     #  12 OF THE DATA LIST ARE USED AS
014982,000113: 15,2102           50065                           INDEX    ITEMP1                                #  ADDRESSES OF THE DESIRED DATA.
014983,000114: 15,2103           53404                           DXCH     DNTMBUFF                              
014984,000115: 
014985,000116: 15,2104           37656                           CAF      TWO                                   
014986,000117: 15,2105           26065                           ADS      ITEMP1                                
014987,000118: 15,2106           10066                           CCS      ITEMP2                                
014988,000119: 15,2107           12074                           TCF      LOOP                                  
014989,000120: 
014990,000121: 15,2110           32220                           CAF      DEC11                                 #  SET UP TO SEND 11 REMAINING WORDS
014991,000122: 15,2111           55402                           TS       TMINDEX                               
014992,000123: 15,2112           32213                           CAF      LDNPHASX                              
014993,000124: 15,2113           55401                           TS       DNTMGOTO                              
014994,000125: 
014995,000126: 15,2114           00006                           EXTEND                                         
014996,000127: 15,2115           51400                           INDEX    LDATALST                              

Page 372

014998,000129: 15,2116           50045                           INDEX    37D                                   
014999,000130: 15,2117           30001                           DCA      0                                     
015000,000131: 15,2120           12146                           TCF      DNTMEXIT                              
015001,000132: 
015002,000133: 15,2121           55402        DNPHASXA           TS       TMINDEX                               
015003,000134: 15,2122           00006                           EXTEND                                         
015004,000135: 15,2123           50000                           INDEX    A                                     #  SENDS SNAPSHOT BUFFER.
015005,000136: 15,2124           52230                           INDEX    FIXLISTB                              
015006,000137: 15,2125           30001                           DCA      0                                     
015007,000138: 15,2126           12146                           TCF      DNTMEXIT                              
015008,000139: 
015009,000140: 15,2127           11402        DNPHASEX           CCS      TMINDEX                               #  AT END OF SNAPSHOT TRANSMISSION, SET UP
015010,000141: 15,2130           12121                           TCF      DNPHASXA                              #  TO SEND 26 PRS FROM ANY ERASABLE LOC AS
015011,000142: 
015012,000143: 15,2131           32214                           CAF      LDNPHAS3                              #  SPECIFIED BY WORDS 1 - 26 OF THE DATA
015013,000144: 15,2132           55401                           TS       DNTMGOTO                              #  LIST.
015014,000145: 15,2133           32217                           CAF      NOGENWDS                              
015015,000146: 
015016,000147: 15,2134           55402        PHASE3A            TS       TMINDEX                               #  GET DP WORD FROM ANY EBANK.
015017,000148: 15,2135           61400                           AD       LDATALST                              
015018,000149: 15,2136           00006                           EXTEND                                         
015019,000150: 15,2137           50000                           INDEX    A                                     
015020,000151: 15,2140           30001                           DCA      0                                     #  THIS GETS THE ADDRESS - MUST USE DCA
015021,000152: 15,2141           54003                           TS       EBANK                                 
015022,000153: 15,2142           75235                           MASK     LOW8                                  
015023,000154: 15,2143           00006                           EXTEND                                         
015024,000155: 15,2144           50000                           INDEX    A                                     
015025,000156: 15,2145           31401                           DCA      3400                                  #  (NOTE ASSEMBLY AS DCA 1400)
015026,000157: 15,2146           00006        DNTMEXIT           EXTEND                                         #  GENERAL DNTM EXIT LOCATION.
015027,000158: 15,2147           01034                           WRITE    DNTM1                                 
015028,000159: 15,2150           30001                           CA       L                                     
015029,000160: 15,2151           00006        TMEXITL            EXTEND                                         
015030,000161: 15,2152           01035                           WRITE    DNTM2                                 
015031,000162: 15,2153           14610                           TCF      NOQRSM                                
015032,000163: 
015033,000164: 15,2154           11402        DNPHASE3           CCS      TMINDEX                               
015034,000165: 15,2155           12134                           TCF      PHASE3A                               
015035,000166: 
015036,000167: 15,2156           32215                           CAF      LDNPHAS4                              #  SEND FIXED FORMAT LIST OF DSPTAB AND
015037,000168: 15,2157           55401                           TS       DNTMGOTO                              #  T2, T1.
015038,000169: 15,2160           36162                           CAF      SIX                                   
015039,000170: 
015040,000171: 15,2161           55402        PHASE4A            TS       TMINDEX                               
015041,000172: 15,2162           00006                           EXTEND                                         #  FIXED DATA LIST FOR DSPTAB AND TIME.
015042,000173: 15,2163           50000                           INDEX    A                                     
015043,000174: 15,2164           52221                           INDEX    FIXLIST                               
015044,000175: 15,2165           30001                           DCA      0                                     
015045,000176: 15,2166           12146                           TCF      DNTMEXIT                              

Page 373

015047,000178: 15,2167           11402        DNPHASE4           CCS      TMINDEX                               
015048,000179: 15,2170           12161                           TCF      PHASE4A                               
015049,000180: 
015050,000181: 15,2171           32216                           CAF      LPHASE5                               #  SET UP FOR CHANNEL TRANSMISSION.
015051,000182: 15,2172           55401                           TS       DNTMGOTO                              
015052,000183: 15,2173           36165                           CAF      THREE                                 #  FOUR PAIRS OF CHANNELS.
015053,000184: 
015054,000185: 15,2174           55402        PHASE5A            TS       TMINDEX                               
015055,000186: 15,2175           00006                           EXTEND                                         
015056,000187: 15,2176           50000                           INDEX    A                                     
015057,000188: 15,2177           52247                           INDEX    FIXLSTCL                              
015058,000189: 15,2200           00000                           READ     0                                     
015059,000190: 15,2201           54001                           TS       L                                     
015060,000191: 15,2202           00006                           EXTEND                                         
015061,000192: 15,2203           51402                           INDEX    TMINDEX                               
015062,000193: 15,2204           52243                           INDEX    FIXLSTCA                              
015063,000194: 15,2205           00000                           READ     0                                     
015064,000195: 15,2206           12146                           TCF      DNTMEXIT                              
015065,000196: 15,2207           11402        DNPHASE5           CCS      TMINDEX                               
015066,000197: 15,2210           12174                           TCF      PHASE5A                               
015067,000198: 15,2211           12052                           TCF      DNPHASE1                              #  START NEXT CYCLE.

Page 374

015069,000200:                                                                                                  #        CONSTNATS AND FIXED FORMAT DATA LIST.
015070,000201: 15,2212           02066        LDNPHAS2           ADRES    DNPHASE2                              
015071,000202: 15,2213           02127        LDNPHASX           ADRES    DNPHASEX                              
015072,000203: 15,2214           02154        LDNPHAS3           ADRES    DNPHASE3                              
015073,000204: 15,2215           02167        LDNPHAS4           ADRES    DNPHASE4                              
015074,000205: 15,2216           02207        LPHASE5            ADRES    DNPHASE5                              
015075,000206: 
015076,000207: 15,2217           00031        NOGENWDS           DEC      25         B-14                       #  26 WORDS SENT DURING PHASE 3.
015077,000208: 15,2220           00013        DEC11              DEC      11         B-14                       
015078,000209: 
015079,000210: 15,2221           00024        FIXLIST            ADRES    TIME2                                 #  FIXED-FORMAT PORTION INCLUDES BUFFER,
015080,000211: 15,2222           00321                           ADRES    DSPTAB     +10D                       #  DSPTAB, AND TIME.
015081,000212: 15,2223           00317                           ADRES    DSPTAB     +8D                        
015082,000213: 15,2224           00315                           ADRES    DSPTAB     +6                         
015083,000214: 15,2225           00313                           ADRES    DSPTAB     +4                         
015084,000215: 15,2226           00311                           ADRES    DSPTAB     +2                         
015085,000216: 15,2227           00307                           ADRES    DSPTAB                                
015086,000217: 
015087,000218: 15,2230           01427        FIXLISTB           ADRES    DNTMBUFF   +20D                       
015088,000219: 15,2231           01425                           ADRES    DNTMBUFF   +18D                       
015089,000220: 15,2232           01423                           ADRES    DNTMBUFF   +16D                       
015090,000221: 15,2233           01421                           ADRES    DNTMBUFF   +14D                       
015091,000222: 15,2234           01417                           ADRES    DNTMBUFF   +12D                       
015092,000223: 15,2235           01415                           ADRES    DNTMBUFF   +10D                       
015093,000224: 15,2236           01413                           ADRES    DNTMBUFF   +8D                        
015094,000225: 15,2237           01411                           ADRES    DNTMBUFF   +6D                        
015095,000226: 15,2240           01407                           ADRES    DNTMBUFF   +4D                        
015096,000227: 15,2241           01405                           ADRES    DNTMBUFF   +2D                        
015097,000228: 15,2242           01403                           ADRES    DNTMBUFF                              
015098,000229: 
015099,000230: 15,2243           00032        FIXLSTCA           OCT      32                                    #  CHANNEL ADDRESSES.
015100,000231: 15,2244           00030                           OCT      30                                    
015101,000232: 15,2245           00013                           OCT      13                                    
015102,000233: 15,2246           00011                           OCT      11                                    
015103,000234: 
015104,000235: 15,2247           00033        FIXLSTCL           OCT      33                                    
015105,000236: 15,2250           00031                           OCT      31                                    
015106,000237: 15,2251           00014                           OCT      14                                    
015107,000238: 15,2252           00012                           OCT      12                                    

Page 375

015109,000240:                                                                                                  #        SPECIAL DATA LIST FOR HIGH SPEED RADAR SAMPLING. TELEMETERS TABLE OF 12 MEASUREMENTS OF 5 WORDS EACH -
015110,000241:                                                                                                  #  DATA IN WORDS 1 & 2, RR CDU ANGLES IN 3 & 4, AND TIME 1 IN 5
015111,000242: 15,2253           00342        FSTRADTM           ECADR    UPLOCK                                
015112,000243: 15,2254           03436                           ECADR    RFAILCNT                              #  COUNTS BAD SAMPLES.
015113,000244: 15,2255           03545                           ECADR    RSTACK     +70D                       
015114,000245: 15,2256           03543                           ECADR    RSTACK     +68D                       
015115,000246: 15,2257           03541                           ECADR    RSTACK     +66D                       
015116,000247: 15,2260           03537                           ECADR    RSTACK     +64D                       
015117,000248: 15,2261           03535                           ECADR    RSTACK     +62D                       
015118,000249: 15,2262           03533                           ECADR    RSTACK     +60D                       
015119,000250: 15,2263           03531                           ECADR    RSTACK     +58D                       
015120,000251: 15,2264           03527                           ECADR    RSTACK     +56D                       
015121,000252: 15,2265           03525                           ECADR    RSTACK     +54D                       
015122,000253: 15,2266           03523                           ECADR    RSTACK     +52D                       
015123,000254: 15,2267           03521                           ECADR    RSTACK     +50D                       
015124,000255: 15,2270           03517                           ECADR    RSTACK     +48D                       
015125,000256: 15,2271           03515                           ECADR    RSTACK     +46D                       
015126,000257: 15,2272           03513                           ECADR    RSTACK     +44D                       
015127,000258: 15,2273           03511                           ECADR    RSTACK     +42D                       
015128,000259: 15,2274           03507                           ECADR    RSTACK     +40D                       
015129,000260: 15,2275           03505                           ECADR    RSTACK     +38D                       
015130,000261: 15,2276           03503                           ECADR    RSTACK     +36D                       
015131,000262: 15,2277           03501                           ECADR    RSTACK     +34D                       
015132,000263: 15,2300           03477                           ECADR    RSTACK     +32D                       
015133,000264: 15,2301           03475                           ECADR    RSTACK     +30D                       
015134,000265: 15,2302           03473                           ECADR    RSTACK     +28D                       
015135,000266: 15,2303           03471                           ECADR    RSTACK     +26D                       
015136,000267: 15,2304           03467                           ECADR    RSTACK     +24D                       
015137,000268: 15,2305           01465                           ADRES    RSTACK     +22D                       
015138,000269: 15,2306           01463                           ADRES    RSTACK     +20D                       
015139,000270: 15,2307           01461                           ADRES    RSTACK     +18D                       
015140,000271: 15,2310           01457                           ADRES    RSTACK     +16D                       
015141,000272: 15,2311           01455                           ADRES    RSTACK     +14D                       
015142,000273: 15,2312           01453                           ADRES    RSTACK     +12D                       
015143,000274: 15,2313           01451                           ADRES    RSTACK     +10D                       
015144,000275: 15,2314           01447                           ADRES    RSTACK     +8D                        
015145,000276: 15,2315           01445                           ADRES    RSTACK     +6                         
015146,000277: 15,2316           01443                           ADRES    RSTACK     +4                         
015147,000278: 15,2317           01441                           ADRES    RSTACK     +2                         
015148,000279: 15,2320           01437                           ADRES    RSTACK                                

Page 376

015150,000281:                                                                                                  #        NOMINAL AURORA DOWNLIST.
015151,000282: 15,2321           00342        NOMDNLST           ECADR    UPLOCK                                
015152,000283: 15,2322           02634                           ECADR    DATAPL     +6                         
015153,000284: 15,2323           02632                           ECADR    DATAPL     +4                         
015154,000285: 15,2324           02630                           ECADR    DATAPL     +2                         
015155,000286: 15,2325           02626                           ECADR    DATAPL                                
015156,000287: 15,2326           02650                           ECADR    VLAUN      +4                         
015157,000288: 15,2327           02644                           ECADR    VLAUN                                 
015158,000289: 15,2330           02634                           ECADR    ANGX                                  
015159,000290: 15,2331           02632                           ECADR    ANGY                                  
015160,000291: 15,2332           02626                           ECADR    ANGZ                                  
015161,000292: 15,2333           02624                           ECADR    INTY                                  
015162,000293: 15,2334           02576                           ECADR    DRIFTT                                
015163,000294: 15,2335           02640                           ECADR    DRIFTI                                
015164,000295: 15,2336           02636                           ECADR    DRIFTO                                
015165,000296: 15,2337           00374                           ECADR    MARKSTAT                              
015166,000297: 15,2340           00402                           ECADR    THETAD     +2                         
015167,000298: 15,2341           00400                           ECADR    THETAD                                
015168,000299: 15,2342           00423                           ECADR    TANG                                  
015169,000300: 15,2343           00362                           ECADR    LASTYCMD                              
015170,000301: 15,2344           00366                           ECADR    LMPCMD                                
015171,000302: 15,2345           01362                           ECADR    REDOCTR                               #  INCLUDES FAILREG.
015172,000303: 15,2346           00063                           ECADR    STATE      +2                         
015173,000304: 15,2347           00061                           ECADR    STATE                                 
015174,000305: 15,2350           00035                           ECADR    OPTY                                  
015175,000306: 15,2351           00034                           ECADR    CDUZ                                  
015176,000307: 15,2352           00032                           ECADR    CDUX                                  
015177,000308: 15,2353           00360                           ADRES    FORVEL                                
015178,000309: 15,2354           00355                           ADRES    FINALT                                
015179,000310: 15,2355           00364                           ADRES    ALTSAVE                               
015180,000311: 15,2356           00354                           ADRES    ALTRATE                               
015181,000312: 15,2357           00352                           ADRES    ALT                                   
015182,000313: 15,2360           00421                           ADRES    TIMEHOLD                              
015183,000314: 15,2361           00417                           ADRES    OPTYHOLD                              
015184,000315: 15,2362           00415                           ADRES    SAMPLSUM                              
015185,000316: 15,2363           00427                           ADRES    OLDATAGD                              
015186,000317: 15,2364           00413                           ADRES    RADMODES                              
015187,000318: 15,2365           00041                           ADRES    PIPAZ                                 
015188,000319: 15,2366           00037                           ADRES    PIPAX                                 
015189,000320: 15,2367                        ENDDNTMS           EQUALS                                         

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