Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

028260,000002:                                                                                                  ## Copyright:   Public domain.
028261,000003:                                                                                                  ## Filename:    MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc
028262,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
028263,000005:                                                                                                  ##              It is part of an early development version of the software
028264,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
028265,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
028266,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
028267,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
028268,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
028269,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
028270,000012:                                                                                                  ##              that the code format has been changed to conform to the
028271,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
028272,000014:                                                                                                  ##              original YUL assembler.
028273,000015:                                                                                                  ## Reference:   pp. 632-643
028274,000016:                                                                                                  ## Assembler:   yaYUL
028275,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028276,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028277,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
028278,000020:                                                                                                  ##              2017-06-13 RSB  Transcribed.
028279,000021:                                                                                                  ##              2017-06-13 HG   Fix operator DXCH ->QXCH
028280,000022:                                                                                                  ##                              Fix operator REFSSMAT -> REFSMMAT
028281,000023:                                                                                                  ##                              Fix comment (missing #) near label SHOW12
028282,000024:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
028283,000025:                                                                                                  ##                              octopus/ProoferComments.
028284,000026: 

Page 632

028286,000028:                                                                                                  #  PROGRAM NAME - MISSION PHASE 2 GUIDANCE REFERENCE RELEASE + BOOST MONITOR.
028287,000029: 
028288,000030:                                                                                                  #  MODIFICATION NUMBER - 1         DATE - NOVEMBER 22, 1966                MODIFICATION BY - COVELLI
028289,000031: 
028290,000032: 
028291,000033: 
028292,000034:                                                                                                  #  FUNCTIONAL DESCRIPTION -
028293,000035: 
028294,000036:                                                                                                  #     THE FUNCTION OF MISSION PHASE 2 IS TO CONTROL THE SEQUENCE OF EVENTS IN THE 206 FLIGHT FROM GUIDANCE
028295,000037:                                                                                                  #  REFERENCE RELEASE THROUGH LIFTOFF TO THE SIVB BOOSTER SHUTDOWN.
028296,000038: 
028297,000039:                                                                                                  #     AT GUIDANCE REFERENCE RELEASE, THE GRR FLAG IS SET,  PREREAD IS CALLED TO BEGIN COMPUTATION OF POSITION AND
028298,000040:                                                                                                  #  VELOCITY, AND CALLS ARE MADE FOR DFI T/M CALIBRATION AND LIFTOFF
028299,000041: 
028300,000042:                                                                                                  #     WHEN PRELAUNCH DETECTS THAT THE GRR FLAG IS SET, IT TERMINATES GYROCOMPASSING AND CALLS MP2JOB. MP2JOB
028301,000043:                                                                                                  #  DISPLAYS 7 IN THE MAJOR MODE AND GOES TO MATRXJOB TO COMPUTE REFSMMAT.
028302,000044: 
028303,000045:                                                                                                  #     AT LIFTOFF, THE LGC CLOCK IS ZEROED, CALLS ARE MADE FOR THE COLD FIRE PURGE AND POST LET JETTISON PROGRAMS.
028304,000046:                                                                                                  #  THE MAJOR MODE IS CHANGED TO 11.
028305,000047: 
028306,000048:                                                                                                  #     AT POST LET JETTISON, THE DV MONITOR IS ENABLED TO DETECT BOOSTER SHUTDOWN, THE ABORT COMMAND MONITOR AND THE
028307,000049:                                                                                                  #  TUMBLE MONITOR ARE ENABLED, AND THE MAJOR MODE IS CHANGED TO 12.
028308,000050: 
028309,000051:                                                                                                  #     THE VARIOUS LMP COMMANDS REQUIRED FOR MP2 ARE SCHEDULED BY WAITLIST CALLS.
028310,000052: 
028311,000053:                                                                                                  #     AT DETECTION OF SIVB SHUTDOWN, AN EXECUTIVE CALL IS MADE TO MISSION PHASE 6.
028312,000054: 
028313,000055: 
028314,000056: 
028315,000057:                                                                                                  #  CALLING SEQUENCE :
028316,000058: 
028317,000059:                                                                                                  #     MISSION PHASE 2 IS BEGUN UPON RECEIPT OF THE GUIDANCE REFERENCE RELEASE SIGNAL (VERB 65 ENTER) VIA UPLINK.
028318,000060: 
028319,000061: 
028320,000062: 
028321,000063:                                                                                                  #  SUBROUTINES CALLED :
028322,000064: 
028323,000065:                                                                                                  #           PREREAD                1LMP
028324,000066:                                                                                                  #           TUMTASK                2LMP
028325,000067:                                                                                                  #           NEWMODEX               PHASCHNG
028326,000068:                                                                                                  #           FINDVAC                NEWPHASE
028327,000069:                                                                                                  #           NOVAC                  DFITMCAL
028328,000070:                                                                                                  #           SPVAC                  IBNKCALL
028329,000071:                                                                                                  #           WAITLIST
028330,000072:                                                                                                  #           LONGCALL
028331,000073: 
028332,000074: 
028333,000075: 
028334,000076:                                                                                                  #  NORMAL EXIT MODES :

Page 633

