Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
032135,000002: ## Copyright: Public domain. 032136,000003: ## Filename: BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc 032137,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0, 032138,000005: ## otherwise known as Luminary Rev 99, the third release 032139,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11. 032140,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the 032141,000008: ## placement of a single label. The corrections shown here have 032142,000009: ## been verified to have the same bank checksums as AGC developer 032143,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed 032144,000011: ## to be accurate. This file is intended to be a faithful 032145,000012: ## recreation, except that the code format has been changed to 032146,000013: ## conform to the requirements of the yaYUL assembler rather than 032147,000014: ## the original YUL assembler. 032148,000015: ## 032149,000016: ## Assembler: yaYUL 032150,000017: ## Contact: Ron Burkey <info@sandroid.org>. 032151,000018: ## Website: www.ibiblio.org/apollo. 032152,000019: ## Pages: 731-751 032153,000020: ## Mod history: 2009-05-19 RSB Adapted from the corresponding 032154,000021: ## Luminary131 file, using page 032155,000022: ## images from Luminary 1A. 032156,000023: ## 2009-06-07 RSB Corrected 3 typos. 032157,000024: ## 2009-07-23 RSB Added Onno's notes on the naming 032158,000025: ## of this function, which he got from 032159,000026: ## Don Eyles. 032160,000027: ## 2011-01-06 JL Fixed pseudo-label indentation. 032161,000028: ## 2011-05-08 JL Removed workarounds. 032162,000029: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH 032163,000030: ## 2016-12-15 RSB Proofed text comments with octopus/ProoferComments 032164,000031: ## and corrected the errors found. 032165,000032: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116. 032166,000033: ## 2017-03-16 RSB Comment-text fixes identified in 5-way 032167,000034: ## side-by-side diff of Luminary 69/99/116/131/210. 032168,000035: ## 2017-08-01 MAS Created from LMY99 Rev 1. 032169,000036: 032170,000037: ## This source code has been transcribed or otherwise adapted from 032171,000038: ## digitized images of a hardcopy from the MIT Museum. The digitization 032172,000039: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of 032173,000040: ## the Museum. Many thanks to both. The images (with suitable reduction 032174,000041: ## in storage size and consequent reduction in image quality as well) are 032175,000042: ## available online at www.ibiblio.org/apollo. If for some reason you 032176,000043: ## find that the images are illegible, contact me at info@sandroid.org 032177,000044: ## about getting access to the (much) higher-quality images which Paul 032178,000045: ## actually created. 032179,000046: ## 032180,000047: ## The code has been modified to match LMY99 Revision 0, otherwise 032181,000048: ## known as Luminary Revision 99, the Apollo 11 software release preceeding 032182,000049: ## the listing from which it was transcribed. It has been verified to 032183,000050: ## contain the same bank checksums as AGC developer Allan Klumpp's listing 032184,000051: ## of Luminary Revision 99 (for which we do not have scans). 032185,000052: ## 032186,000053: ## Notations on Allan Klumpp's listing read, in part: 032187,000054: ## 032188,000055: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51 032189,000056:
|
|
Page 731
At the get-together of the AGC developers celebrating the 40th anniversary of the first moonwalk, Don Eyles (one of the authors of this routine along with Peter Adler) has related to us a little interesting history behind the naming of the routine. It traces back to 1965 and the Los Angeles riots, and was inspired by disc jockey extraordinaire and radio station owner Magnificent Montague. Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the hottest new records. Magnificent Montague was the charismatic voice of soul music in Chicago, New York, and Los Angeles from the mid-1950s to the mid-1960s. |
032203,000070: 032204,000071: 36,2022 BANK 36 032205,000072: 36,2000 SETLOC P40S 032206,000073: 36,2000 BANK 032207,000074: 36,2022 E7,1455 EBANK= WHICH 032208,000075: 36,2022 COUNT* $$/P40 032209,000076: 032210,000077: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63. 032211,000078: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING 032212,000079: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS 032213,000080: # PROGRAMS THROTTLE UP. 032214,000081: 032215,000082: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR 032216,000083: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE 032217,000084: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY 032218,000085: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY, 032219,000086: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN. 032220,000087: 032221,000088: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES. 032222,000089: 032223,000090: # HONI SOIT QUI MAL Y PENSE 032224,000091: 032225,000092: # **************************************** 032226,000093: # TABLES FOR THE IGNITION ROUTINE 032227,000094: # **************************************** 032228,000095: 032229,000096: # NOLI SE TANGERE 032230,000097: 032231,000098: 36,2022 01512 P12TABLE VN 0674 # (0) 032232,000099: 36,2023 12325 TCF ULLGNOT # (1) 032233,000100: 36,2024 12612 TCF COMFAIL3 # (2) 032234,000101: 36,2025 13062 TCF GOCUTOFF # (3) 032235,000102: 36,2026 15261 TCF TASKOVER # (4) 032236,000103: 36,2027 12146 TCF P12SPOT # (5) 032237,000104: 36,2030 00000 DEC 0 B-14 # (6) NO ULLAGE 032238,000105: 36,2031 E7,1455 EBANK= WHICH 032239,000106: 36,2031 03770 64067 2CADR SERVEXIT # (7) 032240,000107: 032241,000108: 36,2033 12376 TCF DISPCHNG # (11) 032242,000109: 36,2034 12563 TCF WAITABIT # (12) 032243,000110: 36,2035 12521 TCF P12IGN # (13) 032244,000111: 032245,000112: 36,2036 01450 P40TABLE VN 0640 # (0) 032246,000113: 36,2037 12325 TCF ULLGNOT # (1) 032247,000114: 36,2040 12614 TCF COMFAIL4 # (2) 032248,000115: 36,2041 13047 TCF GOPOST # (3) 032249,000116: 36,2042 15261 TCF TASKOVER # (4) 032250,000117: 36,2043 12146 TCF P40SPOT # (5)
|
|
Page 732 |
032252,000119: 36,2044 04300 DEC 2240 B-14 # (6) 032253,000120: 36,2045 E6,1422 EBANK= OMEGAQ 032254,000121: 36,2045 03666 74066 2CADR STEERING # (7) 032255,000122: 032256,000123: 36,2047 12366 TCF P40SJUNK # (11) 032257,000124: 36,2050 12563 TCF WAITABIT # (12) 032258,000125: 36,2051 12504 TCF P40IGN # (13) 032259,000126: 36,2052 13123 TCF REP40ALM # (14) 032260,000127: 032261,000128: 36,2053 12151 P41TABLE TCF P41SPOT # (5) 032262,000129: 36,2054 77776 DEC -1 B-14 # (6) 032263,000130: 36,2055 E6,1422 EBANK= OMEGAQ 032264,000131: 36,2055 03376 74066 2CADR CALCN85 # (7) 032265,000132: 032266,000133: 36,2057 12400 TCF COMMON # (11) 032267,000134: 36,2060 12567 TCF TIGTASK # (12) 032268,000135: 032269,000136: 36,2061 01450 P42TABLE VN 0640 # (0) 032270,000137: 36,2062 12322 TCF WANTAPS # (1) 032271,000138: 36,2063 12614 TCF COMFAIL4 # (2) 032272,000139: 36,2064 13047 TCF GOPOST # (3) 032273,000140: 36,2065 15261 TCF TASKOVER # (4) 032274,000141: 36,2066 12146 TCF P42SPOT # (5) 032275,000142: 36,2067 05120 DEC 2640 B-14 # (6) 032276,000143: 36,2070 E6,1422 EBANK= OMEGAQ 032277,000144: 36,2070 03666 74066 2CADR STEERING # (7) 032278,000145: 032279,000146: 36,2072 12366 TCF P40SJUNK # (11) 032280,000147: 36,2073 12563 TCF WAITABIT # (12) 032281,000148: 36,2074 12541 TCF P42IGN # (13) 032282,000149: 36,2075 13420 TCF P42STAGE # (14) 032283,000150: 032284,000151: 36,2076 01476 P63TABLE VN 0662 # (0) 032285,000152: 36,2077 12325 TCF ULLGNOT # (1) 032286,000153: 36,2100 12612 TCF COMFAIL3 # (2) 032287,000154: 36,2101 12777 TCF V99RECYC # (3) 032288,000155: 36,2102 15261 TCF TASKOVER # (4) 032289,000156: 36,2103 12151 TCF P63SPOT # (5) 032290,000157: 36,2104 04300 DEC 2240 B-14 # (6) 032291,000158: 36,2105 E7,1455 EBANK= WHICH 032292,000159: 36,2105 03770 64067 2CADR SERVEXIT # (7) 032293,000160: 032294,000161: 36,2107 12376 TCF DISPCHNG # (11) 032295,000162: 36,2110 12563 TCF WAITABIT # (12)
|
|
Page 733 |
032297,000164: 36,2111 12455 TCF P63IGN # (13) 032298,000165: 032299,000166: 36,2112 01477 ABRTABLE VN 0663 # (0) 032300,000167: 36,2113 12325 TCF ULLGNOT # (1) 032301,000168: 36,2114 12612 TCF COMFAIL3 # (2) 032302,000169: 36,2115 13062 TCF GOCUTOFF # (3) 032303,000170: 36,2116 15261 TCF TASKOVER # (4) 032304,000171: 36,2117 12120 NOOP # (5) 032305,000172: 36,2120 12121 NOOP # (6) 032306,000173: 36,2121 12122 NOOP # (7) 032307,000174: 36,2122 12123 NOOP 032308,000175: 36,2123 12376 TCF DISPCHNG # (11) 032309,000176: 36,2124 12563 TCF WAITABIT # (12) 032310,000177: 36,2125 12531 TCF ABRTIGN # (13) 032311,000178: 032312,000179: # **************************************** 032313,000180: # GENERAL PURPOSE IGNITION ROUTINES 032314,000181: # **************************************** 032315,000182: 032316,000183: 36,2126 05353 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE 032317,000184: 36,2127 04024 OCT 04024 032318,000185: 032319,000186: 36,2130 34755 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL 032320,000187: 36,2131 55507 TS DVTOTAL 032321,000188: 36,2132 55510 TS DVTOTAL +1 032322,000189: 032323,000190: 36,2133 04616 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS 032324,000191: 36,2134 73747 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY 032325,000192: 032326,000193: 36,2135 00006 B*RNB*B* EXTEND 032327,000194: 36,2136 31442 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP. 032328,000195: 36,2137 53512 DXCH GOBLTIME # AND FOR P70 OR P71. 032329,000196: 032330,000197: 36,2140 00004 INHINT 032331,000198: 36,2141 04674 TC IBNKCALL 032332,000199: 36,2142 75564 CADR ENGINOF3 032333,000200: 36,2143 00003 RELINT 032334,000201: 032335,000202: 36,2144 51455 INDEX WHICH 032336,000203: 36,2145 10005 TCF 5 032337,000204: 032338,000205: 36,2146 36,2146 P42SPOT = P40SPOT # (5) 032339,000206: 36,2146 36,2146 P12SPOT = P40SPOT # (5) 032340,000207: 36,2146 36,2151 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING 032341,000208: 36,2146 44762 P40SPOT CS CNTDNDEX # (5)
|
|
Page 734 |
032343,000210: 36,2147 04616 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED 032344,000211: 36,2150 74664 CADR STCLOK2 # RETURN 032345,000212: 36,2151 06037 P41SPOT TC INTPRET # (5) 032346,000213: 36,2152 45345 DLOAD DSU 032347,000214: 36,2153 03442 TIG 032348,000215: 36,2154 35143 D29.9SEC 032349,000216: 36,2155 34041 STCALL TDEC1 032350,000217: 36,2156 61104 INITCDUW 032351,000218: 36,2157 45014 BOFF CALL 032352,000219: 36,2160 03347 MUNFLAG 032353,000220: 36,2161 74200 GOMIDAV 032354,000221: 36,2162 27043 CSMPREC 032355,000222: 36,2163 64375 VLOAD MXV 032356,000223: 36,2164 00025 VATT1 032357,000224: 36,2165 01734 REFSMMAT 032358,000225: 36,2166 77762 VSR1 032359,000226: 36,2167 25726 STOVL V(CSM) # CSM VELOCITY - M/CS*2(7) 032360,000227: 36,2170 00017 RATT1 032361,000228: 36,2171 64312 VSL4 MXV 032362,000229: 36,2172 01734 REFSMMAT 032363,000230: 36,2173 35720 STCALL R(CSM) # CSM POSITION - M*2(24) 032364,000231: 36,2174 67130 MUNGRAV 032365,000232: 36,2175 16317 STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7) 032366,000233: 36,2176 00015 TAT 032367,000234: 36,2177 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV. 032368,000235: 36,2200 77624 GOMIDAV CALRB 032369,000236: 36,2201 27557 MIDTOAV1 032370,000237: 36,2202 12211 TCF CALLT-35 # MADE IT IN TIME. 032371,000238: 032372,000239: 36,2203 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9 032373,000240: 36,2204 31561 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID 032374,000241: 36,2205 53442 DXCH TIG # INTEGRATE. 032375,000242: 36,2206 00006 EXTEND 032376,000243: 36,2207 33143 DCA D29.9SEC 032377,000244: 36,2210 21442 DAS TIG 032378,000245: 032379,000246: 36,2211 52155 CALLT-35 DXCH MPAC 032380,000247: 36,2212 53500 DXCH SAVET-30 # DELTA-T UNTIL TIG-30 032381,000248: 36,2213 00006 EXTEND 032382,000249: 36,2214 43756 DCS 5SECDP 032383,000250: 36,2215 21500 DAS SAVET-30 # DELTA-T UNTIL TIG-35 032384,000251: 36,2216 00006 EXTEND 032385,000252: 36,2217 31500 DCA SAVET-30 032386,000253: 36,2220 05277 TC LONGCALL 032387,000254: 36,2221 E7,1453 EBANK= TTOGO 032388,000255: 36,2221 02240 74067 2CADR TIG-35 032389,000256: 032390,000257: 36,2223 05353 TC PHASCHNG 032391,000258: 36,2224 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
|
|
Page 735 |
032393,000260: 36,2225 05321 TC CHECKMM 032394,000261: 36,2226 00077 DEC 63 B-14 032395,000262: 36,2227 15155 TCF ENDOFJOB # NOT P63 032396,000263: 36,2230 44762 CS CNTDNDEX # P63 CAN START DISPLAYING NOW. 032397,000264: 36,2231 55163 TS DISPDEX 032398,000265: 36,2232 06037 TC INTPRET 032399,000266: 36,2233 51575 VLOAD ABVAL 032400,000267: 36,2234 03553 VN1 032401,000268: 36,2235 03472 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY 032402,000269: 36,2236 77776 EXIT 032403,000270: 36,2237 15155 TCF ENDOFJOB 032404,000271: 032405,000272: # **************************************** 032406,000273: 032407,000274: 36,2240 33756 TIG-35 CAF 5SEC 032408,000275: 36,2241 05173 TC TWIDDLE 032409,000276: 36,2242 02276 ADRES TIG-30 032410,000277: 032411,000278: 36,2243 05353 TC PHASCHNG 032412,000279: 36,2244 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART 032413,000280: 032414,000281: 36,2245 44752 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS 032415,000282: 36,2246 55163 TS DISPDEX 032416,000283: 032417,000284: 36,2247 51455 INDEX WHICH 032418,000285: 36,2250 40006 CS 6 # CHECK ULLAGE TIME. 032419,000286: 36,2251 00006 EXTEND 032420,000287: 36,2252 65261 BZMF TASKOVER 032421,000288: 36,2253 33145 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30 032422,000289: 36,2254 05173 TC TWIDDLE 032423,000290: 36,2255 02266 ADRES TIG-30.1 032424,000291: 032425,000292: 36,2256 35027 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN 032426,000293: 36,2257 05072 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO 032427,000294: 36,2260 E7,1453 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE 032428,000295: 36,2260 02263 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41. 032429,000296: 032430,000297: 36,2262 15261 TCF TASKOVER 032431,000298: 032432,000299: 36,2263 04616 P41BLANK TC BANKCALL # BLANK DSKY. 032433,000300: 36,2264 20456 CADR CLEANDSP 032434,000301: 36,2265 15155 TCF ENDOFJOB 032435,000302: 032436,000303: 36,2266 35027 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30 032437,000304: 36,2267 05072 TC NOVAC 032438,000305: 36,2270 E7,1453 EBANK= TTOGO 032439,000306: 36,2270 02273 74067 2CADR TIG-30A 032440,000307: 032441,000308: 36,2272 15261 TCF TASKOVER
|
|
Page 736 |
032443,000310: 36,2273 33761 TIG-30A CAF V16N85B 032444,000311: 36,2274 04616 TC BANKCALL # RESTORE DISPLAY. 032445,000312: 36,2275 20465 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB 032446,000313: 032447,000314: # ***************************************** 032448,000315: 032449,000316: 36,2276 33144 TIG-30 CAF S24.9SEC 032450,000317: 36,2277 05173 TC TWIDDLE 032451,000318: 36,2300 02352 ADRES TIG-5 032452,000319: 032453,000320: 36,2301 44762 CS CNTDNDEX # START UP CLOKTASK AGAIN 032454,000321: 36,2302 55163 TS DISPDEX 032455,000322: 032456,000323: 36,2303 51455 INDEX WHICH # PICK UP APPROPRIATE ULLAGE - ON TIME 032457,000324: 36,2304 30006 CAF 6 032458,000325: 36,2305 00006 EXTEND 032459,000326: 36,2306 62325 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO 032460,000327: 36,2307 55477 TS SAVET-30 # SAVE DELTA-T FOR RESTART 032461,000328: 36,2310 05173 TC TWIDDLE 032462,000329: 36,2311 02346 ADRES ULLGTASK 032463,000330: 032464,000331: 36,2312 36245 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT) 032465,000332: 36,2313 54001 TS L 032466,000333: 36,2314 46245 CS THREE 032467,000334: 36,2315 52753 DXCH -PHASE1 032468,000335: 36,2316 40025 CS TIME1 032469,000336: 36,2317 55053 TS TBASE1 032470,000337: 032471,000338: 36,2320 51455 INDEX WHICH 032472,000339: 36,2321 10001 TCF 1 032473,000340: 032474,000341: 36,2322 40106 WANTAPS CS FLGWRD10 # (1) FOR P42 ENSURE APSFLAG IS SET. IF IT 032475,000342: 36,2323 74737 MASK APSFLBIT # WASN'T SET, DAP WILL BE INITIALIZED TO 032476,000343: 36,2324 26106 ADS FLGWRD10 # ASCENT VALUES BY 1/ACCS IN 2 SECONDS. 032477,000344: 032478,000345: 36,2325 00006 ULLGNOT EXTEND # (1) 032479,000346: 36,2326 51455 INDEX WHICH 032480,000347: 36,2327 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR 032481,000348: 36,2330 53253 DXCH AVEGEXIT 032482,000349: 032483,000350: 36,2331 34752 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2 032484,000351: 36,2332 54001 TS L 032485,000352: 36,2333 44752 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME. 032486,000353: 36,2334 52761 DXCH -PHASE4 032487,000354: 032488,000355: 36,2335 40025 CS TIME1 032489,000356: 36,2336 55061 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART 032490,000357: 032491,000358: 36,2337 00006 REDO2.17 EXTEND
|
|
Page 737 |
032493,000360: 36,2340 34755 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START 032494,000361: 36,2341 52755 DXCH -PHASE2 # IF NEEDED. 032495,000362: 032496,000363: 36,2342 10763 REDO4.2 CCS PHASE5 # IS SERVICER GOING? 032497,000364: 36,2343 15261 TCF TASKOVER # YES, DON'T START IT UP AGAIN. 032498,000365: 032499,000366: 36,2344 04635 TC POSTJUMP 032500,000367: 36,2345 77410 CADR PREREAD # PREREAD ENDS THIS TASK 032501,000368: 032502,000369: # **************************************** 032503,000370: 032504,000371: 36,2346 02657 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5 032505,000372: 36,2347 05353 TC PHASCHNG 032506,000373: 36,2350 00001 OCT 1 032507,000374: 36,2351 15261 TCF TASKOVER 032508,000375: 032509,000376: # **************************************** 032510,000377: 032511,000378: 36,2352 00006 TIG-5 EXTEND 032512,000379: 36,2353 34755 DCA NEG0 # INSURE THAT GROUP 3 IS INACTIVE. 032513,000380: 36,2354 52757 DXCH -PHASE3 032514,000381: 032515,000382: 36,2355 33756 CAF 5SEC 032516,000383: 36,2356 05173 TC TWIDDLE 032517,000384: 36,2357 02403 ADRES TIG-0 032518,000385: 032519,000386: 36,2360 05516 TC DOWNFLAG # RESET IGNFLAG AND ASTNFLAG 032520,000387: 36,2361 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC 032521,000388: 36,2362 05516 TC DOWNFLAG 032522,000389: 36,2363 00154 ADRES ASTNFLAG 032523,000390: 032524,000391: 36,2364 51455 INDEX WHICH 032525,000392: 36,2365 10011 TCF 11 032526,000393: 032527,000394: 36,2366 10757 P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS? 032528,000395: 36,2367 12376 TCF DISPCHNG # YES 032529,000396: 032530,000397: 36,2370 34736 CAF PRIO20 032531,000398: 36,2371 05105 TC FINDVAC 032532,000399: 36,2372 E7,1453 EBANK= TTOGO 032533,000400: 36,2372 02540 56067 2CADR S40.13 032534,000401: 032535,000402: 36,2374 05353 TC PHASCHNG # 3.5SPOT FOR S40.13 032536,000403: 36,2375 00053 OCT 00053 032537,000404: 36,2376 44760 DISPCHNG CS VB99DEX # (11) 032538,000405: 36,2377 55163 TS DISPDEX 032539,000406:
|
|
Page 738 |
032541,000408: 36,2400 05353 COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT) 032542,000409: 36,2401 40074 OCT 40074 032543,000410: 36,2402 15261 TCF TASKOVER 032544,000411: 032545,000412: # **************************************** 032546,000413: 032547,000414: 36,2403 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED 032548,000415: 36,2404 74737 MASK IGNFLBIT 032549,000416: 36,2405 26103 ADS FLAGWRD7 032550,000417: 032551,000418: 36,2406 05321 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME 032552,000419: 36,2407 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL 032553,000420: 36,2410 12421 TCF IGNYET? 032554,000421: 36,2411 31422 CA ZOOMTIME 032555,000422: 36,2412 05203 TC WAITLIST 032556,000423: 36,2413 E7,1515 EBANK= DVCNTR 032557,000424: 36,2413 02007 36067 2CADR P63ZOOM 032558,000425: 032559,000426: 36,2415 05327 TC 2PHSCHNG 032560,000427: 36,2416 40033 OCT 40033 032561,000428: 032562,000429: 36,2417 05014 OCT 05014 032563,000430: 36,2420 77777 OCT 77777 032564,000431: 032565,000432: 36,2421 34740 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED 032566,000433: 36,2422 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST? 032567,000434: 36,2423 00006 EXTEND 032568,000435: 36,2424 51455 INDEX WHICH 032569,000436: 36,2425 10012 BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET 032570,000437: 032571,000438: 36,2426 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET. 032572,000439: 36,2427 74745 MASK ENGONBIT 032573,000440: 36,2430 26101 ADS FLAGWRD5 032574,000441: 36,2431 44355 CS PRIO30 # TURN ON THE ENGINE. 032575,000442: 36,2432 00006 EXTEND 032576,000443: 36,2433 02011 RAND DSALMOUT 032577,000444: 36,2434 64737 AD BIT13 032578,000445: 36,2435 00006 EXTEND 032579,000446: 36,2436 01011 WRITE DSALMOUT 032580,000447: 36,2437 00006 EXTEND # SET TEVENT FOR DOWNLINK 032581,000448: 36,2440 30025 DCA TIME2 032582,000449: 36,2441 53345 DXCH TEVENT 032583,000450: 032584,000451: 36,2442 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13 032585,000452: 36,2443 31517 DCA TGO 032586,000453: 36,2444 53442 DXCH TIG 032587,000454: 36,2445 00006 EXTEND 032588,000455: 36,2446 30025 DCA TIME2 032589,000456: 36,2447 21442 DAS TIG 032590,000457:
|
|
Page 739 |
032592,000459: 36,2450 44742 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS 032593,000460: 36,2451 70104 MASK FLAGWRD8 032594,000461: 36,2452 54104 TS FLAGWRD8 032595,000462: 032596,000463: 36,2453 51455 INDEX WHICH 032597,000464: 36,2454 10013 TCF 13 032598,000465: 032599,000466: 36,2455 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS 032600,000467: 36,2456 33137 DCA DSP2CADR 032601,000468: 36,2457 53253 DXCH AVGEXIT 032602,000469: 032603,000470: 36,2460 30005 CA Z # ASSASSINATE CLOKTASK 032604,000471: 36,2461 55163 TS DISPDEX 032605,000472: 032606,000473: 36,2462 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71 032607,000474: 36,2463 74743 MASK LETABBIT 032608,000475: 36,2464 26105 ADS FLAGWRD9 032609,000476: 032610,000477: 36,2465 40103 CS FLAGWRD7 # SET SWANDISP TO ENABLE R10. 032611,000478: 36,2466 74741 MASK SWANDBIT 032612,000479: 36,2467 26103 ADS FLAGWRD7 032613,000480: 032614,000481: 36,2470 44735 CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE 032615,000482: 36,2471 70111 MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66 032616,000483: 36,2472 54111 TS DAPBOOLS 032617,000484: 032618,000485: 36,2473 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71. 032619,000486: 36,2474 30025 DCA TIME2 032620,000487: 36,2475 53442 DXCH TIG 032621,000488: 032622,000489: 36,2476 34755 CAF ZERO # INITIALIZE WCHPHASE AND FLPASSO 032623,000490: 36,2477 55351 TS WCHPHASE 032624,000491: 36,2500 55621 TS WCHPHOLD # ALSO WHCPHOLD 032625,000492: 36,2501 34752 CA TWO 032626,000493: 36,2502 55623 TS FLPASS0 032627,000494: 032628,000495: 36,2503 12541 TCF P42IGN 032629,000496: 36,2504 40101 P40IGN CS FLAGWRD5 # (13) 032630,000497: 36,2505 74740 MASK NOTHRBIT 032631,000498: 36,2506 00006 EXTEND 032632,000499: 36,2507 12541 BZF P42IGN 032633,000500: 36,2510 31422 CA ZOOMTIME 032634,000501: 36,2511 05203 TC WAITLIST 032635,000502: 36,2512 E7,1515 EBANK= DVCNTR 032636,000503: 36,2512 02015 36067 2CADR P40ZOOM 032637,000504: 032638,000505: 36,2514 05327 P63IGN1 TC 2PHSCHNG 032639,000506: 36,2515 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART. 032640,000507: 36,2516 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY 032641,000508: 36,2517 77777 OCT 77777 032642,000509:
|
|
Page 740 |
032644,000511: 36,2520 12541 TCF P42IGN 032645,000512: 36,2521 35015 P12IGN CAF EBANK6 032646,000513: 36,2522 54003 TS EBANK 032647,000514: 36,2523 E6,1537 EBANK= AOSQ 032648,000515: 032649,000516: 36,2523 31412 CA IGNAOSQ # INITIALIZE DAP BIAS ACCELERATION 032650,000517: 36,2524 55537 TS AOSQ # ESTIMATES AT P12 IGNITION. 032651,000518: 36,2525 31413 CA IGNAOSR 032652,000519: 36,2526 55541 TS AOSR 032653,000520: 032654,000521: 36,2527 35016 CAF EBANK7 032655,000522: 36,2530 54003 TS EBANK 032656,000523: 36,2531 E7,1515 EBANK= DVCNTR 032657,000524: 032658,000525: 36,2531 30005 ABRTIGN CA Z # (13) KILL CLOKTASK 032659,000526: 36,2532 55163 TS DISPDEX 032660,000527: 032661,000528: 36,2533 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER. 032662,000529: 36,2534 33141 DCA ATMAGADR 032663,000530: 36,2535 53253 DXCH AVGEXIT 032664,000531: 032665,000532: 36,2536 40103 CS FLAGWRD7 # ENABLE R10. 032666,000533: 36,2537 74741 MASK SWANDBIT 032667,000534: 36,2540 26103 ADS FLAGWRD7 032668,000535: 032669,000536: 36,2541 44744 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING 032670,000537: 36,2542 70111 MASK DAPBOOLS # CURVES ARE USED. 032671,000538: 36,2543 54111 TS DAPBOOLS 032672,000539: 36,2544 34743 CAF IMPULBIT # EXAMINE IMPULSE SWITCH 032673,000540: 36,2545 70076 MASK FLAGWRD2 032674,000541: 36,2546 10000 CCS A 032675,000542: 36,2547 13522 TCF IMPLBURN 032676,000543: 032677,000544: 36,2550 05516 DVMONCON TC DOWNFLAG 032678,000545: 36,2551 00153 ADRES IGNFLAG # CONNECT DVMON 032679,000546: 36,2552 05516 TC DOWNFLAG 032680,000547: 36,2553 00154 ADRES ASTNFLAG 032681,000548: 36,2554 05516 TC DOWNFLAG 032682,000549: 36,2555 00161 ADRES IDLEFLAG 032683,000550: 032684,000551: 36,2556 05353 TC PHASCHNG 032685,000552: 36,2557 40054 OCT 40054 032686,000553: 032687,000554: 36,2560 05221 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER 032688,000555: 36,2561 00062 DEC 50 B-14 # LIGHT UP. 032689,000556: 032690,000557: 36,2562 02653 ULLAGOFF TC NOULLAGE 032691,000558: 032692,000559: 36,2563 00006 WAITABIT EXTEND # KILL GROUP 4 032693,000560: 36,2564 34755 DCA NEG0
|
|
Page 741 |
032695,000562: 36,2565 52761 DXCH -PHASE4 032696,000563: 032697,000564: 36,2566 15261 TCF TASKOVER 032698,000565: 032699,000566: 36,2567 04635 TIGTASK TC POSTJUMP # (12) 032700,000567: 36,2570 36000 CADR TIGTASK1 032701,000568: 032702,000569: # **************************************** 032703,000570: 032704,000571: 31,2144 BANK 31 032705,000572: 17,2000 SETLOC P40S3 032706,000573: 17,2000 BANK 032707,000574: 17,2000 COUNT* $$/P40 032708,000575: 032709,000576: 17,2000 35026 TIGTASK1 CAF PRIO16 032710,000577: 17,2001 05072 TC NOVAC 032711,000578: 17,2002 E7,1462 EBANK= TRKMKCNT 032712,000579: 17,2002 03241 74067 2CADR TIGNOW 032713,000580: 032714,000581: 17,2004 05353 TC PHASCHNG 032715,000582: 17,2005 00006 OCT 6 # KILL GROUP 6. 032716,000583: 032717,000584: 17,2006 15261 TCF TASKOVER 032718,000585: 032719,000586: # **************************************** 032720,000587: 032721,000588: 17,2007 00006 P63ZOOM EXTEND 032722,000589: 17,2010 32026 DCA LUNLANAD 032723,000590: 17,2011 53253 DXCH AVEGEXIT 032724,000591: 032725,000592: 17,2012 04674 TC IBNKCALL 032726,000593: 17,2013 62370 CADR FLATOUT 032727,000594: 17,2014 12022 TCF P40ZOOMA 032728,000595: 032729,000596: 17,2015 34737 P40ZOOM CAF BIT13 032730,000597: 17,2016 54055 TS THRUST 032731,000598: 17,2017 34750 CAF BIT4 032732,000599: 032733,000600: 17,2020 00006 EXTEND 032734,000601: 17,2021 05014 WOR CHAN14 032735,000602: 032736,000603: 17,2022 05353 P40ZOOMA TC PHASCHNG 032737,000604: 17,2023 00003 OCT 3 032738,000605: 17,2024 15261 TCF TASKOVER 032739,000606: 032740,000607: 17,2025 E7,1515 EBANK= DVCNTR 032741,000608: 17,2025 02462 62067 LUNLANAD 2CADR LUNLAND 032742,000609:
|
|
Page 742 |
032744,000611: 17,2027 17,2022 ZOOM = P40ZOOMA 032745,000612: 36,2571 BANK 36 032746,000613: 36,2000 SETLOC P40S 032747,000614: 36,2000 BANK 032748,000615: 36,2571 COUNT* $$/P40 032749,000616: 032750,000617: # **************************************** 032751,000618: 032752,000619: 36,2571 05504 COMFAIL TC UPFLAG # (15) 032753,000620: 36,2572 00161 ADRES IDLEFLAG 032754,000621: 36,2573 05504 TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY 032755,000622: 36,2574 00175 ADRES FLUNDISP 032756,000623: 36,2575 34751 CAF FOUR # RESET DVMON 032757,000624: 36,2576 55515 TS DVCNTR 032758,000625: 36,2577 10765 CCS PHASE6 # CLOCKTASK ACTIVE? 032759,000626: 36,2600 12603 TCF +3 # YES 032760,000627: 36,2601 04616 TC BANKCALL # OTHERWISE, START IT UP 032761,000628: 36,2602 74663 CADR STCLOK1 032762,000629: 36,2603 44765 +3 CS VB97DEX 032763,000630: 36,2604 55163 TS DISPDEX 032764,000631: 36,2605 05353 TC PHASCHNG # TURN OFF GROUP 4. 032765,000632: 36,2606 00004 OCT 00004 032766,000633: 36,2607 15155 TCF ENDOFJOB 032767,000634: 032768,000635: 36,2610 51455 COMFAIL1 INDEX WHICH 032769,000636: 36,2611 10002 TCF 2 032770,000637: 032771,000638: 36,2612 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z 032772,000639: 36,2613 12615 TCF +2 032773,000640: 032774,000641: 36,2614 44762 COMFAIL4 CS CNTDNDEX 032775,000642: 36,2615 55163 TS DISPDEX 032776,000643: 032777,000644: 36,2616 05516 TC DOWNFLAG # RECONNECT DV MONITOR 032778,000645: 36,2617 00161 ADRES IDLEFLAG 032779,000646: 36,2620 05516 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS 032780,000647: 36,2621 00175 ADRES FLUNDISP 032781,000648: 36,2622 15155 TCF ENDOFJOB 032782,000649: 032783,000650: 36,2623 05353 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION 032784,000651: 36,2624 00003 OCT 00003 032785,000652: 032786,000653: 36,2625 00004 INHINT 032787,000654: 36,2626 06027 TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME 032788,000655: 36,2627 36022 CADR ZOOM 032789,000656: 36,2630 04674 TC IBNKCALL # COMMAND ENGINE OFF 032790,000657: 36,2631 75561 CADR ENGINOF4 032791,000658: 36,2632 05504 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP. 032792,000659: 36,2633 00312 ADRES DRIFTDFL
|
|
Page 743 |
032794,000661: 36,2634 02645 TC INVFLAG # USE OTHER RCS SYSTEM 032795,000662: 36,2635 00310 ADRES AORBTFLG 032796,000663: 36,2636 05504 TC UPFLAG # TURN ON ULLAGE 032797,000664: 36,2637 00314 ADRES ULLAGFLG 032798,000665: 36,2640 34753 CAF BIT1 032799,000666: 36,2641 00004 INHINT 032800,000667: 36,2642 05173 TC TWIDDLE 032801,000668: 36,2643 02352 ADRES TIG-5 032802,000669: 36,2644 15155 TCF ENDOFJOB 032803,000670: 032804,000671: # **************************************** 032805,000672: # SUBROUTINES OF THE IGNITION ROUTINE 032806,000673: # **************************************** 032807,000674: 032808,000675: 36,2645 30002 INVFLAG CA Q 032809,000676: 36,2646 05522 TC DEBIT 032810,000677: 36,2647 40000 COM 032811,000678: 36,2650 00006 EXTEND 032812,000679: 36,2651 06001 RXOR LCHAN 032813,000680: 36,2652 15511 TCF COMFLAG 032814,000681: 032815,000682: # **************************************** 032816,000683: 032817,000684: 36,2653 44746 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT 032818,000685: 36,2654 70111 MASK DAPBOOLS 032819,000686: 36,2655 54111 TS DAPBOOLS 032820,000687: 36,2656 00002 TC Q 032821,000688: 032822,000689: # **************************************** 032823,000690: 032824,000691: 36,2657 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN 032825,000692: 36,2660 74746 MASK ULLAGER # A TASK OR WHILE INHINTED. 032826,000693: 36,2661 26111 ADS DAPBOOLS 032827,000694: 36,2662 00002 TC Q 032828,000695: 032829,000696: # **************************************** 032830,000697: 032831,000698: 36,2663 34755 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN 032832,000699: 36,2664 55163 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING 032833,000700: 36,2665 04645 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT. 032834,000701: 36,2666 55061 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS) 032835,000702: 36,2667 00006 EXTEND 032836,000703: 36,2670 31442 DCA TIG 032837,000704: 36,2671 52155 DXCH MPAC 032838,000705: 36,2672 00006 EXTEND 032839,000706: 36,2673 40025 DCS TIME2
|
|
Page 744 |
032841,000708: 36,2674 20155 DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER 032842,000709: 36,2675 07257 TC TPAGREE # POSITIVE, SINCE WE PASSED THE 032843,000710: 36,2676 34777 CAF 1SEC # 45 SECOND CHECK 032844,000711: 36,2677 54002 TS Q 032845,000712: 36,2700 52155 DXCH MPAC 032846,000713: 36,2701 74346 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A 032847,000714: 36,2702 00006 EXTEND 032848,000715: 36,2703 10002 DV Q 032849,000716: 36,2704 30001 CA L # GET REMAINDER 032850,000717: 36,2705 64752 AD TWO 032851,000718: 36,2706 00004 INHINT 032852,000719: 36,2707 05173 TC TWIDDLE 032853,000720: 36,2710 02717 ADRES CLOKTASK 032854,000721: 36,2711 05327 TC 2PHSCHNG 032855,000722: 36,2712 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK 032856,000723: 36,2713 05024 OCT 05024 032857,000724: 36,2714 13000 OCT 13000 032858,000725: 032859,000726: 36,2715 31061 CA TBASE4 032860,000727: 36,2716 04640 TC BANKJUMP 032861,000728: 032862,000729: 36,2717 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART 032863,000730: 36,2720 55065 TS TBASE6 032864,000731: 032865,000732: 36,2721 11163 CCS DISPDEX 032866,000733: 36,2722 12733 TCF KILLCLOK 032867,000734: 36,2723 12724 NOOP 032868,000735: 36,2724 37715 CAF PRIO27 032869,000736: 36,2725 05072 TC NOVAC 032870,000737: 36,2726 E7,1453 EBANK= TTOGO 032871,000738: 36,2726 02737 74067 2CADR CLOKJOB 032872,000739: 032873,000740: 36,2730 05221 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER 032874,000741: 36,2731 00144 DEC 100 B-14 032875,000742: 36,2732 12717 TCF CLOKTASK 032876,000743: 032877,000744: 36,2733 00006 KILLCLOK EXTEND # KILL RESTART 032878,000745: 36,2734 34755 DCA NEG0 032879,000746: 36,2735 52765 DXCH -PHASE6 032880,000747: 36,2736 15261 TCF TASKOVER 032881,000748: 032882,000749: 36,2737 00006 CLOKJOB EXTEND 032883,000750: 36,2740 41442 DCS TIG 032884,000751: 36,2741 53454 DXCH TTOGO 032885,000752: 36,2742 00006 EXTEND
|
|
Page 745 |
032887,000754: 36,2743 30025 DCA TIME2 032888,000755: 36,2744 21454 DAS TTOGO 032889,000756: 36,2745 00004 INHINT 032890,000757: 36,2746 11163 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A 032891,000758: 36,2747 15155 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE 032892,000759: 36,2750 15155 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN 032893,000760: 36,2751 40000 COM # INDEX. 032894,000761: 36,2752 00003 RELINT # ***** DISPDEX MUST NEVER BE -0 ***** 032895,000762: 36,2753 50000 INDEX A 032896,000763: 36,2754 13011 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS) 032897,000764: 032898,000765: 36,2755 4765 VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX 032899,000766: 032900,000767: 36,2755 44755 -35 CS ZERO # INDICATE VERB 97 PASTE 032901,000768: 36,2756 55067 TS NVWORD1 032902,000769: 36,2757 30371 CA NVWORD +2 # NVWROD+2 CONTAINS V06 & APPROPRIATE NOUN 032903,000770: 36,2760 04616 TC BANKCALL 032904,000771: 36,2761 20473 CADR CLOCPLAY 032905,000772: 36,2762 13013 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H 032906,000773: 36,2763 12610 TCF COMFAIL1 032907,000774: 36,2764 12623 TCF COMFAIL2 032908,000775: 032909,000776: # THIS DISPLAY IS CALLED VIA ASTNCLOK 032910,000777: 36,2765 33146 -25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63 032911,000778: 36,2766 04616 TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH 032912,000779: 36,2767 20457 CADR REFLASH # TIG. 032913,000780: 36,2770 13013 TCF STOPCLOK 032914,000781: 36,2771 13030 TCF ASTNRETN 032915,000782: 36,2772 12764 TCF -6 032916,000783: 032917,000784: 36,2773 4762 CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX 032918,000785: 032919,000786: 36,2773 51455 -17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND 032920,000787: 36,2774 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED 032921,000788: 36,2775 04616 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS 032922,000789: 36,2776 20465 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB 032923,000790: 032924,000791: 36,2777 4760 VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX 032925,000792: 032926,000793: 36,2777 V99RECYC EQUALS 032927,000794: 032928,000795: 36,2777 44743 -13 CS BIT9 # INDICATE VERB 99 PASTE 032929,000796: 36,3000 55067 TS NVWORD1 032930,000797: 36,3001 51455 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE" 032931,000798: 36,3002 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC. 032932,000799: 36,3003 04616 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS THE 032933,000800: 36,3004 20473 CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED 032934,000801: 36,3005 13013 TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE. 032935,000802: 36,3006 13041 TCF *PROCEED 032936,000803: 36,3007 13044 TCF *ENTER 032937,000804:
|
|
Page 746 |
032939,000806: 36,3010 4752 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX 032940,000807: 032941,000808: 36,3010 04616 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR 032942,000809: 36,3011 20456 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT 032943,000810: 36,3012 15155 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING. 032944,000811: 032945,000812: 36,3013 03015 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE 032946,000813: 36,3014 16001 TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS) 032947,000814: 032948,000815: 36,3015 00004 NULLCLOK INHINT 032949,000816: 36,3016 00006 EXTEND 032950,000817: 36,3017 23142 QXCH P40/RET 032951,000818: 36,3020 02653 TC NOULLAGE # TURN OFF ULLAGE ... 032952,000819: 36,3021 06027 TC KILLTASK # DON'T LET IT COME ON, EITHER ... 032953,000820: 36,3022 74346 CADR ULLGTASK 032954,000821: 36,3023 05353 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART. 032955,000822: 36,3024 00001 OCT 1 032956,000823: 36,3025 30005 CA Z # KILL CLOKTASK 032957,000824: 36,3026 55163 TS DISPDEX 032958,000825: 36,3027 01142 TC P40/RET 032959,000826: 032960,000827: 36,3030 05353 ASTNRETN TC PHASCHNG 032961,000828: 36,3031 04024 OCT 04024 032962,000829: 36,3032 34755 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING. 032963,000830: 36,3033 55163 TS DISPDEX 032964,000831: 36,3034 35023 CAF PRIO13 032965,000832: 36,3035 05105 TC FINDVAC 032966,000833: 36,3036 E5,1757 EBANK= STARIND 032967,000834: 36,3036 03210 64065 2CADR ASTNRET 032968,000835: 032969,000836: 36,3040 15155 TCF ENDOFJOB 032970,000837: 032971,000838: 36,3041 05504 *PROCEED TC UPFLAG 032972,000839: 36,3042 00154 ADRES ASTNFLAG 032973,000840: 032974,000841: 36,3043 13102 TCF IGNITE 032975,000842: 032976,000843: 36,3044 00004 *ENTER INHINT 032977,000844: 36,3045 51455 INDEX WHICH 032978,000845: 36,3046 10003 TCF 3 032979,000846: 032980,000847: 36,3047 34644 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB 032981,000848: 36,3050 05105 TC FINDVAC 032982,000849: 36,3051 E7,1453 EBANK= TTOGO 032983,000850: 36,3051 03223 74067 2CADR POSTBURN 032984,000851:
|
|
Page 747 |
032986,000853: 36,3053 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT. 032987,000854: 36,3054 04674 TC IBNKCALL 032988,000855: 36,3055 40204 CADR ALLCOAST 032989,000856: 36,3056 03015 TC NULLCLOK 032990,000857: 36,3057 05353 TC PHASCHNG # 4.13 RESTART FOR POSTBURN 032991,000858: 36,3060 00134 OCT 00134 032992,000859: 032993,000860: 36,3061 15155 TCF ENDOFJOB 032994,000861: 032995,000862: 36,3062 35027 GOCUTOFF CAF PRIO17 # (3) 032996,000863: 36,3063 05105 TC FINDVAC 032997,000864: 36,3064 E7,1516 EBANK= TGO 032998,000865: 36,3064 02424 30067 2CADR CUTOFF 032999,000866: 033000,000867: 36,3066 05516 TC DOWNFLAG 033001,000868: 36,3067 00175 ADRES FLUNDISP 033002,000869: 033003,000870: 36,3070 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT. 033004,000871: 36,3071 04674 TC IBNKCALL 033005,000872: 36,3072 40204 CADR ALLCOAST 033006,000873: 36,3073 03015 TC NULLCLOK 033007,000874: 36,3074 05353 TC PHASCHNG 033008,000875: 36,3075 07024 OCT 07024 033009,000876: 36,3076 17000 OCT 17000 033010,000877: 36,3077 E7,1516 EBANK= TGO 033011,000878: 36,3077 02424 30067 2CADR CUTOFF 033012,000879: 033013,000880: 36,3101 15155 TCF ENDOFJOB 033014,000881: 033015,000882: 36,3102 40103 IGNITE CS FLAGWRD7 # (2) 033016,000883: 36,3103 74737 MASK IGNFLBIT 033017,000884: 36,3104 10000 CCS A 033018,000885: 36,3105 13116 TCF IGNITE1 033019,000886: 36,3106 34753 CAF BIT1 033020,000887: 36,3107 00004 INHINT 033021,000888: 36,3110 05173 TC TWIDDLE 033022,000889: 36,3111 02426 ADRES IGNITION 033023,000890: 033024,000891: 36,3112 34360 CAF OCT23 # IMMEDIATE RESTART AT IGNITION. 033025,000892: 36,3113 54001 TS L 033026,000893: 36,3114 40000 COM 033027,000894: 36,3115 52761 DXCH -PHASE4 033028,000895: 033029,000896: 36,3116 44762 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY. 033030,000897: 36,3117 55163 TS DISPDEX 033031,000898: 033032,000899: 36,3120 15155 TCF ENDOFJOB 033033,000900:
|
|
Page 748 |
033035,000902: # **************************************** 033036,000903: 033037,000904: 36,3121 05567 P40ALM TC ALARM # PROGRAM SELECTION NOT CONSISTENT WITH 033038,000905: 36,3122 01706 OCT 1706 # VEHICLE CONFIGURATION 033039,000906: 033040,000907: 36,3123 35006 REP40ALM CAF V05N09 # (14) 033041,000908: 36,3124 04616 TC BANKCALL 033042,000909: 36,3125 20476 CADR GOFLASH 033043,000910: 033044,000911: 36,3126 16001 TCF GOTOPOOH # V34E TERMINATE 033045,000912: 36,3127 13131 TCF +2 # PROCEED CHECK FOR P42 033046,000913: 36,3130 13123 TCF REP40ALM # V32E REDISPLAY ALARM 033047,000914: 033048,000915: 36,3131 51455 INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN 033049,000916: 36,3132 10014 TCF 14 # THOUGH VEHICLE IS UNSTAGED 033050,000917: 033051,000918: # **************************************** 033052,000919: 033053,000920: 31,2144 BANK 31 033054,000921: 35,2000 SETLOC P40S2 033055,000922: 35,2000 BANK 033056,000923: 033057,000924: 35,3747 COUNT* $$/P40 033058,000925: 033059,000926: 35,3747 04645 P40AUTO TC MAKECADR # HELLO THERE. 033060,000927: 35,3750 55164 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS. 033061,000928: 35,3751 04616 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL 033062,000929: 35,3752 54255 CADR G+N,AUTO # AND AUTO STABILIZATION MODES 033063,000930: 35,3753 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO 033064,000931: 35,3754 13766 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO 033065,000932: 35,3755 34737 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE? 033066,000933: 35,3756 70106 MASK FLGWRD10 033067,000934: 35,3757 10000 CCS A 033068,000935: 35,3760 13773 TCF GOBACK # RETURN 033069,000936: 35,3761 34747 CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE 033070,000937: 35,3762 00006 EXTEND 033071,000938: 35,3763 02030 RAND CHAN30 033072,000939: 35,3764 00006 EXTEND 033073,000940: 35,3765 13773 BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN 033074,000941: 35,3766 33775 TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM 033075,000942: 35,3767 04616 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC. 033076,000943: 35,3770 20623 CADR GOPERF1 033077,000944: 35,3771 16001 TCF GOTOPOOH # V34E TERMINATE 033078,000945: 35,3772 13751 TCF P40A/P # RECYCLE 033079,000946: 35,3773 31164 GOBACK CA TEMPR60 033080,000947: 35,3774 04640 TC BANKJUMP # GOODBYE. COME AGAIN SOON. 033081,000948: 033082,000949: 35,3775 00203 P40A/PMD OCT 00203 033083,000950:
|
|
Page 749 |
033085,000952: 36,3133 BANK 36 033086,000953: 36,2000 SETLOC P40S 033087,000954: 36,2000 BANK 033088,000955: 033089,000956: 36,3133 COUNT* $$/P40 033090,000957: 033091,000958: # **************************************** 033092,000959: # CONSTANTS FOR THE IGNITION ROUTINE 033093,000960: # **************************************** 033094,000961: 033095,000962: 36,3133 36,2105 SERVCADR = P63TABLE +7 033096,000963: 033097,000964: 36,3133 02036 P40ADRES ADRES P40TABLE 033098,000965: 033099,000966: 36,3134 02046 P41ADRES ADRES P41TABLE -5 033100,000967: 033101,000968: 36,3135 02061 P42ADRES ADRES P42TABLE 033102,000969: 033103,000970: 36,3136 E7,1515 EBANK= DVCNTR 033104,000971: 36,3136 03471 62067 DSP2CADR 2CADR P63DISPS -2 033105,000972: 033106,000973: 36,3140 E7,1515 EBANK= DVCNTR 033107,000974: 36,3140 03642 70067 ATMAGADR 2CADR ATMAG 033108,000975: 033109,000976: 36,3142 6001 ? = GOTOPOOH 033110,000977: 033111,000978: 36,3142 00000 05656 D29.9SEC 2DEC 2990 B-28 033112,000979: 033113,000980: 36,3144 04672 S24.9SEC DEC 2490 B-14 033114,000981: 033115,000982: 36,3145 00752 4.9SEC DEC 490 B-14 033116,000983: 033117,000984: 36,3146 4747 OCT20 = BIT5 033118,000985: 033119,000986: 36,3146 01475 V06N61 VN 0661 033120,000987:
|
|
Page 750 |
033122,000989: # KILLTASK 033123,000990: # MOD NO: NEW PROGRAM 033124,000991: # MOD BY: COVELLI 033125,000992: 033126,000993: # FUNCTIONAL DESCRIPTION: 033127,000994: 033128,000995: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING A NULL TASK CALLED 'NULLTASK' (OF COURSE), 033129,000996: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR 033130,000997: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK 033131,000998: # LEAVES INTERRUPTS INHIBITED SO CALLER MUST RELINT 033132,000999: 033133,001000: # CALLING SEQUENCE: 033134,001001: # L TC KILLTASK IN FIXED-FIXED 033135,001002: # L+1 CADR ???????? CADR (NOT 2CADR) OF TASK TO BE REMOVED. 033136,001003: # L+2 (RELINT) RETURN 033137,001004: 033138,001005: # EXIT MODE: AT L+2 OF CALLING SEQUENCE. 033139,001006: 033140,001007: # ERASABLE INITIALIZATION= NONE. 033141,001008: 033142,001009: # OUTPUT: 2CADR OF NULLTASK IN LST2 033143,001010: 033144,001011: # DEBRIS: ITEMP1 - ITEMP4, A, L, Q. 033145,001012: 033146,001013: 36,3147 E3,1410 EBANK= LST2 033147,001014: 6027 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED. 033148,001015: 6000 SETLOC FFTAG6 033149,001016: 6000 BANK 033150,001017: 6027 COUNT* $$/KILL 033151,001018: 6027 36036 KILLTASK CA KILLBB 033152,001019: 6030 00004 INHINT 033153,001020: 6031 22000 LXCH A 033154,001021: 6032 50002 INDEX Q 033155,001022: 6033 30000 CA 0 # GET CADR. 033156,001023: 6034 22006 LXCH BBANK 033157,001024: 6035 12200 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED 033158,001025: 033159,001026: 6036 E3,1410 EBANK= LST2 033160,001027: 6036 56063 KILLBB BBCON KILLTSK2 033161,001028: 033162,001029: 27,2200 BANK 27 033163,001030: 033164,001031: 27,2000 SETLOC P40S1 033165,001032: 27,2000 BANK 033166,001033: 27,2200 COUNT* $$/KILL 033167,001034: 033168,001035: 27,2200 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
|
|
Page 751 |
033170,001037: 27,2201 24002 INCR Q 033171,001038: 27,2202 00006 EXTEND 033172,001039: 27,2203 22061 QXCH ITEMP1 # RETURN 2CADR IN ITEMP1,ITEMP2 033173,001040: 033174,001041: 27,2204 54063 TS ITEMP3 # CADR IS IN A 033175,001042: 27,2205 75012 MASK LOW10 033176,001043: 27,2206 64741 AD BIT11 033177,001044: 27,2207 54064 TS ITEMP4 # GENADR OF TASK 033178,001045: 033179,001046: 27,2210 45012 CS LOW10 033180,001047: 27,2211 70063 MASK ITEMP3 033181,001048: 27,2212 54063 TS ITEMP3 # FBANK OF TASK 033182,001049: 033183,001050: 27,2213 22007 ZL 033184,001051: 27,2214 50001 ADRSCAN INDEX L 033185,001052: 27,2215 41410 CS LST2 033186,001053: 27,2216 60064 AD ITEMP4 # COMPARE GENADRS 033187,001054: 27,2217 00006 EXTEND 033188,001055: 27,2220 12232 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS 033189,001056: 27,2221 44747 LETITLIV CS LSTLIM 033190,001057: 27,2222 60001 AD L 033191,001058: 27,2223 00006 EXTEND # ARE WE DONE? 033192,001059: 27,2224 12230 BZF DEAD # YES - DONE, SO RETURN 033193,001060: 27,2225 24001 INCR L 033194,001061: 27,2226 24001 INCR L 033195,001062: 27,2227 12214 TCF ADRSCAN # CONTINUE LOOP. 033196,001063: 033197,001064: 27,2230 52062 DEAD DXCH ITEMP1 033198,001065: 27,2231 52006 DTCB 033199,001066: 033200,001067: 27,2232 45012 TSTFBANK CS LOW10 033201,001068: 27,2233 50001 INDEX L 033202,001069: 27,2234 71411 MASK LST2 +1 # COMPARE FBANKS ONLY. 033203,001070: 27,2235 00006 EXTEND 033204,001071: 27,2236 60063 SU ITEMP3 033205,001072: 27,2237 00006 EXTEND 033206,001073: 27,2240 12242 BZF KILLDEAD # MATCH - KILL IT. 033207,001074: 27,2241 12221 TCF LETITLIV # NO MATCH - CONTINUE. 033208,001075: 033209,001076: 27,2242 34353 KILLDEAD CA TCTSKOVR 033210,001077: 27,2243 50001 INDEX L 033211,001078: 27,2244 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER 033212,001079: 27,2245 12230 TCF DEAD 033213,001080: 033214,001081: 27,2246 4747 LSTLIM EQUALS BIT5 # DEC 16 End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc