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. |
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