Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
028267,000002: ## Copyright: Public domain. 028268,000003: ## Filename: MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc 028269,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0. 028270,000005: ## It is part of an early development version of the software 028271,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar 028272,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program 028273,000008: ## upon which Don Eyles's offline development program Shepatin 028274,000009: ## was based; the listing herein transcribed was actually for 028275,000010: ## the equivalent revision 0 of Shepatin. 028276,000011: ## This file is intended to be a faithful transcription, except 028277,000012: ## that the code format has been changed to conform to the 028278,000013: ## requirements of the yaYUL assembler rather than the 028279,000014: ## original YUL assembler. 028280,000015: ## Reference: pp. 632-643 028281,000016: ## Assembler: yaYUL 028282,000017: ## Contact: Ron Burkey <info@sandroid.org>. 028283,000018: ## Website: www.ibiblio.org/apollo/index.html 028284,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120. 028285,000020: ## 2017-06-13 RSB Transcribed. 028286,000021: ## 2017-06-13 HG Fix operator DXCH ->QXCH 028287,000022: ## Fix operator REFSSMAT -> REFSMMAT 028288,000023: ## Fix comment (missing #) near label SHOW12 028289,000024: ## 2017-06-22 RSB Proofed comment text with 028290,000025: ## octopus/ProoferComments. 028291,000026:
|
|
Page 632 |
028293,000028: # PROGRAM NAME - MISSION PHASE 2 GUIDANCE REFERENCE RELEASE + BOOST MONITOR. 028294,000029: 028295,000030: # MODIFICATION NUMBER - 1 DATE - NOVEMBER 22, 1966 MODIFICATION BY - COVELLI 028296,000031: 028297,000032: 028298,000033: 028299,000034: # FUNCTIONAL DESCRIPTION - 028300,000035: 028301,000036: # THE FUNCTION OF MISSION PHASE 2 IS TO CONTROL THE SEQUENCE OF EVENTS IN THE 206 FLIGHT FROM GUIDANCE 028302,000037: # REFERENCE RELEASE THROUGH LIFTOFF TO THE SIVB BOOSTER SHUTDOWN. 028303,000038: 028304,000039: # AT GUIDANCE REFERENCE RELEASE, THE GRR FLAG IS SET, PREREAD IS CALLED TO BEGIN COMPUTATION OF POSITION AND 028305,000040: # VELOCITY, AND CALLS ARE MADE FOR DFI T/M CALIBRATION AND LIFTOFF 028306,000041: 028307,000042: # WHEN PRELAUNCH DETECTS THAT THE GRR FLAG IS SET, IT TERMINATES GYROCOMPASSING AND CALLS MP2JOB. MP2JOB 028308,000043: # DISPLAYS 7 IN THE MAJOR MODE AND GOES TO MATRXJOB TO COMPUTE REFSMMAT. 028309,000044: 028310,000045: # AT LIFTOFF, THE LGC CLOCK IS ZEROED, CALLS ARE MADE FOR THE COLD FIRE PURGE AND POST LET JETTISON PROGRAMS. 028311,000046: # THE MAJOR MODE IS CHANGED TO 11. 028312,000047: 028313,000048: # AT POST LET JETTISON, THE DV MONITOR IS ENABLED TO DETECT BOOSTER SHUTDOWN, THE ABORT COMMAND MONITOR AND THE 028314,000049: # TUMBLE MONITOR ARE ENABLED, AND THE MAJOR MODE IS CHANGED TO 12. 028315,000050: 028316,000051: # THE VARIOUS LMP COMMANDS REQUIRED FOR MP2 ARE SCHEDULED BY WAITLIST CALLS. 028317,000052: 028318,000053: # AT DETECTION OF SIVB SHUTDOWN, AN EXECUTIVE CALL IS MADE TO MISSION PHASE 6. 028319,000054: 028320,000055: 028321,000056: 028322,000057: # CALLING SEQUENCE : 028323,000058: 028324,000059: # MISSION PHASE 2 IS BEGUN UPON RECEIPT OF THE GUIDANCE REFERENCE RELEASE SIGNAL (VERB 65 ENTER) VIA UPLINK. 028325,000060: 028326,000061: 028327,000062: 028328,000063: # SUBROUTINES CALLED : 028329,000064: 028330,000065: # PREREAD 1LMP 028331,000066: # TUMTASK 2LMP 028332,000067: # NEWMODEX PHASCHNG 028333,000068: # FINDVAC NEWPHASE 028334,000069: # NOVAC DFITMCAL 028335,000070: # SPVAC IBNKCALL 028336,000071: # WAITLIST 028337,000072: # LONGCALL 028338,000073: 028339,000074: 028340,000075: 028341,000076: # NORMAL EXIT MODES :
|
|
Page 633 |
028343,000078: # EXIT TO MISSION PHASE 6 AT SIVB SHUTDOWN. 028344,000079: 028345,000080: 028346,000081: 028347,000082: # ABORT EXIT MODES : 028348,000083: 028349,000084: # TO MISSION PHASE 3 IF SUBORBITAL ABORT COMMAND RECEIVED VIA UPLINK. 028350,000085: # TO MISSION PHASE 4 IF CONTINGENCY ORBIT INSERTION COMMAND RECEIVED VIA UPLINK. 028351,000086: 028352,000087: # TO CHARALRM IF EITHER OF THE ABOVE ABORT COMMANDS RECEIVED WHILE ABORT COMMAND MONITOR NOT ENABLED. 028353,000088: 028354,000089: 028355,000090: 028356,000091: # OUTPUT : 028357,000092: 028358,000093: # TGRR TIME OF GUIDANCE REFERENCE RELEASE 028359,000094: # TPRELTER TIME OF GYROCOMPASSING TERMINATION 028360,000095: # TLIFTOFF TIME OF LIFTOFF AND LGC CLOCK ZEROING 028361,000096: # GRR FLAG BIT2 FLAGWRD1 SET TO INDICATE GRR SIGNAL RECEIVED 028362,000097: # SERVICER IS GOING AT END OF MISSION PHASE 2
|
|
In the printout, the next two lines, "R000052" and "R000053" are overprinted and not entirely legible. The text of the following line has thus been taken from the corresponding line in SUNBURST 120. — RSB |
028366,000101: # MAJOR MODE DISPLAYS 028367,000102: # ERASABLE INITIALIZATION : 028368,000103: 028369,000104: # DT-DFITM DELTA TIME FROM GRR TO DFI T/M CALIBRATION, SINGLE PRECISION SCALED AT 2(+14) CS. 028370,000105: # DT-LIFT DELTA TIME FROM GRR TO LIFTOFF, DOUBLE PRECISION SCALED AT 2(+28) CS. 028371,000106: # DT-LETJT DELTA TIME FROM LIFTOFF TO POST LET JETTISON, DOUBLE PRECISION SCALED AT 2(+28) CS. 028372,000107: # RAVEGON POSITION AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+24) M. 028373,000108: # VAVEGON VELOCITY AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+7) M/CS. 028374,000109: 028375,000110: # ******** ALL OF THE ERASABLE INITIALIZATION MUST BE DONE DURING THE PRE-LAUNCH ERASABLE LOAD ***************** 028376,000111: 028377,000112: 028378,000113: 028379,000114: # DEBRIS : 028380,000115: 028381,000116: # CENTRALS AND EXECUTIVE WORK AREA. 028382,000117: 028383,000118: 028384,000119: 028385,000120: 27,2000 BANK 27 028386,000121: 27,2000 E3,1746 EBANK= TGRR 028387,000122: 028388,000123: 028389,000124: 028390,000125: 27,2000 36301 GRRPLACE CAF THREE # COME HERE ON VERB 65 - GRR 028391,000126: 27,2001 04234 TC NEWPHASE 028392,000127: 27,2002 00002 OCT 00002
|
|
Page 634 |
028394,000129: 27,2003 00004 INHINT 028395,000130: 27,2004 32024 CA MP2BBSET # SET BBCON FOR MP2 028396,000131: 27,2005 54006 TS BBANK 028397,000132: 028398,000133: 27,2006 00006 EXTEND 028399,000134: 27,2007 30025 DCA TIME2 028400,000135: 27,2010 53747 DXCH TGRR # SAVE TIME OF GUIDANCE REFERENCE RELEASE 028401,000136: 028402,000137: 27,2011 40075 CS FLAGWRD1 028403,000138: 27,2012 77754 MASK BIT2 028404,000139: 27,2013 26075 ADS FLAGWRD1 # GET GRR FLAG BIT2 FLAGWRD1 028405,000140: 028406,000141: 27,2014 31760 CA DT-DFITM 028407,000142: 27,2015 05701 TC WAITLIST # SET UP DFI T/M CALIBRATION ROUTINE 028408,000143: 27,2016 E3,1746 EBANK= TGRR 028409,000144: 27,2016 02204 56003 2CADR PREDFITM 028410,000145: 028411,000146: 27,2020 00006 EXTEND 028412,000147: 27,2021 31757 DCA DT-LIFT 028413,000148: 27,2022 05757 TC LONGCALL # SET UP CALL TO LIFTOFF PROGRAM 028414,000149: 27,2023 E3,1746 EBANK= TGRR 028415,000150: 27,2023 02240 56003 MP2BBS-1 2CADR LIFTOFF 028416,000151: 028417,000152: 27,2025 32360 CA AVEGADRS 028418,000153: 27,2026 55322 TS DVSELECT 028419,000154: 028420,000155: 27,2027 00006 EXTEND 028421,000156: 27,2030 32456 DCA SVEXADRS 028422,000157: 27,2031 53073 DXCH AVGEXIT 028423,000158: 028424,000159: 27,2032 00006 EXTEND 028425,000160: 27,2033 32456 DCA SVEXADRS 028426,000161: 27,2034 53075 DXCH DVMNEXIT 028427,000162: 028428,000163: 27,2035 37755 CA ONE 028429,000164: 27,2036 05701 TC WAITLIST 028430,000165: 27,2037 E5,1506 EBANK= DVTOTAL 028431,000166: 27,2037 02011 60065 2CADR BIBIBIAS # START SERVICER WITH NO LAST BIAS 028432,000167: 028433,000168: 27,2041 37761 CAF ZERO 028434,000169: 27,2042 04234 TC NEWPHASE 028435,000170: 27,2043 00002 OCT 00002 028436,000171: 27,2044 37743 CAF EBANK4 028437,000172: 27,2045 54002 TS Q # E4 IN Q 028438,000173: 27,2046 00006 EXTEND 028439,000174: 27,2047 31747 DCA TGRR # IN A,L 028440,000175: 27,2050 00006 EXTEND 028441,000176: 27,2051 22003 QXCH EBANK # SWITCH EBANK, SAVE OLD IN Q 028442,000177: 27,2052 E4,1723 EBANK= TEVENT 028443,000178: 27,2052 53724 DXCH TEVENT # SET TGRR IN TEVENT
|
|
Page 635 |
028445,000180: 27,2053 E3,1746 EBANK= TGRR 028446,000181: 27,2053 00006 EXTEND 028447,000182: 27,2054 22003 QXCH EBANK # RESTORE EBANK 028448,000183: 028449,000184: 27,2055 15605 TCF ENDOFJOB 028450,000185: 028451,000186: 27,2056 27,2024 MP2BBSET EQUALS MP2BBS-1 +1 # BBCON FOR MP2 028452,000187: 028453,000188: 028454,000189: 27,2056 04147 MP2JOB TC PHASCHNG 028455,000190: 27,2057 01022 OCT 01022 # PICK UP HERE ON RESTART 028456,000191: 028457,000192: 27,2060 37754 CAF TWO # SET 2 IN MISSION PHASE REGISTER 028458,000193: 27,2061 54765 TS PHASENUM 028459,000194: 028460,000195: 27,2062 00006 EXTEND 028461,000196: 27,2063 31155 DCA TEMTPREL # SAVE TIME OF PRELAUNCH TERMINATION 028462,000197: 27,2064 53753 DXCH TPRELTER 028463,000198: 028464,000199: 27,2065 04105 SHOW7 TC NEWMODEX # DISPLAY 7 IN MAJOR MODE 028465,000200: 27,2066 00007 OCT 00007 028466,000201: 028467,000202: # GO TO MATRXJOB TO COMPUTE REFSMMAT 028468,000203:
|
|
Page 636 |
028470,000205: # PROGRAM DESCRIPTION- MATRXJOB DATE- 18 NOV 1966 028471,000206: # MOD NO- 1 LOG SECTION- MP 2 GRR + BOOST MONITOR 028472,000207: # MOD BY- LICKLY, KERNAN ASSEMBLY- SUNBURST REVISION 8 028473,000208: 028474,000209: # FUNCTIONAL DESCRIPTION 028475,000210: 028476,000211: # THIS PROGRAM CONSTRUCTS THE MATRIX WHICH RELATES THE STABLE MEMBER INERTIAL FRAME TO THE REFERENCE 028477,000212: # FRAME (Z NORTH, X ALONG THE VERNAL EQUINOX.) 028478,000213: 028479,000214: # TWO INTERMEDIATE COORDINATE SYSTEMS ARE USED: A LOCAL, EARTH FIXED, VERTICAL, SOUTH, EAST SYSTEM AND AN 028480,000215: # EARTH REFERENCE X, Y, Z SYSTEM. IN THIS LATTER SYSTEM, THE Z AXIS IS THE EARTH'S ROTATION AXIS, THE X AXIS IS 028481,000216: # NORMAL TO Z IN THE PLANE OF Z AND THE LOCAL VERTICAL, POSITIVE IN THE DIRECTION OF V. Y IS Z CROSS X. 028482,000217: 028483,000218: # THE FIRST COMPUTATION IS OF AZGR, THE ANGLE BETWEEN THE REFERENCE INERTIAL AND EARTH REFERENCE X-Z 028484,000219: # PLANES (THE Z AXES ARE COINCIDENT). AZGR IS COMPUTED BY CONVERTING THE TIME FROM THE BEGINNING OF THE EPHEMERIS 028485,000220: # YEAR TO RELEASE (TEPHEM + TPRELTER) TO REVOLUTIONS (DAYS). THE WHOLE REVS ARE DISCARDED AND THE INITIAL ANGLE 028486,000221: # (AZ0) BETWEEN THE GREENWICH MERIDIAN AND THE REFERENCE X-Z PLANES IS ADDED. ADDING THE LONGITUDE YIELDS AZGR. 028487,000222: 028488,000223: # THE FOLLOWING COMPUTATIONS ARE THEN PERFORMED. 028489,000224: 028490,000225: # LOCAL VERTICAL(ER) = COS(LATITUDE), 0, SIN(LATITUDE) IN EARTH REFERENCE 028491,000226: 028492,000227: # LOCAL VERTICAL(IR) = COS(LAT)COS(AZGR), COS(LAT)SIN(AZGR), SIN(LAT) IN INERTIAL REFERENCE 028493,000228: 028494,000229: # LOCAL EAST(IR) = NXV = -COS(LAT)SIN(AZGR), COS(LAT)COS(AZGR), 0 IN INERTIAL REFERENCE 028495,000230: 028496,000231: # LOCAL SOUTH(IR) = E(IR) X V(IR) 028497,000232: 028498,000233: # THE RELATIONSHIP OF THE STABLE MEMBER AXES TO THE V, S, E AXES IS GIVEN BY ZSMAZ, THE ANGLE FROM NORTH 028499,000234: # TO ZSM, AND TILT, THE ANGLE ABOUT ZSM FROM VERTICAL TO XSM. 028500,000235: 028501,000236: # ZSM(IR) = EAST(IR)COS(ZSMAZ - 90) + SOUTH(IR)SIN(ZSMAZ - 90) 028502,000237: 028503,000238: # YSM(IR) = (ZSM(IR) X V(IR))COS(TILT) - V(IR)SIN(TILT) 028504,000239: 028505,000240: # XSM(IR) = YSM(IR) X ZSM(IR) 028506,000241: 028507,000242: # THESE THREE HALF-UNIT VECTORS, XSM(IR), YSM(IR), AND ZSM(IR) ARE THE SM AXES EXPRESSED IN INERTIAL 028508,000243: # REFERENCE COORDINATES AND THEY FORM REFSMMAT, THE REFERENCE TO STABLE MEMBER MATRIX. 028509,000244: 028510,000245: # THE INPUT (PRELAUNCH ERASABLE LOAD) REQUIREMENTS ARE: 028511,000246: 028512,000247: # 1) TEPHEM THE TRIPLE PRECISION TIME IN CENTISECONDS FROM MIDNIGHT JULY 1, OF THE EPHEMERIS YEAR TO 028513,000248: # MIDNIGHT OF THE LAUNCH DAY (SIDEREAL CONVERTED TO MEAN SOLAR.) 028514,000249: 028515,000250: # IT IS ASSUMED THAT DURING THE LAUNCH COUNTDOWN THE LGC CLOCK (TIME2, TIME1) WILL BE ALIGNED TO REFLECT A 028516,000251: # ZERO VALUE AT MIDNIGHT OF THE LAUNCH DAY. IF NOT, THE DIFFERENCE MUST BE ADDED TO TEPHEM. 028517,000252: 028518,000253: # 2) TILT THE ROTATION OF XSM ABOUT ZSM (RIGHT HAND RULE) FROM VERTICAL IN REVOLUTIONS. 028519,000254:
|
|
Page 637 |
028521,000256: # 3) ZSMAZ THE ANGLE FROM NORTH TO ZSM IN REVOLUTIONS. 028522,000257: 028523,000258: # THE OUTPUTS OF THIS PROGRAM ARE: 028524,000259: 028525,000260: # 1) REFSMMAT THE HALF-UNIT MATRIX WHICH TRANSFORMS FROM REFERENCE INERTIAL TO SM INERTIAL. 028526,000261: 028527,000262: # 2) AZGR THE ANGLE BETWEEN PAD 37 B VERTICAL AND THE REFERENCE X-Z PLANE IN REVOLUTIONS. 028528,000263: 028529,000264: # CALLING SEQUENCE : CONTINUATION OF MP2JOB 028530,000265: # NORMAL EXIT MODE- TC ENDOFJOB 028531,000266: 028532,000267: # ALARM OR ABORT EXITS- NONE 028533,000268: 028534,000269: # DEBRIS- SPECIALS, CENTRALS AND EXECUTIVE WORK AREA. 028535,000270: 028536,000271: 27,2067 06103 MATRXJOB TC INTPRET 028537,000272: 27,2070 54345 DLOAD SR 028538,000273: 27,2071 01753 TPRELTER # MAKE ALIGN STOP TIME TP. 028539,000274: 27,2072 20617 14D 028540,000275: 27,2073 47171 TAD RTB 028541,000276: 27,2074 01772 TEPHEM # TP CS FROM JULY 1 TO LAUNCH DAY. 028542,000277: 27,2075 33606 TPMODE # SET STORE MODE TO TRIPLE. 028543,000278: 27,2076 00025 STORE 20D # TP CS FROM JULY 1 TO RELEASE. 028544,000279: 27,2077 60335 SLOAD NORM 028545,000280: 27,2100 00025 20D 028546,000281: 27,2101 00047 X1 # -9 OR -10. 028547,000282: 27,2102 47005 DMP RTB 028548,000283: 27,2103 16367 WEARTH # REVS PER 2(28)CS. 028549,000284: 27,2104 33565 SGNAGREE 028550,000285: 27,2105 65257 SR* PDDL 028551,000286: 27,2106 20556 0 -19D,1 # GETS RID OF WHOLE REVS. 028552,000287: 27,2107 00026 21D 028553,000288: 27,2110 47005 DMP RTB 028554,000289: 27,2111 16367 WEARTH 028555,000290: 27,2112 33565 SGNAGREE 028556,000291: 27,2113 43261 SLR DAD 028557,000292: 27,2114 21206 5 # DP FRACTION OF A REV. 028558,000293: 27,2115 43215 DAD DAD 028559,000294: 27,2116 16371 AZ0 # MERIDIAN ANGLE AT JULY 1. 028560,000295: 27,2117 16373 P37BLONG # PAD ANGLE TO MERIDIAN. 028561,000296: 27,2120 01764 STORE AZGR # VERT. AZ. AT RELEASE WRT X-Z INERTIAL. 028562,000297: 028563,000298: 27,2121 77756 SIN 028564,000299: 27,2122 71525 PDDL COS 028565,000300: 27,2123 01764 AZGR 028566,000301: 27,2124 73525 PDDL SIN 028567,000302: 27,2125 16375 P37BLAT # LOCAL VERTICAL Z IN EARTH REF. SIN(L). 028568,000303: 27,2126 15301 STODL REFSMMAT +4 # ALSO LOCAL VERT Z IN REF. INERTIAL. 028569,000304: 27,2127 16375 P37BLAT 028570,000305: 27,2130 72546 COS SL1 # SAVES 2 SL'S LATER.
|
|
Page 638 |
028572,000307: 27,2131 00025 STORE 20D # LOCAL VER. X IN EARTH REF. COS(L). 028573,000308: 27,2132 45405 DMP STADR 028574,000309: 27,2133 76502 STORE REFSMMAT # LOCAL VERT X IN INERTIAL = COS(L)COS(AZ) 028575,000310: 27,2134 14150 STODL MPAC +3 # ALSO Y OF EAST IN INERTIAL. 028576,000311: 27,2135 17057 DPZRO 028577,000312: 27,2136 14152 STODL MPAC +5 # Z OF EAST IN INERTIAL = 0. 028578,000313: 27,2137 77605 DMP 028579,000314: 27,2140 00025 20D 028580,000315: 27,2141 01277 STORE REFSMMAT +2 # LOCAL VERT Y IN INERTIAL=COS(L)SIN(AZ). 028581,000316: 27,2142 47076 DCOMP RTB # ALSO -X OF EAST IN INERTIAL. 028582,000317: 27,2143 33563 VECMODE # SET STORE MODE TO VECTOR. 028583,000318: 27,2144 47206 PUSH VXV # EAST INTO PD. 028584,000319: 27,2145 01275 REFSMMAT 028585,000320: 27,2146 77656 UNIT 028586,000321: 27,2147 15311 STODL REFSMMAT +12D # UNIT SOUTH IN INERTIAL INTO REF +12TEMP 028587,000322: 27,2150 01770 ZSMAZ # ZSM WRT NORTH. 028588,000323: 27,2151 41425 DSU PUSH # AZ - 90 = ANG INTO PD. 028589,000324: 27,2152 16377 90DEG 028590,000325: 27,2153 74356 SIN VXSC 028591,000326: 27,2154 01311 REFSMMAT +12D # (STH)SIN(ANG) INTO R +12D (TEMP). 028592,000327: 27,2155 15311 STODL REFSMMAT +12D # ANG FROM PD. 028593,000328: 27,2156 74346 COS VXSC # EAST FROM PD. 028594,000329: 27,2157 53455 VAD UNIT 028595,000330: 27,2160 01311 REFSMMAT +12D 028596,000331: 27,2161 01311 STORE REFSMMAT +12D # ZREFSM = (E)COS(ANG) + (STH)SIN(ANG). 028597,000332: 028598,000333: 27,2162 53435 VXV UNIT 028599,000334: 27,2163 01275 REFSMMAT # YREFSM(UNTILTED)= Z CROSS VERT = Y1. 028600,000335: 27,2164 71525 PDDL COS # INTO PD. 028601,000336: 27,2165 01766 TILT # TILT IS POS ABOUT ZSM FROM UNTILTED YSM. 028602,000337: 27,2166 77761 VXSC 028603,000338: 27,2167 73525 PDDL SIN # (Y1)COS(T) INTO PD. 028604,000339: 27,2170 01766 TILT 028605,000340: 27,2171 51361 VXSC BVSU 028606,000341: 27,2172 01275 REFSMMAT 028607,000342: 27,2173 77656 UNIT 028608,000343: 27,2174 01303 STORE REFSMMAT +6 # YREFSM = (Y1)COS(T) - (VERT)SIN(T). 028609,000344: 028610,000345: 27,2175 53435 VXV UNIT 028611,000346: 27,2176 01311 REFSMMAT +12D 028612,000347: 27,2177 01275 STORE REFSMMAT # XREFSM = Y CROSS Z. 028613,000348: 27,2200 77776 EXIT 028614,000349: 028615,000350: 27,2201 04147 TC PHASCHNG 028616,000351: 27,2202 00072 OCT 00072 # RESTART PREDFITM 028617,000352: 27,2203 05605 TC ENDOFJOB 028618,000353: 028619,000354: 27,2204 04147 PREDFITM TC PHASCHNG 028620,000355: 27,2205 40042 OCT 40042 # PROTECT WAITLIST CALL TO PROG11 028621,000356:
|
|
Page 639 |
028623,000358: 27,2206 05307 DFITMTSK TC IBNKCALL 028624,000359: 27,2207 56211 CADR DFITMCAL 028625,000360: 028626,000361: 27,2210 15745 TCF TASKOVER 028627,000362: 028628,000363: 27,2211 05073 DFITMCAL TC 1LMP # MUST BE CALLED BY IBNKCALL (OR ISWCALL) 028629,000364: 27,2212 00354 DEC 236 B-14 # IN INTERRUPT OR INHIBITED 028630,000365: 27,2213 32363 CA 12SEC 028631,000366: 27,2214 05701 TC WAITLIST # CALL DFITMCL1 IN 12 SECONDS 028632,000367: 27,2215 E3,1746 EBANK= TGRR 028633,000368: 27,2215 02220 56003 2CADR DFITMCL1 028634,000369: 028635,000370: 27,2217 15322 TCF ISWRETRN 028636,000371: 028637,000372: 27,2220 05065 DFITMCL1 TC 2LMP 028638,000373: 27,2221 00355 DEC 237 B-14 # DFI T/M CALIBRATE OFF 028639,000374: 27,2222 00306 DEC 198 B-14 # MASTER C+W ALARM RESET - COMMAND 028640,000375: 27,2223 04147 TC PHASCHNG 028641,000376: 27,2224 40113 OCT 40113 # PROTECT DFITMCL2 028642,000377: 028643,000378: 27,2225 32362 CA 200CS 028644,000379: 27,2226 05701 TC WAITLIST # CALL DFITMCL2 IN 2 SECONDS 028645,000380: 27,2227 E3,1746 EBANK= TGRR 028646,000381: 27,2227 02232 56003 2CADR DFITMCL2 028647,000382: 028648,000383: 27,2231 15745 TCF TASKOVER 028649,000384: 028650,000385: 27,2232 05073 DFITMCL2 TC 1LMP 028651,000386: 27,2233 00307 DEC 199 B-14 # MASTER C+W ALARM RESET - COMMAND RESET 028652,000387: 27,2234 37761 CA ZERO 028653,000388: 27,2235 04234 TC NEWPHASE 028654,000389: 27,2236 00003 OCT 00003 # GROUP 3 INACTIVE 028655,000390: 27,2237 15745 TCF TASKOVER 028656,000391: 028657,000392: 27,2240 00006 LIFTOFF EXTEND 028658,000393: 27,2241 30025 DCA TIME2 028659,000394: 27,2242 53751 DXCH TLIFTOFF # SAVE TIME OF LIFTOFF 028660,000395: 028661,000396: 27,2243 04147 TC PHASCHNG 028662,000397: 27,2244 01013 OCT 01013 # PICK UP HERE ON RESTART 028663,000398: 028664,000399: 27,2245 37761 CA ZERO 028665,000400: 27,2246 54001 TS L 028666,000401: 27,2247 52025 DXCH TIME2 # ZERO TIME2, TIME1 028667,000402: 028668,000403: 27,2250 04147 TC PHASCHNG 028669,000404: 27,2251 40062 OCT 40062 # PROTECT RCSPURGE AND SHOW11 028670,000405: 028671,000406: 27,2252 32365 CA 105SEC 028672,000407:
|
|
Page 640 |
028674,000409: 27,2253 05701 TC WAITLIST # CALL RCSPURGE IN 105 SECONDS 028675,000410: 27,2254 E3,1746 EBANK= TGRR 028676,000411: 028677,000412: 27,2254 02306 56003 2CADR RCSPURGE 028678,000413: 028679,000414: 27,2256 00006 EXTEND 028680,000415: 27,2257 31762 DCA DT-LETJT 028681,000416: 27,2260 05757 TC LONGCALL 028682,000417: 27,2261 E3,1746 EBANK= TGRR 028683,000418: 27,2261 02316 56003 2CADR POSTLET 028684,000419: 028685,000420: 27,2263 37740 CA PRIO20 028686,000421: 27,2264 05523 TC NOVAC 028687,000422: 27,2265 E3,1746 EBANK= TGRR 028688,000423: 27,2265 02301 56003 2CADR SHOW11 028689,000424: 028690,000425: 27,2267 37743 CAF EBANK4 028691,000426: 27,2270 54002 TS Q # E4 IN Q 028692,000427: 27,2271 00006 EXTEND 028693,000428: 27,2272 31751 DCA TLIFTOFF # IN A,L 028694,000429: 27,2273 00006 EXTEND 028695,000430: 27,2274 22003 QXCH EBANK # SWITCH EBANK, SAVE OLD IN Q 028696,000431: 27,2275 E4,1723 EBANK= TEVENT 028697,000432: 27,2275 53724 DXCH TEVENT # SET TLIFTOFF IN TEVENT 028698,000433: 27,2276 E3,1746 EBANK= TGRR 028699,000434: 27,2276 00006 EXTEND 028700,000435: 27,2277 22003 QXCH EBANK # RESTORE EBANK 028701,000436: 028702,000437: 27,2300 15745 TCF TASKOVER 028703,000438: 028704,000439: 27,2301 04105 SHOW11 TC NEWMODEX 028705,000440: 27,2302 00011 OCT 00011 # DISPLAY 11 IN MAJOR MODE 028706,000441: 028707,000442: 27,2303 04147 TC PHASCHNG 028708,000443: 27,2304 00132 OCT 00132 # PROTECT RCSPURGE 028709,000444: 27,2305 15605 TCF ENDOFJOB 028710,000445: 028711,000446: 27,2306 32400 RCSPURGE CA +XJETSON 028712,000447: 27,2307 00006 EXTEND 028713,000448: 27,2310 01005 WRITE 5 # TURN ON +X TRANSLATION 028714,000449: 028715,000450: 27,2311 32364 CA 75SEC 028716,000451: 27,2312 05701 TC WAITLIST # CALL +X TRANSLATION OFF IN 75 SECONDS 028717,000452: 27,2313 E3,1746 EBANK= TGRR 028718,000453: 27,2313 02337 56003 2CADR PURGEOFF 028719,000454: 028720,000455: 27,2315 15745 TCF TASKOVER 028721,000456: 028722,000457: 028723,000458: 27,2316 32361 POSTLET CA BOOSTADR # MONITOR DELV FOR BOOSTER SHUTDOWN 028724,000459: 27,2317 55322 TS DVSELECT
|
|
Page 641 |
028726,000461: 028727,000462: 27,2320 40076 CS FLAGWRD2 # ENABLE ABORT COMMAND MONITOR 028728,000463: 27,2321 77745 MASK BIT9 # BIT 9 FLAGWORD 2 028729,000464: 27,2322 26076 ADS FLAGWRD2 028730,000465: 028731,000466: 27,2323 37755 CA BIT1 028732,000467: 27,2324 05701 TC WAITLIST # ENABLE TUMBLE MONITOR 028733,000468: 27,2325 E6,1423 EBANK= OMEGA 028734,000469: 27,2325 02402 60066 2CADR TUMTASK 028735,000470: 028736,000471: 028737,000472: 27,2327 37740 CA PRIO20 028738,000473: 27,2330 05523 TC NOVAC 028739,000474: 27,2331 E3,1746 EBANK= TGRR 028740,000475: 27,2331 02334 56003 2CADR SHOW12 028741,000476: 028742,000477: 27,2333 15745 TCF TASKOVER 028743,000478: 028744,000479: 27,2334 04105 SHOW12 TC NEWMODEX 028745,000480: 27,2335 00012 OCT 00012 # DISPLAY 12 IN MAJOR MODE 028746,000481: 27,2336 15605 TCF ENDOFJOB 028747,000482: 028748,000483: 27,2337 37761 PURGEOFF CA ZERO 028749,000484: 27,2340 00006 EXTEND 028750,000485: 27,2341 01005 WRITE 5 # TURN OFF RCS JETS 028751,000486: 028752,000487: 27,2342 05073 TC 1LMP 028753,000488: 27,2343 00272 DEC 186 B-14 # ECS PRIMARY WATER VALVE OPEN 028754,000489: 028755,000490: 27,2344 04147 TC PHASCHNG 028756,000491: 27,2345 40172 OCT 40172 # PROTECT WATEROFF 028757,000492: 028758,000493: 27,2346 32362 CA 200CS 028759,000494: 27,2347 05701 TC WAITLIST # CALL WATEROFF IN 2 SECONDS 028760,000495: 27,2350 E3,1746 EBANK= TGRR 028761,000496: 27,2350 02353 56003 2CADR WATEROFF 028762,000497: 028763,000498: 27,2352 15745 TCF TASKOVER 028764,000499: 028765,000500: 27,2353 05073 WATEROFF TC 1LMP 028766,000501: 27,2354 00273 DEC 187 B-14 # ECS PRIMARY WATER VALVE - OPEN RESET 028767,000502: 27,2355 04147 TC PHASCHNG 028768,000503: 27,2356 00002 OCT 00002 # GROUP 2 INACTIVE 028769,000504: 028770,000505: 27,2357 15745 TCF TASKOVER # END OF MISSION PHASE 2 028771,000506: 028772,000507: 028773,000508: # DELTA T S AND OTHER CONSTANTS FOR MP2 028774,000509: 27,2360 02233 AVEGADRS GENADR AVERAGEG 028775,000510: 27,2361 02214 BOOSTADR GENADR BOOSTMON
|
|
Page 642 |
028777,000512: 27,2362 27,2455 SVEXADRS EQUALS SVEXITAD 028778,000513: 27,2362 00310 200CS DEC 200 B-14 028779,000514: 27,2363 02260 12SEC DEC 1200 B-14 028780,000515: 27,2364 16514 75SEC DEC 7500 B-14 028781,000516: 27,2365 24404 105SEC DEC 10500 B-14 028782,000517: 27,2366 37116 32623 WEARTH 2DEC 31.1539787 B-5 # REVOLUTIONS PER 2(28) CENTISECONDS. 028783,000518: 028784,000519: 27,2370 00000 00000 AZ0 2DEC 0 B-28 # TEMP 028785,000520: 028786,000521: 27,2372 30655 14640 P37BLONG 2DEC .77620852 # 80 DEG 33 MIN 53.76306 SEC WEST 028787,000522: 028788,000523: 27,2374 02422 16752 P37BLAT 2DEC .079252160 # 28 DEG 31 MIN 50.79945 SEC NORTH 028789,000524: 028790,000525: 27,2376 10000 00000 90DEG 2DEC .25 028791,000526: 028792,000527: 27,2400 00252 +XJETSON OCT 00252 # BITS FOR +X TRANSLATION JETS 028793,000528: 028794,000529: 028795,000530: # ABORT COMMAND MONITOR - DETECTS 028796,000531: # SUBORBITAL ABORT AND CONTINGENCY 028797,000532: # ORBIT INSERTION 028798,000533: 028799,000534: 27,2401 00004 SUBABORT INHINT # SUBORBITAL ABORT - ZERO ABORTNDX TO 028800,000535: 27,2402 37761 CAF ZERO # SET UP MISSION PHASE 3 028801,000536: 27,2403 12406 TCF CONORBIT +2 028802,000537: 028803,000538: 27,2404 00004 CONORBIT INHINT # CONTINGENCY ORBIT INSERTION - ABORTNDX 028804,000539: 27,2405 37754 CAF TWO # SET TO 2 TO SET UP MISSION PHASE 4 028805,000540: 27,2406 54001 TS L # SAVE IN L 028806,000541: 27,2407 37745 CAF BIT9 # CHECK WHETHER ABORT COMMAND MONITOR IS 028807,000542: 27,2410 70076 MASK FLAGWRD2 # ENABLED 028808,000543: 27,2411 00006 EXTEND 028809,000544: 27,2412 12450 BZF BADCHAR # IF NOT, GO TO BADCHAR 028810,000545: 27,2413 35370 CAF EBANK3 # SET EBANK 028811,000546: 27,2414 54003 TS EBANK 028812,000547: 27,2415 23760 LXCH ABORTNDX # STORE ABORTNDX 028813,000548: 27,2416 32360 CAF AVEGADRS 028814,000549: 028815,000550: 27,2417 55322 TS DVSELECT # TURN OFF BOOSTMON 028816,000551: 27,2420 00006 EXTEND 028817,000552: 27,2421 32460 DCA ABORTRET # SET UP TO RETURN TO ABORTRTN 028818,000553: 27,2422 52376 DXCH FLUSHREG 028819,000554: 27,2423 05243 TC POSTJUMP 028820,000555: 27,2424 16015 CADR ENEMA # WIPE EVERYTHING OUT 028821,000556: 028822,000557: 028823,000558: 27,2425 00004 ABORTRTN INHINT 028824,000559: 27,2426 00006 EXTEND 028825,000560: 27,2427 32462 DCA ENDJOBC2 # CLEAR FLUSHREG
|
|
Page 643 |
028827,000562: 27,2430 52376 DXCH FLUSHREG 028828,000563: 028829,000564: 27,2431 37755 CAF BIT1 028830,000565: 27,2432 05701 TC WAITLIST # RE-ESTABLISH TUMBLE MONITOR 028831,000566: 27,2433 E6,1423 EBANK= OMEGA 028832,000567: 27,2433 02402 60066 2CADR TUMTASK 028833,000568: 028834,000569: 27,2435 35667 CAF PRIO27 028835,000570: 27,2436 54063 TS NEWPRIO # SET UP MP3 OR MP4 VIA SPVAC 028836,000571: 028837,000572: 27,2437 00006 EXTEND 028838,000573: 27,2440 51760 INDEX ABORTNDX # GET RIGHT 2CADR 028839,000574: 27,2441 32445 DCA MP3-4ADR 028840,000575: 27,2442 05544 TC SPVAC # SET UP JOB 028841,000576: 27,2443 15605 TCF ENDOFJOB 028842,000577: 028843,000578: 028844,000579: 27,2444 E4,1566 EBANK= TDEC 028845,000580: 27,2444 02000 52004 MP3-4ADR 2CADR MP03JOB # DO NOT CHANGE THE ORDER OF THESE 2 CARDS 028846,000581: 028847,000582: 27,2446 E4,1566 EBANK= TDEC 028848,000583: 27,2446 02000 66064 2CADR MP4JOB # THEY ARE IN AN INDEXED TABLE 028849,000584: 028850,000585: 27,2450 00003 BADCHAR RELINT 028851,000586: 27,2451 05243 TC POSTJUMP # ILLEGAL CHARACTER BACK TO PINBALL 028852,000587: 27,2452 11313 CADR CHARALRM 028853,000588: 028854,000589: 27,2453 E4,1566 EBANK= TDEC # LEFT-OVERS FROM DELETED MISSION PHASE 18 028855,000590: 27,2453 02304 16004 MIDAVEAD 2CADR MIDTOAVE 028856,000591: 028857,000592: 27,2455 E4,1566 EBANK= TDEC 028858,000593: 27,2455 02312 60064 SVEXITAD 2CADR SERVEXIT 028859,000594: 028860,000595: 028861,000596: 27,2457 E3,1760 EBANK= ABORTNDX 028862,000597: 27,2457 02425 56003 ABORTRET 2CADR ABORTRTN 028863,000598: 028864,000599: 27,2461 E3,1760 EBANK= ABORTNDX 028865,000600: 27,2461 05605 04003 ENDJOBC2 2CADR ENDOFJOB End of include-file MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc. Parent file is MAIN.agc