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.

028502,000002:                                                                                                  ## Copyright:   Public domain.
028503,000003:                                                                                                  ## Filename:    MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc
028504,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
028505,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
028506,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
028507,000007:                                                                                                  ## Assembler:   yaYUL
028508,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028509,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028510,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
028511,000011:                                                                                                  ##              2016-10-23 MAS  Transcribed.
028512,000012:                                                                                                  ##              2016-10-32 RSB  Typos.
028513,000013:                                                                                                  ##              2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
028514,000014:                                                                                                  ##                              changes made.
028515,000015:                                                                                                  ##              2017-06-13 RSB  Fixes identified whilst transcribing SUNBURST 37.
028516,000016: 

Page 673

028518,000018:                                                                                                  #  PROGRAM NAME - MISSION PHASE 2 GUIDANCE REFERENCE RELEASE + BOOST MONITOR.
028519,000019: 
028520,000020:                                                                                                  #  MODIFICATION NUMBER - 1         DATE - NOVEMBER 22, 1966                MODIFICATION BY - COVELLI
028521,000021: 
028522,000022: 
028523,000023: 
028524,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION -
028525,000025: 
028526,000026:                                                                                                  #     THE FUNCTION OF MISSION PHASE 2 IS TO CONTROL THE SEQUENCE OF EVENTS IN THE 206 FLIGHT FROM GUIDANCE
028527,000027:                                                                                                  #  REFERENCE RELEASE THROUGH LIFTOFF TO THE SIVB BOOSTER SHUTDOWN.
028528,000028: 
028529,000029:                                                                                                  #     AT GUIDANCE REFERENCE RELEASE, THE GRR FLAG IS SET,  PREREAD IS CALLED TO BEGIN COMPUTATION OF POSITION AND
028530,000030:                                                                                                  #  VELOCITY, AND CALLS ARE MADE FOR DFI T/M CALIBRATION AND LIFTOFF
028531,000031: 
028532,000032:                                                                                                  #     WHEN PRELAUNCH DETECTS THAT THE GRR FLAG IS SET, IT TERMINATES GYROCOMPASSING AND CALLS MP2JOB. MP2JOB
028533,000033:                                                                                                  #  DISPLAYS 7 IN THE MAJOR MODE AND GOES TO MATRXJOB TO COMPUTE REFSMMAT.
028534,000034: 
028535,000035:                                                                                                  #     AT LIFTOFF, THE LGC CLOCK IS ZEROED, CALLS ARE MADE FOR THE COLD FIRE PURGE AND POST LET JETTISON PROGRAMS.
028536,000036:                                                                                                  #  THE MAJOR MODE IS CHANGED TO 11.
028537,000037: 
028538,000038:                                                                                                  #     AT POST LET JETTISON, THE DV MONITOR IS ENABLED TO DETECT BOOSTER SHUTDOWN, THE ABORT COMMAND MONITOR AND THE
028539,000039:                                                                                                  #  TUMBLE MONITOR ARE ENABLED, AND THE MAJOR MODE IS CHANGED TO 12.
028540,000040: 
028541,000041:                                                                                                  #     THE VARIOUS LMP COMMANDS REQUIRED FOR MP2 ARE SCHEDULED BY WAITLIST CALLS.
028542,000042: 
028543,000043:                                                                                                  #     AT DETECTION OF SIVB SHUTDOWN, AN EXECUTIVE CALL IS MADE TO MISSION PHASE 6.
028544,000044: 
028545,000045: 
028546,000046: 
028547,000047:                                                                                                  #  CALLING SEQUENCE :
028548,000048: 
028549,000049:                                                                                                  #     MISSION PHASE 2 IS BEGUN UPON RECEIPT OF THE GUIDANCE REFERENCE RELEASE SIGNAL (VERB 65 ENTER) VIA UPLINK.
028550,000050: 
028551,000051: 
028552,000052: 
028553,000053:                                                                                                  #  SUBROUTINES CALLED :
028554,000054: 
028555,000055:                                                                                                  #           PREREAD                1LMP
028556,000056:                                                                                                  #           TUMTASK                2LMP
028557,000057:                                                                                                  #           NEWMODEX               PHASCHNG
028558,000058:                                                                                                  #           FINDVAC                NEWPHASE
028559,000059:                                                                                                  #           NOVAC                  DFITMCAL
028560,000060:                                                                                                  #           SPVAC                  IBNKCALL
028561,000061:                                                                                                  #           WAITLIST
028562,000062:                                                                                                  #           LONGCALL
028563,000063: 
028564,000064: 
028565,000065: 
028566,000066:                                                                                                  #  NORMAL EXIT MODES :

Page 674