028336,000078:                                                                                                  #     EXIT TO MISSION PHASE 6 AT SIVB SHUTDOWN.
028337,000079: 
028338,000080: 
028339,000081: 
028340,000082:                                                                                                  #  ABORT EXIT MODES :
028341,000083: 
028342,000084:                                                                                                  #     TO MISSION PHASE 3 IF SUBORBITAL ABORT COMMAND RECEIVED VIA UPLINK.
028343,000085:                                                                                                  #     TO MISSION PHASE 4 IF CONTINGENCY ORBIT INSERTION COMMAND RECEIVED VIA UPLINK.
028344,000086: 
028345,000087:                                                                                                  #     TO CHARALRM IF EITHER OF THE ABOVE ABORT COMMANDS RECEIVED WHILE ABORT COMMAND MONITOR NOT ENABLED.
028346,000088: 
028347,000089: 
028348,000090: 
028349,000091:                                                                                                  #  OUTPUT :
028350,000092: 
028351,000093:                                                                                                  #           TGRR          TIME OF GUIDANCE REFERENCE RELEASE
028352,000094:                                                                                                  #           TPRELTER      TIME OF GYROCOMPASSING TERMINATION
028353,000095:                                                                                                  #           TLIFTOFF      TIME OF LIFTOFF AND LGC CLOCK ZEROING
028354,000096:                                                                                                  #           GRR FLAG      BIT2 FLAGWRD1 SET TO INDICATE GRR SIGNAL RECEIVED
028355,000097:                                                                                                  #           SERVICER IS GOING AT END OF MISSION PHASE 2

In the printout, the next two lines, "R000052" and "R000053" are overprinted and not entirely legible. The text of the following line has thus been taken from the corresponding line in SUNBURST 120. — RSB

028359,000101:                                                                                                  #           MAJOR MODE DISPLAYS
028360,000102:                                                                                                  #  ERASABLE INITIALIZATION :
028361,000103: 
028362,000104:                                                                                                  #           DT-DFITM      DELTA TIME FROM GRR TO DFI T/M CALIBRATION, SINGLE PRECISION SCALED AT 2(+14) CS.
028363,000105:                                                                                                  #           DT-LIFT       DELTA TIME FROM GRR TO LIFTOFF, DOUBLE PRECISION SCALED AT 2(+28) CS.
028364,000106:                                                                                                  #           DT-LETJT      DELTA TIME FROM LIFTOFF TO POST LET JETTISON, DOUBLE PRECISION SCALED AT 2(+28) CS.
028365,000107:                                                                                                  #           RAVEGON       POSITION AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+24) M.
028366,000108:                                                                                                  #           VAVEGON       VELOCITY AT GRR IN SM CO-ORDINATES, VECTOR SCALED AT 2(+7) M/CS.
028367,000109: 
028368,000110:                                                                                                  #  ********  ALL OF THE ERASABLE INITIALIZATION MUST BE DONE DURING THE PRE-LAUNCH ERASABLE LOAD  *****************
028369,000111: 
028370,000112: 
028371,000113: 
028372,000114:                                                                                                  #  DEBRIS :
028373,000115: 
028374,000116:                                                                                                  #     CENTRALS AND EXECUTIVE WORK AREA.
028375,000117: 
028376,000118: 
028377,000119: 
028378,000120: 27,2000                                           BANK     27                                    
028379,000121: 27,2000  E3,1746                                  EBANK=   TGRR                                  
028380,000122: 
028381,000123: 
028382,000124: 
028383,000125: 27,2000           36301        GRRPLACE           CAF      THREE                                 #  COME HERE ON VERB 65 - GRR
028384,000126: 27,2001           04234                           TC       NEWPHASE                              
028385,000127: 27,2002           00002                           OCT      00002                                 

Page 634

028387,000129: 27,2003           00004                           INHINT                                         
028388,000130: 27,2004           32024                           CA       MP2BBSET                              #  SET BBCON FOR MP2
028389,000131: 27,2005           54006                           TS       BBANK                                 
028390,000132: 
028391,000133: 27,2006           00006                           EXTEND                                         
028392,000134: 27,2007           30025                           DCA      TIME2                                 
028393,000135: 27,2010           53747                           DXCH     TGRR                                  #  SAVE TIME OF GUIDANCE REFERENCE RELEASE
028394,000136: 
028395,000137: 27,2011           40075                           CS       FLAGWRD1                              
028396,000138: 27,2012           77754                           MASK     BIT2                                  
028397,000139: 27,2013           26075                           ADS      FLAGWRD1                              #  GET GRR FLAG  BIT2  FLAGWRD1
028398,000140: 
028399,000141: 27,2014           31760                           CA       DT-DFITM                              
028400,000142: 27,2015           05701                           TC       WAITLIST                              #  SET UP DFI T/M CALIBRATION ROUTINE
028401,000143: 27,2016  E3,1746                                  EBANK=   TGRR                                  
028402,000144: 27,2016           02204 56003                     2CADR    PREDFITM                              
028403,000145: 
028404,000146: 27,2020           00006                           EXTEND                                         
028405,000147: 27,2021           31757                           DCA      DT-LIFT                               
028406,000148: 27,2022           05757                           TC       LONGCALL                              #  SET UP CALL TO LIFTOFF PROGRAM
028407,000149: 27,2023  E3,1746                                  EBANK=   TGRR                                  
028408,000150: 27,2023           02240 56003  MP2BBS-1           2CADR    LIFTOFF                               
028409,000151: 
028410,000152: 27,2025           32360                           CA       AVEGADRS                              
028411,000153: 27,2026           55322                           TS       DVSELECT                              
028412,000154: 
028413,000155: 27,2027           00006                           EXTEND                                         
028414,000156: 27,2030           32456                           DCA      SVEXADRS                              
028415,000157: 27,2031           53073                           DXCH     AVGEXIT                               
028416,000158: 
028417,000159: 27,2032           00006                           EXTEND                                         
028418,000160: 27,2033           32456                           DCA      SVEXADRS                              
028419,000161: 27,2034           53075                           DXCH     DVMNEXIT                              
028420,000162: 
028421,000163: 27,2035           37755                           CA       ONE                                   
028422,000164: 27,2036           05701                           TC       WAITLIST                              
028423,000165: 27,2037  E5,1506                                  EBANK=   DVTOTAL                               
028424,000166: 27,2037           02011 60065                     2CADR    BIBIBIAS                              #  START SERVICER WITH NO LAST BIAS
028425,000167: 
028426,000168: 27,2041           37761                           CAF      ZERO                                  
028427,000169: 27,2042           04234                           TC       NEWPHASE                              
028428,000170: 27,2043           00002                           OCT      00002                                 
028429,000171: 27,2044           37743                           CAF      EBANK4                                
028430,000172: 27,2045           54002                           TS       Q                                     #  E4 IN Q
028431,000173: 27,2046           00006                           EXTEND                                         
028432,000174: 27,2047           31747                           DCA      TGRR                                  #  IN A,L
028433,000175: 27,2050           00006                           EXTEND                                         
028434,000176: 27,2051           22003                           QXCH     EBANK                                 #  SWITCH EBANK, SAVE OLD IN Q
028435,000177: 27,2052  E4,1723                                  EBANK=   TEVENT                                
028436,000178: 27,2052           53724                           DXCH     TEVENT                                #  SET TGRR IN TEVENT

