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