GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
032271,000002: ## Copyright: Public domain.
032272,000003: ## Filename: BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc
032273,000004: ## Purpose: The main source file for Luminary revision 069.
032274,000005: ## It is part of the source code for the original release
032275,000006: ## of the flight software for the Lunar Module's (LM) Apollo
032276,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
032277,000008: ## version was Luminary 69 revision 2, which included a
032278,000009: ## newer lunar gravity model and only affected module 2.
032279,000010: ## This file is intended to be a faithful transcription, except
032280,000011: ## that the code format has been changed to conform to the
032281,000012: ## requirements of the yaYUL assembler rather than the
032282,000013: ## original YUL assembler.
032283,000014: ## Reference: pp. 739-758
032284,000015: ## Assembler: yaYUL
032285,000016: ## Contact: Ron Burkey <info@sandroid.org>.
032286,000017: ## Website: www.ibiblio.org/apollo/index.html
032287,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
032288,000019: ## 2016-12-15 MAS Updated from comment-proofed Luminary 99 version.
032289,000020: ## 2017-01-20 HG Transcribed
032290,000021: ## 2017-01-22 HG Shift pseudo label +3 to column 2
032291,000022: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
032292,000023: ## and fixed errors found.
032293,000024: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
032294,000025: ## side-by-side diff of Luminary 69/99/116/131/210.
032295,000026:
|
|
Page 739
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) related a little interesting history behind the naming of the routine to one of us. 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. |
032309,000040:
032310,000041: 36,2022 BANK 36
032311,000042: 36,2000 SETLOC P40S
032312,000043: 36,2000 BANK
032313,000044: 36,2022 E7,1453 EBANK= WHICH
032314,000045: 36,2022 COUNT* $$/P40
032315,000046: # THE MASTER IGNITION ROUTINE IS DESIGNED FOR USE BY THE FOLLOWING LEM PROGRAMS: P12, P40, P42, P61, P63.
032316,000047: # IT PERFORMS ALL FUNCTIONS IMMEDIATELY ASSOCIATED WITH APS OR DPS IGNITION: IN PARTICULAR, EVERYTHING LYING
032317,000048: # BETWEEN THE PRE-IGNITION TIME CHECK -- ARE WE WITHIN 45 SECONDS OF TIG? -- AND TIG + 26 SECONDS, WHEN DPS
032318,000049: # PROGRAMS THROTTLE UP.
032319,000050:
032320,000051: # VARIATIONS AMONG PROGRAMS ARE ACCOMODATED BY MEANS OF TABLES CONTAINING CONSTANTS (FOR AVEGEXIT, FOR
032321,000052: # WAITLIST, FOR PINBALL) AND TCF INSTRUCTIONS. USERS PLACE THE ADRES OF THE HEAD OF THE APPROPRIATE TABLE
032322,000053: # (OF P61TABLE FOR P61LM, FOR EXAMPLE) IN ERASABLE REGISTER 'WHICH' (E4). THE IGNITION ROUTINE THEN INDEXES BY
032323,000054: # WHICH TO OBTAIN OR EXECUTE THE PROPER TABLE ENTRY. THE IGNITION ROUTINE IS INITIATED BY A TCF BURNBABY,
032324,000055: # THROUGH BANKJUMP IF NECESSARY. THERE IS NO RETURN.
032325,000056:
032326,000057: # THE MASTER IGNITION ROUTINE WAS CONCEIVED AND EXECUTED, AND (NOTA BENE) IS MAINTAINED BY ADLER AND EYLES.
032327,000058:
032328,000059:
032329,000060: # HONI SOIT QUI MAL Y PENSE
032330,000061:
032331,000062:
032332,000063: # ****************************************
032333,000064: # TABLES FOR THE IGNITION ROUTINE
032334,000065: # ****************************************
032335,000066:
032336,000067: # NOLI SE TANGERE
032337,000068:
032338,000069: 36,2022 01512 P12TABLE VN 0674 # (0)
032339,000070: 36,2023 01512 VN 0674 # (1)
032340,000071: 36,2024 12615 TCF COMFAIL3 # (2)
032341,000072: 36,2025 13072 TCF GOCUTOFF # (3)
032342,000073: 36,2026 15261 TCF TASKOVER # (4)
032343,000074: 36,2027 12144 TCF P12SPOT # (5)
032344,000075: 36,2030 00000 DEC 0 B-14 # (6) NO ULLAGE
032345,000076: 36,2031 E7,1453 EBANK= WHICH
032346,000077: 36,2031 03525 76067 2CADR SERVEXIT # (7)
032347,000078: 36,2033 12364 TCF DISPCHNG # (11)
032348,000079: 36,2034 12541 TCF WAITABIT # (12)
032349,000080: 36,2035 12506 TCF P12IGN # (13)
032350,000081:
032351,000082:
032352,000083:
032353,000084: 36,2036 01450 P40TABLE VN 0640 # (0)
032354,000085: 36,2037 01450 VN 0640 # (1)
032355,000086: 36,2040 12617 TCF COMFAIL4 # (2)
032356,000087: 36,2041 13057 TCF GOPOST # (3)
032357,000088: 36,2042 12564 TCF P40ZOOM # (4)
032358,000089: 36,2043 12144 TCF P40SPOT # (5)
032359,000090:
|
|
Page 740 |
032361,000092: 36,2044 04300 DEC 2240 B-14 # (6)
032362,000093: 36,2045 E6,1420 EBANK= OMEGAQ
032363,000094: 36,2045 03641 74066 2CADR STEERING # (7)
032364,000095: 36,2047 12360 TCF P40SJUNK # (11)
032365,000096: 36,2050 12541 TCF WAITABIT # (12)
032366,000097: 36,2051 12467 TCF P40IGN # (13)
032367,000098:
032368,000099:
032369,000100:
032370,000101: 36,2052 12147 P41TABLE TCF P41SPOT # (5)
032371,000102: 36,2053 77776 DEC -1 B-14 # (6)
032372,000103: 36,2054 E6,1420 EBANK= OMEGAQ
032373,000104: 36,2054 03376 74066 2CADR CALCN85 # (7)
032374,000105:
032375,000106: 36,2056 15261 TCF TASKOVER # (11)
032376,000107: 36,2057 12545 TCF TIGTASK # (12)
032377,000108:
032378,000109:
032379,000110:
032380,000111: 36,2060 01450 P42TABLE VN 0640 # (0)
032381,000112: 36,2061 01450 VN 0640 # (1)
032382,000113: 36,2062 12617 TCF COMFAIL4 # (2)
032383,000114: 36,2063 13057 TCF GOPOST # (3)
032384,000115: 36,2064 15261 TCF TASKOVER # (4)
032385,000116: 36,2065 12144 TCF P42SPOT # (5)
032386,000117: 36,2066 05120 DEC 2640 B-14 # (6)
032387,000118: 36,2067 E6,1420 EBANK= OMEGAQ
032388,000119: 36,2067 03641 74066 2CADR STEERING # (7)
032389,000120: 36,2071 12360 TCF P40SJUNK # (11)
032390,000121: 36,2072 12541 TCF WAITABIT # (12)
032391,000122: 36,2073 12516 TCF P42IGN # (13)
032392,000123:
032393,000124:
032394,000125:
032395,000126: 36,2074 01476 P63TABLE VN 0662 # (0)
032396,000127: 36,2075 01475 VN 0661 # (1)
032397,000128: 36,2076 12615 TCF COMFAIL3 # (2)
032398,000129: 36,2077 13006 TCF V99RECYC # (3)
032399,000130: 36,2100 12556 TCF P63ZOOM # (4)
032400,000131: 36,2101 12147 TCF P63SPOT # (5)
032401,000132: 36,2102 04300 DEC 2240 B-14 # (6)
032402,000133: 36,2103 E7,1453 EBANK= WHICH
032403,000134: 36,2103 03525 76067 2CADR SERVEXIT # (7)
032404,000135: 36,2105 12364 TCF DISPCHNG # (11)
032405,000136: 36,2106 12541 TCF WAITABIT # (12)
032406,000137: 36,2107 12440 TCF P63IGN # (13)
032407,000138:
|
|
Page 741 |
032409,000140:
032410,000141: 36,2110 01477 ABRTABLE VN 0663 # (0)
032411,000142: 36,2111 12112 NOOP # (1)
032412,000143: 36,2112 12615 TCF COMFAIL3 # (2)
032413,000144: 36,2113 13072 TCF GOCUTOFF # (3)
032414,000145: 36,2114 15261 TCF TASKOVER # (4)
032415,000146: 36,2115 12116 NOOP # (5)
032416,000147: 36,2116 12117 NOOP # (6)
032417,000148: 36,2117 12120 NOOP # (7)
032418,000149: 36,2120 12121 NOOP
032419,000150: 36,2121 12364 TCF DISPCHNG # (11)
032420,000151: 36,2122 12541 TCF WAITABIT # (12)
032421,000152: 36,2123 12503 TCF ABRTIGN # (13)
032422,000153:
032423,000154:
032424,000155:
032425,000156: # ****************************************
032426,000157: # GENERAL PURPOSE IGNITION ROUTINES
032427,000158: # ****************************************
032428,000159:
032429,000160: 36,2124 05353 BURNBABY TC PHASCHNG # GROUP 4 RESTARTS HERE
032430,000161: 36,2125 04024 OCT 04024
032431,000162:
032432,000163: 36,2126 34755 CAF ZERO # EXTIRPATE JUNK LEFT IN DVTOTAL
032433,000164: 36,2127 55505 TS DVTOTAL
032434,000165: 36,2130 55506 TS DVTOTAL +1
032435,000166:
032436,000167: 36,2131 04616 TC BANKCALL # P40AUTO MUST BE BANKCALLED EVEN FROM ITS
032437,000168: 36,2132 73707 CADR P40AUTO # OWN BANK TO SET UP RETURN PROPERLY
032438,000169:
032439,000170: 36,2133 00006 B*RNB*B* EXTEND
032440,000171: 36,2134 31440 DCA TIG # STORE NOMINAL TIG FOR OBLATENESS COMP.
032441,000172: 36,2135 53510 DXCH GOBLTIME # AND FOR P70 OR P71.
032442,000173:
032443,000174: 36,2136 00004 INHINT
032444,000175: 36,2137 04674 TC IBNKCALL
032445,000176: 36,2140 75564 CADR ENGINOF3
032446,000177: 36,2141 00003 RELINT
032447,000178:
032448,000179: 36,2142 51453 INDEX WHICH
032449,000180: 36,2143 10005 TCF 5
032450,000181:
032451,000182:
032452,000183: 36,2144 36,2144 P12SPOT = P40SPOT # (5)
032453,000184: 36,2144 36,2144 P42SPOT = P40SPOT # (5)
032454,000185: 36,2144 36,2147 P63SPOT = P41SPOT # (5) IN P63 CLOKTASK ALREADY GOING
032455,000186: 36,2144 44747 P40SPOT CS OCT20 # (5)
032456,000187: 36,2145 04616 TC BANKCALL # MUST BE BANKCALLED FOR GENERALIZED
032457,000188: 36,2146 74667 CADR STCLOK2 # RETURN
032458,000189: 36,2147 06036 P41SPOT TC INTPRET # (5)
032459,000190: 36,2150 45345 DLOAD DSU
032460,000191:
|
|
Page 742 |
032462,000193: 36,2151 03440 TIG
032463,000194: 36,2152 35143 D29.9SEC
032464,000195: 36,2153 34041 STCALL TDEC1
032465,000196: 36,2154 61055 INITCDUW
032466,000197: 36,2155 45014 BOFF CALL
032467,000198: 36,2156 03347 MUNFLAG
032468,000199: 36,2157 74176 GOMIDAV
032469,000200: 36,2160 27043 CSMPREC
032470,000201: 36,2161 64375 VLOAD MXV
032471,000202: 36,2162 00025 VATT1
032472,000203: 36,2163 01734 REFSMMAT
032473,000204: 36,2164 77762 VSR1
032474,000205: 36,2165 25726 STOVL V(CSM) # CSM VELOCITY - M/CS*2(7)
032475,000206: 36,2166 00017 RATT1
032476,000207: 36,2167 64312 VSL4 MXV
032477,000208: 36,2170 01734 REFSMMAT
032478,000209: 36,2171 35720 STCALL R(CSM) # CSM POSITION - M*2(24)
032479,000210: 36,2172 67162 MUNGRAV
032480,000211: 36,2173 16323 STODL G(CSM) # CSM GRAVITY VEC. - M/CS*2(7)
032481,000212: 36,2174 00015 TAT
032482,000213: 36,2175 00041 STORE TDEC1 # RELOAD TDEC1 FOR MIDTOAV.
032483,000214: 36,2176 77624 GOMIDAV CALRB
032484,000215: 36,2177 27603 MIDTOAV1
032485,000216: 36,2200 12207 TCF CALLT-35 # MADE IT IN TIME.
032486,000217:
032487,000218: 36,2201 00006 EXTEND # TIG WAS SLIPPED, SO RESET TIG TO 29.9
032488,000219: 36,2202 31557 DCA PIPTIME1 # SECONDS AFTER THE TIME TO WHICH WE DID
032489,000220: 36,2203 53440 DXCH TIG # INTEGRATE.
032490,000221: 36,2204 00006 EXTEND
032491,000222: 36,2205 33143 DCA D29.9SEC
032492,000223: 36,2206 21440 DAS TIG
032493,000224:
032494,000225: 36,2207 52155 CALLT-35 DXCH MPAC
032495,000226: 36,2210 53476 DXCH SAVET-30 # DELTA-T UNTIL TIG-30
032496,000227: 36,2211 00006 EXTEND
032497,000228: 36,2212 43741 DCS 5SECDP
032498,000229: 36,2213 21476 DAS SAVET-30 # DELTA-T UNTIL TIG-35
032499,000230: 36,2214 00006 EXTEND
032500,000231: 36,2215 31476 DCA SAVET-30
032501,000232: 36,2216 05277 TC LONGCALL
032502,000233: 36,2217 E7,1451 EBANK= TTOGO
032503,000234: 36,2217 02236 74067 2CADR TIG-35
032504,000235: 36,2221 05353 TC PHASCHNG
032505,000236: 36,2222 20254 OCT 20254 # 4.25SPOT FOR TIG-35 RESTART.
032506,000237:
032507,000238: 36,2223 05321 TC CHECKMM
032508,000239: 36,2224 00077 DEC 63 B-14
032509,000240: 36,2225 15155 TCF ENDOFJOB # NOT P63
032510,000241: 36,2226 44747 CS CNTDNDEX # P63 CAN START DISPLAYING NOW.
032511,000242:
|
|
Page 743 |
032513,000244: 36,2227 55163 TS DISPDEX
032514,000245: 36,2230 06036 TC INTPRET
032515,000246: 36,2231 51575 VLOAD ABVAL
032516,000247: 36,2232 03551 VN1
032517,000248: 36,2233 03470 STORE ABVEL # INITIALIZE ABVEL FOR P63 DISPLAY
032518,000249: 36,2234 77776 EXIT
032519,000250: 36,2235 15155 TCF ENDOFJOB
032520,000251:
032521,000252:
032522,000253: # ****************************************
032523,000254:
032524,000255: 36,2236 33741 TIG-35 CAF 5SEC
032525,000256: 36,2237 05173 TC TWIDDLE
032526,000257: 36,2240 02274 ADRES TIG-30
032527,000258:
032528,000259: 36,2241 05353 TC PHASCHNG
032529,000260: 36,2242 40154 OCT 40154 # 4.15SPOT FOR TIG-30 RESTART
032530,000261:
032531,000262: 36,2243 44752 CS BLANKDEX # BLANK DSKY FOR 5 SECONDS
032532,000263: 36,2244 55163 TS DISPDEX
032533,000264:
032534,000265: 36,2245 51453 INDEX WHICH
032535,000266: 36,2246 40006 CS 6 # CHECK ULLAGE TIME.
032536,000267: 36,2247 00006 EXTEND
032537,000268: 36,2250 65261 BZMF TASKOVER
032538,000269: 36,2251 33145 CAF 4.9SEC # SET UP TASK TO RESTORE DISPLAY AT TIG-30
032539,000270: 36,2252 05173 TC TWIDDLE
032540,000271: 36,2253 02264 ADRES TIG-30.1
032541,000272:
032542,000273: 36,2254 35027 CAF PRIO17 # A NEGATIVE ULLAGE TIME INDICATES P41, IN
032543,000274: 36,2255 05072 TC NOVAC # WHICH CASE WE HAVE TO SET UP A JOB TO
032544,000275: 36,2256 E7,1451 EBANK= TTOGO # BLANK THE DSKY FOR FIVE SECONDS, SINCE
032545,000276: 36,2256 02261 74067 2CADR P41BLANK # CLOKJOB IS NOT RUNNING DURING P41.
032546,000277:
032547,000278: 36,2260 15261 TCF TASKOVER
032548,000279:
032549,000280: 36,2261 04616 P41BLANK TC BANKCALL # BLANK DSKY.
032550,000281: 36,2262 20334 CADR CLEANDSP
032551,000282: 36,2263 15155 TCF ENDOFJOB
032552,000283:
032553,000284: 36,2264 35027 TIG-30.1 CAF PRIO17 # SET UP JOB TO RESTORE DISPLAY AT TIG-30
032554,000285: 36,2265 05072 TC NOVAC
032555,000286: 36,2266 E7,1451 EBANK= TTOGO
032556,000287: 36,2266 02271 74067 2CADR TIG-30A
032557,000288: 36,2270 15261 TCF TASKOVER
032558,000289:
032559,000290: 36,2271 33744 TIG-30A CAF V16N85B
032560,000291: 36,2272 04616 TC BANKCALL # RESTORE DISPLAY.
032561,000292: 36,2273 20343 CADR REGODSP # REGODSP DOES A TCF ENDOFJOB
032562,000293:
|
|
Page 744 |
032564,000295:
032565,000296: # *****************************************
032566,000297:
032567,000298:
032568,000299: 36,2274 33144 TIG-30 CAF S24.9SEC
032569,000300: 36,2275 05173 TC TWIDDLE
032570,000301: 36,2276 02343 ADRES TIG-5
032571,000302:
032572,000303: 36,2277 44747 CS CNTDNDEX # START UP CLOKTASK AGAIN
032573,000304: 36,2300 55163 TS DISPDEX
032574,000305:
032575,000306: 36,2301 51453 INDEX WHICH # PICK UP APPROPRIATE ULLAGE-ON TIME
032576,000307: 36,2302 30006 CAF 6
032577,000308: 36,2303 00006 EXTEND
032578,000309: 36,2304 62316 BZMF ULLGNOT # DON'T SET UP ULLAGE IF DT IS NEG OR ZERO
032579,000310: 36,2305 55475 TS SAVET-30 # SAVE DELTA-T FOR RESTART
032580,000311: 36,2306 05173 TC TWIDDLE
032581,000312: 36,2307 02337 ADRES ULLGTASK
032582,000313:
032583,000314: 36,2310 36244 CA THREE # RESTART PROTECT ULLGTASK (1.3SPOT)
032584,000315: 36,2311 54001 TS L
032585,000316: 36,2312 46244 CS THREE
032586,000317: 36,2313 52753 DXCH -PHASE1
032587,000318: 36,2314 40025 CS TIME1
032588,000319: 36,2315 55053 TS TBASE1
032589,000320:
032590,000321: 36,2316 00006 ULLGNOT EXTEND
032591,000322: 36,2317 51453 INDEX WHICH
032592,000323: 36,2320 30010 DCA 7 # LOAD AVEGEXIT WITH APPROPRIATE 2CADR
032593,000324: 36,2321 53253 DXCH AVEGEXIT
032594,000325:
032595,000326: 36,2322 34752 CAF TWO # 4.2SPOT RESTARTS IMMEDIATELY AT REDO4.2
032596,000327: 36,2323 54001 TS L
032597,000328: 36,2324 44752 CS TWO # AND ALSO AT TIG-5 AT THE CORRECT TIME.
032598,000329: 36,2325 52761 DXCH -PHASE4
032599,000330:
032600,000331: 36,2326 40025 CS TIME1
032601,000332: 36,2327 55061 TS TBASE4 # SET TBASE4 FOR TIG-5 RESTART
032602,000333:
032603,000334: 36,2330 00006 REDO2.17 EXTEND
032604,000335: 36,2331 34755 DCA NEG0 # CLEAR OUT GROUP 2 SO LAMBERT CAN START
032605,000336: 36,2332 52755 DXCH -PHASE2 # IF NEEDED.
032606,000337:
032607,000338: 36,2333 10763 REDO4.2 CCS PHASE5 # IS SERVICER GOING?
032608,000339: 36,2334 15261 TCF TASKOVER # YES, DON'T START IT UP AGAIN.
032609,000340:
032610,000341: 36,2335 04635 TC POSTJUMP
032611,000342: 36,2336 77374 CADR PREREAD # PREREAD ENDS THIS TASK
032612,000343:
032613,000344:
032614,000345: # ****************************************
032615,000346:
|
|
Page 745 |
032617,000348:
032618,000349: 36,2337 02662 ULLGTASK TC ONULLAGE # THIS COMES AT TIG-7.5 OR TIG-3.5
032619,000350: 36,2340 05353 TC PHASCHNG
032620,000351: 36,2341 00001 OCT 1
032621,000352: 36,2342 15261 TCF TASKOVER
032622,000353:
032623,000354:
032624,000355: # ****************************************
032625,000356:
032626,000357: 36,2343 33741 TIG-5 CAF 5SEC
032627,000358: 36,2344 05173 TC TWIDDLE
032628,000359: 36,2345 02367 ADRES TIG-0
032629,000360:
032630,000361: 36,2346 05516 TC DOWNFLAG # RESET IGNFLAG AND ASTNFLAG
032631,000362: 36,2347 00153 ADRES IGNFLAG # FOR LIGHT-UP LOGIC
032632,000363: 36,2350 05516 TC DOWNFLAG
032633,000364: 36,2351 00154 ADRES ASTNFLAG
032634,000365:
032635,000366: 36,2352 05327 TC 2PHSCHNG
032636,000367: 36,2353 40074 OCT 40074 # RESTART TIG-0 (4.7SPOT)
032637,000368: 36,2354 05013 OCT 05013 # RESTART HERE (FOR S40.13 IF NEEDED)
032638,000369: 36,2355 77777 OCT 77777
032639,000370:
032640,000371: 36,2356 51453 INDEX WHICH
032641,000372: 36,2357 10011 TCF 11
032642,000373:
032643,000374: 36,2360 34736 P40SJUNK CAF PRIO20 # (11) P40 AND P42 COME HERE
032644,000375: 36,2361 05105 TC FINDVAC
032645,000376: 36,2362 E7,1451 EBANK= TTOGO
032646,000377: 36,2362 02574 56067 2CADR S40.13
032647,000378:
032648,000379:
032649,000380: 36,2364 45742 DISPCHNG CS VB99DEX # (11)
032650,000381: 36,2365 55163 TS DISPDEX
032651,000382: 36,2366 15261 TCF TASKOVER
032652,000383:
032653,000384:
032654,000385: # ****************************************
032655,000386:
032656,000387: 36,2367 40103 TIG-0 CS FLAGWRD7 # SET IGNFLAG SINCE TIG HAS ARRIVED
032657,000388: 36,2370 74737 MASK IGNFLBIT
032658,000389: 36,2371 26103 ADS FLAGWRD7
032659,000390:
032660,000391: 36,2372 05321 TC CHECKMM # IN P63 CASE, THROTTLE-UP IS ZOOMTIME
032661,000392: 36,2373 00077 DEC 63 B-14 # AFTER NOMINAL IGNITION, NOT ACTUAL
032662,000393: 36,2374 12404 TCF IGNYET?
032663,000394: 36,2375 31424 CA ZOOMTIME
032664,000395: 36,2376 05173 TC TWIDDLE
032665,000396: 36,2377 02554 ADRES ZOOM
032666,000397:
|
|
Page 746 |
032668,000399: 36,2400 05327 TC 2PHSCHNG
032669,000400: 36,2401 40033 OCT 40033
032670,000401:
032671,000402: 36,2402 05014 OCT 05014
032672,000403: 36,2403 77777 OCT 77777
032673,000404:
032674,000405: 36,2404 34740 IGNYET? CAF ASTNBIT # CHECK ASTNFLAG: HAS ASTRONAUT RESPONDED
032675,000406: 36,2405 70103 MASK FLAGWRD7 # TO OUR ENGINE ENABLE REQUEST?
032676,000407: 36,2406 00006 EXTEND
032677,000408: 36,2407 51453 INDEX WHICH
032678,000409: 36,2410 10012 BZF 12 # BRANCH IF HE HAS NOT RESPONDED YET
032679,000410:
032680,000411: 36,2411 40101 IGNITION CS FLAGWRD5 # INSURE ENGONFLG IS SET.
032681,000412: 36,2412 74745 MASK ENGONBIT
032682,000413: 36,2413 26101 ADS FLAGWRD5
032683,000414: 36,2414 44355 CS PRIO30 # TURN ON THE ENGINE.
032684,000415: 36,2415 00006 EXTEND
032685,000416: 36,2416 02011 RAND DSALMOUT
032686,000417: 36,2417 64737 AD BIT13
032687,000418: 36,2420 00006 EXTEND
032688,000419: 36,2421 01011 WRITE DSALMOUT
032689,000420: 36,2422 00006 EXTEND # SET TEVENT FOR DOWNLINK
032690,000421: 36,2423 30025 DCA TIME2
032691,000422: 36,2424 53345 DXCH TEVENT
032692,000423:
032693,000424: 36,2425 00006 EXTEND # UPDATE TIG USING TGO FROM S40.13
032694,000425: 36,2426 31515 DCA TGO
032695,000426: 36,2427 53440 DXCH TIG
032696,000427: 36,2430 00006 EXTEND
032697,000428: 36,2431 30025 DCA TIME2
032698,000429: 36,2432 21440 DAS TIG
032699,000430:
032700,000431: 36,2433 44742 CS FLUNDBIT # PERMIT GUIDANCE LOOP DISPLAYS
032701,000432: 36,2434 70104 MASK FLAGWRD8
032702,000433: 36,2435 54104 TS FLAGWRD8
032703,000434:
032704,000435: 36,2436 51453 INDEX WHICH
032705,000436: 36,2437 10013 TCF 13
032706,000437:
032707,000438: 36,2440 00006 P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
032708,000439: 36,2441 33135 DCA DSP2CADR
032709,000440: 36,2442 53253 DXCH AVGEXIT
032710,000441:
032711,000442: 36,2443 30005 CA Z # ASSASSINATE CLOKTASK
032712,000443: 36,2444 55163 TS DISPDEX
032713,000444:
032714,000445: 36,2445 40105 CS FLAGWRD9 # SET FLAG FOR P70-P71
032715,000446: 36,2446 74743 MASK LETABBIT
032716,000447: 36,2447 26105 ADS FLAGWRD9
032717,000448:
|
|
Page 747 |
032719,000450: 36,2450 40103 CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
032720,000451: 36,2451 74741 MASK SWANDBIT
032721,000452: 36,2452 26103 ADS FLAGWRD7
032722,000453:
032723,000454: 36,2453 44735 CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
032724,000455: 36,2454 70111 MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
032725,000456: 36,2455 54111 TS DAPBOOLS
032726,000457:
032727,000458: 36,2456 00006 EXTEND # INITIALIZE TIG FOR P70 AND P71.
032728,000459: 36,2457 30025 DCA TIME2
032729,000460: 36,2460 53440 DXCH TIG
032730,000461:
032731,000462: 36,2461 34755 CAF ZERO # INITIALIZE WCHPHASE AND FLPASSO
032732,000463: 36,2462 55620 TS WCHPHASE
032733,000464: 36,2463 55617 TS WCHPHOLD # ALSO WHCPHOLD
032734,000465: 36,2464 34752 CA TWO
032735,000466: 36,2465 55621 TS FLPASS0
032736,000467:
032737,000468: 36,2466 12516 TCF P42IGN
032738,000469: 36,2467 40101 P40IGN CS FLAGWRD5 # (13)
032739,000470: 36,2470 74740 MASK NOTHRBIT
032740,000471: 36,2471 00006 EXTEND
032741,000472: 36,2472 12516 BZF P42IGN
032742,000473: 36,2473 31424 CA ZOOMTIME # WAITLIST FOR ZOOM (FLATOUT. ETC.)
032743,000474: 36,2474 05173 TC TWIDDLE
032744,000475: 36,2475 02554 ADRES ZOOM
032745,000476:
032746,000477: 36,2476 05327 P63IGN1 TC 2PHSCHNG
032747,000478: 36,2477 40033 OCT 40033 # 3.3SPOT FOR ZOOM RESTART.
032748,000479: 36,2500 05014 OCT 05014 # TYPE C RESTARTS HERE IMMEDIATELY
032749,000480: 36,2501 77777 OCT 77777
032750,000481:
032751,000482: 36,2502 12516 TCF P42IGN
032752,000483: 36,2503 05321 ABRTIGN TC CHECKMM # (13) BRANCH TO APPROPRIATE ABORT
032753,000484: 36,2504 00107 DEC 71 B-14 # ENGINE-ON SEQUENCE.
032754,000485: 36,2505 12516 TCF P42IGN # CONTINUE ENGINE-ON SEQUENCE
032755,000486: 36,2506 30005 P12IGN CA Z # (13) KILL CLOKTASK
032756,000487: 36,2507 55163 TS DISPDEX
032757,000488:
032758,000489: 36,2510 00006 EXTEND # CONNECT ASCENT GYIDANCE TO SERVICER.
032759,000490: 36,2511 33141 DCA ATMAGADR
032760,000491: 36,2512 53253 DXCH AVGEXIT
032761,000492:
032762,000493: 36,2513 40103 CS FLAGWRD7 # ENABLE R10.
032763,000494: 36,2514 74741 MASK SWANDBIT
032764,000495: 36,2515 26103 ADS FLAGWRD7
032765,000496:
032766,000497: 36,2516 44744 P42IGN CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
032767,000498: 36,2517 44744 CS DRIFTBIT # ENSURE THAT POWERED-FLIGHT SWITCHING
032768,000499: 36,2520 70111 MASK DAPBOOLS # CURVES ARE USED.
032769,000500:
|
|
Page 748 |
032771,000502: 36,2521 54111 TS DAPBOOLS
032772,000503: 36,2522 34743 CAF IMPULBIT # EXAMINE IMPULSE SWITCH
032773,000504: 36,2523 70076 MASK FLAGWRD2
032774,000505: 36,2524 10000 CCS A
032775,000506: 36,2525 13522 TCF IMPLBURN
032776,000507:
032777,000508: 36,2526 05516 DVMONCON TC DOWNFLAG
032778,000509: 36,2527 00153 ADRES IGNFLAG # CONNECT DVMON
032779,000510: 36,2530 05516 TC DOWNFLAG
032780,000511: 36,2531 00154 ADRES ASTNFLAG
032781,000512: 36,2532 05516 TC DOWNFLAG
032782,000513: 36,2533 00161 ADRES IDLEFLAG
032783,000514:
032784,000515: 36,2534 05353 TC PHASCHNG
032785,000516: 36,2535 40054 OCT 40054
032786,000517:
032787,000518: 36,2536 05221 TC FIXDELAY # TURN ULLAGE OFF HALF A SECOND AFTER
032788,000519: 36,2537 00062 DEC 50 B-14 # LIGHT UP.
032789,000520:
032790,000521: 36,2540 02656 ULLAGOFF TC NOULLAGE
032791,000522:
032792,000523: 36,2541 00006 WAITABIT EXTEND # KILL GROUP 4
032793,000524: 36,2542 34755 DCA NEG0
032794,000525: 36,2543 52761 DXCH -PHASE4
032795,000526:
032796,000527: 36,2544 15261 TCF TASKOVER
032797,000528:
032798,000529:
032799,000530: # ****************************************
032800,000531:
032801,000532: 36,2545 35026 TIGTASK CAF PRIO16 # TIGNOW MUST BE A JOB.
032802,000533: 36,2546 05072 TC NOVAC
032803,000534: 36,2547 E7,1460 EBANK= TRKMKCNT
032804,000535: 36,2547 03241 74067 2CADR TIGNOW
032805,000536: 36,2551 05353 TC PHASCHNG
032806,000537: 36,2552 00006 OCT 6 # KILL GROUP 6.
032807,000538:
032808,000539: 36,2553 15261 TCF TASKOVER
032809,000540:
032810,000541:
032811,000542: # ****************************************
032812,000543:
032813,000544: 36,2554 51453 ZOOM INDEX WHICH
032814,000545: 36,2555 10004 TCF 4
032815,000546:
032816,000547: 36,2556 00006 P63ZOOM EXTEND # (4) SET UP GUIDANCE.
032817,000548: 36,2557 33137 DCA LUNLANAD
032818,000549: 36,2560 53253 DXCH AVEGEXIT
032819,000550:
|
|
Page 749 |
032821,000552:
032822,000553: 36,2561 04674 TC IBNKCALL
032823,000554: 36,2562 62415 CADR FLATOUT
032824,000555: 36,2563 12571 TCF P40ZOOMA
032825,000556:
032826,000557: 36,2564 34737 P40ZOOM CAF BIT13 # (4) THROTTLE THE DPS TO MAXIMUM THRUST.
032827,000558: 36,2565 54055 TS THRUST
032828,000559: 36,2566 34750 CAF BIT4
032829,000560:
032830,000561: 36,2567 00006 EXTEND
032831,000562: 36,2570 05014 WOR CHAN14
032832,000563:
032833,000564: 36,2571 05353 P40ZOOMA TC PHASCHNG
032834,000565: 36,2572 00003 OCT 3
032835,000566: 36,2573 15261 TCF TASKOVER
032836,000567:
032837,000568:
032838,000569: # ****************************************
032839,000570:
032840,000571: 36,2574 05504 COMFAIL TC UPFLAG # (15)
032841,000572: 36,2575 00161 ADRES IDLEFLAG
032842,000573: 36,2576 05504 TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY
032843,000574: 36,2577 00175 ADRES FLUNDISP
032844,000575: 36,2600 34751 CAF FOUR # RESET DVMON
032845,000576: 36,2601 55513 TS DVCNTR
032846,000577: 36,2602 10765 CCS PHASE6 # CLOCKTASK ACTIVE?
032847,000578: 36,2603 12606 TCF +3 # YES
032848,000579: 36,2604 04616 TC BANKCALL # OTHERWISE, START IT UP
032849,000580: 36,2605 74666 CADR STCLOK1
032850,000581: 36,2606 44242 +3 CS VB97DEX
032851,000582: 36,2607 55163 TS DISPDEX
032852,000583: 36,2610 05353 TC PHASCHNG # TURN OFF GROUP 4.
032853,000584: 36,2611 00004 OCT 00004
032854,000585: 36,2612 15155 TCF ENDOFJOB
032855,000586:
032856,000587: 36,2613 51453 COMFAIL1 INDEX WHICH
032857,000588: 36,2614 10002 TCF 2
032858,000589:
032859,000590: 36,2615 30005 COMFAIL3 CA Z # (15) KILL CLOKTASK USING Z
032860,000591: 36,2616 12620 TCF +2
032861,000592:
032862,000593: 36,2617 44747 COMFAIL4 CS CNTDNDEX
032863,000594: 36,2620 55163 TS DISPDEX
032864,000595:
032865,000596: 36,2621 05516 TC DOWNFLAG # RECONNECT DV MONITOR
032866,000597: 36,2622 00161 ADRES IDLEFLAG
032867,000598: 36,2623 05516 TC DOWNFLAG # PERMIT GUIDANCE LOOP DISPLAYS
032868,000599: 36,2624 00175 ADRES FLUNDISP
032869,000600: 36,2625 15155 TCF ENDOFJOB
032870,000601:
|
|
Page 750 |
032872,000603: 36,2626 05353 COMFAIL2 TC PHASCHNG # KILL ZOOM RESTART PROTECTION
032873,000604: 36,2627 00003 OCT 00003
032874,000605:
032875,000606: 36,2630 00004 INHINT
032876,000607: 36,2631 06027 TC KILLTASK # KILL ZOOM, IN CASE IT'S STILL TO COME
032877,000608: 36,2632 74554 CADR ZOOM
032878,000609: 36,2633 04674 TC IBNKCALL # COMMAND ENGINE OFF
032879,000610: 36,2634 75561 CADR ENGINOF4
032880,000611: 36,2635 05504 TC UPFLAG # SET THE DRIFT BIT FOR THE DAP.
032881,000612: 36,2636 00312 ADRES DRIFTDFL
032882,000613: 36,2637 02650 TC INVFLAG # USE OTHER RCS SYSTEM
032883,000614: 36,2640 00310 ADRES AORBTFLG
032884,000615: 36,2641 05504 TC UPFLAG # TURN ON ULLAGE
032885,000616: 36,2642 00314 ADRES ULLAGFLG
032886,000617: 36,2643 34753 CAF BIT1
032887,000618: 36,2644 00004 INHINT
032888,000619: 36,2645 05173 TC TWIDDLE
032889,000620: 36,2646 02343 ADRES TIG-5
032890,000621: 36,2647 15155 TCF ENDOFJOB
032891,000622:
032892,000623:
032893,000624: # ****************************************
032894,000625: # SUBROUTINES OF THE IGNITION ROUTINE
032895,000626: # ****************************************
032896,000627:
032897,000628: 36,2650 30002 INVFLAG CA Q
032898,000629: 36,2651 05522 TC DEBIT
032899,000630: 36,2652 40000 COM
032900,000631: 36,2653 00006 EXTEND
032901,000632: 36,2654 06001 RXOR LCHAN
032902,000633: 36,2655 15511 TCF COMFLAG
032903,000634:
032904,000635:
032905,000636: # ****************************************
032906,000637:
032907,000638: 36,2656 44746 NOULLAGE CS ULLAGER # MUST BE CALLED IN A TASK OR UNDER INHINT
032908,000639: 36,2657 70111 MASK DAPBOOLS
032909,000640: 36,2660 54111 TS DAPBOOLS
032910,000641: 36,2661 00002 TC Q
032911,000642:
032912,000643:
032913,000644: # ****************************************
032914,000645:
032915,000646: 36,2662 40111 ONULLAGE CS DAPBOOLS # TURN ON ULLAGE. MUST BE CALLED IN
032916,000647: 36,2663 74746 MASK ULLAGER # A TASK OR WHILE INHINTED.
032917,000648: 36,2664 26111 ADS DAPBOOLS
032918,000649: 36,2665 00002 TC Q
032919,000650:
032920,000651:
032921,000652: # ****************************************
032922,000653:
|
|
Page 751 |
032924,000655:
032925,000656: 36,2666 34755 STCLOK1 CA ZERO # THIS ROUTINE STARTS THE COUNT-DOWN
032926,000657: 36,2667 55163 STCLOK2 TS DISPDEX # (CLOKTASK AND CLOKJOB). SETTING
032927,000658: 36,2670 04645 STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
032928,000659: 36,2671 55061 TS TBASE4 # RETURN SAVE (NOT FOR RESTARTS)
032929,000660: 36,2672 00006 EXTEND
032930,000661: 36,2673 31440 DCA TIG
032931,000662: 36,2674 52155 DXCH MPAC
032932,000663: 36,2675 00006 EXTEND
032933,000664: 36,2676 40025 DCS TIME2
032934,000665: 36,2677 20155 DAS MPAC # HAVE TIG - TIME2, UNDOUBTEDLY A + NUMBER
032935,000666: 36,2700 07256 TC TPAGREE # POSITIVE, SINCE WE PASSED THE
032936,000667: 36,2701 34777 CAF 1SEC # 45 SECOND CHECK
032937,000668: 36,2702 54002 TS Q
032938,000669: 36,2703 52155 DXCH MPAC
032939,000670: 36,2704 74346 MASK LOW5 # RESTRICT MAGNITUDE OF NUMBER IN A
032940,000671: 36,2705 00006 EXTEND
032941,000672: 36,2706 10002 DV Q
032942,000673: 36,2707 30001 CA L # GET REMAINDER
032943,000674: 36,2710 64752 AD TWO
032944,000675: 36,2711 00004 INHINT
032945,000676: 36,2712 05173 TC TWIDDLE
032946,000677: 36,2713 02722 ADRES CLOKTASK
032947,000678: 36,2714 05327 TC 2PHSCHNG
032948,000679: 36,2715 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
032949,000680: 36,2716 05024 OCT 05024
032950,000681: 36,2717 13000 OCT 13000
032951,000682:
032952,000683: 36,2720 31061 CA TBASE4
032953,000684: 36,2721 04640 TC BANKJUMP
032954,000685:
032955,000686:
032956,000687: 36,2722 40025 CLOKTASK CS TIME1 # SET TBASE6 FOR GROUP 6 RESTART
032957,000688: 36,2723 55065 TS TBASE6
032958,000689:
032959,000690: 36,2724 11163 CCS DISPDEX
032960,000691: 36,2725 12736 TCF KILLCLOK
032961,000692: 36,2726 12727 NOOP
032962,000693: 36,2727 37714 CAF PRIO27
032963,000694: 36,2730 05072 TC NOVAC
032964,000695: 36,2731 E7,1451 EBANK= TTOGO
032965,000696: 36,2731 02742 74067 2CADR CLOKJOB
032966,000697:
032967,000698:
032968,000699: 36,2733 05221 TC FIXDELAY # WAIT A SECOND BEFORE STARTING OVER
032969,000700: 36,2734 00144 DEC 100 B-14
032970,000701: 36,2735 12722 TCF CLOKTASK
032971,000702:
032972,000703: 36,2736 00006 KILLCLOK EXTEND # KILL RESTART
032973,000704:
|
|
Page 752 |
032975,000706: 36,2737 34755 DCA NEG0
032976,000707: 36,2740 52765 DXCH -PHASE6
032977,000708: 36,2741 15261 TCF TASKOVER
032978,000709:
032979,000710:
032980,000711: 36,2742 00006 CLOKJOB EXTEND
032981,000712: 36,2743 41440 DCS TIG
032982,000713: 36,2744 53452 DXCH TTOGO
032983,000714: 36,2745 00006 EXTEND
032984,000715: 36,2746 30025 DCA TIME2
032985,000716: 36,2747 21452 DAS TTOGO
032986,000717: 36,2750 00004 INHINT
032987,000718: 36,2751 11163 CCS DISPDEX # IF DISPDEX HAS BEEN SET POSITIVE BY A
032988,000719: 36,2752 15155 TCF ENDOFJOB # TASK OR A HIGHER PRIORITY JOB SINCE THE
032989,000720: 36,2753 15155 TCF ENDOFJOB # LAST CLOKTASK, AVOID USING IT AS AN
032990,000721: 36,2754 40000 COM # INDEX.
032991,000722: 36,2755 00003 RELINT # ***** DISPDEX MUST NEVER BE -0 *****
032992,000723: 36,2756 50000 INDEX A
032993,000724: 36,2757 13021 TCF DISPNOT -1 # (-1 DUE TO EFFECT OF CCS)
032994,000725:
032995,000726: 36,2760 4242 VB97DEX = 34DEC
032996,000727:
032997,000728: 36,2760 30371 -42 CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
032998,000729: 36,2761 04616 TC BANKCALL
032999,000730: 36,2762 20510 CADR GOFLASHR
033000,000731: 36,2763 13023 TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H
033001,000732: 36,2764 12613 TCF COMFAIL1
033002,000733: 36,2765 12626 TCF COMFAIL2
033003,000734: 36,2766 44755 CS ZERO
033004,000735: 36,2767 55067 V97ORV99 TS NVWORD1
033005,000736: 36,2770 33146 CAF VB99CON
033006,000737: 36,2771 05464 TC LINUS
033007,000738: 36,2772 15155 TCF ENDOFJOB
033008,000739: # THIS DISPLAY IS CALLED VIA ASTNCLOK.
033009,000740: 36,2773 51453 -27 INDEX WHICH # IT IS PRIMARILY USED BY THE ASTRONAUT
033010,000741: 36,2774 30001 CAF 1 # TO RESET HIS EVENT TIMER TO AGREE WITH
033011,000742: 36,2775 04616 TC BANKCALL # TIG.
033012,000743: 36,2776 20335 CADR REFLASH
033013,000744: 36,2777 13023 TCF STOPCLOK
033014,000745: 36,3000 13040 TCF ASTNRETN
033015,000746: 36,3001 12773 TCF -6
033016,000747:
033017,000748: 36,3002 4747 CNTDNDEX = OCT20 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
033018,000749:
033019,000750: 36,3002 51453 -20 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
033020,000751: 36,3003 30000 CAF 0 # INTERVALS. IT IS NORMALLY OPERATED
033021,000752: 36,3004 04616 TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
033022,000753: 36,3005 20343 CADR REGODSP # REGODSP DOES ITS OWN TCF ENDOFJOB
033023,000754:
033024,000755: 36,3006 5742 VB99DEX = OCT14 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
033025,000756:
|
|
Page 753 |
033027,000758:
033028,000759: 36,3006 V99RECYC EQUALS
033029,000760:
033030,000761: 36,3006 51453 -14 INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
033031,000762: 36,3007 30000 CAF 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
033032,000763: 36,3010 04616 TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS THE
033033,000764: 36,3011 20510 CADR GOFLASHR # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
033034,000765: 36,3012 13023 TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
033035,000766: 36,3013 13051 TCF *PROCEED
033036,000767: 36,3014 13054 TCF *ENTER
033037,000768: 36,3015 44743 CS BIT9
033038,000769: 36,3016 12767 TCF V97ORV99
033039,000770:
033040,000771: 36,3017 13020 NOOP
033041,000772: 36,3020 4752 BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
033042,000773:
033043,000774: 36,3020 04616 -2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
033044,000775: 36,3021 20334 CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
033045,000776: 36,3022 15155 DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
033046,000777:
033047,000778:
033048,000779: 36,3023 03025 STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
033049,000780: 36,3024 16001 TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
033050,000781:
033051,000782: 36,3025 00004 NULLCLOK INHINT
033052,000783: 36,3026 00006 EXTEND
033053,000784: 36,3027 23142 QXCH P40/RET
033054,000785: 36,3030 02656 TC NOULLAGE # TURN OFF ULLAGE ...
033055,000786: 36,3031 06027 TC KILLTASK # DON'T LET IT COME ON, EITHER ...
033056,000787: 36,3032 74337 CADR ULLGTASK
033057,000788: 36,3033 05353 TC PHASCHNG # NOT EVEN IF THERE'S A RESTART.
033058,000789: 36,3034 00001 OCT 1
033059,000790: 36,3035 30005 CA Z # KILL CLOKTASK
033060,000791: 36,3036 55163 TS DISPDEX
033061,000792: 36,3037 01142 TC P40/RET
033062,000793:
033063,000794:
033064,000795: 36,3040 05353 ASTNRETN TC PHASCHNG
033065,000796: 36,3041 04024 OCT 04024
033066,000797: 36,3042 34755 CAF ZERO # STOP DISPLAYING BUT KEEP RUNNING.
033067,000798: 36,3043 55163 TS DISPDEX
033068,000799: 36,3044 35023 CAF PRIO13
033069,000800: 36,3045 05105 TC FINDVAC
033070,000801: 36,3046 E5,1757 EBANK= STARIND
033071,000802: 36,3046 03203 64065 2CADR ASTNRET
033072,000803: 36,3050 15155 TCF ENDOFJOB
033073,000804:
033074,000805:
033075,000806: 36,3051 05504 *PROCEED TC UPFLAG
033076,000807: 36,3052 00154 ADRES ASTNFLAG
033077,000808:
|
|
Page 754 |
033079,000810: 36,3053 13112 TCF IGNITE
033080,000811:
033081,000812:
033082,000813: 36,3054 00004 *ENTER INHINT
033083,000814: 36,3055 51453 INDEX WHICH
033084,000815: 36,3056 10003 TCF 3
033085,000816:
033086,000817:
033087,000818: 36,3057 34644 GOPOST CAF PRIO12 # (3) MUST BE LOWER PRIORITY THAN CLOKJOB
033088,000819: 36,3060 05105 TC FINDVAC
033089,000820: 36,3061 E7,1451 EBANK= TTOGO
033090,000821: 36,3061 03223 74067 2CADR POSTBURN
033091,000822: 36,3063 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
033092,000823: 36,3064 04674 TC IBNKCALL
033093,000824: 36,3065 40204 CADR ALLCOAST
033094,000825: 36,3066 03025 TC NULLCLOK
033095,000826: 36,3067 05353 TC PHASCHNG # 4.13 RESTART FOR POSTBURN
033096,000827: 36,3070 00134 OCT 00134
033097,000828:
033098,000829: 36,3071 15155 TCF ENDOFJOB
033099,000830:
033100,000831:
033101,000832: 36,3072 35027 GOCUTOFF CAF PRIO17 # (3)
033102,000833: 36,3073 05105 TC FINDVAC
033103,000834: 36,3074 E7,1514 EBANK= TGO
033104,000835: 36,3074 03261 56067 2CADR CUTOFF
033105,000836: 36,3076 05516 TC DOWNFLAG
033106,000837: 36,3077 00175 ADRES FLUNDISP
033107,000838:
033108,000839: 36,3100 00004 INHINT # SET UP THE DAP FOR COASTING FLIGHT.
033109,000840: 36,3101 04674 TC IBNKCALL
033110,000841: 36,3102 40204 CADR ALLCOAST
033111,000842: 36,3103 03025 TC NULLCLOK
033112,000843: 36,3104 05353 TC PHASCHNG
033113,000844: 36,3105 07024 OCT 07024
033114,000845: 36,3106 17000 OCT 17000
033115,000846: 36,3107 E7,1514 EBANK= TGO
033116,000847: 36,3107 03261 56067 2CADR CUTOFF
033117,000848: 36,3111 15155 TCF ENDOFJOB
033118,000849:
033119,000850:
033120,000851: 36,3112 40103 IGNITE CS FLAGWRD7 # (2)
033121,000852: 36,3113 74737 MASK IGNFLBIT
033122,000853: 36,3114 10000 CCS A
033123,000854: 36,3115 13126 TCF IGNITE1
033124,000855: 36,3116 34753 CAF BIT1
033125,000856: 36,3117 00004 INHINT
033126,000857:
|
|
Page 755 |
033128,000859: 36,3120 05173 TC TWIDDLE
033129,000860: 36,3121 02411 ADRES IGNITION
033130,000861:
033131,000862: 36,3122 34360 CAF OCT23 # IMMEDIATE RESTART AT IGNITION.
033132,000863: 36,3123 54001 TS L
033133,000864: 36,3124 40000 COM
033134,000865: 36,3125 52761 DXCH -PHASE4
033135,000866:
033136,000867: 36,3126 44747 IGNITE1 CS CNTDNDEX # RESTORE OLD DISPLAY.
033137,000868: 36,3127 55163 TS DISPDEX
033138,000869:
033139,000870: 36,3130 15155 TCF ENDOFJOB
033140,000871:
033141,000872:
033142,000873: # ****************************************
033143,000874:
033144,000875: 31,2172 BANK 31
033145,000876: 35,2000 SETLOC P40S2
033146,000877: 35,2000 BANK
033147,000878:
033148,000879: 35,3707 COUNT* $$/P40
033149,000880:
033150,000881: 35,3707 04645 P40AUTO TC MAKECADR # HELLO THERE.
033151,000882: 35,3710 55164 TS TEMPR60 # FOR GENERALIZED RETURN TO OTHER BANKS.
033152,000883: 35,3711 04616 P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
033153,000884: 35,3712 54233 CADR G+N,AUTO # AND AUTO STABILIZATION MODES
033154,000885: 35,3713 10000 CCS A # +0 INDICATES IN PGNCS, IN AUTO
033155,000886: 35,3714 13726 TCF TURNITON # + INDICATES NOT IN PGNCS AND/OR AUTO
033156,000887: 35,3715 34737 CAF APSFLBIT # ARE WE ON THE DESCENT STAGE?
033157,000888: 35,3716 70106 MASK FLGWRD10
033158,000889: 35,3717 10000 CCS A
033159,000890: 35,3720 13733 TCF GOBACK # RETURN
033160,000891: 35,3721 34747 CAF BIT5 # YES, CHECK FOR AUTOTHROTTLE MODE
033161,000892: 35,3722 00006 EXTEND
033162,000893: 35,3723 02030 RAND CHAN30
033163,000894: 35,3724 00006 EXTEND
033164,000895: 35,3725 13733 BZF GOBACK # IN AUTOTHROTTLE MODE -- RETURN
033165,000896: 35,3726 33735 TURNITON CAF P40A/PMD # DISPLAY V50N25 R1=203 PLEASE PERFORM
033166,000897: 35,3727 04616 TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
033167,000898: 35,3730 20476 CADR GOPERF1
033168,000899: 35,3731 16001 TCF GOTOPOOH # V34E TERMINATE
033169,000900: 35,3732 13711 TCF P40A/P # RECYCLE
033170,000901: 35,3733 31164 GOBACK CA TEMPR60
033171,000902: 35,3734 04640 TC BANKJUMP # GOODBYE. COME AGAIN SOON.
033172,000903:
033173,000904:
033174,000905: 35,3735 00203 P40A/PMD OCT 00203
033175,000906:
033176,000907: 36,3131 BANK 36
033177,000908: 36,2000 SETLOC P40S
033178,000909:
|
|
Page 756 |
033180,000911: 36,2000 BANK
033181,000912:
033182,000913: 36,3131 COUNT* $$/P40
033183,000914:
033184,000915: # ****************************************
033185,000916: # CONSTANTS FOR THE IGNITION ROUTINE
033186,000917: # ****************************************
033187,000918:
033188,000919: 36,3131 36,2103 SERVCADR = P63TABLE +7
033189,000920:
033190,000921: 36,3131 02036 P40ADRES ADRES P40TABLE
033191,000922:
033192,000923: 36,3132 02045 P41ADRES ADRES P41TABLE -5
033193,000924:
033194,000925: 36,3133 02060 P42ADRES ADRES P42TABLE
033195,000926:
033196,000927: 36,3134 E7,1620 EBANK= WCHPHASE
033197,000928: 36,3134 03437 62067 DSP2CADR 2CADR P63DISPS -2
033198,000929:
033199,000930:
033200,000931: 36,3136 E7,1620 EBANK= WCHPHASE
033201,000932: 36,3136 02522 62067 LUNLANAD 2CADR LUNLAND
033202,000933:
033203,000934:
033204,000935: 36,3140 E7,1513 EBANK= DVCNTR
033205,000936: 36,3140 03637 70067 ATMAGADR 2CADR ATMAG
033206,000937: 36,3142 6001 ? = GOTOPOOH
033207,000938:
033208,000939: 36,3142 00000 05656 D29.9SEC 2DEC 2990 B-28
033209,000940:
033210,000941:
033211,000942: 36,3144 04672 S24.9SEC DEC 2490 B-14
033212,000943:
033213,000944: 36,3145 00752 4.9SEC DEC 490 B-14
033214,000945:
033215,000946: 36,3146 4747 OCT20 = BIT5
033216,000947:
033217,000948: 36,3146 24020 VB99CON OCT 24020 # BITS 5, 12, AND 14
033218,000949:
|
|
Page 757 |
033220,000951: # KILLTASK
033221,000952: # MOD NO: NEW PROGRAM
033222,000953: # MOD BY: COVELLI
033223,000954:
033224,000955:
033225,000956: # FUNCTIONAL DESCRIPTION:
033226,000957:
033227,000958: # KILLTASK IS USED TO REMOVE A TASK FROM THE WAITLIST BY SUBSTITUTING ANULL TASK CALLED 'NULLTASK' (OF COURSE),
033228,000959: # WHICH MERELY DOES A TC TASKOVER. IF THE SAME TASK IS SCHEDULED MORE THAN ONCE, ONLY THE ONE WHICH WILL OCCUR
033229,000960: # FIRST IS REMOVED. IF THE TASK IS NOT SCHEDULED, KILLTASK TAKES NO ACTION AND RETURNS WITH NO ALARM. KILLTASK
033230,000961: # MUST BE CALLED IN INTERRUPT OR WITH INTERRUPT INHIBITED.
033231,000962:
033232,000963: # CALLING SEQUENCE:
033233,000964: # L-1 (INHINT)
033234,000965: # L TC KILLTASK IN FIXED-FIXED
033235,000966: # L+1 CADR ???????? CADR (NOT 2CADR) OF TASK TO BE REMOVED.
033236,000967: # L+2 (RELINT) RETURN
033237,000968:
033238,000969: # EXIT MODE: AT L+2 OF CALLING SEQUENCE.
033239,000970:
033240,000971: # ERASABLE INITIALIZATION= NONE.
033241,000972:
033242,000973: # OUTPUT: 2CADR OF NULLTASK IN LST2
033243,000974:
033244,000975: # DEBRIS: ITEMP1 - ITEMP4, A,L,Q.
033245,000976:
033246,000977: 36,3147 E3,1410 EBANK= LST2
033247,000978: 6027 BLOCK 3 # KILLTASK MUST BE IN FIXED-FIXED.
033248,000979: 6000 SETLOC FFTAG6
033249,000980: 6000 BANK
033250,000981: 6027 COUNT* $$/KILL
033251,000982: 6027 36035 KILLTASK CA KILLBB
033252,000983: 6030 22000 LXCH A
033253,000984: 6031 50002 INDEX Q
033254,000985: 6032 30000 CA 0 # GET CADR.
033255,000986: 6033 22006 LXCH BBANK
033256,000987: 6034 12223 TCF KILLTSK2 # CONTINUE IN SWITCHED FIXED
033257,000988:
033258,000989: 6035 E3,1410 EBANK= LST2
033259,000990: 6035 56063 KILLBB BBCON KILLTSK2
033260,000991:
033261,000992:
033262,000993: 27,2223 BANK 27
033263,000994:
033264,000995: 27,2000 SETLOC P40S1
033265,000996: 27,2000 BANK
033266,000997: 27,2223 COUNT* $$/KILL
033267,000998:
033268,000999: 27,2223 22062 KILLTSK2 LXCH ITEMP2 # SAVE CALLER'S BBANK
033269,001000:
|
|
Page 758 |
033271,001002: 27,2224 24002 INCR Q
033272,001003: 27,2225 00006 EXTEND
033273,001004: 27,2226 22061 QXCH ITEMP1 # RETURN 2CADR IN ITEMP1,ITEMP2
033274,001005:
033275,001006: 27,2227 54063 TS ITEMP3 # CADR IS IN A
033276,001007: 27,2230 75012 MASK LOW10
033277,001008: 27,2231 64741 AD BIT11
033278,001009: 27,2232 54064 TS ITEMP4 # GENADR OF TASK
033279,001010:
033280,001011: 27,2233 45012 CS LOW10
033281,001012: 27,2234 70063 MASK ITEMP3
033282,001013: 27,2235 54063 TS ITEMP3 # FBANK OF TASK
033283,001014:
033284,001015: 27,2236 22007 ZL
033285,001016: 27,2237 50001 ADRSCAN INDEX L
033286,001017: 27,2240 41410 CS LST2
033287,001018: 27,2241 60064 AD ITEMP4 # COMPARE GENADRS
033288,001019: 27,2242 00006 EXTEND
033289,001020: 27,2243 12255 BZF TSTFBANK # IF THEY MATCH, COMPARE FBANKS
033290,001021: 27,2244 44747 LETITLIV CS LSTLIM
033291,001022: 27,2245 60001 AD L
033292,001023: 27,2246 00006 EXTEND # ARE WE DONE?
033293,001024: 27,2247 12253 BZF DEAD # YES - DONE, SO RETURN
033294,001025: 27,2250 24001 INCR L
033295,001026: 27,2251 24001 INCR L
033296,001027: 27,2252 12237 TCF ADRSCAN # CONTINUE LOOP.
033297,001028:
033298,001029: 27,2253 52062 DEAD DXCH ITEMP1
033299,001030: 27,2254 52006 DTCB
033300,001031:
033301,001032: 27,2255 45012 TSTFBANK CS LOW10
033302,001033: 27,2256 50001 INDEX L
033303,001034: 27,2257 71411 MASK LST2 +1 # COMPARE FBANKS ONLY.
033304,001035: 27,2260 00006 EXTEND
033305,001036: 27,2261 60063 SU ITEMP3
033306,001037: 27,2262 00006 EXTEND
033307,001038: 27,2263 12265 BZF KILLDEAD # MATCH - KILL IT.
033308,001039: 27,2264 12244 TCF LETITLIV # NO MATCH - CONTINUE.
033309,001040:
033310,001041: 27,2265 34353 KILLDEAD CA TCTSKOVR
033311,001042: 27,2266 50001 INDEX L
033312,001043: 27,2267 55410 TS LST2 # REMOVE TASK BY INSERTING TASKOVER
033313,001044: 27,2270 12253 TCF DEAD
033314,001045:
033315,001046: 27,2271 4747 LSTLIM EQUALS BIT5 # DEC 16
End of include-file BURN,_BABY,_BURN_--_MASTER_IGNITION_ROUTINE.agc. Parent file is MAIN.agc