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