028568,000068:                                                                                                  #     EXIT TO MISSION PHASE 6 AT SIVB SHUTDOWN.
028569,000069: 
028570,000070: 
028571,000071: 
028572,000072:                                                                                                  #  ABORT EXIT MODES :
028573,000073: 
028574,000074:                                                                                                  #     TO MISSION PHASE 3 IF SUBORBITAL ABORT COMMAND RECEIVED VIA UPLINK.
028575,000075:                                                                                                  #     TO MISSION PHASE 4 IF CONTINGENCY ORBIT INSERTION COMMAND RECEIVED VIA UPLINK.
028576,000076:                                                                                                  #     TO CHARALRM IF EITHER OF THE ABOVE ABORT COMMANDS RECEIVED WHILE ABORT COMMAND MONITOR NOT ENABLED.
028577,000077: 
028578,000078: 
028579,000079: 
028580,000080:                                                                                                  #  OUTPUT :
028581,000081: 
028582,000082:                                                                                                  #           TGRR          TIME OF GUIDANCE REFERENCE RELEASE
028583,000083:                                                                                                  #           TPRELTER      TIME OF GYROCOMPASSING TERMINATION
028584,000084:                                                                                                  #           TLIFTOFF      TIME OF LIFTOFF AND LGC CLOCK ZEROING
028585,000085:                                                                                                  #           GRR FLAG      BIT2 FLAGWRD1 SET TO INDICATE GRR SIGNAL RECEIVED
028586,000086:                                                                                                  #           SERVICER IS GOING AT END OF MISSION PHASE 2
028587,000087:                                                                                                  #           MAJOR MODE DISPLAYS
028588,000088: 
028589,000089: 
028590,000090: 
028591,000091:                                                                                                  #  ERASABLE INITIALIZATION :
028592,000092: 
028593,000093:                                                                                                  #           DT-LIFT       DELTA TIME FROM GRR TO LIFTOFF, SINGLE PRECISION SCALED AT 2(+14) CS.
028594,000094:                                                                                                  #           DT-LETJT      DELTA TIME FROM LIFTOFF TO POST LET JETTISON, DOUBLE PRECISION SCALED AT 2(+28) CS.
028595,000095:                                                                                                  #           RAVEGON       POSITION AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+24) M.
028596,000096:                                                                                                  #           VAVEGON       VELOCITY AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+7) M/CS.
028597,000097: 
028598,000098:                                                                                                  #  ********  ALL OF THE ERASABLE INITIALIZATION MUST BE DONE DURING THE PRE-LAUNCH ERASABLE LOAD  *****************
028599,000099: 
028600,000100: 
028601,000101: 
028602,000102:                                                                                                  #  DEBRIS :
028603,000103: 
028604,000104:                                                                                                  #     CENTRALS AND EXECUTIVE WORK AREA.
028605,000105: 
028606,000106: 
028607,000107: 
028608,000108: 27,2000                                           BANK     27                                    
028609,000109: 27,2000  E3,1736                                  EBANK=   TGRR                                  
028610,000110: 
028611,000111: 
028612,000112: 
028613,000113: 27,2000           06051        GRRPLACE           TC       FLAG1UP                               
028614,000114: 27,2001           00002                           OCT      2                                     
028615,000115: 27,2002           05567                           TC       ENDOFJOB                              
028616,000116: 27,2003           35641        MP2TASK            CA       PRIO15                                
028617,000117: 27,2004           05516                           TC       FINDVAC                               

Page 675

028619,000119: 27,2005  E3,1736                                  EBANK=   TGRR                                  
028620,000120: 27,2005           02056 56063                     2CADR    MP2JOB                                
028621,000121: 
028622,000122: 27,2007           31742                           CA       DT-LIFT                               
028623,000123: 27,2010           05663                           TC       WAITLIST                              #  SET UP CALL TO LIFTOFF PROGRAM
028624,000124: 27,2011  E3,1736                                  EBANK=   TGRR                                  
028625,000125: 27,2011           02223 56063                     2CADR    LIFTOFF                               
028626,000126: 
028627,000127: 27,2013           04141                           TC       2PHSCHNG                              
028628,000128: 27,2014           00375                           OCT      00375                                 #  5.37 SPOT FOR MP2TASK.
028629,000129: 27,2015           00273                           OCT      00273                                 #  3.27 SPOT TO FINISH PRELAUNCH.
028630,000130: 
028631,000131: 27,2016           04141                           TC       2PHSCHNG                              
028632,000132: 27,2017           40132                           OCT      40132                                 #  2.13 SPOT FOR LIFTOFF.
028633,000133: 27,2020           00074                           OCT      00074                                 #  4.7 SPOT FOR MP2JOB.
028634,000134: 
028635,000135: 27,2021           37762                           CAF      BIT2                                  
028636,000136: 27,2022           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
028637,000137: 
028638,000138: 27,2023           35652        SETPIPDT           CAF      PRIO31                                #  TWO SECONDS SCALED AT (CS) X 2(+8)
028639,000139: 27,2024           54765                           TS       1/PIPADT                              
028640,000140: 
028641,000141: 27,2025           32342                           CA       AVEGADRS                              
028642,000142: 27,2026           55310                           TS       DVSELECT                              
028643,000143: 
028644,000144: 27,2027           00006                           EXTEND                                         
028645,000145: 27,2030           32443                           DCA      SVEXADRS                              
028646,000146: 27,2031           53073                           DXCH     AVGEXIT                               
028647,000147: 
028648,000148: 27,2032           00006                           EXTEND                                         
028649,000149: 27,2033           32443                           DCA      SVEXADRS                              
028650,000150: 27,2034           53075                           DXCH     DVMNEXIT                              
028651,000151: 
028652,000152: 27,2035           35661                           CA       EBANK5                                
028653,000153: 27,2036           54003                           TS       EBANK                                 
028654,000154: 27,2037           37751                           CA       EBANK4                                
028655,000155: 27,2040           54002                           TS       Q                                     
028656,000156: 27,2041  E5,1561                                  EBANK=   TEMPTIME                              
028657,000157: 27,2041           00006                           EXTEND                                         #  GET TEMPTIME
028658,000158: 27,2042           31562                           DCA      TEMPTIME                              
028659,000159: 27,2043           53344                           DXCH     TPRELTER                              
028660,000160: 27,2044           00006                           EXTEND                                         
028661,000161: 27,2045           31344                           DCA      TPRELTER                              
028662,000162: 27,2046           00006                           EXTEND                                         
028663,000163: 27,2047           22003                           QXCH     EBANK                                 
028664,000164: 27,2050  E4,1510                                  EBANK=   TAVEGON                               
028665,000165: 27,2050           53511                           DXCH     TAVEGON                               #  STORE IN TAVEGON
028666,000166: 
028667,000167: 27,2051  E3,1736                                  EBANK=   TGRR                                  

Page 676

