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.

014948,000002:                                                                                                  ## Copyright:    Public domain.
014949,000003:                                                                                                  ## Filename:     DOWN_TELEMETRY_PROGRAM.agc
014950,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
014951,000005:                                                                                                  ## Assembler:    yaYUL
014952,000006:                                                                                                  ## Contact:      Hartmuth Gutsche <hgutsche@xplornet.com>.
014953,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
014954,000008:                                                                                                  ## Pages:        370-376
014955,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
014956,000010:                                                                                                  ##               2016-09-21 HG   Initial transfer from scan
014957,000011:                                                                                                  ##               2016-10-08 HG   Add missed ECADR RSTACK +46D,
014958,000012:                                                                                                  ##                               Remove added decimal markes D  
014959,000013:                                                                                                  ##               2016-10-11 HG   fix label DNPAHSE1 -> DNPHASE1   
014960,000014:                                                                                                  ##                                         DNPAHSE2 -> DNPHASE3 
014961,000015:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
014962,000016:                                                                                                  ##                               and fixed the errors found.
014963,000017: 
014964,000018:                                                                                                  ## This source code has been transcribed or otherwise adapted from
014965,000019:                                                                                                  ## digitized images of a hardcopy from the private collection of 
014966,000020:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
014967,000021: 
014968,000022:                                                                                                  ## Notations on the hardcopy document read, in part:
014969,000023: 
014970,000024:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014971,000025:                                                                                                  ##       NOV 10, 1966
014972,000026: 
014973,000027:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
014974,000028:                                                                                                  ##       date of the program revision or the assembly.]
014975,000029: 
014976,000030:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
014977,000031:                                                                                                  ## reduction in image quality) are available online at 
014978,000032:                                                                                                  ##       https://www.ibiblio.org/apollo.  
014979,000033:                                                                                                  ## The original high-quality digital images are available at archive.org:
014980,000034:                                                                                                  ##       https://archive.org/details/aurora00dapg
014981,000035: 

Page 370

014983,000037: 15,2000                                           BANK     15                                    
014984,000038: 15,2000  E7,1403                                  EBANK=   DNTMBUFF                              
014985,000039: 15,2000           00437        LOWIDCOD           OCT      00437                                 #  FOD'S CHOICE.
014986,000040:                                                                                                  #        SPECIAL DOWNLINK LIST FOR AGS INITIALIZATION, MUST BE IN LOCATION 2001 OF DOWNLINK FBANK,
014987,000041: 15,2001           00342        AGSLIST            ECADR    UPLOCK                                
014988,000042: 15,2002           00025                           ECADR    TIME1                                 
014989,000043: 15,2003           00024                           ECADR    TIME2                                 
014990,000044: 15,2004           00412                           ECADR    AGSWORD                               
014991,000045: 15,2005           03602                           ECADR    AGSBUFF    +27D                       
014992,000046: 15,2006           03601                           ECADR    AGSBUFF    +26D                       
014993,000047: 15,2007           03600                           ECADR    AGSBUFF    +25D                       
014994,000048: 15,2010           03577                           ECADR    AGSBUFF    +24D                       
014995,000049: 15,2011           00412                           ECADR    AGSWORD                               
014996,000050: 15,2012           03576                           ECADR    AGSBUFF    +23D                       
014997,000051: 15,2013           03575                           ECADR    AGSBUFF    +22D                       
014998,000052: 15,2014           03574                           ECADR    AGSBUFF    +21D                       
014999,000053: 15,2015           03573                           ECADR    AGSBUFF    +20D                       
015000,000054: 15,2016           00412                           ECADR    AGSWORD                               
015001,000055: 15,2017           03572                           ECADR    AGSBUFF    +19D                       
015002,000056: 15,2020           03571                           ECADR    AGSBUFF    +18D                       
015003,000057: 15,2021           03570                           ECADR    AGSBUFF    +17D                       
015004,000058: 15,2022           03567                           ECADR    AGSBUFF    +16D                       
015005,000059: 15,2023           00412                           ECADR    AGSWORD                               
015006,000060: 15,2024           03566                           ECADR    AGSBUFF    +15D                       
015007,000061: 15,2025           03565                           ECADR    AGSBUFF    +14D                       
015008,000062: 15,2026           03564                           ECADR    AGSBUFF    +13D                       
015009,000063: 15,2027           03563                           ECADR    AGSBUFF    +12D                       
015010,000064: 15,2030           00412                           ECADR    AGSWORD                               
015011,000065: 15,2031           03562                           ECADR    AGSBUFF    +11D                       
015012,000066: 15,2032           03561                           ECADR    AGSBUFF    +10D                       
015013,000067: 15,2033           01560                           ADRES    AGSBUFF    +9D                        
015014,000068: 15,2034           01557                           ADRES    AGSBUFF    +8D                        
015015,000069: 15,2035           00412                           ADRES    AGSWORD                               
015016,000070: 15,2036           01556                           ADRES    AGSBUFF    +7                         
015017,000071: 15,2037           01555                           ADRES    AGSBUFF    +6                         
015018,000072: 15,2040           01554                           ADRES    AGSBUFF    +5                         
015019,000073: 15,2041           01553                           ADRES    AGSBUFF    +4                         
015020,000074: 15,2042           00412                           ADRES    AGSWORD                               
015021,000075: 15,2043           01552                           ADRES    AGSBUFF    +3                         
015022,000076: 15,2044           01551                           ADRES    AGSBUFF    +2                         
015023,000077: 15,2045           01550                           ADRES    AGSBUFF    +1                         
015024,000078: 15,2046           01547                           ADRES    AGSBUFF                               

Page 371

015026,000080:                                                                                                  #        THIS ROUTINE IS INITITATED EVERY 20MS BY AN INTERRUPT TRIGGERED
015027,000081:                                                                                                  #  BY THE RECEIPT OF AN ENDPULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER.
015028,000082: 
015029,000083: 15,2047           54016        DODOWNTM           TS       BANKRUPT                              #  DO APPROPRIATE TM PHASE.
015030,000084: 15,2050           51401                           INDEX    DNTMGOTO                              
015031,000085: 15,2051           10000                           TCF      0                                     
015032,000086: 
015033,000087: 15,2052           30411        DNPHASE1           CA       DNLSTADR                              #  ONCE PER CYCLE (1 SECOND), AN ID IS SENT
015034,000088: 15,2053           55400                           TS       LDATALST                              #  AND THE DATA LIST SWITCHED TO THAT
015035,000089: 15,2054           76426                           MASK     LOW10                                 #  SELECTED BY A MISSION OR TEST PROGRAM.
015036,000090: 15,2055           00006                           EXTEND                                         
015037,000091: 15,2056           01034                           WRITE    DNTM1                                 
015038,000092: 15,2057           47651                           CS       BIT7                                  #  WORD ORDER BIT IS 0 FOR ID OWRD ONLY.
015039,000093: 15,2060           00006                           EXTEND                                         
015040,000094: 15,2061           03013                           WAND     13                                    
015041,000095: 
015042,000096: 15,2062           32212                           CAF      LDNPHAS2                              #  SWITCH TO PHASE 2.
015043,000097: 15,2063           55401                           TS       DNTMGOTO                              
015044,000098: 15,2064           32000                           CAF      LOWIDCOD                              #  SPECIAL ID CODE IN L.
015045,000099: 15,2065           12151                           TCF      TMEXITL                               
015046,000100: 
015047,000101: 15,2066           37651        DNPHASE2           CAF      BIT7                                  #  SET WORD ORDER BACK TO 1 FOR REMAINDER
015048,000102: 15,2067           00006                           EXTEND                                         #  OF CYCLE AND SET UP TO PICK UP 12 PAIRS
015049,000103: 15,2070           05013                           WOR      13                                    #  FROM ANYWHERE IN COMMON ERASABLE OR E7.
015050,000104: 
015051,000105: 15,2071           37665                           CAF      ZERO                                  
015052,000106: 15,2072           54065                           TS       ITEMP1                                #  TAKE SNAPSHOT OF 12 DP WORDS.
015053,000107: 15,2073           37661                           CAF      TEN                                   
015054,000108: 
015055,000109: 15,2074           54066        LOOP               TS       ITEMP2                                #  THESE 12 DP WORDS ARE READ INTO AN
015056,000110: 15,2075           61400                           AD       LDATALST                              #  INTERMEDIATE BUFFER SO THEY REFER TO THE
015057,000111: 15,2076           00006                           EXTEND                                         #  SAME POINT IN THE EXECUTION OF A MISSION
015058,000112: 15,2077           50000                           INDEX    A                                     #  PROGRAM. THE WORDS MAY BE IN NON-
015059,000113: 15,2100           50032                           INDEX    26D                                   
015060,000114: 15,2101           30001                           DCA      0                                     #  12 OF THE DATA LIST ARE USED AS
015061,000115: 15,2102           50065                           INDEX    ITEMP1                                #  ADDRESSES OF THE DESIRED DATA.
015062,000116: 15,2103           53404                           DXCH     DNTMBUFF                              
015063,000117: 
015064,000118: 15,2104           37656                           CAF      TWO                                   
015065,000119: 15,2105           26065                           ADS      ITEMP1                                
015066,000120: 15,2106           10066                           CCS      ITEMP2                                
015067,000121: 15,2107           12074                           TCF      LOOP                                  
015068,000122: 
015069,000123: 15,2110           32220                           CAF      DEC11                                 #  SET UP TO SEND 11 REMAINING WORDS
015070,000124: 15,2111           55402                           TS       TMINDEX                               
015071,000125: 15,2112           32213                           CAF      LDNPHASX                              
015072,000126: 15,2113           55401                           TS       DNTMGOTO                              
015073,000127: 
015074,000128: 15,2114           00006                           EXTEND                                         
015075,000129: 15,2115           51400                           INDEX    LDATALST                              

