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.
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.
|
014953,000002: ## Copyright: Public domain.
014954,000003: ## Filename: DOWN_TELEMETRY_PROGRAM.agc
014955,000004: ## Purpose: Part of the source code for Aurora (revision 12).
014956,000005: ## Assembler: yaYUL
014957,000006: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
014958,000007: ## Website: https://www.ibiblio.org/apollo.
014959,000008: ## Pages: 370-376
014960,000009: ## Mod history: 2016-09-20 JL Created.
014961,000010: ## 2016-09-21 HG Initial transfer from scan
014962,000011: ## 2016-10-08 HG Add missed ECADR RSTACK +46D,
014963,000012: ## Remove added decimal markes D
014964,000013: ## 2016-10-11 HG fix label DNPAHSE1 -> DNPHASE1
014965,000014: ## DNPAHSE2 -> DNPHASE3
014966,000015: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
014967,000016: ## and fixed the errors found.
014968,000017:
014969,000018: ## This source code has been transcribed or otherwise adapted from
014970,000019: ## digitized images of a hardcopy from the private collection of
014971,000020: ## Don Eyles. The digitization was performed by archive.org.
014972,000021:
014973,000022: ## Notations on the hardcopy document read, in part:
014974,000023:
014975,000024: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
014976,000025: ## NOV 10, 1966
014977,000026:
014978,000027: ## [Note that this is the date the hardcopy was made, not the
014979,000028: ## date of the program revision or the assembly.]
014980,000029:
014981,000030: ## The scan images (with suitable reduction in storage size and consequent
014982,000031: ## reduction in image quality) are available online at
014983,000032: ## https://www.ibiblio.org/apollo.
014984,000033: ## The original high-quality digital images are available at archive.org:
014985,000034: ## https://archive.org/details/aurora00dapg
014986,000035:
|
|
Page 370 |
014988,000037: 15,2000 BANK 15
014989,000038: 15,2000 E7,1403 EBANK= DNTMBUFF
014990,000039: 15,2000 00437 LOWIDCOD OCT 00437 # FOD'S CHOICE.
014991,000040: # SPECIAL DOWNLINK LIST FOR AGS INITIALIZATION, MUST BE IN LOCATION 2001 OF DOWNLINK FBANK,
014992,000041: 15,2001 00342 AGSLIST ECADR UPLOCK
014993,000042: 15,2002 00025 ECADR TIME1
014994,000043: 15,2003 00024 ECADR TIME2
014995,000044: 15,2004 00412 ECADR AGSWORD
014996,000045: 15,2005 03602 ECADR AGSBUFF +27D
014997,000046: 15,2006 03601 ECADR AGSBUFF +26D
014998,000047: 15,2007 03600 ECADR AGSBUFF +25D
014999,000048: 15,2010 03577 ECADR AGSBUFF +24D
015000,000049: 15,2011 00412 ECADR AGSWORD
015001,000050: 15,2012 03576 ECADR AGSBUFF +23D
015002,000051: 15,2013 03575 ECADR AGSBUFF +22D
015003,000052: 15,2014 03574 ECADR AGSBUFF +21D
015004,000053: 15,2015 03573 ECADR AGSBUFF +20D
015005,000054: 15,2016 00412 ECADR AGSWORD
015006,000055: 15,2017 03572 ECADR AGSBUFF +19D
015007,000056: 15,2020 03571 ECADR AGSBUFF +18D
015008,000057: 15,2021 03570 ECADR AGSBUFF +17D
015009,000058: 15,2022 03567 ECADR AGSBUFF +16D
015010,000059: 15,2023 00412 ECADR AGSWORD
015011,000060: 15,2024 03566 ECADR AGSBUFF +15D
015012,000061: 15,2025 03565 ECADR AGSBUFF +14D
015013,000062: 15,2026 03564 ECADR AGSBUFF +13D
015014,000063: 15,2027 03563 ECADR AGSBUFF +12D
015015,000064: 15,2030 00412 ECADR AGSWORD
015016,000065: 15,2031 03562 ECADR AGSBUFF +11D
015017,000066: 15,2032 03561 ECADR AGSBUFF +10D
015018,000067: 15,2033 01560 ADRES AGSBUFF +9D
015019,000068: 15,2034 01557 ADRES AGSBUFF +8D
015020,000069: 15,2035 00412 ADRES AGSWORD
015021,000070: 15,2036 01556 ADRES AGSBUFF +7
015022,000071: 15,2037 01555 ADRES AGSBUFF +6
015023,000072: 15,2040 01554 ADRES AGSBUFF +5
015024,000073: 15,2041 01553 ADRES AGSBUFF +4
015025,000074: 15,2042 00412 ADRES AGSWORD
015026,000075: 15,2043 01552 ADRES AGSBUFF +3
015027,000076: 15,2044 01551 ADRES AGSBUFF +2
015028,000077: 15,2045 01550 ADRES AGSBUFF +1
015029,000078: 15,2046 01547 ADRES AGSBUFF
|
|
Page 371 |
015031,000080: # THIS ROUTINE IS INITITATED EVERY 20MS BY AN INTERRUPT TRIGGERED
015032,000081: # BY THE RECEIPT OF AN ENDPULSE FROM THE SPACECRAFT TELEMETRY PROGRAMMER.
015033,000082:
015034,000083: 15,2047 54016 DODOWNTM TS BANKRUPT # DO APPROPRIATE TM PHASE.
015035,000084: 15,2050 51401 INDEX DNTMGOTO
015036,000085: 15,2051 10000 TCF 0
015037,000086:
015038,000087: 15,2052 30411 DNPHASE1 CA DNLSTADR # ONCE PER CYCLE (1 SECOND), AN ID IS SENT
015039,000088: 15,2053 55400 TS LDATALST # AND THE DATA LIST SWITCHED TO THAT
015040,000089: 15,2054 76426 MASK LOW10 # SELECTED BY A MISSION OR TEST PROGRAM.
015041,000090: 15,2055 00006 EXTEND
015042,000091: 15,2056 01034 WRITE DNTM1
015043,000092: 15,2057 47651 CS BIT7 # WORD ORDER BIT IS 0 FOR ID OWRD ONLY.
015044,000093: 15,2060 00006 EXTEND
015045,000094: 15,2061 03013 WAND 13
015046,000095:
015047,000096: 15,2062 32212 CAF LDNPHAS2 # SWITCH TO PHASE 2.
015048,000097: 15,2063 55401 TS DNTMGOTO
015049,000098: 15,2064 32000 CAF LOWIDCOD # SPECIAL ID CODE IN L.
015050,000099: 15,2065 12151 TCF TMEXITL
015051,000100:
015052,000101: 15,2066 37651 DNPHASE2 CAF BIT7 # SET WORD ORDER BACK TO 1 FOR REMAINDER
015053,000102: 15,2067 00006 EXTEND # OF CYCLE AND SET UP TO PICK UP 12 PAIRS
015054,000103: 15,2070 05013 WOR 13 # FROM ANYWHERE IN COMMON ERASABLE OR E7.
015055,000104:
015056,000105: 15,2071 37665 CAF ZERO
015057,000106: 15,2072 54065 TS ITEMP1 # TAKE SNAPSHOT OF 12 DP WORDS.
015058,000107: 15,2073 37661 CAF TEN
015059,000108:
015060,000109: 15,2074 54066 LOOP TS ITEMP2 # THESE 12 DP WORDS ARE READ INTO AN
015061,000110: 15,2075 61400 AD LDATALST # INTERMEDIATE BUFFER SO THEY REFER TO THE
015062,000111: 15,2076 00006 EXTEND # SAME POINT IN THE EXECUTION OF A MISSION
015063,000112: 15,2077 50000 INDEX A # PROGRAM. THE WORDS MAY BE IN NON-
015064,000113: 15,2100 50032 INDEX 26D
015065,000114: 15,2101 30001 DCA 0 # 12 OF THE DATA LIST ARE USED AS
015066,000115: 15,2102 50065 INDEX ITEMP1 # ADDRESSES OF THE DESIRED DATA.
015067,000116: 15,2103 53404 DXCH DNTMBUFF
015068,000117:
015069,000118: 15,2104 37656 CAF TWO
015070,000119: 15,2105 26065 ADS ITEMP1
015071,000120: 15,2106 10066 CCS ITEMP2
015072,000121: 15,2107 12074 TCF LOOP
015073,000122:
015074,000123: 15,2110 32220 CAF DEC11 # SET UP TO SEND 11 REMAINING WORDS
015075,000124: 15,2111 55402 TS TMINDEX
015076,000125: 15,2112 32213 CAF LDNPHASX
015077,000126: 15,2113 55401 TS DNTMGOTO
015078,000127:
015079,000128: 15,2114 00006 EXTEND
015080,000129: 15,2115 51400 INDEX LDATALST
|
|
Page 372 |
015082,000131: 15,2116 50045 INDEX 37D
015083,000132: 15,2117 30001 DCA 0
015084,000133: 15,2120 12146 TCF DNTMEXIT
015085,000134:
015086,000135: 15,2121 55402 DNPHASXA TS TMINDEX
015087,000136: 15,2122 00006 EXTEND
015088,000137: 15,2123 50000 INDEX A # SENDS SNAPSHOT BUFFER.
015089,000138: 15,2124 52230 INDEX FIXLISTB
015090,000139: 15,2125 30001 DCA 0
015091,000140: 15,2126 12146 TCF DNTMEXIT
015092,000141:
015093,000142: 15,2127 11402 DNPHASEX CCS TMINDEX # AT END OF SNAPSHOT TRANSMISSION, SET UP
015094,000143: 15,2130 12121 TCF DNPHASXA # TO SEND 26 PRS FROM ANY ERASABLE LOC AS
015095,000144:
015096,000145: 15,2131 32214 CAF LDNPHAS3 # SPECIFIED BY WORDS 1 - 26 OF THE DATA
015097,000146: 15,2132 55401 TS DNTMGOTO # LIST.
015098,000147: 15,2133 32217 CAF NOGENWDS
015099,000148:
015100,000149: 15,2134 55402 PHASE3A TS TMINDEX # GET DP WORD FROM ANY EBANK.
015101,000150: 15,2135 61400 AD LDATALST
015102,000151: 15,2136 00006 EXTEND
015103,000152: 15,2137 50000 INDEX A
015104,000153: 15,2140 30001 DCA 0 # THIS GETS THE ADDRESS - MUST USE DCA
015105,000154: 15,2141 54003 TS EBANK
015106,000155: 15,2142 75235 MASK LOW8
015107,000156: 15,2143 00006 EXTEND
015108,000157: 15,2144 50000 INDEX A
015109,000158: 15,2145 31401 DCA 3400 # (NOTE ASSEMBLY AS DCA 1400)
015110,000159: 15,2146 00006 DNTMEXIT EXTEND # GENERAL DNTM EXIT LOCATION.
015111,000160: 15,2147 01034 WRITE DNTM1
015112,000161: 15,2150 30001 CA L
015113,000162: 15,2151 00006 TMEXITL EXTEND
015114,000163: 15,2152 01035 WRITE DNTM2
015115,000164: 15,2153 14610 TCF NOQRSM
015116,000165:
015117,000166: 15,2154 11402 DNPHASE3 CCS TMINDEX
015118,000167: 15,2155 12134 TCF PHASE3A
015119,000168:
015120,000169: 15,2156 32215 CAF LDNPHAS4 # SEND FIXED FORMAT LIST OF DSPTAB AND
015121,000170: 15,2157 55401 TS DNTMGOTO # T2, T1.
015122,000171: 15,2160 36162 CAF SIX
015123,000172:
015124,000173: 15,2161 55402 PHASE4A TS TMINDEX
015125,000174: 15,2162 00006 EXTEND # FIXED DATA LIST FOR DSPTAB AND TIME.
015126,000175: 15,2163 50000 INDEX A
015127,000176: 15,2164 52221 INDEX FIXLIST
015128,000177: 15,2165 30001 DCA 0
015129,000178: 15,2166 12146 TCF DNTMEXIT
|
|
Page 373 |
015131,000180: 15,2167 11402 DNPHASE4 CCS TMINDEX
015132,000181: 15,2170 12161 TCF PHASE4A
015133,000182:
015134,000183: 15,2171 32216 CAF LPHASE5 # SET UP FOR CHANNEL TRANSMISSION.
015135,000184: 15,2172 55401 TS DNTMGOTO
015136,000185: 15,2173 36165 CAF THREE # FOUR PAIRS OF CHANNELS.
015137,000186:
015138,000187: 15,2174 55402 PHASE5A TS TMINDEX
015139,000188: 15,2175 00006 EXTEND
015140,000189: 15,2176 50000 INDEX A
015141,000190: 15,2177 52247 INDEX FIXLSTCL
015142,000191: 15,2200 00000 READ 0
015143,000192: 15,2201 54001 TS L
015144,000193: 15,2202 00006 EXTEND
015145,000194: 15,2203 51402 INDEX TMINDEX
015146,000195: 15,2204 52243 INDEX FIXLSTCA
015147,000196: 15,2205 00000 READ 0
015148,000197: 15,2206 12146 TCF DNTMEXIT
015149,000198: 15,2207 11402 DNPHASE5 CCS TMINDEX
015150,000199: 15,2210 12174 TCF PHASE5A
015151,000200: 15,2211 12052 TCF DNPHASE1 # START NEXT CYCLE.
|
|
Page 374 |
015153,000202: # CONSTNATS AND FIXED FORMAT DATA LIST.
015154,000203: 15,2212 02066 LDNPHAS2 ADRES DNPHASE2
015155,000204: 15,2213 02127 LDNPHASX ADRES DNPHASEX
015156,000205: 15,2214 02154 LDNPHAS3 ADRES DNPHASE3
015157,000206: 15,2215 02167 LDNPHAS4 ADRES DNPHASE4
015158,000207: 15,2216 02207 LPHASE5 ADRES DNPHASE5
015159,000208:
015160,000209: 15,2217 00031 NOGENWDS DEC 25 B-14 # 26 WORDS SENT DURING PHASE 3.
015161,000210: 15,2220 00013 DEC11 DEC 11 B-14
015162,000211:
015163,000212: 15,2221 00024 FIXLIST ADRES TIME2 # FIXED-FORMAT PORTION INCLUDES BUFFER,
015164,000213: 15,2222 00321 ADRES DSPTAB +10D # DSPTAB, AND TIME.
015165,000214: 15,2223 00317 ADRES DSPTAB +8D
015166,000215: 15,2224 00315 ADRES DSPTAB +6
015167,000216: 15,2225 00313 ADRES DSPTAB +4
015168,000217: 15,2226 00311 ADRES DSPTAB +2
015169,000218: 15,2227 00307 ADRES DSPTAB
015170,000219:
015171,000220: 15,2230 01427 FIXLISTB ADRES DNTMBUFF +20D
015172,000221: 15,2231 01425 ADRES DNTMBUFF +18D
015173,000222: 15,2232 01423 ADRES DNTMBUFF +16D
015174,000223: 15,2233 01421 ADRES DNTMBUFF +14D
015175,000224: 15,2234 01417 ADRES DNTMBUFF +12D
015176,000225: 15,2235 01415 ADRES DNTMBUFF +10D
015177,000226: 15,2236 01413 ADRES DNTMBUFF +8D
015178,000227: 15,2237 01411 ADRES DNTMBUFF +6D
015179,000228: 15,2240 01407 ADRES DNTMBUFF +4D
015180,000229: 15,2241 01405 ADRES DNTMBUFF +2D
015181,000230: 15,2242 01403 ADRES DNTMBUFF
015182,000231:
015183,000232: 15,2243 00032 FIXLSTCA OCT 32 # CHANNEL ADDRESSES.
015184,000233: 15,2244 00030 OCT 30
015185,000234: 15,2245 00013 OCT 13
015186,000235: 15,2246 00011 OCT 11
015187,000236:
015188,000237: 15,2247 00033 FIXLSTCL OCT 33
015189,000238: 15,2250 00031 OCT 31
015190,000239: 15,2251 00014 OCT 14
015191,000240: 15,2252 00012 OCT 12
|
|
Page 375 |
015193,000242: # SPECIAL DATA LIST FOR HIGH SPEED RADAR SAMPLING. TELEMETERS TABLE OF 12 MEASUREMENTS OF 5 WORDS EACH -
015194,000243: # DATA IN WORDS 1 & 2, RR CDU ANGLES IN 3 & 4, AND TIME 1 IN 5.
015195,000244: 15,2253 00342 FSTRADTM ECADR UPLOCK
015196,000245: 15,2254 03436 ECADR RFAILCNT # COUNTS BAD SAMPLES.
015197,000246: 15,2255 03545 ECADR RSTACK +70D
015198,000247: 15,2256 03543 ECADR RSTACK +68D
015199,000248: 15,2257 03541 ECADR RSTACK +66D
015200,000249: 15,2260 03537 ECADR RSTACK +64D
015201,000250: 15,2261 03535 ECADR RSTACK +62D
015202,000251: 15,2262 03533 ECADR RSTACK +60D
015203,000252: 15,2263 03531 ECADR RSTACK +58D
015204,000253: 15,2264 03527 ECADR RSTACK +56D
015205,000254: 15,2265 03525 ECADR RSTACK +54D
015206,000255: 15,2266 03523 ECADR RSTACK +52D
015207,000256: 15,2267 03521 ECADR RSTACK +50D
015208,000257: 15,2270 03517 ECADR RSTACK +48D
015209,000258: 15,2271 03515 ECADR RSTACK +46D
015210,000259: 15,2272 03513 ECADR RSTACK +44D
015211,000260: 15,2273 03511 ECADR RSTACK +42D
015212,000261: 15,2274 03507 ECADR RSTACK +40D
015213,000262: 15,2275 03505 ECADR RSTACK +38D
015214,000263: 15,2276 03503 ECADR RSTACK +36D
015215,000264: 15,2277 03501 ECADR RSTACK +34D
015216,000265: 15,2300 03477 ECADR RSTACK +32D
015217,000266: 15,2301 03475 ECADR RSTACK +30D
015218,000267: 15,2302 03473 ECADR RSTACK +28D
015219,000268: 15,2303 03471 ECADR RSTACK +26D
015220,000269: 15,2304 03467 ECADR RSTACK +24D
015221,000270: 15,2305 01465 ADRES RSTACK +22D
015222,000271: 15,2306 01463 ADRES RSTACK +20D
015223,000272: 15,2307 01461 ADRES RSTACK +18D
015224,000273: 15,2310 01457 ADRES RSTACK +16D
015225,000274: 15,2311 01455 ADRES RSTACK +14D
015226,000275: 15,2312 01453 ADRES RSTACK +12D
015227,000276: 15,2313 01451 ADRES RSTACK +10D
015228,000277: 15,2314 01447 ADRES RSTACK +8D
015229,000278: 15,2315 01445 ADRES RSTACK +6
015230,000279: 15,2316 01443 ADRES RSTACK +4
015231,000280: 15,2317 01441 ADRES RSTACK +2
015232,000281: 15,2320 01437 ADRES RSTACK
|
|
Page 376 |
015234,000283: # NOMINAL AURORA DOWNLIST.
015235,000284: 15,2321 00342 NOMDNLST ECADR UPLOCK
015236,000285: 15,2322 02634 ECADR DATAPL +6
015237,000286: 15,2323 02632 ECADR DATAPL +4
015238,000287: 15,2324 02630 ECADR DATAPL +2
015239,000288: 15,2325 02626 ECADR DATAPL
015240,000289: 15,2326 02650 ECADR VLAUN +4
015241,000290: 15,2327 02644 ECADR VLAUN
015242,000291: 15,2330 02634 ECADR ANGX
015243,000292: 15,2331 02632 ECADR ANGY
015244,000293: 15,2332 02626 ECADR ANGZ
015245,000294: 15,2333 02624 ECADR INTY
015246,000295: 15,2334 02576 ECADR DRIFTT
015247,000296: 15,2335 02640 ECADR DRIFTI
015248,000297: 15,2336 02636 ECADR DRIFTO
015249,000298: 15,2337 00374 ECADR MARKSTAT
015250,000299: 15,2340 00402 ECADR THETAD +2
015251,000300: 15,2341 00400 ECADR THETAD
015252,000301: 15,2342 00423 ECADR TANG
015253,000302: 15,2343 00362 ECADR LASTYCMD
015254,000303: 15,2344 00366 ECADR LMPCMD
015255,000304: 15,2345 01362 ECADR REDOCTR # INCLUDES FAILREG.
015256,000305: 15,2346 00063 ECADR STATE +2
015257,000306: 15,2347 00061 ECADR STATE
015258,000307: 15,2350 00035 ECADR OPTY
015259,000308: 15,2351 00034 ECADR CDUZ
015260,000309: 15,2352 00032 ECADR CDUX
015261,000310: 15,2353 00360 ADRES FORVEL
015262,000311: 15,2354 00355 ADRES FINALT
015263,000312: 15,2355 00364 ADRES ALTSAVE
015264,000313: 15,2356 00354 ADRES ALTRATE
015265,000314: 15,2357 00352 ADRES ALT
015266,000315: 15,2360 00421 ADRES TIMEHOLD
015267,000316: 15,2361 00417 ADRES OPTYHOLD
015268,000317: 15,2362 00415 ADRES SAMPLSUM
015269,000318: 15,2363 00427 ADRES OLDATAGD
015270,000319: 15,2364 00413 ADRES RADMODES
015271,000320: 15,2365 00041 ADRES PIPAZ
015272,000321: 15,2366 00037 ADRES PIPAX
015273,000322: 15,2367 ENDDNTMS EQUALS
End of include-file DOWN-TELEMETRY_PROGRAM.agc. Parent file is MAIN.agc