Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Corona 261, the final, flown release of the Block I Command Module (CM) Apollo Guidance Computer (AGC) software for the AS-202 mission.

They have been created via disassembly of binary dumps of the original core rope memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241, 1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo 4 and 6 software, Solarium 55, was used as a starting point, since it was directly derived from Corona and (at least in theory) only minimally modified.

Since only binary dumps (rather than listings) of Corona are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

023248,000002: 023249,000003: 023250,000004: 023251,000005: 023252,000006: 023253,000007: 023254,000008: 023255,000009: 023256,000010: 023257,000011: 023258,000012: 023259,000013: 023260,000014: 023261,000015: 023262,000016: 32,6000 < 023453,000207: 32,6213 023454,000208: 32,6214 023455,000209: 023456,000210: 32,6215 023457,000211: 32,6216 023458,000212: 32,6217 023459,000213: 32,6220 023460,000214: 32,6221 023461,000215: 023462,000216: 32,6222 023463,000217: 32,6223 023464,000218: 32,6224 023465,000219: 023466,000220: 32,6225 023467,000221: < < 024062,000816: 32,7101 024063,000817: 32,7102 024064,000818: < 024214,000968: < 024255,001009: < 024286,001040: 32,7335 024287,001041: 024288,001042: 32,7336 024289,001043: 024290,001044: 32,7337 024291,001045: 32,7340 024292,001046: 32,7341 024293,001047: 32,7342 024294,001048: 024295,001049: 32,7343 024296,001050: 024297,001051: < 024409,001163: 32,7462 024410,001164: 32,7463 024411,001165: 32,7464 024412,001166: 32,7465 024413,001167: 32,7466 024414,001168: 32,7467 024415,001169: 024416,001170: 32,7470 024417,001171: 32,7471 024418,001172: 32,7472 024419,001173: 32,7473 024420,001174: 024421,001175: 32,7474 024422,001176: 32,7475 024423,001177: < 024498,001252: 32,7565 024499,001253: 024500,001254: 32,7566 024501,001255: 32,7567 024502,001256: 32,7570 024503,001257: 32,7571 024504,001258: 32,7572 024505,001259: 32,7573 024506,001260: 32,7574 024507,001261: 32,7575 024508,001262: 32,7576 024509,001263: 32,7577 024510,001264: 024511,001265: 32,7600 024512,001266: 32,7601 024513,001267: 024514,001268: 32,7602 024515,001269: 32,7603 024516,001270: 32,7604 024517,001271: 32,7605 024518,001272: 024519,001273: 32,7606 024520,001274: 32,7607 024521,001275: 32,7610 024522,001276: 024523,001277: 32,7611 024524,001278: 32,7612 024525,001279: 024526,001280: 32,7613 024527,001281: < < 024686,001440: < 024754,001508: 33,6066 024755,001509: 33,6067 024756,001510: 33,6070 024757,001511: 33,6071 024758,001512: 33,6072 024759,001513: 33,6073 024760,001514: 33,6074 024761,001515: 33,6075 024762,001516: 33,6076 024763,001517: 33,6077 024764,001518: 33,6100 024765,001519: < < < 025087,001841: 33,6461 025088,001842: 33,6462 025089,001843: 33,6463 025090,001844: 025091,001845: 33,6464 025092,001846: 33,6465 025093,001847: 025094,001848: 33,6466 025095,001849: 33,6467 025096,001850: 025097,001851: 33,6470 025098,001852: < 025100,001854: 33,6472 025101,001855: 33,6473 025102,001856: 025103,001857: 33,6474 025104,001858: 025105,001859: 33,6475 025106,001860: 33,6476 025107,001861: 33,6477 025108,001862: 33,6500 025109,001863: 025110,001864: 33,6501 025111,001865: 33,6502 025112,001866: 025113,001867: 33,6503 025114,001868: < 025209,001963: 33,6604 025210,001964: 33,6605 025211,001965: 025212,001966: 33,6606 025213,001967: 025214,001968: 33,6607 025215,001969: 33,6610 025216,001970: 025217,001971: 33,6611 025218,001972: < < < 025512,002266: 33,7145 025513,002267: 025514,002268: 33,7146 025515,002269: 33,7147 025516,002270: 025517,002271: 33,7150 025518,002272: 025519,002273: 33,7151 025520,002274: 33,7152 025521,002275: 33,7153 025522,002276: 33,7154 025523,002277: 33,7155 025524,002278: 33,7156 025525,002279: 33,7157 025526,002280: 33,7160 025527,002281: 33,7161 025528,002282: 33,7162 025529,002283: 025530,002284: 33,7163 025531,002285: 33,7164 025532,002286: 025533,002287: 33,7165 025534,002288: 33,7166 025535,002289: 33,7167 025536,002290: 025537,002291: 33,7170 025538,002292: 33,7171 025539,002293: 33,7172 025540,002294: 025541,002295: 33,7173 025542,002296: 33,7174 025543,002297: 33,7175 025544,002298: 33,7176 025545,002299: < 025570,002324: 025571,002325: 025572,002326: 025573,002327: 025574,002328: < < 025771,002525: 025772,002526: < 025858,002612: 025859,002613: < < < < < < < < < < ## Copyright: Public domain. ## Filename: 202_MISSION_CONTROL_PROGRAM.agc ## Purpose: A section of Corona revision 261. ## It is part of the source code for the Apollo Guidance Computer ## (AGC) for AS-202. No original listings of this software are ## available; instead, this file was created via disassembly of ## the core rope modules actually flown on the mission. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-05-27 MAS Created from Solarium 55. ## 2023-06-19 MAS Updated for Corona. SETLOC 64000 6">023263,000017: 32,6000 20017 LIFTOFF INHINT 02700 TC READTIME +1 # SAVE TIME OF LIFTOFF 40572 CS RUPTSTOR 51462 TS TLIFTOFF 40573 CS RUPTSTOR +1 51463 TS TLIFTOFF +1 41463 CS TLIFTOFF +1 50664 TS TBASE2 50665 TS TBASE3 50666 TS TBASE4 34516 CAF ONE 02312 TC NEWPHASE 00002 OCT 00002 10000 CCS A 06025 TC LIFTOFF1 06025 TC LIFTOFF1 20017 INHINT 41563 CS TROLL +1 40000 COM 02173 TC WAITLIST 64134 CADR MONITSK1 631">023289,000043: 32,6025 34516 LIFTOFF1 CAF ONE 02312 TC NEWPHASE 00003 OCT 00003 74335 MASK NEG1 10000 CCS A 06034 TC +2 06041 TC CALL4.11 20017 INHINT 41565 CS TPITCH +1 40000 COM 02173 TC WAITLIST 64170 CADR MONITASK 131">023304,000058: 32,6041 33517 CALL4.11 CAF ELEVEN 02312 TC NEWPHASE 00004 OCT 00004 10000 CCS A 06053 TC SETLIFT 06053 TC SETLIFT 20017 INHINT 37642 CAF 2SEC # ALLOW 2 SECS FOR BACK-UP GRR COMPUTATION 02173 TC WAITLIST 64056 CADR TARGTASK 4">023317,000071: 32,6053 03424 SETLIFT TC FLAG1UP 00002 OCT 00002 03157 TC JAMTERM # FLUSH V75 GRR BACKUP. 34B">023322,000076: 32,6056 32146 TARGTASK CAF PRIO12 02046 TC FINDVAC 64062 CADR TARGJOB 02256 TC TASKOVER 2">023328,000082: 32,6062 05654 TARGJOB TC BANKCALL # COMMAND IMUCDU TO ATT. CONTROL MODE 30223 CADR IMUATTC 03502 TC SETHETAD # FORCE THETAD,+1,+2 TO EQUAL CDUX,Y,Z 04000 TC INTPRET 66776 DSU 0 # TARGET VECTORS INITIALLY REFERENCED TO 01463 TLIFTOFF # GRR. WILL NOW UPDATE THEM TO LIFT-OFF 01467 TIME2GR 33145 STORE DTEAROT 70776 DAD 0 01463 TLIFTOFF 01630 TPACIF1 33537 STORE TPACIFC 70776 DAD 0 01463 TLIFTOFF 01620 TATLAN1 33527 STORE TATLANT 75176 VMOVE 0 01632 RTPACIF1 33115 STORE RTINIT 76776 ITC 0 13541 EARROT1 47576 NOLOD 0 33541 STORE RTPACIFC 75176 VMOVE 0 01622 RTATLAN1 33115 STORE RTINIT 76776 ITC 0 13541 EARROT1 47576 NOLOD 0 33531 STORE RTATLANT 77576 EXIT 0 >023371,000125: 32,6121 05654 TARGET TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH 30331 CADR IMUSTALL 03074 TC CURTAINS # TRAP IF INCOMPLETE 02362 TC NEWMODE # SET MAJOR MODE TO BOOST ATTITUDE MONITOR 00011 OCT 00011 03424 TC FLAG1UP # SET MONIT FLAG 34B">023379,000133: 32,6127 00040 MONITMSK OCT 00040 44516 CS ONE 02312 TC NEWPHASE 00004 OCT 00004 02124 TC ENDOFJOB B31">023388,000142: 32,6134 11561 MONITSK1 CCS TENDROLL 06137 TC +2 06147 TC ENDROLL 51561 TS TENDROLL 32156 CAF PRIO23 02046 TC FINDVAC 64160 CADR DOROLL 36157 CAF 0.5SEC32 02173 TC WAITLIST 64134 CADR MONITSK1 02256 TC TASKOVER C">023403,000157: 32,6147 34500 ENDROLL CAF NEGSIGN 50700 TS THETAD 35501 CAF ZERO 50702 TS THETAD +2 44516 CS ONE 02312 TC NEWPHASE 00002 OCT 00002 02256 TC TASKOVER 332">023414,000168: 32,6157 00062 0.5SEC32 DEC 50 B-14 >023416,000170: 32,6160 04000 DOROLL TC INTPRET 75775 VXSC 1 76776 ITC 15573 UNITX 01615 ROLLDTH 12373 CDUDRIVE 77576 EXIT 0 02124 TC ENDOFJOB 34B">023428,000182: 32,6170 33536 MONITASK CAF TWENTY6 02312 TC NEWPHASE 00003 OCT 00003 36127 CAF MONITMSK 70646 MASK FLAGWRD1 10000 CCS A 06212 TC JUMP5 51350 TS TENTRY 41572 CS TTUMON # CALL TUMBLE MONITOR IN TTUMON SECS 40000 COM 02173 TC WAITLIST 64263 CADR TUMBTSK1 35503 CAF TWO 02312 TC NEWPHASE 00003 OCT 00003 40036 CS TIME1 50665 TS TBASE3 02256 TC TASKOVER /a>023452,000206: 32,6212 32155 JUMP5 CAF PRIO22 02046 TC FINDVAC 64226 CADR MONITJOB 02700 TC READTIME +1 40572 CS RUPTSTOR 51570 TS TMONITOR 40573 CS RUPTSTOR +1 51571 TS TMONITOR +1 36157 CAF 0.5SEC32 02173 TC WAITLIST 64170 CADR MONITASK 02256 TC TASKOVER F42">023468,000222: 32,6226 04000 MONITJOB TC INTPRET 66775 DSU 1 # FORM TIME SINCE START OF MONITOR 66771 DSU RTB 01571 TMONITOR 01463 TLIFTOFF 01565 TPITCH 20403 SGNAGREE 33571 STORE TMONITOR 43174 SMOVE 2 76516 RTB TSLT 76575 RTB EXIT 01572 TMONITOR +1 24261 POLYENT1 00004 3 20324 1STO2S 30115 XCH MPAC 50701 TS THETAD +1 04000 TC INTPRET 66775 DSU 1 # TEST IF TIME TO STOP MONITOR 73611 BMN SWITCH 01571 TMONITOR 01567 TENDPTCH # IF IT IS, REMOVE MONIT FLAG 24257 +2 00033 MONITFLG 77576 EXIT 0 02124 TC ENDOFJOB 431">023501,000255: 32,6260 33520 POLYENT1 CAF TWELVE # RTB HERE PRIOR TO ENTERING ERASABLE FOR 51574 TS POLYORDR # POLYNOMIAL 01573 TC POLYENTR B31">023505,000259: 32,6263 33537 TUMBTSK1 CAF TWENTY7 02312 TC NEWPHASE 00003 OCT 3 32155 CAF PRIO22 02052 TC NOVAC 64272 CADR TUMBJOB1 06327 TC RESET1 231">023517,000271: 32,6272 05654 TUMBJOB1 TC BANKCALL # SWITCH IMUCDU MODE TO FINE ALIGN 30163 CADR IMUFINNW 05654 TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH 30331 CADR IMUSTALL 03074 TC CURTAINS 02362 TC NEWMODE # SET MAJOR MODE TO TUMBLE MONITOR 00014 OCT 00014 02124 TC ENDOFJOB 34B">023529,000283: 32,6302 32155 TUMBTASK CAF PRIO22 02046 TC FINDVAC 64340 CADR TUMBJOB 34516 CAF BIT1 # TEST IF TUMBLE FLAG SET 70646 MASK FLAGWRD1 10000 CCS A 06327 TC RESET1 # IT IS. CONTINUE TO MONITOR 40647 CS FLAGWRD2 # TEST IF BURN IS TUMBLE ARREST (I.E. HAS 74516 MASK BIT1 # CORRECTIVE ACTION STARTED) 10000 CCS A 06323 TC TUMTEST1 # IT HAS NOT 40011 CS OUT1 # IT HAS. TEST IF ENGINE ON YET. IF NOT, 74502 MASK BIT13 # WAIT BEFORE TURNING IT OFF AGAIN 10000 CCS A 06327 TC RESET1 05720 TC POSTJUMP # LEAP TO CUT SPS ENGINE 64755 CADR ENGINOFF 431">023550,000304: 32,6323 36337 TUMTEST1 CAF NOTUMASK # TEST IF NEXT BURN HAS BEEN SET 70647 MASK FLAGWRD2 10000 CCS A 06333 TC TASK3OUT >023555,000309: 32,6327 36744 RESET1 CAF 1SEC32 # RECALL IN 1 SEC 02173 TC WAITLIST 64302 CADR TUMBTASK 02256 TC TASKOVER 554">023561,000315: 32,6333 44516 TASK3OUT CS ONE 02312 TC NEWPHASE 00003 OCT 00003 02256 TC TASKOVER # IT HAS. KILL TUMBLE MONITOR 34B">023567,000321: 32,6337 00016 NOTUMASK OCT 00016 # (OR OF SPS1, ABRT, TABT) 2">023570,000324: 32,6340 36337 TUMBJOB CAF NOTUMASK # SKIP THIS JOB IF NEXT BURN HAS BEEN SET 70647 MASK FLAGWRD2 10000 CCS A 02124 TC ENDOFJOB 02362 TC NEWMODE 00014 OCT 00014 04000 TC INTPRET 75176 VMOVE 0 # SAVE PRESENT CDUX,Y,Z 01345 DUPCDU 33323 STORE CDUBUF 75575 AXT,1 1 # FORM DP CDUX,Y,Z 76776 ITC 00007 6 12001 CDUTRIG 75176 VMOVE 0 # SAVE DUPLICATE CDUX,Y,Z 01315 CDUTEMP # SCALED AT 1 REV 33345 STORE DUPCDU 47575 NOLOD 1 74765 VSU AXT,1 01323 CDUBUF 00007 6 33315 STORE CDUTEMP 76776 ITC 0 # COMPUTE SIN OF CDUX,Y,Z 12041 SINCOS # DIFFERENCES AND PUT IN SINCDU,+2,+4 71174 ABVAL 2 66756 DSU BMN 77576 EXIT 01331 SINCDU 24406 CRIT 24402 NOTUMBLE 03424 TC FLAG1UP # SET TUMB FLAG 00001 OCT 00001 02124 TC ENDOFJOB C45">023614,000368: 32,6401 77576 NOTUMBLE EXIT 0 03436 TC FLAG1DWN # REMOVE TUMBLE FLAG 00001 OCT 00001 02124 TC ENDOFJOB >023620,000374: 32,6405 00262 25271 CRIT 2DEC 0.010905 # SIN(5DEG/2) SCALED AT 2(+2) 550">023623,000377: 32,6407 40036 S4BSMSEP CS TIME1 # BRANCH HERE ON RECEIPT OF S4B/CSM SEP 50666 TS TBASE4 03401 TC RELAYON # SET SCS +X TRANS, ATTITUDE CONTROL MODE, 40221 OCT 40221 # GIMBAL MOT POWER DISCRETES (C27,23,30) 34516 CAF BIT1 # TEST IF TUMB FLAG SET 70646 MASK FLAGWRD1 10000 CCS A 06527 TC SETUMB2 03424 TC FLAG1UP # SET INTP FLAG 34B">023636,000390: 32,6420 01000 INTPMASK OCT 01000 02276 TC PHASCHNG 01404 OCT 01404 20017 INHINT 36556 CAF 1.7SEC # WAIT 1.7 SECS FOR RECEIPT OF ABORT SIG. 02173 TC WAITLIST 64443 CADR ABRTWAIT 2">023646,000400: 32,6427 03310 TRYGRAB TC GRABDSP # TRY TO GRAB DISPLAY 06435 TC CLEANOUT # ALREADY GRABBED. FLUSH OUT GRABBER 03370 TC FREEDSP # WE HAVE IT. AND LET IT GO 550">023651,000405: 32,6432 03424 SETS4SEP TC FLAG1UP # SET S4BSM FLAG 00200 OCT 00200 02124 TC ENDOFJOB 554">023656,000410: 32,6435 20017 CLEANOUT INHINT 32170 CAF PRIO35 # MAKE HIGH PRIO JOB TO FLUSH OUT PINBALL 02052 TC NOVAC 11134 CADR ENEMA 20016 RELINT 06432 TC SETS4SEP 954">023664,000418: 32,6443 32160 ABRTWAIT CAF PRIO25 # CONTINUE WITH SAME PRIORITY AS S4BSMSEP 02052 TC NOVAC 64447 CADR ABORTEST 02256 TC TASKOVER 354">023669,000423: 32,6447 34516 ABORTEST CAF ONE # SET VGCNTR FOR 2 PASSES THRU CALCVGB 51446 TS VGCNTR 36551 CAF ABRTMASK # TEST IF ABORT SIGNAL RECEIVED 70647 MASK FLAGWRD2 10000 CCS A 06476 TC SETABORT # IT WAS. BRANCH TO ABORT 20017 INHINT 36557 CAF 10.5SEC 02173 TC WAITLIST 64577 CADR ATTCNOFF 20016 RELINT 03470 TC SETBRNSW # SET BURN TO SPS1 34B">023685,000439: 32,6463 00010 SPS1MASK OCT 00010 36475 CAF SPS1LOC # SET LOCATION FOR NOMINAL SPS1 VR COMP 51470 TS VRCADR 03424 TC FLAG1UP 00400 OCT 00400 02362 TC NEWMODE # SET MAJOR MODE TO PRE-SPS1 00031 OCT 00031 02276 TC PHASCHNG 01504 OCT 01504 03157 TC JAMTERM # FLUSH V75 S4BSMSEP BACKUP. 3">023701,000455: 32,6475 52544 SPS1LOC CADR 202SPS1 254">023703,000457: 32,6476 02276 SETABORT TC PHASCHNG 02004 OCT 02004 20017 INHINT 36560 CAF 0.8SEC # START ENGINE IN 1.5 SECS 02173 TC WAITLIST 64577 CADR ATTCNOFF 20016 RELINT 136">023712,000466: 32,6505 05654 REDO4.16 TC BANKCALL # SET IMU TO ATT. CONTROL MODE 30223 CADR IMUATTC 03502 TC SETHETAD # SET THETAD,+1,+2 TO AGREE WITH CDUX,Y,Z 36526 CAF ABORTLOC # SET LOCATION FOR ABORT VR COMPUTATIONS 51470 TS VRCADR 35503 CAF TWO # SET VGCNTR FOR THREE PASSES THROUGH 51446 TS VGCNTR # CALCVGB BEFORE ISSUING STEER COMMANDS 37721 CAF 35DEG # SET THRUST ANGLE TO 35 DEG ABOVE HORIZON 51442 TS LOOKANG 03424 TC FLAG1UP # SET STEER FLAG FOR ABORT STEERING 00010 OCT 00010 02362 TC NEWMODE # SET MAJOR MODE TO ABORT BURN 00073 OCT 00073 05654 TC BANKCALL # WAIT FOR MODE SWITCH TO COMPLETE 30331 CADR IMUSTALL 03074 TC CURTAINS # CATCH-ALL FOR FAILURE TO IMU MODE SWITCH 03157 TC JAMTERM # FLUSH OUT V75 F43">023737,000491: 32,6526 52631 ABORTLOC CADR 202ABORT 2">023739,000493: 32,6527 03470 SETUMB2 TC SETBRNSW # SET BURN TO TUMBLE ARREST 34B">023740,000494: 32,6530 00001 ARRSTMSK OCT 00001 33523 CAF FIFTN 02312 TC NEWPHASE 00004 OCT 4 20017 INHINT 36746 CAF 2.5SEC # START ENGINE AT 3.0 SECS AFTER SEP. 02173 TC WAITLIST # SEPARATION 64577 CADR ATTCNOFF 20016 RELINT 02362 TC NEWMODE # SET MAJOR MODE TO TUMBLE ARREST BURN 00074 OCT 00074 06427 TC TRYGRAB 054">023757,000511: 32,6544 36555 ABORTRPT CAF UPBRTMSK # COME HERE ON RECEIPT OF UPLINK ABORT 70647 MASK FLAGWRD2 10000 CCS A 02124 TC ENDOFJOB 03470 TC SETBRNSW # SET BURN TO ABORT 34B">023763,000517: 32,6551 00002 ABRTMASK OCT 00002 03401 TC RELAYON # SET SCS BACKUP ABORT DISCRETE (C33) 42000 OCT 42000 02124 TC ENDOFJOB 34B">023769,000523: 32,6555 00011 UPBRTMSK OCT 11 >023770,000524: 32,6556 00252 1.7SEC DEC 170 B-14 3">023771,000525: 32,6557 02032 10.5SEC DEC 1050 B-14 >023772,000526: 32,6560 00120 0.8SEC DEC 80 B-14 F4E">023775,000529: 32,6561 03401 GIMPOWON TC RELAYON # SET SCS GMP DISCRETE (C30) 40200 OCT 40200 33534 CAF TWENTY4 02312 TC NEWPHASE 00004 OCT 00004 40036 CS TIME1 50666 TS TBASE4 33535 CAF TWENTY5 02312 TC NEWPHASE 00004 OCT 00004 36750 CAF 3.5SEC 02173 TC WAITLIST 64577 CADR ATTCNOFF 02256 TC TASKOVER 646">023795,000549: 32,6577 33526 ATTCNOFF CAF EIGHTN 02312 TC NEWPHASE 00004 OCT 00004 40036 CS TIME1 50666 TS TBASE4 03413 TC RELAYOFF # REMOVE SCS ATT. CONTROL DISCRETE (C23) 40001 OCT 40001 33527 CAF NINETEEN 02312 TC NEWPHASE 00004 OCT 00004 36743 CAF 0.25SEC 02173 TC WAITLIST 64615 CADR DVMODEON 02256 TC TASKOVER F4E">023815,000569: 32,6615 03401 DVMODEON TC RELAYON # SET SCS DV MODE DISCRETE (C24) 40002 OCT 40002 33530 CAF TWENTY0 02312 TC NEWPHASE 00004 OCT 00004 36743 CAF 0.25SEC 02173 TC WAITLIST 64632 CADR ENGINEON 02256 TC TASKOVER 554">023827,000581: 32,6626 44516 TASK4OUT CS ONE 02312 TC NEWPHASE 00004 OCT 00004 02256 TC TASKOVER F4E">023833,000587: 32,6632 44502 ENGINEON CS BIT13 # SET BIT13, OUT1 TO 1 (ENGINE ON) 51447 TS DVCNTR # MUST BE NEGATIVE INITIALLY 70011 MASK OUT1 64502 AD BIT13 50011 TS OUT1 02700 TC READTIME +1 40572 CS RUPTSTOR 51462 TS TENGON 40573 CS RUPTSTOR +1 51463 TS TENGON +1 03424 TC FLAG1UP # SET DVMON, STEER FLAGS 00030 OCT 00030 40647 CS FLAGWRD2 76463 MASK SPS1MASK 10000 CCS A 06675 TC 3OR4TEST 36753 CAF 15SEC 02173 TC WAITLIST 64740 CADR PLUSXOFF 33531 CAF TWENTY1 02312 TC NEWPHASE 00004 OCT 00004 10651 CCS PHASE2 # TEST FOR PHASE2 VALUE. 64341 AD NEG3 # WAS IT GREATER THAN 4 ORIGINALLY... 10000 CCS A # TEST NEW SUM. 06722 TC ROLLTASK 06722 TC ROLLTASK # GOES UNLESS PHASE2 WERE +1,2,3, OR 4. 06666 TC +1 # 1,2 OR 3 FALL IN HERE 44516 CS ONE # +4 COMES HERE. 02312 TC NEWPHASE # IN WHICH CASES, WE MAKE GROUP 2 INACTIVE 00002 OCT 2 32170 CAF PRIO35 # AND THEN FLUSH OUT EVERYTHING. 02052 TC NOVAC 11134 CADR ENEMA # FORCE A PROGRAMMED RESTART 02256 TC TASKOVER 354">023880,000634: 32,6675 36754 3OR4TEST CAF SPS34MSK 70647 MASK FLAGWRD2 10000 CCS A 06702 TC +2 06713 TC TUMTEST2 # IT IS NOT 33533 CAF TWENTY3 02312 TC NEWPHASE 00004 OCT 00004 36747 CAF 3SEC # SHUT ENGINE DOWN IN 3 SECS 02173 TC WAITLIST 64755 CADR ENGINOFF 646">023894,000648: 32,6710 03436 STEEROFF TC FLAG1DWN 34B">023895,000649: 32,6711 00010 STEERMSK OCT 00010 02256 TC TASKOVER 432">023899,000653: 32,6713 36530 TUMTEST2 CAF ARRSTMSK # TEST IF BURN IS TUMBLE ARREST 70647 MASK FLAGWRD2 10000 CCS A 06735 TC STR4OUT 33532 CAF TWENTY2 02312 TC NEWPHASE 00004 OCT 4 34B">023908,000662: 32,6722 40646 ROLLTASK CS FLAGWRD1 # TEST IF STEER FLAG SET 76711 MASK STEERMSK 10000 CCS A 02256 TC TASKOVER # IT IS NOT. KILL ROLLTASK 34502 CAF PRIO10 # SUBMIT JOB TO DO ROLL STEERING 02046 TC FINDVAC 66332 CADR ROLLJOB 232">023917,000671: 32,6731 36751 REDO4.22 CAF 5SEC32 # RECALL ROLLTASK IN 5 SECS 02173 TC WAITLIST 64722 CADR ROLLTASK 02256 TC TASKOVER 4">023923,000677: 32,6735 03436 STR4OUT TC FLAG1DWN 00010 OCT 00010 06626 TC TASK4OUT 646">023928,000682: 32,6740 03413 PLUSXOFF TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE (C27) 40020 OCT 40020 02256 TC TASKOVER 3">023933,000687: 32,6743 00031 0.25SEC DEC 25 B-14 >023934,000688: 32,6744 00144 1SEC32 DEC 100 B-14 3">023935,000689: 32,6745 00175 1.25SEC DEC 125 B-14 >023936,000690: 32,6746 00372 2.5SEC DEC 250 B-14 >023937,000691: 32,6747 00454 3SEC DEC 300 B-14 >023938,000692: 32,6750 00536 3.5SEC DEC 350 B-14 >023939,000693: 32,6751 00764 5SEC32 DEC 500 B-14 >023940,000694: 32,6752 01130 6SEC DEC 600 B-14 /a>023941,000695: 32,6753 02734 15SEC DEC 1500 B-14 B">023942,000696: 32,6754 4503 SHDNMSK EQUALS BIT12 34B">023943,000697: 32,6754 00140 SPS34MSK OCT 00140 646">023946,000700: 32,6755 44502 ENGINOFF CS BIT13 # SET ENGINE OFF 70011 MASK OUT1 50011 TS OUT1 02700 TC READTIME +1 # SAVE TIME OF CUTOFF 40572 CS RUPTSTOR 51462 TS TCUTOFF 40573 CS RUPTSTOR +1 51463 TS TCUTOFF +1 03436 TC FLAG1DWN # DISABLE DV MONITOR 00020 OCT 00020 40044 CS PIPAX # SAVE DELTAV AT ENGINE OFF TIME. 51222 TS VAVEGON 40045 CS PIPAY 51223 TS VAVEGON +1 # USE VAVEGON AREA FOR THIS. 40046 CS PIPAZ 51224 TS VAVEGON +2 40647 CS FLAGWRD2 # TEST IF THAT WAS A TUMBLE BURN 76530 MASK ARRSTMSK 10000 CCS A 07015 TC SPS1TEST 34516 CAF ONE 51446 TS VGCNTR 03424 TC FLAG1UP # SET INTP,INIT FLAGS 01400 OCT 01400 36526 CAF ABORTLOC # SET LOCATION FOR ABORT VR COMPUTATIONS 51470 TS VRCADR 34473 CAF THREE 02312 TC NEWPHASE 00003 OCT 00003 3">023986,000740: 32,7012 03470 REDO3.3 TC SETBRNSW # SET BURN TO ABORT AFTER TUMBLE 34B">023987,000741: 32,7013 00004 TABTMASK OCT 00004 02256 TC TASKOVER 354">023991,000745: 32,7015 33540 SPS1TEST CAF TWENTY8 02312 TC NEWPHASE 00004 OCT 4 41463 CS TCUTOFF +1 50665 TS TBASE3 50666 TS TBASE4 40647 CS FLAGWRD2 # TEST IF THAT WAS A SPS1 BURN 76463 MASK SPS1MASK 10000 CCS A 07046 TC SPS2TEST 36557 CAF 10.5SEC # CALL COAST PHASE IN 10.5 SECS 02173 TC WAITLIST 65171 CADR COASTPHS 37306 CAF 7SEC # DUPLICATE GMPOFF SEQUENCE BEFORE SETTING 02173 TC WAITLIST # BURN SWITCH. (FOR RESTART LOGIC.) 65133 CADR GIMPOWOF 35502 CAF FOUR # 3.4 RESTART KEEPS POWER OFF SEQ. GOING. 02312 TC NEWPHASE 00003 OCT 3 34473 CAF THREE 02312 TC NEWPHASE 00004 OCT 00004 3">024021,000775: 32,7043 03470 REDO4.3 TC SETBRNSW # SET BURN TO SPS2 34B">024022,000776: 32,7044 00020 SPS2MASK OCT 00020 02256 TC TASKOVER 354">024026,000780: 32,7046 40647 SPS2TEST CS FLAGWRD2 # TEST IF THAT WAS A SPS2 BURN 77044 MASK SPS2MASK 10000 CCS A 07071 TC SPS3TEST 37304 CAF 0.75SEC 02173 TC WAITLIST 65322 CADR CGTASK 36752 CAF 6SEC # CALL FOR GMP ON IN 6 SECS 02173 TC WAITLIST 64561 CADR GIMPOWON 35362 CAF SEVEN 02312 TC NEWPHASE 00003 OCT 00003 33240 CAF TEN 02312 TC NEWPHASE 00004 OCT 00004 130">024047,000801: 32,7066 03470 REDO4.10 TC SETBRNSW # SET BURN TO SPS3 34B">024048,000802: 32,7067 00040 SPS3MASK OCT 00040 02256 TC TASKOVER 354">024052,000806: 32,7071 40647 SPS3TEST CS FLAGWRD2 # TEST IF THAT WAS A SPS3 BURN 77067 MASK SPS3MASK 10000 CCS A 07111 TC SETMOD23 # IT WAS NOT. (EITHER A, TABT, OR SPS4) 33522 CAF FOURTN 02312 TC NEWPHASE 00004 OCT 00004 /a>024061,000815: 32,7100 36752 GMPON CAF 6SEC # CALL FOR ENGINE ON IN 10 SECS 02173 TC WAITLIST 64561 CADR GIMPOWON 134">024065,000819: 32,7103 32144 REDO4.14 CAF PRIO7 02052 TC NOVAC 65166 CADR MODE44 03470 TC SETBRNSW # SET BURN TO SPS4 34B">024070,000824: 32,7107 00100 SPS4MASK OCT 00100 02256 TC TASKOVER 233">024073,000827: 32,7111 32144 SETMOD23 CAF PRIO7 # MAKE JOB TO CHANGE MODE 02052 TC NOVAC 65163 CADR MODE23 33516 CAF NINE 02312 TC NEWPHASE 00003 OCT 00003 44516 CS ONE 02312 TC NEWPHASE 00004 OCT 00004 >024085,000839: 32,7122 03413 GMPOFF TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE (C27) 40020 OCT 40020 37306 CAF 7SEC 02173 TC WAITLIST 65133 CADR GIMPOWOF 35502 CAF FOUR 02312 TC NEWPHASE 00003 OCT 00003 02256 TC TASKOVER F46">024098,000852: 32,7133 36750 GIMPOWOF CAF 3.5SEC # CALL FOR DV MODE OFF IN 3.5 SECS 02173 TC WAITLIST 65147 CADR DVMODOFF 03413 TC RELAYOFF 40200 OCT 40200 34477 CAF FIVE 02312 TC NEWPHASE 00003 OCT 00003 02256 TC TASKOVER 3">024111,000865: 32,7144 03413 GMPOFF3 TC RELAYOFF # REMOVE SCS GMP DISCRETE (C30) 40200 OCT 40200 06333 TC TASK3OUT 646">024116,000870: 32,7147 03413 DVMODOFF TC RELAYOFF # REMOVE SCS DV MODE DISCRETE (C24) 40002 OCT 40002 34475 CAF SIX 02312 TC NEWPHASE 00003 OCT 00003 36743 CAF 0.25SEC 02173 TC WAITLIST 65160 CADR ATTCONON 02256 TC TASKOVER F4E">024129,000883: 32,7160 03401 ATTCONON TC RELAYON # SET SCS ATT. CONT. DISCRETE (C23) 40001 OCT 40001 06333 TC TASK3OUT >024134,000888: 32,7163 02362 MODE23 TC NEWMODE # SET MAJOR MODE TO ATTITUDE HOLD 00023 OCT 00023 02124 TC ENDOFJOB >024138,000892: 32,7166 02362 MODE44 TC NEWMODE # SET MAJOR MODE TO SPS4 00044 OCT 00044 02124 TC ENDOFJOB 853">024144,000898: 32,7171 03424 COASTPHS TC FLAG1UP # GET SET TO START COAST PHASE ACTIVITY 34B">024145,000899: 32,7172 40000 COASTMSK OCT 40000 # SET COAST FLAG 37217 CAF 289.5SEC +1 # SET UP LONGCALL TO FDAONTSK IN 289.5 SEC 51461 TS LONGTIME +1 37216 CAF 289.5SEC 51460 TS LONGTIME 37215 CAF FDAILOC 51467 TS CALLCADR 05742 TC IBNKCALL # MAKE WAITLIST CALL MORE THAN 120 SECS 10552 CADR LONGCALL 32146 CAF PRIO12 # ESTABLISH INITIAL VERTICAL JOB 02046 TC FINDVAC 66642 CADR VERTINIT 35503 CAF TWO 02312 TC NEWPHASE 00002 OCT 00002 35502 CAF FOUR 02312 TC NEWPHASE 00004 OCT 00004 02256 TC TASKOVER 3">024172,000926: 32,7215 65220 FDAILOC CADR FDAONTSK 543">024173,000927: 32,7216 00001 30426 289.5SEC 2DEC 28950 B-28 34B">024176,000930: 32,7220 03401 FDAONTSK TC RELAYON # SET SCS FDAI ALIGN DISCRETE (C31) 40400 OCT 40400 37252 CAF 10SEC 02173 TC WAITLIST 65231 CADR FDAOFTSK # CALL FDAI OFF IN 10 SECS 34477 CAF FIVE 02312 TC NEWPHASE 00004 OCT 00004 02256 TC TASKOVER 34B">024189,000943: 32,7231 37650 FDAOFTSK CAF -310SEC +1 61557 AD TCOAST +1 51461 TS LONGTIME +1 35501 CAF ZERO 67647 AD -310SEC 61556 AD TCOAST 51460 TS LONGTIME 37253 CAF UPTSKLOC 51467 TS CALLCADR 05742 TC IBNKCALL 10552 CADR LONGCALL 34475 CAF SIX 02312 TC NEWPHASE 00004 OCT 4 B31">024208,000962: 32,7247 03413 FDOFTSK1 TC RELAYOFF # REMOVE SCS FDAI ALIGN DISCRETE (C31). 40400 OCT 40400 02256 TC TASKOVER /a>024213,000967: 32,7252 01750 10SEC DEC 1000 B-14 F43">024215,000969: 32,7253 67122 UPTSKLOC CADR UPTASK >024217,000971: 32,7254 37446 PLUSX2 CAF PIPCADR 05750 TC ISWCALL 37307 CAF 26SEC 02173 TC WAITLIST 64561 CADR GIMPOWON 03401 TC RELAYON # SET SCS +X TRANS DISCRETE (C27) 40020 OCT 40020 03460 TC FLAG2DWN # DISABLE FREE-FALL GYRO BIAS COMPENSATION 40000 OCT 40000 # (REMOVE DRIFT FLAG) 41465 CS PIPTIME +1 50667 TS TBASE5 34475 CAF SIX 02312 TC NEWPHASE 00005 OCT 00005 33525 CAF SEVENTN 02312 TC NEWPHASE 00004 OCT 00004 37642 CAF 2SEC 02173 TC WAITLIST 65344 CADR READACCS 32170 CAF PRIO35 02052 TC NOVAC 65310 CADR MODE32 02256 TC TASKOVER 3">024251,001005: 32,7304 00113 0.75SEC DEC 75 B-14 >024252,001006: 32,7305 00144 1SEC DEC 100 B-14 >024253,001007: 32,7306 01274 7SEC DEC 700 B-14 /a>024254,001008: 32,7307 05050 26SEC DEC 2600 B-14 >024256,001010: 32,7310 02362 MODE32 TC NEWMODE 00032 OCT 00032 03424 TC FLAG1UP # SET INTP FLAG 01000 OCT 01000 31465 XCH PIPTIME +1 # CALL LASTBIAS ROUTINE 50115 TS MPAC 37321 CAF COMP2SEC 05720 TC POSTJUMP 31331 CADR LASTBIAS 543">024269,001023: 32,7321 31000 COMP2SEC DEC 200 B+6 >024271,001025: 32,7322 32154 CGTASK CAF PRIO21 # ESTABLISH CGJOB TO REMOVE ANGULAR CG 02046 TC FINDVAC # MOTION DEVELOPED DURING SPS2 BURN 65334 CADR CGJOB 36745 CAF 1.25SEC 02173 TC WAITLIST 65144 CADR GMPOFF3 34513 CAF EIGHT 02312 TC NEWPHASE 00003 OCT 3 02256 TC TASKOVER /a>024285,001039: 32,7334 02362 CGJOB TC NEWMODE # SET MAJOR MODE TO SPS3 BURN 00043 OCT 00043 04000 TC INTPRET 75175 VMOVE 1 # GET NOMINAL SPS2 CG CHANGE ABOUT IMU 76575 RTB EXIT # GIMBAL AXES INTO VAC, SCALED AT KE/2 REV 13635 DELCDU # (KE =1.5), AND DECREMENT THETAD, +1, +2 20423 INCRCDUS 02124 TC ENDOFJOB 353">024298,001052: 32,7344 37446 READACCS CAF PIPCADR # BRANCH TO PIPA READ ROUTINE 05750 TC ISWCALL 35503 CAF TWO 02312 TC NEWPHASE 00005 OCT 00005 2">024305,001059: 32,7351 41465 REDO5.2 CS PIPTIME +1 50667 TS TBASE5 35503 CAF TWO 51035 TS PIPAGE 34514 CAF ENTRYMSK # TEST IF ENTRY FLAG SET 70646 MASK FLAGWRD1 10000 CCS A 07404 TC SETUPENT 40646 CS FLAGWRD1 # TEST IF COAST FLAG SET 77172 MASK COASTMSK 10000 CCS A 03070 TC CCSHOLE 07410 TC SETUPVRT # IT IS. DO NOT RESET READACCS 37450 CAF ABORT32 # TEST IF ABORT BURN IS SET. IF SO, NEED 70647 MASK FLAGWRD2 # 2.5SECS COMPUTING INTERVAL 10000 CCS A 07414 TC CHANGEDT # IT IS 37642 CAF 2SEC # IT IS NOT. CALL READACCS IN 2 SECS 02173 TC WAITLIST 65344 CADR READACCS 256">024332,001086: 32,7375 32152 MAKESERV CAF PRIO16 # ESTABLISH SERVICER ROUTINE 02046 TC FINDVAC 65453 CADR SERVICER 34473 CAF THREE 02312 TC NEWPHASE 00005 OCT 5 02256 TC TASKOVER E54">024342,001096: 32,7404 37642 SETUPENT CAF 2SEC # CALL ENTRY ROUTINES IN 2 SECS 02173 TC WAITLIST 56004 CADR PIPUP 07375 TC MAKESERV 254">024348,001102: 32,7410 37642 SETUPVRT CAF 2SEC # CALL VERTASK IN 2 SECS 02173 TC WAITLIST 66665 CADR VERTASK 07375 TC MAKESERV 454">024354,001108: 32,7414 34516 CHANGEDT CAF BIT1 # FORCE SERVICER TO SET DELTAT TO 2.5 SECS 51030 TS DELTAT +1 37451 CAF 2.5SEC32 # CALL READACCS IN 2.5 SECS 07373 TC MAKESERV -2 143">024360,001114: 32,7420 37450 REREADAC CAF ABORT32 # READACCS RESTART LOCATION 70647 MASK FLAGWRD2 10000 CCS A 07426 TC SET2.5S 950">024365,001119: 32,7424 37447 CAFREPIP CAF REPIPCAD 07345 TC READACCS +1 3">024368,001122: 32,7426 47451 SET2.5S CS 2.5SEC32 60667 AD TBASE5 60036 AD TIME1 30572 XCH RUPTSTOR 10572 CCS RUPTSTOR 07424 TC CAFREPIP 07424 TC CAFREPIP 37451 CAF 2.5SEC32 60572 AD RUPTSTOR 64476 AD POSMAX 50000 TS A 07424 TC CAFREPIP 40572 CS RUPTSTOR 02173 TC WAITLIST 65424 CADR CAFREPIP 02256 TC TASKOVER 2">024389,001143: 32,7446 61307 PIPCADR CADR PIPASR 144">024390,001144: 32,7447 61360 REPIPCAD CADR REPIPASR 34B">024391,001145: 32,7450 4504 CHDTMASK EQUALS BIT11 34B">024392,001146: 32,7450 4514 ENTRYMSK EQUALS BIT3 34B">024393,001147: 32,7450 4504 READMASK EQUALS BIT11 2">024394,001148: 32,7450 00007 ABORT32 OCT 7 332">024395,001149: 32,7451 00372 2.5SEC32 DEC 250 B-14 >024396,001150: 32,7452 00620 4SEC DEC 400 B-14 552">024398,001152: 32,7453 05654 SERVICER TC BANKCALL # COMPENSATE THE PIPA DATA IN THE DELV 31007 CADR 1/PIPA # REGISTERS. 3">024402,001156: 32,7455 04000 REDO5.3 TC INTPRET 0">024404,001158: 32,7456 76776 REGSTEP ITC 0 21540 CALCRVG >024407,001161: 32,7460 33517 AVGRET CAF ELEVEN # ROUTINE CYCLES 12 TIMES TO SAVE OLD VR, /a>024408,001162: 32,7461 50115 AGAIN TS MPAC # VN FOR RESTARTS 20115 INDEX MPAC 41416 CS VR 20115 INDEX MPAC 51263 TS VR1 # (TEMPORARIES IN AMEMORY) 10115 CCS MPAC 07461 TC AGAIN 41446 CS VGCNTR # SAVE FOR RESTARTS 51261 TS VGCNT1 41447 CS DVCNTR 51262 TS DVCNT1 02276 TC PHASCHNG 02705 OCT 02705 >024424,001178: 32,7476 04000 RE5.23 TC INTPRET 43576 TEST 0 # TEST IF ENTRY FLAG SET 00036 ENTRYFLG 25536 COASTEST # IT IS NOT 67774 BHIZ 2 75405 AXT,1 LODON 47172 COMP ITC 01473 ROLLC 25513 UPLIFT 00001 0 21156 LAD 25517 SETL/D >024439,001193: 32,7512 45175 UPLIFT DMOVE 1 75576 AXT,1 21156 LAD 00011 8D >024444,001198: 32,7516 47576 SETL/D NOLOD 0 33223 STORE L/D 3">024447,001201: 32,7520 46176 PACIFIC COMP* 0 03275 TPACIFC,1 33145 STORE DTEAROT 74176 VMOVE* 0 03301 RTPACIFC,1 33115 STORE RTINIT 76776 ITC 0 13541 EARROT1 77576 EXIT 0 35501 CAF ZERO # RESET DELTAT +1 TO ZERO 51030 TS DELTAT +1 05720 TC POSTJUMP # GO TO ENTRY INITIALIZATION ROUTINE. 61424 CADR STARTENT 354">024466,001220: 32,7535 43575 COASTEST TEST 1 # TEST IF COAST FLAG SET 75176 VMOVE 00022 COASTFLG 25565 GETFF 00766 RN # IT IS. TRANSFER RN,VN TO ORBITAL 33101 STORE RRECT # INTEGRATION ROUTINE 75176 VMOVE 0 00774 VN 33107 STORE VRECT 70775 DAD 1 66742 DSU DAD 01557 TCOAST 27215 DP20SEC 01465 PIPTIME 01463 TCUTOFF 33211 STORE TAVEGON 77576 EXIT 0 41465 CS PIPTIME +1 # START UP FREE-FALL GYRO DRIFT COMP. 40000 COM 50755 TS OLDBT1 03446 TC FLAG2UP # BEGINS WITH NEXT IDLETASK. SET DRIFTFLG 40000 OCT 40000 02124 TC ENDOFJOB # SERVICER DIES HERE AT START OF COASTPHS. /a>024497,001251: 32,7564 76776 GETFF ITC 12417 CALCTFF 43574 TEST 2 # TEST IF INTP FLAG SET 65132 ABS DSU 73615 BMN TEST 00027 INTPFLAG 25652 INITEST # IT IS NOT. CONTINUE AT INITEST 01457 TFF # TEST IF TFF LESS THAN 95 SECS 25646 DP95SEC 25615 SHUTDWN1 # IT IS. PREPARE TO FREE-FALL RE-ENTER 00032 INT1FLAG # TEST IF FIRST INTERUPT FLAG SET 25603 +3 # IT IS NOT 77576 EXIT 0 # IT IS. WAIT FOR 95 SEC INTERUPT 07767 TC ENDSER32 47575 NOLOD 1 # TEST IF TFF LESS THAN 200 SECS 66616 DSU BPL 25644 DP65SEC 25652 INITEST # IT IS NOT. CONTINUE 77576 EXIT 0 05654 TC BANKCALL # IT IS. BRANCH TO SHUTDOWN ROUTINES 67217 CADR SHUTDOWN 03424 TC FLAG1UP 00100 OCT 00100 07621 TC SHTFLGUP E31">024528,001282: 32,7614 77576 SHUTDWN1 EXIT 0 05654 TC BANKCALL 67217 CADR SHUTDOWN 03436 TC FLAG1DWN # REMOVE INTP FLAG (DISABLE TFF DECISIONS) 01000 OCT 01000 550">024535,001289: 32,7621 03424 SHTFLGUP TC FLAG1UP # SET SHTDN FLAG 04000 OCT 04000 07767 TC ENDSER32 233">024542,001296: 32,7624 33517 REDO5.23 CAF ELEVEN # RE-ESTABLISH VR, DIFFVECT IN CASE OF 50115 TS MPAC # 5.23 RESTART 20115 INDEX MPAC 41263 CS VR1 20115 INDEX MPAC 51416 TS VR 10115 CCS MPAC 07625 TC REDO5.23 +1 41261 CS VGCNT1 51446 TS VGCNTR 41262 CS DVCNT1 51447 TS DVCNTR 07476 TC RE5.23 >024560,001314: 32,7641 00000 DP2SEC DEC 0.0 >024561,001315: 32,7642 00310 2SEC DEC 200 B-14 3">024562,001316: 32,7643 00000 14544 DP65SEC 2DEC 6500 B-28 3">024563,001317: 32,7645 00000 22434 DP95SEC 2DEC 9500 B-28 3">024564,001318: 32,7647 77776 43347 -310SEC 2DEC -31000 B-28 4">024567,001321: 32,7651 77576 INITEST EXIT 0 40646 CS FLAGWRD1 # TEST IF THIS IS AN INITIAL PASS 74506 MASK INITMASK 10000 CCS A 07730 TC DVMNTEST # IT IS NOT 40647 CS FLAGWRD2 # TEST IF BURN IS ABORT AFTER TUMBLE ARRET 77013 MASK TABTMASK 10000 CCS A 07666 TC INITISE # IT IS NOT 02362 TC NEWMODE # SET MAJOR MODE TO POST TUMBLE RECOVERY 00071 OCT 00071 37720 CAF 31.8DEG # TO REGAIN ATTITUDE AFTER TUMBLE SET AN 51442 TS LOOKANG # AVERAGE ANGLE TO HORIZON OF 31.8 DEGS. 5">024584,001338: 32,7666 04000 INITISE TC INTPRET 76776 ITC 0 # BRANCH TO VG, B VECTOR COMPUTATIONS 12511 CALCVGB 77576 EXIT 0 11446 CCS VGCNTR # WAIT FOR SECOND PASS THRU CALCVGB BEFORE 07675 TC +2 # COMPUTING THRUST ATTITUDE 07677 TC +3 51446 TS VGCNTR 07767 TC ENDSER32 04000 TC INTPRET 76776 ITC 0 26266 BURNINIT 77576 EXIT 0 20017 INHINT 32146 CAF PRIO12 # ESTABLISH JOB TO COMPUTE MANEUVER TO 02046 TC FINDVAC # BURN INITIAL ATTITUDE 66410 CADR ATTIJOB 34516 CAF ONE # SET VGCNTR FOR TWO PASSES THROUGH 51446 TS VGCNTR # CALCVGB BEFORE ISSUINS STEER COMMANDS 37721 CAF 35DEG # RESTORE ANGLE TO HORIZON TO 35 DEGS 51442 TS LOOKANG 02276 TC PHASCHNG 00402 OCT 00402 03436 TC FLAG1DWN # REMOVE INIT FLAG 00400 OCT 00400 07767 TC ENDSER32 7">024623,001377: 32,7720 02647 31.8DEG DEC 0.088333 # SCALED AT 1 REV /a>024624,001378: 32,7721 03071 35DEG DEC 0.097222 34B">024625,001379: 32,7722 4506 INITMASK EQUALS BIT9 >024627,001381: 32,7722 77576 VRFAIL EXIT 0 # EXIT HERE IF FAILURE TO COMPUTE ABORT VR 11446 CCS VGCNTR # TEST IF THIS IS LAST PASS 07726 TC +2 07765 TC ENDSHUT # IT IS. DO SHUTDOWN 51446 TS VGCNTR # WAIT FOR MORE 07767 TC ENDSER32 354">024636,001390: 32,7730 40646 DVMNTEST CS FLAGWRD1 # TEST IF DV MONITOR IS ENABLED 74512 MASK DVMONMSK 10000 CCS A 07767 TC ENDSER32 # IT IS NOT 04000 TC INTPRET 71174 ABVAL 2 # TEST IF DELV MAG. EXCEEDS DVMIN 66756 DSU BMN 77576 EXIT 01002 DELV 26001 DVMIN 25750 NODELTAV # IT DOES NOT. START DV MONITOR 44516 CS ONE # IT DOES. (DVCNTR NORMALLY NEGATIVE) 51447 TS DVCNTR 05654 TC BANKCALL 66002 CADR STRTEST 156">024656,001410: 32,7747 77576 NODELTAV EXIT 0 11447 CCS DVCNTR 07756 TC DVALARM # AFTER FIRST TIME SET ALARM 07763 TC SHUTDWN3 # 5 PASSES UP. PREPARE FOR RE-ENTRY 35502 CAF FOUR # FIRST TIME SET DVCNTR FOR 5 PASSES 51447 TS DVCNTR 07767 TC ENDSER32 D">024666,001420: 32,7756 03015 DVALARM TC ALARM 01402 OCT 01402 11447 CCS DVCNTR 51447 TS DVCNTR 07767 TC ENDSER32 E33">024674,001428: 32,7763 03424 SHUTDWN3 TC FLAG1UP # ENABLE FREE-FALL INTERRUPT 01000 OCT 01000 4">024677,001431: 32,7765 05654 ENDSHUT TC BANKCALL 67217 CADR SHUTDOWN 332">024680,001434: 32,7767 05654 ENDSER32 TC BANKCALL # EXIT FROM SERVICER FROM BANK 32 66251 CADR ENDSERV SETLOC 66000 34B">024684,001438: 33,6000 4512 DVMONMSK EQUALS BIT5 /a>024685,001439: 33,6000 00005 06565 DVMIN 2DEC 0.000318008 # 2FT/S SCALED AT 19.16928 M/CS 4">024687,001441: 33,6002 40646 STRTEST CS FLAGWRD1 # TEST IF STEER FLAG SET 74513 MASK BIT4 10000 CCS A 06251 TC ENDSERV # IT IS NOT 04000 TC INTPRET 76776 ITC 0 12511 CALCVGB 77576 EXIT 0 02276 TC PHASCHNG 00505 OCT 00505 5">024701,001455: 33,6014 11446 REDO5.5 CCS VGCNTR 06017 TC +2 # BEFORE TESTING VG AND GENERATING STEERIN 06034 TC JUMP10 # COMMANDS 51360 TS ERRORSUM # ZERO STEER ERROR SUM 51361 TS ERRORSUM +1 51362 TS ERRORSUM +2 51363 TS ERRORSUM +3 51364 TS ERRORSUM +4 51365 TS ERRORSUM +5 36033 CAF MDTINIT 51444 TS MDT 51445 TS MDT +1 11446 CCS VGCNTR 51446 TS VGCNTR 06251 TC ENDSERV 4">024721,001475: 33,6033 00076 MDTINIT DEC 0.00381 # 16FT/S/S FOR 2.5 SECS AT 2(+5)M/CS >024723,001477: 33,6034 03460 JUMP10 TC FLAG2DWN # REMOVE CALC FLAG (KILLS ATTITUDE MAN- 02000 OCT 02000 # EUVER IF STILL ACTIVE) 04000 TC INTPRET 75775 VXSC 1 46753 BVSU UNIT 01002 DELV 21730 KPIP 01411 CBDT 33403 STORE UNITMDT 47575 NOLOD 1 # TEST IF VG INCREASING WITH THRUST 42616 DOT BPL 01353 VG 26245 VGALARM # IT IS. BRANCH TO CUT ENGINE AND WAIT 32033 STORE 26D # VG ACTUAL 70776 DAD 0 # SUM TWO INTERVALS OF MDT 00037 30D 01445 MDT 43574 TEST 2 47522 NOLOD DMP 70776 DAD 00054 SPS2FLAG 26066 JUMP9 26171 1.523 00033 26D 32033 STORE 26D /a>024753,001507: 33,6065 64773 JUMP9 DMP 3 # RESCALE VG ACTUAL TO 2(+5)M/CS 63746 TSLT BOV 62746 DDV BOV # IF NO OVER FLOW ON DIVISION, LESS THAN 64772 DMP ITC # 2 INTERVALS OF VG LEFT 00033 26D 26173 0.995 00004 3 26102 STEERLAW 77777 - 26102 STEERLAW 01030 DELTAT 26203 SETTGO # BRANCH TO SET TIME-TO-GO TO CUT-OFF 157">024766,001520: 33,6101 45176 STEERLAW DMOVE 0 # SAVE NEW VALUE OF MDT 00037 30D 33445 STORE MDT 64776 DMP 0 26175 K1STEER # =(0.815...)(STEER GAIN) 01030 DELTAT 71173 ABVAL 3 # STEERING CROSS PRODUCT COMPUTED HERE 57706 TSLC BDDV 75606 VXSC VXV 44376 VSLT* 01353 VG 00050 X2 77777 - 01353 VG 01403 UNITMDT 00002 0,2 33345 STORE STEERROR # FIRST TERM IN STEERLAW OUTPUT. SCALED # AT ONE REVOLUTION 47575 NOLOD 1 # INCREMENT SUM OF STEER ERRORS 75642 VXSC VAD 26177 K2STEER # =(INTEGRATOR GAIN)/(STEER GAIN) 01361 ERRORSUM 47574 NOLOD 2 # TEST IF MAGNITUDE OF INTEGRATED STEER 71132 ABVAL DSU # ERROR EXCEEDS MAX ALLOWABLE 43776 BPL 26201 ERRORMAX 26136 SUMPOINT 75176 VMOVE 0 33361 STORE ERRORSUM # STORE NEW STEER ERROR SUM E54">024800,001554: 33,6135 50775 SUMPOINT VAD 1 # SUM ERROR AND INTEGRATED ERROR TERMS 76572 RTB ITC 01345 STEERROR 01361 ERRORSUM 20264 FRESHPD 12373 CDUDRIVE # BRANCH WITH TOTAL STEERLAW OUTPUT IN VAC # SCALED AT ONE REVOLUTION 4">024807,001561: 33,6143 44775 STREXIT VSLT 1 47175 COMP EXIT # RESCALE VG TO 2(+5)M/CS FOR DISPLAY 01353 VG 00003 2 03310 TC GRABDSP # TRY TO GRAB DISPLAY 06166 TC NODISP # ALREADY GRABBED. SKIP VG DISPLAY 20067 INDEX FIXLOC # LOAD UPPER REGISTERS OF VG INTO DSPTEM1 40040 CS VAC 50616 TS DSPTEM1 20067 INDEX FIXLOC 40042 CS VAC +2 50617 TS DSPTEM1 +1 20067 INDEX FIXLOC 40044 CS VAC +4 50620 TS DSPTEM1 +2 36167 CAF V06N40 03106 TC NVSUB 03256 TC RELDSPON 03370 TC FREEDSP >024833,001587: 33,6166 06251 NODISP TC ENDSERV >024835,001589: 33,6167 00640 V06N40 OCT 00640 # VERB 06 NOUN 40 /a>024836,001590: 33,6170 06057 03250 1.523 2DEC 1.523 B-3 /a>024837,001591: 33,6172 37656 02437 0.995 2DEC 0.995 2">024838,001592: 33,6174 03204 33423 K1STEER 2DEC 0.101859164 # (STEER GAIN =1/8) 2">024839,001593: 33,6176 02436 27024 K2STEER 2DEC 0.08 # (INTEGRATOR GAIN =0.01) 158">024840,001594: 33,6200 00026 30133 ERRORMAX 2DEC 0.001388888 # 1 DEGREE SCALED AT 2 REVS >024842,001596: 33,6202 47574 SETTGO NOLOD 2 # COME HERE TO SET ENGINE-OFF CALL 56633 TSRT COMP 43575 TEST EXIT 00005 4 # C(MPAC) = TIME-TO-CUTOFF SINCE PIPTIME 00035 STEERFLG # SCALED AT 2(+14) CS 26144 STREXIT 30115 XCH MPAC 51460 TS LONGTIME # SAVE MPAC (USED IN RESTARTS) 1">024852,001606: 33,6212 20017 REDO4.1 INHINT 40036 CS TIME1 50666 TS TBASE4 61465 AD PIPTIME +1 10000 CCS A 64500 AD BIT15 06223 TC +3 64516 AD ONE 40000 COM 61460 AD LONGTIME # (TEMP FOR MPAC) 61560 AD TDECAY # EFFECTIVE THRUST DECAY TIME 51461 TS LONGTIME +1 10000 CCS A # TEST FOR - OR 0 WAITLIST CALLS 06232 TC +3 06232 TC +2 35501 CAF ZERO 64516 AD ONE 02173 TC WAITLIST 64755 CADR ENGINOFF 02276 TC PHASCHNG 00104 OCT 00104 03436 TC FLAG1DWN # REMOVE STEER FLAG 00010 OCT 00010 02276 TC PHASCHNG 00204 OCT 00204 06251 TC ENDSERV D">024884,001638: 33,6244 77576 VGALARM EXIT 0 03015 TC ALARM 01401 OCT 01401 05654 TC BANKCALL 67217 CADR SHUTDOWN 6">024891,001645: 33,6251 11030 ENDSERV CCS DELTAT +1 # IF BIT1 PRESENT IN DELTAT +1, SET DELTAT 36262 CAF HALFSEC # 1/PIPADT TO 2.5SECS (FOR ABORT STEERING) 66263 AD TWOSEC 51027 TS DELTAT 60000 DOUBLE 50755 TS 1/PIPADT 02276 TC PHASCHNG 00105 OCT 00105 02124 TC ENDOFJOB 3">024903,001657: 33,6262 03100 HALFSEC DEC 50 B-9 >024904,001658: 33,6263 14400 TWOSEC DEC 200 B-9 254">024905,001659: 33,6264 00007 ALLABORT OCT 7 954">024908,001662: 33,6265 53574 BURNINIT AXC,1 2 # C(X1)= 0 (TABT,ABRT,SPS1) 45415 ITA TEST # =-2 (SPS2) 53576 AXC,1 00001 0 00052 S2 00054 SPS2FLAG 26276 +2 00003 2 76776 ITC 0 # COMPUTE DESIRED THRUST DIRECTION 13501 CALCXSC 76575 RTB 1 # SET UP CG ROTATION MATRIX IN PD 42176 SMOVE* 20270 ZEROVAC 27461 CGZ,1 32007 STORE 6 47575 NOLOD 1 47065 COMP AST,1 00007 6 32003 STORE 2 42176 SMOVE* 0 27451 CGY,1 32005 STORE 4 47575 NOLOD 1 47165 COMP AXT,1 00023 18D 32015 STORE 12D 2">024940,001694: 33,6317 74174 REPEAT2 VMOVE* 2 # COMPUTE DESIRED SPACECRAFT ATTITUDE 51640 VXM VAD* # MATRIX FROM DESIRED THRUST ATT. MATRIX 73176 UNIT 00045 18D,1 01367 XSC 03021 XSC +18D,1 37065 STORE XSCD +18D,1 51575 TIX,1 1 44576 ITCI 26320 REPEAT2 00052 S2 2">024953,001707: 33,6332 04000 ROLLJOB TC INTPRET 75575 AXT,1 1 # GET SIN,COS OF THETAD,+1,+2 54572 AST,2 ITC 00007 6 26364 ROLLEXIT 12013 THETRIG 76776 ITC 0 # COMPUTE NAV. BASE CORRDINATES 12110 CALCSMNB 75776 VXSC 0 # COMPUTE XSC 01477 XNB 12241 COS33 75775 VXSC 1 50776 VAD 01513 ZNB 12237 SIN33 32027 STORE 22D 1">024974,001728: 33,6352 47573 HEADWN1 NOLOD 3 41753 VXV UNIT # =KR(TVC)(UNIT(XSC*RN)*YSC), WHERE 41766 VXV VXSC # DT(MAX) = 10 SECS, 44772 VSLT ITC # MAX ROLL GAIN = 1.0 00766 RN 01505 YNB # ( =YSC) 26407 KR(TVC) # TVC ROLL CONTROL GAIN 00004 3 12400 CDUDRVE2 # SUBENTRY OF CDUDRIVE 954">024984,001738: 33,6363 77576 ROLLEXIT EXIT 0 40646 CS FLAGWRD1 # TEST IF STEER FLAG SET BEFORE SETTING 74513 MASK BIT4 # BURN MAJOR MODE 10000 CCS A 02124 TC ENDOFJOB 34512 CAF BIT5 # TEST IF BURN SWITCH IS SET TO SPS2 70647 MASK FLAGWRD2 10000 CCS A 06403 TC SPS2MODE # IT IS 40647 CS FLAGWRD2 # TEST IF BURN IS SPS1 74513 MASK BIT4 10000 CCS A 02124 TC ENDOFJOB # IT IS NOT 02362 TC NEWMODE # SET MAJOR MODE TO SPS1 00041 OCT 00041 02124 TC ENDOFJOB 445">025005,001759: 33,6403 02362 SPS2MODE TC NEWMODE # SET MAJOR MODE TO SPS2 00042 OCT 00042 02124 TC ENDOFJOB 9">025010,001764: 33,6406 00516 07363 KR(TVC) 2DEC 0.0204 # ROLL GAIN =0.05, DT =5.0 SECS # THIS ROUTINE CONTROLS THE USE OF CALCMANU IN COMPUTING, TIMING AND PERFORMING THE SEQUENCE OF MANEUVERS DURING # A LARGE ATTITUDE MANEUVER. FLIGHT 202 INVOLVES SUCH A MANEUVER WHEN ORIENTING TO # 1. ABORT BURN INITIAL ATTITUDE AFTER A TUMBLE ARREST # 2. NOMINAL FIRST BURN INITIAL ATTITUDE # 3. LOCAL VERTICAL AFTER NOMINAL FIRST BURN # 4. NOMINAL SECOND BURN INITIAL ATTITUDE # 5. SM/CM SEPARATION ATTITUDE # 6. CM PRE-ENTRY ATTITUDE 2">025024,001778: 33,6410 05654 ATTIJOB TC BANKCALL 30223 CADR IMUATTC 03502 TC SETHETAD 05654 TC BANKCALL 30331 CADR IMUSTALL 03074 TC CURTAINS 04000 TC INTPRET 231">025035,001789: 33,6417 76776 ATTIJOB1 ITC 0 26512 GETMANU 77576 EXIT 0 20017 INHINT 34516 CAF 0.01SEC 02173 TC WAITLIST 66537 CADR DOMANU 40647 CS FLAGWRD2 74513 MASK BIT4 10000 CCS A 02124 TC ENDOFJOB 02276 TC PHASCHNG 00502 OCT 00502 02124 TC ENDOFJOB 232">025057,001811: 33,6435 04000 ATTIJOB2 TC INTPRET 76776 ITC 0 26512 GETMANU 77576 EXIT 0 02124 TC ENDOFJOB 4">025067,001821: 33,6442 47576 SNAPOUT NOLOD 0 32701 STORE THETAD 43575 TEST 1 # TEST IF SHTDN FLAG SET (I.E. HAS FREE- 43575 TEST EXIT # FALL INTERUPT OCCURRED) 00025 SHTDNFLG 26461 JUMP7 00043 CDUXFLAG # TEST IF CDUXFLAG SET (I.E. HAS CM/SM 26505 ENDMANU # SEPARATION OCCURRED) 03424 TC FLAG1UP # SET ENTRY FLAG 00004 OCT 00004 44516 CS ONE 02312 TC NEWPHASE 00003 OCT 00003 02124 TC ENDOFJOB /a>025086,001840: 33,6460 43575 JUMP7 TEST 1 77576 EXIT 00022 COASTFLG 26472 JUMP6 03424 TC FLAG1UP # SET VERTFLAG FOR BEGINNING OF CONTROL 10000 OCT 10000 # AT VERTICAL ATTITUDE 02362 TC NEWMODE 00022 OCT 00022 06505 TC ENDMANU +1 /a>025099,001853: 33,6471 43576 JUMP6 TEST 0 00056 TABTFLAG 26505 ENDMANU 77576 EXIT 0 20017 INHINT 34516 CAF 0.01SEC 02173 TC WAITLIST 64577 CADR ATTCNOFF 35503 CAF TWO # SET VGCNTR FOR THREE PASSES THROUGH 51446 TS VGCNTR # CALCVGB BEFORE STARTING ABORT STEERING 06505 TC ENDMANU +1 5">025115,001869: 33,6504 77576 ENDMANU EXIT 0 44516 CS ONE 02312 TC NEWPHASE 00002 OCT 2 02124 TC ENDOFJOB 5">025123,001877: 33,6511 45575 GETMANU ITA 1 76776 ITC 01475 EXITCAD1 14001 CALCMANU 43576 TEST 0 00046 CALCFLAG 26443 SNAPOUT 53574 AXC,1 2 43455 TEST AXC,1 43455 TEST AXC,1 00001 0 00045 ROLLFLAG 26533 SETDTH 00003 2 00043 CDUXFLAG 26533 SETDTH 00005 4 >025143,001897: 33,6532 44176 SETDTH DMOVE* 0 33461 DTH,1 33453 STORE DTHETA 44576 ITCI 0 01475 EXITCAD1 3">025152,001906: 33,6537 4516 0.01SEC EQUALS BIT1 >025155,001909: 33,6537 03446 DOMANU TC FLAG2UP # SET DOMANU FLAG 34B">025156,001910: 33,6540 01000 DOMANMSK OCT 01000 1">025158,001912: 33,6541 40647 DOMANU1 CS FLAGWRD2 # KILL DOMANU IF CALC FLAG NOT SET 74504 MASK BIT11 # (CALCMASK) 10000 CCS A 06564 TC DOMANOFF 36540 CAF DOMANMSK # TEST IF DOMAN FLAG SET 70647 MASK FLAGWRD2 10000 CCS A 06555 TC SETMANU # IT IS 36570 CAF TPAD +1 # IT IS NOT. START NEXT MANEUVER IN TPAD 02173 TC WAITLIST # SECS 66537 CADR DOMANU 02256 TC TASKOVER 5">025174,001928: 33,6555 32156 SETMANU CAF PRIO23 # ESTABLISH MANUJOB 02046 TC FINDVAC 66572 CADR MANUJOB 36571 CAF 0.5SEC # RECALL DOMANU1 IN 0.5 SECS 02173 TC WAITLIST 66541 CADR DOMANU1 02256 TC TASKOVER 646">025184,001938: 33,6564 03460 DOMANOFF TC FLAG2DWN # REMOVE DOMANU FLAG 01000 OCT 01000 02256 TC TASKOVER >025191,001945: 33,6567 00000 TPAD DEC 0.0 >025192,001946: 33,6570 00764 5SEC DEC 500 B-14 >025193,001947: 33,6571 00062 0.5SEC DEC 50 B-14 2">025197,001951: 33,6572 04000 MANUJOB TC INTPRET 66775 DSU 1 # TEST IF THETAMAN LESS THAN DTHETA. 43633 BPL COMP 01453 DTHETA 01455 THETAMAN 26604 JUMP4 # IT IS. STORE REMAINING THETAMAN 33455 STORE THETAMAN 76776 ITC 0 26613 DRIVECDU /a>025208,001962: 33,6603 45176 JUMP4 DMOVE 0 # STORE REMAINING THETAMAN IN DTHETA 01455 THETAMAN 33453 STORE DTHETA 77576 EXIT 0 03460 TC FLAG2DWN # REMOVE DOMAN FLAG 01000 OCT 01000 04000 TC INTPRET 455">025219,001973: 33,6612 75775 DRIVECDU VXSC 1 # FORM INCREMENTAL MANEUVER VECTOR 44772 VSLT ITC 01323 WC 01453 DTHETA 00002 1 12373 CDUDRIVE 43576 TEST 0 # TEST IF DOMAN FLAG SET 00047 DOMANFLG 26626 RETURN1 # IT IS NOT. CHECK SPS1 77576 EXIT 0 02124 TC ENDOFJOB 1">025233,001987: 33,6625 43576 RETURN1 TEST 0 # TEST IF THIS IS SPS1 00055 SPS1FLAG 26635 NEXTMAN # IT IS NOT. GET NEXT MANEUVER 77576 EXIT 0 03460 TC FLAG2DWN 02000 OCT 02000 06505 TC ENDMANU +1 E">025243,001997: 33,6634 77576 NEXTMAN EXIT 0 20017 INHINT 32146 CAF PRIO12 # ESTABLISH ATTIJOB2 TO COMPUTE NEXT MAN. 02046 TC FINDVAC 66435 CADR ATTIJOB2 02124 TC ENDOFJOB 954">025253,002007: 33,6642 02362 VERTINIT TC NEWMODE # SET MAJOR MODE TO MANEUVER TO VERTICAL 00021 OCT 00021 04000 TC INTPRET 75175 VMOVE 1 47176 COMP 01016 REFRCV 33411 STORE XSCD 47574 NOLOD 2 41753 VXV UNIT 47176 COMP 00774 REFVRECT 33417 STORE YSCD 47574 NOLOD 2 41753 VXV UNIT 47176 COMP 01411 XSCD 33425 STORE ZSCD 76776 ITC 0 # BRANCH TO DO MANEUVER 26420 ATTIJOB1 B">025279,002033: 33,6665 45501 VERTASK CS ZERO # COME HERE FIRST TIME ONLY. CLEAR OUT 51001 TS DELV # DELV FOR FREE-FALL COMPUTATIONS 51002 TS DELV +1 51003 TS DELV +2 51004 TS DELV +3 51005 TS DELV +4 51006 TS DELV +5 B31">025287,002041: 33,6674 34500 VERTASK1 CAF BIT15 # TEST IF COAST FLAG SET 70646 MASK FLAGWRD1 10000 CCS A 03070 TC CCSHOLE 02256 TC TASKOVER 35362 CAF SEVEN 02312 TC NEWPHASE 00005 OCT 0005 7">025297,002051: 33,6704 40036 REDO5.7 CS TIME1 50667 TS TBASE5 34513 CAF EIGHT 02312 TC NEWPHASE 00005 OCT 00005 36720 CAF 2SEC33 02173 TC WAITLIST 66674 CADR VERTASK1 32147 CAF PRIO13 02046 TC FINDVAC 66721 CADR VERTIJOB 02256 TC TASKOVER >025314,002068: 33,6720 00310 2SEC33 DEC 200 B-14 F42">025317,002071: 33,6721 04000 VERTIJOB TC INTPRET 76776 ITC 0 21540 CALCRVG 04000 TC INTPRET 43575 TEST 1 75572 AXT,1 ITC 00024 VERTFLAG 27105 EXITLOC4 00007 6 12001 CDUTRIG 76776 ITC 0 12110 CALCSMNB 76776 ITC 0 12213 CALCNBSC 41775 VXV 1 75622 VXSC VSLT 01016 REFRCV 01367 XSC 27117 XRATE 00004 3 41775 VXV 1 73006 UNIT VXV 00774 VN 00766 RN 01375 YSC 40774 VPROJ 2 75622 VXSC VSLT 50772 VAD ITC 01367 XSC 77777 - 27115 YRATE 00006 5 77777 - 12243 SMCDURES 44773 VSLT 3 76571 RTB RTB 66732 DSU DSU 73776 BMN 01345 DCDU 00002 1 20423 INCRCDUS 20252 LOADTIME 01463 TCUTOFF 27121 VERTIME 27105 EXITLOC4 45176 DMOVE 0 # SET DELTAT TO 4 SECS FOR ORBITAL INT. 27113 DT4SEC 33030 STORE DELTAT 75176 VMOVE 0 # SAVE VRECT AND RRECT IN CASE OF RESTARTS 01101 RRECT 33656 STORE RRECCMEM 75176 VMOVE 0 01107 VRECT 33664 STORE VRECCMEM 77576 EXIT 0 02276 TC PHASCHNG 01205 OCT 01205 130">025388,002142: 33,7012 03436 REDO5.10 TC FLAG1DWN # REMOVE COAST, VERT FLAGS 50000 OCT 50000 04000 TC INTPRET 75176 VMOVE 0 # RESTORE RRECT AND VRECT FROM CMEMORY. 01656 RRECCMEM 33101 STORE RRECT 75176 VMOVE 0 01664 VRECCMEM 33107 STORE VRECT 76776 ITC 0 # BRANCH TO DO ORBITAL INTEGRATION 20001 AVETOMD1 75176 VMOVE 0 01231 RIG-4SEC 32766 STORE RN # SET RN TO 4 SECS BEFORE IGNITION 76575 RTB 1 76776 ITC 20264 FRESHPD 21632 CALCGRAV 75575 AXT,1 1 # GET VR AT 4 SECS BEFORE IGNITION 67572 SXA,1 ITC 12552 202SPS2 01471 VRCADR 12511 CALCVGB 75176 VMOVE 0 01107 VIGNTION 32774 STORE VN # SET VN AT IGNITION 75176 VMOVE 0 01101 RIGNTION 32766 STORE RN # SET RN AT IGNITION 76776 ITC 0 21632 CALCGRAV 76776 ITC 0 12511 CALCVGB # GET VR AT IGNITION. COMPUTE CBDT 76776 ITC 0 26266 BURNINIT # INITIALISE BURN 45176 DMOVE 0 27111 DT2SEC 33030 STORE DELTAT # RESTORE DELTAT TO 2 SECS FOR SPS2 75176 VMOVE 0 01223 VAVEGON 32774 STORE VN # INITIALISE CALCRVG FOR TURN-ON 75176 VMOVE 0 01215 RAVEGON 32766 STORE RN 76776 ITC 0 21632 CALCGRAV 77576 EXIT 0 34516 CAF ONE # SET VGCNTR FOR TWO PASSES THRU CALCVGB 51446 TS VGCNTR # BEFORE SPS2 STEERING 02362 TC NEWMODE # SET MAJOR MODE TO READY FOR R,V,T UPDATE 00024 OCT 00024 02276 TC PHASCHNG 00302 OCT 00302 02276 TC PHASCHNG # CHANGE PHASE TO 5.20 TO ENABLE V76 RST. 02405 OCT 02405 04000 TC INTPRET 76776 ITC 0 26420 ATTIJOB1 334">025469,002223: 33,7104 77576 EXITLOC4 EXIT 0 02276 TC PHASCHNG 01305 OCT 01305 02124 TC ENDOFJOB >025476,002230: 33,7110 14400 00000 DT2SEC 2DEC 200 B-9 >025477,002231: 33,7112 31000 00000 DT4SEC 2DEC 400 B-9 /a>025478,002232: 33,7114 03146 14632 YRATE 2DEC .1 /a>025479,002233: 33,7116 03146 14632 XRATE 2DEC .1 5">025480,002234: 33,7120 00014 15705 VERTIME 2DEC 2037.17 E2 # UPTASK AND UPJOB OCCUR 120 SECS BEFORE PLUSX2 AND INCORPORATE STATE VECTOR UPDATES VIA VERB 76 >025485,002239: 33,7122 37216 UPTASK CAF 18SEC 02173 TC WAITLIST 67203 CADR PLUSX1 34373 CAF PRIO6 # ESTABLISH UPJOB 02046 TC FINDVAC 67144 CADR UPJOB 35362 CAF SEVEN 02312 TC NEWPHASE 00004 OCT 00004 40036 CS TIME1 50666 TS TBASE4 44516 CS ONE # REMOVE UPDATE RESTART CAPABILITY 02312 TC NEWPHASE 00005 OCT 5 34513 CAF EIGHT 02312 TC NEWPHASE 00004 OCT 00004 02256 TC TASKOVER /a>025511,002265: 33,7144 02362 UPJOB TC NEWMODE # REVERT TO ATTITUDE HOLD. 00023 OCT 23 32564 CAF LDNLST1 # REVERT BACK TO DOWNLIST 1. 50672 TS DNLSTADR 04000 TC INTPRET 43574 TEST 2 # NO FURTHER ACTION IF NO V76 COMPLETED. 70742 DAD DAD # IF SO, FORM DT FOR FINAL INTEGRATION. 66776 DSU 00023 UPDATFLG 27200 NOSTATE 01463 TCUTOFF 01557 TCOAST 27215 DP20SEC 01115 STBUFF +12D 33211 STORE TAVEGON 76776 ITC 0 20010 AVETOMD2 75176 VMOVE 0 # LEAVE RAVEGON, VAVEGON IN RN, VN. 01223 VAVEGON 32774 STORE VN 75176 VMOVE 0 01215 RAVEGON 32766 STORE RN 76575 RTB 1 76776 ITC 20264 FRESHPD 21632 CALCGRAV 5">025546,002300: 33,7177 77576 NOSTATE EXIT 0 02276 TC PHASCHNG 01104 OCT 01104 9">025551,002305: 33,7202 03157 REDO4.9 TC JAMTERM # FLUSH OUT V76 IF STILL IN PINBALL >025555,002309: 33,7203 36720 PLUSX1 CAF 2SEC33 02173 TC WAITLIST 65254 CADR PLUSX2 03436 TC FLAG1DWN # REMOVE UPDAT FLAG TO KILL ORB. INTEGR. 20000 OCT 20000 33537 CAF TWENTY7 02312 TC NEWPHASE 00004 OCT 4 02256 TC TASKOVER 3">025568,002322: 33,7214 00000 03720 DP20SEC 2DEC 2000 B-28 /a>025569,002323: 33,7216 03410 18SEC DEC 1800 B-14 # SHUTDOWN IS A CLOSED SUBROUTINE WHICH IS ENTERED PRIOR TO CM/SM SEPARATION. ITS PURPOSE IS TO CLOSE OUT ALL SCS # FUNCTIONS NOT CONCERNED WITH SEPARATION AND ENTRY, AND TO INITIATE THOSE THAT ARE 74E">025575,002329: 33,7217 20017 SHUTDOWN INHINT 32162 CAF PRIO27 # ESTABLISH HIGH PRIO JOB TO DO SHUTDOWN 02052 TC NOVAC 11134 CADR ENEMA # CLEANS OUT EXEC AND WAITLIST. 20016 RELINT 34516 CAF ONE # EFFECTIVELY STOP ANY WAITLIST ACTIVITY 50037 TS TIME3 44516 CS ONE 02312 TC NEWPHASE 00004 OCT 00004 44516 CS ONE 02312 TC NEWPHASE 00002 OCT 00002 33240 CAF TEN 02312 TC NEWPHASE 00003 OCT 00003 05702 TC SWRETURN # (LOCATION OF TC Q) 2">025600,002354: 33,7240 20017 SHUTJOB INHINT 44502 CS BIT13 # SHUT OFF ENGINE BIT 70011 MASK OUT1 50011 TS OUT1 03413 TC RELAYOFF # REMOVE SCS +X TRANS DISCRETE 40020 OCT 40020 03436 TC FLAG1DWN # REMOVE DVMON, STEER, INIT FLAGS 00430 OCT 00430 05654 TC BANKCALL # SET IMUCDU TO ATT. CONTROL (MAY BE RE- 30223 CADR IMUATTC # DUNDANT CALL) 03502 TC SETHETAD # FORCE THETAD, +1, +2 TO READ CDUX,Y,Z 36264 CAF ALLABORT # TEST IF ANY ABORT BURN SET 70647 MASK FLAGWRD2 10000 CCS A 07261 TC +3 # IT IS 03470 TC SETBRNSW # IT IS NOT. SET BURN TO LAST (SPS4) 00100 OCT 00100 05654 TC BANKCALL # WAIT FOR MODE SWITCH TO COMPLETE 30331 CADR IMUSTALL 03074 TC CURTAINS # CATCH-ALL FOR MODE SWITCH FAILURES 40036 CS TIME1 50665 TS TBASE3 34505 CAF BIT10 # TEST IF INTP FLAG SET (I.E. HAS 95 SEC 70646 MASK FLAGWRD1 # INTERUPT OCCURRED) 10000 CCS A 07276 TC TESTGMP # IT HAS NOT 34510 CAF BIT7 # TEST IF INT1 FLAG SET (I.E. HAS 200 SEC 70646 MASK FLAGWRD1 # INTEREUPT OCCURRED) 10000 CCS A 07306 TC SHUTJOB1 # IT HAS 0">025641,002395: 33,7276 34507 TESTGMP CAF BIT8 # TEST IF SCS GMP DISCRETE SET 70725 MASK DSPTAB +13D 10000 CCS A 07327 TC GMPOFF1 # IF IT IS, TURN IT OFF 34515 CAF BIT2 # TEST IF DV MODE SET 70725 MASK DSPTAB +13D 10000 CCS A 07336 TC DVMODOF1 # IF IT IS, TURN IT OFF 231">025651,002405: 33,7306 40646 SHUTJOB1 CS FLAGWRD1 # TEST IF SHUTDN FLAG SET 74503 MASK BIT12 10000 CCS A 07375 TC SETATTC # IT IS NOT. SHUTDOWN NOT DUE TO TFF 34505 CAF BIT10 # TEST IF THIS IS 200 OR 95 SEC INTERRUPT 70646 MASK FLAGWRD1 # (INTP FLAG) 10000 CCS A 07371 TC SETSEP # 200 SEC INTERRUPT E55">025661,002415: 33,7316 03460 KILLMANU TC FLAG2DWN # REMOVE CALC FLAG (KILL ANY MANEUVER) 02000 OCT 02000 20017 INHINT # ALLOW 5 SECS FOR CSM TO SETTLE FROM ANY 36570 CAF 5SEC # ATTITUDE MANEUVER BEFORE SEPARATING 02173 TC WAITLIST 67440 CADR CDUXTASK 02276 TC PHASCHNG 01303 OCT 01303 02124 TC ENDOFJOB 1">025673,002427: 33,7327 20017 GMPOFF1 INHINT 36720 CAF 2SEC33 # CALL FOR SCS GMP OFF IN 2 SECS 02173 TC WAITLIST 67346 CADR GMPOFF2 02276 TC PHASCHNG 02703 OCT 02703 02124 TC ENDOFJOB 631">025683,002437: 33,7336 20017 DVMODOF1 INHINT 37401 CAF 3.5SEC33 # CALL FOR DV MODE OFF IN 3.5 SECS 02173 TC WAITLIST 67357 CADR DVMODOF2 20016 RELINT 02276 TC PHASCHNG 03003 OCT 03003 02124 TC ENDOFJOB 2">025694,002448: 33,7346 03413 GMPOFF2 TC RELAYOFF # REMOVE SCS GMP DISCRETE 40200 OCT 40200 37401 CAF 3.5SEC33 # CALL FOR DV MODE OFF IN 3.5 SECS 02173 TC WAITLIST 67357 CADR DVMODOF2 33535 CAF TWENTY5 02312 TC NEWPHASE 00003 OCT 3 02256 TC TASKOVER 632">025707,002461: 33,7357 03413 DVMODOF2 TC RELAYOFF # REMOVE SCS DV MODE DISCRETE 40002 OCT 40002 37400 CAF 0.25S33 # CALL FOR SCS ATT. CONTROL IN U/4 SEC 02173 TC WAITLIST 67365 CADR SHUTASK 02256 TC TASKOVER B">025716,002470: 33,7365 32162 SHUTASK CAF PRIO27 # ESTABLISH JOB TO RESUME SHUTDOWN PROCESS 02052 TC NOVAC 67306 CADR SHUTJOB1 02256 TC TASKOVER >025722,002476: 33,7371 20017 SETSEP INHINT 32146 CAF PRIO12 02046 TC FINDVAC # CM/SM SEPARATION ATTITUDE 67404 CADR SEPMANU 3">025727,002481: 33,7375 03401 SETATTC TC RELAYON # SET SCS ATT. CONTROL DISCRETE (C23) 40001 OCT 40001 02124 TC ENDOFJOB 3">025732,002486: 33,7400 00031 0.25S33 DEC 25 B-14 333">025733,002487: 33,7401 00536 3.5SEC33 DEC 350 B-14 >025734,002488: 33,7402 00764 5SEC33 DEC 500 B-14 >025735,002489: 33,7403 01274 7SEC33 DEC 700 B-14 5">025738,002492: 33,7404 02362 SEPMANU TC NEWMODE # SET MAJOR MODE TO SEPARATION MANEUVER 00061 OCT 00061 04000 TC INTPRET 73175 UNIT 1 # COMPUTE DESIRED S/C ORIENTATION FOR 75633 VXSC COMP # CM/SM SEPARATION 00774 VN 27437 COS60 47575 NOLOD 1 41753 VXV UNIT 00766 RN 33417 STORE YSCD # YSCD IS ALONG (RN*VN) 47573 NOLOD 3 41753 VXV UNIT 75642 VXSC VAD 47176 COMP 00774 VN 27435 SIN60 33411 STORE XSCD # XSCD IS 60 DEG ABOVE VELOCITY VECTOR 47575 NOLOD 1 41753 VXV UNIT 01417 YSCD 33425 STORE ZSCD 76776 ITC 0 # BRANCH TO PERFORM MANEUVER TO THE 26420 ATTIJOB1 # SEPARATION ATTITUDE /a>025769,002523: 33,7434 33555 01106 SIN60 2DEC 0.86603 /a>025770,002524: 33,7436 20000 00000 COS60 2DEC 0.5 34B">025773,002527: 33,7440 36570 CDUXTASK CAF 5SEC # ALLOW 5 SECS FOR CDUX RESOLVER SCALE 02173 TC WAITLIST # CHANGE 67522 CADR CM/SMTSK 34501 CAF PRIO20 02046 TC FINDVAC 67454 CADR CDUXJOB 03413 TC RELAYOFF # SET SCS TO MONITOR MODE 40007 OCT 40007 33520 CAF TWELVE 02312 TC NEWPHASE 00003 OCT 00003 02256 TC TASKOVER 2">025792,002546: 33,7454 40700 CDUXJOB CS THETAD 40000 COM 51314 TS CDUTEMP 11314 CCS CDUTEMP # GET MAGNITUDE OF THETAD 64516 AD ONE 07463 TC +2 64516 AD ONE 50115 TS MPAC # AND SAVE IT 25777 EXTEND # FIND NEAREST INTEGER MULTIPLE OF 1/16 47533 MP 15/16TH 64504 AD BIT11 77534 MASK HIGH4 30115 XCH MPAC # AND SAVE IT 25777 EXTEND # SHIFT ORIGINAL THETAD RIGHT 4 PLACES 44504 MP BIT11 60115 AD MPAC # AND ADD INTEGER MULTIPLE 20017 INHINT 50700 TS THETAD 11314 CCS CDUTEMP # ATTACH SIGN OF ORIGINAL THETAD 30115 XCH MPAC # MPAC HAS POSITIVE CDUBIAS 07504 TC +4 40700 CS THETAD 50700 TS THETAD 40115 CS MPAC # COMPLEMENT INTEGER MULTIPLE 51450 TS K1ROLL # SCALED AT 1/2 REV FOR ENTRY 20016 RELINT 02276 TC PHASCHNG 01503 OCT 01503 133">025826,002580: 33,7510 03446 REDO3.13 TC FLAG2UP # SET CDUX FLAG 20000 OCT 20000 05654 TC BANKCALL # CHANGE IMUCDU MODE TO RE-ENTRY 30216 CADR IMUREENT 05654 TC BANKCALL # WAIT FOR COMPLETION OF MODE SWITCH 30331 CADR IMUSTALL 03074 TC CURTAINS # CATCH-ALL FOR MODE SWITCH FAILURES 02276 TC PHASCHNG 01603 OCT 01603 02124 TC ENDOFJOB 34B">025843,002597: 33,7522 03401 CM/SMTSK TC RELAYON # SET SCS ENTRY MODE AND CM/SM SEPARATION 40014 OCT 40014 # DISCRETES 33523 CAF FIFTN 02312 TC NEWPHASE 00003 OCT 00003 36570 CAF 5SEC # SET CALL TO START PRE-ENTRY ATTITUDE 02173 TC WAITLIST # MANEUVER IN 5 SECS 67535 CADR ENTATASK 02256 TC TASKOVER 8">025856,002610: 33,7533 36000 15/16TH OCT 36000 /a>025857,002611: 33,7534 74000 HIGH4 OCT 74000 34B">025860,002614: 33,7535 32146 ENTATASK CAF PRIO12 02046 TC FINDVAC 67541 CADR ENTAJOB 02256 TC TASKOVER 2">025868,002622: 33,7541 02362 ENTAJOB TC NEWMODE # SET MAJOR MODE TO PRE-ENTRY MANEUVER 00062 OCT 00062 35501 CAF ZERO 51472 TS ROLLC # ROLLC = +0 51473 TS ROLLC +1 04000 TC INTPRET 71174 ABVAL 2 66756 DSU BMN 41423 LODON DMOVE 00774 VN 21510 DOWNVEL 27560 GOGETUNB 21212 HALVE 33473 STORE ROLLC E42">025886,002640: 33,7557 76776 GOGETUNB ITC 0 # COMPUTE DESIRED NAV BASE COORDS. 21242 GETUNB 76776 ITC 0 # GET DESIRED S/C COORSD 12213 CALCNBSC 75176 VMOVE 0 # TRANSFER DESIRED S/C UNIT VECTORS 01367 XSC 33411 STORE XSCD 75176 VMOVE 0 01375 YSC 33417 STORE YSCD 75176 VMOVE 0 01403 ZSC 33425 STORE ZSCD 76776 ITC 0 # BRANCH TO PERFORM MANEUVER TO PRE-ENTRY 26420 ATTIJOB1 # ATTITUDE 3">025907,002661: 33,7576 00007 ABORT33 OCT 00007 # (OR OF ARRST,TABT,ABRT) BANK 1 E">025913,002667: 3401 20001 RELAYON INDEX Q 40000 CS 0 20017 INHINT 70725 MASK DSPTAB +13D 20001 INDEX Q 60000 AD 0 50725 TS DSPTAB +13D 20016 RELINT 20001 INDEX Q 00001 TC 1 646">025924,002678: 3413 20001 RELAYOFF INDEX Q 40000 CS 0 20017 INHINT 70725 MASK DSPTAB +13D 64500 AD BIT15 50725 TS DSPTAB +13D 20016 RELINT 20001 INDEX Q 00001 TC 1 0">025934,002688: 3424 20001 FLAG1UP INDEX Q 40000 CS 0 20017 INHINT 70646 MASK FLAGWRD1 20001 INDEX Q 60000 AD 0 50646 TS FLAGWRD1 20016 RELINT 20001 INDEX Q 00001 TC 1 74E">025945,002699: 3436 20001 FLAG1DWN INDEX Q 40000 CS 0 20017 INHINT 70646 MASK FLAGWRD1 50646 TS FLAGWRD1 20016 RELINT 20001 INDEX Q 00001 TC 1 0">025954,002708: 3446 20001 FLAG2UP INDEX Q 40000 CS 0 20017 INHINT 70647 MASK FLAGWRD2 20001 INDEX Q 60000 AD 0 50647 TS FLAGWRD2 20016 RELINT 20001 INDEX Q 00001 TC 1 74E">025965,002719: 3460 20001 FLAG2DWN INDEX Q 40000 CS 0 20017 INHINT 70647 MASK FLAGWRD2 50647 TS FLAGWRD2 20016 RELINT 20001 INDEX Q 00001 TC 1 357">025974,002728: 3470 43501 SETBRNSW CS BURNMASK 20017 INHINT 70647 MASK FLAGWRD2 20001 INDEX Q 60000 AD 0 50647 TS FLAGWRD2 20016 RELINT 20001 INDEX Q 00001 TC 1 34B">025984,002738: 3501 00177 BURNMASK OCT 00177 144">025988,002742: 3502 20017 SETHETAD INHINT 40047 CS CDUX 40000 COM 50700 TS THETAD 40050 CS CDUY 40000 COM 50701 TS THETAD +1 40051 CS CDUZ 40000 COM 50702 TS THETAD +2 20016 RELINT 00001 TC Q >026003,002757: 3516 00011 NINE DEC 9 B-14 >026004,002758: 3517 00013 ELEVEN OCT 00013 /a>026005,002759: 3520 3517 11DEC EQUALS ELEVEN >026006,002760: 3520 00014 TWELVE OCT 00014 >026007,002761: 3521 00015 THIRTN OCT 00015 54E">026008,002762: 3522 3521 THIRTEEN EQUALS THIRTN >026009,002763: 3522 00016 FOURTN OCT 00016 /a>026010,002764: 3523 00017 FIFTN OCT 00017 /a>026011,002765: 3524 00020 SIXTN OCT 00020 E">026012,002766: 3525 00021 SEVENTN OCT 00021 >026013,002767: 3526 00022 EIGHTN OCT 00022 54E">026014,002768: 3527 00023 NINETEEN DEC 19 B-14 0">026015,002769: 3530 00024 TWENTY0 OCT 00024 >026016,002770: 3531 3530 TWENTY EQUALS TWENTY0 1">026017,002771: 3531 00025 TWENTY1 OCT 00025 2">026018,002772: 3532 00026 TWENTY2 OCT 00026 3">026019,002773: 3533 00027 TWENTY3 OCT 00027 4">026020,002774: 3534 00030 TWENTY4 OCT 00030 5">026021,002775: 3535 00031 TWENTY5 OCT 00031 6">026023,002777: 3536 00032 TWENTY6 DEC 26 B-14 7">026025,002779: 3537 00033 TWENTY7 DEC 27 B-14 8">026027,002781: 3540 00034 TWENTY8 DEC 28 B-14 9">026028,002782: 3541 00035 TWENTY9 DEC 29 B-14 >026029,002783: 3542 00036 THIRTY DEC 30 B-14 /a>026030,002784: 3543 3542 30DEC EQUALS THIRTY /a>026031,002785: 3543 00050 FORTY DEC 40 B-14 /a>026032,002786: 3544 3543 40DEC EQUALS FORTY /a>026033,002787: 3544 00062 FIFTY DEC 50 B-14 /a>026034,002788: 3545 3544 50DEC EQUALS FIFTY /a>026035,002789: 3545 00074 SIXTY DEC 60 B-14 /a>026036,002790: 3546 3545 60DEC EQUALS SIXTY >026037,002791: 3546 00144 100DEC DEC 100 B-14 >026038,002792: 3547 00310 200DEC DEC 200 B-14 >026039,002793: 3550 00454 300DEC DEC 300 B-14 >026040,002794: 3551 00620 400DEC DEC 400 B-14 >026041,002795: 3552 00764 500DEC DEC 500 B-14 >026042,002796: 3553 01130 600DEC DEC 600 B-14 244">026043,002797: 3554 3553 SIXHNDRD EQUALS 600DEC 3">026044,002798: 3554 01750 1000DEC DEC 1000 B-14 3">026045,002799: 3555 03720 2000DEC DEC 2000 B-14 202_MISSION_CONTROL_PROGRAM.agc. Parent file is MAIN.agc