Page 635

028438,000180: 27,2053  E3,1746                                  EBANK=   TGRR                                  
028439,000181: 27,2053           00006                           EXTEND                                         
028440,000182: 27,2054           22003                           QXCH     EBANK                                 #  RESTORE EBANK
028441,000183: 
028442,000184: 27,2055           15605                           TCF      ENDOFJOB                              
028443,000185: 
028444,000186: 27,2056  27,2024               MP2BBSET           EQUALS   MP2BBS-1   +1                         #  BBCON FOR MP2
028445,000187: 
028446,000188: 
028447,000189: 27,2056           04147        MP2JOB             TC       PHASCHNG                              
028448,000190: 27,2057           01022                           OCT      01022                                 #  PICK UP HERE ON RESTART
028449,000191: 
028450,000192: 27,2060           37754                           CAF      TWO                                   #  SET 2 IN MISSION PHASE REGISTER
028451,000193: 27,2061           54765                           TS       PHASENUM                              
028452,000194: 
028453,000195: 27,2062           00006                           EXTEND                                         
028454,000196: 27,2063           31155                           DCA      TEMTPREL                              #  SAVE TIME OF PRELAUNCH TERMINATION
028455,000197: 27,2064           53753                           DXCH     TPRELTER                              
028456,000198: 
028457,000199: 27,2065           04105        SHOW7              TC       NEWMODEX                              #  DISPLAY 7 IN MAJOR MODE
028458,000200: 27,2066           00007                           OCT      00007                                 
028459,000201: 
028460,000202:                                                                                                  #  GO TO MATRXJOB TO COMPUTE REFSMMAT                            
028461,000203: 

Page 636

028463,000205:                                                                                                  #  PROGRAM DESCRIPTION- MATRXJOB                                           DATE- 18 NOV 1966
028464,000206:                                                                                                  #  MOD NO- 1                                                               LOG SECTION- MP 2 GRR + BOOST MONITOR
028465,000207:                                                                                                  #  MOD BY- LICKLY, KERNAN                                                  ASSEMBLY- SUNBURST REVISION 8
028466,000208: 
028467,000209:                                                                                                  #  FUNCTIONAL DESCRIPTION
028468,000210: 
028469,000211:                                                                                                  #           THIS PROGRAM CONSTRUCTS THE MATRIX WHICH RELATES THE STABLE MEMBER INERTIAL FRAME TO THE REFERENCE
028470,000212:                                                                                                  #  FRAME (Z NORTH, X ALONG THE VERNAL EQUINOX.)
028471,000213: 
028472,000214:                                                                                                  #           TWO INTERMEDIATE COORDINATE SYSTEMS ARE USED: A LOCAL, EARTH FIXED, VERTICAL, SOUTH, EAST SYSTEM AND AN
028473,000215:                                                                                                  #  EARTH REFERENCE X, Y, Z SYSTEM.  IN THIS LATTER SYSTEM, THE Z AXIS IS THE EARTH'S ROTATION AXIS, THE X AXIS IS
028474,000216:                                                                                                  #  NORMAL TO Z IN THE PLANE OF Z AND THE LOCAL VERTICAL, POSITIVE IN THE DIRECTION OF V.  Y IS Z CROSS X.
028475,000217: 
028476,000218:                                                                                                  #           THE FIRST COMPUTATION IS OF AZGR, THE ANGLE BETWEEN THE REFERENCE INERTIAL AND EARTH REFERENCE X-Z
028477,000219:                                                                                                  #  PLANES (THE Z AXES ARE COINCIDENT).  AZGR IS COMPUTED BY CONVERTING THE TIME FROM THE BEGINNING OF THE EPHEMERIS
028478,000220:                                                                                                  #  YEAR TO RELEASE (TEPHEM + TPRELTER) TO REVOLUTIONS (DAYS).  THE WHOLE REVS ARE DISCARDED AND THE INITIAL ANGLE
028479,000221:                                                                                                  #  (AZ0) BETWEEN THE GREENWICH MERIDIAN AND THE REFERENCE X-Z PLANES IS ADDED.  ADDING THE LONGITUDE YIELDS AZGR.
028480,000222: 
028481,000223:                                                                                                  #           THE FOLLOWING COMPUTATIONS ARE THEN PERFORMED.
028482,000224: 
028483,000225:                                                                                                  #  LOCAL VERTICAL(ER) = COS(LATITUDE), 0, SIN(LATITUDE)  IN EARTH REFERENCE
028484,000226: 
028485,000227:                                                                                                  #  LOCAL VERTICAL(IR) = COS(LAT)COS(AZGR), COS(LAT)SIN(AZGR), SIN(LAT)  IN INERTIAL REFERENCE
028486,000228: 
028487,000229:                                                                                                  #  LOCAL EAST(IR) = NXV = -COS(LAT)SIN(AZGR), COS(LAT)COS(AZGR), 0  IN INERTIAL REFERENCE
028488,000230: 
028489,000231:                                                                                                  #  LOCAL SOUTH(IR) = E(IR) X V(IR)
028490,000232: 
028491,000233:                                                                                                  #           THE RELATIONSHIP OF THE STABLE MEMBER AXES TO THE V, S, E AXES IS GIVEN BY ZSMAZ, THE ANGLE FROM NORTH
028492,000234:                                                                                                  #  TO ZSM, AND TILT, THE ANGLE ABOUT ZSM FROM VERTICAL TO XSM.
028493,000235: 
028494,000236:                                                                                                  #  ZSM(IR) = EAST(IR)COS(ZSMAZ - 90) + SOUTH(IR)SIN(ZSMAZ - 90)
028495,000237: 
028496,000238:                                                                                                  #  YSM(IR) = (ZSM(IR) X V(IR))COS(TILT) - V(IR)SIN(TILT)
028497,000239: 
028498,000240:                                                                                                  #  XSM(IR) = YSM(IR) X ZSM(IR)
028499,000241: 
028500,000242:                                                                                                  #           THESE THREE HALF-UNIT VECTORS, XSM(IR), YSM(IR), AND ZSM(IR) ARE THE SM AXES EXPRESSED IN INERTIAL
028501,000243:                                                                                                  #  REFERENCE COORDINATES AND THEY FORM REFSMMAT, THE REFERENCE TO STABLE MEMBER MATRIX.
028502,000244: 
028503,000245:                                                                                                  #  THE INPUT (PRELAUNCH ERASABLE LOAD) REQUIREMENTS ARE:
028504,000246: 
028505,000247:                                                                                                  #  1) TEPHEM       THE TRIPLE PRECISION TIME IN CENTISECONDS FROM MIDNIGHT JULY 1, OF THE EPHEMERIS YEAR TO
028506,000248:                                                                                                  #  MIDNIGHT OF THE LAUNCH DAY (SIDEREAL CONVERTED TO MEAN SOLAR.)
028507,000249: 
028508,000250:                                                                                                  #     IT IS ASSUMED THAT DURING THE LAUNCH COUNTDOWN THE LGC CLOCK (TIME2, TIME1) WILL BE ALIGNED TO REFLECT A
028509,000251:                                                                                                  #  ZERO VALUE AT MIDNIGHT OF THE LAUNCH DAY.  IF NOT, THE DIFFERENCE MUST BE ADDED TO TEPHEM.
028510,000252: 
028511,000253:                                                                                                  #  2) TILT         THE ROTATION OF XSM ABOUT ZSM (RIGHT HAND RULE) FROM VERTICAL IN REVOLUTIONS.
028512,000254: 

Page 637

028514,000256:                                                                                                  #  3) ZSMAZ        THE ANGLE FROM NORTH TO ZSM IN REVOLUTIONS.
028515,000257: 
028516,000258:                                                                                                  #  THE OUTPUTS OF THIS PROGRAM ARE:
028517,000259: 
028518,000260:                                                                                                  #  1) REFSMMAT     THE HALF-UNIT MATRIX WHICH TRANSFORMS FROM REFERENCE INERTIAL TO SM INERTIAL.
028519,000261: 
028520,000262:                                                                                                  #  2) AZGR         THE ANGLE BETWEEN PAD 37 B VERTICAL AND THE REFERENCE X-Z PLANE IN REVOLUTIONS.
028521,000263: 
028522,000264:                                                                                                  #  CALLING SEQUENCE : CONTINUATION OF MP2JOB
028523,000265:                                                                                                  #  NORMAL EXIT MODE-   TC  ENDOFJOB
028524,000266: 
028525,000267:                                                                                                  #  ALARM OR ABORT EXITS-  NONE
028526,000268: 
028527,000269:                                                                                                  #  DEBRIS-  SPECIALS, CENTRALS AND EXECUTIVE WORK AREA.
028528,000270: 
028529,000271: 27,2067           06103        MATRXJOB           TC       INTPRET                               
028530,000272: 27,2070           54345                           DLOAD    SR                                    
028531,000273: 27,2071           01753                                    TPRELTER                              #  MAKE ALIGN STOP TIME TP.
028532,000274: 27,2072           20617                                    14D                                   
028533,000275: 27,2073           47171                           TAD      RTB                                   
028534,000276: 27,2074           01772                                    TEPHEM                                #  TP CS FROM JULY 1 TO LAUNCH DAY.
028535,000277: 27,2075           33606                                    TPMODE                                #  SET STORE MODE TO TRIPLE.
028536,000278: 27,2076           00025                           STORE    20D                                   #  TP CS FROM JULY 1 TO RELEASE.
028537,000279: 27,2077           60335                           SLOAD    NORM                                  
028538,000280: 27,2100           00025                                    20D                                   
028539,000281: 27,2101           00047                                    X1                                    #  -9 OR -10.
028540,000282: 27,2102           47005                           DMP      RTB                                   
028541,000283: 27,2103           16367                                    WEARTH                                #  REVS PER 2(28)CS.
028542,000284: 27,2104           33565                                    SGNAGREE                              
028543,000285: 27,2105           65257                           SR*      PDDL                                  
028544,000286: 27,2106           20556                                    0          -19D,1                     #  GETS RID OF WHOLE REVS.
028545,000287: 27,2107           00026                                    21D                                   
028546,000288: 27,2110           47005                           DMP      RTB                                   
028547,000289: 27,2111           16367                                    WEARTH                                
028548,000290: 27,2112           33565                                    SGNAGREE                              
028549,000291: 27,2113           43261                           SLR      DAD                                   
028550,000292: 27,2114           21206                                    5                                     #  DP FRACTION OF A REV.
028551,000293: 27,2115           43215                           DAD      DAD                                   
028552,000294: 27,2116           16371                                    AZ0                                   #  MERIDIAN ANGLE AT JULY 1.
028553,000295: 27,2117           16373                                    P37BLONG                              #  PAD ANGLE TO MERIDIAN.
028554,000296: 27,2120           01764                           STORE    AZGR                                  #  VERT. AZ. AT RELEASE WRT X-Z INERTIAL.
028555,000297: 
028556,000298: 27,2121           77756                           SIN                                            
028557,000299: 27,2122           71525                           PDDL     COS                                   
028558,000300: 27,2123           01764                                    AZGR                                  
028559,000301: 27,2124           73525                           PDDL     SIN                                   
028560,000302: 27,2125           16375                                    P37BLAT                               #  LOCAL VERTICAL Z IN EARTH REF. SIN(L).
028561,000303: 27,2126           15301                           STODL    REFSMMAT   +4                         #  ALSO LOCAL VERT Z IN REF. INERTIAL.
028562,000304: 27,2127           16375                                    P37BLAT                               
028563,000305: 27,2130           72546                           COS      SL1                                   #  SAVES 2 SL'S LATER.