028669,000169: 27,2051           00006                           EXTEND                                         
028670,000170: 27,2052           32055                           DCA      BBBBBBBB                              
028671,000171: 27,2053           52006                           DTCB                                           
028672,000172: 27,2054  E5,1511                                  EBANK=   DVCNTR                                
028673,000173: 27,2054           02011 60065  BBBBBBBB           2CADR    BIBIBIAS                              
028674,000174: 
028675,000175: 
028676,000176: 
028677,000177: 27,2056           06112        MP2JOB             TC       INTPRET                               
028678,000178: 27,2057           71331                           SSP      DLOAD                                 
028679,000179: 27,2060           00765                                    PHASENUM                              
028680,000180: 27,2061           00002                                    2                                     
028681,000181: 27,2062           01344                                    TPRELTER                              
028682,000182: 27,2063           01737                           STORE    TGRR                                  
028683,000183: 27,2064           01312                           STORE    TEVENT                                #  FOR DOWNLINK.
028684,000184: 

Page 677

028686,000186:                                                                                                  #  PROGRAM DESCRIPTION- MATRXJOB                                           DATE: 18 JAN 1967
028687,000187:                                                                                                  #  MOD NO: 2                                                               LOG SECTION- MP 2 GRR + BOOST MONITOR
028688,000188:                                                                                                  #  MOD BY: MILLER, LICKLY, KERNAN                                          ASSEMBLY: SUNBURST REVISION 79
028689,000189: 
028690,000190:                                                                                                  #  FUNCTIONAL DESCRIPTION
028691,000191: 
028692,000192:                                                                                                  #           THIS PROGRAM CONSTRUCTS THE MATRIX WHICH RELATES THE STABLE MEMBER INERTIAL FRAME TO THE REFERENCE
028693,000193:                                                                                                  #  FRAME (Z NORTH, X ALONG THE VERNAL EQUINOX.)
028694,000194: 
028695,000195:                                                                                                  #           TWO INTERMEDIATE COORDINATE SYSTEMS ARE USED: A LOCAL, EARTH FIXED, VERTICAL, SOUTH, EAST SYSTEM AND AN
028696,000196:                                                                                                  #  EARTH REFERENCE X, Y, Z SYSTEM.  IN THIS LATTER SYSTEM, THE Z AXIS IS THE EARTH'S ROTATION AXIS, THE X AXIS IS
028697,000197:                                                                                                  #  NORMAL TO Z IN THE PLANE OF Z AND THE LOCAL VERTICAL, POSITIVE IN THE DIRECTION OF V.  Y IS Z CROSS X.
028698,000198: 
028699,000199:                                                                                                  #           THE FIRST COMPUTATION IS OF AZGR, THE ANGLE BETWEEN THE REFERENCE INERTIAL AND EARTH REFERENCE X-Z
028700,000200:                                                                                                  #  PLANES (THE Z AXES ARE COINCIDENT).  AZGR IS COMPUTED BY CONVERTING THE TIME FROM THE BEGINNING OF THE EPHEMERIS
028701,000201:                                                                                                  #  YEAR TO RELEASE (TEPHEM + TPRELTER) TO REVOLUTIONS (DAYS).  THE WHOLE REVS ARE DISCARDED AND THE INITIAL ANGLE
028702,000202:                                                                                                  #  (AZ0) BETWEEN THE GREENWICH MERIDIAN AND THE REFERENCE X-Z PLANES IS ADDED.  ADDING THE LONGITUDE YIELDS AZGR.
028703,000203: 
028704,000204:                                                                                                  #           THE FOLLOWING COMPUTATIONS ARE THEN PERFORMED.
028705,000205: 
028706,000206:                                                                                                  #  LOCAL VERTICAL(ER) = COS(LATITUDE), 0, SIN(LATITUDE)  IN EARTH REFERENCE
028707,000207: 
028708,000208:                                                                                                  #  LOCAL VERTICAL(IR) = COS(LAT)COS(AZGR), COS(LAT)SIN(AZGR), SIN(LAT)  IN INERTIAL REFERENCE
028709,000209: 
028710,000210:                                                                                                  #  LOCAL EAST(IR) = UNIT(NXV) = -SIN(AZGR), COS(AZGR), 0  IN INERTIAL REFERENCE
028711,000211: 
028712,000212:                                                                                                  #  LOCAL SOUTH(IR) = E(IR) X V(IR)
028713,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

028718,000218:                                                                                                  #           THE RELATIONSHIP OF THE STABLE MEMBER AXES TO THE V, S, E AXES IS GIVEN BY ZSMAZ, THE ANGLE FROM NORTH
028719,000219:                                                                                                  #  TO ZSM, AND TILT, THE ANGLE ABOUT ZSM FROM VERTICAL TO XSM.
028720,000220: 
028721,000221:                                                                                                  #  ZSM(IR) = EAST(IR)SIN(ZSMAZ) - SOUTH(IR)COS(ZSMAZ)
028722,000222: 
028723,000223:                                                                                                  #  YSM(IR) = (ZSM(IR) X V(IR))COS(TILT) - V(IR)SIN(TILT)
028724,000224: 
028725,000225:                                                                                                  #  XSM(IR) = YSM(IR) X ZSM(IR)
028726,000226: 
028727,000227:                                                                                                  #           THESE THREE HALF-UNIT VECTORS, XSM(IR), YSM(IR), AND ZSM(IR) ARE THE SM AXES EXPRESSED IN INERTIAL
028728,000228:                                                                                                  #  REFERENCE COORDINATES AND THEY FORM REFSMMAT, THE REFERENCE TO STABLE MEMBER MATRIX.
028729,000229: 
028730,000230:                                                                                                  #  THE INPUT (PRELAUNCH ERASABLE LOAD) REQUIREMENTS ARE:
028731,000231: 
028732,000232:                                                                                                  #  1) TEPHEM       THE TRIPLE PRECISION TIME IN CENTISECONDS FROM MIDNIGHT JULY 1, OF THE EPHEMERIS YEAR TO
028733,000233:                                                                                                  #  MIDNIGHT OF THE LAUNCH DAY (SIDEREAL CONVERTED TO MEAN SOLAR.)
028734,000234: 
028735,000235:                                                                                                  #     IT IS ASSUMED THAT DURING THE LAUNCH COUNTDOWN THE LGC CLOCK (TIME2, TIME1) WILL BE ALIGNED TO REFLECT A
028736,000236:                                                                                                  #  ZERO VALUE AT MIDNIGHT OF THE LAUNCH DAY.  IF NOT, THE DIFFERENCE MUST BE ADDED TO TEPHEM.
028737,000237: 
028738,000238:                                                                                                  #  2) TILT         THE ROTATION OF XSM ABOUT ZSM (RIGHT HAND RULE) FROM VERTICAL IN REVOLUTIONS.
028739,000239: 