Page 372

015077,000131: 15,2116           50045                           INDEX    37D                                   
015078,000132: 15,2117           30001                           DCA      0                                     
015079,000133: 15,2120           12146                           TCF      DNTMEXIT                              
015080,000134: 
015081,000135: 15,2121           55402        DNPHASXA           TS       TMINDEX                               
015082,000136: 15,2122           00006                           EXTEND                                         
015083,000137: 15,2123           50000                           INDEX    A                                     #  SENDS SNAPSHOT BUFFER.
015084,000138: 15,2124           52230                           INDEX    FIXLISTB                              
015085,000139: 15,2125           30001                           DCA      0                                     
015086,000140: 15,2126           12146                           TCF      DNTMEXIT                              
015087,000141: 
015088,000142: 15,2127           11402        DNPHASEX           CCS      TMINDEX                               #  AT END OF SNAPSHOT TRANSMISSION, SET UP
015089,000143: 15,2130           12121                           TCF      DNPHASXA                              #  TO SEND 26 PRS FROM ANY ERASABLE LOC AS
015090,000144: 
015091,000145: 15,2131           32214                           CAF      LDNPHAS3                              #  SPECIFIED BY WORDS 1 - 26 OF THE DATA
015092,000146: 15,2132           55401                           TS       DNTMGOTO                              #  LIST.
015093,000147: 15,2133           32217                           CAF      NOGENWDS                              
015094,000148: 
015095,000149: 15,2134           55402        PHASE3A            TS       TMINDEX                               #  GET DP WORD FROM ANY EBANK.
015096,000150: 15,2135           61400                           AD       LDATALST                              
015097,000151: 15,2136           00006                           EXTEND                                         
015098,000152: 15,2137           50000                           INDEX    A                                     
015099,000153: 15,2140           30001                           DCA      0                                     #  THIS GETS THE ADDRESS - MUST USE DCA
015100,000154: 15,2141           54003                           TS       EBANK                                 
015101,000155: 15,2142           75235                           MASK     LOW8                                  
015102,000156: 15,2143           00006                           EXTEND                                         
015103,000157: 15,2144           50000                           INDEX    A                                     
015104,000158: 15,2145           31401                           DCA      3400                                  #  (NOTE ASSEMBLY AS DCA 1400)
015105,000159: 15,2146           00006        DNTMEXIT           EXTEND                                         #  GENERAL DNTM EXIT LOCATION.
015106,000160: 15,2147           01034                           WRITE    DNTM1                                 
015107,000161: 15,2150           30001                           CA       L                                     
015108,000162: 15,2151           00006        TMEXITL            EXTEND                                         
015109,000163: 15,2152           01035                           WRITE    DNTM2                                 
015110,000164: 15,2153           14610                           TCF      NOQRSM                                
015111,000165: 
015112,000166: 15,2154           11402        DNPHASE3           CCS      TMINDEX                               
015113,000167: 15,2155           12134                           TCF      PHASE3A                               
015114,000168: 
015115,000169: 15,2156           32215                           CAF      LDNPHAS4                              #  SEND FIXED FORMAT LIST OF DSPTAB AND
015116,000170: 15,2157           55401                           TS       DNTMGOTO                              #  T2, T1.
015117,000171: 15,2160           36162                           CAF      SIX                                   
015118,000172: 
015119,000173: 15,2161           55402        PHASE4A            TS       TMINDEX                               
015120,000174: 15,2162           00006                           EXTEND                                         #  FIXED DATA LIST FOR DSPTAB AND TIME.
015121,000175: 15,2163           50000                           INDEX    A                                     
015122,000176: 15,2164           52221                           INDEX    FIXLIST                               
015123,000177: 15,2165           30001                           DCA      0                                     
015124,000178: 15,2166           12146                           TCF      DNTMEXIT                              