Page 638

028565,000307: 27,2131           00025                           STORE    20D                                   #  LOCAL VER. X IN EARTH REF.  COS(L).
028566,000308: 27,2132           45405                           DMP      STADR                                 
028567,000309: 27,2133           76502                           STORE    REFSMMAT                              #  LOCAL VERT X IN INERTIAL = COS(L)COS(AZ)
028568,000310: 27,2134           14150                           STODL    MPAC       +3                         #  ALSO Y OF EAST IN INERTIAL.
028569,000311: 27,2135           17057                                    DPZRO                                 
028570,000312: 27,2136           14152                           STODL    MPAC       +5                         #  Z OF EAST IN INERTIAL = 0.
028571,000313: 27,2137           77605                           DMP                                            
028572,000314: 27,2140           00025                                    20D                                   
028573,000315: 27,2141           01277                           STORE    REFSMMAT   +2                         #  LOCAL VERT Y IN INERTIAL=COS(L)SIN(AZ).
028574,000316: 27,2142           47076                           DCOMP    RTB                                   #  ALSO -X OF EAST IN INERTIAL.
028575,000317: 27,2143           33563                                    VECMODE                               #  SET STORE MODE TO VECTOR.
028576,000318: 27,2144           47206                           PUSH     VXV                                   #  EAST INTO PD.
028577,000319: 27,2145           01275                                    REFSMMAT                              
028578,000320: 27,2146           77656                           UNIT                                           
028579,000321: 27,2147           15311                           STODL    REFSMMAT   +12D                       #  UNIT SOUTH IN INERTIAL INTO REF +12TEMP
028580,000322: 27,2150           01770                                    ZSMAZ                                 #  ZSM WRT NORTH.
028581,000323: 27,2151           41425                           DSU      PUSH                                  #  AZ - 90 = ANG INTO PD.
028582,000324: 27,2152           16377                                    90DEG                                 
028583,000325: 27,2153           74356                           SIN      VXSC                                  
028584,000326: 27,2154           01311                                    REFSMMAT   +12D                       #  (STH)SIN(ANG) INTO R +12D (TEMP).
028585,000327: 27,2155           15311                           STODL    REFSMMAT   +12D                       #  ANG FROM PD.
028586,000328: 27,2156           74346                           COS      VXSC                                  #  EAST FROM PD.
028587,000329: 27,2157           53455                           VAD      UNIT                                  
028588,000330: 27,2160           01311                                    REFSMMAT   +12D                       
028589,000331: 27,2161           01311                           STORE    REFSMMAT   +12D                       #  ZREFSM = (E)COS(ANG) + (STH)SIN(ANG).
028590,000332: 
028591,000333: 27,2162           53435                           VXV      UNIT                                  
028592,000334: 27,2163           01275                                    REFSMMAT                              #  YREFSM(UNTILTED)= Z CROSS VERT = Y1.
028593,000335: 27,2164           71525                           PDDL     COS                                   #  INTO PD.
028594,000336: 27,2165           01766                                    TILT                                  #  TILT IS POS ABOUT ZSM FROM UNTILTED YSM.
028595,000337: 27,2166           77761                           VXSC                                           
028596,000338: 27,2167           73525                           PDDL     SIN                                   #  (Y1)COS(T) INTO PD.
028597,000339: 27,2170           01766                                    TILT                                  
028598,000340: 27,2171           51361                           VXSC     BVSU                                  
028599,000341: 27,2172           01275                                    REFSMMAT                              
028600,000342: 27,2173           77656                           UNIT                                           
028601,000343: 27,2174           01303                           STORE    REFSMMAT   +6                         #  YREFSM = (Y1)COS(T) - (VERT)SIN(T).
028602,000344: 
028603,000345: 27,2175           53435                           VXV      UNIT                                  
028604,000346: 27,2176           01311                                    REFSMMAT   +12D                       
028605,000347: 27,2177           01275                           STORE    REFSMMAT                              #  XREFSM = Y CROSS Z.
028606,000348: 27,2200           77776                           EXIT                                           
028607,000349: 
028608,000350: 27,2201           04147                           TC       PHASCHNG                              
028609,000351: 27,2202           00072                           OCT      00072                                 #  RESTART PREDFITM
028610,000352: 27,2203           05605                           TC       ENDOFJOB                              
028611,000353: 
028612,000354: 27,2204           04147        PREDFITM           TC       PHASCHNG                              
028613,000355: 27,2205           40042                           OCT      40042                                 #  PROTECT WAITLIST CALL TO PROG11
028614,000356: 

Page 639