Page 678

028741,000241:                                                                                                  #  3) ZSMAZ        THE ANGLE FROM NORTH TO ZSM IN REVOLUTIONS.
028742,000242: 
028743,000243:                                                                                                  #  THE OUTPUTS OF THIS PROGRAM ARE:
028744,000244: 
028745,000245:                                                                                                  #  1) REFSMMAT     THE HALF-UNIT MATRIX WHICH TRANSFORMS FROM REFERENCE INERTIAL TO SM INERTIAL.
028746,000246: 
028747,000247:                                                                                                  #  2) AZGR         THE ANGLE BETWEEN PAD 37 B VERTICAL AND THE REFERENCE X-Z PLANE IN REVOLUTIONS.
028748,000248: 
028749,000249:                                                                                                  #  CALLING SEQUENCE : CONTINUATION OF MP2JOB
028750,000250:                                                                                                  #  NORMAL EXIT MODE-   TC  ENDOFJOB
028751,000251: 
028752,000252:                                                                                                  #  ALARM OR ABORT EXITS-  NONE
028753,000253: 
028754,000254:                                                                                                  #  DEBRIS-  SPECIALS, CENTRALS AND EXECUTIVE WORK AREA.
028755,000255: 
028756,000256: 27,2065           54345        MATRXJOB           DLOAD    SR                                    
028757,000257: 27,2066           01344                                    TPRELTER                              #  MAKE ALIGN STOP TIME TP.
028758,000258: 27,2067           20617                                    14D                                   
028759,000259: 27,2070           47171                           TAD      RTB                                   
028760,000260: 27,2071           01754                                    TEPHEM                                #  TP CS FROM JULY 1 TO LAUNCH DAY.
028761,000261: 27,2072           33541                                    TPMODE                                #  SET STORE MODE TO TRIPLE.
028762,000262: 27,2073           00025                           STORE    20D                                   #  TP CS FROM JULY 1 TO RELEASE.
028763,000263: 27,2074           60335                           SLOAD    NORM                                  
028764,000264: 27,2075           00025                                    20D                                   
028765,000265: 27,2076           00047                                    X1                                    #  -9 OR -10.
028766,000266: 27,2077           47005                           DMP      RTB                                   
028767,000267: 27,2100           16346                                    WEARTH                                #  REVS PER 2(28)CS.
028768,000268: 27,2101           33520                                    SGNAGREE                              
028769,000269: 27,2102           65257                           SR*      PDDL                                  
028770,000270: 27,2103           20556                                    0          -19D,1                     #  GETS RID OF WHOLE REVS.
028771,000271: 27,2104           00026                                    21D                                   
028772,000272: 27,2105           47005                           DMP      RTB                                   
028773,000273: 27,2106           16346                                    WEARTH                                
028774,000274: 27,2107           33520                                    SGNAGREE                              
028775,000275: 27,2110           43261                           SLR      DAD                                   
028776,000276: 27,2111           21206                                    5                                     #  DP FRACTION OF A REV.
028777,000277: 27,2112           43215                           DAD      DAD                                   
028778,000278: 27,2113           01757                                    AZ0                                   #  MERIDIAN ANGLE AT JULY 1.
028779,000279: 27,2114           01763                                    P37BLONG                              #  PAD ANGLE TO MERIDIAN.
028780,000280: 27,2115           01746                           STORE    AZGR                                  #  VERT. AZ. AT RELEASE WRT X-Z INERTIAL.
028781,000281: 
028782,000282: 27,2116           77756                           SIN                                            
028783,000283: 27,2117           15271                           STODL    REFSMMAT   +6                         #  SIN(AZGR).
028784,000284: 27,2120           01746                                    AZGR                                  
028785,000285: 27,2121           77746                           COS                                            
028786,000286: 27,2122           14150                           STODL    MPAC       +3                         #  Y OF EAST IN INERTIAL = COS(AZGR).
028787,000287: 27,2123           01761                                    P37BLAT                               #  LOCAL VERTICAL Z IN EARTH REF. SIN(L).
028788,000288: 27,2124           77756                           SIN                                            
028789,000289: 27,2125           15267                           STODL    REFSMMAT   +4                         #  ALSO LOCAL VERT Z IN REF. INERTIAL.
028790,000290: 27,2126           01761                                    P37BLAT                               
028791,000291: 

Page 679