Page 373

015126,000180: 15,2167           11402        DNPHASE4           CCS      TMINDEX                               
015127,000181: 15,2170           12161                           TCF      PHASE4A                               
015128,000182: 
015129,000183: 15,2171           32216                           CAF      LPHASE5                               #  SET UP FOR CHANNEL TRANSMISSION.
015130,000184: 15,2172           55401                           TS       DNTMGOTO                              
015131,000185: 15,2173           36165                           CAF      THREE                                 #  FOUR PAIRS OF CHANNELS.
015132,000186: 
015133,000187: 15,2174           55402        PHASE5A            TS       TMINDEX                               
015134,000188: 15,2175           00006                           EXTEND                                         
015135,000189: 15,2176           50000                           INDEX    A                                     
015136,000190: 15,2177           52247                           INDEX    FIXLSTCL                              
015137,000191: 15,2200           00000                           READ     0                                     
015138,000192: 15,2201           54001                           TS       L                                     
015139,000193: 15,2202           00006                           EXTEND                                         
015140,000194: 15,2203           51402                           INDEX    TMINDEX                               
015141,000195: 15,2204           52243                           INDEX    FIXLSTCA                              
015142,000196: 15,2205           00000                           READ     0                                     
015143,000197: 15,2206           12146                           TCF      DNTMEXIT                              
015144,000198: 15,2207           11402        DNPHASE5           CCS      TMINDEX                               
015145,000199: 15,2210           12174                           TCF      PHASE5A                               
015146,000200: 15,2211           12052                           TCF      DNPHASE1                              #  START NEXT CYCLE.

Page 374

015148,000202:                                                                                                  #        CONSTNATS AND FIXED FORMAT DATA LIST.
015149,000203: 15,2212           02066        LDNPHAS2           ADRES    DNPHASE2                              
015150,000204: 15,2213           02127        LDNPHASX           ADRES    DNPHASEX                              
015151,000205: 15,2214           02154        LDNPHAS3           ADRES    DNPHASE3                              
015152,000206: 15,2215           02167        LDNPHAS4           ADRES    DNPHASE4                              
015153,000207: 15,2216           02207        LPHASE5            ADRES    DNPHASE5                              
015154,000208: 
015155,000209: 15,2217           00031        NOGENWDS           DEC      25         B-14                       #  26 WORDS SENT DURING PHASE 3.
015156,000210: 15,2220           00013        DEC11              DEC      11         B-14                       
015157,000211: 
015158,000212: 15,2221           00024        FIXLIST            ADRES    TIME2                                 #  FIXED-FORMAT PORTION INCLUDES BUFFER,
015159,000213: 15,2222           00321                           ADRES    DSPTAB     +10D                       #  DSPTAB, AND TIME.
015160,000214: 15,2223           00317                           ADRES    DSPTAB     +8D                        
015161,000215: 15,2224           00315                           ADRES    DSPTAB     +6                         
015162,000216: 15,2225           00313                           ADRES    DSPTAB     +4                         
015163,000217: 15,2226           00311                           ADRES    DSPTAB     +2                         
015164,000218: 15,2227           00307                           ADRES    DSPTAB                                
015165,000219: 
015166,000220: 15,2230           01427        FIXLISTB           ADRES    DNTMBUFF   +20D                       
015167,000221: 15,2231           01425                           ADRES    DNTMBUFF   +18D                       
015168,000222: 15,2232           01423                           ADRES    DNTMBUFF   +16D                       
015169,000223: 15,2233           01421                           ADRES    DNTMBUFF   +14D                       
015170,000224: 15,2234           01417                           ADRES    DNTMBUFF   +12D                       
015171,000225: 15,2235           01415                           ADRES    DNTMBUFF   +10D                       
015172,000226: 15,2236           01413                           ADRES    DNTMBUFF   +8D                        
015173,000227: 15,2237           01411                           ADRES    DNTMBUFF   +6D                        
015174,000228: 15,2240           01407                           ADRES    DNTMBUFF   +4D                        
015175,000229: 15,2241           01405                           ADRES    DNTMBUFF   +2D                        
015176,000230: 15,2242           01403                           ADRES    DNTMBUFF                              
015177,000231: 
015178,000232: 15,2243           00032        FIXLSTCA           OCT      32                                    #  CHANNEL ADDRESSES.
015179,000233: 15,2244           00030                           OCT      30                                    
015180,000234: 15,2245           00013                           OCT      13                                    
015181,000235: 15,2246           00011                           OCT      11                                    
015182,000236: 
015183,000237: 15,2247           00033        FIXLSTCL           OCT      33                                    
015184,000238: 15,2250           00031                           OCT      31                                    
015185,000239: 15,2251           00014                           OCT      14                                    
015186,000240: 15,2252           00012                           OCT      12                                    

Page 375

015188,000242:                                                                                                  #        SPECIAL DATA LIST FOR HIGH SPEED RADAR SAMPLING. TELEMETERS TABLE OF 12 MEASUREMENTS OF 5 WORDS EACH -
015189,000243:                                                                                                  #  DATA IN WORDS 1 & 2, RR CDU ANGLES IN 3 & 4, AND TIME 1 IN 5.
015190,000244: 15,2253           00342        FSTRADTM           ECADR    UPLOCK                                
015191,000245: 15,2254           03436                           ECADR    RFAILCNT                              #  COUNTS BAD SAMPLES.
015192,000246: 15,2255           03545                           ECADR    RSTACK     +70D                       
015193,000247: 15,2256           03543                           ECADR    RSTACK     +68D                       
015194,000248: 15,2257           03541                           ECADR    RSTACK     +66D                       
015195,000249: 15,2260           03537                           ECADR    RSTACK     +64D                       
015196,000250: 15,2261           03535                           ECADR    RSTACK     +62D                       
015197,000251: 15,2262           03533                           ECADR    RSTACK     +60D                       
015198,000252: 15,2263           03531                           ECADR    RSTACK     +58D                       
015199,000253: 15,2264           03527                           ECADR    RSTACK     +56D                       
015200,000254: 15,2265           03525                           ECADR    RSTACK     +54D                       
015201,000255: 15,2266           03523                           ECADR    RSTACK     +52D                       
015202,000256: 15,2267           03521                           ECADR    RSTACK     +50D                       
015203,000257: 15,2270           03517                           ECADR    RSTACK     +48D                       
015204,000258: 15,2271           03515                           ECADR    RSTACK     +46D                       
015205,000259: 15,2272           03513                           ECADR    RSTACK     +44D                       
015206,000260: 15,2273           03511                           ECADR    RSTACK     +42D                       
015207,000261: 15,2274           03507                           ECADR    RSTACK     +40D                       
015208,000262: 15,2275           03505                           ECADR    RSTACK     +38D                       
015209,000263: 15,2276           03503                           ECADR    RSTACK     +36D                       
015210,000264: 15,2277           03501                           ECADR    RSTACK     +34D                       
015211,000265: 15,2300           03477                           ECADR    RSTACK     +32D                       
015212,000266: 15,2301           03475                           ECADR    RSTACK     +30D                       
015213,000267: 15,2302           03473                           ECADR    RSTACK     +28D                       
015214,000268: 15,2303           03471                           ECADR    RSTACK     +26D                       
015215,000269: 15,2304           03467                           ECADR    RSTACK     +24D                       
015216,000270: 15,2305           01465                           ADRES    RSTACK     +22D                       
015217,000271: 15,2306           01463                           ADRES    RSTACK     +20D                       
015218,000272: 15,2307           01461                           ADRES    RSTACK     +18D                       
015219,000273: 15,2310           01457                           ADRES    RSTACK     +16D                       
015220,000274: 15,2311           01455                           ADRES    RSTACK     +14D                       
015221,000275: 15,2312           01453                           ADRES    RSTACK     +12D                       
015222,000276: 15,2313           01451                           ADRES    RSTACK     +10D                       
015223,000277: 15,2314           01447                           ADRES    RSTACK     +8D                        
015224,000278: 15,2315           01445                           ADRES    RSTACK     +6                         
015225,000279: 15,2316           01443                           ADRES    RSTACK     +4                         
015226,000280: 15,2317           01441                           ADRES    RSTACK     +2                         
015227,000281: 15,2320           01437                           ADRES    RSTACK                                

