Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
023248,000002: ## Copyright: Public domain.
023249,000003: ## Filename: 202_MISSION_CONTROL_PROGRAM.agc
023250,000004: ## Purpose: A section of Corona revision 261.
023251,000005: ## It is part of the source code for the Apollo Guidance Computer
023252,000006: ## (AGC) for AS-202. No original listings of this software are
023253,000007: ## available; instead, this file was created via disassembly of
023254,000008: ## the core rope modules actually flown on the mission.
023255,000009: ## Assembler: yaYUL
023256,000010: ## Contact: Ron Burkey <info@sandroid.org>.
023257,000011: ## Website: www.ibiblio.org/apollo/index.html
023258,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
023259,000013: ## 2023-06-19 MAS Updated for Corona.
023260,000014:
023261,000015:
023262,000016: 32,6000 SETLOC 64000
023263,000017: 32,6000 20017 LIFTOFF INHINT
023264,000018: 32,6001 02700 TC READTIME +1 # SAVE TIME OF LIFTOFF
023265,000019: 32,6002 40572 CS RUPTSTOR
023266,000020: 32,6003 51462 TS TLIFTOFF
023267,000021: 32,6004 40573 CS RUPTSTOR +1
023268,000022: 32,6005 51463 TS TLIFTOFF +1
023269,000023:
023270,000024: 32,6006 41463 CS TLIFTOFF +1
023271,000025: 32,6007 50664 TS TBASE2
023272,000026: 32,6010 50665 TS TBASE3
023273,000027: 32,6011 50666 TS TBASE4
023274,000028:
023275,000029: 32,6012 34516 CAF ONE
023276,000030: 32,6013 02312 TC NEWPHASE
023277,000031: 32,6014 00002 OCT 00002
023278,000032:
023279,000033: 32,6015 10000 CCS A
023280,000034: 32,6016 06025 TC LIFTOFF1
023281,000035: 32,6017 06025 TC LIFTOFF1
023282,000036:
023283,000037: 32,6020 20017 INHINT
023284,000038: 32,6021 41563 CS TROLL +1
023285,000039: 32,6022 40000 COM
023286,000040: 32,6023 02173 TC WAITLIST
023287,000041: 32,6024 64134 CADR MONITSK1
023288,000042:
023289,000043: 32,6025 34516 LIFTOFF1 CAF ONE
023290,000044: 32,6026 02312 TC NEWPHASE
023291,000045: 32,6027 00003 OCT 00003
023292,000046:
023293,000047: 32,6030 74335 MASK NEG1
023294,000048: 32,6031 10000 CCS A
023295,000049: 32,6032 06034 TC +2
023296,000050: 32,6033 06041 TC CALL4.11
023297,000051:
023298,000052: 32,6034 20017 INHINT
023299,000053: 32,6035 41565 CS TPITCH +1
023300,000054: 32,6036 40000 COM
023301,000055: 32,6037 02173 TC WAITLIST
023302,000056: 32,6040 64170 CADR MONITASK
023303,000057:
023304,000058: 32,6041 33517 CALL4.11 CAF ELEVEN
023305,000059: 32,6042 02312 TC NEWPHASE
023306,000060: 32,6043 00004 OCT 00004
023307,000061:
023308,000062: 32,6044 10000 CCS A
023309,000063: 32,6045 06053 TC SETLIFT
023310,000064: 32,6046 06053 TC SETLIFT
023311,000065:
023312,000066: 32,6047 20017 INHINT
023313,000067: 32,6050 37642 CAF 2SEC # ALLOW 2 SECS FOR BACK-UP GRR COMPUTATION
023314,000068: 32,6051 02173 TC WAITLIST
023315,000069: 32,6052 64056 CADR TARGTASK
023316,000070:
023317,000071: 32,6053 03424 SETLIFT TC FLAG1UP
023318,000072: 32,6054 00002 OCT 00002
023319,000073:
023320,000074: 32,6055 03157 TC JAMTERM # FLUSH V75 GRR BACKUP.
023321,000075:
023322,000076: 32,6056 32146 TARGTASK CAF PRIO12
023323,000077: 32,6057 02046 TC FINDVAC
023324,000078: 32,6060 64062 CADR TARGJOB
023325,000079:
023326,000080: 32,6061 02256 TC TASKOVER
023327,000081:
023328,000082: 32,6062 05654 TARGJOB TC BANKCALL # COMMAND IMUCDU TO ATT. CONTROL MODE
023329,000083: 32,6063 30223 CADR IMUATTC
023330,000084:
023331,000085: 32,6064 03502 TC SETHETAD # FORCE THETAD,+1,+2 TO EQUAL CDUX,Y,Z
023332,000086:
023333,000087: 32,6065 04000 TC INTPRET
023334,000088:
023335,000089: 32,6066 66776 DSU 0 # TARGET VECTORS INITIALLY REFERENCED TO
023336,000090: 32,6067 01463 TLIFTOFF # GRR. WILL NOW UPDATE THEM TO LIFT-OFF
023337,000091: 32,6070 01467 TIME2GR
023338,000092: 32,6071 33145 STORE DTEAROT
023339,000093:
023340,000094: 32,6072 70776 DAD 0
023341,000095: 32,6073 01463 TLIFTOFF
023342,000096: 32,6074 01630 TPACIF1
023343,000097: 32,6075 33537 STORE TPACIFC
023344,000098:
023345,000099: 32,6076 70776 DAD 0
023346,000100: 32,6077 01463 TLIFTOFF
023347,000101: 32,6100 01620 TATLAN1
023348,000102: 32,6101 33527 STORE TATLANT
023349,000103: 32,6102 75176 VMOVE 0
023350,000104: 32,6103 01632 RTPACIF1
023351,000105: 32,6104 33115 STORE RTINIT
023352,000106:
023353,000107: 32,6105 76776 ITC 0
023354,000108: 32,6106 13541 EARROT1
023355,000109:
023356,000110: 32,6107 47576 NOLOD 0
023357,000111: 32,6110 33541 STORE RTPACIFC
023358,000112:
023359,000113: 32,6111 75176 VMOVE 0
023360,000114: 32,6112 01622 RTATLAN1
023361,000115: 32,6113 33115 STORE RTINIT
023362,000116:
023363,000117: 32,6114 76776 ITC 0
023364,000118: 32,6115 13541 EARROT1
023365,000119:
023366,000120: 32,6116 47576 NOLOD 0
023367,000121: 32,6117 33531 STORE RTATLANT
023368,000122:
023369,000123: 32,6120 77576 EXIT 0
023370,000124:
023371,000125: 32,6121 05654 TARGET TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH
023372,000126: 32,6122 30331 CADR IMUSTALL
023373,000127: 32,6123 03074 TC CURTAINS # TRAP IF INCOMPLETE
023374,000128:
023375,000129: 32,6124 02362 TC NEWMODE # SET MAJOR MODE TO BOOST ATTITUDE MONITOR
023376,000130: 32,6125 00011 OCT 00011
023377,000131:
023378,000132: 32,6126 03424 TC FLAG1UP # SET MONIT FLAG
023379,000133: 32,6127 00040 MONITMSK OCT 00040
023380,000134:
023381,000135: 32,6130 44516 CS ONE
023382,000136: 32,6131 02312 TC NEWPHASE
023383,000137: 32,6132 00004 OCT 00004
023384,000138:
023385,000139: 32,6133 02124 TC ENDOFJOB
023386,000140:
023387,000141:
023388,000142: 32,6134 11561 MONITSK1 CCS TENDROLL
023389,000143: 32,6135 06137 TC +2
023390,000144: 32,6136 06147 TC ENDROLL
023391,000145: 32,6137 51561 TS TENDROLL
023392,000146:
023393,000147: 32,6140 32156 CAF PRIO23
023394,000148: 32,6141 02046 TC FINDVAC
023395,000149: 32,6142 64160 CADR DOROLL
023396,000150:
023397,000151: 32,6143 36157 CAF 0.5SEC32
023398,000152: 32,6144 02173 TC WAITLIST
023399,000153: 32,6145 64134 CADR MONITSK1
023400,000154:
023401,000155: 32,6146 02256 TC TASKOVER
023402,000156:
023403,000157: 32,6147 34500 ENDROLL CAF NEGSIGN
023404,000158: 32,6150 50700 TS THETAD
023405,000159: 32,6151 35501 CAF ZERO
023406,000160: 32,6152 50702 TS THETAD +2
023407,000161:
023408,000162: 32,6153 44516 CS ONE
023409,000163: 32,6154 02312 TC NEWPHASE
023410,000164: 32,6155 00002 OCT 00002
023411,000165:
023412,000166: 32,6156 02256 TC TASKOVER
023413,000167:
023414,000168: 32,6157 00062 0.5SEC32 DEC 50 B-14
023415,000169:
023416,000170: 32,6160 04000 DOROLL TC INTPRET
023417,000171:
023418,000172: 32,6161 75775 VXSC 1
023419,000173: 32,6162 76776 ITC
023420,000174: 32,6163 15573 UNITX
023421,000175: 32,6164 01615 ROLLDTH
023422,000176: 32,6165 12373 CDUDRIVE
023423,000177:
023424,000178: 32,6166 77576 EXIT 0
023425,000179:
023426,000180: 32,6167 02124 TC ENDOFJOB
023427,000181:
023428,000182: 32,6170 33536 MONITASK CAF TWENTY6
023429,000183: 32,6171 02312 TC NEWPHASE
023430,000184: 32,6172 00003 OCT 00003
023431,000185:
023432,000186: 32,6173 36127 CAF MONITMSK
023433,000187: 32,6174 70646 MASK FLAGWRD1
023434,000188: 32,6175 10000 CCS A
023435,000189: 32,6176 06212 TC JUMP5
023436,000190: 32,6177 51350 TS TENTRY
023437,000191:
023438,000192: 32,6200 41572 CS TTUMON # CALL TUMBLE MONITOR IN TTUMON SECS
023439,000193: 32,6201 40000 COM
023440,000194: 32,6202 02173 TC WAITLIST
023441,000195: 32,6203 64263 CADR TUMBTSK1
023442,000196:
023443,000197: 32,6204 35503 CAF TWO
023444,000198: 32,6205 02312 TC NEWPHASE
023445,000199: 32,6206 00003 OCT 00003
023446,000200:
023447,000201: 32,6207 40036 CS TIME1
023448,000202: 32,6210 50665 TS TBASE3
023449,000203:
023450,000204: 32,6211 02256 TC TASKOVER
023451,000205:
023452,000206: 32,6212 32155 JUMP5 CAF PRIO22
023453,000207: 32,6213 02046 TC FINDVAC
023454,000208: 32,6214 64226 CADR MONITJOB
023455,000209:
023456,000210: 32,6215 02700 TC READTIME +1
023457,000211: 32,6216 40572 CS RUPTSTOR
023458,000212: 32,6217 51570 TS TMONITOR
023459,000213: 32,6220 40573 CS RUPTSTOR +1
023460,000214: 32,6221 51571 TS TMONITOR +1
023461,000215:
023462,000216: 32,6222 36157 CAF 0.5SEC32
023463,000217: 32,6223 02173 TC WAITLIST
023464,000218: 32,6224 64170 CADR MONITASK
023465,000219:
023466,000220: 32,6225 02256 TC TASKOVER
023467,000221:
023468,000222: 32,6226 04000 MONITJOB TC INTPRET
023469,000223:
023470,000224: 32,6227 66775 DSU 1 # FORM TIME SINCE START OF MONITOR
023471,000225: 32,6230 66771 DSU RTB
023472,000226: 32,6231 01571 TMONITOR
023473,000227: 32,6232 01463 TLIFTOFF
023474,000228: 32,6233 01565 TPITCH
023475,000229: 32,6234 20403 SGNAGREE
023476,000230: 32,6235 33571 STORE TMONITOR
023477,000231:
023478,000232: 32,6236 43174 SMOVE 2
023479,000233: 32,6237 76516 RTB TSLT
023480,000234: 32,6240 76575 RTB EXIT
023481,000235: 32,6241 01572 TMONITOR +1
023482,000236: 32,6242 24261 POLYENT1
023483,000237: 32,6243 00004 3
023484,000238: 32,6244 20324 1STO2S
023485,000239:
023486,000240: 32,6245 30115 XCH MPAC
023487,000241: 32,6246 50701 TS THETAD +1
023488,000242:
023489,000243: 32,6247 04000 TC INTPRET
023490,000244: 32,6250 66775 DSU 1 # TEST IF TIME TO STOP MONITOR
023491,000245: 32,6251 73611 BMN SWITCH
023492,000246: 32,6252 01571 TMONITOR
023493,000247: 32,6253 01567 TENDPTCH # IF IT IS, REMOVE MONIT FLAG
023494,000248: 32,6254 24257 +2
023495,000249: 32,6255 00033 MONITFLG
023496,000250:
023497,000251: 32,6256 77576 EXIT 0
023498,000252:
023499,000253: 32,6257 02124 TC ENDOFJOB
023500,000254:
023501,000255: 32,6260 33520 POLYENT1 CAF TWELVE # RTB HERE PRIOR TO ENTERING ERASABLE FOR
023502,000256: 32,6261 51574 TS POLYORDR # POLYNOMIAL
023503,000257: 32,6262 01573 TC POLYENTR
023504,000258:
023505,000259: 32,6263 33537 TUMBTSK1 CAF TWENTY7
023506,000260: 32,6264 02312 TC NEWPHASE
023507,000261: 32,6265 00003 OCT 3
023508,000262:
023509,000263: 32,6266 32155 CAF PRIO22
023510,000264: 32,6267 02052 TC NOVAC
023511,000265: 32,6270 64272 CADR TUMBJOB1
023512,000266:
023513,000267: 32,6271 06327 TC RESET1
023514,000268:
023515,000269:
023516,000270:
023517,000271: 32,6272 05654 TUMBJOB1 TC BANKCALL # SWITCH IMUCDU MODE TO FINE ALIGN
023518,000272: 32,6273 30163 CADR IMUFINNW
023519,000273:
023520,000274: 32,6274 05654 TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH
023521,000275: 32,6275 30331 CADR IMUSTALL
023522,000276: 32,6276 03074 TC CURTAINS
023523,000277:
023524,000278: 32,6277 02362 TC NEWMODE # SET MAJOR MODE TO TUMBLE MONITOR
023525,000279: 32,6300 00014 OCT 00014
023526,000280:
023527,000281: 32,6301 02124 TC ENDOFJOB
023528,000282:
023529,000283: 32,6302 32155 TUMBTASK CAF PRIO22
023530,000284: 32,6303 02046 TC FINDVAC
023531,000285: 32,6304 64340 CADR TUMBJOB
023532,000286:
023533,000287: 32,6305 34516 CAF BIT1 # TEST IF TUMBLE FLAG SET
023534,000288: 32,6306 70646 MASK FLAGWRD1
023535,000289: 32,6307 10000 CCS A
023536,000290: 32,6310 06327 TC RESET1 # IT IS. CONTINUE TO MONITOR
023537,000291:
023538,000292: 32,6311 40647 CS FLAGWRD2 # TEST IF BURN IS TUMBLE ARREST (I.E. HAS
023539,000293: 32,6312 74516 MASK BIT1 # CORRECTIVE ACTION STARTED)
023540,000294: 32,6313 10000 CCS A
023541,000295: 32,6314 06323 TC TUMTEST1 # IT HAS NOT
023542,000296: 32,6315 40011 CS OUT1 # IT HAS. TEST IF ENGINE ON YET. IF NOT,
023543,000297: 32,6316 74502 MASK BIT13 # WAIT BEFORE TURNING IT OFF AGAIN
023544,000298: 32,6317 10000 CCS A
023545,000299: 32,6320 06327 TC RESET1
023546,000300:
023547,000301: 32,6321 05720 TC POSTJUMP # LEAP TO CUT SPS ENGINE
023548,000302: 32,6322 64755 CADR ENGINOFF
023549,000303:
023550,000304: 32,6323 36337 TUMTEST1 CAF NOTUMASK # TEST IF NEXT BURN HAS BEEN SET
023551,000305: 32,6324 70647 MASK FLAGWRD2
023552,000306: 32,6325 10000 CCS A
023553,000307: 32,6326 06333 TC TASK3OUT
023554,000308:
023555,000309: 32,6327 36744 RESET1 CAF 1SEC32 # RECALL IN 1 SEC
023556,000310: 32,6330 02173 TC WAITLIST
023557,000311: 32,6331 64302 CADR TUMBTASK
023558,000312:
023559,000313: 32,6332 02256 TC TASKOVER
023560,000314:
023561,000315: 32,6333 44516 TASK3OUT CS ONE
023562,000316: 32,6334 02312 TC NEWPHASE
023563,000317: 32,6335 00003 OCT 00003
023564,000318:
023565,000319: 32,6336 02256 TC TASKOVER # IT HAS. KILL TUMBLE MONITOR
023566,000320:
023567,000321: 32,6337 00016 NOTUMASK OCT 00016 # (OR OF SPS1, ABRT, TABT)
023568,000322:
023569,000323:
023570,000324: 32,6340 36337 TUMBJOB CAF NOTUMASK # SKIP THIS JOB IF NEXT BURN HAS BEEN SET
023571,000325: 32,6341 70647 MASK FLAGWRD2
023572,000326: 32,6342 10000 CCS A
023573,000327: 32,6343 02124 TC ENDOFJOB
023574,000328:
023575,000329: 32,6344 02362 TC NEWMODE
023576,000330: 32,6345 00014 OCT 00014
023577,000331:
023578,000332: 32,6346 04000 TC INTPRET
023579,000333:
023580,000334: 32,6347 75176 VMOVE 0 # SAVE PRESENT CDUX,Y,Z
023581,000335: 32,6350 01345 DUPCDU
023582,000336: 32,6351 33323 STORE CDUBUF
023583,000337:
023584,000338: 32,6352 75575 AXT,1 1 # FORM DP CDUX,Y,Z
023585,000339: 32,6353 76776 ITC
023586,000340: 32,6354 00007 6
023587,000341: 32,6355 12001 CDUTRIG
023588,000342:
023589,000343: 32,6356 75176 VMOVE 0 # SAVE DUPLICATE CDUX,Y,Z
023590,000344: 32,6357 01315 CDUTEMP # SCALED AT 1 REV
023591,000345: 32,6360 33345 STORE DUPCDU
023592,000346:
023593,000347: 32,6361 47575 NOLOD 1
023594,000348: 32,6362 74765 VSU AXT,1
023595,000349: 32,6363 01323 CDUBUF
023596,000350: 32,6364 00007 6
023597,000351: 32,6365 33315 STORE CDUTEMP
023598,000352:
023599,000353: 32,6366 76776 ITC 0 # COMPUTE SIN OF CDUX,Y,Z
023600,000354: 32,6367 12041 SINCOS # DIFFERENCES AND PUT IN SINCDU,+2,+4
023601,000355:
023602,000356: 32,6370 71174 ABVAL 2
023603,000357: 32,6371 66756 DSU BMN
023604,000358: 32,6372 77576 EXIT
023605,000359: 32,6373 01331 SINCDU
023606,000360: 32,6374 24406 CRIT
023607,000361: 32,6375 24402 NOTUMBLE
023608,000362:
023609,000363: 32,6376 03424 TC FLAG1UP # SET TUMB FLAG
023610,000364: 32,6377 00001 OCT 00001
023611,000365:
023612,000366: 32,6400 02124 TC ENDOFJOB
023613,000367:
023614,000368: 32,6401 77576 NOTUMBLE EXIT 0
023615,000369: 32,6402 03436 TC FLAG1DWN # REMOVE TUMBLE FLAG
023616,000370: 32,6403 00001 OCT 00001
023617,000371:
023618,000372: 32,6404 02124 TC ENDOFJOB
023619,000373:
023620,000374: 32,6405 00262 25271 CRIT 2DEC 0.010905 # SIN(5DEG/2) SCALED AT 2(+2)
023621,000375:
023622,000376:
023623,000377: 32,6407 40036 S4BSMSEP CS TIME1 # BRANCH HERE ON RECEIPT OF S4B/CSM SEP
023624,000378: 32,6410 50666 TS TBASE4
023625,000379:
023626,000380:
023627,000381: 32,6411 03401 TC RELAYON # SET SCS +X TRANS, ATTITUDE CONTROL MODE,
023628,000382: 32,6412 40221 OCT 40221 # GIMBAL MOT POWER DISCRETES (C27,23,30)
023629,000383:
023630,000384: 32,6413 34516 CAF BIT1 # TEST IF TUMB FLAG SET
023631,000385: 32,6414 70646 MASK FLAGWRD1
023632,000386: 32,6415 10000 CCS A
023633,000387: 32,6416 06527 TC SETUMB2
023634,000388:
023635,000389: 32,6417 03424 TC FLAG1UP # SET INTP FLAG
023636,000390: 32,6420 01000 INTPMASK OCT 01000
023637,000391:
023638,000392: 32,6421 02276 TC PHASCHNG
023639,000393: 32,6422 01404 OCT 01404
023640,000394:
023641,000395: 32,6423 20017 INHINT
023642,000396: 32,6424 36556 CAF 1.7SEC # WAIT 1.7 SECS FOR RECEIPT OF ABORT SIG.
023643,000397: 32,6425 02173 TC WAITLIST
023644,000398: 32,6426 64443 CADR ABRTWAIT
023645,000399:
023646,000400: 32,6427 03310 TRYGRAB TC GRABDSP # TRY TO GRAB DISPLAY
023647,000401: 32,6430 06435 TC CLEANOUT # ALREADY GRABBED. FLUSH OUT GRABBER
023648,000402:
023649,000403: 32,6431 03370 TC FREEDSP # WE HAVE IT. AND LET IT GO
023650,000404:
023651,000405: 32,6432 03424 SETS4SEP TC FLAG1UP # SET S4BSM FLAG
023652,000406: 32,6433 00200 OCT 00200
023653,000407:
023654,000408: 32,6434 02124 TC ENDOFJOB
023655,000409:
023656,000410: 32,6435 20017 CLEANOUT INHINT
023657,000411: 32,6436 32170 CAF PRIO35 # MAKE HIGH PRIO JOB TO FLUSH OUT PINBALL
023658,000412: 32,6437 02052 TC NOVAC
023659,000413: 32,6440 11134 CADR ENEMA
023660,000414: 32,6441 20016 RELINT
023661,000415:
023662,000416: 32,6442 06432 TC SETS4SEP
023663,000417:
023664,000418: 32,6443 32160 ABRTWAIT CAF PRIO25 # CONTINUE WITH SAME PRIORITY AS S4BSMSEP
023665,000419: 32,6444 02052 TC NOVAC
023666,000420: 32,6445 64447 CADR ABORTEST
023667,000421: 32,6446 02256 TC TASKOVER
023668,000422:
023669,000423: 32,6447 34516 ABORTEST CAF ONE # SET VGCNTR FOR 2 PASSES THRU CALCVGB
023670,000424: 32,6450 51446 TS VGCNTR
023671,000425:
023672,000426:
023673,000427: 32,6451 36551 CAF ABRTMASK # TEST IF ABORT SIGNAL RECEIVED
023674,000428: 32,6452 70647 MASK FLAGWRD2
023675,000429: 32,6453 10000 CCS A
023676,000430: 32,6454 06476 TC SETABORT # IT WAS. BRANCH TO ABORT
023677,000431:
023678,000432: 32,6455 20017 INHINT
023679,000433: 32,6456 36557 CAF 10.5SEC
023680,000434: 32,6457 02173 TC WAITLIST
023681,000435: 32,6460 64577 CADR ATTCNOFF
023682,000436: 32,6461 20016 RELINT
023683,000437:
023684,000438: 32,6462 03470 TC SETBRNSW # SET BURN TO SPS1
023685,000439: 32,6463 00010 SPS1MASK OCT 00010
023686,000440:
023687,000441: 32,6464 36475 CAF SPS1LOC # SET LOCATION FOR NOMINAL SPS1 VR COMP
023688,000442: 32,6465 51470 TS VRCADR
023689,000443:
023690,000444: 32,6466 03424 TC FLAG1UP
023691,000445: 32,6467 00400 OCT 00400
023692,000446:
023693,000447: 32,6470 02362 TC NEWMODE # SET MAJOR MODE TO PRE-SPS1
023694,000448: 32,6471 00031 OCT 00031
023695,000449:
023696,000450: 32,6472 02276 TC PHASCHNG
023697,000451: 32,6473 01504 OCT 01504
023698,000452:
023699,000453: 32,6474 03157 TC JAMTERM # FLUSH V75 S4BSMSEP BACKUP.
023700,000454:
023701,000455: 32,6475 52544 SPS1LOC CADR 202SPS1
023702,000456:
023703,000457: 32,6476 02276 SETABORT TC PHASCHNG
023704,000458: 32,6477 02004 OCT 02004
023705,000459:
023706,000460: 32,6500 20017 INHINT
023707,000461: 32,6501 36560 CAF 0.8SEC # START ENGINE IN 1.5 SECS
023708,000462: 32,6502 02173 TC WAITLIST
023709,000463: 32,6503 64577 CADR ATTCNOFF
023710,000464: 32,6504 20016 RELINT
023711,000465:
023712,000466: 32,6505 05654 REDO4.16 TC BANKCALL # SET IMU TO ATT. CONTROL MODE
023713,000467: 32,6506 30223 CADR IMUATTC
023714,000468: 32,6507 03502 TC SETHETAD # SET THETAD,+1,+2 TO AGREE WITH CDUX,Y,Z
023715,000469:
023716,000470: 32,6510 36526 CAF ABORTLOC # SET LOCATION FOR ABORT VR COMPUTATIONS
023717,000471: 32,6511 51470 TS VRCADR
023718,000472:
023719,000473: 32,6512 35503 CAF TWO # SET VGCNTR FOR THREE PASSES THROUGH
023720,000474: 32,6513 51446 TS VGCNTR # CALCVGB BEFORE ISSUING STEER COMMANDS
023721,000475:
023722,000476: 32,6514 37721 CAF 35DEG # SET THRUST ANGLE TO 35 DEG ABOVE HORIZON
023723,000477: 32,6515 51442 TS LOOKANG
023724,000478:
023725,000479: 32,6516 03424 TC FLAG1UP # SET STEER FLAG FOR ABORT STEERING
023726,000480: 32,6517 00010 OCT 00010
023727,000481:
023728,000482: 32,6520 02362 TC NEWMODE # SET MAJOR MODE TO ABORT BURN
023729,000483: 32,6521 00073 OCT 00073
023730,000484:
023731,000485: 32,6522 05654 TC BANKCALL # WAIT FOR MODE SWITCH TO COMPLETE
023732,000486: 32,6523 30331 CADR IMUSTALL
023733,000487: 32,6524 03074 TC CURTAINS # CATCH-ALL FOR FAILURE TO IMU MODE SWITCH
023734,000488:
023735,000489: 32,6525 03157 TC JAMTERM # FLUSH OUT V75
023736,000490:
023737,000491: 32,6526 52631 ABORTLOC CADR 202ABORT
023738,000492:
023739,000493: 32,6527 03470 SETUMB2 TC SETBRNSW # SET BURN TO TUMBLE ARREST
023740,000494: 32,6530 00001 ARRSTMSK OCT 00001
023741,000495:
023742,000496: 32,6531 33523 CAF FIFTN
023743,000497: 32,6532 02312 TC NEWPHASE
023744,000498: 32,6533 00004 OCT 4
023745,000499:
023746,000500: 32,6534 20017 INHINT
023747,000501: 32,6535 36746 CAF 2.5SEC # START ENGINE AT 3.0 SECS AFTER SEP.
023748,000502: 32,6536 02173 TC WAITLIST # SEPARATION
023749,000503: 32,6537 64577 CADR ATTCNOFF
023750,000504: 32,6540 20016 RELINT
023751,000505:
023752,000506: 32,6541 02362 TC NEWMODE # SET MAJOR MODE TO TUMBLE ARREST BURN
023753,000507: 32,6542 00074 OCT 00074
023754,000508:
023755,000509: 32,6543 06427 TC TRYGRAB
023756,000510:
023757,000511: 32,6544 36555 ABORTRPT CAF UPBRTMSK # COME HERE ON RECEIPT OF UPLINK ABORT
023758,000512: 32,6545 70647 MASK FLAGWRD2
023759,000513: 32,6546 10000 CCS A
023760,000514: 32,6547 02124 TC ENDOFJOB
023761,000515:
023762,000516: 32,6550 03470 TC SETBRNSW # SET BURN TO ABORT
023763,000517: 32,6551 00002 ABRTMASK OCT 00002
023764,000518:
023765,000519: 32,6552 03401 TC RELAYON # SET SCS BACKUP ABORT DISCRETE (C33)
023766,000520: 32,6553 42000 OCT 42000
023767,000521:
023768,000522: 32,6554 02124 TC ENDOFJOB
023769,000523: 32,6555 00011 UPBRTMSK OCT 11
023770,000524: 32,6556 00252 1.7SEC DEC 170 B-14
023771,000525: 32,6557 02032 10.5SEC DEC 1050 B-14
023772,000526: 32,6560 00120 0.8SEC DEC 80 B-14
023773,000527:
023774,000528:
023775,000529: 32,6561 03401 GIMPOWON TC RELAYON # SET SCS GMP DISCRETE (C30)
023776,000530: 32,6562 40200 OCT 40200
023777,000531:
023778,000532: 32,6563 33534 CAF TWENTY4
023779,000533: 32,6564 02312 TC NEWPHASE
023780,000534: 32,6565 00004 OCT 00004
023781,000535:
023782,000536: 32,6566 40036 CS TIME1
023783,000537: 32,6567 50666 TS TBASE4
023784,000538:
023785,000539: 32,6570 33535 CAF TWENTY5
023786,000540: 32,6571 02312 TC NEWPHASE
023787,000541: 32,6572 00004 OCT 00004
023788,000542:
023789,000543: 32,6573 36750 CAF 3.5SEC
023790,000544: 32,6574 02173 TC WAITLIST
023791,000545: 32,6575 64577 CADR ATTCNOFF
023792,000546:
023793,000547: 32,6576 02256 TC TASKOVER
023794,000548:
023795,000549: 32,6577 33526 ATTCNOFF CAF EIGHTN
023796,000550: 32,6600 02312 TC NEWPHASE
023797,000551: 32,6601 00004 OCT 00004
023798,000552:
023799,000553: 32,6602 40036 CS TIME1
023800,000554: 32,6603 50666 TS TBASE4
023801,000555:
023802,000556: 32,6604 03413 TC RELAYOFF # REMOVE SCS ATT. CONTROL DISCRETE (C23)
023803,000557: 32,6605 40001 OCT 40001
023804,000558:
023805,000559: 32,6606 33527 CAF NINETEEN
023806,000560: 32,6607 02312 TC NEWPHASE
023807,000561: 32,6610 00004 OCT 00004
023808,000562:
023809,000563: 32,6611 36743 CAF 0.25SEC
023810,000564: 32,6612 02173 TC WAITLIST
023811,000565: 32,6613 64615 CADR DVMODEON
023812,000566:
023813,000567: 32,6614 02256 TC TASKOVER
023814,000568:
023815,000569: 32,6615 03401 DVMODEON TC RELAYON # SET SCS DV MODE DISCRETE (C24)
023816,000570: 32,6616 40002 OCT 40002
023817,000571:
023818,000572: 32,6617 33530 CAF TWENTY0
023819,000573: 32,6620 02312 TC NEWPHASE
023820,000574: 32,6621 00004 OCT 00004
023821,000575:
023822,000576: 32,6622 36743 CAF 0.25SEC
023823,000577: 32,6623 02173 TC WAITLIST
023824,000578: 32,6624 64632 CADR ENGINEON
023825,000579: 32,6625 02256 TC TASKOVER
023826,000580:
023827,000581: 32,6626 44516 TASK4OUT CS ONE
023828,000582: 32,6627 02312 TC NEWPHASE
023829,000583: 32,6630 00004 OCT 00004
023830,000584:
023831,000585: 32,6631 02256 TC TASKOVER
023832,000586:
023833,000587: 32,6632 44502 ENGINEON CS BIT13 # SET BIT13, OUT1 TO 1 (ENGINE ON)
023834,000588: 32,6633 51447 TS DVCNTR # MUST BE NEGATIVE INITIALLY
023835,000589: 32,6634 70011 MASK OUT1
023836,000590: 32,6635 64502 AD BIT13
023837,000591: 32,6636 50011 TS OUT1
023838,000592:
023839,000593: 32,6637 02700 TC READTIME +1
023840,000594: 32,6640 40572 CS RUPTSTOR
023841,000595: 32,6641 51462 TS TENGON
023842,000596: 32,6642 40573 CS RUPTSTOR +1
023843,000597: 32,6643 51463 TS TENGON +1
023844,000598:
023845,000599: 32,6644 03424 TC FLAG1UP # SET DVMON, STEER FLAGS
023846,000600: 32,6645 00030 OCT 00030
023847,000601:
023848,000602: 32,6646 40647 CS FLAGWRD2
023849,000603: 32,6647 76463 MASK SPS1MASK
023850,000604: 32,6650 10000 CCS A
023851,000605: 32,6651 06675 TC 3OR4TEST
023852,000606:
023853,000607: 32,6652 36753 CAF 15SEC
023854,000608: 32,6653 02173 TC WAITLIST
023855,000609: 32,6654 64740 CADR PLUSXOFF
023856,000610:
023857,000611: 32,6655 33531 CAF TWENTY1
023858,000612: 32,6656 02312 TC NEWPHASE
023859,000613: 32,6657 00004 OCT 00004
023860,000614:
023861,000615: 32,6660 10651 CCS PHASE2 # TEST FOR PHASE2 VALUE.
023862,000616: 32,6661 64341 AD NEG3 # WAS IT GREATER THAN 4 ORIGINALLY...
023863,000617: 32,6662 10000 CCS A # TEST NEW SUM.
023864,000618: 32,6663 06722 TC ROLLTASK
023865,000619: 32,6664 06722 TC ROLLTASK # GOES UNLESS PHASE2 WERE +1,2,3, OR 4.
023866,000620: 32,6665 06666 TC +1 # 1,2 OR 3 FALL IN HERE
023867,000621:
023868,000622: 32,6666 44516 CS ONE # +4 COMES HERE.
023869,000623: 32,6667 02312 TC NEWPHASE # IN WHICH CASES, WE MAKE GROUP 2 INACTIVE
023870,000624: 32,6670 00002 OCT 2
023871,000625:
023872,000626: 32,6671 32170 CAF PRIO35 # AND THEN FLUSH OUT EVERYTHING.
023873,000627: 32,6672 02052 TC NOVAC
023874,000628: 32,6673 11134 CADR ENEMA # FORCE A PROGRAMMED RESTART
023875,000629:
023876,000630: 32,6674 02256 TC TASKOVER
023877,000631:
023878,000632:
023879,000633:
023880,000634: 32,6675 36754 3OR4TEST CAF SPS34MSK
023881,000635: 32,6676 70647 MASK FLAGWRD2
023882,000636: 32,6677 10000 CCS A
023883,000637: 32,6700 06702 TC +2
023884,000638: 32,6701 06713 TC TUMTEST2 # IT IS NOT
023885,000639:
023886,000640: 32,6702 33533 CAF TWENTY3
023887,000641: 32,6703 02312 TC NEWPHASE
023888,000642: 32,6704 00004 OCT 00004
023889,000643:
023890,000644: 32,6705 36747 CAF 3SEC # SHUT ENGINE DOWN IN 3 SECS
023891,000645: 32,6706 02173 TC WAITLIST
023892,000646: 32,6707 64755 CADR ENGINOFF
023893,000647:
023894,000648: 32,6710 03436 STEEROFF TC FLAG1DWN
023895,000649: 32,6711 00010 STEERMSK OCT 00010
023896,000650:
023897,000651: 32,6712 02256 TC TASKOVER
023898,000652:
023899,000653: 32,6713 36530 TUMTEST2 CAF ARRSTMSK # TEST IF BURN IS TUMBLE ARREST
023900,000654: 32,6714 70647 MASK FLAGWRD2
023901,000655: 32,6715 10000 CCS A
023902,000656: 32,6716 06735 TC STR4OUT
023903,000657:
023904,000658: 32,6717 33532 CAF TWENTY2
023905,000659: 32,6720 02312 TC NEWPHASE
023906,000660: 32,6721 00004 OCT 4
023907,000661:
023908,000662: 32,6722 40646 ROLLTASK CS FLAGWRD1 # TEST IF STEER FLAG SET
023909,000663: 32,6723 76711 MASK STEERMSK
023910,000664: 32,6724 10000 CCS A
023911,000665: 32,6725 02256 TC TASKOVER # IT IS NOT. KILL ROLLTASK
023912,000666:
023913,000667: 32,6726 34502 CAF PRIO10 # SUBMIT JOB TO DO ROLL STEERING
023914,000668: 32,6727 02046 TC FINDVAC
023915,000669: 32,6730 66332 CADR ROLLJOB
023916,000670:
023917,000671: 32,6731 36751 REDO4.22 CAF 5SEC32 # RECALL ROLLTASK IN 5 SECS
023918,000672: 32,6732 02173 TC WAITLIST
023919,000673: 32,6733 64722 CADR ROLLTASK
023920,000674:
023921,000675: 32,6734 02256 TC TASKOVER
023922,000676:
023923,000677: 32,6735 03436 STR4OUT TC FLAG1DWN
023924,000678: 32,6736 00010 OCT 00010
023925,000679:
023926,000680: 32,6737 06626 TC TASK4OUT
023927,000681:
023928,000682: 32,6740 03413 PLUSXOFF TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE (C27)
023929,000683: 32,6741 40020 OCT 40020
023930,000684:
023931,000685: 32,6742 02256 TC TASKOVER
023932,000686:
023933,000687: 32,6743 00031 0.25SEC DEC 25 B-14
023934,000688: 32,6744 00144 1SEC32 DEC 100 B-14
023935,000689: 32,6745 00175 1.25SEC DEC 125 B-14
023936,000690: 32,6746 00372 2.5SEC DEC 250 B-14
023937,000691: 32,6747 00454 3SEC DEC 300 B-14
023938,000692: 32,6750 00536 3.5SEC DEC 350 B-14
023939,000693: 32,6751 00764 5SEC32 DEC 500 B-14
023940,000694: 32,6752 01130 6SEC DEC 600 B-14
023941,000695: 32,6753 02734 15SEC DEC 1500 B-14
023942,000696: 32,6754 4503 SHDNMSK EQUALS BIT12
023943,000697: 32,6754 00140 SPS34MSK OCT 00140
023944,000698:
023945,000699:
023946,000700: 32,6755 44502 ENGINOFF CS BIT13 # SET ENGINE OFF
023947,000701: 32,6756 70011 MASK OUT1
023948,000702: 32,6757 50011 TS OUT1
023949,000703:
023950,000704: 32,6760 02700 TC READTIME +1 # SAVE TIME OF CUTOFF
023951,000705: 32,6761 40572 CS RUPTSTOR
023952,000706: 32,6762 51462 TS TCUTOFF
023953,000707: 32,6763 40573 CS RUPTSTOR +1
023954,000708: 32,6764 51463 TS TCUTOFF +1
023955,000709:
023956,000710: 32,6765 03436 TC FLAG1DWN # DISABLE DV MONITOR
023957,000711: 32,6766 00020 OCT 00020
023958,000712:
023959,000713: 32,6767 40044 CS PIPAX # SAVE DELTAV AT ENGINE OFF TIME.
023960,000714: 32,6770 51222 TS VAVEGON
023961,000715: 32,6771 40045 CS PIPAY
023962,000716: 32,6772 51223 TS VAVEGON +1 # USE VAVEGON AREA FOR THIS.
023963,000717: 32,6773 40046 CS PIPAZ
023964,000718: 32,6774 51224 TS VAVEGON +2
023965,000719:
023966,000720:
023967,000721: 32,6775 40647 CS FLAGWRD2 # TEST IF THAT WAS A TUMBLE BURN
023968,000722: 32,6776 76530 MASK ARRSTMSK
023969,000723: 32,6777 10000 CCS A
023970,000724: 32,7000 07015 TC SPS1TEST
023971,000725:
023972,000726: 32,7001 34516 CAF ONE
023973,000727: 32,7002 51446 TS VGCNTR
023974,000728:
023975,000729: 32,7003 03424 TC FLAG1UP # SET INTP,INIT FLAGS
023976,000730: 32,7004 01400 OCT 01400
023977,000731:
023978,000732: 32,7005 36526 CAF ABORTLOC # SET LOCATION FOR ABORT VR COMPUTATIONS
023979,000733: 32,7006 51470 TS VRCADR
023980,000734:
023981,000735:
023982,000736: 32,7007 34473 CAF THREE
023983,000737: 32,7010 02312 TC NEWPHASE
023984,000738: 32,7011 00003 OCT 00003
023985,000739:
023986,000740: 32,7012 03470 REDO3.3 TC SETBRNSW # SET BURN TO ABORT AFTER TUMBLE
023987,000741: 32,7013 00004 TABTMASK OCT 00004
023988,000742:
023989,000743: 32,7014 02256 TC TASKOVER
023990,000744:
023991,000745: 32,7015 33540 SPS1TEST CAF TWENTY8
023992,000746: 32,7016 02312 TC NEWPHASE
023993,000747: 32,7017 00004 OCT 4
023994,000748:
023995,000749: 32,7020 41463 CS TCUTOFF +1
023996,000750: 32,7021 50665 TS TBASE3
023997,000751: 32,7022 50666 TS TBASE4
023998,000752:
023999,000753: 32,7023 40647 CS FLAGWRD2 # TEST IF THAT WAS A SPS1 BURN
024000,000754: 32,7024 76463 MASK SPS1MASK
024001,000755: 32,7025 10000 CCS A
024002,000756: 32,7026 07046 TC SPS2TEST
024003,000757:
024004,000758: 32,7027 36557 CAF 10.5SEC # CALL COAST PHASE IN 10.5 SECS
024005,000759: 32,7030 02173 TC WAITLIST
024006,000760: 32,7031 65171 CADR COASTPHS
024007,000761:
024008,000762: 32,7032 37306 CAF 7SEC # DUPLICATE GMPOFF SEQUENCE BEFORE SETTING
024009,000763: 32,7033 02173 TC WAITLIST # BURN SWITCH. (FOR RESTART LOGIC.)
024010,000764: 32,7034 65133 CADR GIMPOWOF
024011,000765:
024012,000766: 32,7035 35502 CAF FOUR # 3.4 RESTART KEEPS POWER OFF SEQ. GOING.
024013,000767: 32,7036 02312 TC NEWPHASE
024014,000768: 32,7037 00003 OCT 3
024015,000769:
024016,000770: 32,7040 34473 CAF THREE
024017,000771: 32,7041 02312 TC NEWPHASE
024018,000772: 32,7042 00004 OCT 00004
024019,000773:
024020,000774:
024021,000775: 32,7043 03470 REDO4.3 TC SETBRNSW # SET BURN TO SPS2
024022,000776: 32,7044 00020 SPS2MASK OCT 00020
024023,000777:
024024,000778: 32,7045 02256 TC TASKOVER
024025,000779:
024026,000780: 32,7046 40647 SPS2TEST CS FLAGWRD2 # TEST IF THAT WAS A SPS2 BURN
024027,000781: 32,7047 77044 MASK SPS2MASK
024028,000782: 32,7050 10000 CCS A
024029,000783: 32,7051 07071 TC SPS3TEST
024030,000784:
024031,000785: 32,7052 37304 CAF 0.75SEC
024032,000786: 32,7053 02173 TC WAITLIST
024033,000787: 32,7054 65322 CADR CGTASK
024034,000788:
024035,000789: 32,7055 36752 CAF 6SEC # CALL FOR GMP ON IN 6 SECS
024036,000790: 32,7056 02173 TC WAITLIST
024037,000791: 32,7057 64561 CADR GIMPOWON
024038,000792:
024039,000793: 32,7060 35362 CAF SEVEN
024040,000794: 32,7061 02312 TC NEWPHASE
024041,000795: 32,7062 00003 OCT 00003
024042,000796:
024043,000797: 32,7063 33240 CAF TEN
024044,000798: 32,7064 02312 TC NEWPHASE
024045,000799: 32,7065 00004 OCT 00004
024046,000800:
024047,000801: 32,7066 03470 REDO4.10 TC SETBRNSW # SET BURN TO SPS3
024048,000802: 32,7067 00040 SPS3MASK OCT 00040
024049,000803:
024050,000804: 32,7070 02256 TC TASKOVER
024051,000805:
024052,000806: 32,7071 40647 SPS3TEST CS FLAGWRD2 # TEST IF THAT WAS A SPS3 BURN
024053,000807: 32,7072 77067 MASK SPS3MASK
024054,000808: 32,7073 10000 CCS A
024055,000809: 32,7074 07111 TC SETMOD23 # IT WAS NOT. (EITHER A, TABT, OR SPS4)
024056,000810:
024057,000811: 32,7075 33522 CAF FOURTN
024058,000812: 32,7076 02312 TC NEWPHASE
024059,000813: 32,7077 00004 OCT 00004
024060,000814:
024061,000815: 32,7100 36752 GMPON CAF 6SEC # CALL FOR ENGINE ON IN 10 SECS
024062,000816: 32,7101 02173 TC WAITLIST
024063,000817: 32,7102 64561 CADR GIMPOWON
024064,000818:
024065,000819: 32,7103 32144 REDO4.14 CAF PRIO7
024066,000820: 32,7104 02052 TC NOVAC
024067,000821: 32,7105 65166 CADR MODE44
024068,000822:
024069,000823: 32,7106 03470 TC SETBRNSW # SET BURN TO SPS4
024070,000824: 32,7107 00100 SPS4MASK OCT 00100
024071,000825: 32,7110 02256 TC TASKOVER
024072,000826:
024073,000827: 32,7111 32144 SETMOD23 CAF PRIO7 # MAKE JOB TO CHANGE MODE
024074,000828: 32,7112 02052 TC NOVAC
024075,000829: 32,7113 65163 CADR MODE23
024076,000830:
024077,000831: 32,7114 33516 CAF NINE
024078,000832: 32,7115 02312 TC NEWPHASE
024079,000833: 32,7116 00003 OCT 00003
024080,000834:
024081,000835: 32,7117 44516 CS ONE
024082,000836: 32,7120 02312 TC NEWPHASE
024083,000837: 32,7121 00004 OCT 00004
024084,000838:
024085,000839: 32,7122 03413 GMPOFF TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE (C27)
024086,000840: 32,7123 40020 OCT 40020
024087,000841:
024088,000842: 32,7124 37306 CAF 7SEC
024089,000843: 32,7125 02173 TC WAITLIST
024090,000844: 32,7126 65133 CADR GIMPOWOF
024091,000845:
024092,000846: 32,7127 35502 CAF FOUR
024093,000847: 32,7130 02312 TC NEWPHASE
024094,000848: 32,7131 00003 OCT 00003
024095,000849:
024096,000850: 32,7132 02256 TC TASKOVER
024097,000851:
024098,000852: 32,7133 36750 GIMPOWOF CAF 3.5SEC # CALL FOR DV MODE OFF IN 3.5 SECS
024099,000853: 32,7134 02173 TC WAITLIST
024100,000854: 32,7135 65147 CADR DVMODOFF
024101,000855:
024102,000856: 32,7136 03413 TC RELAYOFF
024103,000857: 32,7137 40200 OCT 40200
024104,000858:
024105,000859: 32,7140 34477 CAF FIVE
024106,000860: 32,7141 02312 TC NEWPHASE
024107,000861: 32,7142 00003 OCT 00003
024108,000862:
024109,000863: 32,7143 02256 TC TASKOVER
024110,000864:
024111,000865: 32,7144 03413 GMPOFF3 TC RELAYOFF # REMOVE SCS GMP DISCRETE (C30)
024112,000866: 32,7145 40200 OCT 40200
024113,000867:
024114,000868: 32,7146 06333 TC TASK3OUT
024115,000869:
024116,000870: 32,7147 03413 DVMODOFF TC RELAYOFF # REMOVE SCS DV MODE DISCRETE (C24)
024117,000871: 32,7150 40002 OCT 40002
024118,000872:
024119,000873: 32,7151 34475 CAF SIX
024120,000874: 32,7152 02312 TC NEWPHASE
024121,000875: 32,7153 00003 OCT 00003
024122,000876:
024123,000877: 32,7154 36743 CAF 0.25SEC
024124,000878: 32,7155 02173 TC WAITLIST
024125,000879: 32,7156 65160 CADR ATTCONON
024126,000880:
024127,000881: 32,7157 02256 TC TASKOVER
024128,000882:
024129,000883: 32,7160 03401 ATTCONON TC RELAYON # SET SCS ATT. CONT. DISCRETE (C23)
024130,000884: 32,7161 40001 OCT 40001
024131,000885:
024132,000886: 32,7162 06333 TC TASK3OUT
024133,000887:
024134,000888: 32,7163 02362 MODE23 TC NEWMODE # SET MAJOR MODE TO ATTITUDE HOLD
024135,000889: 32,7164 00023 OCT 00023
024136,000890: 32,7165 02124 TC ENDOFJOB
024137,000891:
024138,000892: 32,7166 02362 MODE44 TC NEWMODE # SET MAJOR MODE TO SPS4
024139,000893: 32,7167 00044 OCT 00044
024140,000894: 32,7170 02124 TC ENDOFJOB
024141,000895:
024142,000896:
024143,000897:
024144,000898: 32,7171 03424 COASTPHS TC FLAG1UP # GET SET TO START COAST PHASE ACTIVITY
024145,000899: 32,7172 40000 COASTMSK OCT 40000 # SET COAST FLAG
024146,000900:
024147,000901: 32,7173 37217 CAF 289.5SEC +1 # SET UP LONGCALL TO FDAONTSK IN 289.5 SEC
024148,000902: 32,7174 51461 TS LONGTIME +1
024149,000903: 32,7175 37216 CAF 289.5SEC
024150,000904: 32,7176 51460 TS LONGTIME
024151,000905:
024152,000906: 32,7177 37215 CAF FDAILOC
024153,000907: 32,7200 51467 TS CALLCADR
024154,000908:
024155,000909: 32,7201 05742 TC IBNKCALL # MAKE WAITLIST CALL MORE THAN 120 SECS
024156,000910: 32,7202 10552 CADR LONGCALL
024157,000911:
024158,000912: 32,7203 32146 CAF PRIO12 # ESTABLISH INITIAL VERTICAL JOB
024159,000913: 32,7204 02046 TC FINDVAC
024160,000914: 32,7205 66642 CADR VERTINIT
024161,000915:
024162,000916: 32,7206 35503 CAF TWO
024163,000917: 32,7207 02312 TC NEWPHASE
024164,000918: 32,7210 00002 OCT 00002
024165,000919:
024166,000920: 32,7211 35502 CAF FOUR
024167,000921: 32,7212 02312 TC NEWPHASE
024168,000922: 32,7213 00004 OCT 00004
024169,000923:
024170,000924: 32,7214 02256 TC TASKOVER
024171,000925:
024172,000926: 32,7215 65220 FDAILOC CADR FDAONTSK
024173,000927: 32,7216 00001 30426 289.5SEC 2DEC 28950 B-28
024174,000928:
024175,000929:
024176,000930: 32,7220 03401 FDAONTSK TC RELAYON # SET SCS FDAI ALIGN DISCRETE (C31)
024177,000931: 32,7221 40400 OCT 40400
024178,000932:
024179,000933: 32,7222 37252 CAF 10SEC
024180,000934: 32,7223 02173 TC WAITLIST
024181,000935: 32,7224 65231 CADR FDAOFTSK # CALL FDAI OFF IN 10 SECS
024182,000936:
024183,000937: 32,7225 34477 CAF FIVE
024184,000938: 32,7226 02312 TC NEWPHASE
024185,000939: 32,7227 00004 OCT 00004
024186,000940:
024187,000941: 32,7230 02256 TC TASKOVER
024188,000942:
024189,000943: 32,7231 37650 FDAOFTSK CAF -310SEC +1
024190,000944: 32,7232 61557 AD TCOAST +1
024191,000945: 32,7233 51461 TS LONGTIME +1
024192,000946:
024193,000947: 32,7234 35501 CAF ZERO
024194,000948: 32,7235 67647 AD -310SEC
024195,000949: 32,7236 61556 AD TCOAST
024196,000950: 32,7237 51460 TS LONGTIME
024197,000951:
024198,000952: 32,7240 37253 CAF UPTSKLOC
024199,000953: 32,7241 51467 TS CALLCADR
024200,000954:
024201,000955: 32,7242 05742 TC IBNKCALL
024202,000956: 32,7243 10552 CADR LONGCALL
024203,000957:
024204,000958: 32,7244 34475 CAF SIX
024205,000959: 32,7245 02312 TC NEWPHASE
024206,000960: 32,7246 00004 OCT 4
024207,000961:
024208,000962: 32,7247 03413 FDOFTSK1 TC RELAYOFF # REMOVE SCS FDAI ALIGN DISCRETE (C31).
024209,000963: 32,7250 40400 OCT 40400
024210,000964:
024211,000965: 32,7251 02256 TC TASKOVER
024212,000966:
024213,000967: 32,7252 01750 10SEC DEC 1000 B-14
024214,000968:
024215,000969: 32,7253 67122 UPTSKLOC CADR UPTASK
024216,000970:
024217,000971: 32,7254 37446 PLUSX2 CAF PIPCADR
024218,000972: 32,7255 05750 TC ISWCALL
024219,000973:
024220,000974: 32,7256 37307 CAF 26SEC
024221,000975: 32,7257 02173 TC WAITLIST
024222,000976: 32,7260 64561 CADR GIMPOWON
024223,000977:
024224,000978: 32,7261 03401 TC RELAYON # SET SCS +X TRANS DISCRETE (C27)
024225,000979: 32,7262 40020 OCT 40020
024226,000980:
024227,000981: 32,7263 03460 TC FLAG2DWN # DISABLE FREE-FALL GYRO BIAS COMPENSATION
024228,000982: 32,7264 40000 OCT 40000 # (REMOVE DRIFT FLAG)
024229,000983:
024230,000984: 32,7265 41465 CS PIPTIME +1
024231,000985: 32,7266 50667 TS TBASE5
024232,000986:
024233,000987: 32,7267 34475 CAF SIX
024234,000988: 32,7270 02312 TC NEWPHASE
024235,000989: 32,7271 00005 OCT 00005
024236,000990:
024237,000991: 32,7272 33525 CAF SEVENTN
024238,000992: 32,7273 02312 TC NEWPHASE
024239,000993: 32,7274 00004 OCT 00004
024240,000994:
024241,000995: 32,7275 37642 CAF 2SEC
024242,000996: 32,7276 02173 TC WAITLIST
024243,000997: 32,7277 65344 CADR READACCS
024244,000998:
024245,000999: 32,7300 32170 CAF PRIO35
024246,001000: 32,7301 02052 TC NOVAC
024247,001001: 32,7302 65310 CADR MODE32
024248,001002:
024249,001003: 32,7303 02256 TC TASKOVER
024250,001004:
024251,001005: 32,7304 00113 0.75SEC DEC 75 B-14
024252,001006: 32,7305 00144 1SEC DEC 100 B-14
024253,001007: 32,7306 01274 7SEC DEC 700 B-14
024254,001008: 32,7307 05050 26SEC DEC 2600 B-14
024255,001009:
024256,001010: 32,7310 02362 MODE32 TC NEWMODE
024257,001011: 32,7311 00032 OCT 00032
024258,001012:
024259,001013: 32,7312 03424 TC FLAG1UP # SET INTP FLAG
024260,001014: 32,7313 01000 OCT 01000
024261,001015:
024262,001016: 32,7314 31465 XCH PIPTIME +1 # CALL LASTBIAS ROUTINE
024263,001017: 32,7315 50115 TS MPAC
024264,001018:
024265,001019: 32,7316 37321 CAF COMP2SEC
024266,001020: 32,7317 05720 TC POSTJUMP
024267,001021: 32,7320 31331 CADR LASTBIAS
024268,001022:
024269,001023: 32,7321 31000 COMP2SEC DEC 200 B+6
024270,001024:
024271,001025: 32,7322 32154 CGTASK CAF PRIO21 # ESTABLISH CGJOB TO REMOVE ANGULAR CG
024272,001026: 32,7323 02046 TC FINDVAC # MOTION DEVELOPED DURING SPS2 BURN
024273,001027: 32,7324 65334 CADR CGJOB
024274,001028:
024275,001029: 32,7325 36745 CAF 1.25SEC
024276,001030: 32,7326 02173 TC WAITLIST
024277,001031: 32,7327 65144 CADR GMPOFF3
024278,001032:
024279,001033: 32,7330 34513 CAF EIGHT
024280,001034: 32,7331 02312 TC NEWPHASE
024281,001035: 32,7332 00003 OCT 3
024282,001036:
024283,001037: 32,7333 02256 TC TASKOVER
024284,001038:
024285,001039: 32,7334 02362 CGJOB TC NEWMODE # SET MAJOR MODE TO SPS3 BURN
024286,001040: 32,7335 00043 OCT 00043
024287,001041:
024288,001042: 32,7336 04000 TC INTPRET
024289,001043:
024290,001044: 32,7337 75175 VMOVE 1 # GET NOMINAL SPS2 CG CHANGE ABOUT IMU
024291,001045: 32,7340 76575 RTB EXIT # GIMBAL AXES INTO VAC, SCALED AT KE/2 REV
024292,001046: 32,7341 13635 DELCDU # (KE =1.5), AND DECREMENT THETAD, +1, +2
024293,001047: 32,7342 20423 INCRCDUS
024294,001048:
024295,001049: 32,7343 02124 TC ENDOFJOB
024296,001050:
024297,001051:
024298,001052: 32,7344 37446 READACCS CAF PIPCADR # BRANCH TO PIPA READ ROUTINE
024299,001053: 32,7345 05750 TC ISWCALL
024300,001054:
024301,001055: 32,7346 35503 CAF TWO
024302,001056: 32,7347 02312 TC NEWPHASE
024303,001057: 32,7350 00005 OCT 00005
024304,001058:
024305,001059: 32,7351 41465 REDO5.2 CS PIPTIME +1
024306,001060: 32,7352 50667 TS TBASE5
024307,001061:
024308,001062: 32,7353 35503 CAF TWO
024309,001063: 32,7354 51035 TS PIPAGE
024310,001064:
024311,001065: 32,7355 34514 CAF ENTRYMSK # TEST IF ENTRY FLAG SET
024312,001066: 32,7356 70646 MASK FLAGWRD1
024313,001067: 32,7357 10000 CCS A
024314,001068: 32,7360 07404 TC SETUPENT
024315,001069:
024316,001070: 32,7361 40646 CS FLAGWRD1 # TEST IF COAST FLAG SET
024317,001071: 32,7362 77172 MASK COASTMSK
024318,001072: 32,7363 10000 CCS A
024319,001073: 32,7364 03070 TC CCSHOLE
024320,001074: 32,7365 07410 TC SETUPVRT # IT IS. DO NOT RESET READACCS
024321,001075:
024322,001076: 32,7366 37450 CAF ABORT32 # TEST IF ABORT BURN IS SET. IF SO, NEED
024323,001077: 32,7367 70647 MASK FLAGWRD2 # 2.5SECS COMPUTING INTERVAL
024324,001078: 32,7370 10000 CCS A
024325,001079:
024326,001080: 32,7371 07414 TC CHANGEDT # IT IS
024327,001081:
024328,001082: 32,7372 37642 CAF 2SEC # IT IS NOT. CALL READACCS IN 2 SECS
024329,001083: 32,7373 02173 TC WAITLIST
024330,001084: 32,7374 65344 CADR READACCS
024331,001085:
024332,001086: 32,7375 32152 MAKESERV CAF PRIO16 # ESTABLISH SERVICER ROUTINE
024333,001087: 32,7376 02046 TC FINDVAC
024334,001088: 32,7377 65453 CADR SERVICER
024335,001089:
024336,001090: 32,7400 34473 CAF THREE
024337,001091: 32,7401 02312 TC NEWPHASE
024338,001092: 32,7402 00005 OCT 5
024339,001093:
024340,001094: 32,7403 02256 TC TASKOVER
024341,001095:
024342,001096: 32,7404 37642 SETUPENT CAF 2SEC # CALL ENTRY ROUTINES IN 2 SECS
024343,001097: 32,7405 02173 TC WAITLIST
024344,001098: 32,7406 56004 CADR PIPUP
024345,001099:
024346,001100: 32,7407 07375 TC MAKESERV
024347,001101:
024348,001102: 32,7410 37642 SETUPVRT CAF 2SEC # CALL VERTASK IN 2 SECS
024349,001103: 32,7411 02173 TC WAITLIST
024350,001104: 32,7412 66665 CADR VERTASK
024351,001105:
024352,001106: 32,7413 07375 TC MAKESERV
024353,001107:
024354,001108: 32,7414 34516 CHANGEDT CAF BIT1 # FORCE SERVICER TO SET DELTAT TO 2.5 SECS
024355,001109: 32,7415 51030 TS DELTAT +1
024356,001110:
024357,001111: 32,7416 37451 CAF 2.5SEC32 # CALL READACCS IN 2.5 SECS
024358,001112: 32,7417 07373 TC MAKESERV -2
024359,001113:
024360,001114: 32,7420 37450 REREADAC CAF ABORT32 # READACCS RESTART LOCATION
024361,001115: 32,7421 70647 MASK FLAGWRD2
024362,001116: 32,7422 10000 CCS A
024363,001117: 32,7423 07426 TC SET2.5S
024364,001118:
024365,001119: 32,7424 37447 CAFREPIP CAF REPIPCAD
024366,001120: 32,7425 07345 TC READACCS +1
024367,001121:
024368,001122: 32,7426 47451 SET2.5S CS 2.5SEC32
024369,001123: 32,7427 60667 AD TBASE5
024370,001124: 32,7430 60036 AD TIME1
024371,001125: 32,7431 30572 XCH RUPTSTOR
024372,001126:
024373,001127: 32,7432 10572 CCS RUPTSTOR
024374,001128: 32,7433 07424 TC CAFREPIP
024375,001129: 32,7434 07424 TC CAFREPIP
024376,001130: 32,7435 37451 CAF 2.5SEC32
024377,001131: 32,7436 60572 AD RUPTSTOR
024378,001132:
024379,001133: 32,7437 64476 AD POSMAX
024380,001134: 32,7440 50000 TS A
024381,001135: 32,7441 07424 TC CAFREPIP
024382,001136:
024383,001137: 32,7442 40572 CS RUPTSTOR
024384,001138: 32,7443 02173 TC WAITLIST
024385,001139: 32,7444 65424 CADR CAFREPIP
024386,001140:
024387,001141: 32,7445 02256 TC TASKOVER
024388,001142:
024389,001143: 32,7446 61307 PIPCADR CADR PIPASR
024390,001144: 32,7447 61360 REPIPCAD CADR REPIPASR
024391,001145: 32,7450 4504 CHDTMASK EQUALS BIT11
024392,001146: 32,7450 4514 ENTRYMSK EQUALS BIT3
024393,001147: 32,7450 4504 READMASK EQUALS BIT11
024394,001148: 32,7450 00007 ABORT32 OCT 7
024395,001149: 32,7451 00372 2.5SEC32 DEC 250 B-14
024396,001150: 32,7452 00620 4SEC DEC 400 B-14
024397,001151:
024398,001152: 32,7453 05654 SERVICER TC BANKCALL # COMPENSATE THE PIPA DATA IN THE DELV
024399,001153: 32,7454 31007 CADR 1/PIPA # REGISTERS.
024400,001154:
024401,001155:
024402,001156: 32,7455 04000 REDO5.3 TC INTPRET
024403,001157:
024404,001158: 32,7456 76776 REGSTEP ITC 0
024405,001159: 32,7457 21540 CALCRVG
024406,001160:
024407,001161: 32,7460 33517 AVGRET CAF ELEVEN # ROUTINE CYCLES 12 TIMES TO SAVE OLD VR,
024408,001162: 32,7461 50115 AGAIN TS MPAC # VN FOR RESTARTS
024409,001163: 32,7462 20115 INDEX MPAC
024410,001164: 32,7463 41416 CS VR
024411,001165: 32,7464 20115 INDEX MPAC
024412,001166: 32,7465 51263 TS VR1 # (TEMPORARIES IN AMEMORY)
024413,001167: 32,7466 10115 CCS MPAC
024414,001168: 32,7467 07461 TC AGAIN
024415,001169:
024416,001170: 32,7470 41446 CS VGCNTR # SAVE FOR RESTARTS
024417,001171: 32,7471 51261 TS VGCNT1
024418,001172: 32,7472 41447 CS DVCNTR
024419,001173: 32,7473 51262 TS DVCNT1
024420,001174:
024421,001175: 32,7474 02276 TC PHASCHNG
024422,001176: 32,7475 02705 OCT 02705
024423,001177:
024424,001178: 32,7476 04000 RE5.23 TC INTPRET
024425,001179:
024426,001180: 32,7477 43576 TEST 0 # TEST IF ENTRY FLAG SET
024427,001181: 32,7500 00036 ENTRYFLG
024428,001182: 32,7501 25536 COASTEST # IT IS NOT
024429,001183:
024430,001184: 32,7502 67774 BHIZ 2
024431,001185: 32,7503 75405 AXT,1 LODON
024432,001186: 32,7504 47172 COMP ITC
024433,001187: 32,7505 01473 ROLLC
024434,001188: 32,7506 25513 UPLIFT
024435,001189: 32,7507 00001 0
024436,001190: 32,7510 21156 LAD
024437,001191: 32,7511 25517 SETL/D
024438,001192:
024439,001193: 32,7512 45175 UPLIFT DMOVE 1
024440,001194: 32,7513 75576 AXT,1
024441,001195: 32,7514 21156 LAD
024442,001196: 32,7515 00011 8D
024443,001197:
024444,001198: 32,7516 47576 SETL/D NOLOD 0
024445,001199: 32,7517 33223 STORE L/D
024446,001200:
024447,001201: 32,7520 46176 PACIFIC COMP* 0
024448,001202: 32,7521 03275 TPACIFC,1
024449,001203: 32,7522 33145 STORE DTEAROT
024450,001204:
024451,001205: 32,7523 74176 VMOVE* 0
024452,001206: 32,7524 03301 RTPACIFC,1
024453,001207: 32,7525 33115 STORE RTINIT
024454,001208:
024455,001209: 32,7526 76776 ITC 0
024456,001210: 32,7527 13541 EARROT1
024457,001211:
024458,001212: 32,7530 77576 EXIT 0
024459,001213:
024460,001214: 32,7531 35501 CAF ZERO # RESET DELTAT +1 TO ZERO
024461,001215: 32,7532 51030 TS DELTAT +1
024462,001216:
024463,001217: 32,7533 05720 TC POSTJUMP # GO TO ENTRY INITIALIZATION ROUTINE.
024464,001218: 32,7534 61424 CADR STARTENT
024465,001219:
024466,001220: 32,7535 43575 COASTEST TEST 1 # TEST IF COAST FLAG SET
024467,001221: 32,7536 75176 VMOVE
024468,001222: 32,7537 00022 COASTFLG
024469,001223: 32,7540 25565 GETFF
024470,001224: 32,7541 00766 RN # IT IS. TRANSFER RN,VN TO ORBITAL
024471,001225: 32,7542 33101 STORE RRECT # INTEGRATION ROUTINE
024472,001226:
024473,001227: 32,7543 75176 VMOVE 0
024474,001228: 32,7544 00774 VN
024475,001229: 32,7545 33107 STORE VRECT
024476,001230:
024477,001231: 32,7546 70775 DAD 1
024478,001232: 32,7547 66742 DSU DAD
024479,001233: 32,7550 01557 TCOAST
024480,001234: 32,7551 27215 DP20SEC
024481,001235: 32,7552 01465 PIPTIME
024482,001236: 32,7553 01463 TCUTOFF
024483,001237: 32,7554 33211 STORE TAVEGON
024484,001238:
024485,001239: 32,7555 77576 EXIT 0
024486,001240:
024487,001241: 32,7556 41465 CS PIPTIME +1 # START UP FREE-FALL GYRO DRIFT COMP.
024488,001242: 32,7557 40000 COM
024489,001243: 32,7560 50755 TS OLDBT1
024490,001244:
024491,001245: 32,7561 03446 TC FLAG2UP # BEGINS WITH NEXT IDLETASK. SET DRIFTFLG
024492,001246: 32,7562 40000 OCT 40000
024493,001247:
024494,001248: 32,7563 02124 TC ENDOFJOB # SERVICER DIES HERE AT START OF COASTPHS.
024495,001249:
024496,001250:
024497,001251: 32,7564 76776 GETFF ITC
024498,001252: 32,7565 12417 CALCTFF
024499,001253:
024500,001254: 32,7566 43574 TEST 2 # TEST IF INTP FLAG SET
024501,001255: 32,7567 65132 ABS DSU
024502,001256: 32,7570 73615 BMN TEST
024503,001257: 32,7571 00027 INTPFLAG
024504,001258: 32,7572 25652 INITEST # IT IS NOT. CONTINUE AT INITEST
024505,001259: 32,7573 01457 TFF # TEST IF TFF LESS THAN 95 SECS
024506,001260: 32,7574 25646 DP95SEC
024507,001261: 32,7575 25615 SHUTDWN1 # IT IS. PREPARE TO FREE-FALL RE-ENTER
024508,001262: 32,7576 00032 INT1FLAG # TEST IF FIRST INTERUPT FLAG SET
024509,001263: 32,7577 25603 +3 # IT IS NOT
024510,001264:
024511,001265: 32,7600 77576 EXIT 0 # IT IS. WAIT FOR 95 SEC INTERUPT
024512,001266: 32,7601 07767 TC ENDSER32
024513,001267:
024514,001268: 32,7602 47575 NOLOD 1 # TEST IF TFF LESS THAN 200 SECS
024515,001269: 32,7603 66616 DSU BPL
024516,001270: 32,7604 25644 DP65SEC
024517,001271: 32,7605 25652 INITEST # IT IS NOT. CONTINUE
024518,001272:
024519,001273: 32,7606 77576 EXIT 0
024520,001274: 32,7607 05654 TC BANKCALL # IT IS. BRANCH TO SHUTDOWN ROUTINES
024521,001275: 32,7610 67217 CADR SHUTDOWN
024522,001276:
024523,001277: 32,7611 03424 TC FLAG1UP
024524,001278: 32,7612 00100 OCT 00100
024525,001279:
024526,001280: 32,7613 07621 TC SHTFLGUP
024527,001281:
024528,001282: 32,7614 77576 SHUTDWN1 EXIT 0
024529,001283: 32,7615 05654 TC BANKCALL
024530,001284: 32,7616 67217 CADR SHUTDOWN
024531,001285:
024532,001286: 32,7617 03436 TC FLAG1DWN # REMOVE INTP FLAG (DISABLE TFF DECISIONS)
024533,001287: 32,7620 01000 OCT 01000
024534,001288:
024535,001289: 32,7621 03424 SHTFLGUP TC FLAG1UP # SET SHTDN FLAG
024536,001290: 32,7622 04000 OCT 04000
024537,001291:
024538,001292: 32,7623 07767 TC ENDSER32
024539,001293:
024540,001294:
024541,001295:
024542,001296: 32,7624 33517 REDO5.23 CAF ELEVEN # RE-ESTABLISH VR, DIFFVECT IN CASE OF
024543,001297: 32,7625 50115 TS MPAC # 5.23 RESTART
024544,001298: 32,7626 20115 INDEX MPAC
024545,001299: 32,7627 41263 CS VR1
024546,001300: 32,7630 20115 INDEX MPAC
024547,001301: 32,7631 51416 TS VR
024548,001302: 32,7632 10115 CCS MPAC
024549,001303: 32,7633 07625 TC REDO5.23 +1
024550,001304:
024551,001305: 32,7634 41261 CS VGCNT1
024552,001306: 32,7635 51446 TS VGCNTR
024553,001307: 32,7636 41262 CS DVCNT1
024554,001308: 32,7637 51447 TS DVCNTR
024555,001309:
024556,001310: 32,7640 07476 TC RE5.23
024557,001311:
024558,001312:
024559,001313:
024560,001314: 32,7641 00000 DP2SEC DEC 0.0
024561,001315: 32,7642 00310 2SEC DEC 200 B-14
024562,001316: 32,7643 00000 14544 DP65SEC 2DEC 6500 B-28
024563,001317: 32,7645 00000 22434 DP95SEC 2DEC 9500 B-28
024564,001318: 32,7647 77776 43347 -310SEC 2DEC -31000 B-28
024565,001319:
024566,001320:
024567,001321: 32,7651 77576 INITEST EXIT 0
024568,001322: 32,7652 40646 CS FLAGWRD1 # TEST IF THIS IS AN INITIAL PASS
024569,001323: 32,7653 74506 MASK INITMASK
024570,001324: 32,7654 10000 CCS A
024571,001325: 32,7655 07730 TC DVMNTEST # IT IS NOT
024572,001326:
024573,001327: 32,7656 40647 CS FLAGWRD2 # TEST IF BURN IS ABORT AFTER TUMBLE ARRET
024574,001328: 32,7657 77013 MASK TABTMASK
024575,001329: 32,7660 10000 CCS A
024576,001330: 32,7661 07666 TC INITISE # IT IS NOT
024577,001331:
024578,001332: 32,7662 02362 TC NEWMODE # SET MAJOR MODE TO POST TUMBLE RECOVERY
024579,001333: 32,7663 00071 OCT 00071
024580,001334:
024581,001335: 32,7664 37720 CAF 31.8DEG # TO REGAIN ATTITUDE AFTER TUMBLE SET AN
024582,001336: 32,7665 51442 TS LOOKANG # AVERAGE ANGLE TO HORIZON OF 31.8 DEGS.
024583,001337:
024584,001338: 32,7666 04000 INITISE TC INTPRET
024585,001339:
024586,001340: 32,7667 76776 ITC 0 # BRANCH TO VG, B VECTOR COMPUTATIONS
024587,001341: 32,7670 12511 CALCVGB
024588,001342:
024589,001343: 32,7671 77576 EXIT 0
024590,001344:
024591,001345: 32,7672 11446 CCS VGCNTR # WAIT FOR SECOND PASS THRU CALCVGB BEFORE
024592,001346: 32,7673 07675 TC +2 # COMPUTING THRUST ATTITUDE
024593,001347: 32,7674 07677 TC +3
024594,001348:
024595,001349: 32,7675 51446 TS VGCNTR
024596,001350: 32,7676 07767 TC ENDSER32
024597,001351:
024598,001352: 32,7677 04000 TC INTPRET
024599,001353:
024600,001354: 32,7700 76776 ITC 0
024601,001355: 32,7701 26266 BURNINIT
024602,001356:
024603,001357: 32,7702 77576 EXIT 0
024604,001358:
024605,001359: 32,7703 20017 INHINT
024606,001360: 32,7704 32146 CAF PRIO12 # ESTABLISH JOB TO COMPUTE MANEUVER TO
024607,001361: 32,7705 02046 TC FINDVAC # BURN INITIAL ATTITUDE
024608,001362: 32,7706 66410 CADR ATTIJOB
024609,001363:
024610,001364: 32,7707 34516 CAF ONE # SET VGCNTR FOR TWO PASSES THROUGH
024611,001365: 32,7710 51446 TS VGCNTR # CALCVGB BEFORE ISSUINS STEER COMMANDS
024612,001366: 32,7711 37721 CAF 35DEG # RESTORE ANGLE TO HORIZON TO 35 DEGS
024613,001367: 32,7712 51442 TS LOOKANG
024614,001368:
024615,001369: 32,7713 02276 TC PHASCHNG
024616,001370: 32,7714 00402 OCT 00402
024617,001371:
024618,001372: 32,7715 03436 TC FLAG1DWN # REMOVE INIT FLAG
024619,001373: 32,7716 00400 OCT 00400
024620,001374:
024621,001375: 32,7717 07767 TC ENDSER32
024622,001376:
024623,001377: 32,7720 02647 31.8DEG DEC 0.088333 # SCALED AT 1 REV
024624,001378: 32,7721 03071 35DEG DEC 0.097222
024625,001379: 32,7722 4506 INITMASK EQUALS BIT9
024626,001380:
024627,001381: 32,7722 77576 VRFAIL EXIT 0 # EXIT HERE IF FAILURE TO COMPUTE ABORT VR
024628,001382:
024629,001383: 32,7723 11446 CCS VGCNTR # TEST IF THIS IS LAST PASS
024630,001384: 32,7724 07726 TC +2
024631,001385: 32,7725 07765 TC ENDSHUT # IT IS. DO SHUTDOWN
024632,001386:
024633,001387: 32,7726 51446 TS VGCNTR # WAIT FOR MORE
024634,001388: 32,7727 07767 TC ENDSER32
024635,001389:
024636,001390: 32,7730 40646 DVMNTEST CS FLAGWRD1 # TEST IF DV MONITOR IS ENABLED
024637,001391: 32,7731 74512 MASK DVMONMSK
024638,001392: 32,7732 10000 CCS A
024639,001393: 32,7733 07767 TC ENDSER32 # IT IS NOT
024640,001394:
024641,001395: 32,7734 04000 TC INTPRET
024642,001396:
024643,001397: 32,7735 71174 ABVAL 2 # TEST IF DELV MAG. EXCEEDS DVMIN
024644,001398: 32,7736 66756 DSU BMN
024645,001399: 32,7737 77576 EXIT
024646,001400: 32,7740 01002 DELV
024647,001401: 32,7741 26001 DVMIN
024648,001402: 32,7742 25750 NODELTAV # IT DOES NOT. START DV MONITOR
024649,001403:
024650,001404: 32,7743 44516 CS ONE # IT DOES. (DVCNTR NORMALLY NEGATIVE)
024651,001405: 32,7744 51447 TS DVCNTR
024652,001406:
024653,001407: 32,7745 05654 TC BANKCALL
024654,001408: 32,7746 66002 CADR STRTEST
024655,001409:
024656,001410: 32,7747 77576 NODELTAV EXIT 0
024657,001411: 32,7750 11447 CCS DVCNTR
024658,001412:
024659,001413: 32,7751 07756 TC DVALARM # AFTER FIRST TIME SET ALARM
024660,001414: 32,7752 07763 TC SHUTDWN3 # 5 PASSES UP. PREPARE FOR RE-ENTRY
024661,001415: 32,7753 35502 CAF FOUR # FIRST TIME SET DVCNTR FOR 5 PASSES
024662,001416: 32,7754 51447 TS DVCNTR
024663,001417:
024664,001418: 32,7755 07767 TC ENDSER32
024665,001419:
024666,001420: 32,7756 03015 DVALARM TC ALARM
024667,001421: 32,7757 01402 OCT 01402
024668,001422:
024669,001423: 32,7760 11447 CCS DVCNTR
024670,001424: 32,7761 51447 TS DVCNTR
024671,001425:
024672,001426: 32,7762 07767 TC ENDSER32
024673,001427:
024674,001428: 32,7763 03424 SHUTDWN3 TC FLAG1UP # ENABLE FREE-FALL INTERRUPT
024675,001429: 32,7764 01000 OCT 01000
024676,001430:
024677,001431: 32,7765 05654 ENDSHUT TC BANKCALL
024678,001432: 32,7766 67217 CADR SHUTDOWN
024679,001433:
024680,001434: 32,7767 05654 ENDSER32 TC BANKCALL # EXIT FROM SERVICER FROM BANK 32
024681,001435: 32,7770 66251 CADR ENDSERV
024682,001436:
024683,001437: 33,6000 SETLOC 66000
024684,001438: 33,6000 4512 DVMONMSK EQUALS BIT5
024685,001439: 33,6000 00005 06565 DVMIN 2DEC 0.000318008 # 2FT/S SCALED AT 19.16928 M/CS
024686,001440:
024687,001441: 33,6002 40646 STRTEST CS FLAGWRD1 # TEST IF STEER FLAG SET
024688,001442: 33,6003 74513 MASK BIT4
024689,001443: 33,6004 10000 CCS A
024690,001444: 33,6005 06251 TC ENDSERV # IT IS NOT
024691,001445: 33,6006 04000 TC INTPRET
024692,001446:
024693,001447: 33,6007 76776 ITC 0
024694,001448: 33,6010 12511 CALCVGB
024695,001449:
024696,001450: 33,6011 77576 EXIT 0
024697,001451:
024698,001452: 33,6012 02276 TC PHASCHNG
024699,001453: 33,6013 00505 OCT 00505
024700,001454:
024701,001455: 33,6014 11446 REDO5.5 CCS VGCNTR
024702,001456: 33,6015 06017 TC +2 # BEFORE TESTING VG AND GENERATING STEERIN
024703,001457: 33,6016 06034 TC JUMP10 # COMMANDS
024704,001458:
024705,001459: 33,6017 51360 TS ERRORSUM # ZERO STEER ERROR SUM
024706,001460: 33,6020 51361 TS ERRORSUM +1
024707,001461: 33,6021 51362 TS ERRORSUM +2
024708,001462: 33,6022 51363 TS ERRORSUM +3
024709,001463: 33,6023 51364 TS ERRORSUM +4
024710,001464: 33,6024 51365 TS ERRORSUM +5
024711,001465:
024712,001466: 33,6025 36033 CAF MDTINIT
024713,001467: 33,6026 51444 TS MDT
024714,001468: 33,6027 51445 TS MDT +1
024715,001469:
024716,001470: 33,6030 11446 CCS VGCNTR
024717,001471: 33,6031 51446 TS VGCNTR
024718,001472:
024719,001473: 33,6032 06251 TC ENDSERV
024720,001474:
024721,001475: 33,6033 00076 MDTINIT DEC 0.00381 # 16FT/S/S FOR 2.5 SECS AT 2(+5)M/CS
024722,001476:
024723,001477: 33,6034 03460 JUMP10 TC FLAG2DWN # REMOVE CALC FLAG (KILLS ATTITUDE MAN-
024724,001478: 33,6035 02000 OCT 02000 # EUVER IF STILL ACTIVE)
024725,001479:
024726,001480: 33,6036 04000 TC INTPRET
024727,001481:
024728,001482: 33,6037 75775 VXSC 1
024729,001483: 33,6040 46753 BVSU UNIT
024730,001484: 33,6041 01002 DELV
024731,001485: 33,6042 21730 KPIP
024732,001486: 33,6043 01411 CBDT
024733,001487: 33,6044 33403 STORE UNITMDT
024734,001488:
024735,001489: 33,6045 47575 NOLOD 1 # TEST IF VG INCREASING WITH THRUST
024736,001490: 33,6046 42616 DOT BPL
024737,001491: 33,6047 01353 VG
024738,001492: 33,6050 26245 VGALARM # IT IS. BRANCH TO CUT ENGINE AND WAIT
024739,001493: 33,6051 32033 STORE 26D # VG ACTUAL
024740,001494: 33,6052 70776 DAD 0 # SUM TWO INTERVALS OF MDT
024741,001495: 33,6053 00037 30D
024742,001496: 33,6054 01445 MDT
024743,001497:
024744,001498: 33,6055 43574 TEST 2
024745,001499: 33,6056 47522 NOLOD DMP
024746,001500: 33,6057 70776 DAD
024747,001501: 33,6060 00054 SPS2FLAG
024748,001502: 33,6061 26066 JUMP9
024749,001503: 33,6062 26171 1.523
024750,001504: 33,6063 00033 26D
024751,001505: 33,6064 32033 STORE 26D
024752,001506:
024753,001507: 33,6065 64773 JUMP9 DMP 3 # RESCALE VG ACTUAL TO 2(+5)M/CS
024754,001508: 33,6066 63746 TSLT BOV
024755,001509: 33,6067 62746 DDV BOV # IF NO OVER FLOW ON DIVISION, LESS THAN
024756,001510: 33,6070 64772 DMP ITC # 2 INTERVALS OF VG LEFT
024757,001511: 33,6071 00033 26D
024758,001512: 33,6072 26173 0.995
024759,001513: 33,6073 00004 3
024760,001514: 33,6074 26102 STEERLAW
024761,001515: 33,6075 77777 -
024762,001516: 33,6076 26102 STEERLAW
024763,001517: 33,6077 01030 DELTAT
024764,001518: 33,6100 26203 SETTGO # BRANCH TO SET TIME-TO-GO TO CUT-OFF
024765,001519:
024766,001520: 33,6101 45176 STEERLAW DMOVE 0 # SAVE NEW VALUE OF MDT
024767,001521: 33,6102 00037 30D
024768,001522: 33,6103 33445 STORE MDT
024769,001523:
024770,001524: 33,6104 64776 DMP 0
024771,001525: 33,6105 26175 K1STEER # =(0.815...)(STEER GAIN)
024772,001526: 33,6106 01030 DELTAT
024773,001527:
024774,001528: 33,6107 71173 ABVAL 3 # STEERING CROSS PRODUCT COMPUTED HERE
024775,001529: 33,6110 57706 TSLC BDDV
024776,001530: 33,6111 75606 VXSC VXV
024777,001531: 33,6112 44376 VSLT*
024778,001532: 33,6113 01353 VG
024779,001533: 33,6114 00050 X2
024780,001534: 33,6115 77777 -
024781,001535: 33,6116 01353 VG
024782,001536: 33,6117 01403 UNITMDT
024783,001537: 33,6120 00002 0,2
024784,001538: 33,6121 33345 STORE STEERROR # FIRST TERM IN STEERLAW OUTPUT. SCALED
024785,001539: # AT ONE REVOLUTION
024786,001540: 33,6122 47575 NOLOD 1 # INCREMENT SUM OF STEER ERRORS
024787,001541: 33,6123 75642 VXSC VAD
024788,001542: 33,6124 26177 K2STEER # =(INTEGRATOR GAIN)/(STEER GAIN)
024789,001543: 33,6125 01361 ERRORSUM
024790,001544:
024791,001545: 33,6126 47574 NOLOD 2 # TEST IF MAGNITUDE OF INTEGRATED STEER
024792,001546: 33,6127 71132 ABVAL DSU # ERROR EXCEEDS MAX ALLOWABLE
024793,001547: 33,6130 43776 BPL
024794,001548: 33,6131 26201 ERRORMAX
024795,001549: 33,6132 26136 SUMPOINT
024796,001550:
024797,001551: 33,6133 75176 VMOVE 0
024798,001552: 33,6134 33361 STORE ERRORSUM # STORE NEW STEER ERROR SUM
024799,001553:
024800,001554: 33,6135 50775 SUMPOINT VAD 1 # SUM ERROR AND INTEGRATED ERROR TERMS
024801,001555: 33,6136 76572 RTB ITC
024802,001556: 33,6137 01345 STEERROR
024803,001557: 33,6140 01361 ERRORSUM
024804,001558: 33,6141 20264 FRESHPD
024805,001559: 33,6142 12373 CDUDRIVE # BRANCH WITH TOTAL STEERLAW OUTPUT IN VAC
024806,001560: # SCALED AT ONE REVOLUTION
024807,001561: 33,6143 44775 STREXIT VSLT 1
024808,001562: 33,6144 47175 COMP EXIT # RESCALE VG TO 2(+5)M/CS FOR DISPLAY
024809,001563: 33,6145 01353 VG
024810,001564: 33,6146 00003 2
024811,001565:
024812,001566: 33,6147 03310 TC GRABDSP # TRY TO GRAB DISPLAY
024813,001567: 33,6150 06166 TC NODISP # ALREADY GRABBED. SKIP VG DISPLAY
024814,001568:
024815,001569: 33,6151 20067 INDEX FIXLOC # LOAD UPPER REGISTERS OF VG INTO DSPTEM1
024816,001570: 33,6152 40040 CS VAC
024817,001571: 33,6153 50616 TS DSPTEM1
024818,001572:
024819,001573: 33,6154 20067 INDEX FIXLOC
024820,001574: 33,6155 40042 CS VAC +2
024821,001575: 33,6156 50617 TS DSPTEM1 +1
024822,001576:
024823,001577: 33,6157 20067 INDEX FIXLOC
024824,001578: 33,6160 40044 CS VAC +4
024825,001579: 33,6161 50620 TS DSPTEM1 +2
024826,001580:
024827,001581: 33,6162 36167 CAF V06N40
024828,001582: 33,6163 03106 TC NVSUB
024829,001583: 33,6164 03256 TC RELDSPON
024830,001584:
024831,001585: 33,6165 03370 TC FREEDSP
024832,001586:
024833,001587: 33,6166 06251 NODISP TC ENDSERV
024834,001588:
024835,001589: 33,6167 00640 V06N40 OCT 00640 # VERB 06 NOUN 40
024836,001590: 33,6170 06057 03250 1.523 2DEC 1.523 B-3
024837,001591: 33,6172 37656 02437 0.995 2DEC 0.995
024838,001592: 33,6174 03204 33423 K1STEER 2DEC 0.101859164 # (STEER GAIN =1/8)
024839,001593: 33,6176 02436 27024 K2STEER 2DEC 0.08 # (INTEGRATOR GAIN =0.01)
024840,001594: 33,6200 00026 30133 ERRORMAX 2DEC 0.001388888 # 1 DEGREE SCALED AT 2 REVS
024841,001595:
024842,001596: 33,6202 47574 SETTGO NOLOD 2 # COME HERE TO SET ENGINE-OFF CALL
024843,001597: 33,6203 56633 TSRT COMP
024844,001598: 33,6204 43575 TEST EXIT
024845,001599: 33,6205 00005 4 # C(MPAC) = TIME-TO-CUTOFF SINCE PIPTIME
024846,001600: 33,6206 00035 STEERFLG # SCALED AT 2(+14) CS
024847,001601: 33,6207 26144 STREXIT
024848,001602:
024849,001603: 33,6210 30115 XCH MPAC
024850,001604: 33,6211 51460 TS LONGTIME # SAVE MPAC (USED IN RESTARTS)
024851,001605:
024852,001606: 33,6212 20017 REDO4.1 INHINT
024853,001607: 33,6213 40036 CS TIME1
024854,001608: 33,6214 50666 TS TBASE4
024855,001609: 33,6215 61465 AD PIPTIME +1
024856,001610: 33,6216 10000 CCS A
024857,001611: 33,6217 64500 AD BIT15
024858,001612: 33,6220 06223 TC +3
024859,001613: 33,6221 64516 AD ONE
024860,001614: 33,6222 40000 COM
024861,001615:
024862,001616: 33,6223 61460 AD LONGTIME # (TEMP FOR MPAC)
024863,001617: 33,6224 61560 AD TDECAY # EFFECTIVE THRUST DECAY TIME
024864,001618: 33,6225 51461 TS LONGTIME +1
024865,001619: 33,6226 10000 CCS A # TEST FOR - OR 0 WAITLIST CALLS
024866,001620: 33,6227 06232 TC +3
024867,001621: 33,6230 06232 TC +2
024868,001622: 33,6231 35501 CAF ZERO
024869,001623: 33,6232 64516 AD ONE
024870,001624: 33,6233 02173 TC WAITLIST
024871,001625: 33,6234 64755 CADR ENGINOFF
024872,001626:
024873,001627: 33,6235 02276 TC PHASCHNG
024874,001628: 33,6236 00104 OCT 00104
024875,001629:
024876,001630: 33,6237 03436 TC FLAG1DWN # REMOVE STEER FLAG
024877,001631: 33,6240 00010 OCT 00010
024878,001632:
024879,001633: 33,6241 02276 TC PHASCHNG
024880,001634: 33,6242 00204 OCT 00204
024881,001635:
024882,001636: 33,6243 06251 TC ENDSERV
024883,001637:
024884,001638: 33,6244 77576 VGALARM EXIT 0
024885,001639: 33,6245 03015 TC ALARM
024886,001640: 33,6246 01401 OCT 01401
024887,001641:
024888,001642: 33,6247 05654 TC BANKCALL
024889,001643: 33,6250 67217 CADR SHUTDOWN
024890,001644:
024891,001645: 33,6251 11030 ENDSERV CCS DELTAT +1 # IF BIT1 PRESENT IN DELTAT +1, SET DELTAT
024892,001646: 33,6252 36262 CAF HALFSEC # 1/PIPADT TO 2.5SECS (FOR ABORT STEERING)
024893,001647: 33,6253 66263 AD TWOSEC
024894,001648: 33,6254 51027 TS DELTAT
024895,001649: 33,6255 60000 DOUBLE
024896,001650: 33,6256 50755 TS 1/PIPADT
024897,001651:
024898,001652: 33,6257 02276 TC PHASCHNG
024899,001653: 33,6260 00105 OCT 00105
024900,001654:
024901,001655: 33,6261 02124 TC ENDOFJOB
024902,001656:
024903,001657: 33,6262 03100 HALFSEC DEC 50 B-9
024904,001658: 33,6263 14400 TWOSEC DEC 200 B-9
024905,001659: 33,6264 00007 ALLABORT OCT 7
024906,001660:
024907,001661:
024908,001662: 33,6265 53574 BURNINIT AXC,1 2 # C(X1)= 0 (TABT,ABRT,SPS1)
024909,001663: 33,6266 45415 ITA TEST # =-2 (SPS2)
024910,001664: 33,6267 53576 AXC,1
024911,001665: 33,6270 00001 0
024912,001666: 33,6271 00052 S2
024913,001667: 33,6272 00054 SPS2FLAG
024914,001668: 33,6273 26276 +2
024915,001669: 33,6274 00003 2
024916,001670:
024917,001671: 33,6275 76776 ITC 0 # COMPUTE DESIRED THRUST DIRECTION
024918,001672: 33,6276 13501 CALCXSC
024919,001673:
024920,001674: 33,6277 76575 RTB 1 # SET UP CG ROTATION MATRIX IN PD
024921,001675: 33,6300 42176 SMOVE*
024922,001676: 33,6301 20270 ZEROVAC
024923,001677: 33,6302 27461 CGZ,1
024924,001678: 33,6303 32007 STORE 6
024925,001679:
024926,001680: 33,6304 47575 NOLOD 1
024927,001681: 33,6305 47065 COMP AST,1
024928,001682: 33,6306 00007 6
024929,001683: 33,6307 32003 STORE 2
024930,001684:
024931,001685: 33,6310 42176 SMOVE* 0
024932,001686: 33,6311 27451 CGY,1
024933,001687: 33,6312 32005 STORE 4
024934,001688:
024935,001689: 33,6313 47575 NOLOD 1
024936,001690: 33,6314 47165 COMP AXT,1
024937,001691: 33,6315 00023 18D
024938,001692: 33,6316 32015 STORE 12D
024939,001693:
024940,001694: 33,6317 74174 REPEAT2 VMOVE* 2 # COMPUTE DESIRED SPACECRAFT ATTITUDE
024941,001695: 33,6320 51640 VXM VAD* # MATRIX FROM DESIRED THRUST ATT. MATRIX
024942,001696: 33,6321 73176 UNIT
024943,001697: 33,6322 00045 18D,1
024944,001698: 33,6323 01367 XSC
024945,001699: 33,6324 03021 XSC +18D,1
024946,001700: 33,6325 37065 STORE XSCD +18D,1
024947,001701:
024948,001702: 33,6326 51575 TIX,1 1
024949,001703: 33,6327 44576 ITCI
024950,001704: 33,6330 26320 REPEAT2
024951,001705: 33,6331 00052 S2
024952,001706:
024953,001707: 33,6332 04000 ROLLJOB TC INTPRET
024954,001708:
024955,001709: 33,6333 75575 AXT,1 1 # GET SIN,COS OF THETAD,+1,+2
024956,001710: 33,6334 54572 AST,2 ITC
024957,001711: 33,6335 00007 6
024958,001712: 33,6336 26364 ROLLEXIT
024959,001713: 33,6337 12013 THETRIG
024960,001714:
024961,001715: 33,6340 76776 ITC 0 # COMPUTE NAV. BASE CORRDINATES
024962,001716: 33,6341 12110 CALCSMNB
024963,001717:
024964,001718: 33,6342 75776 VXSC 0 # COMPUTE XSC
024965,001719: 33,6343 01477 XNB
024966,001720: 33,6344 12241 COS33
024967,001721:
024968,001722: 33,6345 75775 VXSC 1
024969,001723: 33,6346 50776 VAD
024970,001724: 33,6347 01513 ZNB
024971,001725: 33,6350 12237 SIN33
024972,001726: 33,6351 32027 STORE 22D
024973,001727:
024974,001728: 33,6352 47573 HEADWN1 NOLOD 3
024975,001729: 33,6353 41753 VXV UNIT # =KR(TVC)(UNIT(XSC*RN)*YSC), WHERE
024976,001730: 33,6354 41766 VXV VXSC # DT(MAX) = 10 SECS,
024977,001731: 33,6355 44772 VSLT ITC # MAX ROLL GAIN = 1.0
024978,001732: 33,6356 00766 RN
024979,001733: 33,6357 01505 YNB # ( =YSC)
024980,001734: 33,6360 26407 KR(TVC) # TVC ROLL CONTROL GAIN
024981,001735: 33,6361 00004 3
024982,001736: 33,6362 12400 CDUDRVE2 # SUBENTRY OF CDUDRIVE
024983,001737:
024984,001738: 33,6363 77576 ROLLEXIT EXIT 0
024985,001739:
024986,001740: 33,6364 40646 CS FLAGWRD1 # TEST IF STEER FLAG SET BEFORE SETTING
024987,001741: 33,6365 74513 MASK BIT4 # BURN MAJOR MODE
024988,001742: 33,6366 10000 CCS A
024989,001743: 33,6367 02124 TC ENDOFJOB
024990,001744:
024991,001745: 33,6370 34512 CAF BIT5 # TEST IF BURN SWITCH IS SET TO SPS2
024992,001746: 33,6371 70647 MASK FLAGWRD2
024993,001747: 33,6372 10000 CCS A
024994,001748: 33,6373 06403 TC SPS2MODE # IT IS
024995,001749:
024996,001750: 33,6374 40647 CS FLAGWRD2 # TEST IF BURN IS SPS1
024997,001751: 33,6375 74513 MASK BIT4
024998,001752: 33,6376 10000 CCS A
024999,001753: 33,6377 02124 TC ENDOFJOB # IT IS NOT
025000,001754:
025001,001755: 33,6400 02362 TC NEWMODE # SET MAJOR MODE TO SPS1
025002,001756: 33,6401 00041 OCT 00041
025003,001757: 33,6402 02124 TC ENDOFJOB
025004,001758:
025005,001759: 33,6403 02362 SPS2MODE TC NEWMODE # SET MAJOR MODE TO SPS2
025006,001760: 33,6404 00042 OCT 00042
025007,001761:
025008,001762: 33,6405 02124 TC ENDOFJOB
025009,001763:
025010,001764: 33,6406 00516 07363 KR(TVC) 2DEC 0.0204 # ROLL GAIN =0.05, DT =5.0 SECS
025011,001765:
025012,001766:
025013,001767: # THIS ROUTINE CONTROLS THE USE OF CALCMANU IN COMPUTING, TIMING AND PERFORMING THE SEQUENCE OF MANEUVERS DURING
025014,001768: # A LARGE ATTITUDE MANEUVER. FLIGHT 202 INVOLVES SUCH A MANEUVER WHEN ORIENTING TO
025015,001769: # 1. ABORT BURN INITIAL ATTITUDE AFTER A TUMBLE ARREST
025016,001770: # 2. NOMINAL FIRST BURN INITIAL ATTITUDE
025017,001771: # 3. LOCAL VERTICAL AFTER NOMINAL FIRST BURN
025018,001772: # 4. NOMINAL SECOND BURN INITIAL ATTITUDE
025019,001773: # 5. SM/CM SEPARATION ATTITUDE
025020,001774: # 6. CM PRE-ENTRY ATTITUDE
025021,001775:
025022,001776:
025023,001777:
025024,001778: 33,6410 05654 ATTIJOB TC BANKCALL
025025,001779: 33,6411 30223 CADR IMUATTC
025026,001780:
025027,001781: 33,6412 03502 TC SETHETAD
025028,001782:
025029,001783: 33,6413 05654 TC BANKCALL
025030,001784: 33,6414 30331 CADR IMUSTALL
025031,001785: 33,6415 03074 TC CURTAINS
025032,001786:
025033,001787: 33,6416 04000 TC INTPRET
025034,001788:
025035,001789: 33,6417 76776 ATTIJOB1 ITC 0
025036,001790: 33,6420 26512 GETMANU
025037,001791:
025038,001792: 33,6421 77576 EXIT 0
025039,001793:
025040,001794: 33,6422 20017 INHINT
025041,001795: 33,6423 34516 CAF 0.01SEC
025042,001796: 33,6424 02173 TC WAITLIST
025043,001797: 33,6425 66537 CADR DOMANU
025044,001798:
025045,001799: 33,6426 40647 CS FLAGWRD2
025046,001800: 33,6427 74513 MASK BIT4
025047,001801: 33,6430 10000 CCS A
025048,001802: 33,6431 02124 TC ENDOFJOB
025049,001803:
025050,001804: 33,6432 02276 TC PHASCHNG
025051,001805: 33,6433 00502 OCT 00502
025052,001806:
025053,001807: 33,6434 02124 TC ENDOFJOB
025054,001808:
025055,001809:
025056,001810:
025057,001811: 33,6435 04000 ATTIJOB2 TC INTPRET
025058,001812:
025059,001813: 33,6436 76776 ITC 0
025060,001814: 33,6437 26512 GETMANU
025061,001815:
025062,001816: 33,6440 77576 EXIT 0
025063,001817: 33,6441 02124 TC ENDOFJOB
025064,001818:
025065,001819:
025066,001820:
025067,001821: 33,6442 47576 SNAPOUT NOLOD 0
025068,001822: 33,6443 32701 STORE THETAD
025069,001823:
025070,001824: 33,6444 43575 TEST 1 # TEST IF SHTDN FLAG SET (I.E. HAS FREE-
025071,001825: 33,6445 43575 TEST EXIT # FALL INTERUPT OCCURRED)
025072,001826: 33,6446 00025 SHTDNFLG
025073,001827: 33,6447 26461 JUMP7
025074,001828: 33,6450 00043 CDUXFLAG # TEST IF CDUXFLAG SET (I.E. HAS CM/SM
025075,001829: 33,6451 26505 ENDMANU # SEPARATION OCCURRED)
025076,001830:
025077,001831: 33,6452 03424 TC FLAG1UP # SET ENTRY FLAG
025078,001832: 33,6453 00004 OCT 00004
025079,001833:
025080,001834: 33,6454 44516 CS ONE
025081,001835: 33,6455 02312 TC NEWPHASE
025082,001836: 33,6456 00003 OCT 00003
025083,001837:
025084,001838: 33,6457 02124 TC ENDOFJOB
025085,001839:
025086,001840: 33,6460 43575 JUMP7 TEST 1
025087,001841: 33,6461 77576 EXIT
025088,001842: 33,6462 00022 COASTFLG
025089,001843: 33,6463 26472 JUMP6
025090,001844:
025091,001845: 33,6464 03424 TC FLAG1UP # SET VERTFLAG FOR BEGINNING OF CONTROL
025092,001846: 33,6465 10000 OCT 10000 # AT VERTICAL ATTITUDE
025093,001847:
025094,001848: 33,6466 02362 TC NEWMODE
025095,001849: 33,6467 00022 OCT 00022
025096,001850:
025097,001851: 33,6470 06505 TC ENDMANU +1
025098,001852:
025099,001853: 33,6471 43576 JUMP6 TEST 0
025100,001854: 33,6472 00056 TABTFLAG
025101,001855: 33,6473 26505 ENDMANU
025102,001856:
025103,001857: 33,6474 77576 EXIT 0
025104,001858:
025105,001859: 33,6475 20017 INHINT
025106,001860: 33,6476 34516 CAF 0.01SEC
025107,001861: 33,6477 02173 TC WAITLIST
025108,001862: 33,6500 64577 CADR ATTCNOFF
025109,001863:
025110,001864: 33,6501 35503 CAF TWO # SET VGCNTR FOR THREE PASSES THROUGH
025111,001865: 33,6502 51446 TS VGCNTR # CALCVGB BEFORE STARTING ABORT STEERING
025112,001866:
025113,001867: 33,6503 06505 TC ENDMANU +1
025114,001868:
025115,001869: 33,6504 77576 ENDMANU EXIT 0
025116,001870:
025117,001871: 33,6505 44516 CS ONE
025118,001872: 33,6506 02312 TC NEWPHASE
025119,001873: 33,6507 00002 OCT 2
025120,001874: 33,6510 02124 TC ENDOFJOB
025121,001875:
025122,001876:
025123,001877: 33,6511 45575 GETMANU ITA 1
025124,001878: 33,6512 76776 ITC
025125,001879: 33,6513 01475 EXITCAD1
025126,001880: 33,6514 14001 CALCMANU
025127,001881:
025128,001882: 33,6515 43576 TEST 0
025129,001883: 33,6516 00046 CALCFLAG
025130,001884: 33,6517 26443 SNAPOUT
025131,001885:
025132,001886: 33,6520 53574 AXC,1 2
025133,001887: 33,6521 43455 TEST AXC,1
025134,001888: 33,6522 43455 TEST AXC,1
025135,001889: 33,6523 00001 0
025136,001890: 33,6524 00045 ROLLFLAG
025137,001891: 33,6525 26533 SETDTH
025138,001892: 33,6526 00003 2
025139,001893: 33,6527 00043 CDUXFLAG
025140,001894: 33,6530 26533 SETDTH
025141,001895: 33,6531 00005 4
025142,001896:
025143,001897: 33,6532 44176 SETDTH DMOVE* 0
025144,001898: 33,6533 33461 DTH,1
025145,001899: 33,6534 33453 STORE DTHETA
025146,001900:
025147,001901: 33,6535 44576 ITCI 0
025148,001902: 33,6536 01475 EXITCAD1
025149,001903:
025150,001904:
025151,001905:
025152,001906: 33,6537 4516 0.01SEC EQUALS BIT1
025153,001907:
025154,001908:
025155,001909: 33,6537 03446 DOMANU TC FLAG2UP # SET DOMANU FLAG
025156,001910: 33,6540 01000 DOMANMSK OCT 01000
025157,001911:
025158,001912: 33,6541 40647 DOMANU1 CS FLAGWRD2 # KILL DOMANU IF CALC FLAG NOT SET
025159,001913: 33,6542 74504 MASK BIT11 # (CALCMASK)
025160,001914: 33,6543 10000 CCS A
025161,001915: 33,6544 06564 TC DOMANOFF
025162,001916:
025163,001917: 33,6545 36540 CAF DOMANMSK # TEST IF DOMAN FLAG SET
025164,001918: 33,6546 70647 MASK FLAGWRD2
025165,001919: 33,6547 10000 CCS A
025166,001920: 33,6550 06555 TC SETMANU # IT IS
025167,001921:
025168,001922: 33,6551 36570 CAF TPAD +1 # IT IS NOT. START NEXT MANEUVER IN TPAD
025169,001923: 33,6552 02173 TC WAITLIST # SECS
025170,001924: 33,6553 66537 CADR DOMANU
025171,001925:
025172,001926: 33,6554 02256 TC TASKOVER
025173,001927:
025174,001928: 33,6555 32156 SETMANU CAF PRIO23 # ESTABLISH MANUJOB
025175,001929: 33,6556 02046 TC FINDVAC
025176,001930: 33,6557 66572 CADR MANUJOB
025177,001931:
025178,001932: 33,6560 36571 CAF 0.5SEC # RECALL DOMANU1 IN 0.5 SECS
025179,001933: 33,6561 02173 TC WAITLIST
025180,001934: 33,6562 66541 CADR DOMANU1
025181,001935:
025182,001936: 33,6563 02256 TC TASKOVER
025183,001937:
025184,001938: 33,6564 03460 DOMANOFF TC FLAG2DWN # REMOVE DOMANU FLAG
025185,001939: 33,6565 01000 OCT 01000
025186,001940:
025187,001941: 33,6566 02256 TC TASKOVER
025188,001942:
025189,001943:
025190,001944:
025191,001945: 33,6567 00000 TPAD DEC 0.0
025192,001946: 33,6570 00764 5SEC DEC 500 B-14
025193,001947: 33,6571 00062 0.5SEC DEC 50 B-14
025194,001948:
025195,001949:
025196,001950:
025197,001951: 33,6572 04000 MANUJOB TC INTPRET
025198,001952:
025199,001953: 33,6573 66775 DSU 1 # TEST IF THETAMAN LESS THAN DTHETA.
025200,001954: 33,6574 43633 BPL COMP
025201,001955: 33,6575 01453 DTHETA
025202,001956: 33,6576 01455 THETAMAN
025203,001957: 33,6577 26604 JUMP4 # IT IS. STORE REMAINING THETAMAN
025204,001958: 33,6600 33455 STORE THETAMAN
025205,001959: 33,6601 76776 ITC 0
025206,001960: 33,6602 26613 DRIVECDU
025207,001961:
025208,001962: 33,6603 45176 JUMP4 DMOVE 0 # STORE REMAINING THETAMAN IN DTHETA
025209,001963: 33,6604 01455 THETAMAN
025210,001964: 33,6605 33453 STORE DTHETA
025211,001965:
025212,001966: 33,6606 77576 EXIT 0
025213,001967:
025214,001968: 33,6607 03460 TC FLAG2DWN # REMOVE DOMAN FLAG
025215,001969: 33,6610 01000 OCT 01000
025216,001970:
025217,001971: 33,6611 04000 TC INTPRET
025218,001972:
025219,001973: 33,6612 75775 DRIVECDU VXSC 1 # FORM INCREMENTAL MANEUVER VECTOR
025220,001974: 33,6613 44772 VSLT ITC
025221,001975: 33,6614 01323 WC
025222,001976: 33,6615 01453 DTHETA
025223,001977: 33,6616 00002 1
025224,001978: 33,6617 12373 CDUDRIVE
025225,001979:
025226,001980: 33,6620 43576 TEST 0 # TEST IF DOMAN FLAG SET
025227,001981: 33,6621 00047 DOMANFLG
025228,001982: 33,6622 26626 RETURN1 # IT IS NOT. CHECK SPS1
025229,001983:
025230,001984: 33,6623 77576 EXIT 0
025231,001985: 33,6624 02124 TC ENDOFJOB
025232,001986:
025233,001987: 33,6625 43576 RETURN1 TEST 0 # TEST IF THIS IS SPS1
025234,001988: 33,6626 00055 SPS1FLAG
025235,001989: 33,6627 26635 NEXTMAN # IT IS NOT. GET NEXT MANEUVER
025236,001990: 33,6630 77576 EXIT 0
025237,001991:
025238,001992: 33,6631 03460 TC FLAG2DWN
025239,001993: 33,6632 02000 OCT 02000
025240,001994:
025241,001995: 33,6633 06505 TC ENDMANU +1
025242,001996:
025243,001997: 33,6634 77576 NEXTMAN EXIT 0
025244,001998:
025245,001999: 33,6635 20017 INHINT
025246,002000: 33,6636 32146 CAF PRIO12 # ESTABLISH ATTIJOB2 TO COMPUTE NEXT MAN.
025247,002001: 33,6637 02046 TC FINDVAC
025248,002002: 33,6640 66435 CADR ATTIJOB2
025249,002003:
025250,002004: 33,6641 02124 TC ENDOFJOB
025251,002005:
025252,002006:
025253,002007: 33,6642 02362 VERTINIT TC NEWMODE # SET MAJOR MODE TO MANEUVER TO VERTICAL
025254,002008: 33,6643 00021 OCT 00021
025255,002009:
025256,002010: 33,6644 04000 TC INTPRET
025257,002011:
025258,002012: 33,6645 75175 VMOVE 1
025259,002013: 33,6646 47176 COMP
025260,002014: 33,6647 01016 REFRCV
025261,002015: 33,6650 33411 STORE XSCD
025262,002016:
025263,002017: 33,6651 47574 NOLOD 2
025264,002018: 33,6652 41753 VXV UNIT
025265,002019: 33,6653 47176 COMP
025266,002020: 33,6654 00774 REFVRECT
025267,002021: 33,6655 33417 STORE YSCD
025268,002022:
025269,002023: 33,6656 47574 NOLOD 2
025270,002024: 33,6657 41753 VXV UNIT
025271,002025: 33,6660 47176 COMP
025272,002026: 33,6661 01411 XSCD
025273,002027: 33,6662 33425 STORE ZSCD
025274,002028:
025275,002029: 33,6663 76776 ITC 0 # BRANCH TO DO MANEUVER
025276,002030: 33,6664 26420 ATTIJOB1
025277,002031:
025278,002032:
025279,002033: 33,6665 45501 VERTASK CS ZERO # COME HERE FIRST TIME ONLY. CLEAR OUT
025280,002034: 33,6666 51001 TS DELV # DELV FOR FREE-FALL COMPUTATIONS
025281,002035: 33,6667 51002 TS DELV +1
025282,002036: 33,6670 51003 TS DELV +2
025283,002037: 33,6671 51004 TS DELV +3
025284,002038: 33,6672 51005 TS DELV +4
025285,002039: 33,6673 51006 TS DELV +5
025286,002040:
025287,002041: 33,6674 34500 VERTASK1 CAF BIT15 # TEST IF COAST FLAG SET
025288,002042: 33,6675 70646 MASK FLAGWRD1
025289,002043: 33,6676 10000 CCS A
025290,002044: 33,6677 03070 TC CCSHOLE
025291,002045: 33,6700 02256 TC TASKOVER
025292,002046:
025293,002047: 33,6701 35362 CAF SEVEN
025294,002048: 33,6702 02312 TC NEWPHASE
025295,002049: 33,6703 00005 OCT 0005
025296,002050:
025297,002051: 33,6704 40036 REDO5.7 CS TIME1
025298,002052: 33,6705 50667 TS TBASE5
025299,002053:
025300,002054: 33,6706 34513 CAF EIGHT
025301,002055: 33,6707 02312 TC NEWPHASE
025302,002056: 33,6710 00005 OCT 00005
025303,002057:
025304,002058: 33,6711 36720 CAF 2SEC33
025305,002059: 33,6712 02173 TC WAITLIST
025306,002060: 33,6713 66674 CADR VERTASK1
025307,002061:
025308,002062: 33,6714 32147 CAF PRIO13
025309,002063: 33,6715 02046 TC FINDVAC
025310,002064: 33,6716 66721 CADR VERTIJOB
025311,002065:
025312,002066: 33,6717 02256 TC TASKOVER
025313,002067:
025314,002068: 33,6720 00310 2SEC33 DEC 200 B-14
025315,002069:
025316,002070:
025317,002071: 33,6721 04000 VERTIJOB TC INTPRET
025318,002072:
025319,002073: 33,6722 76776 ITC 0
025320,002074: 33,6723 21540 CALCRVG
025321,002075:
025322,002076: 33,6724 04000 TC INTPRET
025323,002077:
025324,002078: 33,6725 43575 TEST 1
025325,002079: 33,6726 75572 AXT,1 ITC
025326,002080: 33,6727 00024 VERTFLAG
025327,002081: 33,6730 27105 EXITLOC4
025328,002082: 33,6731 00007 6
025329,002083: 33,6732 12001 CDUTRIG
025330,002084:
025331,002085: 33,6733 76776 ITC 0
025332,002086: 33,6734 12110 CALCSMNB
025333,002087:
025334,002088: 33,6735 76776 ITC 0
025335,002089: 33,6736 12213 CALCNBSC
025336,002090:
025337,002091: 33,6737 41775 VXV 1
025338,002092: 33,6740 75622 VXSC VSLT
025339,002093: 33,6741 01016 REFRCV
025340,002094: 33,6742 01367 XSC
025341,002095: 33,6743 27117 XRATE
025342,002096: 33,6744 00004 3
025343,002097:
025344,002098: 33,6745 41775 VXV 1
025345,002099: 33,6746 73006 UNIT VXV
025346,002100: 33,6747 00774 VN
025347,002101: 33,6750 00766 RN
025348,002102: 33,6751 01375 YSC
025349,002103:
025350,002104: 33,6752 40774 VPROJ 2
025351,002105: 33,6753 75622 VXSC VSLT
025352,002106: 33,6754 50772 VAD ITC
025353,002107: 33,6755 01367 XSC
025354,002108: 33,6756 77777 -
025355,002109: 33,6757 27115 YRATE
025356,002110: 33,6760 00006 5
025357,002111: 33,6761 77777 -
025358,002112: 33,6762 12243 SMCDURES
025359,002113:
025360,002114: 33,6763 44773 VSLT 3
025361,002115: 33,6764 76571 RTB RTB
025362,002116: 33,6765 66732 DSU DSU
025363,002117: 33,6766 73776 BMN
025364,002118: 33,6767 01345 DCDU
025365,002119: 33,6770 00002 1
025366,002120: 33,6771 20423 INCRCDUS
025367,002121: 33,6772 20252 LOADTIME
025368,002122: 33,6773 01463 TCUTOFF
025369,002123: 33,6774 27121 VERTIME
025370,002124: 33,6775 27105 EXITLOC4
025371,002125:
025372,002126: 33,6776 45176 DMOVE 0 # SET DELTAT TO 4 SECS FOR ORBITAL INT.
025373,002127: 33,6777 27113 DT4SEC
025374,002128: 33,7000 33030 STORE DELTAT
025375,002129:
025376,002130: 33,7001 75176 VMOVE 0 # SAVE VRECT AND RRECT IN CASE OF RESTARTS
025377,002131: 33,7002 01101 RRECT
025378,002132: 33,7003 33656 STORE RRECCMEM
025379,002133:
025380,002134: 33,7004 75176 VMOVE 0
025381,002135: 33,7005 01107 VRECT
025382,002136: 33,7006 33664 STORE VRECCMEM
025383,002137:
025384,002138: 33,7007 77576 EXIT 0
025385,002139: 33,7010 02276 TC PHASCHNG
025386,002140: 33,7011 01205 OCT 01205
025387,002141:
025388,002142: 33,7012 03436 REDO5.10 TC FLAG1DWN # REMOVE COAST, VERT FLAGS
025389,002143: 33,7013 50000 OCT 50000
025390,002144:
025391,002145: 33,7014 04000 TC INTPRET
025392,002146:
025393,002147: 33,7015 75176 VMOVE 0 # RESTORE RRECT AND VRECT FROM CMEMORY.
025394,002148: 33,7016 01656 RRECCMEM
025395,002149: 33,7017 33101 STORE RRECT
025396,002150:
025397,002151: 33,7020 75176 VMOVE 0
025398,002152: 33,7021 01664 VRECCMEM
025399,002153: 33,7022 33107 STORE VRECT
025400,002154:
025401,002155: 33,7023 76776 ITC 0 # BRANCH TO DO ORBITAL INTEGRATION
025402,002156: 33,7024 20001 AVETOMD1
025403,002157:
025404,002158: 33,7025 75176 VMOVE 0
025405,002159: 33,7026 01231 RIG-4SEC
025406,002160: 33,7027 32766 STORE RN # SET RN TO 4 SECS BEFORE IGNITION
025407,002161:
025408,002162: 33,7030 76575 RTB 1
025409,002163: 33,7031 76776 ITC
025410,002164: 33,7032 20264 FRESHPD
025411,002165: 33,7033 21632 CALCGRAV
025412,002166:
025413,002167: 33,7034 75575 AXT,1 1 # GET VR AT 4 SECS BEFORE IGNITION
025414,002168: 33,7035 67572 SXA,1 ITC
025415,002169: 33,7036 12552 202SPS2
025416,002170: 33,7037 01471 VRCADR
025417,002171: 33,7040 12511 CALCVGB
025418,002172:
025419,002173: 33,7041 75176 VMOVE 0
025420,002174: 33,7042 01107 VIGNTION
025421,002175: 33,7043 32774 STORE VN # SET VN AT IGNITION
025422,002176:
025423,002177:
025424,002178: 33,7044 75176 VMOVE 0
025425,002179: 33,7045 01101 RIGNTION
025426,002180: 33,7046 32766 STORE RN # SET RN AT IGNITION
025427,002181:
025428,002182: 33,7047 76776 ITC 0
025429,002183: 33,7050 21632 CALCGRAV
025430,002184:
025431,002185: 33,7051 76776 ITC 0
025432,002186: 33,7052 12511 CALCVGB # GET VR AT IGNITION. COMPUTE CBDT
025433,002187:
025434,002188: 33,7053 76776 ITC 0
025435,002189: 33,7054 26266 BURNINIT # INITIALISE BURN
025436,002190:
025437,002191: 33,7055 45176 DMOVE 0
025438,002192: 33,7056 27111 DT2SEC
025439,002193: 33,7057 33030 STORE DELTAT # RESTORE DELTAT TO 2 SECS FOR SPS2
025440,002194:
025441,002195: 33,7060 75176 VMOVE 0
025442,002196: 33,7061 01223 VAVEGON
025443,002197: 33,7062 32774 STORE VN # INITIALISE CALCRVG FOR TURN-ON
025444,002198:
025445,002199: 33,7063 75176 VMOVE 0
025446,002200: 33,7064 01215 RAVEGON
025447,002201: 33,7065 32766 STORE RN
025448,002202:
025449,002203: 33,7066 76776 ITC 0
025450,002204: 33,7067 21632 CALCGRAV
025451,002205:
025452,002206: 33,7070 77576 EXIT 0
025453,002207:
025454,002208: 33,7071 34516 CAF ONE # SET VGCNTR FOR TWO PASSES THRU CALCVGB
025455,002209: 33,7072 51446 TS VGCNTR # BEFORE SPS2 STEERING
025456,002210:
025457,002211: 33,7073 02362 TC NEWMODE # SET MAJOR MODE TO READY FOR R,V,T UPDATE
025458,002212: 33,7074 00024 OCT 00024
025459,002213:
025460,002214: 33,7075 02276 TC PHASCHNG
025461,002215: 33,7076 00302 OCT 00302
025462,002216:
025463,002217: 33,7077 02276 TC PHASCHNG # CHANGE PHASE TO 5.20 TO ENABLE V76 RST.
025464,002218: 33,7100 02405 OCT 02405
025465,002219:
025466,002220: 33,7101 04000 TC INTPRET
025467,002221: 33,7102 76776 ITC 0
025468,002222: 33,7103 26420 ATTIJOB1
025469,002223: 33,7104 77576 EXITLOC4 EXIT 0
025470,002224:
025471,002225: 33,7105 02276 TC PHASCHNG
025472,002226: 33,7106 01305 OCT 01305
025473,002227:
025474,002228: 33,7107 02124 TC ENDOFJOB
025475,002229:
025476,002230: 33,7110 14400 00000 DT2SEC 2DEC 200 B-9
025477,002231: 33,7112 31000 00000 DT4SEC 2DEC 400 B-9
025478,002232: 33,7114 03146 14632 YRATE 2DEC .1
025479,002233: 33,7116 03146 14632 XRATE 2DEC .1
025480,002234: 33,7120 00014 15705 VERTIME 2DEC 2037.17 E2
025481,002235:
025482,002236:
025483,002237: # UPTASK AND UPJOB OCCUR 120 SECS BEFORE PLUSX2 AND INCORPORATE STATE VECTOR UPDATES VIA VERB 76
025484,002238:
025485,002239: 33,7122 37216 UPTASK CAF 18SEC
025486,002240: 33,7123 02173 TC WAITLIST
025487,002241: 33,7124 67203 CADR PLUSX1
025488,002242:
025489,002243:
025490,002244: 33,7125 34373 CAF PRIO6 # ESTABLISH UPJOB
025491,002245: 33,7126 02046 TC FINDVAC
025492,002246: 33,7127 67144 CADR UPJOB
025493,002247:
025494,002248: 33,7130 35362 CAF SEVEN
025495,002249: 33,7131 02312 TC NEWPHASE
025496,002250: 33,7132 00004 OCT 00004
025497,002251:
025498,002252: 33,7133 40036 CS TIME1
025499,002253: 33,7134 50666 TS TBASE4
025500,002254:
025501,002255: 33,7135 44516 CS ONE # REMOVE UPDATE RESTART CAPABILITY
025502,002256: 33,7136 02312 TC NEWPHASE
025503,002257: 33,7137 00005 OCT 5
025504,002258:
025505,002259: 33,7140 34513 CAF EIGHT
025506,002260: 33,7141 02312 TC NEWPHASE
025507,002261: 33,7142 00004 OCT 00004
025508,002262:
025509,002263: 33,7143 02256 TC TASKOVER
025510,002264:
025511,002265: 33,7144 02362 UPJOB TC NEWMODE # REVERT TO ATTITUDE HOLD.
025512,002266: 33,7145 00023 OCT 23
025513,002267:
025514,002268: 33,7146 32564 CAF LDNLST1 # REVERT BACK TO DOWNLIST 1.
025515,002269: 33,7147 50672 TS DNLSTADR
025516,002270:
025517,002271: 33,7150 04000 TC INTPRET
025518,002272:
025519,002273: 33,7151 43574 TEST 2 # NO FURTHER ACTION IF NO V76 COMPLETED.
025520,002274: 33,7152 70742 DAD DAD # IF SO, FORM DT FOR FINAL INTEGRATION.
025521,002275: 33,7153 66776 DSU
025522,002276: 33,7154 00023 UPDATFLG
025523,002277: 33,7155 27200 NOSTATE
025524,002278: 33,7156 01463 TCUTOFF
025525,002279: 33,7157 01557 TCOAST
025526,002280: 33,7160 27215 DP20SEC
025527,002281: 33,7161 01115 STBUFF +12D
025528,002282: 33,7162 33211 STORE TAVEGON
025529,002283:
025530,002284: 33,7163 76776 ITC 0
025531,002285: 33,7164 20010 AVETOMD2
025532,002286:
025533,002287: 33,7165 75176 VMOVE 0 # LEAVE RAVEGON, VAVEGON IN RN, VN.
025534,002288: 33,7166 01223 VAVEGON
025535,002289: 33,7167 32774 STORE VN
025536,002290:
025537,002291: 33,7170 75176 VMOVE 0
025538,002292: 33,7171 01215 RAVEGON
025539,002293: 33,7172 32766 STORE RN
025540,002294:
025541,002295: 33,7173 76575 RTB 1
025542,002296: 33,7174 76776 ITC
025543,002297: 33,7175 20264 FRESHPD
025544,002298: 33,7176 21632 CALCGRAV
025545,002299:
025546,002300: 33,7177 77576 NOSTATE EXIT 0
025547,002301:
025548,002302: 33,7200 02276 TC PHASCHNG
025549,002303: 33,7201 01104 OCT 01104
025550,002304:
025551,002305: 33,7202 03157 REDO4.9 TC JAMTERM # FLUSH OUT V76 IF STILL IN PINBALL
025552,002306:
025553,002307:
025554,002308:
025555,002309: 33,7203 36720 PLUSX1 CAF 2SEC33
025556,002310: 33,7204 02173 TC WAITLIST
025557,002311: 33,7205 65254 CADR PLUSX2
025558,002312:
025559,002313: 33,7206 03436 TC FLAG1DWN # REMOVE UPDAT FLAG TO KILL ORB. INTEGR.
025560,002314: 33,7207 20000 OCT 20000
025561,002315:
025562,002316: 33,7210 33537 CAF TWENTY7
025563,002317: 33,7211 02312 TC NEWPHASE
025564,002318: 33,7212 00004 OCT 4
025565,002319:
025566,002320: 33,7213 02256 TC TASKOVER
025567,002321:
025568,002322: 33,7214 00000 03720 DP20SEC 2DEC 2000 B-28
025569,002323: 33,7216 03410 18SEC DEC 1800 B-14
025570,002324:
025571,002325:
025572,002326: # SHUTDOWN IS A CLOSED SUBROUTINE WHICH IS ENTERED PRIOR TO CM/SM SEPARATION. ITS PURPOSE IS TO CLOSE OUT ALL SCS
025573,002327: # FUNCTIONS NOT CONCERNED WITH SEPARATION AND ENTRY, AND TO INITIATE THOSE THAT ARE
025574,002328:
025575,002329: 33,7217 20017 SHUTDOWN INHINT
025576,002330: 33,7220 32162 CAF PRIO27 # ESTABLISH HIGH PRIO JOB TO DO SHUTDOWN
025577,002331: 33,7221 02052 TC NOVAC
025578,002332: 33,7222 11134 CADR ENEMA # CLEANS OUT EXEC AND WAITLIST.
025579,002333: 33,7223 20016 RELINT
025580,002334:
025581,002335: 33,7224 34516 CAF ONE # EFFECTIVELY STOP ANY WAITLIST ACTIVITY
025582,002336: 33,7225 50037 TS TIME3
025583,002337:
025584,002338: 33,7226 44516 CS ONE
025585,002339: 33,7227 02312 TC NEWPHASE
025586,002340: 33,7230 00004 OCT 00004
025587,002341:
025588,002342: 33,7231 44516 CS ONE
025589,002343: 33,7232 02312 TC NEWPHASE
025590,002344: 33,7233 00002 OCT 00002
025591,002345:
025592,002346: 33,7234 33240 CAF TEN
025593,002347: 33,7235 02312 TC NEWPHASE
025594,002348: 33,7236 00003 OCT 00003
025595,002349:
025596,002350: 33,7237 05702 TC SWRETURN # (LOCATION OF TC Q)
025597,002351:
025598,002352:
025599,002353:
025600,002354: 33,7240 20017 SHUTJOB INHINT
025601,002355: 33,7241 44502 CS BIT13 # SHUT OFF ENGINE BIT
025602,002356: 33,7242 70011 MASK OUT1
025603,002357: 33,7243 50011 TS OUT1
025604,002358:
025605,002359: 33,7244 03413 TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE
025606,002360: 33,7245 40020 OCT 40020
025607,002361:
025608,002362: 33,7246 03436 TC FLAG1DWN # REMOVE DVMON, STEER, INIT FLAGS
025609,002363: 33,7247 00430 OCT 00430
025610,002364:
025611,002365: 33,7250 05654 TC BANKCALL # SET IMUCDU TO ATT. CONTROL (MAY BE RE-
025612,002366: 33,7251 30223 CADR IMUATTC # DUNDANT CALL)
025613,002367:
025614,002368: 33,7252 03502 TC SETHETAD # FORCE THETAD, +1, +2 TO READ CDUX,Y,Z
025615,002369:
025616,002370: 33,7253 36264 CAF ALLABORT # TEST IF ANY ABORT BURN SET
025617,002371: 33,7254 70647 MASK FLAGWRD2
025618,002372: 33,7255 10000 CCS A
025619,002373: 33,7256 07261 TC +3 # IT IS
025620,002374:
025621,002375: 33,7257 03470 TC SETBRNSW # IT IS NOT. SET BURN TO LAST (SPS4)
025622,002376: 33,7260 00100 OCT 00100
025623,002377:
025624,002378: 33,7261 05654 TC BANKCALL # WAIT FOR MODE SWITCH TO COMPLETE
025625,002379: 33,7262 30331 CADR IMUSTALL
025626,002380: 33,7263 03074 TC CURTAINS # CATCH-ALL FOR MODE SWITCH FAILURES
025627,002381:
025628,002382: 33,7264 40036 CS TIME1
025629,002383: 33,7265 50665 TS TBASE3
025630,002384:
025631,002385: 33,7266 34505 CAF BIT10 # TEST IF INTP FLAG SET (I.E. HAS 95 SEC
025632,002386: 33,7267 70646 MASK FLAGWRD1 # INTERUPT OCCURRED)
025633,002387: 33,7270 10000 CCS A
025634,002388: 33,7271 07276 TC TESTGMP # IT HAS NOT
025635,002389:
025636,002390: 33,7272 34510 CAF BIT7 # TEST IF INT1 FLAG SET (I.E. HAS 200 SEC
025637,002391: 33,7273 70646 MASK FLAGWRD1 # INTEREUPT OCCURRED)
025638,002392: 33,7274 10000 CCS A
025639,002393: 33,7275 07306 TC SHUTJOB1 # IT HAS
025640,002394:
025641,002395: 33,7276 34507 TESTGMP CAF BIT8 # TEST IF SCS GMP DISCRETE SET
025642,002396: 33,7277 70725 MASK DSPTAB +13D
025643,002397: 33,7300 10000 CCS A
025644,002398: 33,7301 07327 TC GMPOFF1 # IF IT IS, TURN IT OFF
025645,002399:
025646,002400: 33,7302 34515 CAF BIT2 # TEST IF DV MODE SET
025647,002401: 33,7303 70725 MASK DSPTAB +13D
025648,002402: 33,7304 10000 CCS A
025649,002403: 33,7305 07336 TC DVMODOF1 # IF IT IS, TURN IT OFF
025650,002404:
025651,002405: 33,7306 40646 SHUTJOB1 CS FLAGWRD1 # TEST IF SHUTDN FLAG SET
025652,002406: 33,7307 74503 MASK BIT12
025653,002407: 33,7310 10000 CCS A
025654,002408: 33,7311 07375 TC SETATTC # IT IS NOT. SHUTDOWN NOT DUE TO TFF
025655,002409:
025656,002410: 33,7312 34505 CAF BIT10 # TEST IF THIS IS 200 OR 95 SEC INTERRUPT
025657,002411: 33,7313 70646 MASK FLAGWRD1 # (INTP FLAG)
025658,002412: 33,7314 10000 CCS A
025659,002413: 33,7315 07371 TC SETSEP # 200 SEC INTERRUPT
025660,002414:
025661,002415: 33,7316 03460 KILLMANU TC FLAG2DWN # REMOVE CALC FLAG (KILL ANY MANEUVER)
025662,002416: 33,7317 02000 OCT 02000
025663,002417:
025664,002418: 33,7320 20017 INHINT # ALLOW 5 SECS FOR CSM TO SETTLE FROM ANY
025665,002419: 33,7321 36570 CAF 5SEC # ATTITUDE MANEUVER BEFORE SEPARATING
025666,002420: 33,7322 02173 TC WAITLIST
025667,002421: 33,7323 67440 CADR CDUXTASK
025668,002422: 33,7324 02276 TC PHASCHNG
025669,002423: 33,7325 01303 OCT 01303
025670,002424:
025671,002425: 33,7326 02124 TC ENDOFJOB
025672,002426:
025673,002427: 33,7327 20017 GMPOFF1 INHINT
025674,002428: 33,7330 36720 CAF 2SEC33 # CALL FOR SCS GMP OFF IN 2 SECS
025675,002429: 33,7331 02173 TC WAITLIST
025676,002430: 33,7332 67346 CADR GMPOFF2
025677,002431:
025678,002432: 33,7333 02276 TC PHASCHNG
025679,002433: 33,7334 02703 OCT 02703
025680,002434:
025681,002435: 33,7335 02124 TC ENDOFJOB
025682,002436:
025683,002437: 33,7336 20017 DVMODOF1 INHINT
025684,002438: 33,7337 37401 CAF 3.5SEC33 # CALL FOR DV MODE OFF IN 3.5 SECS
025685,002439: 33,7340 02173 TC WAITLIST
025686,002440: 33,7341 67357 CADR DVMODOF2
025687,002441: 33,7342 20016 RELINT
025688,002442:
025689,002443: 33,7343 02276 TC PHASCHNG
025690,002444: 33,7344 03003 OCT 03003
025691,002445:
025692,002446: 33,7345 02124 TC ENDOFJOB
025693,002447:
025694,002448: 33,7346 03413 GMPOFF2 TC RELAYOFF # REMOVE SCS GMP DISCRETE
025695,002449: 33,7347 40200 OCT 40200
025696,002450:
025697,002451: 33,7350 37401 CAF 3.5SEC33 # CALL FOR DV MODE OFF IN 3.5 SECS
025698,002452: 33,7351 02173 TC WAITLIST
025699,002453: 33,7352 67357 CADR DVMODOF2
025700,002454:
025701,002455: 33,7353 33535 CAF TWENTY5
025702,002456: 33,7354 02312 TC NEWPHASE
025703,002457: 33,7355 00003 OCT 3
025704,002458:
025705,002459: 33,7356 02256 TC TASKOVER
025706,002460:
025707,002461: 33,7357 03413 DVMODOF2 TC RELAYOFF # REMOVE SCS DV MODE DISCRETE
025708,002462: 33,7360 40002 OCT 40002
025709,002463:
025710,002464: 33,7361 37400 CAF 0.25S33 # CALL FOR SCS ATT. CONTROL IN U/4 SEC
025711,002465: 33,7362 02173 TC WAITLIST
025712,002466: 33,7363 67365 CADR SHUTASK
025713,002467:
025714,002468: 33,7364 02256 TC TASKOVER
025715,002469:
025716,002470: 33,7365 32162 SHUTASK CAF PRIO27 # ESTABLISH JOB TO RESUME SHUTDOWN PROCESS
025717,002471: 33,7366 02052 TC NOVAC
025718,002472: 33,7367 67306 CADR SHUTJOB1
025719,002473:
025720,002474: 33,7370 02256 TC TASKOVER
025721,002475:
025722,002476: 33,7371 20017 SETSEP INHINT
025723,002477: 33,7372 32146 CAF PRIO12
025724,002478: 33,7373 02046 TC FINDVAC # CM/SM SEPARATION ATTITUDE
025725,002479: 33,7374 67404 CADR SEPMANU
025726,002480:
025727,002481: 33,7375 03401 SETATTC TC RELAYON # SET SCS ATT. CONTROL DISCRETE (C23)
025728,002482: 33,7376 40001 OCT 40001
025729,002483:
025730,002484: 33,7377 02124 TC ENDOFJOB
025731,002485:
025732,002486: 33,7400 00031 0.25S33 DEC 25 B-14
025733,002487: 33,7401 00536 3.5SEC33 DEC 350 B-14
025734,002488: 33,7402 00764 5SEC33 DEC 500 B-14
025735,002489: 33,7403 01274 7SEC33 DEC 700 B-14
025736,002490:
025737,002491:
025738,002492: 33,7404 02362 SEPMANU TC NEWMODE # SET MAJOR MODE TO SEPARATION MANEUVER
025739,002493: 33,7405 00061 OCT 00061
025740,002494:
025741,002495: 33,7406 04000 TC INTPRET
025742,002496:
025743,002497: 33,7407 73175 UNIT 1 # COMPUTE DESIRED S/C ORIENTATION FOR
025744,002498: 33,7410 75633 VXSC COMP # CM/SM SEPARATION
025745,002499: 33,7411 00774 VN
025746,002500: 33,7412 27437 COS60
025747,002501:
025748,002502: 33,7413 47575 NOLOD 1
025749,002503: 33,7414 41753 VXV UNIT
025750,002504: 33,7415 00766 RN
025751,002505: 33,7416 33417 STORE YSCD # YSCD IS ALONG (RN*VN)
025752,002506:
025753,002507: 33,7417 47573 NOLOD 3
025754,002508: 33,7420 41753 VXV UNIT
025755,002509: 33,7421 75642 VXSC VAD
025756,002510: 33,7422 47176 COMP
025757,002511: 33,7423 00774 VN
025758,002512: 33,7424 27435 SIN60
025759,002513: 33,7425 33411 STORE XSCD # XSCD IS 60 DEG ABOVE VELOCITY VECTOR
025760,002514:
025761,002515: 33,7426 47575 NOLOD 1
025762,002516: 33,7427 41753 VXV UNIT
025763,002517: 33,7430 01417 YSCD
025764,002518: 33,7431 33425 STORE ZSCD
025765,002519:
025766,002520: 33,7432 76776 ITC 0 # BRANCH TO PERFORM MANEUVER TO THE
025767,002521: 33,7433 26420 ATTIJOB1 # SEPARATION ATTITUDE
025768,002522:
025769,002523: 33,7434 33555 01106 SIN60 2DEC 0.86603
025770,002524: 33,7436 20000 00000 COS60 2DEC 0.5
025771,002525:
025772,002526:
025773,002527: 33,7440 36570 CDUXTASK CAF 5SEC # ALLOW 5 SECS FOR CDUX RESOLVER SCALE
025774,002528: 33,7441 02173 TC WAITLIST # CHANGE
025775,002529: 33,7442 67522 CADR CM/SMTSK
025776,002530:
025777,002531: 33,7443 34501 CAF PRIO20
025778,002532: 33,7444 02046 TC FINDVAC
025779,002533: 33,7445 67454 CADR CDUXJOB
025780,002534:
025781,002535: 33,7446 03413 TC RELAYOFF # SET SCS TO MONITOR MODE
025782,002536: 33,7447 40007 OCT 40007
025783,002537:
025784,002538: 33,7450 33520 CAF TWELVE
025785,002539: 33,7451 02312 TC NEWPHASE
025786,002540: 33,7452 00003 OCT 00003
025787,002541:
025788,002542: 33,7453 02256 TC TASKOVER
025789,002543:
025790,002544:
025791,002545:
025792,002546: 33,7454 40700 CDUXJOB CS THETAD
025793,002547: 33,7455 40000 COM
025794,002548: 33,7456 51314 TS CDUTEMP
025795,002549:
025796,002550: 33,7457 11314 CCS CDUTEMP # GET MAGNITUDE OF THETAD
025797,002551: 33,7460 64516 AD ONE
025798,002552: 33,7461 07463 TC +2
025799,002553: 33,7462 64516 AD ONE
025800,002554: 33,7463 50115 TS MPAC # AND SAVE IT
025801,002555:
025802,002556: 33,7464 25777 EXTEND # FIND NEAREST INTEGER MULTIPLE OF 1/16
025803,002557: 33,7465 47533 MP 15/16TH
025804,002558: 33,7466 64504 AD BIT11
025805,002559: 33,7467 77534 MASK HIGH4
025806,002560: 33,7470 30115 XCH MPAC # AND SAVE IT
025807,002561:
025808,002562: 33,7471 25777 EXTEND # SHIFT ORIGINAL THETAD RIGHT 4 PLACES
025809,002563: 33,7472 44504 MP BIT11
025810,002564: 33,7473 60115 AD MPAC # AND ADD INTEGER MULTIPLE
025811,002565: 33,7474 20017 INHINT
025812,002566: 33,7475 50700 TS THETAD
025813,002567:
025814,002568: 33,7476 11314 CCS CDUTEMP # ATTACH SIGN OF ORIGINAL THETAD
025815,002569: 33,7477 30115 XCH MPAC # MPAC HAS POSITIVE CDUBIAS
025816,002570: 33,7500 07504 TC +4
025817,002571: 33,7501 40700 CS THETAD
025818,002572: 33,7502 50700 TS THETAD
025819,002573:
025820,002574: 33,7503 40115 CS MPAC # COMPLEMENT INTEGER MULTIPLE
025821,002575: 33,7504 51450 TS K1ROLL # SCALED AT 1/2 REV FOR ENTRY
025822,002576: 33,7505 20016 RELINT
025823,002577: 33,7506 02276 TC PHASCHNG
025824,002578: 33,7507 01503 OCT 01503
025825,002579:
025826,002580: 33,7510 03446 REDO3.13 TC FLAG2UP # SET CDUX FLAG
025827,002581: 33,7511 20000 OCT 20000
025828,002582:
025829,002583: 33,7512 05654 TC BANKCALL # CHANGE IMUCDU MODE TO RE-ENTRY
025830,002584: 33,7513 30216 CADR IMUREENT
025831,002585:
025832,002586: 33,7514 05654 TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH
025833,002587: 33,7515 30331 CADR IMUSTALL
025834,002588: 33,7516 03074 TC CURTAINS # CATCH-ALL FOR MODE SWITCH FAILURES
025835,002589:
025836,002590: 33,7517 02276 TC PHASCHNG
025837,002591: 33,7520 01603 OCT 01603
025838,002592:
025839,002593: 33,7521 02124 TC ENDOFJOB
025840,002594:
025841,002595:
025842,002596:
025843,002597: 33,7522 03401 CM/SMTSK TC RELAYON # SET SCS ENTRY MODE AND CM/SM SEPARATION
025844,002598: 33,7523 40014 OCT 40014 # DISCRETES
025845,002599:
025846,002600: 33,7524 33523 CAF FIFTN
025847,002601: 33,7525 02312 TC NEWPHASE
025848,002602: 33,7526 00003 OCT 00003
025849,002603:
025850,002604: 33,7527 36570 CAF 5SEC # SET CALL TO START PRE-ENTRY ATTITUDE
025851,002605: 33,7530 02173 TC WAITLIST # MANEUVER IN 5 SECS
025852,002606: 33,7531 67535 CADR ENTATASK
025853,002607:
025854,002608: 33,7532 02256 TC TASKOVER
025855,002609:
025856,002610: 33,7533 36000 15/16TH OCT 36000
025857,002611: 33,7534 74000 HIGH4 OCT 74000
025858,002612:
025859,002613:
025860,002614: 33,7535 32146 ENTATASK CAF PRIO12
025861,002615: 33,7536 02046 TC FINDVAC
025862,002616: 33,7537 67541 CADR ENTAJOB
025863,002617:
025864,002618: 33,7540 02256 TC TASKOVER
025865,002619:
025866,002620:
025867,002621:
025868,002622: 33,7541 02362 ENTAJOB TC NEWMODE # SET MAJOR MODE TO PRE-ENTRY MANEUVER
025869,002623: 33,7542 00062 OCT 00062
025870,002624:
025871,002625: 33,7543 35501 CAF ZERO
025872,002626: 33,7544 51472 TS ROLLC # ROLLC = +0
025873,002627: 33,7545 51473 TS ROLLC +1
025874,002628:
025875,002629: 33,7546 04000 TC INTPRET
025876,002630:
025877,002631: 33,7547 71174 ABVAL 2
025878,002632: 33,7550 66756 DSU BMN
025879,002633: 33,7551 41423 LODON DMOVE
025880,002634: 33,7552 00774 VN
025881,002635: 33,7553 21510 DOWNVEL
025882,002636: 33,7554 27560 GOGETUNB
025883,002637: 33,7555 21212 HALVE
025884,002638: 33,7556 33473 STORE ROLLC
025885,002639:
025886,002640: 33,7557 76776 GOGETUNB ITC 0 # COMPUTE DESIRED NAV BASE COORDS.
025887,002641: 33,7560 21242 GETUNB
025888,002642:
025889,002643: 33,7561 76776 ITC 0 # GET DESIRED S/C COORSD
025890,002644: 33,7562 12213 CALCNBSC
025891,002645:
025892,002646: 33,7563 75176 VMOVE 0 # TRANSFER DESIRED S/C UNIT VECTORS
025893,002647: 33,7564 01367 XSC
025894,002648: 33,7565 33411 STORE XSCD
025895,002649:
025896,002650: 33,7566 75176 VMOVE 0
025897,002651: 33,7567 01375 YSC
025898,002652: 33,7570 33417 STORE YSCD
025899,002653:
025900,002654: 33,7571 75176 VMOVE 0
025901,002655: 33,7572 01403 ZSC
025902,002656: 33,7573 33425 STORE ZSCD
025903,002657:
025904,002658: 33,7574 76776 ITC 0 # BRANCH TO PERFORM MANEUVER TO PRE-ENTRY
025905,002659: 33,7575 26420 ATTIJOB1 # ATTITUDE
025906,002660:
025907,002661: 33,7576 00007 ABORT33 OCT 00007 # (OR OF ARRST,TABT,ABRT)
025908,002662:
025909,002663:
025910,002664:
025911,002665: 3401 BANK 1
025912,002666:
025913,002667: 3401 20001 RELAYON INDEX Q
025914,002668: 3402 40000 CS 0
025915,002669: 3403 20017 INHINT
025916,002670: 3404 70725 MASK DSPTAB +13D
025917,002671: 3405 20001 INDEX Q
025918,002672: 3406 60000 AD 0
025919,002673: 3407 50725 TS DSPTAB +13D
025920,002674: 3410 20016 RELINT
025921,002675: 3411 20001 INDEX Q
025922,002676: 3412 00001 TC 1
025923,002677:
025924,002678: 3413 20001 RELAYOFF INDEX Q
025925,002679: 3414 40000 CS 0
025926,002680: 3415 20017 INHINT
025927,002681: 3416 70725 MASK DSPTAB +13D
025928,002682: 3417 64500 AD BIT15
025929,002683: 3420 50725 TS DSPTAB +13D
025930,002684: 3421 20016 RELINT
025931,002685: 3422 20001 INDEX Q
025932,002686: 3423 00001 TC 1
025933,002687:
025934,002688: 3424 20001 FLAG1UP INDEX Q
025935,002689: 3425 40000 CS 0
025936,002690: 3426 20017 INHINT
025937,002691: 3427 70646 MASK FLAGWRD1
025938,002692: 3430 20001 INDEX Q
025939,002693: 3431 60000 AD 0
025940,002694: 3432 50646 TS FLAGWRD1
025941,002695: 3433 20016 RELINT
025942,002696: 3434 20001 INDEX Q
025943,002697: 3435 00001 TC 1
025944,002698:
025945,002699: 3436 20001 FLAG1DWN INDEX Q
025946,002700: 3437 40000 CS 0
025947,002701: 3440 20017 INHINT
025948,002702: 3441 70646 MASK FLAGWRD1
025949,002703: 3442 50646 TS FLAGWRD1
025950,002704: 3443 20016 RELINT
025951,002705: 3444 20001 INDEX Q
025952,002706: 3445 00001 TC 1
025953,002707:
025954,002708: 3446 20001 FLAG2UP INDEX Q
025955,002709: 3447 40000 CS 0
025956,002710: 3450 20017 INHINT
025957,002711: 3451 70647 MASK FLAGWRD2
025958,002712: 3452 20001 INDEX Q
025959,002713: 3453 60000 AD 0
025960,002714: 3454 50647 TS FLAGWRD2
025961,002715: 3455 20016 RELINT
025962,002716: 3456 20001 INDEX Q
025963,002717: 3457 00001 TC 1
025964,002718:
025965,002719: 3460 20001 FLAG2DWN INDEX Q
025966,002720: 3461 40000 CS 0
025967,002721: 3462 20017 INHINT
025968,002722: 3463 70647 MASK FLAGWRD2
025969,002723: 3464 50647 TS FLAGWRD2
025970,002724: 3465 20016 RELINT
025971,002725: 3466 20001 INDEX Q
025972,002726: 3467 00001 TC 1
025973,002727:
025974,002728: 3470 43501 SETBRNSW CS BURNMASK
025975,002729: 3471 20017 INHINT
025976,002730: 3472 70647 MASK FLAGWRD2
025977,002731: 3473 20001 INDEX Q
025978,002732: 3474 60000 AD 0
025979,002733: 3475 50647 TS FLAGWRD2
025980,002734: 3476 20016 RELINT
025981,002735: 3477 20001 INDEX Q
025982,002736: 3500 00001 TC 1
025983,002737:
025984,002738: 3501 00177 BURNMASK OCT 00177
025985,002739:
025986,002740:
025987,002741:
025988,002742: 3502 20017 SETHETAD INHINT
025989,002743: 3503 40047 CS CDUX
025990,002744: 3504 40000 COM
025991,002745: 3505 50700 TS THETAD
025992,002746: 3506 40050 CS CDUY
025993,002747: 3507 40000 COM
025994,002748: 3510 50701 TS THETAD +1
025995,002749: 3511 40051 CS CDUZ
025996,002750: 3512 40000 COM
025997,002751: 3513 50702 TS THETAD +2
025998,002752: 3514 20016 RELINT
025999,002753: 3515 00001 TC Q
026000,002754:
026001,002755:
026002,002756:
026003,002757: 3516 00011 NINE DEC 9 B-14
026004,002758: 3517 00013 ELEVEN OCT 00013
026005,002759: 3520 3517 11DEC EQUALS ELEVEN
026006,002760: 3520 00014 TWELVE OCT 00014
026007,002761: 3521 00015 THIRTN OCT 00015
026008,002762: 3522 3521 THIRTEEN EQUALS THIRTN
026009,002763: 3522 00016 FOURTN OCT 00016
026010,002764: 3523 00017 FIFTN OCT 00017
026011,002765: 3524 00020 SIXTN OCT 00020
026012,002766: 3525 00021 SEVENTN OCT 00021
026013,002767: 3526 00022 EIGHTN OCT 00022
026014,002768: 3527 00023 NINETEEN DEC 19 B-14
026015,002769: 3530 00024 TWENTY0 OCT 00024
026016,002770: 3531 3530 TWENTY EQUALS TWENTY0
026017,002771: 3531 00025 TWENTY1 OCT 00025
026018,002772: 3532 00026 TWENTY2 OCT 00026
026019,002773: 3533 00027 TWENTY3 OCT 00027
026020,002774: 3534 00030 TWENTY4 OCT 00030
026021,002775: 3535 00031 TWENTY5 OCT 00031
026022,002776:
026023,002777: 3536 00032 TWENTY6 DEC 26 B-14
026024,002778:
026025,002779: 3537 00033 TWENTY7 DEC 27 B-14
026026,002780:
026027,002781: 3540 00034 TWENTY8 DEC 28 B-14
026028,002782: 3541 00035 TWENTY9 DEC 29 B-14
026029,002783: 3542 00036 THIRTY DEC 30 B-14
026030,002784: 3543 3542 30DEC EQUALS THIRTY
026031,002785: 3543 00050 FORTY DEC 40 B-14
026032,002786: 3544 3543 40DEC EQUALS FORTY
026033,002787: 3544 00062 FIFTY DEC 50 B-14
026034,002788: 3545 3544 50DEC EQUALS FIFTY
026035,002789: 3545 00074 SIXTY DEC 60 B-14
026036,002790: 3546 3545 60DEC EQUALS SIXTY
026037,002791: 3546 00144 100DEC DEC 100 B-14
026038,002792: 3547 00310 200DEC DEC 200 B-14
026039,002793: 3550 00454 300DEC DEC 300 B-14
026040,002794: 3551 00620 400DEC DEC 400 B-14
026041,002795: 3552 00764 500DEC DEC 500 B-14
026042,002796: 3553 01130 600DEC DEC 600 B-14
026043,002797: 3554 3553 SIXHNDRD EQUALS 600DEC
026044,002798: 3554 01750 1000DEC DEC 1000 B-14
026045,002799: 3555 03720 2000DEC DEC 2000 B-14
End of include-file 202_MISSION_CONTROL_PROGRAM.agc. Parent file is MAIN.agc