028793,000293: 27,2127           72546                           COS      SL1                                   #  SAVES 2 SL'S LATER.
028794,000294: 27,2130           00025                           STORE    20D                                   #  LOCAL VER. X IN EARTH REF.  COS(L).
028795,000295: 27,2131           77605                           DMP                                            
028796,000296: 27,2132           00150                                    MPAC       +3                         
028797,000297: 27,2133           15263                           STODL    REFSMMAT                              #  X OF VERT IN INERTIAL = COS(L)COS(AZGR).
028798,000298: 27,2134           01271                                    REFSMMAT   +6                         #  SIN(AZGR).
028799,000299: 27,2135           77605                           DMP                                            
028800,000300: 27,2136           00025                                    20D                                   
028801,000301: 27,2137           15265                           STODL    REFSMMAT   +2                         #  Y OF VERT IN INERTIAL = COS(L)SIN(AZGR).
028802,000302: 27,2140           17103                                    DPZRO                                 
028803,000303: 27,2141           14152                           STODL    MPAC       +5                         #  Z OF EAST IN INERTIAL = 0.
028804,000304: 27,2142           01271                                    REFSMMAT   +6                         #  SIN(AZGR).
028805,000305: 27,2143           47076                           DCOMP    RTB                                   #  ALSO -X OF EAST IN INERTIAL.
028806,000306: 27,2144           33516                                    VECMODE                               #  SET STORE MODE TO VECTOR.
028807,000307: 27,2145           47206                           PUSH     VXV                                   #  INERTIAL EAST INTO PD.
028808,000308: 27,2146           01263                                    REFSMMAT                              
028809,000309: 27,2147           77656                           UNIT                                           #  INERTIAL SOUTH = UNIT(EXV).
028810,000310: 27,2150           15277                           STODL    REFSMMAT   +12D                       #  INTO REF +12D  (TEMP).
028811,000311: 27,2151           01752                                    ZSMAZ                                 #  ZSM WRT NORTH.
028812,000312: 27,2152           74346                           COS      VXSC                                  
028813,000313: 27,2153           01277                                    REFSMMAT   +12D                       #  SOUTH(IR)COS(ZSMAZ).
028814,000314: 27,2154           15277                           STODL    REFSMMAT   +12D                       #  INTO REF +12D  (TEMP).
028815,000315: 27,2155           01752                                    ZSMAZ                                 
028816,000316: 27,2156           74356                           SIN      VXSC                                  #  EAST(IR)SIN(ZSMAZ).
028817,000317: 27,2157           53451                           VSU      UNIT                                  
028818,000318: 27,2160           01277                                    REFSMMAT   +12D                       #  UNIT(ZSM) IN INERTIAL =
028819,000319: 27,2161           01277                           STORE    REFSMMAT   +12D                       #  EAST(IR)SIN(ZSMAZ) - SOUTH(IR)COS(ZSMAZ)
028820,000320: 
028821,000321: 27,2162           53435                           VXV      UNIT                                  
028822,000322: 27,2163           01263                                    REFSMMAT                              #  YREFSM(UNTILTED)= Z CROSS VERT = Y1.
028823,000323: 27,2164           71525                           PDDL     COS                                   #  INTO PD.
028824,000324: 27,2165           01750                                    TILT                                  #  TILT IS POS ABOUT ZSM FROM UNTILTED YSM.
028825,000325: 27,2166           77761                           VXSC                                           
028826,000326: 27,2167           73525                           PDDL     SIN                                   #  (Y1)COS(T) INTO PD.
028827,000327: 27,2170           01750                                    TILT                                  
028828,000328: 27,2171           51361                           VXSC     BVSU                                  
028829,000329: 27,2172           01263                                    REFSMMAT                              
028830,000330: 27,2173           77656                           UNIT                                           
028831,000331: 27,2174           01271                           STORE    REFSMMAT   +6                         #  YREFSM = (Y1)COS(T) - (VERT)SIN(T).
028832,000332: 
028833,000333: 27,2175           53435                           VXV      UNIT                                  
028834,000334: 27,2176           01277                                    REFSMMAT   +12D                       
028835,000335: 27,2177           01263                           STORE    REFSMMAT                              #  XREFSM = Y CROSS Z.
028836,000336: 27,2200           77776                           EXIT                                           
028837,000337: 
028838,000338: 27,2201           04161                           TC       PHASCHNG                              
028839,000339: 27,2202           00004                           OCT      00004                                 #  DEACTIVATE GROUP 4
028840,000340: 
028841,000341: 27,2203           05567                           TC       ENDOFJOB                              
028842,000342: 

Page 680

028844,000344: 27,2204           05060        DFITMCAL           TC       1LMP                                  #  MUST BE CALLED BY IBNKCALL (OR ISWCALL)
028845,000345: 27,2205           00354                           DEC      236        B-14                       #    IN INTERRUPT OR INHIBITED
028846,000346: 27,2206           32344                           CA       12SEC                                 
028847,000347: 27,2207           05663                           TC       WAITLIST                              #  CALL DFITMCL1 IN 12 SECONDS
028848,000348: 27,2210  E3,1736                                  EBANK=   TGRR                                  
028849,000349: 27,2210           02213 56063                     2CADR    DFITMCL1                              
028850,000350: 
028851,000351: 27,2212           15303                           TCF      ISWRETRN                              
028852,000352: 
028853,000353: 27,2213           05052        DFITMCL1           TC       2LMP                                  
028854,000354: 27,2214           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE OFF
028855,000355: 27,2215           00306                           DEC      198        B-14                       #  MASTER C+W ALARM RESET - COMMAND
028856,000356: 27,2216           05701                           TC       FIXDELAY                              
028857,000357: 27,2217           00310                           DEC      200        B-14                       #  DELAY 2 SECONDS
028858,000358: 
028859,000359: 27,2220           05060        DFITMCL2           TC       1LMP                                  
028860,000360: 27,2221           00307                           DEC      199        B-14                       #  MASTER C+W ALARM RESET - COMMAND RESET
028861,000361: 27,2222           15727                           TCF      TASKOVER                              
028862,000362: 
028863,000363: 27,2223           04117        LIFTOFF            TC       NEWMODEX                              #  DISPLAY MAJOR MODE 11
028864,000364: 27,2224           00011                           OCT      11                                    
028865,000365: 
028866,000366: 27,2225           32444                           CA       61OCT                                 
028867,000367: 27,2226           04246                           TC       NEWPHASE                              #  IMMEDIATE RESTART HERE
028868,000368: 27,2227           00002                           OCT      2                                     
028869,000369: 
028870,000370: 27,2230           22007        REDO2.61           ZL                                             #  THIS SECTION OF CODING ZEROES THE LGC
028871,000371: 27,2231           47746                           CS       HALF                                  #  CLOCK AND MAKES THE CORRESPONDING
028872,000372: 27,2232           60000                           DOUBLE                                         #  CORRECTION TO TBASE5 , SO THAT READACCS
028873,000373: 27,2233           60025                           AD       TIME1                                 #  IS NOT CALLED TOO SOON. THE NEW TBASE5
028874,000374: 27,2234           27123                           ADS      TBASE5                                #  IS OVERFLOW CORRECTED.
028875,000375: 
028876,000376: 27,2235           37767                           CA       ZERO                                  
028877,000377: 27,2236           52025                           DXCH     TIME2                                 
028878,000378: 27,2237           53741                           DXCH     TLIFTOFF                              #  SAVE TIME OF LIFTOFF
028879,000379: 
028880,000380: 27,2240           32445                           CA       63OCT                                 
028881,000381: 27,2241           04246                           TC       NEWPHASE                              #  DO NOT REPEAT THE ABOVE
028882,000382: 27,2242           00002                           OCT      2                                     
028883,000383: 
028884,000384: 27,2243           00006        REDO2.63           EXTEND                                         
028885,000385: 27,2244           31744                           DCA      DT-LETJT                              
028886,000386: 27,2245           05741                           TC       LONGCALL                              
028887,000387: 27,2246  E3,1736                                  EBANK=   TGRR                                  
028888,000388: 27,2246           02270 56063                     2CADR    POSTLET                               
028889,000389: 
028890,000390: 27,2250           04141                           TC       2PHSCHNG                              
028891,000391: 27,2251           00073                           OCT      00073                                 #  RESTART POSTLET LONGCALL GROUP 3
028892,000392: 27,2252           25012                           OCT      25012                                 #  AND CONTINUE LIFTOFF (SET LONGBASE HERE)
028893,000393: 27,2253           77777                           OCT      77777                                 
028894,000394: 

Page 681

028896,000396: 27,2254           04141                           TC       2PHSCHNG                              
028897,000397: 27,2255           00002                           OCT      2                                     
028898,000398: 27,2256           47016                           OCT      47016                                 #  PROTECT RCSPURGE.
028899,000399: 27,2257           24404                           DEC      10500      B-14                       
028900,000400: 27,2260  E3,1736                                  EBANK=   TGRR                                  
028901,000401: 27,2260           02264 56063                     2CADR    RCSPURGE                              
028902,000402: 
028903,000403: 27,2262           05701                           TC       FIXDELAY                              
028904,000404: 27,2263           24404                           DEC      10500      B-14                       
028905,000405: 27,2264           32347        RCSPURGE           CA       +XJETSON                              
028906,000406: 27,2265           00006                           EXTEND                                         
028907,000407: 27,2266           01005                           WRITE    5                                     #  TURN ON +X TRANSLATION
028908,000408: 
028909,000409: 27,2267           15727                           TCF      TASKOVER                              
028910,000410: 
028911,000411: 
028912,000412: 27,2270           40076        POSTLET            CS       FLAGWRD2                              #  ENABLE ABORT COMMAND MONITOR
028913,000413: 27,2271           77753                           MASK     BIT9                                  #  BIT 9  FLAGWORD 2
028914,000414: 27,2272           26076                           ADS      FLAGWRD2                              
028915,000415: 
028916,000416: 27,2273           04117                           TC       NEWMODEX                              
028917,000417: 27,2274           00012                           OCT      12                                    #  MAJOR MODE 12
028918,000418: 
028919,000419: 27,2275           37763                           CA       BIT1                                  
028920,000420: 27,2276           05663                           TC       WAITLIST                              #  ENABLE TUMBLE MONITOR
028921,000421: 27,2277  E6,1422                                  EBANK=   OMEGA                                 
028922,000422: 27,2277           02470 60066                     2CADR    TUMTASK                               
028923,000423: 
028924,000424: 27,2301           04141                           TC       2PHSCHNG                              
028925,000425: 27,2302           00053                           OCT      00053                                 #  RESTART TUMTASK GR 3
028926,000426: 27,2303           47012                           OCT      47012                                 
028927,000427: 27,2304           01750                           DEC      1000       B-14                       
028928,000428: 27,2305  E3,1736                                  EBANK=   TGRR                                  
028929,000429: 27,2305           02311 56063                     2CADR    MONBOOST                              
028930,000430: 
028931,000431: 27,2307           05701                           TC       FIXDELAY                              
028932,000432: 27,2310           01750                           DEC      1000       B-14                       #  WAIT 10 SECONDS FOR STAGING + SIVB IGN.
028933,000433: 
028934,000434: 27,2311           32343        MONBOOST           CA       BOOSTADR                              #  MONITOR DELV FOR BOOSTER SHUTDOWN
028935,000435: 27,2312           55310                           TS       DVSELECT                              
028936,000436: 
028937,000437: 27,2313           04161                           TC       PHASCHNG                              
028938,000438: 27,2314           47012                           OCT      47012                                 
028939,000439: 27,2315           04064                           DEC      2100       B-14                       
028940,000440: 27,2316  E3,1736                                  EBANK=   TGRR                                  
028941,000441: 27,2316           02322 56063                     2CADR    PURGEOFF                              
028942,000442: 
028943,000443: 27,2320           05701                           TC       FIXDELAY                              
028944,000444: 27,2321           04064                           DEC      2100       B-14                       #  WAIT 21 SECONDS
028945,000445: 

Page 682

