Source Code
![]() |
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55 BY NASA 1021108-021 DEC. 4, 1966Note that the date is the date of the printout, not the date of the program revision. Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions. |
021451,000002: ## Copyright: Public domain.
021452,000003: ## Filename: 501_MISSION_CONTROL_PROGRAM.agc
021453,000004: ## Purpose: Part of the source code for Solarium build 55. This
021454,000005: ## is for the Command Module's (CM) Apollo Guidance
021455,000006: ## Computer (AGC), for Apollo 6.
021456,000007: ## Assembler: yaYUL --block1
021457,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
021458,000009: ## Website: www.ibiblio.org/apollo/index.html
021459,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
021460,000011: ## Mod history: 2009-09-26 JL Created.
021461,000012: ## 2016-08-20 RSB Typos.
021462,000013: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
021463,000014: ## and fixed errors found.
021464,000015:
![]() |
Page 553 |
021466,000017:
021467,000018: 32,6000 SETLOC 64000
021468,000019: 32,6000 20017 LIFTOFF INHINT
021469,000020: 32,6001 02677 TC READTIME +1 # SAVE TIME OF LIFTOFF
021470,000021: 32,6002 40572 CS RUPTSTOR
021471,000022: 32,6003 51462 TS TLIFTOFF
021472,000023: 32,6004 40573 CS RUPTSTOR +1
021473,000024: 32,6005 51463 TS TLIFTOFF +1
021474,000025:
021475,000026: 32,6006 40000 COM
021476,000027: 32,6007 50666 TS TBASE4
021477,000028:
021478,000029: 32,6010 33533 CALL4.11 CAF ELEVEN
021479,000030: 32,6011 02312 TC NEWPHASE
021480,000031: 32,6012 00004 OCT 00004
021481,000032:
021482,000033: 32,6013 10000 CCS A
021483,000034: 32,6014 06022 TC SETLIFT
021484,000035: 32,6015 06022 TC SETLIFT
021485,000036:
021486,000037: 32,6016 20017 INHINT
021487,000038: 32,6017 37567 CAF 2SEC # ALLOW 2 SECS FOR BACK-UP GRR COMPUTATION
021488,000039: 32,6020 02173 TC WAITLIST
021489,000040: 32,6021 64025 CADR TARGTASK
021490,000041:
021491,000042: 32,6022 03416 SETLIFT TC FLAG1UP
021492,000043: 32,6023 00002 OCT 00002
021493,000044:
021494,000045: 32,6024 03151 TC JAMTERM # FLUSH V75 GRR BACKUP.
021495,000046:
021496,000047: 32,6025 33557 TARGTASK CAF THIRTY1
021497,000048: 32,6026 02312 TC NEWPHASE
021498,000049: 32,6027 00004 OCT 00004
021499,000050:
021500,000051: 32,6030 35501 CAF ZERO
021501,000052: 32,6031 50665 TS TBASE3
021502,000053:
021503,000054: 32,6032 34516 CAF ONE
021504,000055: 32,6033 02312 TC NEWPHASE
021505,000056: 32,6034 00003 OCT 00003
021506,000057:
021507,000058: 32,6035 35501 CAF ZERO # FIX UP TBASE5 FOR READACCS RESTART AND
021508,000059: 32,6036 60667 AD TBASE5 # LOAD 2 SECS INTO TIME COUNTERS (I.E.
021509,000060: 32,6037 61463 AD TLIFTOFF +1 # ZERO THE AGC CLOCK AT LIFT-OFF)
021510,000061: 32,6040 64520 AD NEG1/2
021511,000062: 32,6041 64520 AD NEG1/2
021512,000063: 32,6042 30667 XCH TBASE5
021513,000064:
021514,000065: 32,6043 33565 CAF 200DEC
021515,000066: 32,6044 50036 TS TIME1
021516,000067:
021517,000068: 32,6045 33560 CAF THIRTY2
![]() |
Page 554 |
021519,000070: 32,6046 02312 TC NEWPHASE
021520,000071: 32,6047 00004 OCT 00004
021521,000072:
021522,000073: 32,6050 43565 CS 200DEC # CALL ON BOOST MONITOR
021523,000074: 32,6051 61563 AD TROLL +1
021524,000075: 32,6052 02173 TC WAITLIST
021525,000076: 32,6053 64066 CADR MON1TASK
021526,000077:
021527,000078: 32,6054 32146 REDO4.32 CAF PRIO12
021528,000079: 32,6055 02046 TC FINDVAC
021529,000080: 32,6056 50000 CADR TARGJOB
021530,000081:
021531,000082: 32,6057 35501 CAF ZERO # FINALLY ZERO TIME2
021532,000083: 32,6060 50035 TS TIME2
021533,000084:
021534,000085: 32,6061 02256 TC TASKOVER
021535,000086:
021536,000087: 32,6062 32170 REDO4.31 CAF PRIO35
021537,000088: 32,6063 02052 TC NOVAC
021538,000089: 32,6064 11147 CADR ENEMA
021539,000090:
021540,000091: 32,6065 06030 TC TARGTASK +3
021541,000092:
021542,000093:
021543,000094:
021544,000095: 24,6000 BANK 24
021545,000096:
021546,000097: 24,6000 05654 TARGJOB TC BANKCALL # COMMAND IMUCDU TO ATT. CONTROL MODE
021547,000098: 24,6001 30223 CADR IMUATTC
021548,000099:
021549,000100: 24,6002 02362 TC NEWMODE # SET MAJOR MODE TO BOOST ATTITUDE MONITOR
021550,000101: 24,6003 00011 OCT 00011
021551,000102:
021552,000103: 24,6004 03516 TC SETHETAD # FORCE THETAD,+1,+2 TO EQUAL CDUX,Y,Z
021553,000104:
021554,000105: 24,6005 04000 TC INTPRET
021555,000106:
021556,000107: 24,6006 66776 DSU 0 # TARGET VECTORS INITIALLY REFERENCED TO
021557,000108: 24,6007 01463 TLIFTOFF # GRR. WILL NOW UPDATE THEM TO LIFT-OFF
021558,000109: 24,6010 01467 TIME2GR
021559,000110: 24,6011 33145 STORE DTEAROT
021560,000111:
021561,000112: 24,6012 45176 DMOVE 0
021562,000113: 24,6013 01630 TPACIF1
021563,000114: 24,6014 33537 STORE TPACIFC
021564,000115:
021565,000116: 24,6015 45176 DMOVE 0
021566,000117: 24,6016 01620 TATLAN1
021567,000118: 24,6017 33527 STORE TATLANT
![]() |
Page 555 |
021569,000120: 24,6020 75176 VMOVE 0
021570,000121: 24,6021 01632 RTPACIF1
021571,000122: 24,6022 33115 STORE RTINIT
021572,000123:
021573,000124: 24,6023 76776 ITC 0
021574,000125: 24,6024 13450 EARROT1
021575,000126:
021576,000127: 24,6025 47576 NOLOD 0
021577,000128: 24,6026 33541 STORE RTPACIFC
021578,000129:
021579,000130: 24,6027 75176 VMOVE 0
021580,000131: 24,6030 01622 RTATLAN1
021581,000132: 24,6031 33115 STORE RTINIT
021582,000133:
021583,000134: 24,6032 76776 ITC 0
021584,000135: 24,6033 13450 EARROT1
021585,000136:
021586,000137: 24,6034 47576 NOLOD 0
021587,000138: 24,6035 33531 STORE RTATLANT
021588,000139:
021589,000140: 24,6036 77576 EXIT 0
021590,000141:
021591,000142: 24,6037 05654 TARGET TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH
021592,000143: 24,6040 30331 CADR IMUSTALL
021593,000144: 24,6041 03066 TC CURTAINS # TRAP IF INCOMPLETE
021594,000145:
021595,000146: 24,6042 44516 CS ONE
021596,000147: 24,6043 02312 TC NEWPHASE
021597,000148: 24,6044 00004 OCT 00004
021598,000149:
021599,000150: 24,6045 02124 TC ENDOFJOB
021600,000151:
![]() |
Page 556 |
021602,000153:
021603,000154: 32,6066 BANK 32
021604,000155:
021605,000156: 32,6066 32143 MON1TASK CAF PRIO5
021606,000157: 32,6067 02046 TC FINDVAC
021607,000158: 32,6070 64074 CADR MONITJOB
021608,000159:
021609,000160: 32,6071 03416 TC FLAG1UP # SET MONIT FLAG
021610,000161: 32,6072 00040 MONITMSK OCT 00040
021611,000162:
021612,000163: 32,6073 02256 TC TASKOVER
021613,000164:
021614,000165:
021615,000166:
021616,000167: 32,6074 02276 MONITJOB TC PHASCHNG
021617,000168: 32,6075 03203 OCT 03203
021618,000169:
021619,000170: 32,6076 04000 TC INTPRET
021620,000171:
021621,000172: 32,6077 76575 RTB 1 # FORM TIME SINCE START OF MONITOR
021622,000173: 32,6100 66776 DSU
021623,000174: 32,6101 20253 LOADTIME
021624,000175: 32,6102 01565 TPITCH
021625,000176: 32,6103 33571 STORE TMONITOR # SCALED AT 2(+28) CS
021626,000177:
021627,000178: 32,6104 47574 NOLOD 2 # TEST IF TIME TO START PITCH MONITOR
021628,000179: 32,6105 43605 BPL LODON
021629,000180: 32,6106 45176 DMOVE
021630,000181: 32,6107 24113 +3
021631,000182: 32,6110 07227 DPZERO # NO
021632,000183: 32,6111 33571 STORE TMONITOR
021633,000184:
021634,000185: 32,6112 47573 PITCH1 NOLOD 3 # TEST IF TIME TO STOP MONITOR
021635,000186: 32,6113 66756 DSU BMN
021636,000187: 32,6114 41423 LODON DMOVE
021637,000188: 32,6115 42576 SWITCH
021638,000189: 32,6116 01567 TENDPTCH
021639,000190: 32,6117 24124 +4
021640,000191: 32,6120 01567 TENDPTCH # IF IT IS, SET TMONITOR TO MAX AND REMOVE
021641,000192: 32,6121 00033 MONITFLG # MONIT FLAG
021642,000193: 32,6122 33571 STORE TMONITOR
021643,000194:
021644,000195: 32,6123 45174 DMOVE 2 # DO SIGN AGREE AND RESCALE TO 2(+14) CS
021645,000196: 32,6124 76516 RTB TSLT
021646,000197: 32,6125 76516 RTB TSLT
021647,000198: 32,6126 01571 TMONITOR
021648,000199: 32,6127 20404 SGNAGREE
021649,000200: 32,6130 00017 14D
021650,000201: 32,6131 24246 POLYENT1 # SOLVE PITCH POLYNOMIAL
021651,000202: 32,6132 00005 4
021652,000203: 32,6133 32025 STORE 20D # CHI SCALED AT 1 REV.
![]() |
Page 557 |
021654,000205: 32,6134 57176 SIN 0
021655,000206: 32,6135 00025 20D
021656,000207:
021657,000208: 32,6136 45176 DMOVE 0
021658,000209: 32,6137 07227 DPZERO
021659,000210:
021660,000211: 32,6140 55175 COS 1
021661,000212: 32,6141 41176 VDEF
021662,000213: 32,6142 00025 20D
021663,000214: 32,6143 32027 STORE 22D # UNIT VECTOR ALONG VEHICLE ROLL AXIS
021664,000215:
021665,000216: 32,6144 47576 NOLOD 0
021666,000217: 32,6145 33411 STORE XSCD
021667,000218:
021668,000219: 32,6146 45176 DMOVE 0
021669,000220: 32,6147 01415 XSCD +4
021670,000221: 32,6150 32027 STORE 22D # FORM VECTOR (XSCD +4, 0, -XSCD) AT 22D
021671,000222:
021672,000223: 32,6151 47176 COMP 0
021673,000224: 32,6152 01411 XSCD
021674,000225: 32,6153 32033 STORE 26D
021675,000226:
021676,000227: 32,6154 76572 ROLLER RTB 4 # FORM DESIRED ROLL EXCURSION
021677,000228: 32,6155 66712 DSU DDV
021678,000229: 32,6156 66756 DSU BMN
021679,000230: 32,6157 41423 LODON DMOVE
021680,000231: 32,6160 76576 RTB
021681,000232: 32,6161 20253 LOADTIME
021682,000233: 32,6162 01563 TROLL
021683,000234: 32,6163 01701 1/RLLRTE
021684,000235: 32,6164 01703 MAXROLL
021685,000236: 32,6165 24171 +3
021686,000237: 32,6166 07227 DPZERO # IF EXCEEDS MAX VALUE, SET ROLL ATTITUDE
021687,000238: 32,6167 20265 FRESHPD # TO ZERO
021688,000239:
021689,000240: 32,6170 47576 NOLOD 0
021690,000241: 32,6171 32025 STORE 20D # ROLL ANGLE SCALED AT 1 REV.
021691,000242:
021692,000243: 32,6172 47575 NOLOD 1
021693,000244: 32,6173 57176 SIN
021694,000245: 32,6174 32023 STORE 18D
021695,000246:
021696,000247: 32,6175 47575 NOLOD 1
021697,000248: 32,6176 63766 TSLT VXSC
021698,000249: 32,6177 00002 1
021699,000250: 32,6200 00027 22D
021700,000251: 32,6201 33417 STORE YSCD
021701,000252:
021702,000253: 32,6202 55175 COS 1
021703,000254: 32,6203 47176 COMP
![]() |
Page 558 |
021705,000256: 32,6204 00025 20D
021706,000257: 32,6205 33421 STORE YSCD +2
021707,000258:
021708,000259: 32,6206 47574 NOLOD 2
021709,000260: 32,6207 47166 COMP VXSC
021710,000261: 32,6210 44776 VSLT
021711,000262: 32,6211 00027 22D
021712,000263: 32,6212 00002 1
021713,000264: 32,6213 33425 STORE ZSCD
021714,000265:
021715,000266: 32,6214 45176 DMOVE 0
021716,000267: 32,6215 00023 18D
021717,000268: 32,6216 33427 STORE ZSCD +2
021718,000269:
021719,000270: 32,6217 76776 ITC 0 # RESOLVE INTO NB COORDS.
021720,000271: 32,6220 12167 CALCSCNB
021721,000272:
021722,000273: 32,6221 76776 ITC 0 # EXTRACT EULER ANGLES FROM XNB MATRIX
021723,000274: 32,6222 12072 CALCCDU
021724,000275:
021725,000276: 32,6223 47576 NOLOD 0 # STORE THE ANGLES
021726,000277: 32,6224 32701 STORE THETAD
021727,000278:
021728,000279: 32,6225 77576 EXIT 0
021729,000280:
021730,000281: 32,6226 34511 CAF BIT6 # TEST IF MONIT FLAG SET
021731,000282: 32,6227 70646 MASK FLAGWRD1
021732,000283: 32,6230 10000 CCS A
021733,000284: 32,6231 06074 TC MONITJOB # IT IS. RECYCLE MONITJOB
021734,000285:
021735,000286: 32,6232 20017 INHINT # CALL TUMBLE MONITOR IN TTUMON SECS
021736,000287: 32,6233 41572 CS TTUMON
021737,000288: 32,6234 40000 COM
021738,000289: 32,6235 02173 TC WAITLIST
021739,000290: 32,6236 64250 CADR TUMBTSK1
021740,000291:
021741,000292: 32,6237 40036 CS TIME1
021742,000293: 32,6240 50665 TS TBASE3
021743,000294:
021744,000295: 32,6241 35503 CAF TWO
021745,000296: 32,6242 02312 TC NEWPHASE
021746,000297: 32,6243 00003 OCT 00003
021747,000298:
021748,000299: 32,6244 02124 TC ENDOFJOB
021749,000300:
021750,000301:
021751,000302:
021752,000303: 32,6245 33534 POLYENT1 CAF TWELVE # RTB HERE PRIOR TO ENTERING ERASABLE FOR
021753,000304: 32,6246 51574 TS POLYORDR # POLYNOMIAL
021754,000305: 32,6247 01573 TC POLYENTR
![]() |
Page 559 |
021756,000307:
021757,000308: 32,6250 33553 TUMBTSK1 CAF TWENTY7
021758,000309: 32,6251 02312 TC NEWPHASE
021759,000310: 32,6252 00003 OCT 3
021760,000311:
021761,000312: 32,6253 32155 CAF PRIO22
021762,000313: 32,6254 02046 TC FINDVAC
021763,000314: 32,6255 64257 CADR TUMBJOB1
021764,000315:
021765,000316: 32,6256 06325 TC RESET1
021766,000317:
021767,000318:
021768,000319:
021769,000320: 32,6257 05654 TUMBJOB1 TC BANKCALL # SWITCH IMUCDU MODE TO FINE ALIGN
021770,000321: 32,6260 30163 CADR IMUFINNW
021771,000322:
021772,000323: 32,6261 05654 TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH
021773,000324: 32,6262 30331 CADR IMUSTALL
021774,000325: 32,6263 03066 TC CURTAINS
021775,000326:
021776,000327: 32,6264 02362 TC NEWMODE # SET MAJOR MODE TO TUMBLE MONITOR
021777,000328: 32,6265 00014 OCT 00014
021778,000329:
021779,000330: 32,6266 04000 TC INTPRET # ...NO 01407 ALARMS, PLEASE....
021780,000331:
021781,000332: 32,6267 75575 AXT,1 1
021782,000333: 32,6270 76776 ITC
021783,000334: 32,6271 00007 6
021784,000335: 32,6272 12001 CDUTRIG
021785,000336:
021786,000337: 32,6273 75176 VMOVE 0
021787,000338: 32,6274 01315 CDUTEMP
021788,000339: 32,6275 33345 STORE DUPCDU
021789,000340:
021790,000341: 32,6276 77576 EXIT 0
021791,000342:
021792,000343: 32,6277 02124 TC ENDOFJOB
021793,000344:
021794,000345: 32,6300 32155 TUMBTASK CAF PRIO22
021795,000346: 32,6301 02046 TC FINDVAC
021796,000347: 32,6302 50046 CADR TUMBJOB
021797,000348:
021798,000349: 32,6303 34516 CAF BIT1 # TEST IF TUMBLE FLAG SET
021799,000350: 32,6304 70646 MASK FLAGWRD1
021800,000351: 32,6305 10000 CCS A
021801,000352: 32,6306 06325 TC RESET1 # IT IS. CONTINUE TO MONITOR
021802,000353:
021803,000354: 32,6307 40647 CS FLAGWRD2 # TEST IF BURN IS TUMBLE ARREST (I.E. HAS
021804,000355: 32,6310 74516 MASK BIT1 # CORRECTIVE ACTION STARTED)
021805,000356: 32,6311 10000 CCS A
021806,000357: 32,6312 06321 TC TUMTEST1 # IT HAS NOT
![]() |
Page 560 |
021808,000359: 32,6313 40011 CS OUT1 # IT HAS. TEST IF ENGINE ON YET. IF NOT,
021809,000360: 32,6314 74502 MASK BIT13 # WAIT BEFORE TURNING IT OFF AGAIN
021810,000361: 32,6315 10000 CCS A
021811,000362: 32,6316 06325 TC RESET1
021812,000363:
021813,000364: 32,6317 05720 TC POSTJUMP # LEAP TO CUT SPS ENGINE
021814,000365: 32,6320 64710 CADR ENGINOFF
021815,000366:
021816,000367: 32,6321 36335 TUMTEST1 CAF NOTUMASK # TEST IF NEXT BURN HAS BEEN SET
021817,000368: 32,6322 70647 MASK FLAGWRD2
021818,000369: 32,6323 10000 CCS A
021819,000370: 32,6324 06331 TC TASK3OUT
021820,000371:
021821,000372: 32,6325 36677 RESET1 CAF 1SEC32 # RECALL IN 1 SEC
021822,000373: 32,6326 02173 TC WAITLIST
021823,000374: 32,6327 64300 CADR TUMBTASK
021824,000375:
021825,000376: 32,6330 02256 TC TASKOVER
021826,000377:
021827,000378: 32,6331 44516 TASK3OUT CS ONE
021828,000379: 32,6332 02312 TC NEWPHASE
021829,000380: 32,6333 00003 OCT 00003
021830,000381:
021831,000382: 32,6334 02256 TC TASKOVER # IT HAS. KILL TUMBLE MONITOR
021832,000383:
021833,000384: 32,6335 00016 NOTUMASK OCT 00016 # (OR OF SPS1, ABRT, TABT)
021834,000385:
![]() |
Page 561 |
021836,000387:
021837,000388: 24,6046 BANK 24
021838,000389:
021839,000390: 24,6046 36111 TUMBJOB CAF NOTUMSK1 # SKIP THIS JOB IF NEXT BURN HAS BEEN SET
021840,000391: 24,6047 70647 MASK FLAGWRD2
021841,000392: 24,6050 10000 CCS A
021842,000393: 24,6051 02124 TC ENDOFJOB
021843,000394:
021844,000395: 24,6052 04000 TC INTPRET
021845,000396:
021846,000397: 24,6053 75176 VMOVE 0 # SAVE PRESENT CDUX,Y,Z
021847,000398: 24,6054 01345 DUPCDU
021848,000399: 24,6055 33323 STORE CDUBUF
021849,000400:
021850,000401: 24,6056 75575 AXT,1 1 # FORM DP CDUX,Y,Z
021851,000402: 24,6057 76776 ITC
021852,000403: 24,6060 00007 6
021853,000404: 24,6061 12001 CDUTRIG
021854,000405:
021855,000406: 24,6062 75176 VMOVE 0 # SAVE DUPLICATE CDUX,Y,Z
021856,000407: 24,6063 01315 CDUTEMP # SCALED AT 1 REV
021857,000408: 24,6064 33345 STORE DUPCDU
021858,000409:
021859,000410: 24,6065 47575 NOLOD 1
021860,000411: 24,6066 74765 VSU AXT,1
021861,000412: 24,6067 01323 CDUBUF
021862,000413: 24,6070 00007 6
021863,000414: 24,6071 33315 STORE CDUTEMP
021864,000415:
021865,000416: 24,6072 76776 ITC 0 # COMPUTE SIN OF CDUX,Y,Z
021866,000417: 24,6073 12041 SINCOS # DIFFERENCES AND PUT IN SINCDU,+2,+4
021867,000418:
021868,000419: 24,6074 71174 ABVAL 2
021869,000420: 24,6075 66756 DSU BMN
021870,000421: 24,6076 77576 EXIT
021871,000422: 24,6077 01331 SINCDU
021872,000423: 24,6100 10113 CRIT
021873,000424: 24,6101 10106 NOTUMBLE
021874,000425:
021875,000426: 24,6102 03416 TC FLAG1UP # SET TUMB FLAG
021876,000427: 24,6103 00001 OCT 00001
021877,000428:
021878,000429: 24,6104 02124 TC ENDOFJOB
021879,000430:
021880,000431: 24,6105 77576 NOTUMBLE EXIT 0
021881,000432: 24,6106 03430 TC FLAG1DWN # REMOVE TUMBLE FLAG
021882,000433: 24,6107 00001 OCT 00001
021883,000434:
021884,000435: 24,6110 02124 TC ENDOFJOB
021885,000436:
021886,000437: 24,6111 00016 NOTUMSK1 OCT 16
![]() |
Page 562 |
021888,000439: 24,6112 00262 25271 CRIT 2DEC 0.010905 # SIN(5DEG/2) SCALED AT 2(+2)
021889,000440:
![]() |
Page 563 |
021891,000442:
021892,000443: 32,6336 BANK 32
021893,000444:
021894,000445:
021895,000446:
021896,000447: 32,6336 40036 S4BSMSEP CS TIME1 # BRANCH HERE ON RECEIPT OF S4B/CSM SEP
021897,000448: 32,6337 50666 TS TBASE4
021898,000449:
021899,000450: 32,6340 03430 TC FLAG1DWN # RESET UPDAT FLAG
021900,000451: 32,6341 20000 OCT 20000
021901,000452:
021902,000453: 32,6342 03373 TC RELAYON # SET SCS +X TRANS, ATTITUDE CONTROL MODE,
021903,000454: 32,6343 40221 OCT 40221 # GIMBAL MOT POWER DISCRETES (C27,23,30)
021904,000455:
021905,000456: 32,6344 34516 CAF BIT1 # TEST IF TUMB FLAG SET
021906,000457: 32,6345 70646 MASK FLAGWRD1
021907,000458: 32,6346 10000 CCS A
021908,000459: 32,6347 06462 TC SETUMB2
021909,000460:
021910,000461: 32,6350 03416 TC FLAG1UP # SET INTP FLAG
021911,000462: 32,6351 01000 INTPMASK OCT 01000
021912,000463:
021913,000464: 32,6352 02276 TC PHASCHNG
021914,000465: 32,6353 01404 OCT 01404
021915,000466:
021916,000467: 32,6354 20017 INHINT
021917,000468: 32,6355 36505 CAF 1.7SEC # WAIT 1.7 SECS FOR RECEIPT OF ABORT SIG.
021918,000469: 32,6356 02173 TC WAITLIST
021919,000470: 32,6357 64374 CADR ABRTWAIT
021920,000471:
021921,000472: 32,6360 03302 TRYGRAB TC GRABDSP # TRY TO GRAB DISPLAY
021922,000473: 32,6361 06366 TC CLEANOUT # ALREADY GRABBED. FLUSH OUT GRABBER
021923,000474:
021924,000475: 32,6362 03362 TC FREEDSP # WE HAVE IT. AND LET IT GO
021925,000476:
021926,000477: 32,6363 03416 SETS4SEP TC FLAG1UP # SET S4BSM FLAG
021927,000478: 32,6364 00200 OCT 00200
021928,000479:
021929,000480: 32,6365 02124 TC ENDOFJOB
021930,000481:
021931,000482: 32,6366 20017 CLEANOUT INHINT
021932,000483: 32,6367 32170 CAF PRIO35 # MAKE HIGH PRIO JOB TO FLUSH OUT PINBALL
021933,000484: 32,6370 02052 TC NOVAC
021934,000485: 32,6371 11147 CADR ENEMA
021935,000486: 32,6372 20016 RELINT
021936,000487:
021937,000488: 32,6373 06363 TC SETS4SEP
021938,000489:
021939,000490: 32,6374 32160 ABRTWAIT CAF PRIO25 # CONTINUE WITH SAME PRIORITY AS S4BSMSEP
021940,000491: 32,6375 02052 TC NOVAC
021941,000492: 32,6376 64400 CADR ABORTEST
![]() |
Page 564 |
021943,000494: 32,6377 02256 TC TASKOVER
021944,000495:
021945,000496: 32,6400 34516 ABORTEST CAF ONE # SET VGCNTR FOR 2 PASSES THRU CALCVGB
021946,000497: 32,6401 51446 TS VGCNTR
021947,000498:
021948,000499: 32,6402 03430 TC FLAG1DWN # RESET UPDAT FLAG
021949,000500: 32,6403 20000 OCT 20000
021950,000501:
021951,000502: 32,6404 34501 CAF BIT14 # TEST IF ABORT SIGNAL RECEIVED
021952,000503: 32,6405 70645 MASK STATE
021953,000504: 32,6406 10000 CCS A
021954,000505: 32,6407 06427 TC SETABORT # IT WAS. BRANCH TO ABORT
021955,000506:
021956,000507: 32,6410 20017 INHINT
021957,000508: 32,6411 36504 CAF 8.3SEC # SET CALL TO TURN OFF +X 10 SEC AFTER SEP
021958,000509: 32,6412 02173 TC WAITLIST
021959,000510: 32,6413 64663 CADR PLUSXOFF
021960,000511: 32,6414 20016 RELINT
021961,000512:
021962,000513: 32,6415 03504 TC SETBRNSW # SET BURN TO SPS1
021963,000514: 32,6416 00010 SPS1MASK OCT 00010
021964,000515:
021965,000516: 32,6417 36426 CAF SPS1LOC # SET LOCATION FOR NOMINAL SPS1 VR COMP
021966,000517: 32,6420 51470 TS VRCADR
021967,000518:
021968,000519: 32,6421 02276 TC PHASCHNG
021969,000520: 32,6422 02504 OCT 02504
021970,000521:
021971,000522: 32,6423 02362 REDO4.21 TC NEWMODE # SET MAJOR MODE TO PRE-SPS1
021972,000523: 32,6424 00031 OCT 00031
021973,000524:
021974,000525: 32,6425 03151 TC JAMTERM # FLUSH V75 S4BSMSEP BACKUP.
021975,000526:
021976,000527: 32,6426 52454 SPS1LOC CADR 501SPS1
021977,000528:
021978,000529: 32,6427 03504 SETABORT TC SETBRNSW # SET BURN TO ABORT
021979,000530: 32,6430 00002 OCT 00002
021980,000531:
021981,000532: 32,6431 02276 TC PHASCHNG
021982,000533: 32,6432 02004 OCT 02004
021983,000534:
021984,000535: 32,6433 20017 INHINT
021985,000536: 32,6434 36510 CAF 3.8SEC # START ENGINE IN 4.3 SECS
021986,000537: 32,6435 02173 TC WAITLIST
021987,000538: 32,6436 64527 CADR ATTCNOFF
021988,000539: 32,6437 20016 RELINT
021989,000540:
021990,000541: 32,6440 05654 REDO4.16 TC BANKCALL # SET IMU TO ATT. CONTROL MODE
021991,000542: 32,6441 30223 CADR IMUATTC
![]() |
Page 565 |
021993,000544: 32,6442 03516 TC SETHETAD # SET THETAD,+1,+2 TO AGREE WITH CDUX,Y,Z
021994,000545:
021995,000546: 32,6443 36461 CAF ABORTLOC # SET LOCATION FOR ABORT VR COMPUTATIONS
021996,000547: 32,6444 51470 TS VRCADR
021997,000548:
021998,000549: 32,6445 35503 CAF TWO # SET VGCNTR FOR THREE PASSES THROUGH
021999,000550: 32,6446 51446 TS VGCNTR # CALCVGB BEFORE ISSUING STEER COMMANDS
022000,000551:
022001,000552: 32,6447 37655 CAF 35DEG # SET THRUST ANGLE TO 35 DEG ABOVE HORIZON
022002,000553: 32,6450 51442 TS LOOKANG
022003,000554:
022004,000555: 32,6451 03416 TC FLAG1UP # SET STEER FLAG FOR ABORT STEERING
022005,000556: 32,6452 00010 OCT 00010
022006,000557:
022007,000558: 32,6453 02362 TC NEWMODE # SET MAJOR MODE TO ABORT BURN
022008,000559: 32,6454 00073 OCT 00073
022009,000560:
022010,000561: 32,6455 05654 TC BANKCALL # WAIT FOR MODE SWITCH TO COMPLETE
022011,000562: 32,6456 30331 CADR IMUSTALL
022012,000563: 32,6457 03066 TC CURTAINS # CATCH-ALL FOR FAILURE TO IMU MODE SWITCH
022013,000564:
022014,000565: 32,6460 03151 TC JAMTERM # FLUSH OUT V75
022015,000566:
022016,000567: 32,6461 52530 ABORTLOC CADR 501ABORT
022017,000568:
022018,000569: 32,6462 03504 SETUMB2 TC SETBRNSW # SET BURN TO TUMBLE ARREST
022019,000570: 32,6463 00001 ARRSTMSK OCT 00001
022020,000571:
022021,000572: 32,6464 33537 CAF FIFTN
022022,000573: 32,6465 02312 TC NEWPHASE
022023,000574: 32,6466 00004 OCT 4
022024,000575:
022025,000576: 32,6467 20017 INHINT
022026,000577: 32,6470 36700 CAF 2.5SEC # START ENGINE AT 3.0 SECS AFTER SEP.
022027,000578: 32,6471 02173 TC WAITLIST # SEPARATION
022028,000579: 32,6472 64527 CADR ATTCNOFF
022029,000580: 32,6473 20016 RELINT
022030,000581:
022031,000582: 32,6474 02362 TC NEWMODE # SET MAJOR MODE TO TUMBLE ARREST BURN
022032,000583: 32,6475 00074 OCT 00074
022033,000584:
022034,000585: 32,6476 06360 TC TRYGRAB
022035,000586:
022036,000587: 32,6477 03462 ABORTRPT TC STATEUP # COME HERE ON RECEIPT OF UPLINK ABORT
022037,000588: 32,6500 20000 OCT 20000 # VERB, NOUN. SET THE ABORT SIGNAL
022038,000589:
022039,000590: 32,6501 03373 TC RELAYON # SET SCS BACKUP ABORT DISCRETE (C33)
022040,000591: 32,6502 42000 OCT 42000
022041,000592:
022042,000593: 32,6503 02124 TC ENDOFJOB
![]() |
Page 566 |
022044,000595: 32,6504 01476 8.3SEC DEC 830 B-14
022045,000596: 32,6505 00252 1.7SEC DEC 170 B-14
022046,000597: 32,6506 22244 93.8SEC DEC 9380 B-14
022047,000598: 32,6507 02032 10.5SEC DEC 1050 B-14
022048,000599: 32,6510 00574 3.8SEC DEC 380 B-14
022049,000600:
![]() |
Page 567 |
022051,000602:
022052,000603: 32,6511 03373 GIMPOWON TC RELAYON # SET SCS GMP DISCRETE (C30)
022053,000604: 32,6512 40200 OCT 40200
022054,000605:
022055,000606: 32,6513 33550 CAF TWENTY4
022056,000607: 32,6514 02312 TC NEWPHASE
022057,000608: 32,6515 00004 OCT 00004
022058,000609:
022059,000610: 32,6516 40036 CS TIME1
022060,000611: 32,6517 50666 TS TBASE4
022061,000612:
022062,000613: 32,6520 33551 CAF TWENTY5
022063,000614: 32,6521 02312 TC NEWPHASE
022064,000615: 32,6522 00004 OCT 00004
022065,000616:
022066,000617: 32,6523 37151 CAF 11.5SEC
022067,000618: 32,6524 02173 TC WAITLIST
022068,000619: 32,6525 64527 CADR ATTCNOFF
022069,000620:
022070,000621: 32,6526 02256 TC TASKOVER
022071,000622:
022072,000623: 32,6527 33542 ATTCNOFF CAF EIGHTN
022073,000624: 32,6530 02312 TC NEWPHASE
022074,000625: 32,6531 00004 OCT 00004
022075,000626:
022076,000627: 32,6532 40036 CS TIME1
022077,000628: 32,6533 50666 TS TBASE4
022078,000629:
022079,000630: 32,6534 03405 TC RELAYOFF # REMOVE SCS ATT. CONTROL DISCRETE (C23)
022080,000631: 32,6535 40001 OCT 40001
022081,000632:
022082,000633: 32,6536 33543 CAF NINETEEN
022083,000634: 32,6537 02312 TC NEWPHASE
022084,000635: 32,6540 00004 OCT 00004
022085,000636:
022086,000637: 32,6541 36676 CAF 0.25SEC
022087,000638: 32,6542 02173 TC WAITLIST
022088,000639: 32,6543 64545 CADR DVMODEON
022089,000640:
022090,000641: 32,6544 02256 TC TASKOVER
022091,000642:
022092,000643: 32,6545 03373 DVMODEON TC RELAYON # SET SCS DV MODE DISCRETE (C24)
022093,000644: 32,6546 40002 OCT 40002
022094,000645:
022095,000646: 32,6547 33544 CAF TWENTY0
022096,000647: 32,6550 02312 TC NEWPHASE
022097,000648: 32,6551 00004 OCT 00004
022098,000649:
022099,000650: 32,6552 36676 CAF 0.25SEC
022100,000651: 32,6553 02173 TC WAITLIST
022101,000652: 32,6554 64562 CADR ENGINEON
![]() |
Page 568 |
022103,000654: 32,6555 02256 TC TASKOVER
022104,000655:
022105,000656: 32,6556 44516 TASK4OUT CS ONE
022106,000657: 32,6557 02312 TC NEWPHASE
022107,000658: 32,6560 00004 OCT 00004
022108,000659:
022109,000660: 32,6561 02256 TC TASKOVER
022110,000661:
022111,000662: 32,6562 44502 ENGINEON CS BIT13 # SET BIT13, OUT1 TO 1 (ENGINE ON)
022112,000663: 32,6563 51447 TS DVCNTR # MUST BE NEGATIVE INITIALLY
022113,000664: 32,6564 70011 MASK OUT1
022114,000665: 32,6565 64502 AD BIT13
022115,000666: 32,6566 50011 TS OUT1
022116,000667:
022117,000668: 32,6567 02677 TC READTIME +1
022118,000669: 32,6570 40572 CS RUPTSTOR
022119,000670: 32,6571 51462 TS TENGON
022120,000671: 32,6572 40573 CS RUPTSTOR +1
022121,000672: 32,6573 51463 TS TENGON +1
022122,000673:
022123,000674: 32,6574 03416 TC FLAG1UP # SET DVMON, STEER FLAGS
022124,000675: 32,6575 00030 OCT 00030
022125,000676:
022126,000677: 32,6576 33550 CAF TWENTY4 # SEE IF THIS EITHER A SPS1 OR SPS2 BURN
022127,000678: 32,6577 70647 MASK FLAGWRD2
022128,000679: 32,6600 10000 CCS A
022129,000680: 32,6601 06603 TC +2 # YES
022130,000681: 32,6602 06636 TC TUMTEST2 # NO
022131,000682:
022132,000683: 32,6603 10651 CCS PHASE2 # TEST FOR PHASE2 VALUE.
022133,000684: 32,6604 64341 AD NEG3 # WAS IT GREATER THAN 4 ORIGINALLY...
022134,000685: 32,6605 10000 CCS A # TEST NEW SUM.
022135,000686: 32,6606 06642 TC ROLLTASK -3
022136,000687: 32,6607 06642 TC ROLLTASK -3 # GOES UNLESS PHASE2 WERE +1,2,3, OR 4.
022137,000688: 32,6610 06611 TC +1 # 1,2 OR 3 FALL IN HERE
022138,000689:
022139,000690: 32,6611 44516 CS ONE # +4 COMES HERE.
022140,000691: 32,6612 02312 TC NEWPHASE # IN WHICH CASES, WE MAKE GROUP 2 INACTIVE
022141,000692: 32,6613 00002 OCT 2
022142,000693:
022143,000694: 32,6614 32170 CAF PRIO35 # AND THEN FLUSH OUT EVERYTHING.
022144,000695: 32,6615 02052 TC NOVAC
022145,000696: 32,6616 11147 CADR ENEMA # FORCE A PROGRAMMED RESTART
022146,000697:
022147,000698: 32,6617 06642 TC ROLLTASK -3
022148,000699:
022149,000700:
022150,000701:
022151,000702: 32,6620 36707 3OR4TEST CAF SPS34MSK
022152,000703: 32,6621 70647 MASK FLAGWRD2
![]() |
Page 569 |
022154,000705: 32,6622 10000 CCS A
022155,000706: 32,6623 06625 TC +2
022156,000707: 32,6624 06636 TC TUMTEST2 # IT IS NOT
022157,000708:
022158,000709: 32,6625 33547 CAF TWENTY3
022159,000710: 32,6626 02312 TC NEWPHASE
022160,000711: 32,6627 00004 OCT 00004
022161,000712:
022162,000713: 32,6630 36701 CAF 3SEC # SHUT ENGINE DOWN IN 3 SECS
022163,000714: 32,6631 02173 TC WAITLIST
022164,000715: 32,6632 64710 CADR ENGINOFF
022165,000716:
022166,000717: 32,6633 03430 STEEROFF TC FLAG1DWN
022167,000718: 32,6634 00010 STEERMSK OCT 00010
022168,000719:
022169,000720: 32,6635 02256 TC TASKOVER
022170,000721:
022171,000722: 32,6636 36463 TUMTEST2 CAF ARRSTMSK # TEST IF BURN IS TUMBLE ARREST
022172,000723: 32,6637 70647 MASK FLAGWRD2
022173,000724: 32,6640 10000 CCS A
022174,000725: 32,6641 06660 TC STR4OUT
022175,000726:
022176,000727: 32,6642 33546 CAF TWENTY2
022177,000728: 32,6643 02312 TC NEWPHASE
022178,000729: 32,6644 00004 OCT 4
022179,000730:
022180,000731: 32,6645 40646 ROLLTASK CS FLAGWRD1 # TEST IF STEER FLAG SET
022181,000732: 32,6646 76634 MASK STEERMSK
022182,000733: 32,6647 10000 CCS A
022183,000734: 32,6650 02256 TC TASKOVER # IT IS NOT. KILL ROLLTASK
022184,000735:
022185,000736: 32,6651 34502 CAF PRIO10 # SUBMIT JOB TO DO ROLL STEERING
022186,000737: 32,6652 02046 TC FINDVAC
022187,000738: 32,6653 66322 CADR ROLLJOB
022188,000739:
022189,000740: 32,6654 36703 REDO4.22 CAF 5SEC32 # RECALL ROLLTASK IN 5 SECS
022190,000741: 32,6655 02173 TC WAITLIST
022191,000742: 32,6656 64645 CADR ROLLTASK
022192,000743:
022193,000744: 32,6657 02256 TC TASKOVER
022194,000745:
022195,000746: 32,6660 03430 STR4OUT TC FLAG1DWN
022196,000747: 32,6661 00010 OCT 00010
022197,000748:
022198,000749: 32,6662 06556 TC TASK4OUT
022199,000750:
022200,000751: 32,6663 03405 PLUSXOFF TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE (C27)
022201,000752: 32,6664 40020 OCT 40020
022202,000753:
022203,000754: 32,6665 03416 TC FLAG1UP # SET INITFLAG TO ENABLE MANEUVER TO SPS1
![]() |
Page 570 |
022205,000756: 32,6666 00400 OCT 00400 # BURN ATTITUDE
022206,000757:
022207,000758: 32,6667 36706 CAF 89.5SEC # START ENGINE IN 90 SECS
022208,000759: 32,6670 02173 TC WAITLIST
022209,000760: 32,6671 64527 CADR ATTCNOFF
022210,000761:
022211,000762: 32,6672 33535 CAF THIRTEEN
022212,000763: 32,6673 02312 TC NEWPHASE
022213,000764: 32,6674 00004 OCT 00004
022214,000765:
022215,000766: 32,6675 02256 TC TASKOVER
022216,000767:
022217,000768: 32,6676 00031 0.25SEC DEC 25 B-14
022218,000769: 32,6677 00144 1SEC32 DEC 100 B-14
022219,000770: 32,6700 00372 2.5SEC DEC 250 B-14
022220,000771: 32,6701 00454 3SEC DEC 300 B-14
022221,000772: 32,6702 00536 3.5SEC DEC 350 B-14
022222,000773: 32,6703 00764 5SEC32 DEC 500 B-14
022223,000774: 32,6704 01130 6SEC DEC 600 B-14
022224,000775: 32,6705 02734 15SEC DEC 1500 B-14
022225,000776: 32,6706 21366 89.5SEC DEC 8950 B-14
022226,000777: 32,6707 4503 SHDNMSK EQUALS BIT12
022227,000778: 32,6707 00140 SPS34MSK OCT 00140
022228,000779:
![]() |
Page 571 |
022230,000781:
022231,000782: 32,6710 44502 ENGINOFF CS BIT13 # SET ENGINE OFF
022232,000783: 32,6711 70011 MASK OUT1
022233,000784: 32,6712 50011 TS OUT1
022234,000785:
022235,000786: 32,6713 02677 TC READTIME +1 # SAVE TIME OF CUTOFF
022236,000787: 32,6714 40572 CS RUPTSTOR
022237,000788: 32,6715 51462 TS TCUTOFF
022238,000789: 32,6716 40573 CS RUPTSTOR +1
022239,000790: 32,6717 51463 TS TCUTOFF +1
022240,000791:
022241,000792: 32,6720 03430 TC FLAG1DWN # DISABLE DV MONITOR
022242,000793: 32,6721 00020 OCT 00020
022243,000794:
022244,000795: 32,6722 40044 CS PIPAX # SAVE DELTAV AT ENGINE OFF TIME.
022245,000796: 32,6723 51222 TS VAVEGON
022246,000797: 32,6724 40045 CS PIPAY
022247,000798: 32,6725 51223 TS VAVEGON +1 # USE VAVEGON AREA FOR THIS.
022248,000799: 32,6726 40046 CS PIPAZ
022249,000800: 32,6727 51224 TS VAVEGON +2
022250,000801:
022251,000802: 32,6730 03405 TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE (C27)
022252,000803: 32,6731 40020 OCT 40020
022253,000804:
022254,000805: 32,6732 40647 CS FLAGWRD2 # TEST IF THAT WAS A TUMBLE BURN
022255,000806: 32,6733 76463 MASK ARRSTMSK
022256,000807: 32,6734 10000 CCS A
022257,000808: 32,6735 06774 TC SPS1TEST
022258,000809:
022259,000810: 32,6736 34516 CAF ONE
022260,000811: 32,6737 51446 TS VGCNTR
022261,000812:
022262,000813: 32,6740 03416 TC FLAG1UP # SET INTP,INIT FLAGS
022263,000814: 32,6741 01400 OCT 01400
022264,000815:
022265,000816: 32,6742 34501 CAF BIT14 # TEST IF ABORT SIGNAL RECEIVED
022266,000817: 32,6743 70645 MASK STATE
022267,000818: 32,6744 10000 CCS A
022268,000819: 32,6745 06764 TC VRCAD # IT WAS, JUMP TO DO TUMBLE ABORT BURN
022269,000820:
022270,000821: 32,6746 36506 CAF 93.8SEC # START ENGINE IN 94.3 SECS
022271,000822: 32,6747 02173 TC WAITLIST
022272,000823: 32,6750 64527 CADR ATTCNOFF
022273,000824:
022274,000825: 32,6751 36426 CAF SPS1LOC # SET LOCATION FOR NOMINAL SPS1 VR COMP
022275,000826: 32,6752 51470 TS VRCADR
022276,000827:
022277,000828: 32,6753 32160 CAF PRIO25 # ESTABLISH MORE PRE-SPS1 BURN LOGIC
022278,000829: 32,6754 02052 TC NOVAC
022279,000830: 32,6755 64423 CADR REDO4.21
![]() |
Page 572 |
022281,000832:
022282,000833: 32,6756 33535 CAF THIRTEEN
022283,000834: 32,6757 02312 TC NEWPHASE
022284,000835: 32,6760 00004 OCT 4
022285,000836:
022286,000837: 32,6761 03504 REDO4.13 TC SETBRNSW # SET BURN TO SPS1
022287,000838: 32,6762 00010 OCT 00010
022288,000839:
022289,000840: 32,6763 06331 TC TASK3OUT
022290,000841:
022291,000842: 32,6764 36461 VRCAD CAF ABORTLOC # SET LOCATION TO ABORT VR COMPUTATION
022292,000843: 32,6765 51470 TS VRCADR
022293,000844:
022294,000845: 32,6766 34473 CAF THREE
022295,000846: 32,6767 02312 TC NEWPHASE
022296,000847: 32,6770 00003 OCT 00003
022297,000848:
022298,000849: 32,6771 03504 REDO3.3 TC SETBRNSW # SET BURN TO ABORT AFTER TUMBLE
022299,000850: 32,6772 00004 TABTMASK OCT 00004
022300,000851:
022301,000852: 32,6773 02256 TC TASKOVER
022302,000853:
022303,000854: 32,6774 33554 SPS1TEST CAF TWENTY8
022304,000855: 32,6775 02312 TC NEWPHASE
022305,000856: 32,6776 00004 OCT 4
022306,000857:
022307,000858: 32,6777 41463 CS TCUTOFF +1
022308,000859: 32,7000 50665 TS TBASE3
022309,000860: 32,7001 50666 TS TBASE4
022310,000861:
022311,000862: 32,7002 40647 CS FLAGWRD2 # TEST IF THAT WAS A SPS1 BURN
022312,000863: 32,7003 76416 MASK SPS1MASK
022313,000864: 32,7004 10000 CCS A
022314,000865: 32,7005 07070 TC SETMOD23
022315,000866:
022316,000867: 32,7006 36507 CAF 10.5SEC # CALL COAST PHASE IN 10.5 SECS
022317,000868: 32,7007 02173 TC WAITLIST
022318,000869: 32,7010 50114 CADR COASTPHS
022319,000870:
022320,000871: 32,7011 37150 CAF 7SEC # DUPLICATE GMPOFF SEQUENCE BEFORE SETTING
022321,000872: 32,7012 02173 TC WAITLIST # BURN SWITCH. (FOR RESTART LOGIC.)
022322,000873: 32,7013 65110 CADR GIMPOWOF
022323,000874:
022324,000875: 32,7014 35502 CAF FOUR # 3.4 RESTART KEEPS POWER OFF SEQ. GOING.
022325,000876: 32,7015 02312 TC NEWPHASE
022326,000877: 32,7016 00003 OCT 3
022327,000878:
022328,000879: 32,7017 34473 CAF THREE
022329,000880: 32,7020 02312 TC NEWPHASE
022330,000881: 32,7021 00004 OCT 00004
022331,000882:
![]() |
Page 573 |
022333,000884:
022334,000885: 32,7022 03504 REDO4.3 TC SETBRNSW # SET BURN TO SPS2
022335,000886: 32,7023 00020 SPS2MASK OCT 00020
022336,000887:
022337,000888: 32,7024 02256 TC TASKOVER
022338,000889:
022339,000890: 32,7025 40647 SPS2TEST CS FLAGWRD2 # TEST IF THAT WAS A SPS2 BURN
022340,000891: 32,7026 77023 MASK SPS2MASK
022341,000892: 32,7027 10000 CCS A
022342,000893: 32,7030 07050 TC SPS3TEST
022343,000894:
022344,000895: 32,7031 37146 CAF 0.75SEC
022345,000896: 32,7032 02173 TC WAITLIST
022346,000897: 32,7033 31550 CADR CGTASK
022347,000898:
022348,000899: 32,7034 36704 CAF 6SEC # CALL FOR GMP ON IN 6 SECS
022349,000900: 32,7035 02173 TC WAITLIST
022350,000901: 32,7036 64511 CADR GIMPOWON
022351,000902:
022352,000903: 32,7037 35362 CAF SEVEN
022353,000904: 32,7040 02312 TC NEWPHASE
022354,000905: 32,7041 00003 OCT 00003
022355,000906:
022356,000907: 32,7042 33232 CAF TEN
022357,000908: 32,7043 02312 TC NEWPHASE
022358,000909: 32,7044 00004 OCT 00004
022359,000910:
022360,000911: 32,7045 03504 REDO4.10 TC SETBRNSW # SET BURN TO SPS3
022361,000912: 32,7046 00040 SPS3MASK OCT 00040
022362,000913:
022363,000914: 32,7047 02256 TC TASKOVER
022364,000915:
022365,000916: 32,7050 40647 SPS3TEST CS FLAGWRD2 # TEST IF THAT WAS A SPS3 BURN
022366,000917: 32,7051 77046 MASK SPS3MASK
022367,000918: 32,7052 10000 CCS A
022368,000919: 32,7053 07070 TC SETMOD23 # IT WAS NOT. (EITHER A, TABT, OR SPS4)
022369,000920:
022370,000921: 32,7054 33536 CAF FOURTN
022371,000922: 32,7055 02312 TC NEWPHASE
022372,000923: 32,7056 00004 OCT 00004
022373,000924:
022374,000925: 32,7057 36704 GMPON CAF 6SEC # CALL FOR ENGINE ON IN 10 SECS
022375,000926: 32,7060 02173 TC WAITLIST
022376,000927: 32,7061 64511 CADR GIMPOWON
022377,000928:
022378,000929: 32,7062 32144 REDO4.14 CAF PRIO7
022379,000930: 32,7063 02052 TC NOVAC
022380,000931: 32,7064 65143 CADR MODE44
022381,000932:
022382,000933: 32,7065 03504 TC SETBRNSW # SET BURN TO SPS4
022383,000934: 32,7066 00100 SPS4MASK OCT 00100
![]() |
Page 574 |
022385,000936: 32,7067 02256 TC TASKOVER
022386,000937:
022387,000938: 32,7070 32144 SETMOD23 CAF PRIO7 # MAKE JOB TO CHANGE MODE
022388,000939: 32,7071 02052 TC NOVAC
022389,000940: 32,7072 65140 CADR MODE23
022390,000941:
022391,000942: 32,7073 33532 CAF NINE
022392,000943: 32,7074 02312 TC NEWPHASE
022393,000944: 32,7075 00003 OCT 00003
022394,000945:
022395,000946: 32,7076 44516 CS ONE
022396,000947: 32,7077 02312 TC NEWPHASE
022397,000948: 32,7100 00004 OCT 00004
022398,000949:
022399,000950: 32,7101 37150 GMPOFF CAF 7SEC
022400,000951: 32,7102 02173 TC WAITLIST
022401,000952: 32,7103 65110 CADR GIMPOWOF
022402,000953:
022403,000954: 32,7104 35502 CAF FOUR
022404,000955: 32,7105 02312 TC NEWPHASE
022405,000956: 32,7106 00003 OCT 00003
022406,000957:
022407,000958: 32,7107 02256 TC TASKOVER
022408,000959:
022409,000960: 32,7110 36702 GIMPOWOF CAF 3.5SEC # CALL FOR DV MODE OFF IN 3.5 SECS
022410,000961: 32,7111 02173 TC WAITLIST
022411,000962: 32,7112 65124 CADR DVMODOFF
022412,000963:
022413,000964: 32,7113 03405 TC RELAYOFF
022414,000965: 32,7114 40200 OCT 40200
022415,000966:
022416,000967: 32,7115 34477 CAF FIVE
022417,000968: 32,7116 02312 TC NEWPHASE
022418,000969: 32,7117 00003 OCT 00003
022419,000970:
022420,000971: 32,7120 02256 TC TASKOVER
022421,000972:
022422,000973: 32,7121 03405 GMPOFF3 TC RELAYOFF # REMOVE SCS GMP DISCRETE (C30)
022423,000974: 32,7122 40200 OCT 40200
022424,000975:
022425,000976: 32,7123 06331 TC TASK3OUT
022426,000977:
022427,000978: 32,7124 03405 DVMODOFF TC RELAYOFF # REMOVE SCS DV MODE DISCRETE (C24)
022428,000979: 32,7125 40002 OCT 40002
022429,000980:
022430,000981: 32,7126 34475 CAF SIX
022431,000982: 32,7127 02312 TC NEWPHASE
022432,000983: 32,7130 00003 OCT 00003
022433,000984:
022434,000985: 32,7131 36676 CAF 0.25SEC
![]() |
Page 575 |
022436,000987: 32,7132 02173 TC WAITLIST
022437,000988: 32,7133 65135 CADR ATTCONON
022438,000989:
022439,000990: 32,7134 02256 TC TASKOVER
022440,000991:
022441,000992: 32,7135 03373 ATTCONON TC RELAYON # SET SCS ATT. CONT. DISCRETE (C23)
022442,000993: 32,7136 40001 OCT 40001
022443,000994:
022444,000995: 32,7137 06331 TC TASK3OUT
022445,000996:
022446,000997: 32,7140 02362 MODE23 TC NEWMODE # SET MAJOR MODE TO ATTITUDE HOLD
022447,000998: 32,7141 00023 OCT 00023
022448,000999: 32,7142 02124 TC ENDOFJOB
022449,001000:
022450,001001: 32,7143 02362 MODE44 TC NEWMODE # SET MAJOR MODE TO SPS4
022451,001002: 32,7144 00044 OCT 00044
022452,001003: 32,7145 02124 TC ENDOFJOB
022453,001004:
022454,001005:
022455,001006:
022456,001007: 32,7146 00113 0.75SEC DEC 75 B-14
022457,001008: 32,7147 00144 1SEC DEC 100 B-14
022458,001009: 32,7150 01274 7SEC DEC 700 B-14
022459,001010: 32,7151 02176 11.5SEC DEC 1150 B-14
022460,001011:
![]() |
Page 576 |
022462,001013:
022463,001014: 24,6114 BANK 24
022464,001015:
022465,001016: 24,6114 03416 COASTPHS TC FLAG1UP # GET SET TO START COAST PHASE ACTIVITY
022466,001017: 24,6115 40000 COASTMSK OCT 40000 # SET COAST FLAG
022467,001018:
022468,001019: 24,6116 36142 CAF 289.5SEC +1 # SET UP LONGCALL TO FDAONTSK IN 289.5 SEC
022469,001020: 24,6117 51461 TS LONGTIME +1
022470,001021: 24,6120 36141 CAF 289.5SEC
022471,001022: 24,6121 51460 TS LONGTIME
022472,001023:
022473,001024: 24,6122 36140 CAF FDAILOC
022474,001025: 24,6123 51467 TS CALLCADR
022475,001026:
022476,001027: 24,6124 05742 TC IBNKCALL # MAKE WAITLIST CALL MORE THAN 120 SECS
022477,001028: 24,6125 10552 CADR LONGCALL
022478,001029:
022479,001030: 24,6126 32146 CAF PRIO12 # ESTABLISH INITIAL VERTICAL JOB
022480,001031: 24,6127 02046 TC FINDVAC
022481,001032: 24,6130 66621 CADR SOAKINIT
022482,001033:
022483,001034: 24,6131 35503 CAF TWO
022484,001035: 24,6132 02312 TC NEWPHASE
022485,001036: 24,6133 00002 OCT 00002
022486,001037:
022487,001038: 24,6134 35502 CAF FOUR
022488,001039: 24,6135 02312 TC NEWPHASE
022489,001040: 24,6136 00004 OCT 00004
022490,001041:
022491,001042: 24,6137 02256 TC TASKOVER
022492,001043:
022493,001044: 24,6140 50143 FDAILOC CADR FDAONTSK
022494,001045: 24,6141 00001 30426 289.5SEC 2DEC 28950 B-28
022495,001046:
022496,001047:
022497,001048: 24,6143 03373 FDAONTSK TC RELAYON # SET SCS FDAI ALIGN DISCRETE (C31)
022498,001049: 24,6144 40400 OCT 40400
022499,001050:
022500,001051: 24,6145 36175 CAF 10SEC
022501,001052: 24,6146 02173 TC WAITLIST
022502,001053: 24,6147 50154 CADR FDAOFTSK # CALL FDAI OFF IN 10 SECS
022503,001054:
022504,001055: 24,6150 34477 CAF FIVE
022505,001056: 24,6151 02312 TC NEWPHASE
022506,001057: 24,6152 00004 OCT 00004
022507,001058:
022508,001059: 24,6153 02256 TC TASKOVER
022509,001060:
022510,001061: 24,6154 36177 FDAOFTSK CAF -310SEC +1
022511,001062: 24,6155 61557 AD TCOAST +1
![]() |
Page 577 |
022513,001064: 24,6156 51461 TS LONGTIME +1
022514,001065:
022515,001066: 24,6157 35501 CAF ZERO
022516,001067: 24,6160 66176 AD -310SEC
022517,001068: 24,6161 61556 AD TCOAST
022518,001069: 24,6162 51460 TS LONGTIME
022519,001070:
022520,001071: 24,6163 36200 CAF UPTSKLOC
022521,001072: 24,6164 51467 TS CALLCADR
022522,001073:
022523,001074: 24,6165 05742 TC IBNKCALL
022524,001075: 24,6166 10552 CADR LONGCALL
022525,001076:
022526,001077: 24,6167 34475 CAF SIX
022527,001078: 24,6170 02312 TC NEWPHASE
022528,001079: 24,6171 00004 OCT 4
022529,001080:
022530,001081: 24,6172 03405 FDOFTSK1 TC RELAYOFF # REMOVE SCS FDAI ALIGN DISCRETE (C31).
022531,001082: 24,6173 40400 OCT 40400
022532,001083:
022533,001084: 24,6174 02256 TC TASKOVER
022534,001085:
022535,001086: 24,6175 01750 10SEC DEC 1000 B-14
022536,001087: 24,6176 77776 43347 -310SEC 2DEC -31000 B-28
022537,001088:
022538,001089: 24,6200 50201 UPTSKLOC CADR UPTASK
022539,001090:
022540,001091:
022541,001092:
022542,001093: 14,7550 BANK 14
022543,001094:
022544,001095: 14,7550 32154 CGTASK CAF PRIO21 # ESTABLISH CGJOB TO REMOVE ANGULAR CG
022545,001096: 14,7551 02046 TC FINDVAC # MOTION DEVELOPED DURING SPS2 BURN
022546,001097: 14,7552 31562 CADR CGJOB
022547,001098:
022548,001099: 14,7553 37572 CAF 1.25S14
022549,001100: 14,7554 02173 TC WAITLIST
022550,001101: 14,7555 65121 CADR GMPOFF3
022551,001102:
022552,001103: 14,7556 34513 CAF EIGHT
022553,001104: 14,7557 02312 TC NEWPHASE
022554,001105: 14,7560 00003 OCT 3
022555,001106:
022556,001107: 14,7561 02256 TC TASKOVER
022557,001108:
022558,001109: 14,7562 02362 CGJOB TC NEWMODE # SET MAJOR MODE TO SPS3 BURN
022559,001110: 14,7563 00043 OCT 00043
022560,001111:
022561,001112: 14,7564 04000 TC INTPRET
022562,001113:
![]() |
Page 578 |
022564,001115: 14,7565 75175 VMOVE 1 # GET NOMINAL SPS2 CG CHANGE ABOUT IMU
022565,001116: 14,7566 76575 RTB EXIT # GIMBAL AXES INTO VAC, SCALED AT KE/2 REV
022566,001117: 14,7567 13534 DELCDU # (KE =1.5), AND DECREMENT THETAD, +1, +2
022567,001118: 14,7570 20416 INCRCDUS
022568,001119:
022569,001120: 14,7571 02124 TC ENDOFJOB
022570,001121:
022571,001122: 14,7572 00175 1.25S14 DEC 125 B-14
022572,001123:
022573,001124: 32,7152 BANK 32
022574,001125:
![]() |
Page 579 |
022576,001127:
022577,001128: 32,7152 37254 READACCS CAF PIPCADR # BRANCH TO PIPA READ ROUTINE
022578,001129: 32,7153 05750 TC ISWCALL
022579,001130:
022580,001131: 32,7154 35503 CAF TWO
022581,001132: 32,7155 02312 TC NEWPHASE
022582,001133: 32,7156 00005 OCT 00005
022583,001134:
022584,001135: 32,7157 41465 REDO5.2 CS PIPTIME +1
022585,001136: 32,7160 50667 TS TBASE5
022586,001137:
022587,001138: 32,7161 35503 CAF TWO
022588,001139: 32,7162 51035 TS PIPAGE
022589,001140:
022590,001141: 32,7163 34514 CAF ENTRYMSK # TEST IF ENTRY FLAG SET
022591,001142: 32,7164 70646 MASK FLAGWRD1
022592,001143: 32,7165 10000 CCS A
022593,001144: 32,7166 07212 TC SETUPENT
022594,001145:
022595,001146: 32,7167 40646 CS FLAGWRD1 # TEST IF COAST FLAG SET
022596,001147: 32,7170 77256 MASK CSTMASK
022597,001148: 32,7171 10000 CCS A
022598,001149: 32,7172 03062 TC CCSHOLE
022599,001150: 32,7173 07216 TC SETUPSOK # IT IS. DO NOT RESET READACCS
022600,001151:
022601,001152: 32,7174 37257 CAF ABORT32 # TEST IF ABORT BURN IS SET. IF SO, NEED
022602,001153: 32,7175 70647 MASK FLAGWRD2 # 2.5SECS COMPUTING INTERVAL
022603,001154: 32,7176 10000 CCS A
022604,001155:
022605,001156: 32,7177 07222 TC CHANGEDT # IT IS
022606,001157:
022607,001158: 32,7200 37567 CAF 2SEC # IT IS NOT. CALL READACCS IN 2 SECS
022608,001159: 32,7201 02173 TC WAITLIST
022609,001160: 32,7202 65152 CADR READACCS
022610,001161:
022611,001162: 32,7203 32152 MAKESERV CAF PRIO16 # ESTABLISH SERVICER ROUTINE
022612,001163: 32,7204 02046 TC FINDVAC
022613,001164: 32,7205 65262 CADR SERVICER
022614,001165:
022615,001166: 32,7206 34473 CAF THREE
022616,001167: 32,7207 02312 TC NEWPHASE
022617,001168: 32,7210 00005 OCT 5
022618,001169:
022619,001170: 32,7211 02256 TC TASKOVER
022620,001171:
022621,001172: 32,7212 37567 SETUPENT CAF 2SEC # CALL ENTRY ROUTINES IN 2 SECS
022622,001173: 32,7213 02173 TC WAITLIST
022623,001174: 32,7214 56004 CADR PIPUP
022624,001175:
022625,001176: 32,7215 07203 TC MAKESERV
![]() |
Page 580 |
022627,001178:
022628,001179: 32,7216 37567 SETUPSOK CAF 2SEC # CALL SOAKTASK IN 2 SECS
022629,001180: 32,7217 02173 TC WAITLIST
022630,001181: 32,7220 66657 CADR SOAKTASK
022631,001182:
022632,001183: 32,7221 07203 TC MAKESERV
022633,001184:
022634,001185: 32,7222 34516 CHANGEDT CAF BIT1 # FORCE SERVICER TO SET DELTAT TO 2.5 SECS
022635,001186: 32,7223 51030 TS DELTAT +1
022636,001187:
022637,001188: 32,7224 37260 CAF 2.5SEC32 # CALL READACCS IN 2.5 SECS
022638,001189: 32,7225 07201 TC MAKESERV -2
022639,001190:
022640,001191: 32,7226 37257 REREADAC CAF ABORT32 # READACCS RESTART LOCATION
022641,001192: 32,7227 70647 MASK FLAGWRD2
022642,001193: 32,7230 10000 CCS A
022643,001194: 32,7231 07234 TC SET2.5S
022644,001195:
022645,001196: 32,7232 37255 CAFREPIP CAF REPIPCAD
022646,001197: 32,7233 07153 TC READACCS +1
022647,001198:
022648,001199: 32,7234 47260 SET2.5S CS 2.5SEC32
022649,001200: 32,7235 60667 AD TBASE5
022650,001201: 32,7236 60036 AD TIME1
022651,001202: 32,7237 30572 XCH RUPTSTOR
022652,001203:
022653,001204: 32,7240 10572 CCS RUPTSTOR
022654,001205: 32,7241 07232 TC CAFREPIP
022655,001206: 32,7242 07232 TC CAFREPIP
022656,001207: 32,7243 37260 CAF 2.5SEC32
022657,001208: 32,7244 60572 AD RUPTSTOR
022658,001209:
022659,001210: 32,7245 64476 AD POSMAX
022660,001211: 32,7246 50000 TS A
022661,001212: 32,7247 07232 TC CAFREPIP
022662,001213:
022663,001214: 32,7250 40572 CS RUPTSTOR
022664,001215: 32,7251 02173 TC WAITLIST
022665,001216: 32,7252 65232 CADR CAFREPIP
022666,001217:
022667,001218: 32,7253 02256 TC TASKOVER
022668,001219:
022669,001220: 32,7254 61313 PIPCADR CADR PIPASR
022670,001221: 32,7255 61364 REPIPCAD CADR REPIPASR
022671,001222: 32,7256 4504 CHDTMASK EQUALS BIT11
022672,001223: 32,7256 4514 ENTRYMSK EQUALS BIT3
022673,001224: 32,7256 4504 READMASK EQUALS BIT11
022674,001225: 32,7256 40000 CSTMASK OCT 40000
022675,001226: 32,7257 00006 ABORT32 OCT 6
022676,001227: 32,7260 00372 2.5SEC32 DEC 250 B-14
022677,001228: 32,7261 00620 4SEC DEC 400 B-14
![]() |
Page 581 |
022679,001230:
022680,001231: 32,7262 05654 SERVICER TC BANKCALL # COMPENSATE THE PIPA DATA IN THE DELV
022681,001232: 32,7263 31017 CADR 1/PIPA # REGISTERS.
022682,001233:
022683,001234: 32,7264 40645 CS STATE # TEST IF PIPAS BIAS IS TO BE DISREGARDED
022684,001235: 32,7265 74503 MASK BIT12
022685,001236: 32,7266 10000 CCS A
022686,001237: 32,7267 07276 TC REDO5.3 # NO
022687,001238:
022688,001239: 32,7270 51001 TS DELV # YES, CLEAR OUT DELV AS LONG AS BIAS FLAG
022689,001240: 32,7271 51002 TS DELV +1 # IS SET.
022690,001241: 32,7272 51003 TS DELV +2
022691,001242: 32,7273 51004 TS DELV +3
022692,001243: 32,7274 51005 TS DELV +4
022693,001244: 32,7275 51006 TS DELV +5
022694,001245:
022695,001246: 32,7276 04000 REDO5.3 TC INTPRET
022696,001247:
022697,001248: 32,7277 76776 ITC 0 # SEE IF TIME FOR STATE VECTOR UPDATE.
022698,001249: 32,7300 15712 501UPCHK # (501 & 2 ONLY).
022699,001250:
022700,001251: 32,7301 76776 REGSTEP ITC 0
022701,001252: 32,7302 21551 CALCRVG
022702,001253:
022703,001254: 32,7303 33533 AVGRET CAF ELEVEN # ROUTINE CYCLES 12 TIMES TO SAVE OLD VR,
022704,001255: 32,7304 50115 AGAIN TS MPAC # VN FOR RESTARTS
022705,001256: 32,7305 20115 INDEX MPAC
022706,001257: 32,7306 41416 CS VR
022707,001258: 32,7307 20115 INDEX MPAC
022708,001259: 32,7310 51263 TS VR1 # (TEMPORARIES IN AMEMORY)
022709,001260: 32,7311 10115 CCS MPAC
022710,001261: 32,7312 07304 TC AGAIN
022711,001262:
022712,001263: 32,7313 41446 CS VGCNTR # SAVE FOR RESTARTS
022713,001264: 32,7314 51261 TS VGCNT1
022714,001265: 32,7315 41447 CS DVCNTR
022715,001266: 32,7316 51262 TS DVCNT1
022716,001267:
022717,001268: 32,7317 02276 TC PHASCHNG
022718,001269: 32,7320 02705 OCT 02705
022719,001270:
022720,001271: 32,7321 04000 RE5.23 TC INTPRET
022721,001272:
022722,001273: 32,7322 43576 TEST 0 # TEST IF ENTRY FLAG SET
022723,001274: 32,7323 00036 ENTRYFLG
022724,001275: 32,7324 25354 GETFF # IT IS NOT
022725,001276: 32,7325 45176 DMOVE 0
022726,001277: 32,7326 21144 LAD
022727,001278: 32,7327 33576 STORE INITL/D
022728,001279:
022729,001280: 32,7330 75575 AXT,1 1
![]() |
Page 582 |
022731,001282: 32,7331 43565 TEST AXT,1
022732,001283: 32,7332 00001 0
022733,001284: 32,7333 00003 ABORTSIG
022734,001285: 32,7334 25337 PACIFIC
022735,001286: 32,7335 00011 8D
022736,001287: 32,7336 46176 PACIFIC COMP* 0
022737,001288: 32,7337 03275 TPACIFC,1
022738,001289: 32,7340 33145 STORE DTEAROT
022739,001290:
022740,001291: 32,7341 74176 VMOVE* 0
022741,001292: 32,7342 03301 RTPACIFC,1
022742,001293: 32,7343 33115 STORE RTINIT
022743,001294:
022744,001295: 32,7344 76776 ITC 0
022745,001296: 32,7345 13450 EARROT1
022746,001297:
022747,001298: 32,7346 77576 EXIT 0
022748,001299:
022749,001300: 32,7347 35501 CAF ZERO # RESET DELTAT +1 TO ZERO
022750,001301: 32,7350 51030 TS DELTAT +1
022751,001302:
022752,001303: 32,7351 05720 TC POSTJUMP # GO TO ENTRY INITIALIZATION ROUTINE.
022753,001304: 32,7352 61430 CADR STARTENT
022754,001305:
022755,001306: 32,7353 76776 GETFF ITC 0 # COMPUTE TIME TO FREE-FALL TO RTERM
022756,001307: 32,7354 22001 CALCTFF
022757,001308:
022758,001309: 32,7355 43575 COASTEST TEST 1 # TEST IF COAST FLAG SET
022759,001310: 32,7356 75026 VMOVE VSRT
022760,001311: 32,7357 00022 COASTFLG
022761,001312: 32,7360 25454 TFFTEST
022762,001313: 32,7361 00766 RN # IT IS. TRANSFER RN,VN TO ORBITAL
022763,001314: 32,7362 00002 RSCALE -15D
022764,001315: 32,7363 33101 STORE RRECT # INTEGRATION ROUTINE
022765,001316:
022766,001317: 32,7364 75176 VMOVE 0
022767,001318: 32,7365 00774 VN
022768,001319: 32,7366 33107 STORE VRECT
022769,001320:
022770,001321: 32,7367 77576 EXIT 0
022771,001322:
022772,001323: 32,7370 41456 CS TFF # SEE IF TFF IS POSMAX (I.E.- WILL NOT
022773,001324: 32,7371 64476 AD POSMAX # INTERSECT 400,000 FT)
022774,001325: 32,7372 10000 CCS A
022775,001326:
022776,001327: 32,7373 03462 TC STATEUP # ALL O.K., SO SET TFF2 FLAG TO ENABLE
022777,001328: 32,7374 10000 OCT 10000 # (TFF - TFFMIN) CALCULATIONS FOR SPS2
022778,001329: 32,7375 07406 TC NOMCASE # IGNITION SEQUENCE
022779,001330:
022780,001331: 32,7376 41720 CS TFFNOM # WILL NOT INTERSECT 400,000 FT, SO SET
![]() |
Page 583 |
022782,001333: 32,7377 40000 COM # TFF TO NOMINAL VALUE TO COMPUTE
022783,001334: 32,7400 51456 TS TFF # TAVEGON AND TCOAST FOR A SPS2 BURN
022784,001335:
022785,001336: 32,7401 41721 CS TFFNOM +1
022786,001337: 32,7402 40000 COM
022787,001338: 32,7403 51457 TS TFF +1
022788,001339:
022789,001340: 32,7404 03474 TC STATEDWN # RESET TFF2 FLAG SO THAT SPS2 IGNITION IS
022790,001341: 32,7405 10000 OCT 10000 # SCHEDULED A FIXED TIME AFTER AVE G. ON
022791,001342:
022792,001343: 32,7406 04000 NOMCASE TC INTPRET
022793,001344:
022794,001345: 32,7407 66776 DSU 0 # TIME TO TURN AVE G ON =TFF-23MIN.
022795,001346: 32,7410 01457 TFF
022796,001347: 32,7411 25571 23MIN
022797,001348: 32,7412 33211 STORE TAVEGON
022798,001349:
022799,001350: 32,7413 47574 NOLOD 2 # TIME OF COAST = PIPTIME + (TFF-25MIN)
022800,001351: 32,7414 66756 DSU BMN # - TCUTOFF
022801,001352: 32,7415 66742 DSU DAD
022802,001353: 32,7416 25573 2MIN
022803,001354: 32,7417 25433 SPS2NOW # TAVEGON TOO SMALL-SCHEDULE SPS2 NOW
022804,001355: 32,7420 01463 TCUTOFF
022805,001356: 32,7421 01465 PIPTIME
022806,001357: 32,7422 33557 STORE TCOAST
022807,001358:
022808,001359: 32,7423 77576 EXIT 0
022809,001360:
022810,001361: 32,7424 41465 CS PIPTIME +1 # START UP FREE-FALL GYRO DRIFT COMP.
022811,001362: 32,7425 40000 COM
022812,001363: 32,7426 50755 TS OLDBT1
022813,001364:
022814,001365: 32,7427 03440 TC FLAG2UP # BEGINS WITH NEXT IDLETASK. SET DRIFTFLG
022815,001366: 32,7430 40000 OCT 40000
022816,001367:
022817,001368: 32,7431 02124 TC ENDOFJOB # SERVICER DIES HERE AT START OF COASTPHS.
022818,001369:
022819,001370: 32,7432 77576 SPS2NOW EXIT 0
022820,001371:
022821,001372: 32,7433 03416 TC FLAG1UP # SET INIT FLAG TO ENABLE MANEUVER TO
022822,001373: 32,7434 00400 OCT 00400 # SPS2 BURN ATTITUDE
022823,001374:
022824,001375: 32,7435 34516 CAF ONE
022825,001376: 32,7436 51446 TS VGCNTR
022826,001377:
022827,001378: 32,7437 03430 TC FLAG1DWN # REMOVE COAST FLAG TO CANCEL COLD SOAK
022828,001379: 32,7440 40000 OCT 40000
022829,001380:
022830,001381: 32,7441 44516 CS ONE # LET ENEMA KILL COLD SOAK MANUEVER
022831,001382: 32,7442 02312 TC NEWPHASE
![]() |
Page 584 |
022833,001384: 32,7443 00002 OCT 00002
022834,001385:
022835,001386: 32,7444 44516 CS ONE # LET ENEMA KILL CALL FOR FDAONTSK
022836,001387: 32,7445 02312 TC NEWPHASE
022837,001388: 32,7446 00004 OCT 00004
022838,001389:
022839,001390: 32,7447 32151 CAF PRIO15 # DO AN EMEMA AFTER THIS JOB
022840,001391: 32,7450 02052 TC NOVAC
022841,001392: 32,7451 11147 CADR ENEMA # RESTART READACCS AND WAIT FOR TFFMIN
022842,001393:
022843,001394: 32,7452 04000 TC INTPRET
022844,001395:
022845,001396: 32,7453 43575 TFFTEST TEST 1 # TEST IF TFFMIN SHOULD BE CHECKED.
022846,001397: 32,7454 66616 DSU BPL # TFF2 FLAG SET AT SPS1 CUTOFF
022847,001398: 32,7455 00004 TFF2FLAG
022848,001399: 32,7456 25514 TFFTEST1
022849,001400: 32,7457 01457 TFF
022850,001401: 32,7460 01677 TFFMIN
022851,001402: 32,7461 25514 TFFTEST1
022852,001403: 32,7462 77576 EXIT 0
022853,001404:
022854,001405: 32,7463 20017 TESTTFF INHINT
022855,001406: 32,7464 37575 CAF 90SEC32
022856,001407: 32,7465 02173 TC WAITLIST
022857,001408: 32,7466 50463 CADR PLUSX2
022858,001409:
022859,001410: 32,7467 11722 CCS S2SWITCH # SEE IF 2ND BURN ATTITUDE TO BE COMPUTED
022860,001411: 32,7470 07477 TC SET32 # NO
022861,001412: 32,7471 07477 TC SET32
022862,001413: 32,7472 07473 TC +1
022863,001414: 32,7473 03416 TC FLAG1UP # SET INIT FLAG TO RE:MANEUVER TO SPS2
022864,001415: 32,7474 00400 OCT 00400 # BURN ATTITUDE
022865,001416:
022866,001417: 32,7475 34516 CAF ONE
022867,001418: 32,7476 51446 TS VGCNTR
022868,001419:
022869,001420: 32,7477 02362 SET32 TC NEWMODE # SET MAJOR MODE TO PRE-SPS2
022870,001421: 32,7500 00032 OCT 00032
022871,001422:
022872,001423: 32,7501 03504 TC SETBRNSW # SET BURN TO SPS2 BACK UP SETTING
022873,001424: 32,7502 00020 OCT 00020
022874,001425:
022875,001426: 32,7503 40036 CS TIME1
022876,001427: 32,7504 50666 TS TBASE4
022877,001428:
022878,001429: 32,7505 33556 CAF THIRTY
022879,001430: 32,7506 02312 TC NEWPHASE
022880,001431: 32,7507 00004 OCT 00004
022881,001432:
022882,001433: 32,7510 03474 TC STATEDWN # REMOVE TFF2FLAG
![]() |
Page 585 |
022884,001435: 32,7511 10000 OCT 10000
022885,001436:
022886,001437: 32,7512 04000 TC INTPRET
022887,001438:
022888,001439: 32,7513 43574 TFFTEST1 TEST 2 # TEST IF INTP FLAG SET
022889,001440: 32,7514 65132 ABS DSU
022890,001441: 32,7515 73615 BMN TEST
022891,001442: 32,7516 00027 INTPFLAG
022892,001443: 32,7517 25603 INITEST # IT IS NOT. CONTINUE AT INITEST
022893,001444: 32,7520 01457 TFF # TEST IF TFF LESS THAN 95 SECS
022894,001445: 32,7521 25601 DP95SEC
022895,001446: 32,7522 25542 SHUTDWN1 # IT IS. PREPARE TO FREE-FALL RE-ENTER
022896,001447: 32,7523 00032 INT1FLAG # TEST IF FIRST INTERUPT FLAG SET
022897,001448: 32,7524 25530 +3 # IT IS NOT
022898,001449:
022899,001450: 32,7525 77576 EXIT 0 # IT IS. WAIT FOR 95 SEC INTERUPT
022900,001451: 32,7526 07741 TC ENDSER32
022901,001452:
022902,001453: 32,7527 47575 NOLOD 1 # TEST IF TFF LESS THAN 200 SECS
022903,001454: 32,7530 66616 DSU BPL
022904,001455: 32,7531 25577 DP105SEC
022905,001456: 32,7532 25603 INITEST # IT IS NOT. CONTINUE
022906,001457:
022907,001458: 32,7533 77576 EXIT 0
022908,001459: 32,7534 05654 TC BANKCALL # IT IS. BRANCH TO SHUTDOWN ROUTINES
022909,001460: 32,7535 67037 CADR SHUTDOWN
022910,001461:
022911,001462: 32,7536 03416 TC FLAG1UP
022912,001463: 32,7537 00100 OCT 00100
022913,001464:
022914,001465: 32,7540 07546 TC SHTFLGUP
022915,001466:
022916,001467: 32,7541 77576 SHUTDWN1 EXIT 0
022917,001468: 32,7542 05654 TC BANKCALL
022918,001469: 32,7543 67037 CADR SHUTDOWN
022919,001470:
022920,001471: 32,7544 03430 TC FLAG1DWN # REMOVE INTP FLAG (DISABLE TFF DECISIONS)
022921,001472: 32,7545 01000 OCT 01000
022922,001473:
022923,001474: 32,7546 03416 SHTFLGUP TC FLAG1UP # SET SHTDN FLAG
022924,001475: 32,7547 04000 OCT 04000
022925,001476:
022926,001477: 32,7550 07741 TC ENDSER32
022927,001478:
022928,001479:
022929,001480:
022930,001481: 32,7551 33533 REDO5.23 CAF ELEVEN # RE-ESTABLISH VR, DIFFVECT IN CASE OF
022931,001482: 32,7552 50115 TS MPAC # 5.23 RESTART
022932,001483: 32,7553 20115 INDEX MPAC
022933,001484: 32,7554 41263 CS VR1
![]() |
Page 586 |
022935,001486: 32,7555 20115 INDEX MPAC
022936,001487: 32,7556 51416 TS VR
022937,001488: 32,7557 10115 CCS MPAC
022938,001489: 32,7560 07552 TC REDO5.23 +1
022939,001490:
022940,001491: 32,7561 41261 CS VGCNT1
022941,001492: 32,7562 51446 TS VGCNTR
022942,001493: 32,7563 41262 CS DVCNT1
022943,001494: 32,7564 51447 TS DVCNTR
022944,001495:
022945,001496: 32,7565 07321 TC RE5.23
022946,001497:
022947,001498:
022948,001499:
022949,001500: 32,7566 00000 DP2SEC DEC 0.0
022950,001501: 32,7567 00310 2SEC DEC 200 B-14
022951,001502: 32,7570 00010 15420 23MIN 2DEC 138000 B-28
022952,001503: 32,7572 00000 27340 2MIN 2DEC 12000 B-28
022953,001504: 32,7574 00077 OCT77 OCT 00077
022954,001505: 32,7575 21450 90SEC32 DEC 9000 B-14
022955,001506: 32,7576 00000 24404 DP105SEC 2DEC 10500 B-28
022956,001507: 32,7600 00000 22434 DP95SEC 2DEC 9500 B-28
022957,001508:
![]() |
Page 587 |
022959,001510:
022960,001511: 32,7602 77576 INITEST EXIT 0
022961,001512: 32,7603 40646 CS FLAGWRD1 # TEST IF THIS IS AN INITIAL PASS
022962,001513: 32,7604 74506 MASK INITMASK
022963,001514: 32,7605 10000 CCS A
022964,001515: 32,7606 07664 TC DVMNTEST # IT IS NOT
022965,001516:
022966,001517: 32,7607 40647 CS FLAGWRD2 # TEST IF BURN IS ABORT AFTER TUMBLE ARRET
022967,001518: 32,7610 76772 MASK TABTMASK
022968,001519: 32,7611 10000 CCS A
022969,001520: 32,7612 07617 TC INITISE # IT IS NOT
022970,001521:
022971,001522: 32,7613 02362 TC NEWMODE # SET MAJOR MODE TO POST TUMBLE RECOVERY
022972,001523: 32,7614 00071 OCT 00071
022973,001524:
022974,001525: 32,7615 37654 CAF 31.8DEG # TO REGAIN ATTITUDE AFTER TUMBLE SET AN
022975,001526: 32,7616 51442 TS LOOKANG # AVERAGE ANGLE TO HORIZON OF 31.8 DEGS.
022976,001527:
022977,001528: 32,7617 04000 INITISE TC INTPRET
022978,001529:
022979,001530: 32,7620 75176 VMOVE 0 # DEFINES TRAJECTORY PLANE FOR YAW
022980,001531: 32,7621 00774 VN # STEERING. USED IN CALCVGB
022981,001532: 32,7622 33107 STORE VIGNTION
022982,001533:
022983,001534: 32,7623 76776 ITC 0 # BRANCH TO VG, B VECTOR COMPUTATIONS
022984,001535: 32,7624 12421 CALCVGB
022985,001536:
022986,001537: 32,7625 77576 EXIT 0
022987,001538:
022988,001539: 32,7626 11446 CCS VGCNTR # WAIT FOR SECOND PASS THRU CALCVGB BEFORE
022989,001540: 32,7627 07631 TC +2 # COMPUTING THRUST ATTITUDE
022990,001541: 32,7630 07633 TC +3
022991,001542:
022992,001543: 32,7631 51446 TS VGCNTR
022993,001544: 32,7632 07741 TC ENDSER32
022994,001545:
022995,001546: 32,7633 04000 TC INTPRET
022996,001547:
022997,001548: 32,7634 76776 ITC 0
022998,001549: 32,7635 26256 BURNINIT
022999,001550:
023000,001551: 32,7636 77576 EXIT 0
023001,001552:
023002,001553: 32,7637 20017 INHINT
023003,001554: 32,7640 32146 CAF PRIO12 # ESTABLISH JOB TO COMPUTE MANEUVER TO
023004,001555: 32,7641 02046 TC FINDVAC # BURN INITIAL ATTITUDE
023005,001556: 32,7642 66404 CADR ATTIJOB
023006,001557:
023007,001558: 32,7643 34516 CAF ONE # SET VGCNTR FOR TWO PASSES THROUGH
023008,001559: 32,7644 51446 TS VGCNTR # CALCVGB BEFORE ISSUINS STEER COMMANDS
![]() |
Page 588 |
023010,001561: 32,7645 37655 CAF 35DEG # RESTORE ANGLE TO HORIZON TO 35 DEGS
023011,001562: 32,7646 51442 TS LOOKANG
023012,001563:
023013,001564: 32,7647 02276 TC PHASCHNG
023014,001565: 32,7650 00402 OCT 00402
023015,001566:
023016,001567: 32,7651 03430 TC FLAG1DWN # REMOVE INIT FLAG
023017,001568: 32,7652 00400 OCT 00400
023018,001569:
023019,001570: 32,7653 07741 TC ENDSER32
023020,001571:
023021,001572: 32,7654 02647 31.8DEG DEC 0.088333 # SCALED AT 1 REV
023022,001573: 32,7655 03071 35DEG DEC 0.097222
023023,001574: 32,7656 4506 INITMASK EQUALS BIT9
023024,001575:
023025,001576: 32,7656 77576 VRFAIL EXIT 0 # EXIT HERE IF FAILURE TO COMPUTE ABORT VR
023026,001577:
023027,001578: 32,7657 11446 CCS VGCNTR # TEST IF THIS IS LAST PASS
023028,001579: 32,7660 07662 TC +2
023029,001580: 32,7661 07737 TC ENDSHUT # IT IS. DO SHUTDOWN
023030,001581:
023031,001582: 32,7662 51446 TS VGCNTR # WAIT FOR MORE
023032,001583: 32,7663 07741 TC ENDSER32
023033,001584:
023034,001585: 32,7664 40646 DVMNTEST CS FLAGWRD1 # TEST IF DV MONITOR IS ENABLED
023035,001586: 32,7665 74512 MASK DVMONMSK
023036,001587: 32,7666 10000 CCS A
023037,001588: 32,7667 07741 TC ENDSER32 # IT IS NOT
023038,001589:
023039,001590: 32,7670 04000 TC INTPRET
023040,001591:
023041,001592: 32,7671 71174 ABVAL 2 # TEST IF DELV MAG. EXCEEDS DVMIN
023042,001593: 32,7672 66756 DSU BMN
023043,001594: 32,7673 77576 EXIT
023044,001595: 32,7674 01002 DELV
023045,001596: 32,7675 26001 DVMIN
023046,001597: 32,7676 25704 NODELTAV # IT DOES NOT. START DV MONITOR
023047,001598:
023048,001599: 32,7677 44516 CS ONE # IT DOES. (DVCNTR NORMALLY NEGATIVE)
023049,001600: 32,7700 51447 TS DVCNTR
023050,001601:
023051,001602: 32,7701 05654 TC BANKCALL
023052,001603: 32,7702 66002 CADR STRTEST
023053,001604:
023054,001605: 32,7703 77576 NODELTAV EXIT 0
023055,001606: 32,7704 11447 CCS DVCNTR
023056,001607:
023057,001608: 32,7705 07712 TC DVALARM # AFTER FIRST TIME SET ALARM
023058,001609: 32,7706 07717 TC SHUTDWN3 # 5 PASSES UP. PREPARE FOR RE-ENTRY
![]() |
Page 589 |
023060,001611: 32,7707 33532 CAF NINE # FIRST TIME SET DVCNTR FOR 10 PASSES
023061,001612: 32,7710 51447 TS DVCNTR
023062,001613:
023063,001614: 32,7711 07741 TC ENDSER32
023064,001615:
023065,001616: 32,7712 03007 DVALARM TC ALARM
023066,001617: 32,7713 01402 OCT 01402
023067,001618:
023068,001619: 32,7714 11447 CCS DVCNTR
023069,001620: 32,7715 51447 TS DVCNTR
023070,001621:
023071,001622: 32,7716 07741 TC ENDSER32
023072,001623:
023073,001624: 32,7717 40647 SHUTDWN3 CS FLAGWRD2
023074,001625: 32,7720 76416 MASK SPS1MASK
023075,001626: 32,7721 10000 CCS A
023076,001627: 32,7722 07735 TC SHUTDWN4 # SHUT DOWN IF NOT DOING SPS1 BURN
023077,001628:
023078,001629: 32,7723 20017 INHINT # CALL ON ENGINE-OFF IMMEDIATELY IF SPS1
023079,001630: 32,7724 34516 CAF ONE
023080,001631: 32,7725 02173 TC WAITLIST
023081,001632: 32,7726 64710 CADR ENGINOFF
023082,001633: 32,7727 20016 RELINT
023083,001634:
023084,001635: 32,7730 03430 TC FLAG1DWN # REMOVE STEER FLAG
023085,001636: 32,7731 00010 OCT 00010
023086,001637:
023087,001638: 32,7732 02276 TC PHASCHNG
023088,001639: 32,7733 04104 OCT 04104
023089,001640:
023090,001641: 32,7734 07741 TC ENDSER32
023091,001642:
023092,001643: 32,7735 03416 SHUTDWN4 TC FLAG1UP # ENABLE FREE-FALL INTERRUPT
023093,001644: 32,7736 01000 OCT 01000
023094,001645:
023095,001646: 32,7737 05654 ENDSHUT TC BANKCALL
023096,001647: 32,7740 67037 CADR SHUTDOWN
023097,001648:
023098,001649: 32,7741 05654 ENDSER32 TC BANKCALL # EXIT FROM SERVICER FROM BANK 32
023099,001650: 32,7742 66241 CADR ENDSERV
023100,001651:
023101,001652: 33,6000 SETLOC 66000
023102,001653: 33,6000 4512 DVMONMSK EQUALS BIT5
023103,001654: 33,6000 00005 06565 DVMIN 2DEC 0.000318008 # 2FT/S SCALED AT 19.16928 M/CS
023104,001655:
023105,001656: 33,6002 40646 STRTEST CS FLAGWRD1 # TEST IF STEER FLAG SET
023106,001657: 33,6003 74513 MASK BIT4
023107,001658: 33,6004 10000 CCS A
023108,001659: 33,6005 06241 TC ENDSERV # IT IS NOT
![]() |
Page 590 |
023110,001661: 33,6006 04000 TC INTPRET
023111,001662:
023112,001663: 33,6007 76776 ITC 0
023113,001664: 33,6010 12421 CALCVGB
023114,001665:
023115,001666: 33,6011 77576 EXIT 0
023116,001667:
023117,001668: 33,6012 02276 TC PHASCHNG
023118,001669: 33,6013 00505 OCT 00505
023119,001670:
023120,001671: 33,6014 11446 REDO5.5 CCS VGCNTR
023121,001672: 33,6015 06017 TC +2 # BEFORE TESTING VG AND GENERATING STEERIN
023122,001673: 33,6016 06034 TC JUMP10 # COMMANDS
023123,001674:
023124,001675: 33,6017 51360 TS ERRORSUM # ZERO STEER ERROR SUM
023125,001676: 33,6020 51361 TS ERRORSUM +1
023126,001677: 33,6021 51362 TS ERRORSUM +2
023127,001678: 33,6022 51363 TS ERRORSUM +3
023128,001679: 33,6023 51364 TS ERRORSUM +4
023129,001680: 33,6024 51365 TS ERRORSUM +5
023130,001681:
023131,001682: 33,6025 36033 CAF MDTINIT
023132,001683: 33,6026 51444 TS MDT
023133,001684: 33,6027 51445 TS MDT +1
023134,001685:
023135,001686: 33,6030 11446 CCS VGCNTR
023136,001687: 33,6031 51446 TS VGCNTR
023137,001688:
023138,001689: 33,6032 06241 TC ENDSERV
023139,001690:
023140,001691: 33,6033 00076 MDTINIT DEC 0.00381 # 16FT/S/S FOR 2.5 SECS AT 2(+5)M/CS
023141,001692:
023142,001693: 33,6034 03452 JUMP10 TC FLAG2DWN # REMOVE CALC FLAG (KILLS ATTITUDE MAN-
023143,001694: 33,6035 02000 OCT 02000 # EUVER IF STILL ACTIVE)
023144,001695:
023145,001696: 33,6036 04000 TC INTPRET
023146,001697:
023147,001698: 33,6037 75775 VXSC 1
023148,001699: 33,6040 46753 BVSU UNIT
023149,001700: 33,6041 01002 DELV
023150,001701: 33,6042 21742 KPIP
023151,001702: 33,6043 01411 CBDT
023152,001703: 33,6044 33403 STORE UNITMDT
023153,001704:
023154,001705: 33,6045 47575 NOLOD 1 # TEST IF VG INCREASING WITH THRUST
023155,001706: 33,6046 42616 DOT BPL
023156,001707: 33,6047 01353 VG
023157,001708: 33,6050 26235 VGALARM # IT IS. BRANCH TO CUT ENGINE AND WAIT
023158,001709: 33,6051 32033 STORE 26D # VG ACTUAL
![]() |
Page 591 |
023160,001711: 33,6052 70776 DAD 0 # SUM TWO INTERVALS OF MDT
023161,001712: 33,6053 00037 30D
023162,001713: 33,6054 01445 MDT
023163,001714:
023164,001715: 33,6055 64773 JUMP9 DMP 3 # RESCALE VG ACTUAL TO 2(+5)M/CS
023165,001716: 33,6056 63746 TSLT BOV
023166,001717: 33,6057 62746 DDV BOV # IF NO OVER FLOW ON DIVISION, LESS THAN
023167,001718: 33,6060 64772 DMP ITC # 2 INTERVALS OF VG LEFT
023168,001719: 33,6061 00033 26D
023169,001720: 33,6062 26163 0.995
023170,001721: 33,6063 00004 3
023171,001722: 33,6064 26072 STEERLAW
023172,001723: 33,6065 77777 -
023173,001724: 33,6066 26072 STEERLAW
023174,001725: 33,6067 01030 DELTAT
023175,001726: 33,6070 26173 SETTGO # BRANCH TO SET TIME-TO-GO TO CUT-OFF
023176,001727:
023177,001728: 33,6071 45176 STEERLAW DMOVE 0 # SAVE NEW VALUE OF MDT
023178,001729: 33,6072 00037 30D
023179,001730: 33,6073 33445 STORE MDT
023180,001731:
023181,001732: 33,6074 64776 DMP 0
023182,001733: 33,6075 26165 K1STEER # =(0.815...)(STEER GAIN)
023183,001734: 33,6076 01030 DELTAT
023184,001735:
023185,001736: 33,6077 71173 ABVAL 3 # STEERING CROSS PRODUCT COMPUTED HERE
023186,001737: 33,6100 57706 TSLC BDDV
023187,001738: 33,6101 75606 VXSC VXV
023188,001739: 33,6102 44376 VSLT*
023189,001740: 33,6103 01353 VG
023190,001741: 33,6104 00050 X2
023191,001742: 33,6105 77777 -
023192,001743: 33,6106 01353 VG
023193,001744: 33,6107 01403 UNITMDT
023194,001745: 33,6110 00002 0,2
023195,001746: 33,6111 33345 STORE STEERROR # FIRST TERM IN STEERLAW OUTPUT. SCALED
023196,001747: # AT ONE REVOLUTION
023197,001748: 33,6112 47575 NOLOD 1 # INCREMENT SUM OF STEER ERRORS
023198,001749: 33,6113 75642 VXSC VAD
023199,001750: 33,6114 26167 K2STEER # =(INTEGRATOR GAIN)/(STEER GAIN)
023200,001751: 33,6115 01361 ERRORSUM
023201,001752:
023202,001753: 33,6116 47574 NOLOD 2 # TEST IF MAGNITUDE OF INTEGRATED STEER
023203,001754: 33,6117 71132 ABVAL DSU # ERROR EXCEEDS MAX ALLOWABLE
023204,001755: 33,6120 43776 BPL
023205,001756: 33,6121 26171 ERRORMAX
023206,001757: 33,6122 26126 SUMPOINT
023207,001758:
023208,001759: 33,6123 75176 VMOVE 0
023209,001760: 33,6124 33361 STORE ERRORSUM # STORE NEW STEER ERROR SUM
![]() |
Page 592 |
023211,001762:
023212,001763: 33,6125 50775 SUMPOINT VAD 1 # SUM ERROR AND INTEGRATED ERROR TERMS
023213,001764: 33,6126 76572 RTB ITC
023214,001765: 33,6127 01345 STEERROR
023215,001766: 33,6130 01361 ERRORSUM
023216,001767: 33,6131 20265 FRESHPD
023217,001768: 33,6132 12375 CDUDRIVE # BRANCH WITH TOTAL STEERLAW OUTPUT IN VAC
023218,001769: # SCALED AT ONE REVOLUTION
023219,001770: 33,6133 44775 STREXIT VSLT 1
023220,001771: 33,6134 47175 COMP EXIT # RESCALE VG TO 2(+5)M/CS FOR DISPLAY
023221,001772: 33,6135 01353 VG
023222,001773: 33,6136 00003 2
023223,001774:
023224,001775: 33,6137 03302 TC GRABDSP # TRY TO GRAB DISPLAY
023225,001776: 33,6140 06156 TC NODISP # ALREADY GRABBED. SKIP VG DISPLAY
023226,001777:
023227,001778: 33,6141 20067 INDEX FIXLOC # LOAD UPPER REGISTERS OF VG INTO DSPTEM1
023228,001779: 33,6142 40040 CS VAC
023229,001780: 33,6143 50616 TS DSPTEM1
023230,001781:
023231,001782: 33,6144 20067 INDEX FIXLOC
023232,001783: 33,6145 40042 CS VAC +2
023233,001784: 33,6146 50617 TS DSPTEM1 +1
023234,001785:
023235,001786: 33,6147 20067 INDEX FIXLOC
023236,001787: 33,6150 40044 CS VAC +4
023237,001788: 33,6151 50620 TS DSPTEM1 +2
023238,001789:
023239,001790: 33,6152 36157 CAF V06N40
023240,001791: 33,6153 03100 TC NVSUB
023241,001792: 33,6154 03250 TC RELDSPON
023242,001793:
023243,001794: 33,6155 03362 TC FREEDSP
023244,001795:
023245,001796: 33,6156 06241 NODISP TC ENDSERV
023246,001797:
023247,001798: 33,6157 00640 V06N40 OCT 00640 # VERB 06 NOUN 40
023248,001799: 33,6160 06057 03250 1.523 2DEC 1.523 B-3
023249,001800: 33,6162 37656 02437 0.995 2DEC 0.995
023250,001801: 33,6164 03204 33423 K1STEER 2DEC 0.101859164 # (STEER GAIN =1/8)
023251,001802: 33,6166 02436 27024 K2STEER 2DEC 0.08 # (INTEGRATOR GAIN =0.01)
023252,001803: 33,6170 00026 30133 ERRORMAX 2DEC 0.001388888 # 1 DEGREE SCALED AT 2 REVS
023253,001804:
023254,001805: 33,6172 47574 SETTGO NOLOD 2 # COME HERE TO SET ENGINE-OFF CALL
023255,001806: 33,6173 56633 TSRT COMP
023256,001807: 33,6174 43575 TEST EXIT
023257,001808: 33,6175 00005 4 # C(MPAC) = TIME-TO-CUTOFF SINCE PIPTIME
![]() |
Page 593 |
023259,001810: 33,6176 00035 STEERFLG # SCALED AT 2(+14) CS
023260,001811: 33,6177 26134 STREXIT
023261,001812:
023262,001813: 33,6200 30115 XCH MPAC
023263,001814: 33,6201 51460 TS LONGTIME # SAVE MPAC (USED IN RESTARTS)
023264,001815:
023265,001816: 33,6202 20017 REDO4.1 INHINT
023266,001817: 33,6203 40036 CS TIME1
023267,001818: 33,6204 50666 TS TBASE4
023268,001819: 33,6205 61465 AD PIPTIME +1
023269,001820: 33,6206 10000 CCS A
023270,001821: 33,6207 64500 AD BIT15
023271,001822: 33,6210 06213 TC +3
023272,001823: 33,6211 64516 AD ONE
023273,001824: 33,6212 40000 COM
023274,001825:
023275,001826: 33,6213 61460 AD LONGTIME # (TEMP FOR MPAC)
023276,001827: 33,6214 61560 AD TDECAY # EFFECTIVE THRUST DECAY TIME
023277,001828: 33,6215 51461 TS LONGTIME +1
023278,001829: 33,6216 10000 CCS A # TEST FOR - OR 0 WAITLIST CALLS
023279,001830: 33,6217 06222 TC +3
023280,001831: 33,6220 06222 TC +2
023281,001832: 33,6221 35501 CAF ZERO
023282,001833: 33,6222 64516 AD ONE
023283,001834: 33,6223 02173 TC WAITLIST
023284,001835: 33,6224 64710 CADR ENGINOFF
023285,001836:
023286,001837: 33,6225 02276 TC PHASCHNG
023287,001838: 33,6226 00104 OCT 00104
023288,001839:
023289,001840: 33,6227 03430 TC FLAG1DWN # REMOVE STEER FLAG
023290,001841: 33,6230 00010 OCT 00010
023291,001842:
023292,001843: 33,6231 02276 TC PHASCHNG
023293,001844: 33,6232 00204 OCT 00204
023294,001845:
023295,001846: 33,6233 06241 TC ENDSERV
023296,001847:
023297,001848: 33,6234 77576 VGALARM EXIT 0
023298,001849: 33,6235 03007 TC ALARM
023299,001850: 33,6236 01401 OCT 01401
023300,001851:
023301,001852: 33,6237 05654 TC BANKCALL
023302,001853: 33,6240 65717 CADR SHUTDWN3
023303,001854:
023304,001855: 33,6241 11030 ENDSERV CCS DELTAT +1 # IF BIT1 PRESENT IN DELTAT +1, SET DELTAT
023305,001856: 33,6242 36252 CAF HALFSEC # 1/PIPADT TO 2.5SECS (FOR ABORT STEERING)
023306,001857: 33,6243 66253 AD TWOSEC
023307,001858: 33,6244 51027 TS DELTAT
023308,001859: 33,6245 60000 DOUBLE
![]() |
Page 594 |
023310,001861: 33,6246 50755 TS 1/PIPADT
023311,001862:
023312,001863: 33,6247 02276 TC PHASCHNG
023313,001864: 33,6250 00105 OCT 00105
023314,001865:
023315,001866: 33,6251 02124 TC ENDOFJOB
023316,001867:
023317,001868: 33,6252 03100 HALFSEC DEC 50 B-9
023318,001869: 33,6253 14400 TWOSEC DEC 200 B-9
023319,001870: 33,6254 00007 ALLABORT OCT 7
023320,001871:
![]() |
Page 595 |
023322,001873:
023323,001874: 33,6255 53574 BURNINIT AXC,1 2 # C(X1)= 0 (TABT,ABRT,SPS1)
023324,001875: 33,6256 45415 ITA TEST # =-2 (SPS2)
023325,001876: 33,6257 53576 AXC,1
023326,001877: 33,6260 00001 0
023327,001878: 33,6261 00052 S2
023328,001879: 33,6262 00054 SPS2FLAG
023329,001880: 33,6263 26266 +2
023330,001881: 33,6264 00003 2
023331,001882:
023332,001883: 33,6265 76776 ITC 0 # COMPUTE DESIRED THRUST DIRECTION
023333,001884: 33,6266 13402 CALCXSC
023334,001885:
023335,001886: 33,6267 76575 RTB 1 # SET UP CG ROTATION MATRIX IN PD
023336,001887: 33,6270 42176 SMOVE*
023337,001888: 33,6271 20271 ZEROVAC
023338,001889: 33,6272 03621 CGZ,1
023339,001890: 33,6273 32007 STORE 6
023340,001891:
023341,001892: 33,6274 47575 NOLOD 1
023342,001893: 33,6275 47065 COMP AST,1
023343,001894: 33,6276 00007 6
023344,001895: 33,6277 32003 STORE 2
023345,001896:
023346,001897: 33,6300 42176 SMOVE* 0
023347,001898: 33,6301 03611 CGY,1
023348,001899: 33,6302 32005 STORE 4
023349,001900:
023350,001901: 33,6303 47575 NOLOD 1
023351,001902: 33,6304 47165 COMP AXT,1
023352,001903: 33,6305 00023 18D
023353,001904: 33,6306 32015 STORE 12D
023354,001905:
023355,001906: 33,6307 74174 REPEAT2 VMOVE* 2 # COMPUTE DESIRED SPACECRAFT ATTITUDE
023356,001907: 33,6310 51640 VXM VAD* # MATRIX FROM DESIRED THRUST ATT. MATRIX
023357,001908: 33,6311 73176 UNIT
023358,001909: 33,6312 00045 18D,1
023359,001910: 33,6313 01367 XSC
023360,001911: 33,6314 03021 XSC +18D,1
023361,001912: 33,6315 37065 STORE XSCD +18D,1
023362,001913:
023363,001914: 33,6316 51575 TIX,1 1
023364,001915: 33,6317 44576 ITCI
023365,001916: 33,6320 26310 REPEAT2
023366,001917: 33,6321 00052 S2
![]() |
Page 596 |
023368,001919:
023369,001920: 33,6322 04000 ROLLJOB TC INTPRET
023370,001921:
023371,001922: 33,6323 75575 AXT,1 1 # GET SIN,COS OF THETAD,+1,+2
023372,001923: 33,6324 54572 AST,2 ITC
023373,001924: 33,6325 00007 6
023374,001925: 33,6326 26360 ROLLEXIT
023375,001926: 33,6327 12013 THETRIG
023376,001927:
023377,001928: 33,6330 76776 ITC 0 # COMPUTE NAV. BASE CORRDINATES
023378,001929: 33,6331 12110 CALCSMNB
023379,001930:
023380,001931: 33,6332 75776 VXSC 0 # COMPUTE XSC
023381,001932: 33,6333 01477 XNB
023382,001933: 33,6334 12241 COS33
023383,001934:
023384,001935: 33,6335 75774 VXSC 2
023385,001936: 33,6336 50615 VAD TEST
023386,001937: 33,6337 47176 COMP
023387,001938: 33,6340 01513 ZNB
023388,001939: 33,6341 12237 SIN33
023389,001940: 33,6342 77777 -
023390,001941: 33,6343 00054 SPS2FLAG # IF SPS2, INVERT XSC
023391,001942: 33,6344 26347 HEADWN1
023392,001943: 33,6345 32027 STORE 22D
023393,001944:
023394,001945: 33,6346 47573 HEADWN1 NOLOD 3
023395,001946: 33,6347 41753 VXV UNIT # =KR(TVC)(UNIT(XSC*RN)*YSC), WHERE
023396,001947: 33,6350 41766 VXV VXSC # DT(MAX) = 10 SECS,
023397,001948: 33,6351 44772 VSLT ITC # MAX ROLL GAIN = 1.0
023398,001949: 33,6352 00766 RN
023399,001950: 33,6353 01505 YNB # ( =YSC)
023400,001951: 33,6354 26403 KR(TVC) # TVC ROLL CONTROL GAIN
023401,001952: 33,6355 00004 3
023402,001953: 33,6356 12402 CDUDRVE2 # SUBENTRY OF CDUDRIVE
023403,001954:
023404,001955: 33,6357 77576 ROLLEXIT EXIT 0
023405,001956:
023406,001957: 33,6360 40646 CS FLAGWRD1 # TEST IF STEER FLAG SET BEFORE SETTING
023407,001958: 33,6361 74513 MASK BIT4 # BURN MAJOR MODE
023408,001959: 33,6362 10000 CCS A
023409,001960: 33,6363 02124 TC ENDOFJOB
023410,001961:
023411,001962: 33,6364 34512 CAF BIT5 # TEST IF BURN SWITCH IS SET TO SPS2
023412,001963: 33,6365 70647 MASK FLAGWRD2
023413,001964: 33,6366 10000 CCS A
023414,001965: 33,6367 06377 TC SPS2MODE # IT IS
023415,001966:
023416,001967: 33,6370 40647 CS FLAGWRD2 # TEST IF BURN IS SPS1
023417,001968: 33,6371 74513 MASK BIT4
023418,001969: 33,6372 10000 CCS A
![]() |
Page 597 |
023420,001971: 33,6373 02124 TC ENDOFJOB # IT IS NOT
023421,001972:
023422,001973: 33,6374 02362 TC NEWMODE # SET MAJOR MODE TO SPS1
023423,001974: 33,6375 00041 OCT 00041
023424,001975: 33,6376 02124 TC ENDOFJOB
023425,001976:
023426,001977: 33,6377 02362 SPS2MODE TC NEWMODE # SET MAJOR MODE TO SPS2
023427,001978: 33,6400 00042 OCT 00042
023428,001979:
023429,001980: 33,6401 02124 TC ENDOFJOB
023430,001981:
023431,001982: 33,6402 00516 07363 KR(TVC) 2DEC 0.0204 # ROLL GAIN =0.05, DT =5.0 SECS
023432,001983:
![]() |
Page 598 |
023434,001985:
023435,001986: # THIS ROUTINE CONTROLS THE USE OF CALCMANU IN COMPUTING, TIMING AND PERFORMING THE SEQUENCE OF MANEUVERS DURING
023436,001987: # A LARGE ATTITUDE MANEUVER. FLIGHT 501 INVOLVES SUCH A MANEUVER WHEN ORIENTING TO
023437,001988: # 1. ABORT BURN INITIAL ATTITUDE AFTER A TUMBLE ARREST
023438,001989: # 2. NOMINAL FIRST BURN INITIAL ATTITUDE
023439,001990: # 3. LOCAL VERTICAL AFTER NOMINAL FIRST BURN
023440,001991: # 4. NOMINAL SECOND BURN INITIAL ATTITUDE
023441,001992: # 5. SM/CM SEPARATION ATTITUDE
023442,001993: # 6. CM PRE-ENTRY ATTITUDE
023443,001994:
023444,001995:
023445,001996:
023446,001997: 33,6404 05654 ATTIJOB TC BANKCALL
023447,001998: 33,6405 30223 CADR IMUATTC
023448,001999:
023449,002000: 33,6406 03516 TC SETHETAD
023450,002001:
023451,002002: 33,6407 05654 TC BANKCALL
023452,002003: 33,6410 30331 CADR IMUSTALL
023453,002004: 33,6411 03066 TC CURTAINS
023454,002005:
023455,002006: 33,6412 04000 TC INTPRET
023456,002007:
023457,002008: 33,6413 76776 ATTIJOB1 ITC 0
023458,002009: 33,6414 26500 GETMANU
023459,002010:
023460,002011: 33,6415 77576 EXIT 0
023461,002012:
023462,002013: 33,6416 20017 INHINT
023463,002014: 33,6417 34516 CAF 0.01SEC
023464,002015: 33,6420 02173 TC WAITLIST
023465,002016: 33,6421 66525 CADR DOMANU
023466,002017:
023467,002018: 33,6422 02124 TC ENDOFJOB
023468,002019:
023469,002020:
023470,002021:
023471,002022: 33,6423 04000 ATTIJOB2 TC INTPRET
023472,002023:
023473,002024: 33,6424 76776 ITC 0
023474,002025: 33,6425 26500 GETMANU
023475,002026:
023476,002027: 33,6426 77576 EXIT 0
023477,002028: 33,6427 02124 TC ENDOFJOB
023478,002029:
023479,002030:
023480,002031:
023481,002032: 33,6430 47576 SNAPOUT NOLOD 0
023482,002033: 33,6431 32701 STORE THETAD
023483,002034:
023484,002035: 33,6432 43575 TEST 1 # TEST IF SHTDN FLAG SET (I.E. HAS FREE-
![]() |
Page 599 |
023486,002037: 33,6433 43575 TEST EXIT # FALL INTERUPT OCCURRED)
023487,002038: 33,6434 00025 SHTDNFLG
023488,002039: 33,6435 26447 JUMP7
023489,002040: 33,6436 00043 CDUXFLAG # TEST IF CDUXFLAG SET (I.E. HAS CM/SM
023490,002041: 33,6437 26473 ENDMANU # SEPARATION OCCURRED)
023491,002042:
023492,002043: 33,6440 03416 TC FLAG1UP # SET ENTRY FLAG
023493,002044: 33,6441 00004 OCT 00004
023494,002045:
023495,002046: 33,6442 44516 CS ONE
023496,002047: 33,6443 02312 TC NEWPHASE
023497,002048: 33,6444 00003 OCT 00003
023498,002049:
023499,002050: 33,6445 02124 TC ENDOFJOB
023500,002051:
023501,002052: 33,6446 43575 JUMP7 TEST 1
023502,002053: 33,6447 77576 EXIT
023503,002054: 33,6450 00022 COASTFLG
023504,002055: 33,6451 26460 JUMP6
023505,002056:
023506,002057: 33,6452 03416 TC FLAG1UP # SET SOAK FLAG FOR BEGINNING OF CONTROL
023507,002058: 33,6453 10000 OCT 10000 # AT COLD SOAK ATTITUDE
023508,002059:
023509,002060: 33,6454 02362 TC NEWMODE
023510,002061: 33,6455 00022 OCT 00022
023511,002062:
023512,002063: 33,6456 06473 TC ENDMANU +1
023513,002064:
023514,002065: 33,6457 43576 JUMP6 TEST 0
023515,002066: 33,6460 00056 TABTFLAG
023516,002067: 33,6461 26473 ENDMANU
023517,002068:
023518,002069: 33,6462 77576 EXIT 0
023519,002070:
023520,002071: 33,6463 20017 INHINT
023521,002072: 33,6464 34516 CAF 0.01SEC
023522,002073: 33,6465 02173 TC WAITLIST
023523,002074: 33,6466 64527 CADR ATTCNOFF
023524,002075:
023525,002076: 33,6467 35503 CAF TWO # SET VGCNTR FOR THREE PASSES THROUGH
023526,002077: 33,6470 51446 TS VGCNTR # CALCVGB BEFORE STARTING ABORT STEERING
023527,002078:
023528,002079: 33,6471 06473 TC ENDMANU +1
023529,002080:
023530,002081: 33,6472 77576 ENDMANU EXIT 0
023531,002082:
023532,002083: 33,6473 44516 CS ONE
023533,002084: 33,6474 02312 TC NEWPHASE
023534,002085: 33,6475 00002 OCT 2
![]() |
Page 600 |
023536,002087: 33,6476 02124 TC ENDOFJOB
023537,002088:
![]() |
Page 601 |
023539,002090:
023540,002091: 33,6477 45575 GETMANU ITA 1
023541,002092: 33,6500 76776 ITC
023542,002093: 33,6501 01475 EXITCAD1
023543,002094: 33,6502 14001 CALCMANU
023544,002095:
023545,002096: 33,6503 43576 TEST 0
023546,002097: 33,6504 00046 CALCFLAG
023547,002098: 33,6505 26431 SNAPOUT
023548,002099:
023549,002100: 33,6506 53574 AXC,1 2
023550,002101: 33,6507 43455 TEST AXC,1
023551,002102: 33,6510 43455 TEST AXC,1
023552,002103: 33,6511 00001 0
023553,002104: 33,6512 00045 ROLLFLAG
023554,002105: 33,6513 26521 SETDTH
023555,002106: 33,6514 00003 2
023556,002107: 33,6515 00043 CDUXFLAG
023557,002108: 33,6516 26521 SETDTH
023558,002109: 33,6517 00005 4
023559,002110:
023560,002111: 33,6520 44176 SETDTH DMOVE* 0
023561,002112: 33,6521 33461 DTH,1
023562,002113: 33,6522 33453 STORE DTHETA
023563,002114:
023564,002115: 33,6523 44576 ITCI 0
023565,002116: 33,6524 01475 EXITCAD1
023566,002117:
023567,002118:
023568,002119:
023569,002120: 33,6525 4516 0.01SEC EQUALS BIT1
023570,002121:
![]() |
Page 602 |
023572,002123:
023573,002124: 33,6525 03440 DOMANU TC FLAG2UP # SET DOMANU FLAG
023574,002125: 33,6526 01000 DOMANMSK OCT 01000
023575,002126:
023576,002127: 33,6527 40647 DOMANU1 CS FLAGWRD2 # KILL DOMANU IF CALC FLAG NOT SET
023577,002128: 33,6530 74504 MASK BIT11 # (CALCMASK)
023578,002129: 33,6531 10000 CCS A
023579,002130: 33,6532 06552 TC DOMANOFF
023580,002131:
023581,002132: 33,6533 36526 CAF DOMANMSK # TEST IF DOMAN FLAG SET
023582,002133: 33,6534 70647 MASK FLAGWRD2
023583,002134: 33,6535 10000 CCS A
023584,002135: 33,6536 06543 TC SETMANU # IT IS
023585,002136:
023586,002137: 33,6537 36556 CAF TPAD +1 # IT IS NOT. START NEXT MANEUVER IN TPAD
023587,002138: 33,6540 02173 TC WAITLIST # SECS
023588,002139: 33,6541 66525 CADR DOMANU
023589,002140:
023590,002141: 33,6542 02256 TC TASKOVER
023591,002142:
023592,002143: 33,6543 32156 SETMANU CAF PRIO23 # ESTABLISH MANUJOB
023593,002144: 33,6544 02046 TC FINDVAC
023594,002145: 33,6545 66560 CADR MANUJOB
023595,002146:
023596,002147: 33,6546 36557 CAF 0.5SEC # RECALL DOMANU1 IN 0.5 SECS
023597,002148: 33,6547 02173 TC WAITLIST
023598,002149: 33,6550 66527 CADR DOMANU1
023599,002150:
023600,002151: 33,6551 02256 TC TASKOVER
023601,002152:
023602,002153: 33,6552 03452 DOMANOFF TC FLAG2DWN # REMOVE DOMANU FLAG
023603,002154: 33,6553 01000 OCT 01000
023604,002155:
023605,002156: 33,6554 02256 TC TASKOVER
023606,002157:
023607,002158:
023608,002159:
023609,002160: 33,6555 00000 TPAD DEC 0.0
023610,002161: 33,6556 00764 5SEC DEC 500 B-14
023611,002162: 33,6557 00062 0.5SEC DEC 50 B-14
023612,002163:
023613,002164:
023614,002165:
023615,002166: 33,6560 04000 MANUJOB TC INTPRET
023616,002167:
023617,002168: 33,6561 66775 DSU 1 # TEST IF THETAMAN LESS THAN DTHETA.
023618,002169: 33,6562 43633 BPL COMP
023619,002170: 33,6563 01453 DTHETA
023620,002171: 33,6564 01455 THETAMAN
023621,002172: 33,6565 26572 JUMP4 # IT IS. STORE REMAINING THETAMAN
023622,002173: 33,6566 33455 STORE THETAMAN
![]() |
Page 603 |
023624,002175: 33,6567 76776 ITC 0
023625,002176: 33,6570 26601 DRIVECDU
023626,002177:
023627,002178: 33,6571 45176 JUMP4 DMOVE 0 # STORE REMAINING THETAMAN IN DTHETA
023628,002179: 33,6572 01455 THETAMAN
023629,002180: 33,6573 33453 STORE DTHETA
023630,002181:
023631,002182: 33,6574 77576 EXIT 0
023632,002183:
023633,002184: 33,6575 03452 TC FLAG2DWN # REMOVE DOMAN FLAG
023634,002185: 33,6576 01000 OCT 01000
023635,002186:
023636,002187: 33,6577 04000 TC INTPRET
023637,002188:
023638,002189: 33,6600 75775 DRIVECDU VXSC 1 # FORM INCREMENTAL MANEUVER VECTOR
023639,002190: 33,6601 44772 VSLT ITC
023640,002191: 33,6602 01323 WC
023641,002192: 33,6603 01453 DTHETA
023642,002193: 33,6604 00002 1
023643,002194: 33,6605 12375 CDUDRIVE
023644,002195:
023645,002196: 33,6606 43576 TEST 0 # TEST IF DOMAN FLAG SET
023646,002197: 33,6607 00047 DOMANFLG
023647,002198: 33,6610 26614 NEXTMAN # IT IS NOT. GET NEXT MANEUVER
023648,002199:
023649,002200: 33,6611 77576 EXIT 0
023650,002201: 33,6612 02124 TC ENDOFJOB
023651,002202:
023652,002203: 33,6613 77576 NEXTMAN EXIT 0
023653,002204:
023654,002205: 33,6614 20017 INHINT
023655,002206: 33,6615 32146 CAF PRIO12 # ESTABLISH ATTIJOB2 TO COMPUTE NEXT MAN.
023656,002207: 33,6616 02046 TC FINDVAC
023657,002208: 33,6617 66423 CADR ATTIJOB2
023658,002209:
023659,002210: 33,6620 02124 TC ENDOFJOB
023660,002211:
![]() |
Page 604 |
023662,002213:
023663,002214: 33,6621 02362 SOAKINIT TC NEWMODE # SET MAJOR MODE TO MANEUVER TO COLDSOAK
023664,002215: 33,6622 00021 OCT 00021
023665,002216:
023666,002217: 33,6623 04000 TC INTPRET
023667,002218:
023668,002219: 33,6624 43176 SMOVE 0
023669,002220: 33,6625 01676 ANGLEZ # COLDSOAK - Z GIMBAL ANGLE
023670,002221:
023671,002222: 33,6626 43176 SMOVE 0
023672,002223: 33,6627 01675 ANGLEY # COLDSOAK - Y GIMBAL ANGLE
023673,002224:
023674,002225: 33,6630 43175 SMOVE 1
023675,002226: 33,6631 41033 VDEF COMP
023676,002227: 33,6632 01674 ANGLEX # COLDSOAK - X GIMBAL ANGLE
023677,002228: 33,6633 33315 STORE CDUTEMP
023678,002229:
023679,002230: 33,6634 75575 AXT,1 1
023680,002231: 33,6635 76776 ITC
023681,002232: 33,6636 00007 6
023682,002233: 33,6637 12041 SINCOS
023683,002234:
023684,002235: 33,6640 76776 ITC 0
023685,002236: 33,6641 12110 CALCSMNB # NAV BASE IN SM COORDINATES
023686,002237:
023687,002238: 33,6642 76776 ITC 0
023688,002239: 33,6643 12213 CALCNBSC # SC IN SM COORDINATES
023689,002240:
023690,002241: 33,6644 75176 VMOVE 0
023691,002242: 33,6645 01367 XSC
023692,002243: 33,6646 33411 STORE XSCD
023693,002244:
023694,002245: 33,6647 75176 VMOVE 0
023695,002246: 33,6650 01375 YSC
023696,002247: 33,6651 33417 STORE YSCD
023697,002248:
023698,002249: 33,6652 75176 VMOVE 0
023699,002250: 33,6653 01403 ZSC
023700,002251: 33,6654 33425 STORE ZSCD
023701,002252:
023702,002253: 33,6655 76776 ITC 0 # BRANCH TO DO MANEUVER
023703,002254: 33,6656 26414 ATTIJOB1
023704,002255:
![]() |
Page 605 |
023706,002257:
023707,002258: 33,6657 45501 SOAKTASK CS ZERO # COME HERE FIRST TIME ONLY. CLEAR OUT
023708,002259: 33,6660 51001 TS DELV # DELV FOR FREE-FALL COMPUTATIONS
023709,002260: 33,6661 51002 TS DELV +1
023710,002261: 33,6662 51003 TS DELV +2
023711,002262: 33,6663 51004 TS DELV +3
023712,002263: 33,6664 51005 TS DELV +4
023713,002264: 33,6665 51006 TS DELV +5
023714,002265:
023715,002266: 33,6666 34500 SOAKTSK1 CAF BIT15 # TEST IF COAST FLAG SET
023716,002267: 33,6667 70646 MASK FLAGWRD1
023717,002268: 33,6670 10000 CCS A
023718,002269: 33,6671 03062 TC CCSHOLE
023719,002270: 33,6672 02256 TC TASKOVER
023720,002271:
023721,002272: 33,6673 35362 CAF SEVEN
023722,002273: 33,6674 02312 TC NEWPHASE
023723,002274: 33,6675 00005 OCT 0005
023724,002275:
023725,002276: 33,6676 40036 REDO5.7 CS TIME1
023726,002277: 33,6677 50667 TS TBASE5
023727,002278:
023728,002279: 33,6700 34513 CAF EIGHT
023729,002280: 33,6701 02312 TC NEWPHASE
023730,002281: 33,6702 00005 OCT 00005
023731,002282:
023732,002283: 33,6703 36712 CAF 2SEC33
023733,002284: 33,6704 02173 TC WAITLIST
023734,002285: 33,6705 66666 CADR SOAKTSK1
023735,002286:
023736,002287: 33,6706 32147 CAF PRIO13
023737,002288: 33,6707 02046 TC FINDVAC
023738,002289: 33,6710 66713 CADR SOAKJOB
023739,002290:
023740,002291: 33,6711 02256 TC TASKOVER
023741,002292:
023742,002293: 33,6712 00310 2SEC33 DEC 200 B-14
023743,002294:
![]() |
Page 606 |
023745,002296:
023746,002297: 33,6713 40646 SOAKJOB CS FLAGWRD1 # TEST SOAKFLAG
023747,002298: 33,6714 74502 MASK BIT13
023748,002299: 33,6715 10000 CCS A
023749,002300: 33,6716 07030 TC SOAKEXIT # SOAKFLAG OFF
023750,002301: 33,6717 04000 TC INTPRET # SOAKFLAG ON
023751,002302:
023752,002303: 33,6720 45176 DMOVE 0 # SET DELTAT TO 4 SECS FOR ORBITAL INT.
023753,002304: 33,6721 27036 DT4SEC
023754,002305: 33,6722 33030 STORE DELTAT
023755,002306:
023756,002307: 33,6723 75176 VMOVE 0 # SAVE VRECT AND RRECT IN CASE OF RESTARTS
023757,002308: 33,6724 01101 RRECT
023758,002309: 33,6725 33656 STORE RRECCMEM
023759,002310:
023760,002311: 33,6726 75176 VMOVE 0
023761,002312: 33,6727 01107 VRECT
023762,002313: 33,6730 33664 STORE VRECCMEM
023763,002314:
023764,002315: 33,6731 77576 EXIT 0
023765,002316: 33,6732 02276 TC PHASCHNG
023766,002317: 33,6733 01205 OCT 01205
023767,002318:
023768,002319: 33,6734 03430 REDO5.10 TC FLAG1DWN # REMOVE COAST, SOAK FLAGS
023769,002320: 33,6735 50000 OCT 50000
023770,002321:
023771,002322: 33,6736 04000 TC INTPRET
023772,002323:
023773,002324: 33,6737 75176 VMOVE 0 # RESTORE RRECT AND VRECT FROM CMEMORY.
023774,002325: 33,6740 01656 RRECCMEM
023775,002326: 33,6741 33101 STORE RRECT
023776,002327:
023777,002328: 33,6742 75176 VMOVE 0
023778,002329: 33,6743 01664 VRECCMEM
023779,002330: 33,6744 33107 STORE VRECT
023780,002331:
023781,002332: 33,6745 76776 ITC 0 # BRANCH TO DO ORBITAL INTEGRATION
023782,002333: 33,6746 20001 AVETOMD1
023783,002334:
023784,002335: 33,6747 75175 VMOVE 1
023785,002336: 33,6750 44776 VSLT
023786,002337: 33,6751 01231 RIG-4SEC
023787,002338: 33,6752 00002 RSCALE -15D
023788,002339: 33,6753 32766 STORE RN # SET RN TO 4 SECS BEFORE IGNITION
023789,002340:
023790,002341: 33,6754 76575 RTB 1
023791,002342: 33,6755 76776 ITC
023792,002343: 33,6756 20265 FRESHPD
023793,002344: 33,6757 21643 CALCGRAV
023794,002345:
023795,002346: 33,6760 75176 VMOVE 0
![]() |
Page 607 |
023797,002348: 33,6761 01107 VIGNTION
023798,002349: 33,6762 32774 STORE VN # SET VN AT IGNITION
023799,002350:
023800,002351: 33,6763 75575 AXT,1 1 # GET VR AT 4 SECS BEFORE IGNITION
023801,002352: 33,6764 67572 SXA,1 ITC
023802,002353: 33,6765 12462 501SPS2
023803,002354: 33,6766 01471 VRCADR
023804,002355: 33,6767 12421 CALCVGB
023805,002356:
023806,002357: 33,6770 75175 VMOVE 1
023807,002358: 33,6771 44776 VSLT
023808,002359: 33,6772 01101 RIGNTION
023809,002360: 33,6773 00002 RSCALE -15D
023810,002361: 33,6774 32766 STORE RN # SET RN AT IGNITION
023811,002362:
023812,002363: 33,6775 76776 ITC 0
023813,002364: 33,6776 21643 CALCGRAV
023814,002365:
023815,002366: 33,6777 76776 ITC 0
023816,002367: 33,7000 12421 CALCVGB # GET VR AT IGNITION. COMPUTE CBDT
023817,002368:
023818,002369: 33,7001 76776 ITC 0
023819,002370: 33,7002 26256 BURNINIT # INITIALISE BURN
023820,002371:
023821,002372: 33,7003 45176 DMOVE 0
023822,002373: 33,7004 27034 DT2SEC
023823,002374: 33,7005 33030 STORE DELTAT # RESTORE DELTAT TO 2 SECS FOR SPS2
023824,002375:
023825,002376: 33,7006 75176 VMOVE 0
023826,002377: 33,7007 01223 VAVEGON
023827,002378: 33,7010 32774 STORE VN # INITIALISE CALCRVG FOR TURN-ON
023828,002379:
023829,002380: 33,7011 75175 VMOVE 1
023830,002381: 33,7012 44776 VSLT
023831,002382: 33,7013 01215 RAVEGON
023832,002383: 33,7014 00002 RSCALE -15D
023833,002384: 33,7015 32766 STORE RN
023834,002385:
023835,002386: 33,7016 76776 ITC 0
023836,002387: 33,7017 21643 CALCGRAV
023837,002388:
023838,002389: 33,7020 77576 EXIT 0
023839,002390:
023840,002391: 33,7021 34516 CAF ONE # SET VGCNTR FOR TWO PASSES THRU CALCVGB
023841,002392: 33,7022 51446 TS VGCNTR # BEFORE SPS2 STEERING
023842,002393:
023843,002394: 33,7023 02362 TC NEWMODE # SET MAJOR MODE TO READY FOR R,V,T UPDATE
023844,002395: 33,7024 00024 OCT 00024
023845,002396:
023846,002397: 33,7025 02276 TC PHASCHNG # CHANGE PHASE TO 5.20 TO ENABLE V76 RST.
![]() |
Page 608 |
023848,002399: 33,7026 02405 OCT 02405
023849,002400:
023850,002401: 33,7027 02124 TC ENDOFJOB
023851,002402:
023852,002403: 33,7030 02276 SOAKEXIT TC PHASCHNG
023853,002404: 33,7031 01305 OCT 01305
023854,002405:
023855,002406: 33,7032 02124 TC ENDOFJOB
023856,002407:
023857,002408: 33,7033 14400 00000 DT2SEC 2DEC 200 B-9
023858,002409: 33,7035 31000 00000 DT4SEC 2DEC 400 B-9
023859,002410: 24,6201 BANK 24
023860,002411:
![]() |
Page 609 |
023862,002413:
023863,002414: # UPTASK AND UPJOB OCCUR 120 SECS BEFORE PLUSX2 AND INCORPORATE STATE VECTOR UPDATES VIA VERB 76
023864,002415:
023865,002416: 24,6201 36352 UPTASK CAF 10SEC24 # SCHEDULE FDAI ALIGN OFF IN 10 SECS
023866,002417: 24,6202 02173 TC WAITLIST
023867,002418: 24,6203 50327 CADR FDAIOFF2
023868,002419:
023869,002420: 24,6204 03373 TC RELAYON # SET SCS FDAI ALIGN DISCRETE (C31)
023870,002421: 24,6205 40400 OCT 40400
023871,002422:
023872,002423: 24,6206 34373 CAF PRIO6 # ESTABLISH UPJOB
023873,002424: 24,6207 02046 TC FINDVAC
023874,002425: 24,6210 50225 CADR UPJOB
023875,002426:
023876,002427: 24,6211 35362 CAF SEVEN
023877,002428: 24,6212 02312 TC NEWPHASE
023878,002429: 24,6213 00004 OCT 00004
023879,002430:
023880,002431: 24,6214 40036 CS TIME1
023881,002432: 24,6215 50666 TS TBASE4
023882,002433:
023883,002434: 24,6216 44516 CS ONE # REMOVE UPDATE RESTART CAPABILITY
023884,002435: 24,6217 02312 TC NEWPHASE
023885,002436: 24,6220 00005 OCT 5
023886,002437:
023887,002438: 24,6221 34513 CAF EIGHT
023888,002439: 24,6222 02312 TC NEWPHASE
023889,002440: 24,6223 00004 OCT 00004
023890,002441:
023891,002442: 24,6224 02256 TC TASKOVER
023892,002443:
023893,002444: 24,6225 02362 UPJOB TC NEWMODE # REVERT TO ATTITUDE HOLD WITH NO V76.
023894,002445: 24,6226 00022 OCT 22
023895,002446:
023896,002447: 24,6227 32566 CAF LDNLST1 # REVERT BACK TO DOWNLIST 1.
023897,002448: 24,6230 50672 TS DNLSTADR
023898,002449:
023899,002450: 24,6231 04000 TC INTPRET
023900,002451:
023901,002452: 24,6232 43574 TEST 2 # NO FURTHER ACTION IF NO V76 COMPLETED.
023902,002453: 24,6233 70742 DAD DAD # IF SO, FORM DT FOR FINAL INTEGRATION.
023903,002454: 24,6234 66776 DSU
023904,002455: 24,6235 00023 UPDATFLG
023905,002456: 24,6236 10310 NOSTATE
023906,002457: 24,6237 01463 TCUTOFF
023907,002458: 24,6240 01557 TCOAST
023908,002459: 24,6241 10351 DP120SEC
023909,002460: 24,6242 01115 STBUFF +12D
023910,002461: 24,6243 33211 STORE TAVEGON
023911,002462:
023912,002463: 24,6244 52775 MXV 1
![]() |
Page 610 |
023914,002465: 24,6245 44776 VSLT
023915,002466: 24,6246 01101 RRECT
023916,002467: 24,6247 01052 REFSMMAT
023917,002468: 24,6250 00002 1 # THIS ASSUMES THAT UPDATE SCALED 2(26)M
023918,002469: 24,6251 33656 STORE RRECCMEM
023919,002470:
023920,002471: 24,6252 52775 MXV 1
023921,002472: 24,6253 44776 VSLT
023922,002473: 24,6254 01107 VRECT
023923,002474: 24,6255 01052 REFSMMAT
023924,002475: 24,6256 00002 1 # THIS ASSUMES THAT UPDATE SCALED 2(7)M/CS
023925,002476: 24,6257 33664 STORE VRECCMEM
023926,002477:
023927,002478: 24,6260 77576 EXIT 0
023928,002479: 24,6261 02276 TC PHASCHNG
023929,002480: 24,6262 03504 OCT 03504
023930,002481:
023931,002482: 24,6263 04000 REDO4.29 TC INTPRET
023932,002483: 24,6264 75176 VMOVE 0
023933,002484: 24,6265 01656 RRECCMEM
023934,002485: 24,6266 33101 STORE RRECT
023935,002486:
023936,002487: 24,6267 75176 VMOVE 0
023937,002488: 24,6270 01664 VRECCMEM
023938,002489: 24,6271 33107 STORE VRECT
023939,002490:
023940,002491: 24,6272 76776 ITC 0
023941,002492: 24,6273 20010 AVETOMD2
023942,002493:
023943,002494: 24,6274 75176 VMOVE 0 # LEAVE RAVEGON, VAVEGON IN RN, VN.
023944,002495: 24,6275 01223 VAVEGON
023945,002496: 24,6276 32774 STORE VN
023946,002497:
023947,002498: 24,6277 44776 VSLT 0
023948,002499: 24,6300 01215 RAVEGON
023949,002500: 24,6301 00002 RSCALE -15D
023950,002501: 24,6302 32766 STORE RN
023951,002502:
023952,002503: 24,6303 76575 RTB 1
023953,002504: 24,6304 76776 ITC
023954,002505: 24,6305 20265 FRESHPD
023955,002506: 24,6306 21643 CALCGRAV
023956,002507:
023957,002508: 24,6307 76776 NOSTATE ITC 0 # GO GET TFF
023958,002509: 24,6310 22001 CALCTFF
023959,002510:
023960,002511: 24,6311 66775 DSU 1 # SEE IF TFF IS TOO HIGH
023961,002512: 24,6312 43775 BPL EXIT
023962,002513: 24,6313 01457 TFF
023963,002514: 24,6314 10356 TFFLIMIT
![]() |
Page 611 |
023965,002516: 24,6315 10324 TFF2DOWN # YES
023966,002517:
023967,002518: 24,6316 02362 SETMM23 TC NEWMODE # HOLD ATTITUDE AFTER ORBITAL INTEGRATION
023968,002519: 24,6317 00023 OCT 23
023969,002520:
023970,002521: 24,6320 02276 TC PHASCHNG
023971,002522: 24,6321 01104 OCT 01104
023972,002523:
023973,002524: 24,6322 03151 REDO4.9 TC JAMTERM # FLUSH OUT V76 IF STILL IN PINBALL
023974,002525:
023975,002526:
023976,002527:
023977,002528: 24,6323 77576 TFF2DOWN EXIT 0
023978,002529: 24,6324 03474 TC STATEDWN # RESET TFF2 FLAG
023979,002530: 24,6325 10000 OCT 10000
023980,002531: 24,6326 06316 TC SETMM23
023981,002532:
023982,002533:
023983,002534:
023984,002535: 24,6327 03405 FDAIOFF2 TC RELAYOFF # REMOVE SCS FDAI ALIGN DISCRETE (C31)
023985,002536: 24,6330 40400 OCT 40400
023986,002537:
023987,002538: 24,6331 36353 CAF 105SEC
023988,002539: 24,6332 02173 TC WAITLIST
023989,002540: 24,6333 50335 CADR PREAVGON
023990,002541:
023991,002542: 24,6334 02256 TC TASKOVER
023992,002543:
023993,002544:
023994,002545:
023995,002546: 24,6335 36354 PREAVGON CAF 5SEC24
023996,002547: 24,6336 02173 TC WAITLIST
023997,002548: 24,6337 50357 CADR AVGON
023998,002549:
023999,002550: 24,6340 03405 TC RELAYOFF # BACK-UP FDAI ALIGN OFF IN CASE OF
024000,002551: 24,6341 40400 OCT 40400 # RESTARTS
024001,002552:
024002,002553: 24,6342 03430 TC FLAG1DWN # REMOVE UPDAT FLAG TO KILL ORB. INTEGR.
024003,002554: 24,6343 20000 OCT 20000
024004,002555:
024005,002556: 24,6344 33553 CAF TWENTY7
024006,002557: 24,6345 02312 TC NEWPHASE
024007,002558: 24,6346 00004 OCT 4
024008,002559:
024009,002560: 24,6347 02256 TC TASKOVER
024010,002561:
024011,002562: 24,6350 00000 27340 DP120SEC 2DEC 12000 B-28
024012,002563: 24,6352 01750 10SEC24 DEC 1000 B-14
024013,002564: 24,6353 24404 105SEC DEC 10500 B-14
![]() |
Page 612 |
024015,002566: 24,6354 00764 5SEC24 DEC 500 B-14
024016,002567: 24,6355 34631 23146 TFFLIMIT 2DEC .9 # JUST SO ITS HIGH
024017,002568:
![]() |
Page 613 |
024019,002570:
024020,002571: # SHUTDOWN IS A CLOSED SUBROUTINE WHICH IS ENTERED PRIOR TO CM/SM SEPARATION. ITS PURPOSE IS TO CLOSE OUT ALL SCS
024021,002572: # FUNCTIONS NOT CONCERNED WITH SEPARATION AND ENTRY, AND TO INITIATE THOSE THAT ARE
024022,002573:
024023,002574: 33,7037 BANK 33
024024,002575:
024025,002576: 33,7037 20017 SHUTDOWN INHINT
024026,002577: 33,7040 32162 CAF PRIO27 # ESTABLISH HIGH PRIO JOB TO DO SHUTDOWN
024027,002578: 33,7041 02052 TC NOVAC
024028,002579: 33,7042 11147 CADR ENEMA # CLEANS OUT EXEC AND WAITLIST.
024029,002580: 33,7043 20016 RELINT
024030,002581:
024031,002582: 33,7044 34516 CAF ONE # EFFECTIVELY STOP ANY WAITLIST ACTIVITY
024032,002583: 33,7045 50037 TS TIME3
024033,002584:
024034,002585: 33,7046 44516 CS ONE
024035,002586: 33,7047 02312 TC NEWPHASE
024036,002587: 33,7050 00004 OCT 00004
024037,002588:
024038,002589: 33,7051 44516 CS ONE
024039,002590: 33,7052 02312 TC NEWPHASE
024040,002591: 33,7053 00002 OCT 00002
024041,002592:
024042,002593: 33,7054 33232 CAF TEN
024043,002594: 33,7055 02312 TC NEWPHASE
024044,002595: 33,7056 00003 OCT 00003
024045,002596:
024046,002597: 33,7057 05702 TC SWRETURN # (LOCATION OF TC Q)
024047,002598:
024048,002599:
024049,002600:
024050,002601: 33,7060 20017 SHUTJOB INHINT
024051,002602: 33,7061 44502 CS BIT13 # SHUT OFF ENGINE BIT
024052,002603: 33,7062 70011 MASK OUT1
024053,002604: 33,7063 50011 TS OUT1
024054,002605:
024055,002606: 33,7064 03405 TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE
024056,002607: 33,7065 40020 OCT 40020
024057,002608:
024058,002609: 33,7066 03430 TC FLAG1DWN # REMOVE DVMON, STEER, INIT FLAGS
024059,002610: 33,7067 00430 OCT 00430
024060,002611:
024061,002612: 33,7070 05654 TC BANKCALL # SET IMUCDU TO ATT. CONTROL (MAY BE RE-
024062,002613: 33,7071 30223 CADR IMUATTC # DUNDANT CALL)
024063,002614:
024064,002615: 33,7072 03516 TC SETHETAD # FORCE THETAD, +1, +2 TO READ CDUX,Y,Z
024065,002616:
024066,002617: 33,7073 36254 CAF ALLABORT # TEST IF ANY ABORT BURN SET
024067,002618: 33,7074 70647 MASK FLAGWRD2
![]() |
Page 614 |
024069,002620: 33,7075 10000 CCS A
024070,002621: 33,7076 07101 TC +3 # IT IS
024071,002622:
024072,002623: 33,7077 03504 TC SETBRNSW # IT IS NOT. SET BURN TO LAST (SPS4)
024073,002624: 33,7100 00100 OCT 00100
024074,002625:
024075,002626: 33,7101 05654 TC BANKCALL # WAIT FOR MODE SWITCH TO COMPLETE
024076,002627: 33,7102 30331 CADR IMUSTALL
024077,002628: 33,7103 03066 TC CURTAINS # CATCH-ALL FOR MODE SWITCH FAILURES
024078,002629:
024079,002630: 33,7104 40036 CS TIME1
024080,002631: 33,7105 50665 TS TBASE3
024081,002632:
024082,002633: 33,7106 34505 CAF BIT10 # TEST IF INTP FLAG SET (I.E. HAS 95 SEC
024083,002634: 33,7107 70646 MASK FLAGWRD1 # INTERUPT OCCURRED)
024084,002635: 33,7110 10000 CCS A
024085,002636: 33,7111 07116 TC TESTGMP # IT HAS NOT
024086,002637:
024087,002638: 33,7112 34510 CAF BIT7 # TEST IF INT1 FLAG SET (I.E. HAS 200 SEC
024088,002639: 33,7113 70646 MASK FLAGWRD1 # INTEREUPT OCCURRED)
024089,002640: 33,7114 10000 CCS A
024090,002641: 33,7115 07126 TC SHUTJOB1 # IT HAS
024091,002642:
024092,002643: 33,7116 34507 TESTGMP CAF BIT8 # TEST IF SCS GMP DISCRETE SET
024093,002644: 33,7117 70725 MASK DSPTAB +13D
024094,002645: 33,7120 10000 CCS A
024095,002646: 33,7121 07147 TC GMPOFF1 # IF IT IS, TURN IT OFF
024096,002647:
024097,002648: 33,7122 34515 CAF BIT2 # TEST IF DV MODE SET
024098,002649: 33,7123 70725 MASK DSPTAB +13D
024099,002650: 33,7124 10000 CCS A
024100,002651: 33,7125 07156 TC DVMODOF1 # IF IT IS, TURN IT OFF
024101,002652:
024102,002653: 33,7126 40646 SHUTJOB1 CS FLAGWRD1 # TEST IF SHUTDN FLAG SET
024103,002654: 33,7127 74503 MASK BIT12
024104,002655: 33,7130 10000 CCS A
024105,002656: 33,7131 07215 TC SETATTC # IT IS NOT. SHUTDOWN NOT DUE TO TFF
024106,002657:
024107,002658: 33,7132 34505 CAF BIT10 # TEST IF THIS IS 200 OR 95 SEC INTERRUPT
024108,002659: 33,7133 70646 MASK FLAGWRD1 # (INTP FLAG)
024109,002660: 33,7134 10000 CCS A
024110,002661: 33,7135 07211 TC SETSEP # 200 SEC INTERRUPT
024111,002662:
024112,002663: 33,7136 03452 KILLMANU TC FLAG2DWN # REMOVE CALC FLAG (KILL ANY MANEUVER)
024113,002664: 33,7137 02000 OCT 02000
024114,002665:
024115,002666: 33,7140 20017 INHINT # ALLOW 5 SECS FOR CSM TO SETTLE FROM ANY
024116,002667: 33,7141 36556 CAF 5SEC # ATTITUDE MANEUVER BEFORE SEPARATING
024117,002668: 33,7142 02173 TC WAITLIST
024118,002669: 33,7143 67260 CADR CDUXTASK
![]() |
Page 615 |
024120,002671: 33,7144 02276 TC PHASCHNG
024121,002672: 33,7145 01303 OCT 01303
024122,002673:
024123,002674: 33,7146 02124 TC ENDOFJOB
024124,002675:
024125,002676: 33,7147 20017 GMPOFF1 INHINT
024126,002677: 33,7150 36712 CAF 2SEC33 # CALL FOR SCS GMP OFF IN 2 SECS
024127,002678: 33,7151 02173 TC WAITLIST
024128,002679: 33,7152 67166 CADR GMPOFF2
024129,002680:
024130,002681: 33,7153 02276 TC PHASCHNG
024131,002682: 33,7154 02703 OCT 02703
024132,002683:
024133,002684: 33,7155 02124 TC ENDOFJOB
024134,002685:
024135,002686: 33,7156 20017 DVMODOF1 INHINT
024136,002687: 33,7157 37221 CAF 3.5SEC33 # CALL FOR DV MODE OFF IN 3.5 SECS
024137,002688: 33,7160 02173 TC WAITLIST
024138,002689: 33,7161 67177 CADR DVMODOF2
024139,002690: 33,7162 20016 RELINT
024140,002691:
024141,002692: 33,7163 02276 TC PHASCHNG
024142,002693: 33,7164 03003 OCT 03003
024143,002694:
024144,002695: 33,7165 02124 TC ENDOFJOB
024145,002696:
024146,002697: 33,7166 03405 GMPOFF2 TC RELAYOFF # REMOVE SCS GMP DISCRETE
024147,002698: 33,7167 40200 OCT 40200
024148,002699:
024149,002700: 33,7170 37221 CAF 3.5SEC33 # CALL FOR DV MODE OFF IN 3.5 SECS
024150,002701: 33,7171 02173 TC WAITLIST
024151,002702: 33,7172 67177 CADR DVMODOF2
024152,002703:
024153,002704: 33,7173 33551 CAF TWENTY5
024154,002705: 33,7174 02312 TC NEWPHASE
024155,002706: 33,7175 00003 OCT 3
024156,002707:
024157,002708: 33,7176 02256 TC TASKOVER
024158,002709:
024159,002710: 33,7177 03405 DVMODOF2 TC RELAYOFF # REMOVE SCS DV MODE DISCRETE
024160,002711: 33,7200 40002 OCT 40002
024161,002712:
024162,002713: 33,7201 37220 CAF 0.25S33 # CALL FOR SCS ATT. CONTROL IN U/4 SEC
024163,002714: 33,7202 02173 TC WAITLIST
024164,002715: 33,7203 67205 CADR SHUTASK
024165,002716:
024166,002717: 33,7204 02256 TC TASKOVER
024167,002718:
024168,002719: 33,7205 32162 SHUTASK CAF PRIO27 # ESTABLISH JOB TO RESUME SHUTDOWN PROCESS
024169,002720: 33,7206 02052 TC NOVAC
![]() |
Page 616 |
024171,002722: 33,7207 67126 CADR SHUTJOB1
024172,002723:
024173,002724: 33,7210 02256 TC TASKOVER
024174,002725:
024175,002726: 33,7211 20017 SETSEP INHINT
024176,002727: 33,7212 32146 CAF PRIO12
024177,002728: 33,7213 02046 TC FINDVAC # CM/SM SEPARATION ATTITUDE
024178,002729: 33,7214 67224 CADR SEPMANU
024179,002730:
024180,002731: 33,7215 03373 SETATTC TC RELAYON # SET SCS ATT. CONTROL DISCRETE (C23)
024181,002732: 33,7216 40001 OCT 40001
024182,002733:
024183,002734: 33,7217 02124 TC ENDOFJOB
024184,002735:
024185,002736: 33,7220 00031 0.25S33 DEC 25 B-14
024186,002737: 33,7221 00536 3.5SEC33 DEC 350 B-14
024187,002738: 33,7222 00764 5SEC33 DEC 500 B-14
024188,002739: 33,7223 01274 7SEC33 DEC 700 B-14
024189,002740:
![]() |
Page 617 |
024191,002742:
024192,002743: 33,7224 02362 SEPMANU TC NEWMODE # SET MAJOR MODE TO SEPARATION MANEUVER
024193,002744: 33,7225 00061 OCT 00061
024194,002745:
024195,002746: 33,7226 04000 TC INTPRET
024196,002747:
024197,002748: 33,7227 73175 UNIT 1 # COMPUTE DESIRED S/C ORIENTATION FOR
024198,002749: 33,7230 75633 VXSC COMP # CM/SM SEPARATION
024199,002750: 33,7231 00774 VN
024200,002751: 33,7232 27257 COS60
024201,002752:
024202,002753: 33,7233 47575 NOLOD 1
024203,002754: 33,7234 41753 VXV UNIT
024204,002755: 33,7235 00766 RN
024205,002756: 33,7236 33417 STORE YSCD # YSCD IS ALONG (RN*VN)
024206,002757:
024207,002758: 33,7237 47573 NOLOD 3
024208,002759: 33,7240 41753 VXV UNIT
024209,002760: 33,7241 75642 VXSC VAD
024210,002761: 33,7242 47176 COMP
024211,002762: 33,7243 00774 VN
024212,002763: 33,7244 27255 SIN60
024213,002764: 33,7245 33411 STORE XSCD # XSCD IS 60 DEG ABOVE VELOCITY VECTOR
024214,002765:
024215,002766: 33,7246 47575 NOLOD 1
024216,002767: 33,7247 41753 VXV UNIT
024217,002768: 33,7250 01417 YSCD
024218,002769: 33,7251 33425 STORE ZSCD
024219,002770:
024220,002771: 33,7252 76776 ITC 0 # BRANCH TO PERFORM MANEUVER TO THE
024221,002772: 33,7253 26414 ATTIJOB1 # SEPARATION ATTITUDE
024222,002773:
024223,002774: 33,7254 33555 01106 SIN60 2DEC 0.86603
024224,002775: 33,7256 20000 00000 COS60 2DEC 0.5
024225,002776:
![]() |
Page 618 |
024227,002778:
024228,002779: 33,7260 36556 CDUXTASK CAF 5SEC # ALLOW 5 SECS FOR CDUX RESOLVER SCALE
024229,002780: 33,7261 02173 TC WAITLIST # CHANGE
024230,002781: 33,7262 67342 CADR CM/SMTSK
024231,002782:
024232,002783: 33,7263 34501 CAF PRIO20
024233,002784: 33,7264 02046 TC FINDVAC
024234,002785: 33,7265 67274 CADR CDUXJOB
024235,002786:
024236,002787: 33,7266 03405 TC RELAYOFF # SET SCS TO MONITOR MODE
024237,002788: 33,7267 40007 OCT 40007
024238,002789:
024239,002790: 33,7270 33534 CAF TWELVE
024240,002791: 33,7271 02312 TC NEWPHASE
024241,002792: 33,7272 00003 OCT 00003
024242,002793:
024243,002794: 33,7273 02256 TC TASKOVER
024244,002795:
024245,002796:
024246,002797:
024247,002798: 33,7274 40700 CDUXJOB CS THETAD
024248,002799: 33,7275 40000 COM
024249,002800: 33,7276 51314 TS CDUTEMP
024250,002801:
024251,002802: 33,7277 11314 CCS CDUTEMP # GET MAGNITUDE OF THETAD
024252,002803: 33,7300 64516 AD ONE
024253,002804: 33,7301 07303 TC +2
024254,002805: 33,7302 64516 AD ONE
024255,002806: 33,7303 50115 TS MPAC # AND SAVE IT
024256,002807:
024257,002808: 33,7304 25777 EXTEND # FIND NEAREST INTEGER MULTIPLE OF 1/16
024258,002809: 33,7305 47353 MP 15/16TH
024259,002810: 33,7306 64504 AD BIT11
024260,002811: 33,7307 77354 MASK HIGH4
024261,002812: 33,7310 30115 XCH MPAC # AND SAVE IT
024262,002813:
024263,002814: 33,7311 25777 EXTEND # SHIFT ORIGINAL THETAD RIGHT 4 PLACES
024264,002815: 33,7312 44504 MP BIT11
024265,002816: 33,7313 60115 AD MPAC # AND ADD INTEGER MULTIPLE
024266,002817: 33,7314 20017 INHINT
024267,002818: 33,7315 50700 TS THETAD
024268,002819:
024269,002820: 33,7316 11314 CCS CDUTEMP # ATTACH SIGN OF ORIGINAL THETAD
024270,002821: 33,7317 30115 XCH MPAC # MPAC HAS POSITIVE CDUBIAS
024271,002822: 33,7320 07324 TC +4
024272,002823: 33,7321 40700 CS THETAD
024273,002824: 33,7322 50700 TS THETAD
024274,002825:
024275,002826: 33,7323 40115 CS MPAC # COMPLEMENT INTEGER MULTIPLE
024276,002827: 33,7324 51450 TS K1ROLL # SCALED AT 1/2 REV FOR ENTRY
024277,002828: 33,7325 20016 RELINT
![]() |
Page 619 |
024279,002830: 33,7326 02276 TC PHASCHNG
024280,002831: 33,7327 01503 OCT 01503
024281,002832:
024282,002833: 33,7330 03440 REDO3.13 TC FLAG2UP # SET CDUX FLAG
024283,002834: 33,7331 20000 OCT 20000
024284,002835:
024285,002836: 33,7332 05654 TC BANKCALL # CHANGE IMUCDU MODE TO RE-ENTRY
024286,002837: 33,7333 30216 CADR IMUREENT
024287,002838:
024288,002839: 33,7334 05654 TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH
024289,002840: 33,7335 30331 CADR IMUSTALL
024290,002841: 33,7336 03066 TC CURTAINS # CATCH-ALL FOR MODE SWITCH FAILURES
024291,002842:
024292,002843: 33,7337 02276 TC PHASCHNG
024293,002844: 33,7340 01603 OCT 01603
024294,002845:
024295,002846: 33,7341 02124 TC ENDOFJOB
024296,002847:
024297,002848:
024298,002849:
024299,002850: 33,7342 03373 CM/SMTSK TC RELAYON # SET SCS ENTRY MODE AND CM/SM SEPARATION
024300,002851: 33,7343 40014 OCT 40014 # DISCRETES
024301,002852:
024302,002853: 33,7344 33537 CAF FIFTN
024303,002854: 33,7345 02312 TC NEWPHASE
024304,002855: 33,7346 00003 OCT 00003
024305,002856:
024306,002857: 33,7347 36556 CAF 5SEC # SET CALL TO START PRE-ENTRY ATTITUDE
024307,002858: 33,7350 02173 TC WAITLIST # MANEUVER IN 5 SECS
024308,002859: 33,7351 67355 CADR ENTATASK
024309,002860:
024310,002861: 33,7352 02256 TC TASKOVER
024311,002862:
024312,002863: 33,7353 36000 15/16TH OCT 36000
024313,002864: 33,7354 74000 HIGH4 OCT 74000
024314,002865:
![]() |
Page 620 |
024316,002867:
024317,002868: 33,7355 32146 ENTATASK CAF PRIO12
024318,002869: 33,7356 02046 TC FINDVAC
024319,002870: 33,7357 67361 CADR ENTAJOB
024320,002871:
024321,002872: 33,7360 02256 TC TASKOVER
024322,002873:
024323,002874:
024324,002875:
024325,002876: 33,7361 02362 ENTAJOB TC NEWMODE # SET MAJOR MODE TO PRE-ENTRY MANEUVER
024326,002877: 33,7362 00062 OCT 00062
024327,002878:
024328,002879: 33,7363 35501 CAF ZERO
024329,002880: 33,7364 51472 TS ROLLC # ROLLC = +0
024330,002881: 33,7365 51473 TS ROLLC +1
024331,002882:
024332,002883: 33,7366 04000 TC INTPRET
024333,002884:
024334,002885: 33,7367 76776 GOGETUNB ITC 0 # COMPUTE DESIRED NAV BASE COORDS.
024335,002886: 33,7370 21244 GETUNB
024336,002887:
024337,002888: 33,7371 76776 ITC 0 # GET DESIRED S/C COORSD
024338,002889: 33,7372 12213 CALCNBSC
024339,002890:
024340,002891: 33,7373 75176 VMOVE 0 # TRANSFER DESIRED S/C UNIT VECTORS
024341,002892: 33,7374 01367 XSC
024342,002893: 33,7375 33411 STORE XSCD
024343,002894:
024344,002895: 33,7376 75176 VMOVE 0
024345,002896: 33,7377 01375 YSC
024346,002897: 33,7400 33417 STORE YSCD
024347,002898:
024348,002899: 33,7401 75176 VMOVE 0
024349,002900: 33,7402 01403 ZSC
024350,002901: 33,7403 33425 STORE ZSCD
024351,002902:
024352,002903: 33,7404 76776 ITC 0 # BRANCH TO PERFORM MANEUVER TO PRE-ENTRY
024353,002904: 33,7405 26414 ATTIJOB1 # ATTITUDE
024354,002905:
024355,002906: 33,7406 00007 ABORT33 OCT 00007 # (OR OF ARRST,TABT,ABRT)
024356,002907:
024357,002908:
024358,002909:
024359,002910: 24,6357 BANK 24
024360,002911:
024361,002912: 24,6357 36456 AVGON CAF PIPCAD24 # CLEAR AND EXCHANGE PIPAS TO SAVE DELV
024362,002913: 24,6360 05750 TC ISWCALL # ACCUMULATED DURING COAST PERIOD
024363,002914:
024364,002915: 24,6361 03452 TC FLAG2DWN # DISABLE FREE-FALL GYRO BIAS COMPENSATION
024365,002916: 24,6362 40000 OCT 40000 # (REMOVE DRIFT FLAG)
![]() |
Page 621 |
024367,002918: 24,6363 03462 TC STATEUP # SET BIAS FLAG
024368,002919: 24,6364 04000 OCT 04000
024369,002920:
024370,002921: 24,6365 41465 CS PIPTIME +1
024371,002922: 24,6366 50667 TS TBASE5
024372,002923:
024373,002924: 24,6367 34475 CAF SIX
024374,002925: 24,6370 02312 TC NEWPHASE
024375,002926: 24,6371 00005 OCT 00005
024376,002927:
024377,002928: 24,6372 34502 CAF BIT13 # IF TFF2 FLAG NOT SET, DO WHAT SERVICER
024378,002929: 24,6373 70645 MASK STATE # WOULD HAVE DONE WHEN TFF = TFFMIN
024379,002930: 24,6374 10000 CCS A
024380,002931: 24,6375 06433 TC GO/ON # TFF2 FLAG SET
024381,002932:
024382,002933: 24,6376 03504 TC SETBRNSW # SET BURN TO SPS2 BACK UP SETTING
024383,002934: 24,6377 00020 OCT 00020
024384,002935:
024385,002936: 24,6400 03416 TC FLAG1UP # SET INIT FLAG TO RE-MANEUVER TO SPS2 ATT
024386,002937: 24,6401 00400 OCT 00400
024387,002938:
024388,002939: 24,6402 34516 CAF ONE
024389,002940: 24,6403 51446 TS VGCNTR
024390,002941:
024391,002942: 24,6404 11724 CCS REDOSPS1 # TFF2 FLAG DOWN, SEE IF DO SPS1 AGAIN
024392,002943: 24,6405 06414 TC CONTINUE # NO
024393,002944: 24,6406 06414 TC CONTINUE
024394,002945: 24,6407 06410 TC +1
024395,002946:
024396,002947: 24,6410 03504 TC SETBRNSW # YES, SET BURN TO SPS1
024397,002948: 24,6411 00010 OCT 00010
024398,002949:
024399,002950: 24,6412 36455 CAF LOCSPS1
024400,002951: 24,6413 51470 TS VRCADR
024401,002952:
024402,002953: 24,6414 33556 CONTINUE CAF THIRTY
024403,002954: 24,6415 02312 TC NEWPHASE
024404,002955: 24,6416 00004 OCT 00004
024405,002956:
024406,002957: 24,6417 40036 CS TIME1
024407,002958: 24,6420 50666 TS TBASE4
024408,002959:
024409,002960: 24,6421 36453 CAF 2SEC24 # START READACCS IN 2 SECS
024410,002961: 24,6422 02173 TC WAITLIST
024411,002962: 24,6423 65152 CADR READACCS
024412,002963:
024413,002964: 24,6424 36454 CAF 90SEC24 # SCHEDULE IGNITION IN 2 MINUTES
024414,002965: 24,6425 02173 TC WAITLIST
024415,002966: 24,6426 50463 CADR PLUSX2
![]() |
Page 622 |
024417,002968:
024418,002969: 24,6427 32170 CAF PRIO35
024419,002970: 24,6430 02052 TC NOVAC
024420,002971: 24,6431 50457 CADR MODE32
024421,002972:
024422,002973: 24,6432 02256 TC TASKOVER
024423,002974:
024424,002975: 24,6433 34473 GO/ON CAF THREE
024425,002976: 24,6434 02312 TC NEWPHASE
024426,002977: 24,6435 00002 OCT 00002
024427,002978:
024428,002979: 24,6436 44516 CS ONE
024429,002980: 24,6437 02312 TC NEWPHASE
024430,002981: 24,6440 00004 OCT 00004
024431,002982:
024432,002983: 24,6441 36453 CAF 2SEC24 # TURN ON READACCS IN 2 SECS
024433,002984: 24,6442 02173 TC WAITLIST
024434,002985: 24,6443 65152 CADR READACCS
024435,002986:
024436,002987: 24,6444 32170 CAF PRIO35 # JOB TO CHANGE MM AND FINISH DRIFT COMP
024437,002988: 24,6445 02052 TC NOVAC
024438,002989: 24,6446 50477 CADR MODE26
024439,002990:
024440,002991: 24,6447 32146 GO/ON1 CAF PRIO12 # DO ATTITUDE MANEUVER FOR SPS2 BURN
024441,002992: 24,6450 02046 TC FINDVAC
024442,002993: 24,6451 66412 CADR ATTIJOB1 -1
024443,002994:
024444,002995: 24,6452 02256 TC TASKOVER
024445,002996:
024446,002997: 24,6453 00310 2SEC24 DEC 200 B-14
024447,002998: 24,6454 21450 90SEC24 DEC 9000 B-14
024448,002999: 24,6455 52454 LOCSPS1 CADR 501SPS1
024449,003000: 24,6456 61313 PIPCAD24 CADR PIPASR
024450,003001:
024451,003002:
024452,003003:
024453,003004: 24,6457 02362 MODE32 TC NEWMODE # SET MAJOR MODE TO PRE-SPS2
024454,003005: 24,6460 00032 OCT 00032
024455,003006:
024456,003007: 24,6461 05720 TC POSTJUMP # FINISH DRIFT COMPUTATIONS
024457,003008: 24,6462 50501 CADR MODE26 +2
024458,003009:
024459,003010:
024460,003011:
024461,003012: 24,6463 36476 PLUSX2 CAF 18SEC24
024462,003013: 24,6464 02173 TC WAITLIST
024463,003014: 24,6465 64511 CADR GIMPOWON
024464,003015:
024465,003016: 24,6466 03474 TC STATEDWN # REMOVE BIAS FLAG
024466,003017: 24,6467 04000 OCT 04000
![]() |
Page 623 |
024468,003019:
024469,003020: 24,6470 03373 TC RELAYON # SET SCS +X TRANS DISCRETE (C27)
024470,003021: 24,6471 40020 OCT 40020
024471,003022:
024472,003023: 24,6472 33541 CAF SEVENTN
024473,003024: 24,6473 02312 TC NEWPHASE
024474,003025: 24,6474 00004 OCT 4
024475,003026:
024476,003027: 24,6475 02256 TC TASKOVER
024477,003028:
024478,003029: 24,6476 03410 18SEC24 DEC 1800 B-14
024479,003030:
024480,003031:
024481,003032:
024482,003033: 24,6477 02362 MODE26 TC NEWMODE # SET MAJOR MODE TO HOLD SPS2 ATTITUDE
024483,003034: 24,6500 00026 OCT 00026 # UNTIL TFFMIN
024484,003035:
024485,003036: 24,6501 03416 TC FLAG1UP # SET INTP FLAG
024486,003037: 24,6502 01000 OCT 01000
024487,003038:
024488,003039: 24,6503 41465 CS PIPTIME +1 # CALL LASTBIAS ROUTINE
024489,003040: 24,6504 40000 COM
024490,003041: 24,6505 50115 TS MPAC
024491,003042:
024492,003043: 24,6506 36511 CAF COMP2SEC
024493,003044: 24,6507 05720 TC POSTJUMP
024494,003045: 24,6510 31343 CADR LASTBIAS
024495,003046:
024496,003047: 24,6511 31000 COMP2SEC DEC 200 B+6
024497,003048:
![]() |
Page 624 |
024499,003050:
024500,003051: 3373 BANK 1
024501,003052:
024502,003053: 3373 20001 RELAYON INDEX Q
024503,003054: 3374 40000 CS 0
024504,003055: 3375 20017 INHINT
024505,003056: 3376 70725 MASK DSPTAB +13D
024506,003057: 3377 20001 INDEX Q
024507,003058: 3400 60000 AD 0
024508,003059: 3401 50725 TS DSPTAB +13D
024509,003060: 3402 20016 RELINT
024510,003061: 3403 20001 INDEX Q
024511,003062: 3404 00001 TC 1
024512,003063:
024513,003064: 3405 20001 RELAYOFF INDEX Q
024514,003065: 3406 40000 CS 0
024515,003066: 3407 20017 INHINT
024516,003067: 3410 70725 MASK DSPTAB +13D
024517,003068: 3411 64500 AD BIT15
024518,003069: 3412 50725 TS DSPTAB +13D
024519,003070: 3413 20016 RELINT
024520,003071: 3414 20001 INDEX Q
024521,003072: 3415 00001 TC 1
024522,003073:
024523,003074: 3416 20001 FLAG1UP INDEX Q
024524,003075: 3417 40000 CS 0
024525,003076: 3420 20017 INHINT
024526,003077: 3421 70646 MASK FLAGWRD1
024527,003078: 3422 20001 INDEX Q
024528,003079: 3423 60000 AD 0
024529,003080: 3424 50646 TS FLAGWRD1
024530,003081: 3425 20016 RELINT
024531,003082: 3426 20001 INDEX Q
024532,003083: 3427 00001 TC 1
024533,003084:
024534,003085: 3430 20001 FLAG1DWN INDEX Q
024535,003086: 3431 40000 CS 0
024536,003087: 3432 20017 INHINT
024537,003088: 3433 70646 MASK FLAGWRD1
024538,003089: 3434 50646 TS FLAGWRD1
024539,003090: 3435 20016 RELINT
024540,003091: 3436 20001 INDEX Q
024541,003092: 3437 00001 TC 1
024542,003093:
024543,003094: 3440 20001 FLAG2UP INDEX Q
024544,003095: 3441 40000 CS 0
024545,003096: 3442 20017 INHINT
024546,003097: 3443 70647 MASK FLAGWRD2
024547,003098: 3444 20001 INDEX Q
024548,003099: 3445 60000 AD 0
024549,003100: 3446 50647 TS FLAGWRD2
![]() |
Page 625 |
024551,003102: 3447 20016 RELINT
024552,003103: 3450 20001 INDEX Q
024553,003104: 3451 00001 TC 1
024554,003105:
024555,003106: 3452 20001 FLAG2DWN INDEX Q
024556,003107: 3453 40000 CS 0
024557,003108: 3454 20017 INHINT
024558,003109: 3455 70647 MASK FLAGWRD2
024559,003110: 3456 50647 TS FLAGWRD2
024560,003111: 3457 20016 RELINT
024561,003112: 3460 20001 INDEX Q
024562,003113: 3461 00001 TC 1
024563,003114:
024564,003115: 3462 20001 STATEUP INDEX Q
024565,003116: 3463 40000 CS 0
024566,003117: 3464 20017 INHINT
024567,003118: 3465 70645 MASK STATE
024568,003119: 3466 20001 INDEX Q
024569,003120: 3467 60000 AD 0
024570,003121: 3470 50645 TS STATE
024571,003122: 3471 20016 RELINT
024572,003123: 3472 20001 INDEX Q
024573,003124: 3473 00001 TC 1
024574,003125:
024575,003126: 3474 20001 STATEDWN INDEX Q
024576,003127: 3475 40000 CS 0
024577,003128: 3476 20017 INHINT
024578,003129: 3477 70645 MASK STATE
024579,003130: 3500 50645 TS STATE
024580,003131: 3501 20016 RELINT
024581,003132: 3502 20001 INDEX Q
024582,003133: 3503 00001 TC 1
024583,003134:
024584,003135: 3504 43515 SETBRNSW CS BURNMASK
024585,003136: 3505 20017 INHINT
024586,003137: 3506 70647 MASK FLAGWRD2
024587,003138: 3507 20001 INDEX Q
024588,003139: 3510 60000 AD 0
024589,003140: 3511 50647 TS FLAGWRD2
024590,003141: 3512 20016 RELINT
024591,003142: 3513 20001 INDEX Q
024592,003143: 3514 00001 TC 1
024593,003144:
024594,003145: 3515 00177 BURNMASK OCT 00177
024595,003146:
024596,003147:
024597,003148:
024598,003149: 3516 20017 SETHETAD INHINT
024599,003150: 3517 40047 CS CDUX
024600,003151: 3520 40000 COM
![]() |
Page 626 |
024602,003153: 3521 50700 TS THETAD
024603,003154: 3522 40050 CS CDUY
024604,003155: 3523 40000 COM
024605,003156: 3524 50701 TS THETAD +1
024606,003157: 3525 40051 CS CDUZ
024607,003158: 3526 40000 COM
024608,003159: 3527 50702 TS THETAD +2
024609,003160: 3530 20016 RELINT
024610,003161: 3531 00001 TC Q
024611,003162:
024612,003163:
024613,003164:
024614,003165: 3532 00011 NINE DEC 9 B-14
024615,003166: 3533 00013 ELEVEN OCT 00013
024616,003167: 3534 3533 11DEC EQUALS ELEVEN
024617,003168: 3534 00014 TWELVE OCT 00014
024618,003169: 3535 00015 THIRTN OCT 00015
024619,003170: 3536 3535 THIRTEEN EQUALS THIRTN
024620,003171: 3536 00016 FOURTN OCT 00016
024621,003172: 3537 00017 FIFTN OCT 00017
024622,003173: 3540 00020 SIXTN OCT 00020
024623,003174: 3541 00021 SEVENTN OCT 00021
024624,003175: 3542 00022 EIGHTN OCT 00022
024625,003176: 3543 00023 NINETEEN DEC 19 B-14
024626,003177: 3544 00024 TWENTY0 OCT 00024
024627,003178: 3545 3544 TWENTY EQUALS TWENTY0
024628,003179: 3545 00025 TWENTY1 OCT 00025
024629,003180: 3546 00026 TWENTY2 OCT 00026
024630,003181: 3547 00027 TWENTY3 OCT 00027
024631,003182: 3550 00030 TWENTY4 OCT 00030
024632,003183: 3551 00031 TWENTY5 OCT 00031
024633,003184:
024634,003185: 3552 00032 TWENTY6 DEC 26 B-14
024635,003186:
024636,003187: 3553 00033 TWENTY7 DEC 27 B-14
024637,003188:
024638,003189: 3554 00034 TWENTY8 DEC 28 B-14
024639,003190: 3555 00035 TWENTY9 DEC 29 B-14
024640,003191: 3556 00036 THIRTY DEC 30 B-14
024641,003192: 3557 3556 30DEC EQUALS THIRTY
024642,003193: 3557 00037 THIRTY1 DEC 31 B-14
024643,003194: 3560 00040 THIRTY2 DEC 32 B-14
024644,003195: 3561 00050 FORTY DEC 40 B-14
024645,003196: 3562 3561 40DEC EQUALS FORTY
024646,003197: 3562 00062 FIFTY DEC 50 B-14
024647,003198: 3563 3562 50DEC EQUALS FIFTY
024648,003199: 3563 00074 SIXTY DEC 60 B-14
024649,003200: 3564 3563 60DEC EQUALS SIXTY
024650,003201: 3564 00144 100DEC DEC 100 B-14
024651,003202: 3565 00310 200DEC DEC 200 B-14
![]() |
Page 627 |
024653,003204: 3566 00454 300DEC DEC 300 B-14
024654,003205: 3567 00620 400DEC DEC 400 B-14
024655,003206: 3570 00764 500DEC DEC 500 B-14
024656,003207: 3571 01130 600DEC DEC 600 B-14
024657,003208: 3572 3571 SIXHNDRD EQUALS 600DEC
024658,003209: 3572 01750 1000DEC DEC 1000 B-14
024659,003210: 3573 03720 2000DEC DEC 2000 B-14
End of include-file 501_MISSION_CONTROL_PROGRAM.agc. Parent file is MAIN.agc