028616,000358: 27,2206           05307        DFITMTSK           TC       IBNKCALL                              
028617,000359: 27,2207           56211                           CADR     DFITMCAL                              
028618,000360: 
028619,000361: 27,2210           15745                           TCF      TASKOVER                              
028620,000362: 
028621,000363: 27,2211           05073        DFITMCAL           TC       1LMP                                  #  MUST BE CALLED BY IBNKCALL (OR ISWCALL)
028622,000364: 27,2212           00354                           DEC      236        B-14                       #    IN INTERRUPT OR INHIBITED
028623,000365: 27,2213           32363                           CA       12SEC                                 
028624,000366: 27,2214           05701                           TC       WAITLIST                              #  CALL DFITMCL1 IN 12 SECONDS
028625,000367: 27,2215  E3,1746                                  EBANK=   TGRR                                  
028626,000368: 27,2215           02220 56003                     2CADR    DFITMCL1                              
028627,000369: 
028628,000370: 27,2217           15322                           TCF      ISWRETRN                              
028629,000371: 
028630,000372: 27,2220           05065        DFITMCL1           TC       2LMP                                  
028631,000373: 27,2221           00355                           DEC      237        B-14                       #  DFI T/M CALIBRATE OFF
028632,000374: 27,2222           00306                           DEC      198        B-14                       #  MASTER C+W ALARM RESET - COMMAND
028633,000375: 27,2223           04147                           TC       PHASCHNG                              
028634,000376: 27,2224           40113                           OCT      40113                                 #  PROTECT DFITMCL2
028635,000377: 
028636,000378: 27,2225           32362                           CA       200CS                                 
028637,000379: 27,2226           05701                           TC       WAITLIST                              #  CALL DFITMCL2 IN 2 SECONDS
028638,000380: 27,2227  E3,1746                                  EBANK=   TGRR                                  
028639,000381: 27,2227           02232 56003                     2CADR    DFITMCL2                              
028640,000382: 
028641,000383: 27,2231           15745                           TCF      TASKOVER                              
028642,000384: 
028643,000385: 27,2232           05073        DFITMCL2           TC       1LMP                                  
028644,000386: 27,2233           00307                           DEC      199        B-14                       #  MASTER C+W ALARM RESET - COMMAND RESET
028645,000387: 27,2234           37761                           CA       ZERO                                  
028646,000388: 27,2235           04234                           TC       NEWPHASE                              
028647,000389: 27,2236           00003                           OCT      00003                                 #  GROUP 3 INACTIVE
028648,000390: 27,2237           15745                           TCF      TASKOVER                              
028649,000391: 
028650,000392: 27,2240           00006        LIFTOFF            EXTEND                                         
028651,000393: 27,2241           30025                           DCA      TIME2                                 
028652,000394: 27,2242           53751                           DXCH     TLIFTOFF                              #  SAVE TIME OF LIFTOFF
028653,000395: 
028654,000396: 27,2243           04147                           TC       PHASCHNG                              
028655,000397: 27,2244           01013                           OCT      01013                                 #  PICK UP HERE ON RESTART
028656,000398: 
028657,000399: 27,2245           37761                           CA       ZERO                                  
028658,000400: 27,2246           54001                           TS       L                                     
028659,000401: 27,2247           52025                           DXCH     TIME2                                 #  ZERO TIME2, TIME1
028660,000402: 
028661,000403: 27,2250           04147                           TC       PHASCHNG                              
028662,000404: 27,2251           40062                           OCT      40062                                 #  PROTECT RCSPURGE AND SHOW11
028663,000405: 
028664,000406: 27,2252           32365                           CA       105SEC                                
028665,000407: 

Page 640

028667,000409: 27,2253           05701                           TC       WAITLIST                              #  CALL RCSPURGE IN 105 SECONDS
028668,000410: 27,2254  E3,1746                                  EBANK=   TGRR                                  
028669,000411: 
028670,000412: 27,2254           02306 56003                     2CADR    RCSPURGE                              
028671,000413: 
028672,000414: 27,2256           00006                           EXTEND                                         
028673,000415: 27,2257           31762                           DCA      DT-LETJT                              
028674,000416: 27,2260           05757                           TC       LONGCALL                              
028675,000417: 27,2261  E3,1746                                  EBANK=   TGRR                                  
028676,000418: 27,2261           02316 56003                     2CADR    POSTLET                               
028677,000419: 
028678,000420: 27,2263           37740                           CA       PRIO20                                
028679,000421: 27,2264           05523                           TC       NOVAC                                 
028680,000422: 27,2265  E3,1746                                  EBANK=   TGRR                                  
028681,000423: 27,2265           02301 56003                     2CADR    SHOW11                                
028682,000424: 
028683,000425: 27,2267           37743                           CAF      EBANK4                                
028684,000426: 27,2270           54002                           TS       Q                                     #  E4 IN Q
028685,000427: 27,2271           00006                           EXTEND                                         
028686,000428: 27,2272           31751                           DCA      TLIFTOFF                              #  IN A,L
028687,000429: 27,2273           00006                           EXTEND                                         
028688,000430: 27,2274           22003                           QXCH     EBANK                                 #  SWITCH EBANK, SAVE OLD IN Q
028689,000431: 27,2275  E4,1723                                  EBANK=   TEVENT                                
028690,000432: 27,2275           53724                           DXCH     TEVENT                                #  SET TLIFTOFF IN TEVENT
028691,000433: 27,2276  E3,1746                                  EBANK=   TGRR                                  
028692,000434: 27,2276           00006                           EXTEND                                         
028693,000435: 27,2277           22003                           QXCH     EBANK                                 #  RESTORE EBANK
028694,000436: 
028695,000437: 27,2300           15745                           TCF      TASKOVER                              
028696,000438: 
028697,000439: 27,2301           04105        SHOW11             TC       NEWMODEX                              
028698,000440: 27,2302           00011                           OCT      00011                                 #  DISPLAY 11 IN MAJOR MODE
028699,000441: 
028700,000442: 27,2303           04147                           TC       PHASCHNG                              
028701,000443: 27,2304           00132                           OCT      00132                                 #  PROTECT RCSPURGE
028702,000444: 27,2305           15605                           TCF      ENDOFJOB                              
028703,000445: 
028704,000446: 27,2306           32400        RCSPURGE           CA       +XJETSON                              
028705,000447: 27,2307           00006                           EXTEND                                         
028706,000448: 27,2310           01005                           WRITE    5                                     #  TURN ON +X TRANSLATION
028707,000449: 
028708,000450: 27,2311           32364                           CA       75SEC                                 
028709,000451: 27,2312           05701                           TC       WAITLIST                              #  CALL +X TRANSLATION OFF IN 75 SECONDS
028710,000452: 27,2313  E3,1746                                  EBANK=   TGRR                                  
028711,000453: 27,2313           02337 56003                     2CADR    PURGEOFF                              
028712,000454: 
028713,000455: 27,2315           15745                           TCF      TASKOVER                              
028714,000456: 
028715,000457: 
028716,000458: 27,2316           32361        POSTLET            CA       BOOSTADR                              #  MONITOR DELV FOR BOOSTER SHUTDOWN
028717,000459: 27,2317           55322                           TS       DVSELECT                              

