Source Code
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
028508,000002: ## Copyright: Public domain.
028509,000003: ## Filename: MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc
028510,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst). It
028511,000005: ## is part of the source code for the Lunar Module's
028512,000006: ## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
028513,000007: ## Assembler: yaYUL
028514,000008: ## Contact: Ron Burkey <info@sandroid.org>.
028515,000009: ## Website: www.ibiblio.org/apollo/index.html
028516,000010: ## Mod history: 2016-09-30 RSB Created draft version.
028517,000011: ## 2016-10-23 MAS Transcribed.
028518,000012: ## 2016-10-32 RSB Typos.
028519,000013: ## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
028520,000014: ## changes made.
028521,000015: ## 2017-06-13 RSB Fixes identified whilst transcribing SUNBURST 37.
028522,000016:
|
|
Page 673 |
028524,000018: # PROGRAM NAME - MISSION PHASE 2 GUIDANCE REFERENCE RELEASE + BOOST MONITOR.
028525,000019:
028526,000020: # MODIFICATION NUMBER - 1 DATE - NOVEMBER 22, 1966 MODIFICATION BY - COVELLI
028527,000021:
028528,000022:
028529,000023:
028530,000024: # FUNCTIONAL DESCRIPTION -
028531,000025:
028532,000026: # THE FUNCTION OF MISSION PHASE 2 IS TO CONTROL THE SEQUENCE OF EVENTS IN THE 206 FLIGHT FROM GUIDANCE
028533,000027: # REFERENCE RELEASE THROUGH LIFTOFF TO THE SIVB BOOSTER SHUTDOWN.
028534,000028:
028535,000029: # AT GUIDANCE REFERENCE RELEASE, THE GRR FLAG IS SET, PREREAD IS CALLED TO BEGIN COMPUTATION OF POSITION AND
028536,000030: # VELOCITY, AND CALLS ARE MADE FOR DFI T/M CALIBRATION AND LIFTOFF
028537,000031:
028538,000032: # WHEN PRELAUNCH DETECTS THAT THE GRR FLAG IS SET, IT TERMINATES GYROCOMPASSING AND CALLS MP2JOB. MP2JOB
028539,000033: # DISPLAYS 7 IN THE MAJOR MODE AND GOES TO MATRXJOB TO COMPUTE REFSMMAT.
028540,000034:
028541,000035: # AT LIFTOFF, THE LGC CLOCK IS ZEROED, CALLS ARE MADE FOR THE COLD FIRE PURGE AND POST LET JETTISON PROGRAMS.
028542,000036: # THE MAJOR MODE IS CHANGED TO 11.
028543,000037:
028544,000038: # AT POST LET JETTISON, THE DV MONITOR IS ENABLED TO DETECT BOOSTER SHUTDOWN, THE ABORT COMMAND MONITOR AND THE
028545,000039: # TUMBLE MONITOR ARE ENABLED, AND THE MAJOR MODE IS CHANGED TO 12.
028546,000040:
028547,000041: # THE VARIOUS LMP COMMANDS REQUIRED FOR MP2 ARE SCHEDULED BY WAITLIST CALLS.
028548,000042:
028549,000043: # AT DETECTION OF SIVB SHUTDOWN, AN EXECUTIVE CALL IS MADE TO MISSION PHASE 6.
028550,000044:
028551,000045:
028552,000046:
028553,000047: # CALLING SEQUENCE :
028554,000048:
028555,000049: # MISSION PHASE 2 IS BEGUN UPON RECEIPT OF THE GUIDANCE REFERENCE RELEASE SIGNAL (VERB 65 ENTER) VIA UPLINK.
028556,000050:
028557,000051:
028558,000052:
028559,000053: # SUBROUTINES CALLED :
028560,000054:
028561,000055: # PREREAD 1LMP
028562,000056: # TUMTASK 2LMP
028563,000057: # NEWMODEX PHASCHNG
028564,000058: # FINDVAC NEWPHASE
028565,000059: # NOVAC DFITMCAL
028566,000060: # SPVAC IBNKCALL
028567,000061: # WAITLIST
028568,000062: # LONGCALL
028569,000063:
028570,000064:
028571,000065:
028572,000066: # NORMAL EXIT MODES :
|
|
Page 674 |
028574,000068: # EXIT TO MISSION PHASE 6 AT SIVB SHUTDOWN.
028575,000069:
028576,000070:
028577,000071:
028578,000072: # ABORT EXIT MODES :
028579,000073:
028580,000074: # TO MISSION PHASE 3 IF SUBORBITAL ABORT COMMAND RECEIVED VIA UPLINK.
028581,000075: # TO MISSION PHASE 4 IF CONTINGENCY ORBIT INSERTION COMMAND RECEIVED VIA UPLINK.
028582,000076: # TO CHARALRM IF EITHER OF THE ABOVE ABORT COMMANDS RECEIVED WHILE ABORT COMMAND MONITOR NOT ENABLED.
028583,000077:
028584,000078:
028585,000079:
028586,000080: # OUTPUT :
028587,000081:
028588,000082: # TGRR TIME OF GUIDANCE REFERENCE RELEASE
028589,000083: # TPRELTER TIME OF GYROCOMPASSING TERMINATION
028590,000084: # TLIFTOFF TIME OF LIFTOFF AND LGC CLOCK ZEROING
028591,000085: # GRR FLAG BIT2 FLAGWRD1 SET TO INDICATE GRR SIGNAL RECEIVED
028592,000086: # SERVICER IS GOING AT END OF MISSION PHASE 2
028593,000087: # MAJOR MODE DISPLAYS
028594,000088:
028595,000089:
028596,000090:
028597,000091: # ERASABLE INITIALIZATION :
028598,000092:
028599,000093: # DT-LIFT DELTA TIME FROM GRR TO LIFTOFF, SINGLE PRECISION SCALED AT 2(+14) CS.
028600,000094: # DT-LETJT DELTA TIME FROM LIFTOFF TO POST LET JETTISON, DOUBLE PRECISION SCALED AT 2(+28) CS.
028601,000095: # RAVEGON POSITION AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+24) M.
028602,000096: # VAVEGON VELOCITY AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+7) M/CS.
028603,000097:
028604,000098: # ******** ALL OF THE ERASABLE INITIALIZATION MUST BE DONE DURING THE PRE-LAUNCH ERASABLE LOAD *****************
028605,000099:
028606,000100:
028607,000101:
028608,000102: # DEBRIS :
028609,000103:
028610,000104: # CENTRALS AND EXECUTIVE WORK AREA.
028611,000105:
028612,000106:
028613,000107:
028614,000108: 27,2000 BANK 27
028615,000109: 27,2000 E3,1736 EBANK= TGRR
028616,000110:
028617,000111:
028618,000112:
028619,000113: 27,2000 06051 GRRPLACE TC FLAG1UP
028620,000114: 27,2001 00002 OCT 2
028621,000115: 27,2002 05567 TC ENDOFJOB
028622,000116: 27,2003 35641 MP2TASK CA PRIO15
028623,000117: 27,2004 05516 TC FINDVAC
|
|
Page 675 |
028625,000119: 27,2005 E3,1736 EBANK= TGRR
028626,000120: 27,2005 02056 56063 2CADR MP2JOB
028627,000121:
028628,000122: 27,2007 31742 CA DT-LIFT
028629,000123: 27,2010 05663 TC WAITLIST # SET UP CALL TO LIFTOFF PROGRAM
028630,000124: 27,2011 E3,1736 EBANK= TGRR
028631,000125: 27,2011 02223 56063 2CADR LIFTOFF
028632,000126:
028633,000127: 27,2013 04141 TC 2PHSCHNG
028634,000128: 27,2014 00375 OCT 00375 # 5.37 SPOT FOR MP2TASK.
028635,000129: 27,2015 00273 OCT 00273 # 3.27 SPOT TO FINISH PRELAUNCH.
028636,000130:
028637,000131: 27,2016 04141 TC 2PHSCHNG
028638,000132: 27,2017 40132 OCT 40132 # 2.13 SPOT FOR LIFTOFF.
028639,000133: 27,2020 00074 OCT 00074 # 4.7 SPOT FOR MP2JOB.
028640,000134:
028641,000135: 27,2021 37762 CAF BIT2
028642,000136: 27,2022 04105 TC SETRSTRT # SET RESTART FLAG
028643,000137:
028644,000138: 27,2023 35652 SETPIPDT CAF PRIO31 # TWO SECONDS SCALED AT (CS) X 2(+8)
028645,000139: 27,2024 54765 TS 1/PIPADT
028646,000140:
028647,000141: 27,2025 32342 CA AVEGADRS
028648,000142: 27,2026 55310 TS DVSELECT
028649,000143:
028650,000144: 27,2027 00006 EXTEND
028651,000145: 27,2030 32443 DCA SVEXADRS
028652,000146: 27,2031 53073 DXCH AVGEXIT
028653,000147:
028654,000148: 27,2032 00006 EXTEND
028655,000149: 27,2033 32443 DCA SVEXADRS
028656,000150: 27,2034 53075 DXCH DVMNEXIT
028657,000151:
028658,000152: 27,2035 35661 CA EBANK5
028659,000153: 27,2036 54003 TS EBANK
028660,000154: 27,2037 37751 CA EBANK4
028661,000155: 27,2040 54002 TS Q
028662,000156: 27,2041 E5,1561 EBANK= TEMPTIME
028663,000157: 27,2041 00006 EXTEND # GET TEMPTIME
028664,000158: 27,2042 31562 DCA TEMPTIME
028665,000159: 27,2043 53344 DXCH TPRELTER
028666,000160: 27,2044 00006 EXTEND
028667,000161: 27,2045 31344 DCA TPRELTER
028668,000162: 27,2046 00006 EXTEND
028669,000163: 27,2047 22003 QXCH EBANK
028670,000164: 27,2050 E4,1510 EBANK= TAVEGON
028671,000165: 27,2050 53511 DXCH TAVEGON # STORE IN TAVEGON
028672,000166:
028673,000167: 27,2051 E3,1736 EBANK= TGRR
|
|
Page 676 |
028675,000169: 27,2051 00006 EXTEND
028676,000170: 27,2052 32055 DCA BBBBBBBB
028677,000171: 27,2053 52006 DTCB
028678,000172: 27,2054 E5,1511 EBANK= DVCNTR
028679,000173: 27,2054 02011 60065 BBBBBBBB 2CADR BIBIBIAS
028680,000174:
028681,000175:
028682,000176:
028683,000177: 27,2056 06112 MP2JOB TC INTPRET
028684,000178: 27,2057 71331 SSP DLOAD
028685,000179: 27,2060 00765 PHASENUM
028686,000180: 27,2061 00002 2
028687,000181: 27,2062 01344 TPRELTER
028688,000182: 27,2063 01737 STORE TGRR
028689,000183: 27,2064 01312 STORE TEVENT # FOR DOWNLINK.
028690,000184:
|
|
Page 677 |
028692,000186: # PROGRAM DESCRIPTION- MATRXJOB DATE: 18 JAN 1967
028693,000187: # MOD NO: 2 LOG SECTION- MP 2 GRR + BOOST MONITOR
028694,000188: # MOD BY: MILLER, LICKLY, KERNAN ASSEMBLY: SUNBURST REVISION 79
028695,000189:
028696,000190: # FUNCTIONAL DESCRIPTION
028697,000191:
028698,000192: # THIS PROGRAM CONSTRUCTS THE MATRIX WHICH RELATES THE STABLE MEMBER INERTIAL FRAME TO THE REFERENCE
028699,000193: # FRAME (Z NORTH, X ALONG THE VERNAL EQUINOX.)
028700,000194:
028701,000195: # TWO INTERMEDIATE COORDINATE SYSTEMS ARE USED: A LOCAL, EARTH FIXED, VERTICAL, SOUTH, EAST SYSTEM AND AN
028702,000196: # EARTH REFERENCE X, Y, Z SYSTEM. IN THIS LATTER SYSTEM, THE Z AXIS IS THE EARTH'S ROTATION AXIS, THE X AXIS IS
028703,000197: # NORMAL TO Z IN THE PLANE OF Z AND THE LOCAL VERTICAL, POSITIVE IN THE DIRECTION OF V. Y IS Z CROSS X.
028704,000198:
028705,000199: # THE FIRST COMPUTATION IS OF AZGR, THE ANGLE BETWEEN THE REFERENCE INERTIAL AND EARTH REFERENCE X-Z
028706,000200: # PLANES (THE Z AXES ARE COINCIDENT). AZGR IS COMPUTED BY CONVERTING THE TIME FROM THE BEGINNING OF THE EPHEMERIS
028707,000201: # YEAR TO RELEASE (TEPHEM + TPRELTER) TO REVOLUTIONS (DAYS). THE WHOLE REVS ARE DISCARDED AND THE INITIAL ANGLE
028708,000202: # (AZ0) BETWEEN THE GREENWICH MERIDIAN AND THE REFERENCE X-Z PLANES IS ADDED. ADDING THE LONGITUDE YIELDS AZGR.
028709,000203:
028710,000204: # THE FOLLOWING COMPUTATIONS ARE THEN PERFORMED.
028711,000205:
028712,000206: # LOCAL VERTICAL(ER) = COS(LATITUDE), 0, SIN(LATITUDE) IN EARTH REFERENCE
028713,000207:
028714,000208: # LOCAL VERTICAL(IR) = COS(LAT)COS(AZGR), COS(LAT)SIN(AZGR), SIN(LAT) IN INERTIAL REFERENCE
028715,000209:
028716,000210: # LOCAL EAST(IR) = UNIT(NXV) = -SIN(AZGR), COS(AZGR), 0 IN INERTIAL REFERENCE
028717,000211:
028718,000212: # LOCAL SOUTH(IR) = E(IR) X V(IR)
028719,000213:
|
|
In the following line, the printout reads "... V. S, F AXES ..."; however, the corresponding line in SUNBURST 37 is "... V, S, E AXES ...", which is clearly correct in terms of content. My assumption is that the SUNBURST 120 printout is faulty and that SUNBURST 37 is correct. — RSB |
028724,000218: # THE RELATIONSHIP OF THE STABLE MEMBER AXES TO THE V, S, E AXES IS GIVEN BY ZSMAZ, THE ANGLE FROM NORTH
028725,000219: # TO ZSM, AND TILT, THE ANGLE ABOUT ZSM FROM VERTICAL TO XSM.
028726,000220:
028727,000221: # ZSM(IR) = EAST(IR)SIN(ZSMAZ) - SOUTH(IR)COS(ZSMAZ)
028728,000222:
028729,000223: # YSM(IR) = (ZSM(IR) X V(IR))COS(TILT) - V(IR)SIN(TILT)
028730,000224:
028731,000225: # XSM(IR) = YSM(IR) X ZSM(IR)
028732,000226:
028733,000227: # THESE THREE HALF-UNIT VECTORS, XSM(IR), YSM(IR), AND ZSM(IR) ARE THE SM AXES EXPRESSED IN INERTIAL
028734,000228: # REFERENCE COORDINATES AND THEY FORM REFSMMAT, THE REFERENCE TO STABLE MEMBER MATRIX.
028735,000229:
028736,000230: # THE INPUT (PRELAUNCH ERASABLE LOAD) REQUIREMENTS ARE:
028737,000231:
028738,000232: # 1) TEPHEM THE TRIPLE PRECISION TIME IN CENTISECONDS FROM MIDNIGHT JULY 1, OF THE EPHEMERIS YEAR TO
028739,000233: # MIDNIGHT OF THE LAUNCH DAY (SIDEREAL CONVERTED TO MEAN SOLAR.)
028740,000234:
028741,000235: # IT IS ASSUMED THAT DURING THE LAUNCH COUNTDOWN THE LGC CLOCK (TIME2, TIME1) WILL BE ALIGNED TO REFLECT A
028742,000236: # ZERO VALUE AT MIDNIGHT OF THE LAUNCH DAY. IF NOT, THE DIFFERENCE MUST BE ADDED TO TEPHEM.
028743,000237:
028744,000238: # 2) TILT THE ROTATION OF XSM ABOUT ZSM (RIGHT HAND RULE) FROM VERTICAL IN REVOLUTIONS.
028745,000239:
|
|
Page 678 |
028747,000241: # 3) ZSMAZ THE ANGLE FROM NORTH TO ZSM IN REVOLUTIONS.
028748,000242:
028749,000243: # THE OUTPUTS OF THIS PROGRAM ARE:
028750,000244:
028751,000245: # 1) REFSMMAT THE HALF-UNIT MATRIX WHICH TRANSFORMS FROM REFERENCE INERTIAL TO SM INERTIAL.
028752,000246:
028753,000247: # 2) AZGR THE ANGLE BETWEEN PAD 37 B VERTICAL AND THE REFERENCE X-Z PLANE IN REVOLUTIONS.
028754,000248:
028755,000249: # CALLING SEQUENCE : CONTINUATION OF MP2JOB
028756,000250: # NORMAL EXIT MODE- TC ENDOFJOB
028757,000251:
028758,000252: # ALARM OR ABORT EXITS- NONE
028759,000253:
028760,000254: # DEBRIS- SPECIALS, CENTRALS AND EXECUTIVE WORK AREA.
028761,000255:
028762,000256: 27,2065 54345 MATRXJOB DLOAD SR
028763,000257: 27,2066 01344 TPRELTER # MAKE ALIGN STOP TIME TP.
028764,000258: 27,2067 20617 14D
028765,000259: 27,2070 47171 TAD RTB
028766,000260: 27,2071 01754 TEPHEM # TP CS FROM JULY 1 TO LAUNCH DAY.
028767,000261: 27,2072 33541 TPMODE # SET STORE MODE TO TRIPLE.
028768,000262: 27,2073 00025 STORE 20D # TP CS FROM JULY 1 TO RELEASE.
028769,000263: 27,2074 60335 SLOAD NORM
028770,000264: 27,2075 00025 20D
028771,000265: 27,2076 00047 X1 # -9 OR -10.
028772,000266: 27,2077 47005 DMP RTB
028773,000267: 27,2100 16346 WEARTH # REVS PER 2(28)CS.
028774,000268: 27,2101 33520 SGNAGREE
028775,000269: 27,2102 65257 SR* PDDL
028776,000270: 27,2103 20556 0 -19D,1 # GETS RID OF WHOLE REVS.
028777,000271: 27,2104 00026 21D
028778,000272: 27,2105 47005 DMP RTB
028779,000273: 27,2106 16346 WEARTH
028780,000274: 27,2107 33520 SGNAGREE
028781,000275: 27,2110 43261 SLR DAD
028782,000276: 27,2111 21206 5 # DP FRACTION OF A REV.
028783,000277: 27,2112 43215 DAD DAD
028784,000278: 27,2113 01757 AZ0 # MERIDIAN ANGLE AT JULY 1.
028785,000279: 27,2114 01763 P37BLONG # PAD ANGLE TO MERIDIAN.
028786,000280: 27,2115 01746 STORE AZGR # VERT. AZ. AT RELEASE WRT X-Z INERTIAL.
028787,000281:
028788,000282: 27,2116 77756 SIN
028789,000283: 27,2117 15271 STODL REFSMMAT +6 # SIN(AZGR).
028790,000284: 27,2120 01746 AZGR
028791,000285: 27,2121 77746 COS
028792,000286: 27,2122 14150 STODL MPAC +3 # Y OF EAST IN INERTIAL = COS(AZGR).
028793,000287: 27,2123 01761 P37BLAT # LOCAL VERTICAL Z IN EARTH REF. SIN(L).
028794,000288: 27,2124 77756 SIN
028795,000289: 27,2125 15267 STODL REFSMMAT +4 # ALSO LOCAL VERT Z IN REF. INERTIAL.
028796,000290: 27,2126 01761 P37BLAT
028797,000291:
|
|
Page 679 |
028799,000293: 27,2127 72546 COS SL1 # SAVES 2 SL'S LATER.
028800,000294: 27,2130 00025 STORE 20D # LOCAL VER. X IN EARTH REF. COS(L).
028801,000295: 27,2131 77605 DMP
028802,000296: 27,2132 00150 MPAC +3
028803,000297: 27,2133 15263 STODL REFSMMAT # X OF VERT IN INERTIAL = COS(L)COS(AZGR).
028804,000298: 27,2134 01271 REFSMMAT +6 # SIN(AZGR).
028805,000299: 27,2135 77605 DMP
028806,000300: 27,2136 00025 20D
028807,000301: 27,2137 15265 STODL REFSMMAT +2 # Y OF VERT IN INERTIAL = COS(L)SIN(AZGR).
028808,000302: 27,2140 17103 DPZRO
028809,000303: 27,2141 14152 STODL MPAC +5 # Z OF EAST IN INERTIAL = 0.
028810,000304: 27,2142 01271 REFSMMAT +6 # SIN(AZGR).
028811,000305: 27,2143 47076 DCOMP RTB # ALSO -X OF EAST IN INERTIAL.
028812,000306: 27,2144 33516 VECMODE # SET STORE MODE TO VECTOR.
028813,000307: 27,2145 47206 PUSH VXV # INERTIAL EAST INTO PD.
028814,000308: 27,2146 01263 REFSMMAT
028815,000309: 27,2147 77656 UNIT # INERTIAL SOUTH = UNIT(EXV).
028816,000310: 27,2150 15277 STODL REFSMMAT +12D # INTO REF +12D (TEMP).
028817,000311: 27,2151 01752 ZSMAZ # ZSM WRT NORTH.
028818,000312: 27,2152 74346 COS VXSC
028819,000313: 27,2153 01277 REFSMMAT +12D # SOUTH(IR)COS(ZSMAZ).
028820,000314: 27,2154 15277 STODL REFSMMAT +12D # INTO REF +12D (TEMP).
028821,000315: 27,2155 01752 ZSMAZ
028822,000316: 27,2156 74356 SIN VXSC # EAST(IR)SIN(ZSMAZ).
028823,000317: 27,2157 53451 VSU UNIT
028824,000318: 27,2160 01277 REFSMMAT +12D # UNIT(ZSM) IN INERTIAL =
028825,000319: 27,2161 01277 STORE REFSMMAT +12D # EAST(IR)SIN(ZSMAZ) - SOUTH(IR)COS(ZSMAZ)
028826,000320:
028827,000321: 27,2162 53435 VXV UNIT
028828,000322: 27,2163 01263 REFSMMAT # YREFSM(UNTILTED)= Z CROSS VERT = Y1.
028829,000323: 27,2164 71525 PDDL COS # INTO PD.
028830,000324: 27,2165 01750 TILT # TILT IS POS ABOUT ZSM FROM UNTILTED YSM.
028831,000325: 27,2166 77761 VXSC
028832,000326: 27,2167 73525 PDDL SIN # (Y1)COS(T) INTO PD.
028833,000327: 27,2170 01750 TILT
028834,000328: 27,2171 51361 VXSC BVSU
028835,000329: 27,2172 01263 REFSMMAT
028836,000330: 27,2173 77656 UNIT
028837,000331: 27,2174 01271 STORE REFSMMAT +6 # YREFSM = (Y1)COS(T) - (VERT)SIN(T).
028838,000332:
028839,000333: 27,2175 53435 VXV UNIT
028840,000334: 27,2176 01277 REFSMMAT +12D
028841,000335: 27,2177 01263 STORE REFSMMAT # XREFSM = Y CROSS Z.
028842,000336: 27,2200 77776 EXIT
028843,000337:
028844,000338: 27,2201 04161 TC PHASCHNG
028845,000339: 27,2202 00004 OCT 00004 # DEACTIVATE GROUP 4
028846,000340:
028847,000341: 27,2203 05567 TC ENDOFJOB
028848,000342:
|
|
Page 680 |
028850,000344: 27,2204 05060 DFITMCAL TC 1LMP # MUST BE CALLED BY IBNKCALL (OR ISWCALL)
028851,000345: 27,2205 00354 DEC 236 B-14 # IN INTERRUPT OR INHIBITED
028852,000346: 27,2206 32344 CA 12SEC
028853,000347: 27,2207 05663 TC WAITLIST # CALL DFITMCL1 IN 12 SECONDS
028854,000348: 27,2210 E3,1736 EBANK= TGRR
028855,000349: 27,2210 02213 56063 2CADR DFITMCL1
028856,000350:
028857,000351: 27,2212 15303 TCF ISWRETRN
028858,000352:
028859,000353: 27,2213 05052 DFITMCL1 TC 2LMP
028860,000354: 27,2214 00355 DEC 237 B-14 # DFI T/M CALIBRATE OFF
028861,000355: 27,2215 00306 DEC 198 B-14 # MASTER C+W ALARM RESET - COMMAND
028862,000356: 27,2216 05701 TC FIXDELAY
028863,000357: 27,2217 00310 DEC 200 B-14 # DELAY 2 SECONDS
028864,000358:
028865,000359: 27,2220 05060 DFITMCL2 TC 1LMP
028866,000360: 27,2221 00307 DEC 199 B-14 # MASTER C+W ALARM RESET - COMMAND RESET
028867,000361: 27,2222 15727 TCF TASKOVER
028868,000362:
028869,000363: 27,2223 04117 LIFTOFF TC NEWMODEX # DISPLAY MAJOR MODE 11
028870,000364: 27,2224 00011 OCT 11
028871,000365:
028872,000366: 27,2225 32444 CA 61OCT
028873,000367: 27,2226 04246 TC NEWPHASE # IMMEDIATE RESTART HERE
028874,000368: 27,2227 00002 OCT 2
028875,000369:
028876,000370: 27,2230 22007 REDO2.61 ZL # THIS SECTION OF CODING ZEROES THE LGC
028877,000371: 27,2231 47746 CS HALF # CLOCK AND MAKES THE CORRESPONDING
028878,000372: 27,2232 60000 DOUBLE # CORRECTION TO TBASE5 , SO THAT READACCS
028879,000373: 27,2233 60025 AD TIME1 # IS NOT CALLED TOO SOON. THE NEW TBASE5
028880,000374: 27,2234 27123 ADS TBASE5 # IS OVERFLOW CORRECTED.
028881,000375:
028882,000376: 27,2235 37767 CA ZERO
028883,000377: 27,2236 52025 DXCH TIME2
028884,000378: 27,2237 53741 DXCH TLIFTOFF # SAVE TIME OF LIFTOFF
028885,000379:
028886,000380: 27,2240 32445 CA 63OCT
028887,000381: 27,2241 04246 TC NEWPHASE # DO NOT REPEAT THE ABOVE
028888,000382: 27,2242 00002 OCT 2
028889,000383:
028890,000384: 27,2243 00006 REDO2.63 EXTEND
028891,000385: 27,2244 31744 DCA DT-LETJT
028892,000386: 27,2245 05741 TC LONGCALL
028893,000387: 27,2246 E3,1736 EBANK= TGRR
028894,000388: 27,2246 02270 56063 2CADR POSTLET
028895,000389:
028896,000390: 27,2250 04141 TC 2PHSCHNG
028897,000391: 27,2251 00073 OCT 00073 # RESTART POSTLET LONGCALL GROUP 3
028898,000392: 27,2252 25012 OCT 25012 # AND CONTINUE LIFTOFF (SET LONGBASE HERE)
028899,000393: 27,2253 77777 OCT 77777
028900,000394:
|
|
Page 681 |
028902,000396: 27,2254 04141 TC 2PHSCHNG
028903,000397: 27,2255 00002 OCT 2
028904,000398: 27,2256 47016 OCT 47016 # PROTECT RCSPURGE.
028905,000399: 27,2257 24404 DEC 10500 B-14
028906,000400: 27,2260 E3,1736 EBANK= TGRR
028907,000401: 27,2260 02264 56063 2CADR RCSPURGE
028908,000402:
028909,000403: 27,2262 05701 TC FIXDELAY
028910,000404: 27,2263 24404 DEC 10500 B-14
028911,000405: 27,2264 32347 RCSPURGE CA +XJETSON
028912,000406: 27,2265 00006 EXTEND
028913,000407: 27,2266 01005 WRITE 5 # TURN ON +X TRANSLATION
028914,000408:
028915,000409: 27,2267 15727 TCF TASKOVER
028916,000410:
028917,000411:
028918,000412: 27,2270 40076 POSTLET CS FLAGWRD2 # ENABLE ABORT COMMAND MONITOR
028919,000413: 27,2271 77753 MASK BIT9 # BIT 9 FLAGWORD 2
028920,000414: 27,2272 26076 ADS FLAGWRD2
028921,000415:
028922,000416: 27,2273 04117 TC NEWMODEX
028923,000417: 27,2274 00012 OCT 12 # MAJOR MODE 12
028924,000418:
028925,000419: 27,2275 37763 CA BIT1
028926,000420: 27,2276 05663 TC WAITLIST # ENABLE TUMBLE MONITOR
028927,000421: 27,2277 E6,1422 EBANK= OMEGA
028928,000422: 27,2277 02470 60066 2CADR TUMTASK
028929,000423:
028930,000424: 27,2301 04141 TC 2PHSCHNG
028931,000425: 27,2302 00053 OCT 00053 # RESTART TUMTASK GR 3
028932,000426: 27,2303 47012 OCT 47012
028933,000427: 27,2304 01750 DEC 1000 B-14
028934,000428: 27,2305 E3,1736 EBANK= TGRR
028935,000429: 27,2305 02311 56063 2CADR MONBOOST
028936,000430:
028937,000431: 27,2307 05701 TC FIXDELAY
028938,000432: 27,2310 01750 DEC 1000 B-14 # WAIT 10 SECONDS FOR STAGING + SIVB IGN.
028939,000433:
028940,000434: 27,2311 32343 MONBOOST CA BOOSTADR # MONITOR DELV FOR BOOSTER SHUTDOWN
028941,000435: 27,2312 55310 TS DVSELECT
028942,000436:
028943,000437: 27,2313 04161 TC PHASCHNG
028944,000438: 27,2314 47012 OCT 47012
028945,000439: 27,2315 04064 DEC 2100 B-14
028946,000440: 27,2316 E3,1736 EBANK= TGRR
028947,000441: 27,2316 02322 56063 2CADR PURGEOFF
028948,000442:
028949,000443: 27,2320 05701 TC FIXDELAY
028950,000444: 27,2321 04064 DEC 2100 B-14 # WAIT 21 SECONDS
028951,000445:
|
|
Page 682 |
028953,000447: 27,2322 37767 PURGEOFF CA ZERO
028954,000448: 27,2323 04246 TC NEWPHASE
028955,000449: 27,2324 00006 OCT 6
028956,000450:
028957,000451: 27,2325 37767 CA ZERO
028958,000452: 27,2326 00006 EXTEND
028959,000453: 27,2327 01006 WRITE 6
028960,000454: 27,2330 00006 EXTEND
028961,000455: 27,2331 01005 WRITE 5 # TURN OFF RCS JETS
028962,000456:
028963,000457: 27,2332 05101 TC 1LMP+DT
028964,000458: 27,2333 00272 DEC 186 B-14 # ECS PRIMARY WATER VALVE OPEN
028965,000459:
028966,000460: 27,2334 00310 DEC 200 B-14 # WAIT 2 SECONDS
028967,000461:
028968,000462: 27,2335 05060 WATEROFF TC 1LMP
028969,000463: 27,2336 00273 DEC 187 B-14 # ECS PRIMARY WATER VALVE - OPEN RESET
028970,000464:
028971,000465: 27,2337 04161 TC PHASCHNG
028972,000466: 27,2340 00002 OCT 00002 # DEACTIVATE GROUP 2
028973,000467:
028974,000468: 27,2341 15727 TCF TASKOVER # END OF MISSION PHASE 2
028975,000469:
028976,000470:
028977,000471:
028978,000472: # DELTA T S AND OTHER CONSTANTS FOR MP2
028979,000473: 27,2342 02251 AVEGADRS GENADR AVERAGEG
028980,000474: 27,2343 02273 BOOSTADR GENADR BOOSTMON
028981,000475: 27,2344 27,2442 SVEXADRS EQUALS SVEXITAD
028982,000476: 27,2344 02260 12SEC DEC 1200 B-14
028983,000477: 27,2345 37116 32623 WEARTH 2DEC 31.1539787 B-5 # REVOLUTIONS PER 2(28) CENTISECONDS.
028984,000478:
028985,000479: 27,2347 00252 +XJETSON OCT 00252 # BITS FOR +X TRANSLATION JETS
028986,000480:
028987,000481:
028988,000482:
028989,000483: # ABORT COMMAND MONITOR - DETECTS
028990,000484: # SUBORBITAL ABORT AND CONTINGENCY
028991,000485: # ORBIT INSERTION
028992,000486:
028993,000487: 27,2350 00004 SUBABORT INHINT # SUBORBITAL ABORT - ZERO ABORTNDX TO
028994,000488: 27,2351 37767 CAF ZERO # SET UP MISSION PHASE 3
028995,000489: 27,2352 12355 TCF CONORBIT +2
028996,000490:
028997,000491: 27,2353 00004 CONORBIT INHINT # CONTINGENCY ORBIT INSERTION - ABORTNDX
028998,000492: 27,2354 37762 CAF TWO # SET TO 2 TO SET UP MISSION PHASE 4
028999,000493: 27,2355 54001 TS L # SAVE IN L
029000,000494: 27,2356 40076 CS FLAGWRD2 # CHECK ABORT RECEIVED FLAG TO INSURE THAT
029001,000495:
029002,000496: 27,2357 77752 MASK BIT10 # MULTIBLE TRANSMISSIONS DON'T START
|
|
Page 683 |
029004,000498: 27,2360 00006 EXTEND # MULTIBLE JOBS. SINCE MULTIBLE XMISSIONS
029005,000499: 27,2361 15567 BZF ENDOFJOB # ARE THE RULE, LEAVE WITH NO ALARM.
029006,000500: 27,2362 40076 CS FLAGWRD2 # IS ABORT COMMAND MONITOR ENABLED
029007,000501:
029008,000502: 27,2363 77753 MASK BIT9
029009,000503: 27,2364 00006 EXTEND
029010,000504: 27,2365 12371 BZF SETABORT # YES.
029011,000505:
029012,000506: 27,2366 04755 TC ALARM # ABORT NOT ENABLED, SET ALARM AND EXIT.
029013,000507: 27,2367 00300 OCT 00300
029014,000508: 27,2370 05567 TC ENDOFJOB
029015,000509:
029016,000510: 27,2371 00004 SETABORT INHINT
029017,000511: 27,2372 35352 CA EBANK3
029018,000512: 27,2373 54003 TS EBANK
029019,000513: 27,2374 23742 LXCH ABORTNDX # STORE ABORTNDX
029020,000514: 27,2375 32342 CAF AVEGADRS
029021,000515: 27,2376 55310 TS DVSELECT # TURN OFF BOOSTMON
029022,000516: 27,2377 04141 TC 2PHSCHNG
029023,000517: 27,2400 00004 OCT 00004
029024,000518: 27,2401 00006 OCT 00006
029025,000519: 27,2402 04141 TC 2PHSCHNG
029026,000520: 27,2403 00003 OCT 00003
029027,000521: 27,2404 07022 OCT 07022
029028,000522: 27,2405 21000 OCT 21000
029029,000523: 27,2406 E3,1742 EBANK= ABORTNDX
029030,000524: 27,2406 02414 56063 2CADR TUMBL3/4
029031,000525:
029032,000526: 27,2410 06060 TC FLAG2UP
029033,000527: 27,2411 01000 OCT 01000 # ABORT RECEIVED FLAG
029034,000528: 27,2412 05225 TC POSTJUMP
029035,000529: 27,2413 02354 CADR ENEMA # WIPE EVERYTHING OUT
029036,000530:
029037,000531:
029038,000532:
029039,000533: 27,2414 00004 TUMBL3/4 INHINT
029040,000534: 27,2415 37763 CA BIT1
029041,000535: 27,2416 05663 TC WAITLIST # RE-ESTABLISH TUMBLE MONITOR
029042,000536: 27,2417 E6,1422 EBANK= OMEGA
029043,000537: 27,2417 02470 60066 2CADR TUMTASK
029044,000538:
029045,000539: 27,2421 04141 TC 2PHSCHNG
029046,000540: 27,2422 00053 OCT 00053 # 3.5 SPOT FOR TUMTASK
029047,000541: 27,2423 04022 OCT 04022 # GR 2 FOR ABORT3/4
029048,000542:
029049,000543: 27,2424 00004 ABORT3/4 INHINT
029050,000544: 27,2425 35651 CAF PRIO27
029051,000545: 27,2426 54063 TS NEWPRIO # SET UP MP3 OR MP4 VIA SPVAC
029052,000546:
029053,000547: 27,2427 00006 EXTEND
|
|
Page 684 |
029055,000549: 27,2430 51742 INDEX ABORTNDX # GET RIGHT 2CADR
029056,000550: 27,2431 32435 DCA MP3-4ADR
029057,000551: 27,2432 05526 TC SPVAC # SET UP ABORT JOB.
029058,000552:
029059,000553: 27,2433 15567 TCF ENDOFJOB
029060,000554:
029061,000555:
029062,000556:
029063,000557: 27,2434 E4,1566 EBANK= TDEC
029064,000558: 27,2434 02000 52064 MP3-4ADR 2CADR MP03JOB # DO NOT CHANGE THE ORDER OF THESE 2 CARDS
029065,000559:
029066,000560: 27,2436 E4,1566 EBANK= TDEC
029067,000561: 27,2436 02000 66064 2CADR MP4JOB # THEY ARE IN AN INDEXED TABLE
029068,000562:
029069,000563: 27,2440 E4,1566 EBANK= TDEC # LEFT-OVERS FROM DELETED MISSION PHASE 18
029070,000564: 27,2440 02341 16064 MIDAVEAD 2CADR MIDTOAVE
029071,000565:
029072,000566: 27,2442 E4,1566 EBANK= TDEC
029073,000567: 27,2442 02324 60064 SVEXITAD 2CADR SERVEXIT
029074,000568:
029075,000569:
029076,000570:
029077,000571: 27,2444 00061 61OCT OCT 61
029078,000572: 27,2445 00063 63OCT OCT 63
029079,000573:
|
|
Page 685 |
029081,000575: # SET UP & EXECUTE JOB TO ADD VELOCITY CORRECTION TO VN:
029082,000576:
029083,000577: 27,2446 E5,1745 EBANK= GTSWTLST
029084,000578:
029085,000579: 27,2446 35643 LIFTFIXT CA PRIO17 # LESS THAN PRELAUNCH OR NORMLIZE
029086,000580: 27,2447 05516 TC FINDVAC
029087,000581: 27,2450 E5,1743 EBANK= OLDGT
029088,000582: 27,2450 02453 56065 2CADR LIFTFIX
029089,000583:
029090,000584: 27,2452 05727 TC TASKOVER
029091,000585:
029092,000586:
029093,000587:
029094,000588: 27,2453 41307 LIFTFIX CS PIPTIME +1 # PRELAUNCH BY NOW HAS FOUND THE GRR FLAG
029095,000589: 27,2454 61743 AD OLDGT # & SUBSEQUENTLY BEEN THRU PREREAD, VIA
029096,000590: 27,2455 00006 EXTEND # MP2TASK.
029097,000591: 27,2456 62461 BZMF +3
029098,000592: 27,2457 67744 AD NEG1/2 # (IF TIME1 OVERFLOWED)
029099,000593: 27,2460 67744 AD NEG1/2
029100,000594: 27,2461 54147 TS MPAC +3
029101,000595:
029102,000596: 27,2462 06112 TC INTPRET
029103,000597:
029104,000598: 27,2463 56335 SLOAD DDV
029105,000599: 27,2464 00150 MPAC +3
029106,000600: 27,2465 16503 -1SEC214 # MAKE THE TIME-RATIO POSITIVE.
029107,000601: 27,2466 63361 VXSC PDVL
029108,000602: 27,2467 01025 GDT/2
029109,000603: 27,2470 00404 DELV
029110,000604: 27,2471 76455 VAD VSL1
029111,000605: 27,2472 01765 DELVBUF
029112,000606: 27,2473 53361 VXSC VAD
029113,000607: 27,2474 21165 KPIP1
029114,000608: 27,2475 77655 VAD
029115,000609: 27,2476 01017 VN
029116,000610: 27,2477 01017 STORE VN
029117,000611:
029118,000612: 27,2500 77776 EXIT
029119,000613: 27,2501 05567 TC ENDOFJOB
029120,000614:
029121,000615:
029122,000616:
029123,000617: 27,2502 77633 77777 -1SEC214 2DEC -100 B-14
End of include-file MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc. Parent file is MAIN.agc