Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
027983,000002: ## Copyright: Public domain.
027984,000003: ## Filename: P40-P47.agc
027985,000004: ## Purpose: Part of the source code for Colossus build 237.
027986,000005: ## This is for the Command Module's (CM) Apollo Guidance
027987,000006: ## Computer (AGC), for Apollo 8.
027988,000007: ## Assembler: yaYUL
027989,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
027990,000009: ## Website: www.ibiblio.org/apollo/index.html
027991,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
027992,000011: ## Mod history: 2011-02-20 JL Adapted from corresponding Colossus 249 file.
027993,000012: ## 2011-04-24 JL Fixed incorrect indentation of label.
027994,000013: ## 2012-10-08 JL Fixed incorrect opcode on p682.
027995,000014: ## 2016-08-14 RSB Added SBANKs for addressing discrepancies.
027996,000015: ## 2016-12-31 RSB Proofed comment text using octopus/ProoferComments,
027997,000016: ## and corrected errors found.
027998,000017: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
027999,000018: ## vs Colossus 249.
028000,000019:
![]() |
Page 637 |
028002,000021: # PROGRAM DESCRIPTION **P40CSM**
028003,000022:
028004,000023:
028005,000024: 35,3755 E6,1466 EBANK= DAPDATR1
028006,000025: 31,3215 BANK 31
028007,000026: 24,2000 SETLOC P40S
028008,000027: 24,2000 BANK
028009,000028:
028010,000029: 24,2002 COUNT 24/P40
028011,000030:
028012,000031: 24,2002 05447 P40CSM TC DOWNFLAG
028013,000032: 24,2003 00023 ADRES ENG2FLAG
028014,000033:
028015,000034: 24,2004 06006 TC INTPRET
028016,000035: 24,2005 43135 SLOAD BOFF
028017,000036: 24,2006 03425 ECSTEER # IS THIS AN EXTERNAL DELTA V BURN
028018,000037: 24,2007 01347 XDELVFLG
028019,000038: 24,2010 50013 P40S/C # NO CSTEER = ECSTEER
028020,000039: 24,2011 77745 DLOAD # YES CSTEER = ZERO
028021,000040: 24,2012 15332 HI6ZEROS
028022,000041: 24,2013 17703 P40S/C STODL CSTEER
028023,000042: 24,2014 10335 FENG # SET UP THRUST FOR P40 20,000 LBS
028024,000043: 24,2015 17727 P40S/F STODL F # P41 ENTERS HERE
028025,000044: 24,2016 03413 TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
028026,000045: 24,2017 03450 STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9
028027,000046:
028028,000047: 24,2020 77776 EXIT
028029,000048: 24,2021 04555 TC BANKCALL
028030,000049: 24,2022 17573 CADR R02BOTH # IMU STATUS CHECK
028031,000050:
028032,000051: 24,2023 06006 P40PVA TC INTPRET
028033,000052: 24,2024 77624 CALL
028034,000053: 24,2025 34000 S40.1 # COMPUTE VGTIG,UT
028035,000054: 24,2026 77624 CALL
028036,000055: 24,2027 51514 S40.2,3 # COMPUTE PREFERRED ATTITUDE
028037,000056: 24,2030 77414 SET EXIT
028038,000057: 24,2031 01073 PFRATFLG
028039,000058: 24,2032 02212 P40SXTY TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6)
028040,000059: 24,2033 00003 RELINT
028041,000060: 24,2034 04555 TC BANKCALL
028042,000061: 24,2035 56000 CADR R60CSM # ATTITUDE MANEUVER
028043,000062: 24,2036 44712 CS ONE # FOR UPDATEVG
028044,000063: 24,2037 55746 TS NBRCYCLS
028045,000064: 24,2040 05435 TC UPFLAG
028046,000065: 24,2041 00155 ADRES TIMRFLAG # ALLOW CLOCKTASK
028047,000066:
028048,000067: 24,2042 02252 TC P41/P40
028049,000068: 24,2043 02267 TC P41/DSP # P41
028050,000069:
028051,000070: 24,2044 32351 P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED
![]() |
Page 638 |
028053,000072: 24,2045 55145 TS NVWORD1 # BELOW
028054,000073:
028055,000074: 24,2046 06006 TC INTPRET
028056,000075: 24,2047 51575 VLOAD ABVAL # FOR R2
028057,000076: 24,2050 03721 VGTIG
028058,000077: 24,2051 17654 STODL VGDISP
028059,000078: 24,2052 15332 HI6ZEROS
028060,000079: 24,2053 03426 STORE DVTOTAL
028061,000080: 24,2054 77776 EXIT
028062,000081:
028063,000082: 24,2055 00006 EXTEND
028064,000083: 24,2056 32775 DCA STEERADS # SET FOR UPDATEVG AND TEST FOR STEERING
028065,000084: 24,2057 53223 DXCH AVEGEXIT # AFTER AVERAGE G
028066,000085:
028067,000086: 24,2060 32344 P40GMB CAF P40CKLS2 # (4.1 PROTECTION)
028068,000087: 24,2061 04555 TC BANKCALL
028069,000088: 24,2062 20751 CADR GOPERF1
028070,000089: 24,2063 12204 TCF POST41 # V34
028071,000090: 24,2064 12364 TCF TST,TRIM # V33
028072,000091: 24,2065 44712 TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1)
028073,000092: 24,2066 55445 +1 TS MRKRTMP # ENTRY FROM TST,TRIM
028074,000093:
028075,000094: 24,2067 34714 CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6
028076,000095: 24,2070 55447 TS CNTR # +0 SAYS NORMAL ENTRY.
028077,000096: # +1 (PRE40.6) SAYS RESTART ENTRY
028078,000097:
028079,000098: 24,2071 34712 CAF ONE
028080,000099: 24,2072 05140 TC WAITLIST
028081,000100: 24,2073 E6,1466 EBANK= DAPDATR1
028082,000101: 24,2073 02050 40066 2CADR S40.6
028083,000102: 24,2075 11445 CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBALTEST
028084,000103: 24,2076 32343 CAF 18SEC # PLUS, DELAY FOR 18 SECONDS
028085,000104: 24,2077 12101 TCF +2 # HOLE
028086,000105: 24,2100 33000 CAF 5SEC # DELAY FOR TRIM ONLY TASK
028087,000106: 24,2101 04555 TC BANKCALL
028088,000107: 24,2102 01730 CADR DELAYJOB
028089,000108: 24,2103 05261 TC 2PHSCHNG
028090,000109: 24,2104 40026 OCT 40026 # 6.2 = PRE40.6(-0CS), CLOKTASK(100CS)
028091,000110: 24,2105 00234 OCT 00234 # 4.23 = P40S/SV (PRIO12)
028092,000111: 24,2106 34712 P40S/RS CAF ONE
028093,000112: 24,2107 05140 TC WAITLIST # P41/SDP
028094,000113: 24,2110 E7,1412 EBANK= TIG
028095,000114: 24,2110 03174 50067 2CADR CLOKTASK
028096,000115:
028097,000116: 24,2112 00003 RELINT
028098,000117:
028099,000118: 24,2113 03306 P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PRIO12
028100,000119: 24,2114 E7,1412 EBANK= TIG
![]() |
Page 639 |
028102,000121: 24,2114 06006 TC INTPRET
028103,000122: 24,2115 45345 DLOAD DSU
028104,000123: 24,2116 03413 TIG
028105,000124: 24,2117 10342 SEC29.96
028106,000125: 24,2120 00041 STORE TDEC1
028107,000126:
028108,000127: 24,2121 77624 CALRB # RETURN IN BASIC
028109,000128: 24,2122 27574 MIDTOAV1
028110,000129: 24,2123 12125 TCF +2
028111,000130: 24,2124 02146 TC P40SNEWM # INTEGRATION TIME GREATER THAN ALLOWED
028112,000131: 24,2125 00006 P40SET EXTEND
028113,000132: 24,2126 30155 DCA MPAC # DELTA TIME TO PREREAD (INT.INIT.)
028114,000133: 24,2127 53673 DXCH P40TMP
028115,000134: 24,2130 00006 EXTEND
028116,000135: 24,2131 43000 DCS 5SECDP # FOR TTGBLNK
028117,000136: 24,2132 21673 DAS P40TMP
028118,000137: 24,2133 00006 EXTEND
028119,000138: 24,2134 31673 DCA P40TMP
028120,000139: 24,2135 05231 TC LONGCALL
028121,000140: 24,2136 E7,1412 EBANK= TIG
028122,000141: 24,2136 02366 50067 2CADR TIGBLNK
028123,000142: 24,2140 05301 TC PHASCHNG
028124,000143: 24,2141 20214 OCT 20214 # 4.21 = TIGBLNK (P40TMP CS)
028125,000144:
028126,000145: 24,2142 15112 TCF ENDOFJOB
028127,000146: 24,2143 04555 P40BLNKR TC BANKCALL
028128,000147: 24,2144 20607 CADR CLEANDSP # REMOVE RESIDUE
028129,000148: 24,2145 15112 TCF ENDOFJOB
028130,000149: 24,2146 E7,1412 EBANK= TIG
028131,000150: 24,2146 00006 P40SNEWM EXTEND
028132,000151: 24,2147 31246 DCA PIPTIME1
028133,000152: 24,2150 53413 DXCH TIG # SET NEW TIG FOR 06 40
028134,000153: 24,2151 00006 EXTEND
028135,000154: 24,2152 32342 DCA SEC29.96
028136,000155: 24,2153 21413 DAS TIG
028137,000156: 24,2154 12125 TCF P40SET # FOR LONGCALL OF TIG-30( OR -35)
028138,000157:
028139,000158: 24,2155 E6,1466 EBANK= DAPDATR1
028140,000159: 24,2155 32353 POSTBURN CAF V16N40
028141,000160: 24,2156 04555 TC BANKCALL
028142,000161: 24,2157 20610 CADR REFLASH
028143,000162: 24,2160 12204 TCF POST41 # V34 GO FINISH
028144,000163: 24,2161 12163 TCF P40RCS # PROCEED
028145,000164: 24,2162 12155 TCF POSTBURN # RECYCLE
028146,000165: 24,2163 00006 P40RCS EXTEND # V99N40 ENTERS HERE ON A P40 BYPASS SPS
028147,000166: 24,2164 32411 DCA ACADN85
028148,000167: 24,2165 53223 DXCH AVEGEXIT
028149,000168: 24,2166 34735 CAF 2SECS # WAIT FOR CALCN85 VIA AVEGEXIT
028150,000169: 24,2167 04555 TC BANKCALL
![]() |
Page 640 |
028152,000171: 24,2170 01730 CADR DELAYJOB
028153,000172:
028154,000173: 24,2171 02212 P40MINDB TCR SETMINDB -1
028155,000174: 24,2172 00003 RELINT
028156,000175: 24,2173 05301 TIGNOW TC PHASCHNG
028157,000176: 24,2174 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 85
028158,000177: 24,2175 20000 OCT 20000 # PRIO 20
028159,000178: 24,2176 32350 CAF V16N85B
028160,000179: 24,2177 04555 TC BANKCALL
028161,000180: 24,2200 20610 CADR REFLASH
028162,000181: 24,2201 12204 TCF POST41 # FINISH P40/P41
028163,000182: 24,2202 12204 TCF POST41 # V03 PROCEED WITH REST OF THE CLEAN-UP
028164,000183: 24,2203 12173 TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85
028165,000184:
028166,000185: 24,2204 00006 POST41 EXTEND
028167,000186: 24,2205 32407 DCA SERVCADR
028168,000187: 24,2206 53223 DXCH AVEGEXIT
028169,000188: 24,2207 14106 TCF GOTOPOOH
028170,000189:
028171,000190:
028172,000191: 24,2210 00056 MINDB DEC 46 B-14
028173,000192: 24,2211 00707 MAXDB DEC 455 B-14
028174,000193: 24,2212 E6,1466 EBANK= DAPDATR1
028175,000194: 24,2212 00004 -1 INHINT
028176,000195: 24,2213 30032 SETMINDB CA CDUX # ROUTINE FOR SETTING
028177,000196: 24,2214 55572 TS THETADX # THE MINIMUM DEADBAND
028178,000197: 24,2215 00006 EXTEND # IN AUTOPILOT
028179,000198: 24,2216 30034 DCA CDUY
028180,000199: 24,2217 53574 DXCH THETADY
028181,000200: 24,2220 32210 CA MINDB # SHOULD BE CALLED UNDER
028182,000201: 24,2221 55655 TS ADB # INTERRUPT INHIBITED
028183,000202: 24,2222 44707 CS BIT4 # EBANK = E6
028184,000203: 24,2223 71466 MASK DAPDATR1
028185,000204: 24,2224 55466 TS DAPDATR1
028186,000205: 24,2225 00002 TC Q
028187,000206:
028188,000207: 24,2226 E6,1466 EBANK= DAPDATR1
028189,000208: 24,2226 00004 -1 INHINT
028190,000209: 24,2227 32211 SETMAXDB CA MAXDB # ROUTINE FOR SETTING
028191,000210: 24,2230 55655 TS ADB # THE MAXIMUM DEADBAND IN AUTOPILOT
028192,000211: 24,2231 41466 CS DAPDATR1
028193,000212: 24,2232 74707 MASK BIT4 # SHOULD BE CALLED UNDER
028194,000213: 24,2233 27466 ADS DAPDATR1 # INTERRUPT INHIBITED
028195,000214: 24,2234 00002 TC Q # EBANK = E6
028196,000215:
![]() |
Page 641 |
028198,000217: # PROGRAM DESCRIPTION **P41CSM**
028199,000218:
028200,000219:
028201,000220: 24,2235 E6,1466 EBANK= DAPDATR1
028202,000221: 24,2235 COUNT 24/P41
028203,000222:
028204,000223: 24,2235 05435 P41CSM TC UPFLAG
028205,000224: 24,2236 00023 ADRES ENG2FLAG # SET FOR RCS
028206,000225:
028207,000226: 24,2237 06006 TC INTPRET
028208,000227: 24,2240 77745 DLOAD
028209,000228: 24,2241 15332 HI6ZEROS # FOR P41 CSTEER =0
028210,000229: 24,2242 03703 STORE CSTEER
028211,000230:
028212,000231: 24,2243 43145 DLOAD BON
028213,000232: 24,2244 10337 FRCS2 # 2JET THRUST FOR S40.1
028214,000233: 24,2245 00700 NJETSFLG
028215,000234: 24,2246 50015 P40S/F # NJETS = 1 2-JET
028216,000235: 24,2247 52015 DAD GOTO # NJETS = 0 4-JET
028217,000236: 24,2250 10337 FRCS2
028218,000237: 24,2251 50015 P40S/F
028219,000238:
028220,000239: 24,2252 41011 P41/P40 CS MODREG
028221,000240: 24,2253 74712 MASK ONE # P41EXITS AT CALL LOC +1
028222,000241: 24,2254 00006 EXTEND
028223,000242: 24,2255 12257 BZF +2 # P41
028224,000243: 24,2256 24002 INCR Q # P40 EXITS AT CALL LOC +2
028225,000244: 24,2257 00002 TC Q
028226,000245:
028227,000246: 24,2260 34675 TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41)
028228,000247: 24,2261 05027 TC NOVAC
028229,000248: 24,2262 E6,1466 EBANK= DAPDATR1
028230,000249: 24,2262 02173 50066 2CADR TIGNOW
028231,000250:
028232,000251: 24,2264 05447 P40CLK TC DOWNFLAG
028233,000252: 24,2265 00155 ADRES TIMRFLAG
028234,000253:
028235,000254: 24,2266 15213 TCF TASKOVER
028236,000255:
028237,000256: 24,2267 32347 P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
028238,000257: 24,2270 55145 TS NVWORD1
028239,000258:
028240,000259: 24,2271 06006 TC INTPRET
028241,000260: 24,2272 77624 CALL # COMPUTE
028242,000261: 24,2273 50314 P40CNV85 # VGTIG IN CTRL COORDS
028243,000262: 24,2274 77776 EXIT
028244,000263: 24,2275 00006 EXTEND # DO CONTROL COORD CALCULATION AFTER AVEG
028245,000264: 24,2276 32411 DCA ACADN85
028246,000265: 24,2277 53223 DXCH AVEGEXIT
![]() |
Page 642 |
028248,000267: 24,2300 05261 TC 2PHSCHNG
028249,000268: 24,2301 40036 OCT 40036 # 6.3=CLOKTASK(100CS)
028250,000269: 24,2302 00234 OCT 234 # 4.23=P40S/SV(PRIO12)
028251,000270:
028252,000271: 24,2303 12106 TCF P40S/RS
028253,000272: 24,2304 32350 P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
028254,000273: 24,2305 55145 TS NVWORD1 # REDISPLAY NONFLASHING
028255,000274: 24,2306 32342 CAF SEC29.96 +1
028256,000275: 24,2307 05140 TC WAITLIST
028257,000276: 24,2310 E6,1466 EBANK= DAPDATR1
028258,000277: 24,2310 02260 50066 2CADR TTG/0
028259,000278: 24,2312 44710 CS BIT3 # 4.4 = TTG/0(2996CS), PRECHECK(-0CS)
028260,000279: 24,2313 12515 TCF TTGPHS
028261,000280: 24,2314 40220 P40CNV85 STQ SETPD
028262,000281: 24,2315 03730 QTEMP1
028263,000282: 24,2316 00001 0
028264,000283: 24,2317 41575 VLOAD PUSH
028265,000284: 24,2320 03721 VGPREV # EQUALS VGTIG (TARGETTING INPUT)
028266,000285: 24,2321 77624 CALL
028267,000286: 24,2322 45426 S41.1
028268,000287: 24,2323 37665 STCALL VGBODY
028269,000288: 24,2324 03730 QTEMP1
028270,000289:
028271,000290: 24,2325 E6,1466 EBANK= DAPDATR1
028272,000291: 24,2325 06006 CALCN85 TC INTPRET
028273,000292: 24,2326 77624 CALL
028274,000293: 24,2327 51020 UPDATEVG # NEW VG, S40.8(+MAYBE S40.9)
028275,000294: 24,2330 77624 CALL
028276,000295: 24,2331 50314 P40CNV85 # COMPUTE VGBODY
028277,000296: 24,2332 77776 EXIT
028278,000297: 24,2333 03131 TC SERVXT
028279,000298: 24,2334 02217 06650 FENG 2DEC 9.1188544 B-7 # SPS THRUST (20500LBS), SC.AT B+7 NEWT/E4
028280,000299: 24,2336 00013 06112 FRCS2 2DEC .087437837 B-7 # RCS ULLAGE (199.6COS10 LBS), SC.AT
028281,000300: # B+7 NEWTONS/E+4
028282,000301: 24,2340 04700 SEC24.96 DEC 2496 B-14
028283,000302: 24,2341 00000 05664 SEC29.96 2DEC 2996 B-28
028284,000303: 24,2343 03410 18SEC DEC 1800 B-14
028285,000304: 24,2344 00204 P40CKLS2 OCT 204
028286,000305: 24,2345 37730 40CST5 OCT 37730 # 40 CS FOR THE T5 CLOCK
028287,000306: 24,2346 4377 OCT12 = TEN
028288,000307: 24,2346 04123 V1683 VN 1683
028289,000308: 24,2347 01525 V06N85B VN 0685
028290,000309: 24,2350 04125 V16N85B VN 1685
028291,000310: 24,2351 01450 V06N40 VN 0640
028292,000311: 24,2352 24020 P40OK99 OCT 24020 # BITS 14,12, AND5 FOR LINUS VERB 99
028293,000312: 24,2353 04050 V16N40 VN 1640
![]() |
Page 643 |
028295,000314: 24,2354 00027 OCT27/24 OCT 27
028296,000315: 24,2355 00053 OCT53 OCT 53
028297,000316: 24,2356 00035 OCT35 OCT 35
028298,000317: 24,2357 E6,1466 EBANK= DAPDATR1
028299,000318: 24,2357 03132 12066 T5IDL24 2CADR T5IDLOC
028300,000319: 24,2361 01120 25456 MDOTHI 2DEC .289391932 B-3 # 63.8 LB/SEC, SC.AT B+3 KG/CS (=MDOTLO)
028301,000320: 24,2363 00026 3MDOT DEC 86.8175796 B-16 # 3SEC MASS LOSS (63.8 LBS/SEC), SC.AT
028302,000321: # B+16 KG/SEC
028303,000322: 24,2364 34712 TST,TRIM CAF BIT1 # SET UP FOR GIMB DRIVE TEST AND TRIM (+1)
028304,000323: 24,2365 12066 TCF TRIMONLY +1
028305,000324: 24,2366 33000 TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30
028306,000325: 24,2367 05140 TC WAITLIST
028307,000326: 24,2370 E7,1412 EBANK= TIG
028308,000327: 24,2370 02504 50067 2CADR TIGAVEG
028309,000328: 24,2372 34714 CAF ZERO # DISABLE HERE, NOT IN P40BLNKR
028310,000329: 24,2373 55145 TS NVWORD1
028311,000330:
028312,000331: 24,2374 34761 CAF PRIO14
028313,000332: 24,2375 05027 TC NOVAC
028314,000333: 24,2376 E7,1412 EBANK= TIG
028315,000334: 24,2376 02143 50067 2CADR P40BLNKR # DONT PROTECT-RESTARTS BLANK DSKY
028316,000335: 24,2400 44362 CS OCT37 # 4.37 = TIGAVEG (500CS)
028317,000336: 24,2401 04114 P40TSK TC NEWPHASE
028318,000337: 24,2402 00004 OCT 4
028319,000338: 24,2403 05213 TC TASKOVER
028320,000339:
028321,000340: 24,2404 E7,1412 EBANK= TIG
028322,000341: 24,2404 02440 50067 ACADN83 2CADR CALCN83
028323,000342: 24,2406 E7,1412 EBANK= TIG
028324,000343: 24,2406 03136 76067 SERVCADR 2CADR SERVEXIT
028325,000344: 24,2410 E6,1466 EBANK= DAPDATR1
028326,000345: 24,2410 02325 50066 ACADN85 2CADR CALCN85
028327,000346:
![]() |
Page 644 |
028329,000348: # PROGRAM DESCRIPTION **P47CSM**
028330,000349:
028331,000350:
028332,000351: 24,2412 COUNT 24/P47
028333,000352:
028334,000353: 24,2412 E7,1412 EBANK= TIG
028335,000354: 24,2412 04555 P47CSM TC BANKCALL # IMU STATUS CHECK
028336,000355: 24,2413 17573 CADR R02BOTH
028337,000356: 24,2414 06006 TC INTPRET
028338,000357: 24,2415 77624 CALRB
028339,000358: 24,2416 27570 MIDTOAV2
028340,000359: 24,2417 30155 CAE MPAC +1 # DELTA TIME TO RPEREAD (LESS THAN 1000
028341,000360: 24,2420 55672 TS P40TMP # CS, WITH A TPAGREE, INT.INIT.)
028342,000361: 24,2421 05140 TC WAITLIST
028343,000362: 24,2422 E7,1412 EBANK= TIG
028344,000363: 24,2422 02427 50067 2CADR TIGON # TIGON IS REQUIRED TO MATHCHTAT AND AVEG
028345,000364:
028346,000365: 24,2424 05301 TC PHASCHNG
028347,000366: 24,2425 40574 OCT 40574 # A, 4.57 = TIGON (P40TMP CS)
028348,000367: 24,2426 15112 TCF ENDOFJOB
028349,000368:
028350,000369: 24,2427 E7,1672 EBANK= P40TMP
028351,000370: 24,2427 00006 TIGON EXTEND
028352,000371: 24,2430 32405 DCA ACADN83
028353,000372: 24,2431 53223 DXCH AVEGEXIT
028354,000373: 24,2432 34371 CAF PRIO30 # FORCE ZEROING OF N83 BEFORE SERVICER
028355,000374: 24,2433 05027 TC NOVAC
028356,000375: 24,2434 E7,1412 EBANK= TIG
028357,000376: 24,2434 02463 50067 2CADR P47BODY
028358,000377: 24,2436 44711 CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
028359,000378: 24,2437 12515 TCF TTGPHS
028360,000379:
028361,000380:
028362,000381: 24,2440 E7,1412 EBANK= TIG
028363,000382: 24,2440 06006 CALCN83 TC INTPRET
028364,000383: 24,2441 77601 SETPD # SET UP PUSHLIST FOR S41.1
028365,000384: 24,2442 00001 0
028366,000385: 24,2443 53375 VLOAD VAD
028367,000386: 24,2444 03665 DELVCTL
028368,000387: 24,2445 03433 DELVREF
028369,000388: 24,2446 03460 STORE DV47TEMP # FOR COPYCYCLE BELOW
028370,000389: 24,2447 45006 PUSH CALL
028371,000390: 24,2450 45426 S41.1
028372,000391: 24,2451 37675 STCALL DELVIMU
028373,000392: 24,2452 70436 S11.1 # CALC. VI, H, HDOT FOR NOUN 62
028374,000393: 24,2453 77776 EXIT
028375,000394: 24,2454 05301 TC PHASCHNG
028376,000395: 24,2455 10035 OCT 10035
![]() |
Page 645 |
028378,000397: 24,2456 34715 CAF FIVE
028379,000398: 24,2457 05475 TC GENTRAN
028380,000399: 24,2460 01457 ADRES DV47TEMP
028381,000400: 24,2461 01664 ADRES DELVCTL
028382,000401:
028383,000402: 24,2462 03131 TC SERVXT
028384,000403: 24,2463 06006 P47BODY TC INTPRET
028385,000404: 24,2464 77775 VLOAD
028386,000405: 24,2465 15332 HI6ZEROS
028387,000406: 24,2466 03675 STORE DELVIMU # CLEAR DISPLAY AND ACCUMULATOR STORAGE
028388,000407: 24,2467 03665 STORE DELVCTL # UPON INITIATION OR-ENTER-RESPONSE
028389,000408: 24,2470 77776 EXIT
028390,000409: 24,2471 34762 P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20)
028391,000410: 24,2472 05103 TC PRIOCHNG # TO PREVENT INTERRUPTION OF CALCN83
028392,000411: 24,2473 05301 TC PHASCHNG
028393,000412: 24,2474 05024 OCT 05024 # TYPE C GROUP 4 BELOW FOR NOUN 83
028394,000413: 24,2475 15000 OCT 15000 # PRIO 15
028395,000414: 24,2476 32346 P47/DSP CAF V1683
028396,000415: 24,2477 04555 TC BANKCALL
028397,000416: 24,2500 20624 CADR GOFLASH
028398,000417: 24,2501 04106 TC GOTOPOOH
028399,000418: 24,2502 04106 TC GOTOPOOH
028400,000419: 24,2503 12463 TCF P47BODY # RECYCLE - CLEAR ACCUMULATED VELOCITY
028401,000420:
![]() |
Page 646 |
028403,000422: # ROUTINE **TIG-30** DESCRIPTION
028404,000423:
028405,000424:
028406,000425: 24,2504 E7,1412 EBANK= TIG
028407,000426: 24,2504 COUNT 24/P40
028408,000427:
028409,000428: 24,2504 02252 TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS)
028410,000429: 24,2505 12304 TCF P41REDSP # P41
028411,000430:
028412,000431: 24,2506 32351 CAF V06N40 # UNBLANK DISPLAY
028413,000432: 24,2507 55145 TS NVWORD1
028414,000433:
028415,000434: 24,2510 32340 CAF SEC24.96
028416,000435: 24,2511 05140 TC WAITLIST
028417,000436: 24,2512 E7,1412 EBANK= TIG
028418,000437: 24,2512 02523 50067 2CADR TIG-5
028419,000438: 24,2514 46211 CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
028420,000439: 24,2515 04114 TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR
028421,000440: 24,2516 00004 OCT 4 # FROM TIGON (P47) WITH A=-2
028422,000441:
028423,000442: 24,2517 10763 PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED
028424,000443: 24,2520 15213 TCF TASKOVER # YES, DONT START ANOTHER ONE
028425,000444: 24,2521 04574 TC POSTJUMP
028426,000445: 24,2522 76604 CADR PREREAD
028427,000446:
![]() |
Page 647 |
028429,000448: # ROUTINE **TIG-5** DESCRIPTION
028430,000449:
028431,000450:
028432,000451: 24,2523 E7,1412 EBANK= TIG
028433,000452: 24,2523 33000 TIG-5 CAF 5SEC
028434,000453: 24,2524 05140 TC WAITLIST
028435,000454: 24,2525 E6,1466 EBANK= DAPDATR1
028436,000455: 24,2525 02541 50066 2CADR TIG-0
028437,000456: 24,2527 44702 CS BIT9 # WILL CAUSE V99 FLASH
028438,000457: 24,2530 55145 TS NVWORD1
028439,000458:
028440,000459: 24,2531 05261 TC 2PHSCHNG
028441,000460: 24,2532 40074 OCT 40074 # A, 4.7 = TIG-0 (500CS)
028442,000461: 24,2533 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO20)
028443,000462:
028444,000463: 24,2534 34675 CAF PRIO20
028445,000464: 24,2535 05042 TC FINDVAC
028446,000465: 24,2536 E7,1427 EBANK= TGO
028447,000466: 24,2536 02404 34067 2CADR S40.13
028448,000467: 24,2540 15213 TCF TASKOVER
028449,000468:
![]() |
Page 648 |
028451,000470: # ROUTINES **TIG-0** AND **IGNITION** DESCRIPTION
028452,000471:
028453,000472:
028454,000473: 24,2541 E6,1466 EBANK= DAPDATR1 # TASK, 4.7 PHASE, OR 4.77 (-0CS) IN R40
028455,000474: 24,2541 40103 TIG-0 CS FLAGWRD7 # SET IGN FLAG
028456,000475: 24,2542 74676 MASK BIT13
028457,000476: 24,2543 26103 ADS FLAGWRD7
028458,000477:
028459,000478: 24,2544 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE
028460,000479: 24,2545 74677 MASK BIT12
028461,000480: 24,2546 00006 EXTEND
028462,000481: 24,2547 15213 BZF TASKOVER # WAIT FOR V99P
028463,000482:
028464,000483: 24,2550 32351 CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART
028465,000484: 24,2551 55145 TS NVWORD1 # DURING THE V99 SEQUENCE)
028466,000485:
028467,000486: 24,2552 05301 TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW
028468,000487: 24,2553 00614 OCT 00614 # A, 4.61 = IGNITION (-0CS) TBASE OLD
028469,000488:
028470,000489: 24,2554 30032 IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD
028471,000490: 24,2555 55450 TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION
028472,000491: 24,2556 00006 EXTEND # TASK (4.61 PROTECTION)
028473,000492: 24,2557 30025 DCA TIME2 # FOR RESTARTS
028474,000493: 24,2560 53337 DXCH TEVENT
028475,000494: 24,2561 40101 CS FLAGWRD5 # SET ENGONFLG
028476,000495: 24,2562 74704 MASK BIT7
028477,000496: 24,2563 26101 ADS FLAGWRD5
028478,000497: 24,2564 34676 SPSON CAF BIT13 # TURN ON SPS ENGINE
028479,000498: 24,2565 00006 EXTEND
028480,000499: 24,2566 05011 WOR DSALMOUT
028481,000500:
028482,000501: 24,2567 34702 IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN
028483,000502: 24,2570 70076 MASK FLAGWRD2
028484,000503: 24,2571 10000 CCS A
028485,000504: 24,2572 12657 TCF IMPLBURN # IMPULSIVE
028486,000505: 24,2573 40102 CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL
028487,000506: 24,2574 74676 MASK BIT13
028488,000507: 24,2575 26102 ADS FLAGWRD6
028489,000508:
028490,000509: 24,2576 44105 PREPTVC CS OCT60000 # RESET T5 BITS
028491,000510: 24,2577 70102 MASK FLAGWRD6
028492,000511: 24,2600 54102 TS FLAGWRD6
028493,000512:
028494,000513: 24,2601 00006 EXTEND # KILL RCS
028495,000514: 24,2602 32360 DCA T5IDL24
028496,000515: 24,2603 53313 DXCH T5LOC
028497,000516:
028498,000517: 24,2604 46214 CS THREE # 4.3 = DOTVCON (40CS)
028499,000518: 24,2605 04114 TC NEWPHASE
028500,000519: 24,2606 00004 OCT 4
![]() |
Page 649 |
028502,000521: 24,2607 05156 TC FIXDELAY
028503,000522: 24,2610 00050 DEC 40 B-14 # 0.4 SECOND DELAY FOR THRUST BUILDUP
028504,000523:
028505,000524: 24,2611 44712 DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
028506,000525: 24,2612 55654 TS TVCPHASE
028507,000526: 24,2613 34714 CAF ZERO # SET TVCEXECUTIVE PHASE
028508,000527: 24,2614 55661 TS TVCEXPHS
028509,000528: 24,2615 44105 CS OCT60000 # SET T5 BITS TO INDICATE TVC TAKEOVER....
028510,000529: 24,2616 70102 MASK FLAGWRD6 # BITS 15,14 = 10
028511,000530: 24,2617 64674 AD BIT15
028512,000531: 24,2620 54102 TS FLAGWRD6
028513,000532:
028514,000533: 24,2621 36214 CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6
028515,000534: 24,2622 54001 TS L # WHICH IS HANDLED NOW BY REDOTVC
028516,000535: 24,2623 40000 COM
028517,000536: 24,2624 52765 DXCH -PHASE6
028518,000537:
028519,000538: 24,2625 44715 CS FIVE # 4.5 = DOSTRULL (160 CS)
028520,000539: 24,2626 04114 TC NEWPHASE
028521,000540: 24,2627 00004 OCT 4
028522,000541:
028523,000542: 24,2630 34672 CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY
028524,000543: 24,2631 54030 TS TIME5
028525,000544: 24,2632 00006 EXTEND
028526,000545: 24,2633 33003 DCA TVCON2C # (TVCDAPON)
028527,000546: 24,2634 53313 DXCH T5LOC # (KILLS RCS DAP)
028528,000547:
028529,000548: 24,2635 05156 TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
028530,000549: 24,2636 00240 DEC 160 B-14 # STEERING (IF NON-IMPULSIVE)
028531,000550:
028532,000551: 24,2637 34676 DOSTRULL CAF BIT13 # CHECK STRULLSW FOR IMPULSIVE BURN
028533,000552: 24,2640 70102 MASK FLAGWRD6
028534,000553: 24,2641 10000 CCS A
028535,000554: 24,2642 02650 TCR STEERULL # NON-IMPULSIVE, STEERING AND ULLAGE OFF
028536,000555: 24,2643 02653 TCR ULAGEOFF # ULLAGE OFF (ONLY, OR AGAIN)
028537,000556:
028538,000557: 24,2644 00006 EXTEND
028539,000558: 24,2645 34714 DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0,+0)
028540,000559: 24,2646 52761 DXCH -PHASE4
028541,000560:
028542,000561: 24,2647 15213 ENDIGN TCF TASKOVER
028543,000562:
028544,000563:
028545,000564: 24,2650 40076 STEERULL CS FLAGWRD2 # SET STEERSW
028546,000565: 24,2651 74700 MASK BIT11
028547,000566: 24,2652 26076 ADS FLAGWRD2
028548,000567:
028549,000568: 24,2653 34714 ULAGEOFF CAF ZERO
028550,000569: 24,2654 00006 EXTEND
028551,000570: 24,2655 01005 WRITE CHAN5 # ZERO CHANNEL 5
![]() |
Page 650 |
028553,000572: 24,2656 00002 TC Q
028554,000573:
028555,000574:
028556,000575: 24,2657 44676 IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE
028557,000576: 24,2660 70102 MASK FLAGWRD6 # ENGINE FAIL)
028558,000577: 24,2661 54102 TS FLAGWRD6
028559,000578:
028560,000579: 24,2662 03306 TCR E7SETTER
028561,000580:
028562,000581: 24,2663 E7,1412 EBANK= TIG
028563,000582: 24,2663 00006 EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK)
028564,000583: 24,2664 31430 DCA TGO
028565,000584: 24,2665 53413 DXCH TIG
028566,000585: 24,2666 00006 EXTEND
028567,000586: 24,2667 30025 DCA TIME2
028568,000587: 24,2670 21413 DAS TIG
028569,000588:
028570,000589: 24,2671 31430 CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS)
028571,000590: 24,2672 05140 TC WAITLIST
028572,000591: 24,2673 E7,1427 EBANK= TGO
028573,000592: 24,2673 02710 50067 2CADR ENGINOFF
028574,000593: 24,2675 05261 TC 2PHSCHNG # PROTECT....
028575,000594: 24,2676 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
028576,000595: 24,2677 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
028577,000596: 24,2700 77777 DEC -0 B-14 # -0 CS
028578,000597:
028579,000598: 24,2701 44702 CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP
028580,000599: 24,2702 70076 MASK FLAGWRD2
028581,000600: 24,2703 54076 TS FLAGWRD2
028582,000601:
028583,000602: 24,2704 03311 TCR E6SETTER
028584,000603: 24,2705 E6,1466 EBANK= DAPDATR1
028585,000604:
028586,000605: 24,2705 34714 CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-
028587,000606: 24,2706 55444 TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON
028588,000607:
028589,000608: 24,2707 12576 TCF PREPTVC
028590,000609:
028591,000610:
028592,000611: 24,2710 E7,1427 EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
028593,000612: 24,2710 03311 ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6
028594,000613: 24,2711 E6,1466 EBANK= DAPDATR1
028595,000614: 24,2711 31474 CAE CSMMASS
028596,000615: 24,2712 55662 TS MASSTMP # COPYCYCLE FOR MASSBACK
028597,000616: 24,2713 05261 TC 2PHSCHNG
028598,000617: 24,2714 00003 OCT 00003 # KILL GROUP 3 PROTECTION OF ENGINOFF, DO
028599,000618: 24,2715 40634 OCT 40634 # A, 4.63 = DOSPSOFF (-0CS)
028600,000619: 24,2716 02741 DOSPSOFF TCR SPSOFF # SHUT DOWN SPS, MASS UPDATES, ETC.
028601,000620: 24,2717 42354 CS OCT27/24 # (OCTAL 27)
![]() |
Page 651 |
028603,000622: 24,2720 04114 TC NEWPHASE
028604,000623: 24,2721 00004 OCT 4 # 4.27 = DOTVCRCS (250 CS)
028605,000624:
028606,000625: 24,2722 05156 TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF
028607,000626: 24,2723 00372 DEC 250 B-14
028608,000627:
028609,000628: 24,2724 02227 DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT
028610,000629:
028611,000630: 24,2725 04633 TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5
028612,000631: 24,2726 42010 CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
028613,000632:
028614,000633: 24,2727 04633 TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
028615,000634: 24,2730 13176 CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS
028616,000635:
028617,000636: 24,2731 03005 TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK
028618,000637:
028619,000638: 24,2732 05301 TC PHASCHNG
028620,000639: 24,2733 00354 OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12)
028621,000640: 24,2734 34603 CAF PRIO12 # SET UP POSTBURN V16N40 JOB
028622,000641: 24,2735 05027 TC NOVAC
028623,000642: 24,2736 E6,1466 EBANK= DAPDATR1 # (SET MAXDB IN POST41)
028624,000643: 24,2736 02155 50066 2CADR POSTBURN
028625,000644: 24,2740 15213 TCF TASKOVER
028626,000645:
028627,000646: 24,2741 E6,1466 EBANK= DAPDATR1
028628,000647: 24,2741 00006 SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT
028629,000648: 24,2742 30025 DCA TIME2
028630,000649: 24,2743 53337 DXCH TEVENT
028631,000650: 24,2744 44704 CS BIT7 # RESET ENGONFLG
028632,000651: 24,2745 70101 MASK FLAGWRD5
028633,000652: 24,2746 54101 TS FLAGWRD5 # (RESTARTS WILL SHUT DOWN SPS NOW)
028634,000653: 24,2747 44676 CS BIT13 # SHUT DOWN SPS ENGINE
028635,000654: 24,2750 00006 EXTEND
028636,000655: 24,2751 03011 WAND DSALMOUT
028637,000656:
028638,000657: 24,2752 31444 MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS
028639,000658: # V97VCNTR = VCNTR UNLESS V97 IS
028640,000659: # ACTIVE. ONLY V97VCNTR IS THEN RIGHT
028641,000660: 24,2753 00006 EXTEND # VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
028642,000661: 24,2754 72361 MP MDOTHI # MDOT, SC<AT B+3 KG/CS
028643,000662: 24,2755 22000 LXCH A
028644,000663: 24,2756 00006 EXTEND
028645,000664: 24,2757 74734 MP 1SEC # DEC 100
028646,000665: 24,2760 61662 AD MASSTMP # CORRECTION IS ACCURATE TO 5 CS OF FLOW
028647,000666: 24,2761 55474 TS CSMMASS # (1.44 KG OR 0.4 BITS)
028648,000667:
028649,000668: 24,2762 34674 BESTTRIM CAF BIT15 # CHECK FOR SWITCHOVER, SELECT BEST TRIMS
028650,000669: 24,2763 70105 MASK FLAGWRD9 # FOR NEXT IGNITION (OR REIGNITION)
028651,000670: 24,2764 00006 EXTEND
![]() |
Page 652 |
028653,000672: 24,2765 12767 BZF DBARTRIM # PRE-SWITCHOVER
028654,000673: 24,2766 00002 TC Q # POST-SWITCHOVER, SO LEAVE TRIMS AS ARE
028655,000674:
028656,000675: 24,2767 31621 DBARTRIM CAE DELPBAR # UPDATE TRIMS WITH DELP,YBAR
028657,000676: 24,2770 55425 TS PACTOFF
028658,000677: 24,2771 31623 CAE DELYBAR
028659,000678: 24,2772 55426 TS YACTOFF
028660,000679: 24,2773 00002 TC Q
028661,000680:
028662,000681: 24,2774 E6,1466 EBANK= DAPDATR1
028663,000682: 24,2774 03121 50066 STEERADS 2CADR STEERING
028664,000683: 24,2776 37703 .6SECT5 OCT 37703
028665,000684: 24,2777 00000 5SECDP DEC 0 B-14 # MAKE DP 5SEC
028666,000685: 24,3000 00764 5SEC DEC 500 B-14
028667,000686: 24,3001 02202 OCT02202 OCT 02202 # BITS 2,8,11 FOR CHANNEL 12 TVC/OPTICS
028668,000687: 24,3002 E6,1466 EBANK= DAPDATR1
028669,000688: 24,3002 02032 36066 TVCON2C 2CADR TVCDAPON
028670,000689:
028671,000690: 24,3004 00004 -1 INHINT
028672,000691: 24,3005 43001 TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRS, REENGAGE
028673,000692: 24,3006 00006 EXTEND # OPTICS DAC
028674,000693: 24,3007 03012 WAND CHAN12
028675,000694: 24,3010 44712 CS BIT1 # ENABLE T4RUPT OPTICS MONITOR....PERMIT
028676,000695: 24,3011 55303 TS OPTIND # OPTICS-ZERO BUT NOT OPTICS-DRIVE
028677,000696: 24,3012 34714 CAF ZERO # CLEAR NVWORD1 IN CASE CLOCKJOB WAITING
028678,000697: 24,3013 55145 TS NVWORD1
028679,000698: 24,3014 44700 CS BIT11 # CLEAR TIMRFLAG TO STOP CLOKTASK
028680,000699: 24,3015 70103 MASK FLAGWRD7
028681,000700: 24,3016 54103 TS FLAGWRD7
028682,000701: 24,3017 00002 TC Q
028683,000702: 24,3020 E6,1466 EBANK= DAPDATR1
028684,000703: 24,3020 43020 UPDATEVG STQ BON
028685,000704: 24,3021 03730 QTEMP1
028686,000705: 24,3022 01307 XDELVFLG
028687,000706: 24,3023 51047 CALL40.8
028688,000707:
028689,000708: 24,3024 50135 SLOAD BMN
028690,000709: 24,3025 03347 NBRCYCLS
028691,000710: 24,3026 51053 SETUP.9
028692,000711:
028693,000712: 24,3027 53375 VLOAD VAD
028694,000713: 24,3030 03351 DELVSUM
028695,000714: 24,3031 03433 DELVREF
028696,000715: 24,3032 03357 STORE DELVSUMP
028697,000716: 24,3033 77776 EXIT
028698,000717: 24,3034 34712 CA ONE
028699,000718: 24,3035 61746 AD NBRCYCLS
028700,000719: 24,3036 55747 TS NBRCYCLP
![]() |
Page 653 |
028702,000721: 24,3037 05301 TC PHASCHNG # TYPE B RESTART BELOW AND 5.3 REREADACCS
028703,000722: 24,3040 10035 OCT 10035
028704,000723:
028705,000724: 24,3041 31747 CA NBRCYCLP
028706,000725: 24,3042 55746 TS NBRCYCLS
028707,000726: 24,3043 06006 TC INTPRET
028708,000727: 24,3044 77775 VLOAD
028709,000728: 24,3045 03357 DELVSUMP
028710,000729: 24,3046 03351 STORE DELVSUM
028711,000730:
028712,000731: 24,3047 77624 CALL40.8 CALL
028713,000732: 24,3050 34130 S40.8
028714,000733: 24,3051 77650 GOTO
028715,000734: 24,3052 03730 QTEMP1
028716,000735:
028717,000736: 24,3053 67214 SETUP.9 BON SLOAD
028718,000737: 24,3054 01310 FIRSTFLG
028719,000738: 24,3055 51070 SURELY.9
028720,000739: 24,3056 03350 NBRCYCLP
028721,000740: 24,3057 74301 NORM VXSC # (NORM HANDLES ZERO PROPERLY)
028722,000741: 24,3060 00047 X1
028723,000742: 24,3061 03705 BDT
028724,000743: 24,3062 53257 VSR* VAD
028725,000744: 24,3063 20563 0 -14D,1
028726,000745: 24,3064 03646 VGTEMP
028727,000746: 24,3065 77651 VSU
028728,000747: 24,3066 03351 DELVSUM
028729,000748: 24,3067 03721 STORE VGPREV
028730,000749: 24,3070 77776 SURELY.9 EXIT
028731,000750: 24,3071 34676 CAF PRIO10
028732,000751: 24,3072 05042 TC FINDVAC
028733,000752: 24,3073 E6,1466 EBANK= DAPDATR1
028734,000753: 24,3073 02257 34066 2CADR S40.9
028735,000754: 24,3075 05261 TC 2PHSCHNG
028736,000755: 24,3076 00051 OCT 00051 # A, 1.5 = REDO40.9, PRIO 10
028737,000756: 24,3077 10035 OCT 10035
028738,000757: 24,3100 06006 TC INTPRET
028739,000758: 24,3101 77775 VLOAD
028740,000759: 24,3102 01171 RN # ACTIVE VEHICLE RADIUS VECTOR AT T1
028741,000760: 24,3103 27570 STOVL RINIT
028742,000761: 24,3104 01177 VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1
028743,000762: 24,3105 17576 STODL VINIT
028744,000763: 24,3106 01205 PIPTIME
028745,000764: 24,3107 03474 STORE TNIT
028746,000765: 24,3110 77621 BDSU
028747,000766: 24,3111 03656 TPASS4
028748,000767: 24,3112 27423 STOVL DELLT4
028749,000768: 24,3113 15332 HI6ZEROS
028750,000769: 24,3114 17351 STODL DELVSUM
![]() |
Page 654 |
028752,000771: 24,3115 15332 HI6ZEROS
028753,000772: 24,3116 03347 STORE NBRCYCLS
028754,000773: 24,3117 77650 GOTO
028755,000774: 24,3120 51047 CALL40.8
028756,000775: 24,3121 E6,1466 EBANK= DAPDATR1
028757,000776: 24,3121 06006 STEERING TC INTPRET
028758,000777: 24,3122 77624 CALL
028759,000778: 24,3123 51020 UPDATEVG
028760,000779: 24,3124 77776 EXIT
028761,000780: 24,3125 34702 CAF BIT9 # CHECK IMPULSW
028762,000781: 24,3126 70076 MASK FLAGWRD2
028763,000782: 24,3127 10000 CCS A
028764,000783: 24,3130 13133 TCF +3 # PRE-IGNITE, REQUEST ENG-OFF, OR POST-OFF
028765,000784: 24,3131 04574 SERVXT TC POSTJUMP
028766,000785: 24,3132 77136 CADR SERVEXIT
028767,000786: 24,3133 34676 CAF BIT13 # CHECK ENGINE-ON/-OFF
028768,000787: 24,3134 00006 EXTEND
028769,000788: 24,3135 02011 RAND DSALMOUT
028770,000789: 24,3136 00006 EXTEND
028771,000790: 24,3137 13131 BZF SERVXT # ENGINE-OFF, SO PRE-IGNITE OR POST-OFF
028772,000791: 24,3140 03306 TCR E7SETTER
028773,000792: 24,3141 E7,1412 EBANK= TIG
028774,000793: 24,3141 00004 INHINT
028775,000794: 24,3142 00006 EXTEND
028776,000795: 24,3143 31413 DCA TIG
028777,000796: 24,3144 52155 DXCH MPAC
028778,000797: 24,3145 00006 EXTEND
028779,000798: 24,3146 40025 DCS TIME2
028780,000799: 24,3147 20155 DAS MPAC
028781,000800: 24,3150 07224 TCR DPAGREE
028782,000801: 24,3151 30155 CAE MPAC +1 # (LESS THAN 6 (OR 4) SECONDS TO GO)
028783,000802: 24,3152 10000 CCS A # PROTECT AGAINST NEG/ZRO W.L. CALL
028784,000803: 24,3153 13156 TCF +3
028785,000804: 24,3154 13156 TCF +2
028786,000805: 24,3155 34714 CAF ZERO
028787,000806: 24,3156 64712 AD ONE
028788,000807: 24,3157 56001 XCH L
028789,000808: 24,3160 34714 CA ZERO
028790,000809: 24,3161 53430 DXCH TGO
028791,000810: 24,3162 31430 CA TGO +1
028792,000811: 24,3163 05140 TC WAITLIST
028793,000812: 24,3164 E7,1427 EBANK= TGO
028794,000813: 24,3164 02710 50067 2CADR ENGINOFF
028795,000814:
028796,000815: 24,3166 05261 TC 2PHSCHNG
028797,000816: 24,3167 40153 OCT 40153 # A, 3.15 = ENGINOFF (TGO+1)....NOTE GROUP
028798,000817: 24,3170 10035 OCT 10035 # B, 5.3 = REREADAC, AND START BELOW
028799,000818: 24,3171 05447 TC DOWNFLAG # CLEAR IMPULSW, ENGINOFF IS NOW SET UP
028800,000819: 24,3172 00044 ADRES IMPULSW # RESTARTS OK
![]() |
Page 655 |
028802,000821: 24,3173 13131 TCF SERVXT
028803,000822:
![]() |
Page 656 |
028805,000824: # ROUTINE **CLOKTASK** DESCRIPTION
028806,000825:
028807,000826:
028808,000827: 24,3174 E7,1412 EBANK= TIG
028809,000828: 24,3174 34700 CLOKTASK CAF BIT11 # IS TIMRFLAG SET
028810,000829: 24,3175 70103 MASK FLAGWRD7
028811,000830: 24,3176 10000 CCS A
028812,000831: 24,3177 13203 TCF CLOCKON
028813,000832: 24,3200 05301 TC PHASCHNG
028814,000833: 24,3201 00006 OCT 00006 # KILL RESTART
028815,000834: 24,3202 05213 TC TASKOVER
028816,000835:
028817,000836: 24,3203 00006 CLOCKON EXTEND
028818,000837: 24,3204 30025 DCA TIME2
028819,000838: 24,3205 53661 DXCH TTOGO
028820,000839: 24,3206 00006 EXTEND
028821,000840: 24,3207 41413 DCS TIG
028822,000841: 24,3210 21661 DAS TTOGO
028823,000842:
028824,000843: 24,3211 34734 SETCLOCK CAF 1SEC
028825,000844: 24,3212 05140 TC WAITLIST
028826,000845: 24,3213 E7,1412 EBANK= TIG
028827,000846: 24,3213 03174 50067 2CADR CLOKTASK
028828,000847:
028829,000848: 24,3215 11145 CCS NVWORD1
028830,000849: 24,3216 13221 TCF +3
028831,000850: 24,3217 13231 TCF SETTB6
028832,000851:
028833,000852: 24,3220 13221 TCF +1
028834,000853: 24,3221 42347 CS V06N85B # CHECK FOR V06N85B (P41)
028835,000854: 24,3222 61145 AD NVWORD1
028836,000855: 24,3223 00006 EXTEND
028837,000856: 24,3224 13234 BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP
028838,000857:
028839,000858: 24,3225 37664 CAF PRIO27
028840,000859: 24,3226 05027 TC NOVAC
028841,000860: 24,3227 E6,1466 EBANK= DAPDATR1
028842,000861: 24,3227 03246 50066 2CADR CLOCKJOB
028843,000862: 24,3231 40025 SETTB6 CS TIME1 # SET GROUP6 TIMEBASE
028844,000863: 24,3232 55065 TS TBASE6
028845,000864: 24,3233 15213 TCF TASKOVER
028846,000865:
028847,000866: 24,3234 37664 SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06)
028848,000867: 24,3235 05042 TC FINDVAC
028849,000868: 24,3236 E6,1466 EBANK= DAPDATR1
028850,000869: 24,3236 03241 50066 2CADR DYNDISP
028851,000870: 24,3240 13231 TCF SETTB6 # CLOSE OUT CLOCKTASK
![]() |
Page 657 |
028853,000872: 24,3241 06006 DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
028854,000873: 24,3242 77624 CALL # PRIOR TO BLANKING AND AVEG (V16N85)
028855,000874: 24,3243 50314 P40CNV85
028856,000875: 24,3244 77776 EXIT
028857,000876: 24,3245 13256 TCF CKNVWRD1
028858,000877:
![]() |
Page 658 |
028860,000879: # ROUTINE **CLOCKJOB** DESCRIPTION
028861,000880:
028862,000881:
028863,000882: 24,3246 E6,1466 EBANK= DAPDATR1
028864,000883: 24,3246 30032 CLOCKJOB CA CDUX
028865,000884: 24,3247 54772 TS CDUSPOTX
028866,000885: 24,3250 30033 CA CDUY
028867,000886: 24,3251 54766 TS CDUSPOTY
028868,000887: 24,3252 30034 CA CDUZ
028869,000888: 24,3253 54770 TS CDUSPOTZ
028870,000889: 24,3254 04555 TC BANKCALL
028871,000890: 24,3255 47510 CADR QUICTRIG
028872,000891: 24,3256 00004 CKNVWRD1 INHINT
028873,000892: 24,3257 11145 CCS NVWORD1 # DETERMINE FUNCTION, INDICATED BY NVWORD1
028874,000893: 24,3260 13303 TCF NOFLASH
028875,000894: 24,3261 15112 TCF ENDOFJOB
028876,000895: 24,3262 13272 TCF ENGREQST # SPS ENGINE-ON-ENABLE V99 FLASH
028877,000896: 24,3263 32351 FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH
028878,000897: 24,3264 04555 TC BANKCALL
028879,000898: 24,3265 20763 CADR GOFLASHR # LINUS MAKES IT A REDO, INHINT OK
028880,000899: 24,3266 13352 TCF V97T # TERMINATE
028881,000900: 24,3267 13405 TCF V97P # PROCEED
028882,000901: 24,3270 13434 TCF V97E # ENTER
028883,000902: 24,3271 13300 TCF PASTERET
028884,000903:
028885,000904: 24,3272 32351 ENGREQST CAF V06N40
028886,000905: 24,3273 04555 TC BANKCALL
028887,000906: 24,3274 20763 CADR GOFLASHR # LINUS MAKES IT A REDO, INHINT OK
028888,000907: 24,3275 13322 TCF V99T # TERMINATE
028889,000908: 24,3276 13330 TCF V99P # PROCEED
028890,000909: 24,3277 13314 TCF V99E # ENTER
028891,000910:
028892,000911: 24,3300 32352 PASTERET CAF P40OK99 # IMMED RETURN - SET UP V99 OR V97
028893,000912: 24,3301 05415 TCR LINUS
028894,000913: 24,3302 15112 TCF ENDOFJOB
028895,000914:
028896,000915:
028897,000916: 24,3303 31145 NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY
028898,000917: 24,3304 04555 TC BANKCALL
028899,000918: 24,3305 20616 CADR REGODSP
028900,000919:
028901,000920:
028902,000921: 24,3306 34753 E7SETTER CAF EBANK7
028903,000922: 24,3307 54003 TS EBANK
028904,000923: 24,3310 E7,1412 EBANK= TIG
028905,000924: 24,3310 00002 TC Q
028906,000925:
028907,000926: 24,3311 34752 E6SETTER CAF EBANK6 # SET UP EBANK6
028908,000927: 24,3312 54003 TS EBANK
028909,000928: 24,3313 E6,1466 EBANK= DAPDATR1
![]() |
Page 659 |
028911,000930: 24,3313 00002 TC Q
028912,000931:
028913,000932: 24,3314 E6,1466 EBANK= DAPDATR1
028914,000933: 24,3314 05261 V99E TC 2PHSCHNG
028915,000934: 24,3315 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
028916,000935: 24,3316 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW
028917,000936: 24,3317 27000 OCT 27000
028918,000937: 24,3320 03004 V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
028919,000938: 24,3321 12163 TCF P40RCS # V16N85 POST-BURN OPERATIONS
028920,000939:
028921,000940: 24,3322 E6,1466 EBANK= DAPDATR1
028922,000941: 24,3322 05261 V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO)
028923,000942: 24,3323 00006 OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
028924,000943: 24,3324 05024 OCT 05024 # C, PRIORITY NEXT, JOB BELOW
028925,000944: 24,3325 27000 OCT 27000
028926,000945: 24,3326 03004 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
028927,000946: 24,3327 12204 TCF POST41 # AVEGEXIT, SETMAXDB, GOTOPOOH
028928,000947:
028929,000948:
028930,000949: 24,3330 00004 V99P INHINT
028931,000950: 24,3331 30103 CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P
028932,000951: 24,3332 74677 MASK BIT12
028933,000952: 24,3333 10000 CCS A
028934,000953: 24,3334 13347 TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY
028935,000954:
028936,000955: 24,3335 34677 ASTNV99P CAF BIT12 # SET ASTN FLAG
028937,000956: 24,3336 26103 ADS FLAGWRD7
028938,000957: 24,3337 30103 CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL
028939,000958: 24,3340 74676 MASK BIT13
028940,000959: 24,3341 00006 EXTEND
028941,000960: 24,3342 13347 BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0
028942,000961:
028943,000962: 24,3343 34712 ENDV99PI CAF BIT1 # TIG-0 HAS COME ALREADY
028944,000963: 24,3344 05140 TC WAITLIST # SET UP IGNITION HERE
028945,000964: 24,3345 E6,1466 EBANK= DAPDATR1
028946,000965: 24,3345 02554 50066 2CADR IGNITION
028947,000966: 24,3347 32351 V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0
028948,000967: 24,3350 55145 TS NVWORD1
028949,000968: 24,3351 15112 ENDV99P TCF ENDOFJOB
028950,000969:
028951,000970: 24,3352 E6,1474 EBANK= CSMMASS
028952,000971: 24,3352 05261 V97T TC 2PHSCHNG
028953,000972: 24,3353 00006 OCT 00006 # KILL GROUP 6 (CLOKTASK)
028954,000973: 24,3354 40674 OCT 40674 # A, 4.67 = V97TTASK (-0 CS), TBASE NOW
028955,000974: 24,3355 34712 CAF BIT1
028956,000975: 24,3356 05130 TC TWIDDLE
028957,000976: 24,3357 03361 ADRES V97TTASK # KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
028958,000977: 24,3360 15112 TCF ENDOFJOB
![]() |
Page 660 |
028960,000979: 24,3361 E6,1474 EBANK= CSMMASS
028961,000980: 24,3361 34714 V97TTASK CAF ZERO # DISABLE CLOCKJOB
028962,000981: 24,3362 55145 TS NVWORD1
028963,000982: 24,3363 32363 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL
028964,000983: 24,3364 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST
028965,000984: 24,3365 55662 TS MASSTMP # FAILED. COPYCYCLE FOR MASSBACK
028966,000985: 24,3366 05301 TC PHASCHNG
028967,000986: 24,3367 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
028968,000987: 24,3370 77777 DEC -0 B-14 # -0 CS
028969,000988:
028970,000989: 24,3371 02741 TCR SPSOFF # SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
028971,000990: 24,3372 05301 TC PHASCHNG
028972,000991: 24,3373 00714 OCT 00714 # A, 4.71 = V97TRCS (250 CS), TBASE OLD
028973,000992: 24,3374 05156 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
028974,000993: 24,3375 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS)
028975,000994:
028976,000995: 24,3376 E6,1466 EBANK= DAPDATR1
028977,000996: 24,3376 04633 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
028978,000997: 24,3377 42010 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS
028979,000998: 24,3400 37664 CAF PRIO27 # SET UP V99T FOR TVCZAP AND POST41 (SET-
028980,000999: 24,3401 05027 TC NOVAC # MAXDB AND GOTOPOOH)
028981,001000: 24,3402 E6,1466 EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41
028982,001001: 24,3402 03322 50066 2CADR V99T
028983,001002: 24,3404 15213 ENDV97T TCF TASKOVER
028984,001003:
028985,001004:
028986,001005: 24,3405 E6,1444 EBANK= V97VCNTR
028987,001006: 24,3405 05301 V97P TC PHASCHNG
028988,001007: 24,3406 40734 OCT 40734 # A, 4.73 = V97PTASK (-0 CS), TBASE NOW
028989,001008: 24,3407 34712 CAF BIT1
028990,001009: 24,3410 05130 TC TWIDDLE
028991,001010: 24,3411 03413 ADRES V97PTASK
028992,001011: 24,3412 15112 TCF ENDOFJOB
028993,001012:
028994,001013: 24,3413 E6,1444 EBANK= V97VCNTR
028995,001014: 24,3413 31444 V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN
028996,001015: 24,3414 55653 TS VCNTR # (ERRORS IF FLASE THRUST-LOSS AND/OR
028997,001016: # POOR SYNCH OF MANUAL ENGINE-ON AND
028998,001017: # THE VERB 97 PROCEED)
028999,001018: 24,3415 32351 CAF V06N40 # REDISPLAY V06N40
029000,001019: 24,3416 55145 TS NVWORD1
029001,001020: 24,3417 05435 TC UPFLAG # SET IDLEFAIL TO ALLOW R41-BYPASS, IN
029002,001021: 24,3420 00030 ADRES IDLEFAIL # CASE OF UNFAVORABLE S40.8 SYNCH
029003,001022: 24,3421 05435 TC UPFLAG # SET STEERSW TO RE-ENABLE STEERING
029004,001023: 24,3422 00042 ADRES STEERSW
029005,001024: 24,3423 05301 TC PHASCHNG
029006,001025: 24,3424 00134 OCT 00134 # A, 4.13 = R40ENABL (200 CS), TBASE OLD
029007,001026: 24,3425 05156 TC FIXDELAY # WAIT 2 SECONDS, THEN
029008,001027: 24,3426 00310 DEC 200 B-14
![]() |
Page 661 |
029010,001029: 24,3427 0003777 EBANK= WHOCARES
029011,001030: 24,3427 05447 R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL
029012,001031: 24,3430 00030 ADRES IDLEFAIL
029013,001032: 24,3431 05301 TC PHASCHNG
029014,001033: 24,3432 00004 OCT 00004 # KILL GROUP 4
029015,001034: 24,3433 15213 ENDV97P TCF TASKOVER
029016,001035:
029017,001036:
029018,001037: 24,3434 0003777 EBANK= WHOCARES
029019,001038: 24,3434 05301 V97E TC PHASCHNG
029020,001039: 24,3435 40534 OCT 40534 # A, 4.53 = V97ETASK (-0 CS), TBASE NOW
029021,001040: 24,3436 34712 CAF BIT1
029022,001041: 24,3437 05140 TC WAITLIST
029023,001042: 24,3440 E7,1412 EBANK= TIG
029024,001043: 24,3440 03443 50067 2CADR V97ETASK
029025,001044: 24,3442 15112 TCF ENDOFJOB
029026,001045:
029027,001046: 24,3443 E7,1412 EBANK= TIG
029028,001047: 24,3443 44112 V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59
029029,001048: 24,3444 55412 TS TIG
029030,001049: 24,3445 32351 CAF V06N40 # REDISPLAY V06N40
029031,001050: 24,3446 55145 TS NVWORD1
029032,001051: 24,3447 03311 TCR E6SETTER # RETURN TO EBANK6 FOR REST OF V97ETASK
029033,001052: 24,3450 E6,1474 EBANK= CSMMASS
029034,001053: 24,3450 32363 CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL
029035,001054: 24,3451 61474 AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST
029036,001055: 24,3452 55662 TS MASSTMP # FAILED....COPYCYCLE FOR MASSBACK
029037,001056: 24,3453 05301 TC PHASCHNG
029038,001057: 24,3454 00754 OCT 00754 # A, 4.75 = SPSOFF97 (-0 CS), TBASE OLD
029039,001058: 24,3455 02741 SPSOFF97 TCR SPSOFF
029040,001059: 24,3456 05301 TC PHASCHNG
029041,001060: 24,3457 00114 OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD
029042,001061: 24,3460 05156 TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
029043,001062: 24,3461 00372 DEC 250 B-14 # OFF (FALSE THRUST-LOSS)
029044,001063:
029045,001064: 24,3462 E6,1466 EBANK= DAPDATR1
029046,001065: 24,3462 34712 V97E40.6 CAF BIT1
029047,001066: 24,3463 05140 TC WAITLIST
029048,001067: 24,3464 E6,1447 EBANK= CNTR
029049,001068: 24,3464 02040 40066 2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE
029050,001069: 24,3466 04633 TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
029051,001070: 24,3467 42010 CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS.
029052,001071: # LEAVE NARROW DEADBAND FOR REIGNITE
029053,001072: 24,3470 05261 TC 2PHSCHNG
029054,001073: 24,3471 00026 OCT 00026 # A, 6.2 = PRE40.6 (-0CS), CLOKTASK (1SEC)
029055,001074: 24,3472 05014 OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
029056,001075: 24,3473 77777 DEC -0 B-14 # -0 CS
![]() |
Page 662 |
029058,001077: 24,3474 44761 QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR
029059,001078: 24,3475 70103 MASK FLAGWRD7 # IMMEDIATE V99 RESPONSE
029060,001079: 24,3476 64676 AD BIT13
029061,001080: 24,3477 54103 TS FLAGWRD7
029062,001081: 24,3500 05156 TC FIXDELAY # DELAY TO ALLOW TIME FOR PRE40.6
029063,001082: 24,3501 00036 DEC 30 B-14
029064,001083:
029065,001084: 24,3502 44702 V99FLASH CS BIT9 # CAUSE V99 TO FLASH
029066,001085: 24,3503 55145 TS NVWORD1
029067,001086: 24,3504 05261 TC 2PHSCHNG
029068,001087: 24,3505 40774 OCT 40774 # A, 4.77 = TIG-0 (-0CS) TBASE FOR PREPTVC
029069,001088: 24,3506 00033 OCT 00033 # A, 3.3 = S40.13 (PRIO 20)
029070,001089: 24,3507 34675 CAF PRIO20 # SET UP TIMEBURN
029071,001090: 24,3510 05042 TC FINDVAC
029072,001091: 24,3511 E7,1427 EBANK= TGO
029073,001092: 24,3511 02404 34067 2CADR S40.13
029074,001093: 24,3513 15213 ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
029075,001094: # TO FLASHING V99 RESPONSE
029076,001095:
029077,001096:
029078,001097: # MOD NO2 LOG SECTION P40-P47
029079,001098: # MOD BY ZELDIN
029080,001099: # FUNCTIONAL DESCRIPTION
029081,001100: # COMPUTE INITIAL THRUST DIRECTION(UT) AND INITIAL VALUE OF VG
029082,001101: # VECTOR(VGTIG).
029083,001102: # CALLING SEQUENCE
029084,001103: # L CALL
029085,001104: # L+1 S40.1
029086,001105: # NORMAL EXIT MODE
029087,001106: # AT L+2 OF CALLING SEQUENCE (GOTO L+2) NORMAL RETURN OR
029088,001107: # ERROR RETURN IF NOSOFLAG =1
029089,001108: # SUBROUTINES CALLED
029090,001109: # CSMPREC
029091,001110: # INITVEL
029092,001111: # CALCGRAV
029093,001112: # MIDGIM
029094,001113: # ALARM OR ABORT EXIT MODES
029095,001114: # L+2 OF CALLING SEQUENCE,UNSOLVABLE CONIC IF NOSOFLAG=1
029096,001115: # ERASABLE INITIALIZATION REQUIRED
029097,001116: # WEIGHT/G ANTICIPATED MAG. OF VEHICLE MASS SP B16KGM
029098,001117: # XDELVFLG 1=DELTA-V MANEUVER,0=AIMPT STEER
029099,001118: # IF DELTA-V MANEUVER
029100,001119: # DELVSIN SPECIFIED DELTA-V REQUIRED IN
029101,001120: # INERTIAL COORDS. OF ACTIVE VEHICLE
029102,001121: # AT TIME OF IGNITION VECTOR B7M/CS
029103,001122: # DELVSAB MAG. OF DELVSIN DP B7M/CS
029104,001123: # RTIG POSITION AT TIME OF IGNITION VECTOR B29M
029105,001124: # VTIG VELOCITY AT TIME OF IGNITION VECTOR B7M/CS
029106,001125: # CSTEER = 0 DP
![]() |
Page 663 |
029108,001127: # IF AIMPOINT STEERING
029109,001128: # IF AIMPT STEER
029110,001129: # TIG TIME OF IGNITION DP B28CS
029111,001130: # RTARG POSITION TARGET TIME VECTOR B29M
029112,001131: # CSTEER = ECSTEER(GR 0) DP B1
029113,001132: # TPASS4 - TIME OF ARRIVAL AT AIMPOINT
029114,001133: # OUTPUT
029115,001134: # UT 1/2 UNIT VECTOR ALIGNED WITH THRUST DIRECTION IN REF COOR
029116,001135: # VGTIG INITIAL VALUE OF VELOCITY
029117,001136: # TO BE GAINED (INERT. COORD.) VECTOR B7M/CS
029118,001137: # DELVLVC VGTIG IN LOC. VERT. COORDS. B7M/CS
029119,001138: # F NOMINAL THRUST FOR ENG USED FOR S40.13 DP B7 M-NEWT
029120,001139: # BDT V REQUIRED AT TIG -V REQUIRED AT (TIG-2SEC)
029121,001140: # -GDT FOR S40.13 VECT B7M/CS
029122,001141: # RTIG CALC IN S40.1B(AIMPT) FOR S40.2,3 VECTOR B29M
029123,001142: # POSITION AT TIME OF IGNITION
029124,001143: # DEBRIS QTEMP1
029125,001144: # MPAC,QPRET
029126,001145: # PUSHLIST
029127,001146: # RTX2,RTX1
029128,001147: 14,2002 BANK 14
029129,001148: 16,2000 SETLOC P40S1
029130,001149: 16,2000 BANK
029131,001150:
029132,001151: 16,2000 COUNT 16/S40.1
029133,001152:
029134,001153: 16,2000 77214 S40.1 SET VLOAD
029135,001154: 16,2001 01070 FIRSTFLG
029136,001155: 16,2002 11453 LO6ZEROS
029137,001156: 16,2003 03705 STORE BDT
029138,001157: 16,2004 43020 STQ BOF
029139,001158: 16,2005 03657 QTEMP
029140,001159: 16,2006 01347 XDELVFLG
029141,001160: 16,2007 34073 S40.1B # LAMBERT
029142,001161: 16,2010 77201 SETPD VLOAD # EXTERNAL DELTA V
029143,001162: 16,2011 00001 0
029144,001163: 16,2012 03640 VTIG
029145,001164: 16,2013 03576 STORE VINIT
029146,001165: 16,2014 53435 VXV UNIT
029147,001166: 16,2015 03632 RTIG
029148,001167: 16,2016 27713 STOVL UT # UP IN UT
029149,001168: 16,2017 03632 RTIG
029150,001169: 16,2020 03570 STORE RINIT
029151,001170: 16,2021 65236 VSQ PDDL
029152,001171: 16,2022 00045 36D
029153,001172: 16,2023 56205 DMP DDV
029154,001173: 16,2024 34127 THETACON
029155,001174: 16,2025 41205 DMP DMP
029156,001175: 16,2026 03654 DELVSAB
029157,001176: 16,2027 03076 WEIGHT/G
![]() |
Page 664 |
029159,001178: 16,2030 77671 DDV
029160,001179: 16,2031 03727 F
029161,001180: 16,2032 24017 STOVL 14D
029162,001181: 16,2033 03646 DELVSIN
029163,001182:
029164,001183: 16,2034 74241 DOT VXSC
029165,001184: 16,2035 03713 UT
029166,001185: 16,2036 03713 UT
029167,001186: 16,2037 41552 VSL2 PUSH # (DELTAV.UP)UP SCALED AT 2(+7) P.D.L. 0
029168,001187: 16,2040 65245 BVSU PDDL # DELTA VP SCALED AT 2(+7) P.D.L. 6
029169,001188: 16,2041 03646 DELVSIN
029170,001189: 16,2042 00017 14D
029171,001190: 16,2043 63356 SIN PDVL
029172,001191: 16,2044 00007 6D
029173,001192: 16,2045 53435 VXV UNIT
029174,001193: 16,2046 03713 UT
029175,001194: 16,2047 45561 VXSC STADR
029176,001195: 16,2050 50056 STOVL VGTIG # UNIT(VPXUP)SIN(THETAT) IN VGTIG
029177,001196: 16,2051 65256 UNIT PDDL # UNIT(DELTA VP) IN P.D.L. 6
029178,001197: 16,2052 00017 14D
029179,001198: 16,2053 74346 COS VXSC
029180,001199: 16,2054 74255 VAD VXSC
029181,001200: 16,2055 03721 VGTIG
029182,001201: 16,2056 00045 36D
029183,001202: 16,2057 53352 VSL2 VAD
029184,001203: 16,2060 77626 STADR
029185,001204: 16,2061 74056 STORE VGTIG # VG IGNITION SCALED AT 2(+7)M/CS
029186,001205:
029187,001206: 16,2062 77656 UNIT
029188,001207: 16,2063 27713 STOVL UT # THRUST DIRECTION SCALED AT 2(+1)
029189,001208: 16,2064 03721 VGTIG
029190,001209: 16,2065 43006 PUSH SET
029191,001210: 16,2066 01072 AVFLAG
029192,001211: 16,2067 77624 CALL
029193,001212: 16,2070 10653 MIDGIM # VGTIG IN LV COOR AT 2(+7)M/CS IN DELVLVC
029194,001213: 16,2071 77650 GOTO
029195,001214: 16,2072 03657 QTEMP
029196,001215: 16,2073 45345 S40.1B DLOAD DSU # LAMBERT
029197,001216: 16,2074 03413 TIG
029198,001217: 16,2075 36001 TWODT
029199,001218: 16,2076 14041 STODL TDEC1
029200,001219: 16,2077 03656 TPASS4
029201,001220: 16,2100 77625 DSU
029202,001221: 16,2101 00041 TDEC1
029203,001222: 16,2102 37423 STCALL DELLT4
029204,001223: 16,2103 61663 AGAIN
029205,001224: 16,2104 77775 VLOAD
029206,001225: 16,2105 03612 VIPRIME
029207,001226: 16,2106 17713 STODL UT
029208,001227: 16,2107 03413 TIG
![]() |
Page 665 |
029210,001229: 16,2110 00041 STORE TDEC1
029211,001230: 16,2111 77621 BDSU
029212,001231: 16,2112 03656 TPASS4
029213,001232: 16,2113 37423 STCALL DELLT4
029214,001233: 16,2114 61663 AGAIN
029215,001234: 16,2115 41575 VLOAD PUSH
029216,001235: 16,2116 03646 DELVEET3
029217,001236: 16,2117 03721 STORE VGTIG
029218,001237: 16,2120 45014 SET CALL
029219,001238: 16,2121 01072 AVFLAG
029220,001239: 16,2122 10653 MIDGIM
029221,001240: 16,2123 52001 SETPD GOTO
029222,001241: 16,2124 00001 0
029223,001242: 16,2125 61716 CALCUT
029224,001243:
029225,001244: 16,2126 00024 13714 THETACON 2DEC .31830989 B-8
029226,001245: 30,2000 SETLOC P40S3
029227,001246: 30,2000 BANK
029228,001247:
029229,001248: 30,3657 COUNT 24/S40.1
029230,001249:
029231,001250: 30,3657 04000 00000 EP4(45)H 2DEC .125
029232,001251: 30,3661 00707 03434 EP4(10)H 2DEC .027777777
029233,001252:
029234,001253: 30,3663 45020 AGAIN STQ CALL
029235,001254: 30,3664 03730 QTEMP1
029236,001255: 30,3665 27022 THISPREC
029237,001256: 30,3666 66134 SXA,2 SXA,1
029238,001257: 30,3667 03746 RTX2
029239,001258: 30,3670 03745 RTX1
029240,001259: 30,3671 77775 VLOAD
029241,001260: 30,3672 00001 RATT
029242,001261: 30,3673 03632 STORE RTIG
029243,001262: 30,3674 27570 STOVL RINIT
029244,001263: 30,3675 00007 VATT
029245,001264: 30,3676 03640 STORE VTIG
029246,001265: 30,3677 03576 STORE VINIT
029247,001266: 30,3700 67201 SETPD SLOAD
029248,001267: 30,3701 00001 0
029249,001268: 30,3702 15332 HI6ZEROS
029250,001269: 30,3703 43125 PDDL BON
029251,001270: 30,3704 21660 EP4(45)H
029252,001271: 30,3705 03705 NORMSW
029253,001272: 30,3706 61711 +3
029254,001273: 30,3707 77745 DLOAD
029255,001274: 30,3710 21662 EP4(10)H
029256,001275: 30,3711 45006 PUSH CALL
029257,001276: 30,3712 22000 INITVEL
![]() |
Page 666 |
029259,001278: 30,3713 52001 SETPD GOTO
029260,001279: 30,3714 00001 0
029261,001280: 30,3715 03730 QTEMP1
029262,001281: 30,3716 45175 CALCUT VLOAD CALL
029263,001282: 30,3717 03632 RTIG
029264,001283: 30,3720 77260 CALCGRAV # GDELTAT IN MPAC AT 2(+7)M/CS
029265,001284: 30,3721 70372 VSL1 V/SC
029266,001285: 30,3722 21761 200CS # G AT 2(-5) M/CS.CS
029267,001286: 30,3723 52315 PDVL VSU
029268,001287: 30,3724 03612 VIPRIME
029269,001288: 30,3725 03713 UT
029270,001289: 30,3726 52341 V/SC VSU
029271,001290: 30,3727 21761 200CS
029272,001291: 30,3730 72561 VXSC VSL2
029273,001292: 30,3731 03703 CSTEER
029274,001293: 30,3732 24015 STOVL 12D # B.C SCALED AT 2(-5) PDL 12D
029275,001294: 30,3733 03721 VGTIG
029276,001295: 30,3734 41456 UNIT PUSH # UG PDL 0 SCALED AT 2(+1)
029277,001296:
029278,001297: 30,3735 74241 DOT VXSC
029279,001298: 30,3736 00015 12D
029280,001299: 30,3737 00001 0
029281,001300: 30,3740 51352 VSL2 BVSU
029282,001301: 30,3741 00015 12D
029283,001302: 30,3742 14015 STODL 12D # Q PDL 12D SCALED AT 2(-5)
029284,001303: 30,3743 03727 F
029285,001304: 30,3744 56261 SRR DDV
029286,001305: 30,3745 21605 4
029287,001306: 30,3746 03076 WEIGHT/G
029288,001307: 30,3747 63316 DSQ PDVL # F/MASS SQUARED PDL 6 AT 2(-10)M/(CS.CS)
029289,001308: 30,3750 00015 12D
029290,001309: 30,3751 77636 VSQ
029291,001310: 30,3752 75421 BDSU SQRT
029292,001311: 30,3753 76561 VXSC VSL1
029293,001312: 30,3754 53455 VAD UNIT
029294,001313: 30,3755 00015 12D
029295,001314: 30,3756 37713 STCALL UT
029296,001315: 30,3757 03657 QTEMP
029297,001316: 30,3760 01440 00000 200CS 2DEC 200 B-12
029298,001317:
![]() |
Page 667 |
029300,001319: # PROGRAM DESCRIPTION S40.2,3 DATE 15,NOV,66
029301,001320: # MOD NO 2 LOG SECTION P40-P47
029302,001321: # MOD BY ZELDIN
029303,001322: # FUNCTIONAL DESCRIPTION
029304,001323: # COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
029305,001324: # ORIENTATION, WINGS LEVEL SPACECRAFT,HEADS UP
029306,001325: # COMPUTE X AXIS OF ENGINE BELL
029307,001326: # COMPUTE PREFERRED IMU ORIENTATION(XSCREF)
029308,001327: # FOR THIS CALCULATION,ASSUME X AXIS OF SC ALONG UT INITIALLY,
029309,001328: # YSC=UNIT(XXR),ZSC=UNIT(XX(XXR)) AND ROTATE ENGINE BELL ALONG UT
029310,001329: # NEW SC AXES WILL BE APPROX. WINGS LEVEL AND NEW SC AXES IN REF.
029311,001330: # COORDS. WILL BE PREFERRED IMU ORIENTATION.
029312,001331: # COMPUTE DESIRED THRUST DIRECTION IN SM COORDS.
029313,001332: # CALLING SEQUENCE
029314,001333: # L CALL
029315,001334: # L+1 S40.2,3
029316,001335: # NORMAL EXIT MODE
029317,001336: # AT L+2 OF CALLING SEQUENCE (GOTO L+2)
029318,001337: # SUBROUTINES CALLED
029319,001338: # CALCGA
029320,001339: # ALARM OR ABORT MODES
029321,001340: # NONE
029322,001341: # ERASABLE INITIALIZATION REQUIRED
029323,001342: # PACTOFF TOTAL PITCH TRIM ANGLE SP AT 1.0795111 REV.
029324,001343: # YACTOFF TOTAL YAW TRIM ANGLE SP AT 1.0795111 REV.
029325,001344: # UT DESIRED THRUST DIRECTION VECT.B2M/(CS.CS)
029326,001345: # RTIG POSITION AT TIME OF IGNITION VECT. B29M
029327,001346: # ENG2FLAG ON=RCS OFF=SPS
029328,001347: # OUTPUT
029329,001348: # SCAXIS UNIT VECT. ALIGNED WITH ENG BELL IN SC COOR B1
029330,001349: # XSCREF UNIT VECTORS ALIGNED WITH PREFERRED IMU B1
029331,001350: # YSCREF
029332,001351: # ZSCREF
029333,001352: # GIMBAL ANGLES IN THETAD
029334,001353: # POINTVSM UNIT VECT ALONG DESIRED THRUST DIRECTION IN SM B1
029335,001354: # DEBRIS
029336,001355: # PUSHLIST,QPRET,MPAC
029337,001356: # QTEMP TEMP. ERASABLE
029338,001357: 24,3514 BANK 24
029339,001358: 24,2000 SETLOC P40S
029340,001359: 24,2000 BANK
029341,001360: 24,3514 COUNT* $$/S40.2
029342,001361: 24,3514 64375 S40.2,3 VLOAD MXV
029343,001362: 24,3515 03713 UT
029344,001363: 24,3516 01736 REFSMMAT
029345,001364: 24,3517 44172 VSL1 STQ
029346,001365: 24,3520 03657 QTEMP
029347,001366: 24,3521 03357 STORE POINTVSM # THRUST IN SM AT 2
029348,001367: 24,3522 43001 SETPD BON
029349,001368: 24,3523 00001 0
![]() |
Page 668 |
029351,001370: 24,3524 00704 ENG2FLAG
029352,001371: 24,3525 51635 S40.2,3B
029353,001372: 24,3526 77745 DLOAD
029354,001373: 24,3527 15332 HI6ZEROS
029355,001374: 24,3530 67206 PUSH SLOAD # ZERO PDL 0
029356,001375: 24,3531 03027 YACTOFF
029357,001376: 24,3532 72405 DMP SL1
029358,001377: 24,3533 11674 TRIMSCAL
029359,001378: 24,3534 41415 DAD PUSH
029360,001379: 24,3535 11676 YBIAS
029361,001380: 24,3536 65346 COS PDDL # COS(Y +Y0) PDL 2
029362,001381: 24,3537 41556 SIN PUSH # SIN(Y +Y0) PDL 4
029363,001382: 24,3540 77735 SLOAD
029364,001383: 24,3541 03026 PACTOFF
029365,001384: 24,3542 72405 DMP SL1
029366,001385: 24,3543 11674 TRIMSCAL
029367,001386: 24,3544 41415 DAD PUSH
029368,001387: 24,3545 11700 PBIAS
029369,001388: 24,3546 65346 COS PDDL # COS(P +P0) PDL 6
029370,001389: 24,3547 41556 SIN PUSH # SIN(P +P0) PDL 8D
029371,001390: 24,3550 14323 STODL ZSCREF # SIN(P +P0)
029372,001391: 24,3551 00007 6
029373,001392: 24,3552 72405 DMP SL1
029374,001393: 24,3553 00005 4
029375,001394: 24,3554 65276 DCOMP PDDL # -SIN(Y+Y0)COS(P+P0) PDL 10
029376,001395: 24,3555 00007 6
029377,001396: 24,3556 72405 DMP SL1
029378,001397: 24,3557 00003 2
029379,001398: 24,3560 77666 VDEF
029380,001399:
029381,001400: 24,3561 14307 STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT
029382,001401: 24,3562 00323 ZSCREF
029383,001402: 24,3563 72405 DMP SL1
029384,001403: 24,3564 00005 4
029385,001404: 24,3565 41325 PDDL DMP
029386,001405: 24,3566 00323 ZSCREF
029387,001406: 24,3567 00003 2
029388,001407: 24,3570 57552 SL1 DCOMP
029389,001408: 24,3571 77666 VDEF
029390,001409:
029391,001410: 24,3572 14323 STODL ZSCREF # PD POINTER AT 4 NEW SCZ AXIS SCALED AT 2
029392,001411: 24,3573 77666 VDEF
029393,001412:
029394,001413: 24,3574 14315 STODL YSCREF # PD POINTER AT0 NEW SC Y AXIS SCALED AT 2
029395,001414: 24,3575 00323 ZSCREF
029396,001415: 24,3576 65325 PDDL PDDL
029397,001416: 24,3577 00315 YSCREF
029398,001417: 24,3600 00307 XSCREF
029399,001418: 24,3601 77666 VDEF
![]() |
Page 669 |
029401,001420: 24,3602 27351 STOVL SCAXIS # ENGINE BELL SCALED AT 2
029402,001421: 24,3603 03713 UT
029403,001422: 24,3604 53515 PDVL UNIT
029404,001423: 24,3605 03632 RTIG
029405,001424: 24,3606 57435 VXV VCOMP
029406,001425: 24,3607 00001 0
029407,001426: 24,3610 41456 UNIT PUSH
029408,001427: 24,3611 77624 CALL
029409,001428: 24,3612 51654 TSTRXUT
029410,001429: 24,3613 57435 VXV VCOMP
029411,001430: 24,3614 00001 0
029412,001431: 24,3615 63372 VSL1 PDVL # 2 RF/SC IN PDL 12D
029413,001432: 24,3616 00307 XSCREF
029414,001433: 24,3617 76505 VXM VSL1
029415,001434: 24,3620 00001 0
029416,001435: 24,3621 24307 STOVL XSCREF # X OF PREF IMU,X OF SC IN REF COOR. AT 2
029417,001436: 24,3622 00315 YSCREF
029418,001437: 24,3623 76505 VXM VSL1
029419,001438: 24,3624 00001 0
029420,001439: 24,3625 24315 STOVL YSCREF # Y OF PREF.IMU,Y OF SC IN REF COOR. AT 2
029421,001440: 24,3626 00323 ZSCREF
029422,001441: 24,3627 76505 VXM VSL1
029423,001442: 24,3630 00001 0
029424,001443: 24,3631 00323 STORE ZSCREF # Z OF PREF. IMU,Z OF SC IN REF COOR. AT 2
029425,001444: 24,3632 52001 SETPD GOTO
029426,001445: 24,3633 00001 0
029427,001446: 24,3634 03657 QTEMP
029428,001447: 24,3635 77775 S40.2,3B VLOAD
029429,001448: 24,3636 15330 UNITX
029430,001449: 24,3637 27351 STOVL SCAXIS
029431,001450: 24,3640 03713 UT
029432,001451: 24,3641 00307 STORE XSCREF
029433,001452: 24,3642 53435 VXV UNIT
029434,001453: 24,3643 03632 RTIG
029435,001454: 24,3644 34007 STCALL 6D
029436,001455: 24,3645 51654 TSTRXUT
029437,001456: 24,3646 00315 STORE YSCREF
029438,001457: 24,3647 57435 VXV VCOMP
029439,001458: 24,3650 00307 XSCREF
029440,001459: 24,3651 77772 VSL1
029441,001460: 24,3652 34323 STCALL ZSCREF # ZNB AXIS IN REF COOR
029442,001461: 24,3653 03657 QTEMP
029443,001462: 24,3654 46145 TSTRXUT DLOAD BHIZ
029444,001463: 24,3655 00045 36D
029445,001464: 24,3656 51661 BADVCTOR
029446,001465: 24,3657 43575 VLOAD RVQ
029447,001466: 24,3660 00007 6D
029448,001467: 24,3661 53575 BADVCTOR VLOAD UNIT
029449,001468: 24,3662 03632 RTIG
029450,001469: 24,3663 53515 PDVL UNIT
![]() |
Page 670 |
029452,001471: 24,3664 03640 VTIG
029453,001472: 24,3665 53322 VSR3 VAD
029454,001473: 24,3666 53435 VXV UNIT
029455,001474: 24,3667 03713 UT
029456,001475: 24,3670 77676 VCOMP
029457,001476: 24,3671 00007 STORE 6D
029458,001477: 24,3672 77616 RVQ
029459,001478: 24,3673 21215 12215 TRIMSCAL 2DEC 1.07975111 B-1
029460,001479: 24,3675 00053 07423 YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON)
029461,001480: 24,3677 77636 44653 PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
029462,001481: # REFERENCE, TRW 68.6520.3.3-40 27FEB,1968
029463,001482: # PROGRAM DESCRIPTION S41.1 DATE 8DEC66
029464,001483: # MOD NO1 LOG SECTION P40-P47
029465,001484: # MOD BY ZELDIN
029466,001485: # FUNCTIONAL DESCRIPTION
029467,001486: # COMPUTE VELOCITY TO BE GAINED INITIALLY IN REF COORDS.
029468,001487: # TO CONTROL COORDS.
029469,001488: # CALLING SEQUENCE
029470,001489: # L CALL
029471,001490: # L+1 S41.1
029472,001491: # NORMAL EXIT MODE
029473,001492: # AT L +2 OF CALLING SEQUENCE
029474,001493: # SUBROUTINES CALLED:
029475,001494: # CALCSMSC
029476,001495: # CDUTRIG
029477,001496: # ALARM OR ABORT MODES
029478,001497: # NONE
029479,001498: # ERASABLE INITIALIZATION REQUIRED
029480,001499: # VG IN REF. COORD. PDL L POINTER AT L+5 .S41.1 WILL RETURN WITH
029481,001500: # POINTER AT L (L MUST BE LESS THAN OR = TO 14D)
029482,001501: # OUTPUT
029483,001502: # MPAC CONTAINS VG IN CONTROL COORDS VECT. B7M/CS
029484,001503: # DEBRIS:
029485,001504: # QTEMP TEMP ERASABLE
029486,001505: # QPRET
029487,001506: 24,3701 COUNT 22/S41.1
029488,001507:
029489,001508: 22,2000 SETLOC P40S5
029490,001509: 22,2000 BANK
029491,001510:
029492,001511: 22,3426 45020 S41.1 STQ CALL
029493,001512: 22,3427 03657 QTEMP
029494,001513: 22,3430 47432 CDUTRIG
029495,001514: 22,3431 77775 VLOAD
029496,001515: 22,3432 45121 MXV CALL
029497,001516: 22,3433 01736 REFSMMAT
029498,001517: 22,3434 47577 *SMNB*
![]() |
Page 671 |
029500,001519: 22,3435 74321 MXV VXSC
029501,001520: 22,3436 05004 QUADROT
029502,001521: 22,3437 05443 TENBNK14 # VG IN CONTROL COORD IN MPAC SCALED AT
029503,001522: 22,3440 52072 VSL5 GOTO # VG IN CONTROL COORDS. IN MPAC AT 2(+7)
029504,001523: 22,3441 03657 QTEMP
029505,001524: 22,3442 24000 00000 TENBNK14 2DEC 10. B-4
029506,001525:
![]() |
Page 672 |
029508,001527: # NAME S40.8 - CROSS PRODUCT STEERING
029509,001528: # FUNCTION (1) UPDATES THE VELOCITY-TO-BE-GAINED VECTOR.
029510,001529: # (2) GENERATES ANGULAR RATE STEERING COMMANDS FOR AUTOPILOT.
029511,001530: # (3) ESTABLISHES ENGINE CUT-OFF SIGNALS AT APPROPRIATE TIMES.
029512,001531: # (4) INITIATES THRUST-FAIL ROUTINE, R40
029513,001532: # CALLING SEQ CALL S40.8
029514,001533: # INPUT VGPREV - LAST VALUE OF THE VELOCITY-TO-BE-GAINED VECTOR
029515,001534: # PRIOR TO UPDATING IN METERS/CS AT +7.
029516,001535: # DELVREF - CHANGE IN VEHICLE VELOCITY SINCE LAST MEASUMEMENT
029517,001536: # IN METERS/CS AT +7.
029518,001537: # BDT - EFFECT OF RATE OF CHANGE OF REQUIRED VELOCITY AND
029519,001538: # GRAVITY DURING DT UPON VELOCITY-TO-BE-GAINED IN
029520,001539: # METERS/CS AT +7.
029521,001540: # CSTEER - A SCALAR OF THE STEERING LAW, SC.AT B+1, USED FOR
029522,001541: # SPS AIMPOINT STEERING MANEUVERS
029523,001542: # IDLEFAIL- A FLAG TO INHIBIT (IDLE) THE THRUST-FAIL ROUTINE
029524,001543: # STEERSW - A SWITCH TO PRECLUDE NEEDLESS CONDUCT OF STEERING
029525,001544: # REFSMMAT, DAPDATR1, PIPTIME
029526,001545: # EREPFRAC, ETDECAY, KPRIMEDT FOR TVC
029527,001546: # OUTPUT TTOGO - TIME REMAINING FOR ENGINE BURN IN CS AT +28
029528,001547: # OMEGAC - DP VECTOR RATE COMMAND, SC.AT 1/(2TVCDT) REVS/SEC
029529,001548: # VG, VGPREV, VGDISP, TGO, TIG, SCALED AS NOTED IN CODING
029530,001549: # STEERSW, IMPULSW, NVWORD1
029531,001550: # REPFRAC, CNTR, VCNTR, VCNTRTMP FOR TVC (R40 INTERFACING)
029532,001551: # DEBRIS OMEGAXC,+1
029533,001552: # SUBROUTINES USED - *SMNB* , ALARM
029534,001553:
029535,001554: 16,2000 SETLOC P40S1
029536,001555: 16,2000 BANK
029537,001556: 16,2130 E6,1466 EBANK= DAPDATR1
029538,001557: 16,2130 COUNT 16/S40.8
029539,001558:
029540,001559: 16,2130 44001 S40.8 SETPD STQ
029541,001560: 16,2131 00001 SPBIT1 00D
029542,001561: 16,2132 03657 QTEMP
029543,001562: 16,2133 51375 VLOAD BVSU # CONSTRUCT DELVG, SC.AT B+7 M/CS
029544,001563: 16,2134 03433 DELVREF
029545,001564: 16,2135 03705 BDT
029546,001565: 16,2136 77655 VAD
029547,001566: 16,2137 03721 VGPREV
029548,001567: 16,2140 03460 STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
029549,001568:
029550,001569: 16,2141 77646 ABVAL
029551,001570: 16,2142 03654 STORE VGDISP # FOR DISPLAY PURPOSES
029552,001571: 16,2143 77776 EXIT
029553,001572: 16,2144 05301 TC PHASCHNG
029554,001573: 16,2145 10035 OCT 10035 # TYPE B RESTART BELOW AND 5.3 REREADAC
029555,001574:
029556,001575: 16,2146 06006 TC INTPRET
029557,001576: 16,2147 77775 VLOAD
![]() |
Page 673 |
029559,001578: 16,2150 03460 VG
029560,001579: 16,2151 03721 STORE VGPREV
029561,001580: 16,2152 77214 BOFF VLOAD
029562,001581: 16,2153 01344 STEERSW # SKIP TGO AND CROSS-PRODUCT
029563,001582: 16,2154 03657 QTEMP
029564,001583: 16,2155 03433 DELVREF
029565,001584: 16,2156 41446 ABVAL PUSH # CHECK FOR LOTHRUST
029566,001585: 16,2157 41335 SLOAD DMP
029567,001586: 16,2160 01354 DVTHRESH # SC.AT B-2 M/CS
029568,001587: 16,2161 36011 DPB-9
029569,001588: 16,2162 77621 BDSU
029570,001589: 16,2163 77440 BMN EXIT
029571,001590: 16,2164 40021 LOTHRUST
029572,001591: 16,2165 31466 CAE DAPDATR1 # ENABLE TVCDAP CG TRACKING
029573,001592: 16,2166 74675 MASK BIT14
029574,001593: 16,2167 10000 CCS A
029575,001594: 16,2170 34712 CAF BIT1
029576,001595: 16,2171 50000 INDEX A # LM-OFF, LM-ON VALUE
029577,001596: 16,2172 31423 CAE EREPFRAC
029578,001597: 16,2173 55652 TS REPFRAC
029579,001598:
029580,001599: 16,2174 06006 TC INTPRET
029581,001600: 16,2175 51375 TGOCALC VLOAD BVSU # GET DELVG
029582,001601: 16,2176 03433 DELVREF
029583,001602: 16,2177 03705 BDT
029584,001603: 16,2200 77656 UNIT
029585,001604: 16,2201 41441 DOT PUSH # (00D)
029586,001605: 16,2202 03460 VG
029587,001606: 16,2203 56244 BPL DDV # ANGLE SHOULD BE GREATER THAN PI/2
029588,001607: 16,2204 40013 INCRSVG # DISPLAY ALARM IF NOT
029589,001608: 16,2205 36005 2VEXHUST
029590,001609: 16,2206 41215 DAD DMP # (DOT PRODUCT UP FROM 00D)
029591,001610: 16,2207 11451 LODPHALF
029592,001611: 16,2210 70501 NORM SR1
029593,001612: 16,2211 00047 X1
029594,001613: 16,2212 60325 PDDL NORM
029595,001614: 16,2213 00045 36D # (MAG DELVG)
029596,001615: 16,2214 00050 X2
029597,001616: 16,2215 77665 BDDV
029598,001617: 16,2216 53664 XSU,2 SL*
029599,001618: 16,2217 00046 X1
029600,001619: 16,2220 57607 0 -9D,2
029601,001620: 16,2221 41405 DMP PUSH # (00D)
029602,001621: 16,2222 36003 -FOURDT
029603,001622: 16,2223 54335 SLOAD SR
029604,001623: 16,2224 03016 ETDECAY # ETDECAY SC.AT B+14 CS
029605,001624: 16,2225 20617 14D
029606,001625: 16,2226 45421 BDSU STADR
029607,001626: 16,2227 74347 STORE TGO # TIME TO GO IN CS. AT +28
029608,001627: 16,2230 77615 DAD
![]() |
Page 674 |
029610,001629: 16,2231 01205 PIPTIME
029611,001630: 16,2232 17413 STODL TIG
029612,001631: 16,2233 03430 TGO
029613,001632: 16,2234 50025 DSU BMN
029614,001633: 16,2235 36007 FOURSEC
029615,001634: 16,2236 40000 S40.81
029616,001635:
029617,001636: 16,2237 74375 XPRODUCT VLOAD VXSC
029618,001637: 16,2240 03705 BDT
029619,001638: 16,2241 03703 CSTEER
029620,001639: 16,2242 52352 VSL2 VSU
029621,001640: 16,2243 03433 DELVREF
029622,001641: 16,2244 63256 UNIT PDVL
029623,001642: 16,2245 03460 VG
029624,001643: 16,2246 47256 UNIT VXV
029625,001644: 16,2247 45121 MXV CALL
029626,001645: 16,2250 01736 REFSMMAT # (REFSMMAT/2)
029627,001646: 16,2251 47577 *SMNB*
029628,001647: 16,2252 77761 VXSC
029629,001648: 16,2253 03245 KPRIMEDT # (KPRIMEDT SCIAT PI/8 RAD)
029630,001649: 16,2254 03126 OMEGACLC STORE OMEGAC
029631,001650: 16,2255 77650 GOTO
029632,001651: 16,2256 03657 QTEMP
029633,001652:
029634,001653: 17,2000 SETLOC DAPS7
029635,001654: 17,2000 BANK
029636,001655: 17,2000 COUNT 17/S40.8
029637,001656:
029638,001657: 17,2000 00000 00310 TWODT 2DEC 200.0 B-28 # 2 SEC
029639,001658: 17,2002 77715 77777 -FOURDT 2DEC -800 B-18 # -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
029640,001659: 17,2004 17602 25124 2VEXHUST 2DEC 63.020792 B-7 # 2(10338.0564 FPS), SC.AT B+7 M/CS
029641,001660: 17,2006 00000 00620 FOURSEC 2DEC 400.0 B-28 # 4 SEC
029642,001661: 17,2010 00040 00000 DPB-9 2DEC 1 B-9
029643,001662: 20,2000 SETLOC DAPS6
029644,001663: 20,2000 BANK
029645,001664:
029646,001665: 20,2000 COUNT 20/S40.8
029647,001666:
029648,001667: 20,2000 77214 S40.81 SET VLOAD # TGO LESS THAN 4 SECONDS
029649,001668: 20,2001 01066 IMPULSW # FOR ENGINE-OFF CALL
029650,001669: 20,2002 15332 HI6ZEROS
029651,001670: 20,2003 03126 RATEZRO STORE OMEGAC # TVC TO ATTITUDE HOLD
029652,001671: 20,2004 77776 EXIT
029653,001672: 20,2005 34672 CAF POSMAX # INHIBIT SWITCHOVER/TVC EG TRACKING
029654,001673: 20,2006 55447 TS CNTR
![]() |
Page 675 |
029656,001675: 20,2007 06006 TC INTPRET
029657,001676: 20,2010 52014 CLEAR GOTO
029658,001677: 20,2011 01264 STEERSW # RESTARTS OK
029659,001678: 20,2012 03657 QTEMP
029660,001679: 20,2013 77776 INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING
029661,001680: 20,2014 05537 TC ALARM # IN WRONG DIRECTION.
029662,001681: 20,2015 01407 OCT 01407
029663,001682: 20,2016 06006 TC INTPRET
029664,001683: 20,2017 77650 GOTO
029665,001684: 20,2020 03657 QTEMP
029666,001685:
029667,001686: 20,2021 77214 LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
029668,001687: 20,2022 00711 IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
029669,001688: 20,2023 03657 QTEMP # UNFAVORABLE S40.8 SYNCH
029670,001689: 20,2024 15332 HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS
029671,001690: 20,2025 03126 STORE OMEGAC # PUT TVC IN ATTITUDE HOLD
029672,001691: 20,2026 77776 EXIT
029673,001692:
029674,001693: 20,2027 44714 CS ZERO
029675,001694: 20,2030 55653 TS VCNTR # KILL CSMMASS UPDATING
029676,001695: 20,2031 55663 TS VCNTRTMP # (TVCEXEC LOGIC REQUIRES THIS TOO)
029677,001696: 20,2032 55652 TS REPFRAC # KILL TVCDAP CG TRIM TRACKING
029678,001697: 20,2033 55145 TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
029679,001698:
029680,001699: 20,2034 06006 TC INTPRET
029681,001700: 20,2035 52014 CLEAR GOTO # INHIBIT STEERING AND TGO CALC (MANUAL
029682,001701: 20,2036 01264 STEERSW # SHUTDOWN IF NOT SET UP AGAIN)
029683,001702: 20,2037 03657 QTEMP # RESTARTS OK
029684,001703:
![]() |
Page 676 |
029686,001705: # NAME S40.9 - VTOGAIN (AIMPOINT MANEUVERS ONLY)
029687,001706: # FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
029688,001707: # VECTORS FOR USE DURING AIMPOINT MANEUVERS
029689,001708: # (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
029690,001709: # CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED
029691,001710: # CALLING SEQ VIA FINDVAC AS NEW JOB.
029692,001711: # INPUT RNIT - ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
029693,001712: # VNIT - ACTIVE VEHICLE VELOCITY VECTOR IN METERS/CS AT +7
029694,001713: # VRPREV - LAST COMPUTED VELOCITY REQUIRED VECTOR IN
029695,001714: # METERS/CS AT +7.
029696,001715: # NOMTIG - TIME OF IGN. USED IN TARGETTING ROUTINES%+28"
029697,001716: # DELLT4 - TRANSFER TIME FROM PIPTIME TO TARGET%+28"
029698,001717: # TNIT - TIME OF RNIT AND VNIT IN CS AT +28
029699,001718: # GDT/2 - HALF OF VELOCITY GAINED IN DELTA T TIME DUE TO
029700,001719: # ACCERERATION OF GRAVITY IN METERS/CS AT +7.
029701,001720: # DELVREF - CHANGE IN VELOCITY DURING LAST 2 SEC IN
029702,001721: # METERS/CS AT +7.
029703,001722: # NORMSW SET=CENTRAL ANGLE BETWEEN RTARG AND RTIG IS BETWEEN
029704,001723: # 165 TO 195 DEGREES
029705,001724: # RESET=CENTRAL ANGLE OUTSIDE CONE DESCRIBED ABOVE
029706,001725: # OUTPUT VGTEMP - VELOCITY TO BE GAINED VECTOR IN METERS/CS AT +7.
029707,001726: # COGA - INPUT OF INITIAL GUESS FOR LAMBERT FROM S40.1 O
029708,001727: # OR PREVIOUS PASS THRU S40.9
029709,001728: # GOBL/2 -OBLATENESS TERM IN AVG GRAV CALC-GOBL*RSQ/MU
029710,001729: # VRPREV - VELOCITY REQUIRED VECTOR IN METERS/CS AT +7.
029711,001730: # BDT - B VECTOR IN METERS/CS AT +7.
029712,001731: # SUBROUTINES USED - INITVEL
029713,001732: 16,2000 SETLOC P40S1
029714,001733: 16,2000 BANK
029715,001734:
029716,001735: 16,2257 E6,1746 EBANK= NBRCYCLS
029717,001736: 16,2257 COUNT 16/S40.9
029718,001737:
029719,001738: 16,2257 06006 S40.9 TC INTPRET
029720,001739: 16,2260 71201 SETPD DLOAD
029721,001740: 16,2261 00001 00D
029722,001741: 16,2262 11453 LO6ZEROS
029723,001742: 16,2263 77725 PDDL
029724,001743: 16,2264 34401 EP4(45)L
029725,001744: 16,2265 71214 BON DLOAD
029726,001745: 16,2266 03705 NORMSW
029727,001746: 16,2267 34271 +2
029728,001747: 16,2270 34403 EP4(10)L
029729,001748: 16,2271 77606 PUSH
029730,001749: 16,2272 45014 CLEAR CALL
029731,001750: 16,2273 00675 GUESSW
029732,001751: 16,2274 22002 HAVEGUES
029733,001752: 16,2275 77776 EXIT
029734,001753: 16,2276 05301 TC PHASCHNG # SAVE TIME BY NOT REDOING LAMBERT CALCS
029735,001754: 16,2277 05021 OCT 05021 # C, PRIORITY NEXT, JOB BELOW
![]() |
Page 677 |
029737,001756: 16,2300 10000 OCT 10000
029738,001757: 16,2301 06006 TC INTPRET
029739,001758: 16,2302 77614 ENDLAMB BON
029740,001759: 16,2303 01310 FIRSTFLG
029741,001760: 16,2304 34322 FIRSTTME
029742,001761: 16,2305 52375 VLOAD VSU
029743,001762: 16,2306 03612 VIPRIME
029744,001763: 16,2307 03466 VRPREV
029745,001764: 16,2310 45325 PDDL DSU
029746,001765: 16,2311 03474 TNIT
029747,001766: 16,2312 03476 TNITPREV
029748,001767: 16,2313 55261 SL BDDV
029749,001768: 16,2314 20222 17D
029750,001769: 16,2315 34375 200CSHI
029751,001770: 16,2316 77761 VXSC
029752,001771: 16,2317 76451 VSU VSL1
029753,001772: 16,2320 01207 GDT/2
029754,001773: 16,2321 03705 STORE BDT
029755,001774: 16,2322 57535 FIRSTTME SLOAD DCOMP
029756,001775: 16,2323 03747 RTX2
029757,001776: 16,2324 77640 BMN
029758,001777: 16,2325 34342 MOONCASE
029759,001778: 16,2326 53575 VLOAD UNIT
029760,001779: 16,2327 01171 RN
029761,001780: 16,2330 45345 DLOAD DSU
029762,001781: 16,2331 01205 PIPTIME
029763,001782: 16,2332 03450 NOMTIG
029764,001783: 16,2333 56205 DMP DDV
029765,001784: 16,2334 34377 EARTHMU
029766,001785: 16,2335 00043 34D
029767,001786: 16,2336 53361 VXSC VAD
029768,001787: 16,2337 01215 GOBL/2
029769,001788: 16,2340 03646 VGTEMP # NOTE NO TEST IS MADE TO SUBTRACT GOBL
029770,001789: 16,2341 03646 STORE VGTEMP # INSIDE 165-195 DEGREE CONE AREA.
029771,001790: 16,2342 77776 MOONCASE EXIT
029772,001791: 16,2343 05301 TC PHASCHNG
029773,001792: 16,2344 04021 OCT 04021 # C, JOB BELOW
029774,001793:
029775,001794: 16,2345 06006 COPY40.9 TC INTPRET
029776,001795: 16,2346 77745 DLOAD
029777,001796: 16,2347 03474 TNIT
029778,001797: 16,2350 27476 STOVL TNITPREV
029779,001798: 16,2351 03612 VIPRIME
029780,001799: 16,2352 03466 STORE VRPREV
029781,001800: 16,2353 77414 CLEAR EXIT
029782,001801: 16,2354 01270 FIRSTFLG
029783,001802: 16,2355 44712 -2 CS ONE # REDO40.9 (RESTART) ENTRY TO END S40.9
029784,001803: 16,2356 55746 TS NBRCYCLS
029785,001804: 16,2357 05301 ENDS40.9 TC PHASCHNG
029786,001805: 16,2360 00001 OCT 00001
![]() |
Page 678 |
029788,001807: 16,2361 15112 TCF ENDOFJOB
029789,001808:
029790,001809: 16,2362 06006 REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
029791,001810: 16,2363 77775 VLOAD # TERMINATE S40.9 SO THAT IT CAN BE
029792,001811: 16,2364 11453 LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS
029793,001812: 16,2365 17351 STODL DELVSUM # (TYPE C PHASE POINTS '04021' WILL
029794,001813: 16,2366 11453 LO6ZEROS # FORCE NORMAL S40.9 TERMINATIONS,
029795,001814: 16,2367 27347 STOVL NBRCYCLS # RATHER THAN LOSE TIME OF BRAND NEW
029796,001815: 16,2370 03721 VGPREV # PASS -- QUICK OLD DATA BETTER THAN
029797,001816: 16,2371 03646 STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9
029798,001817: 16,2372 77776 EXIT # WITHOUT DISTURBING VGPREV
029799,001818: 16,2373 12355 TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
029800,001819:
029801,001820: 16,2374 01440 00000 200CSHI 2DEC 200 B-12
029802,001821: 16,2376 55340 61710 EARTHMU 2DEC* -3.986032 E10 B-36*
029803,001822: 16,2400 04000 00000 EP4(45)L 2DEC .125
029804,001823: 16,2402 00707 03434 EP4(10)L 2DEC .027777777
029805,001824:
![]() |
Page 679 |
029807,001826: # NAME S40.13 - TIMEBURN
029808,001827: # FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
029809,001828: # BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
029810,001829: # TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
029811,001830: # (2) THE MAGNITUDE OF RESULTING BURN TIME - IF IT IS SHORT -
029812,001831: # AND THE ASSOCIATED TIME OF THE ENGINE-OFF SIGNAL.
029813,001832: # CALLING SEQ VIA FINDVAC AS NEW JOB.
029814,001833: # INPUT VGTIG - VELOCITY TO BE GAINED VECTOR (METERS/C.S.) AT +7
029815,001834: # WEIGHT/G - MASS OF VEHICLE IN KGM AT TIG
029816,001835: # F - ENGINE THRUST IN M.NEWTONS AT +7
029817,001836: # MDOT - RATE OF DECREASE OF VEHICLE MASS DURING ENGINE BURN
029818,001837: # IN KILOGRAMS/CENTISECOND AT +3. THIS SCALING MAY
029819,001838: # REQUIRE MODIFICATION FOR SATURN BURNS.
029820,001839: # OUTPUT IMPULSW - ZERO FOR STEERING
029821,001840: # - ONE FOR ATTITUDE HOLD
029822,001841: # TGO - TIME TO BURN IN CENTISECONDS AT +14
029823,001842: # THE QUANTITY M.NEWTON SHALL BE USED TO EXPRESS WEIGHT IN TERMS OF
029824,001843: # (KILOGRAM*METER)/(CENTISECOND*CENTISECOND)
029825,001844: # (1) M.NEWTON = (10000) NEWTONS
029826,001845: 16,2404 E7,1427 EBANK= TGO
029827,001846: 16,2404 COUNT 16/40.13
029828,001847:
029829,001848: 16,2404 06006 S40.13 TC INTPRET
029830,001849: 16,2405 43001 SETPD SET
029831,001850: 16,2406 00001 00D
029832,001851: 16,2407 01066 IMPULSW # ASSUME NO STEERING UNTIL FOUND OTHERWISE
029833,001852: 16,2410 51575 VLOAD ABVAL
029834,001853: 16,2411 03721 VGTIG # VELOCITY TO BE GAINED AT +7
029835,001854: 16,2412 77776 EXIT
029836,001855: 16,2413 34704 CAF BIT7 # TEST +X TRANSLATION
029837,001856: 16,2414 00006 EXTEND
029838,001857: 16,2415 06031 RXOR CHAN31
029839,001858: 16,2416 74704 MASK BIT7
029840,001859: 16,2417 00006 EXTEND
029841,001860: 16,2420 12502 BZF NOTADDUL
029842,001861: 16,2421 06006 TC INTPRET
029843,001862: 16,2422 56325 PDDL DDV # 00D = MAG OF VGTIG AT +7
029844,001863: 16,2423 36027 S40.135 # COMPENSATION FOR 2 JET ULLAGE AT +24
029845,001864: 16,2424 03076 WEIGHT/G # MASS IN KGMS AT +16
029846,001865: 16,2425 72414 BON SL1 # DOUBLE CORRECTION IF FOUR JETS
029847,001866: 16,2426 00700 NJETSFLG
029848,001867: 16,2427 34430 S40.130
029849,001868: 16,2430 77621 S40.130 BDSU
029850,001869: 16,2431 56325 PDDL DDV # 00D = MAG OF VGTIG CORRECTED FOR ULLAGE
029851,001870: 16,2432 36013 K1VAL # M.NETWON-CS AT +24
029852,001871: 16,2433 03076 WEIGHT/G
029853,001872: 16,2434 50021 BDSU BMN
029854,001873: 16,2435 00001 00D
029855,001874: 16,2436 34461 S40.131 # TGO LESS THAN 100 CS
029856,001875: 16,2437 41325 PDDL DMP # 02D = TEMP1 AT +7
![]() |
Page 680 |
029858,001877: 16,2440 36031 MDOTLO # MDOT, SC.AT B+3 KG/CS
029859,001878: 16,2441 36023 3.5SEC # 350 CS AT +14
029860,001879: 16,2442 65221 BDSU PDDL
029861,001880: 16,2443 03076 WEIGHT/G
029862,001881: 16,2444 03727 F # F AT +7
029863,001882: 16,2445 60405 DMP SR2
029864,001883: 16,2446 36025 5SECOND # 500 CS AT +14
029865,001884: 16,2447 41471 DDV PUSH # 04D = TEMP2
029866,001885: 16,2450 51021 BDSU BPL
029867,001886: 16,2451 00003 02D
029868,001887: 16,2452 34475 S40.133 # TGO GREATER THAN 600 CS
029869,001888: 16,2453 55345 DLOAD BDDV
029870,001889: 16,2454 43205 DMP DAD
029871,001890: 16,2455 36025 5SECOND # 500 CS AT +14
029872,001891: 16,2456 36021 1SEC2D # 100 CS AT +14
029873,001892: 16,2457 77650 GOTO
029874,001893: 16,2460 34466 S40.132
029875,001894: 16,2461 41345 S40.131 DLOAD DMP # TGO LESS THAN 100 CS
029876,001895: 16,2462 03076 WEIGHT/G
029877,001896: 16,2463 56215 DAD DDV
029878,001897: 16,2464 36015 K2VAL # M.NEWTON-CS AT +24
029879,001898: 16,2465 36017 K3VAL # M.NEWTONS AT +10
029880,001899: 16,2466 77776 S40.132 EXIT
029881,001900: 16,2467 E7,1427 EBANK= TGO
029882,001901: 16,2467 07226 TC TPAGREE
029883,001902: 16,2470 30154 CA MPAC
029884,001903: 16,2471 56001 XCH L
029885,001904: 16,2472 34714 CA ZERO
029886,001905: 16,2473 53430 DXCH TGO # TGO IN CS AT +28
029887,001906: 16,2474 02477 TC S40.134
029888,001907: 16,2475 77414 S40.133 CLEAR EXIT # WILL STEER VEHICLE
029889,001908: 16,2476 01266 IMPULSW
029890,001909: 16,2477 05301 S40.134 TC PHASCHNG # KILL GROUP 3
029891,001910: 16,2500 00003 OCT 3
029892,001911:
029893,001912: 16,2501 15112 TCF ENDOFJOB
029894,001913:
029895,001914:
029896,001915: 16,2502 06006 NOTADDUL TC INTPRET
029897,001916: 16,2503 77650 GOTO
029898,001917: 16,2504 34431 S40.130 +1 # DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
029899,001918: 17,2000 SETLOC DAPS7
029900,001919: 17,2000 BANK
029901,001920:
029902,001921: 17,2012 COUNT 17/40.13
029903,001922:
029904,001923: 17,2012 00001 27221 K1VAL 2DEC 884.52887 B-23 # 19885 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
029905,001924: 17,2014 00000 22244 K2VAL 2DEC 293.137805 B-23 # 6590 LB-SEC, SC.AT B+23 NEWTON-SEC/E+2
![]() |
Page 681 |
029907,001926: 17,2016 00570 33235 K3VAL 2DEC 11.7766668 B-9 # 26475 LBS, SC.AT B+9 NEWTONS/E+4
029908,001927: 17,2020 00144 00000 1SEC2D 2DEC 100.0 B-14 # 100.0 CS AT +14
029909,001928: 17,2022 01274 00000 3.5SEC 2DEC 350.0 B-13 # 350.0 CS AT +13
029910,001929: 17,2024 00764 00000 5SECOND 2DEC 500.0 B-14 # 500 CS AT +14
029911,001930: 17,2026 00000 04263 S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
029912,001931: # 7.96(199.6)COS(10) LB-SEC, SC.AT
029913,001932: # B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
029914,001933: # TO GO, PLUS 0.96 SEC FROM PIPTIME)
029915,001934: 17,2030 01120 25456 MDOTLO 2DEC .289391932 B-3 # 63.8 LB/SEC, SC.AT B+3 KG/CS (=MDOTHI)
029916,001935:
![]() |
Page 682 |
029918,001937: # NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
029919,001938: # MOD NO 5 DATE 9 MARCH, 1967
029920,001939: # MOD BY ENGEL LOG SECTION P40-P47
029921,001940: # FUNCTIONAL DESCRIPTION
029922,001941: # GIMBAL DRIVE TEST....0,+2,-2,0 DEGREE ENGINE COMMANDS, AT 2 SECOND
029923,001942: # INTERVALS, FIRST IN PITCH, THEN IN YAW. ASTRONAUT VERIFICATION
029924,001943: # OF GIMBAL MOTION ON GPI
029925,001944: # GIMBAL TRIM....AFTER A 4 SECOND DELAY,ENGINE COMMANDED TO
029926,001945: # PRE-COMPUTED TRIM POSITION. ASTRONAUT VERIFICATION ON GPI.
029927,001946: # PRE40.6....RESTART ENTRY TO RE-DO S40.6, ONLY IF RCS IS ON - IF TVC
029928,001947: # IS NOT ON - PRIMARILY TO GET ACTUATORS TRIMMED FOR IGNITION.
029929,001948: # BYPASS 4 SEC DELAY. SPEED IS CRITICAL NEAR IGNITION.
029930,001949: # IF TVC IS ON (TVCDAPON OR LATER) THEN REDOTVC WILL TAKE CARE
029931,001950: # OF RESTARTING ACTUATORS.
029932,001951: # CALLING SEQUENCE....
029933,001952: # WAITLIST, WITH 2CADR FOR S40.6 (OR PRE40.6), WITH EBANK= CNTR
029934,001953: # NORMAL EXIT MODE - FIXDELAY, TASKOVER
029935,001954: # SUBROUTINES CALLED....
029936,001955: # OUTPUT (INTERNAL)
029937,001956: # FIXDELAY
029938,001957: # ALARM OR ABORT EXIT MODES - NONE
029939,001958: # ERASEABLE INITIALIZATION REQUIRED
029940,001959: # CNTR = +0, NORMALLY SET BY THE P40 CALL AT TST,TRIM
029941,001960: # MRKRTMP...POSITIVE FOR GIMBAL DRIVE TEST AND GIMBAL TRIM (BOTH)
029942,001961: # NEGATIVE FOR GIMBAL TRIM ONLY
029943,001962: # PACTOFF, YACTOFF SC.AT 85.41 ARCSEC/BIT (V48N48 P,YTRIM)
029944,001963: # ..SC CONT.. SWITCH AT ..CMC.. (A/P CONTROL SWITCH AT ..GNC..)
029945,001964: # ACTIVE SPS GIMBAL MOTOR POWER(S), PITCH, YAW
029946,001965: # OUTPUT
029947,001966: # TVCYAW, TVCPITCH (BITS RELEASED)
029948,001967: # TVC ENABLE AND OPTICS ERROR COUNTER ENABLE
029949,001968: # DEBRIS
029950,001969: # TEMPR60, CNTR
029951,001970:
029952,001971:
029953,001972:
029954,001973: 17,2032 BANK 17
029955,001974: 20,2000 SETLOC DAPS6
029956,001975: 20,2000 BANK
029957,001976:
029958,001977: 20,2040 E6,1447 EBANK= CNTR
029959,001978: 20,2040 COUNT 20/S40.6
029960,001979:
029961,001980: 20,2040 30102 PRE40.6 CAE FLAGWRD6 # RESTART ENTRY TO S40.6. CHECK T5 BITS.
029962,001981: 20,2041 74105 MASK OCT60000
029963,001982: 20,2042 00006 EXTEND
029964,001983: 20,2043 65213 BZMF TASKOVER # NOT RCS (BITS NOT 01), DONT DO S40.6
029965,001984:
029966,001985: 20,2044 44712 CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY
029967,001986: 20,2045 55445 TS MRKRTMP
![]() |
Page 683 |
029969,001988: 20,2046 34712 CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS...
029970,001989: 20,2047 55447 TS CNTR # TO INDICATE A RESTART ENTRY (CNTR IS
029971,001990: # NORMALLY +0, BY S40.6)
029972,001991:
029973,001992:
029974,001993: 20,2050 E6,1447 EBANK= CNTR
029975,001994: 20,2050 44714 S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY
029976,001995: 20,2051 55303 TS OPTIND
029977,001996:
029978,001997: 20,2052 44711 CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO,
029979,001998: 20,2053 00006 EXTEND # AND INHIBIT PULSE TRANSMISSION -
029980,001999: 20,2054 03012 WAND CHAN12 # NORMAL STATE)
029981,002000:
029982,002001: 20,2055 32142 CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC
029983,002002: 20,2056 00006 EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC
029984,002003: 20,2057 05012 WOR CHAN12
029985,002004:
029986,002005: 20,2060 05156 TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
029987,002006: 20,2061 00006 DEC 6 B-14 # RELAY LATCHING
029988,002007:
029989,002008: 20,2062 34711 CAF BIT2 # ENABLE OPTICS ERROR COUNTERS
029990,002009: 20,2063 00006 EXTEND
029991,002010: 20,2064 05012 WOR CHAN12
029992,002011:
029993,002012: 20,2065 05156 TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
029994,002013: 20,2066 00002 DEC 2 B-14 # RELAY LATCHING
029995,002014:
029996,002015: 20,2067 11447 RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6)
029997,002016: 20,2070 12130 TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY
029998,002017: # TST,TRIM SETS +0 ON NORMAL ENTRY
029999,002018:
030000,002019: 20,2071 31445 CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY
030001,002020: 20,2072 55447 TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS
030002,002021: 20,2073 00006 EXTEND
030003,002022: 20,2074 62126 BZMF GIMTRIM # (TRIM ONLY)
030004,002023:
030005,002024: 20,2075 44714 GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH
030006,002025: 20,2076 55447 TS CNTR
030007,002026:
030008,002027: 20,2077 32144 GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
030009,002028: 20,2100 02113 TC OUTPUT # (LEAVES GIMBAL AT +2 DEG)
030010,002029: 20,2101 32143 CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2)
030011,002030: 20,2102 02113 TC OUTPUT
030012,002031: 20,2103 32144 CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0)
030013,002032: 20,2104 02113 TC OUTPUT
030014,002033:
030015,002034: 20,2105 41447 CS CNTR # CHECK FOR COMPLETION OF YAW TEST
030016,002035: 20,2106 10000 CCS A
030017,002036: 20,2107 12126 TCF GIMTRIM # COMPLETED, GO TO GIMBAL TRIM ROUTINE
030018,002037: 20,2110 44712 CS BIT1 # SET UP YAW TEST
![]() |
Page 684 |
030020,002039: 20,2111 55447 TS CNTR
030021,002040: 20,2112 12077 TCF GIMDTEST # FOR YAW TEST
030022,002041:
030023,002042:
030024,002043: 20,2113 00006 OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q
030025,002044: 20,2114 23146 QXCH TEMPR60
030026,002045:
030027,002046: 20,2115 51447 INDEX CNTR
030028,002047: 20,2116 54054 TS TVCPITCH
030029,002048:
030030,002049: 20,2117 51447 INDEX CNTR
030031,002050: 20,2120 34700 CAF BIT11
030032,002051: 20,2121 00006 EXTEND
030033,002052: 20,2122 05014 WOR CHAN14
030034,002053:
030035,002054: 20,2123 05156 TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES
030036,002055: 20,2124 00310 DEC 200 B-14 # GIMBAL MOTION ON GPI
030037,002056: 20,2125 01146 TC TEMPR60
030038,002057:
030039,002058:
030040,002059: 20,2126 05156 GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM
030041,002060: 20,2127 00620 DEC 400 B-14
030042,002061:
030043,002062: 20,2130 44714 +2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM
030044,002063: 20,2131 61425 AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST
030045,002064: 20,2132 54054 TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY
030046,002065: 20,2133 44714 CS ZERO
030047,002066: 20,2134 61426 AD YACTOFF
030048,002067: 20,2135 54053 TS TVCYAW
030049,002068:
030050,002069: 20,2136 34755 CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12
030051,002070: 20,2137 00006 EXTEND
030052,002071: 20,2140 05014 WOR CHAN14
030053,002072:
030054,002073: 20,2141 15213 ENDS40.6 TCF TASKOVER
030055,002074:
030056,002075:
030057,002076: 20,2142 02200 OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
030058,002077: 20,2143 77526 -4ACTDEG DEC -169 B-14 # -4 DEG, SC.AT 85.41 ARCSEC/BIT (-169D)
030059,002078: 20,2144 00124 +2ACTDEG DEC +84 B-14 # +2 DEG, SC.AT 85.41 ARCSEC/BIT (+84D)
030060,002079:
030061,002080:
030062,002081: # CALLED BY ..DONOUN46.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP) VIA IBNKCALL
030063,002082:
030064,002083: 20,2145 COUNT 20/S41.2
030065,002084:
030066,002085: 20,2145 31466 S41.2 CA DAPDATR1
030067,002086: 20,2146 76214 MASK THREE
030068,002087: 20,2147 60000 AD A
030069,002088: 20,2150 55130 TS RATEINDX
![]() |
Page 685 |
030071,002090: 20,2151 00004 INHINT
030072,002091: 20,2152 31466 CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
030073,002092: 20,2153 74371 MASK PRIO30 # =10)
030074,002093: 20,2154 67705 AD -BIT14 # (OCT57777)
030075,002094: 20,2155 00006 EXTEND
030076,002095: 20,2156 12163 BZF TOGETHER # YES
030077,002096:
030078,002097: 20,2157 44711 CS BIT2 # NO, UNSET FLAG
030079,002098: 20,2160 70103 MASK FLAGWRD7
030080,002099: 20,2161 54103 TS FLAGWRD7
030081,002100:
030082,002101: 20,2162 12166 TCF +4
030083,002102:
030084,002103: 20,2163 40103 TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
030085,002104: 20,2164 74711 MASK BIT2
030086,002105: 20,2165 26103 ADS FLAGWRD7
030087,002106:
030088,002107: 20,2166 00003 RELINT
030089,002108:
030090,002109: 20,2167 31466 CA DAPDATR1
030091,002110: 20,2170 74707 MASK BIT4
030092,002111: 20,2171 00006 EXTEND
030093,002112: 20,2172 62174 BZMF +2 # DEC 46 MEANS NARROW DB
030094,002113: 20,2173 32274 CA DEC409
030095,002114: 20,2174 62275 AD DEC46 # DEC 455 MEANS WIDE DB
030096,002115: 20,2175 55655 TS ADB
030097,002116:
030098,002117: 20,2176 31466 CA DAPDATR1
030099,002118: 20,2177 74704 MASK BIT7 # QUAD BD
030100,002119: 20,2200 00006 EXTEND
030101,002120: 20,2201 62203 BZMF +2
030102,002121: 20,2202 34712 CA ONE
030103,002122: 20,2203 55631 TS XTRANS
030104,002123: 20,2204 31466 CA DAPDATR1
030105,002124: 20,2205 74701 MASK BIT10 # QUAD AC
030106,002125: 20,2206 00006 EXTEND
030107,002126: 20,2207 62211 BZMF +2
030108,002127: 20,2210 44712 CS ONE
030109,002128: 20,2211 27631 ADS XTRANS
030110,002129:
030111,002130: 20,2212 00004 INHINT
030112,002131: 20,2213 00006 EXTEND
030113,002132: 20,2214 12221 BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS)
030114,002133: 20,2215 40075 CS FLAGWRD1 # SET NJETSFLG (2 JETS, AC OR BD QUADS)
030115,002134: 20,2216 74674 MASK BIT15 # NJETSFLG = 1 FOR 2 JET ULLAGE (AC OR BD)
030116,002135: 20,2217 26075 ADS FLAGWRD1
030117,002136: 20,2220 12224 TCF +4
030118,002137: 20,2221 44674 CS BIT15 # NJETSFLG = 0 FOR 4 JET (OR 0 JET) ULLAGE
030119,002138: 20,2222 70075 MASK FLAGWRD1
030120,002139: 20,2223 54075 TS FLAGWRD1
![]() |
Page 686 |
030122,002141: 20,2224 00003 RELINT
030123,002142: 20,2225 31467 CA DAPDATR2
030124,002143: 20,2226 74676 MASK BIT13
030125,002144: 20,2227 00006 EXTEND
030126,002145: 20,2230 62232 BZMF +2
030127,002146: 20,2231 12233 TCF +2
030128,002147: 20,2232 44712 CS ONE
030129,002148: 20,2233 40000 COM
030130,002149: 20,2234 55630 TS ACORBD # MINUS FOR A-C, PLUS FOR B-D
030131,002150:
030132,002151: 20,2235 31467 CA DAPDATR2
030133,002152: 20,2236 74701 MASK BIT10
030134,002153: 20,2237 10000 CCS A
030135,002154: 20,2240 12244 TCF +4
030136,002155: 20,2241 34712 CA ONE
030137,002156: 20,2242 55626 TS RACFAIL
030138,002157: 20,2243 12254 TCF BDFAIL
030139,002158: 20,2244 34714 CA ZERO
030140,002159: 20,2245 55626 TS RACFAIL
030141,002160: 20,2246 31467 CA DAPDATR2
030142,002161: 20,2247 74707 MASK BIT4
030143,002162: 20,2250 10000 CCS A
030144,002163: 20,2251 12254 TCF BDFAIL
030145,002164: 20,2252 44712 CS ONE
030146,002165: 20,2253 55626 TS RACFAIL
030147,002166: 20,2254 31467 BDFAIL CA DAPDATR2
030148,002167: 20,2255 74704 MASK BIT7
030149,002168: 20,2256 10000 CCS A
030150,002169: 20,2257 12263 TCF +4
030151,002170: 20,2260 34712 CA ONE
030152,002171: 20,2261 55627 TS RBDFAIL
030153,002172: 20,2262 00002 TC Q
030154,002173: 20,2263 34714 CA ZERO
030155,002174: 20,2264 55627 TS RBDFAIL
030156,002175: 20,2265 31467 CA DAPDATR2
030157,002176: 20,2266 74712 MASK BIT1
030158,002177: 20,2267 10000 CCS A
030159,002178: 20,2270 00002 TC Q
030160,002179: 20,2271 44712 CS ONE
030161,002180: 20,2272 55627 TS RBDFAIL
030162,002181: 20,2273 00002 TC Q
030163,002182:
030164,002183:
030165,002184: # DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM ..STABLISH.. (VERB 46)
030166,002185: 42,3521 BANK 42
030167,002186: 42,2000 SETLOC EXTVBS
030168,002187: 42,2000 BANK
030169,002188:
030170,002189: 42,3521 44702 DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER
030171,002190: 42,3522 00006 EXTEND
![]() |
Page 687 |
030173,002192: 42,3523 03012 WAND CHAN12
030174,002193: 42,3524 31466 CAE DAPDATR1 # DETERMINE VEHICLE CONFIGURATION
030175,002194: 42,3525 00006 EXTEND
030176,002195: 42,3526 74710 MP BIT3 # RIGHT SHIFT 4 OCTAL DIGITS
030177,002196: 42,3527 76214 MASK THREE # (IN CASE BIT 15 IS USED)
030178,002197: 42,3530 50000 INDEX A
030179,002198: 42,3531 13532 TCF +1 # BRANCH BASED ON CONFIG....
030180,002199:
030181,002200: 42,3532 13544 TCF NODAPUP # CM.......ACTIVATE NODAP
030182,002201: 42,3533 13537 TCF RCSDAPUP # CSM......ACTIVATE RCSDAP
030183,002202: 42,3534 13537 TCF RCSDAPUP # CSM/LEM..ACTIVATE RCSDAP
030184,002203: 42,3535 04574 TC POSTJUMP
030185,002204: 42,3536 67210 CADR SATSTKON
030186,002205: 42,3537 00004 RCSDAPUP INHINT # CALL TO ACTIVATE RCSDAP, AND RETURN
030187,002206: 42,3540 04633 TCR IBNKCALL
030188,002207: 42,3541 42010 CADR RCSDAPON
030189,002208: 42,3542 00003 RELINT
030190,002209: 42,3543 13561 TCF ENDFIG # CAME IN VIA V46, GO OUT VIA GOPIN
030191,002210: 42,3544 00006 NODAPUP EXTEND # T5 IDLE FOR NODAP (DONT WORRY ABOUT T)
030192,002211: 42,3545 33564 DCA T5IDLDAP
030193,002212: 42,3546 53313 DXCH T5LOC
030194,002213: 42,3547 05447 TC DOWNFLAG # RESET T5-USAGE FLAGS FOR NODAP
030195,002214: 42,3550 00132 ADRES DAPBIT1 # BIT 15 FLAG 6 = 0
030196,002215: 42,3551 05447 TC DOWNFLAG
030197,002216: 42,3552 00133 ADRES DAPBIT2 # BIT 14 FLAG 6 = 0
030198,002217: 42,3553 00004 INHINT
030199,002218: 42,3554 04633 TC IBNKCALL # ZERO JET CHANNELS IN 14 MS AND THEN
030200,002219: 42,3555 42616 CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED.
030201,002220: 42,3556 00003 RELINT
030202,002221: 42,3557 34712 CAF BIT1 # KILL KALCMANU JOB
030203,002222: 42,3560 55332 TS HOLDFLAG
030204,002223: 42,3561 04574 ENDFIG TC POSTJUMP # CAME IN VIA V46, GO OUT VIA GOPIN
030205,002224: 42,3562 66125 CADR GOPIN
030206,002225: 42,3563 E6,1425 EBANK= PACTOFF
030207,002226: 42,3563 03132 12106 T5IDLDAP 2CADR T5IDLOC
030208,002227:
030209,002228: 17,2032 BANK 17
030210,002229: 20,2000 SETLOC DAPS6
030211,002230: 20,2000 BANK
030212,002231:
030213,002232: 20,2274 00631 DEC409 DEC 409 B-14
030214,002233: 20,2275 00056 DEC46 DEC 46 B-14
030215,002234:
030216,002235:
030217,002236: # CALLED BY ..DONOUN47.. (VERB 48), OR DIRECTLY BY ..FRESHDAP.. (RCS DAP)
030218,002237:
030219,002238: 20,2276 31470 S40.14 CAE IXX # RCS ENTRY
030220,002239: 20,2277 00006 EXTEND
030221,002240: 20,2300 72323 MP CONTONE
![]() |
Page 688 |
030223,002242: 20,2301 55623 TS J/M
030224,002243:
030225,002244: 20,2302 31471 CA IAVG
030226,002245: 20,2303 00006 EXTEND
030227,002246: 20,2304 72323 MP CONTONE
030228,002247: 20,2305 55624 TS J/M1
030229,002248:
030230,002249: 20,2306 55625 TS J/M2
030231,002250:
030232,002251: 20,2307 00006 EXTEND
030233,002252: 20,2310 32325 DCA CONTTWO
030234,002253: 20,2311 00006 EXTEND
030235,002254: 20,2312 11470 DV IXX
030236,002255: 20,2313 55620 TS KMJ
030237,002256:
030238,002257: 20,2314 00006 EXTEND
030239,002258: 20,2315 32325 DCA CONTTWO
030240,002259: 20,2316 00006 EXTEND
030241,002260: 20,2317 11471 DV IAVG
030242,002261: 20,2320 55621 TS KMJ1
030243,002262:
030244,002263: 20,2321 55622 TS KMJ2
030245,002264:
030246,002265: 20,2322 00002 TC Q
030247,002266:
030248,002267: 20,2323 25137 CONTONE DEC .662034 # 2PI/M
030249,002268: 20,2324 00023 12522 CONTTWO 2DEC .00118
030250,002269:
030251,002270: 20,2326 COUNT 24/TVNG
030252,002271:
030253,002272: 31,3215 BANK 31
030254,002273: 24,2000 SETLOC P40S
030255,002274: 24,2000 BANK
030256,002275:
030257,002276: 24,3701 37405 POS-2.5 OCT 37405
![]() |
2016-08-14 RSB Added SBANK for addressing discrepancies. |
030259,002278: 24,3702 40,2000 SBANK= PINSUPER
030260,002279: 24,3702 E6,1466 EBANK= DAPDATR1
030261,002280: 24,3702 02000 42106 RCSCADR 2CADR RCSUP
030262,002281: 24,3704 37704 6SECT5 OCT 37704
030263,002282: 24,3705 COUNT 21/RCSUP
030264,002283:
030265,002284: 20,2326 BANK 20
030266,002285:
030267,002286: 21,2000 SETLOC DAPS3
030268,002287: 21,2000 BANK
030269,002288:
030270,002289: 21,2000 22016 RCSUP LXCH BANKRUPT
030271,002290: 21,2001 00006 EXTEND
030272,002291: 21,2002 22012 QXCH QRUPT
030273,002292:
![]() |
Page 689 |
030275,002294: 21,2003 02010 TCR RCSDAPON # ACTIVATE RCS DAP
030276,002295:
030277,002296: 21,2004 15222 TCF RESUME
030278,002297:
![]() |
2016-08-14 RSB Added SBANK for addressing discrepancies. |
030280,002299: 21,2005 40,2000 SBANK= PINSUPER
030281,002300: 21,2005 E6,1466 EBANK= DAPDATR1
030282,002301: 21,2005 02106 42106 RCSADDR 2CADR RCSATT
030283,002302:
030284,002303:
030285,002304: 21,2007 37704 0.6SECT5 OCT 37704
030286,002305:
030287,002306: # RCSDAPON ENTRY MUST BE UNDER INT-INHIBIT
030288,002307: 21,2010 32007 RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
030289,002308: 21,2011 54030 +1 TS TIME5 # ENTRY FROM ROOTOPOO
030290,002309: 21,2012 55465 TS T5PHASE # WILL CAUSE FRESHDAP (+1)
030291,002310:
030292,002311: 21,2013 41501 CS RCSFLAGS # SET BIT3 TO REINITIALIZE FDAI ERROR
030293,002312: 21,2014 74710 MASK BIT3 # DISPLAY, IN CASE SC CONT SWITCH
030294,002313: 21,2015 27501 ADS RCSFLAGS # IN SCS NOT GNC (GUIDEMODE PRIMARY)
030295,002314:
030296,002315: 21,2016 00006 EXTEND
030297,002316: 21,2017 32006 DCA RCSADDR # (RCSATT)
030298,002317: 21,2020 53313 DXCH T5LOC
030299,002318:
030300,002319: 21,2021 44105 CS OCT60000 # SET BITS 15,14 TO 01 TO INDICATE
030301,002320: 21,2022 70102 MASK FLAGWRD6 # T5 TAKEOVER BY RCSDAP
030302,002321: 21,2023 64675 AD BIT14
030303,002322: 21,2024 54102 TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
030304,002323:
030305,002324: 21,2025 00002 TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
End of include-file P40-P47.agc. Parent file is MAIN.agc