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