Page 641

028719,000461: 
028720,000462: 27,2320           40076                           CS       FLAGWRD2                              #  ENABLE ABORT COMMAND MONITOR
028721,000463: 27,2321           77745                           MASK     BIT9                                  #  BIT 9  FLAGWORD 2
028722,000464: 27,2322           26076                           ADS      FLAGWRD2                              
028723,000465: 
028724,000466: 27,2323           37755                           CA       BIT1                                  
028725,000467: 27,2324           05701                           TC       WAITLIST                              #  ENABLE TUMBLE MONITOR
028726,000468: 27,2325  E6,1423                                  EBANK=   OMEGA                                 
028727,000469: 27,2325           02402 60066                     2CADR    TUMTASK                               
028728,000470: 
028729,000471: 
028730,000472: 27,2327           37740                           CA       PRIO20                                
028731,000473: 27,2330           05523                           TC       NOVAC                                 
028732,000474: 27,2331  E3,1746                                  EBANK=   TGRR                                  
028733,000475: 27,2331           02334 56003                     2CADR    SHOW12                                
028734,000476: 
028735,000477: 27,2333           15745                           TCF      TASKOVER                              
028736,000478: 
028737,000479: 27,2334           04105        SHOW12             TC       NEWMODEX                              
028738,000480: 27,2335           00012                           OCT      00012                                 #  DISPLAY 12 IN MAJOR MODE
028739,000481: 27,2336           15605                           TCF      ENDOFJOB                              
028740,000482: 
028741,000483: 27,2337           37761        PURGEOFF           CA       ZERO                                  
028742,000484: 27,2340           00006                           EXTEND                                         
028743,000485: 27,2341           01005                           WRITE    5                                     #  TURN OFF RCS JETS
028744,000486: 
028745,000487: 27,2342           05073                           TC       1LMP                                  
028746,000488: 27,2343           00272                           DEC      186        B-14                       #  ECS PRIMARY WATER VALVE OPEN
028747,000489: 
028748,000490: 27,2344           04147                           TC       PHASCHNG                              
028749,000491: 27,2345           40172                           OCT      40172                                 #  PROTECT WATEROFF
028750,000492: 
028751,000493: 27,2346           32362                           CA       200CS                                 
028752,000494: 27,2347           05701                           TC       WAITLIST                              #  CALL WATEROFF IN 2 SECONDS
028753,000495: 27,2350  E3,1746                                  EBANK=   TGRR                                  
028754,000496: 27,2350           02353 56003                     2CADR    WATEROFF                              
028755,000497: 
028756,000498: 27,2352           15745                           TCF      TASKOVER                              
028757,000499: 
028758,000500: 27,2353           05073        WATEROFF           TC       1LMP                                  
028759,000501: 27,2354           00273                           DEC      187        B-14                       #  ECS PRIMARY WATER VALVE - OPEN RESET
028760,000502: 27,2355           04147                           TC       PHASCHNG                              
028761,000503: 27,2356           00002                           OCT      00002                                 #  GROUP 2 INACTIVE
028762,000504: 
028763,000505: 27,2357           15745                           TCF      TASKOVER                              #  END OF MISSION PHASE 2
028764,000506: 
028765,000507: 
028766,000508:                                                                                                  #  DELTA T S AND OTHER CONSTANTS FOR MP2
028767,000509: 27,2360           02233        AVEGADRS           GENADR   AVERAGEG                              
028768,000510: 27,2361           02214        BOOSTADR           GENADR   BOOSTMON                              

Page 642

