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