028947,000447: 27,2322           37767        PURGEOFF           CA       ZERO                                  
028948,000448: 27,2323           04246                           TC       NEWPHASE                              
028949,000449: 27,2324           00006                           OCT      6                                     
028950,000450: 
028951,000451: 27,2325           37767                           CA       ZERO                                  
028952,000452: 27,2326           00006                           EXTEND                                         
028953,000453: 27,2327           01006                           WRITE    6                                     
028954,000454: 27,2330           00006                           EXTEND                                         
028955,000455: 27,2331           01005                           WRITE    5                                     #  TURN OFF RCS JETS
028956,000456: 
028957,000457: 27,2332           05101                           TC       1LMP+DT                               
028958,000458: 27,2333           00272                           DEC      186        B-14                       #  ECS PRIMARY WATER VALVE OPEN
028959,000459: 
028960,000460: 27,2334           00310                           DEC      200        B-14                       #  WAIT 2 SECONDS
028961,000461: 
028962,000462: 27,2335           05060        WATEROFF           TC       1LMP                                  
028963,000463: 27,2336           00273                           DEC      187        B-14                       #  ECS PRIMARY WATER VALVE - OPEN RESET
028964,000464: 
028965,000465: 27,2337           04161                           TC       PHASCHNG                              
028966,000466: 27,2340           00002                           OCT      00002                                 #  DEACTIVATE GROUP 2
028967,000467: 
028968,000468: 27,2341           15727                           TCF      TASKOVER                              #  END OF MISSION PHASE 2
028969,000469: 
028970,000470: 
028971,000471: 
028972,000472:                                                                                                  #  DELTA T S AND OTHER CONSTANTS FOR MP2
028973,000473: 27,2342           02251        AVEGADRS           GENADR   AVERAGEG                              
028974,000474: 27,2343           02273        BOOSTADR           GENADR   BOOSTMON                              
028975,000475: 27,2344  27,2442               SVEXADRS           EQUALS   SVEXITAD                              
028976,000476: 27,2344           02260        12SEC              DEC      1200       B-14                       
028977,000477: 27,2345           37116 32623  WEARTH             2DEC     31.1539787 B-5                        #  REVOLUTIONS PER 2(28) CENTISECONDS.
028978,000478: 
028979,000479: 27,2347           00252        +XJETSON           OCT      00252                                 #  BITS FOR +X TRANSLATION JETS
028980,000480: 
028981,000481: 
028982,000482: 
028983,000483:                                                                                                  #  ABORT COMMAND MONITOR - DETECTS
028984,000484:                                                                                                  #  SUBORBITAL ABORT AND CONTINGENCY
028985,000485:                                                                                                  #  ORBIT INSERTION
028986,000486: 
028987,000487: 27,2350           00004        SUBABORT           INHINT                                         #  SUBORBITAL ABORT - ZERO ABORTNDX TO
028988,000488: 27,2351           37767                           CAF      ZERO                                  #  SET UP MISSION PHASE 3
028989,000489: 27,2352           12355                           TCF      CONORBIT   +2                         
028990,000490: 
028991,000491: 27,2353           00004        CONORBIT           INHINT                                         #  CONTINGENCY ORBIT INSERTION - ABORTNDX
028992,000492: 27,2354           37762                           CAF      TWO                                   #  SET TO 2 TO SET UP MISSION PHASE 4
028993,000493: 27,2355           54001                           TS       L                                     #  SAVE IN L
028994,000494: 27,2356           40076                           CS       FLAGWRD2                              #  CHECK ABORT RECEIVED FLAG TO INSURE THAT
028995,000495: 
028996,000496: 27,2357           77752                           MASK     BIT10                                 #  MULTIBLE TRANSMISSIONS DON'T START

Page 683

028998,000498: 27,2360           00006                           EXTEND                                         #  MULTIBLE JOBS.  SINCE MULTIBLE XMISSIONS
028999,000499: 27,2361           15567                           BZF      ENDOFJOB                              #  ARE THE RULE, LEAVE WITH NO ALARM.
029000,000500: 27,2362           40076                           CS       FLAGWRD2                              #  IS ABORT COMMAND MONITOR ENABLED
029001,000501: 
029002,000502: 27,2363           77753                           MASK     BIT9                                  
029003,000503: 27,2364           00006                           EXTEND                                         
029004,000504: 27,2365           12371                           BZF      SETABORT                              #  YES.
029005,000505: 
029006,000506: 27,2366           04755                           TC       ALARM                                 #  ABORT NOT ENABLED, SET ALARM AND EXIT.
029007,000507: 27,2367           00300                           OCT      00300                                 
029008,000508: 27,2370           05567                           TC       ENDOFJOB                              
029009,000509: 
029010,000510: 27,2371           00004        SETABORT           INHINT                                         
029011,000511: 27,2372           35352                           CA       EBANK3                                
029012,000512: 27,2373           54003                           TS       EBANK                                 
029013,000513: 27,2374           23742                           LXCH     ABORTNDX                              #  STORE ABORTNDX
029014,000514: 27,2375           32342                           CAF      AVEGADRS                              
029015,000515: 27,2376           55310                           TS       DVSELECT                              #  TURN OFF BOOSTMON
029016,000516: 27,2377           04141                           TC       2PHSCHNG                              
029017,000517: 27,2400           00004                           OCT      00004                                 
029018,000518: 27,2401           00006                           OCT      00006                                 
029019,000519: 27,2402           04141                           TC       2PHSCHNG                              
029020,000520: 27,2403           00003                           OCT      00003                                 
029021,000521: 27,2404           07022                           OCT      07022                                 
029022,000522: 27,2405           21000                           OCT      21000                                 
029023,000523: 27,2406  E3,1742                                  EBANK=   ABORTNDX                              
029024,000524: 27,2406           02414 56063                     2CADR    TUMBL3/4                              
029025,000525: 
029026,000526: 27,2410           06060                           TC       FLAG2UP                               
029027,000527: 27,2411           01000                           OCT      01000                                 #  ABORT RECEIVED FLAG
029028,000528: 27,2412           05225                           TC       POSTJUMP                              
029029,000529: 27,2413           02354                           CADR     ENEMA                                 #  WIPE EVERYTHING OUT
029030,000530: 
029031,000531: 
029032,000532: 
029033,000533: 27,2414           00004        TUMBL3/4           INHINT                                         
029034,000534: 27,2415           37763                           CA       BIT1                                  
029035,000535: 27,2416           05663                           TC       WAITLIST                              #  RE-ESTABLISH TUMBLE MONITOR
029036,000536: 27,2417  E6,1422                                  EBANK=   OMEGA                                 
029037,000537: 27,2417           02470 60066                     2CADR    TUMTASK                               
029038,000538: 
029039,000539: 27,2421           04141                           TC       2PHSCHNG                              
029040,000540: 27,2422           00053                           OCT      00053                                 #  3.5 SPOT FOR TUMTASK
029041,000541: 27,2423           04022                           OCT      04022                                 #  GR 2 FOR ABORT3/4
029042,000542: 
029043,000543: 27,2424           00004        ABORT3/4           INHINT                                         
029044,000544: 27,2425           35651                           CAF      PRIO27                                
029045,000545: 27,2426           54063                           TS       NEWPRIO                               #  SET UP MP3 OR MP4 VIA SPVAC
029046,000546: 
029047,000547: 27,2427           00006                           EXTEND                                         