028770,000512: 27,2362  27,2455               SVEXADRS           EQUALS   SVEXITAD                              
028771,000513: 27,2362           00310        200CS              DEC      200        B-14                       
028772,000514: 27,2363           02260        12SEC              DEC      1200       B-14                       
028773,000515: 27,2364           16514        75SEC              DEC      7500       B-14                       
028774,000516: 27,2365           24404        105SEC             DEC      10500      B-14                       
028775,000517: 27,2366           37116 32623  WEARTH             2DEC     31.1539787 B-5                        #  REVOLUTIONS PER 2(28) CENTISECONDS.
028776,000518: 
028777,000519: 27,2370           00000 00000  AZ0                2DEC     0          B-28                       #  TEMP
028778,000520: 
028779,000521: 27,2372           30655 14640  P37BLONG           2DEC     .77620852                             #  80 DEG 33 MIN 53.76306 SEC WEST
028780,000522: 
028781,000523: 27,2374           02422 16752  P37BLAT            2DEC     .079252160                            #  28 DEG 31 MIN 50.79945 SEC NORTH
028782,000524: 
028783,000525: 27,2376           10000 00000  90DEG              2DEC     .25                                   
028784,000526: 
028785,000527: 27,2400           00252        +XJETSON           OCT      00252                                 #  BITS FOR +X TRANSLATION JETS
028786,000528: 
028787,000529: 
028788,000530:                                                                                                  #  ABORT COMMAND MONITOR - DETECTS
028789,000531:                                                                                                  #  SUBORBITAL ABORT AND CONTINGENCY
028790,000532:                                                                                                  #  ORBIT INSERTION
028791,000533: 
028792,000534: 27,2401           00004        SUBABORT           INHINT                                         #  SUBORBITAL ABORT - ZERO ABORTNDX TO
028793,000535: 27,2402           37761                           CAF      ZERO                                  #  SET UP MISSION PHASE 3
028794,000536: 27,2403           12406                           TCF      CONORBIT   +2                         
028795,000537: 
028796,000538: 27,2404           00004        CONORBIT           INHINT                                         #  CONTINGENCY ORBIT INSERTION - ABORTNDX
028797,000539: 27,2405           37754                           CAF      TWO                                   #  SET TO 2 TO SET UP MISSION PHASE 4
028798,000540: 27,2406           54001                           TS       L                                     #  SAVE IN L
028799,000541: 27,2407           37745                           CAF      BIT9                                  #  CHECK WHETHER ABORT COMMAND MONITOR IS
028800,000542: 27,2410           70076                           MASK     FLAGWRD2                              #  ENABLED
028801,000543: 27,2411           00006                           EXTEND                                         
028802,000544: 27,2412           12450                           BZF      BADCHAR                               #  IF NOT, GO TO BADCHAR
028803,000545: 27,2413           35370                           CAF      EBANK3                                #  SET EBANK
028804,000546: 27,2414           54003                           TS       EBANK                                 
028805,000547: 27,2415           23760                           LXCH     ABORTNDX                              #  STORE ABORTNDX
028806,000548: 27,2416           32360                           CAF      AVEGADRS                              
028807,000549: 
028808,000550: 27,2417           55322                           TS       DVSELECT                              #  TURN OFF BOOSTMON
028809,000551: 27,2420           00006                           EXTEND                                         
028810,000552: 27,2421           32460                           DCA      ABORTRET                              #  SET UP TO RETURN TO ABORTRTN
028811,000553: 27,2422           52376                           DXCH     FLUSHREG                              
028812,000554: 27,2423           05243                           TC       POSTJUMP                              
028813,000555: 27,2424           16015                           CADR     ENEMA                                 #  WIPE EVERYTHING OUT
028814,000556: 
028815,000557: 
028816,000558: 27,2425           00004        ABORTRTN           INHINT                                         
028817,000559: 27,2426           00006                           EXTEND                                         
028818,000560: 27,2427           32462                           DCA      ENDJOBC2                              #  CLEAR FLUSHREG

Page 643

028820,000562: 27,2430           52376                           DXCH     FLUSHREG                              
028821,000563: 
028822,000564: 27,2431           37755                           CAF      BIT1                                  
028823,000565: 27,2432           05701                           TC       WAITLIST                              #  RE-ESTABLISH TUMBLE MONITOR
028824,000566: 27,2433  E6,1423                                  EBANK=   OMEGA                                 
028825,000567: 27,2433           02402 60066                     2CADR    TUMTASK                               
028826,000568: 
028827,000569: 27,2435           35667                           CAF      PRIO27                                
028828,000570: 27,2436           54063                           TS       NEWPRIO                               #  SET UP MP3 OR MP4 VIA SPVAC
028829,000571: 
028830,000572: 27,2437           00006                           EXTEND                                         
028831,000573: 27,2440           51760                           INDEX    ABORTNDX                              #  GET RIGHT 2CADR
028832,000574: 27,2441           32445                           DCA      MP3-4ADR                              
028833,000575: 27,2442           05544                           TC       SPVAC                                 #  SET UP JOB
028834,000576: 27,2443           15605                           TCF      ENDOFJOB                              
028835,000577: 
028836,000578: 
028837,000579: 27,2444  E4,1566                                  EBANK=   TDEC                                  
028838,000580: 27,2444           02000 52004  MP3-4ADR           2CADR    MP03JOB                               #  DO NOT CHANGE THE ORDER OF THESE 2 CARDS
028839,000581: 
028840,000582: 27,2446  E4,1566                                  EBANK=   TDEC                                  
028841,000583: 27,2446           02000 66064                     2CADR    MP4JOB                                #  THEY ARE IN AN INDEXED TABLE
028842,000584: 
028843,000585: 27,2450           00003        BADCHAR            RELINT                                         
028844,000586: 27,2451           05243                           TC       POSTJUMP                              #  ILLEGAL CHARACTER    BACK TO PINBALL
028845,000587: 27,2452           11313                           CADR     CHARALRM                              
028846,000588: 
028847,000589: 27,2453  E4,1566                                  EBANK=   TDEC                                  #  LEFT-OVERS FROM DELETED MISSION PHASE 18
028848,000590: 27,2453           02304 16004  MIDAVEAD           2CADR    MIDTOAVE                              
028849,000591: 
028850,000592: 27,2455  E4,1566                                  EBANK=   TDEC                                  
028851,000593: 27,2455           02312 60064  SVEXITAD           2CADR    SERVEXIT                              
028852,000594: 
028853,000595: 
028854,000596: 27,2457  E3,1760                                  EBANK=   ABORTNDX                              
028855,000597: 27,2457           02425 56003  ABORTRET           2CADR    ABORTRTN                              
028856,000598: 
028857,000599: 27,2461  E3,1760                                  EBANK=   ABORTNDX                              
028858,000600: 27,2461           05605 04003  ENDJOBC2           2CADR    ENDOFJOB                              

End of include-file MISSION_PHASE_2_GUIDANCE_REFERENCE_RELEASE_PLUS_BOOST_MONITOR.agc.  Parent file is MAIN.agc