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, 1966Note 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