Page 684

029049,000549: 27,2430           51742                           INDEX    ABORTNDX                              #  GET RIGHT 2CADR
029050,000550: 27,2431           32435                           DCA      MP3-4ADR                              
029051,000551: 27,2432           05526                           TC       SPVAC                                 #  SET UP ABORT JOB.
029052,000552: 
029053,000553: 27,2433           15567                           TCF      ENDOFJOB                              
029054,000554: 
029055,000555: 
029056,000556: 
029057,000557: 27,2434  E4,1566                                  EBANK=   TDEC                                  
029058,000558: 27,2434           02000 52064  MP3-4ADR           2CADR    MP03JOB                               #  DO NOT CHANGE THE ORDER OF THESE 2 CARDS
029059,000559: 
029060,000560: 27,2436  E4,1566                                  EBANK=   TDEC                                  
029061,000561: 27,2436           02000 66064                     2CADR    MP4JOB                                #  THEY ARE IN AN INDEXED TABLE
029062,000562: 
029063,000563: 27,2440  E4,1566                                  EBANK=   TDEC                                  #  LEFT-OVERS FROM DELETED MISSION PHASE 18
029064,000564: 27,2440           02341 16064  MIDAVEAD           2CADR    MIDTOAVE                              
029065,000565: 
029066,000566: 27,2442  E4,1566                                  EBANK=   TDEC                                  
029067,000567: 27,2442           02324 60064  SVEXITAD           2CADR    SERVEXIT                              
029068,000568: 
029069,000569: 
029070,000570: 
029071,000571: 27,2444           00061        61OCT              OCT      61                                    
029072,000572: 27,2445           00063        63OCT              OCT      63                                    
029073,000573: 

Page 685

029075,000575:                                                                                                  #  SET UP & EXECUTE JOB TO ADD VELOCITY CORRECTION TO VN:
029076,000576: 
029077,000577: 27,2446  E5,1745                                  EBANK=   GTSWTLST                              
029078,000578: 
029079,000579: 27,2446           35643        LIFTFIXT           CA       PRIO17                                #  LESS THAN PRELAUNCH OR NORMLIZE
029080,000580: 27,2447           05516                           TC       FINDVAC                               
029081,000581: 27,2450  E5,1743                                  EBANK=   OLDGT                                 
029082,000582: 27,2450           02453 56065                     2CADR    LIFTFIX                               
029083,000583: 
029084,000584: 27,2452           05727                           TC       TASKOVER                              
029085,000585: 
029086,000586: 
029087,000587: 
029088,000588: 27,2453           41307        LIFTFIX            CS       PIPTIME    +1                         #  PRELAUNCH BY NOW HAS FOUND THE GRR FLAG
029089,000589: 27,2454           61743                           AD       OLDGT                                 #  & SUBSEQUENTLY BEEN THRU PREREAD, VIA
029090,000590: 27,2455           00006                           EXTEND                                         #  MP2TASK.
029091,000591: 27,2456           62461                           BZMF     +3                                    
029092,000592: 27,2457           67744                           AD       NEG1/2                                #  (IF TIME1 OVERFLOWED)
029093,000593: 27,2460           67744                           AD       NEG1/2                                
029094,000594: 27,2461           54147                           TS       MPAC       +3                         
029095,000595: 
029096,000596: 27,2462           06112                           TC       INTPRET                               
029097,000597: 
029098,000598: 27,2463           56335                           SLOAD    DDV                                   
029099,000599: 27,2464           00150                                    MPAC       +3                         
029100,000600: 27,2465           16503                                    -1SEC214                              #  MAKE THE TIME-RATIO POSITIVE.
029101,000601: 27,2466           63361                           VXSC     PDVL                                  
029102,000602: 27,2467           01025                                    GDT/2                                 
029103,000603: 27,2470           00404                                    DELV                                  
029104,000604: 27,2471           76455                           VAD      VSL1                                  
029105,000605: 27,2472           01765                                    DELVBUF                               
029106,000606: 27,2473           53361                           VXSC     VAD                                   
029107,000607: 27,2474           21165                                    KPIP1                                 
029108,000608: 27,2475           77655                           VAD                                            
029109,000609: 27,2476           01017                                    VN                                    
029110,000610: 27,2477           01017                           STORE    VN                                    
029111,000611: 
029112,000612: 27,2500           77776                           EXIT                                           
029113,000613: 27,2501           05567                           TC       ENDOFJOB                              
029114,000614: 
029115,000615: 
029116,000616: 
029117,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