Page 376

015229,000283:                                                                                                  #        NOMINAL AURORA DOWNLIST.
015230,000284: 15,2321           00342        NOMDNLST           ECADR    UPLOCK                                
015231,000285: 15,2322           02634                           ECADR    DATAPL     +6                         
015232,000286: 15,2323           02632                           ECADR    DATAPL     +4                         
015233,000287: 15,2324           02630                           ECADR    DATAPL     +2                         
015234,000288: 15,2325           02626                           ECADR    DATAPL                                
015235,000289: 15,2326           02650                           ECADR    VLAUN      +4                         
015236,000290: 15,2327           02644                           ECADR    VLAUN                                 
015237,000291: 15,2330           02634                           ECADR    ANGX                                  
015238,000292: 15,2331           02632                           ECADR    ANGY                                  
015239,000293: 15,2332           02626                           ECADR    ANGZ                                  
015240,000294: 15,2333           02624                           ECADR    INTY                                  
015241,000295: 15,2334           02576                           ECADR    DRIFTT                                
015242,000296: 15,2335           02640                           ECADR    DRIFTI                                
015243,000297: 15,2336           02636                           ECADR    DRIFTO                                
015244,000298: 15,2337           00374                           ECADR    MARKSTAT                              
015245,000299: 15,2340           00402                           ECADR    THETAD     +2                         
015246,000300: 15,2341           00400                           ECADR    THETAD                                
015247,000301: 15,2342           00423                           ECADR    TANG                                  
015248,000302: 15,2343           00362                           ECADR    LASTYCMD                              
015249,000303: 15,2344           00366                           ECADR    LMPCMD                                
015250,000304: 15,2345           01362                           ECADR    REDOCTR                               #  INCLUDES FAILREG.
015251,000305: 15,2346           00063                           ECADR    STATE      +2                         
015252,000306: 15,2347           00061                           ECADR    STATE                                 
015253,000307: 15,2350           00035                           ECADR    OPTY                                  
015254,000308: 15,2351           00034                           ECADR    CDUZ                                  
015255,000309: 15,2352           00032                           ECADR    CDUX                                  
015256,000310: 15,2353           00360                           ADRES    FORVEL                                
015257,000311: 15,2354           00355                           ADRES    FINALT                                
015258,000312: 15,2355           00364                           ADRES    ALTSAVE                               
015259,000313: 15,2356           00354                           ADRES    ALTRATE                               
015260,000314: 15,2357           00352                           ADRES    ALT                                   
015261,000315: 15,2360           00421                           ADRES    TIMEHOLD                              
015262,000316: 15,2361           00417                           ADRES    OPTYHOLD                              
015263,000317: 15,2362           00415                           ADRES    SAMPLSUM                              
015264,000318: 15,2363           00427                           ADRES    OLDATAGD                              
015265,000319: 15,2364           00413                           ADRES    RADMODES                              
015266,000320: 15,2365           00041                           ADRES    PIPAZ                                 
015267,000321: 15,2366           00037                           ADRES    PIPAX                                 
015268,000322: 15,2367                        ENDDNTMS           EQUALS                                         

End of include-file DOWN-TELEMETRY_PROGRAM.agc.  Parent file is MAIN.agc