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