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.

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

Page 632

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

Page 633

028343,000078:                                                                                                  #     EXIT TO MISSION PHASE 6 AT SIVB SHUTDOWN.
028344,000079: 
028345,000080: 
028346,000081: 
028347,000082:                                                                                                  #  ABORT EXIT MODES :
028348,000083: 
028349,000084:                                                                                                  #     TO MISSION PHASE 3 IF SUBORBITAL ABORT COMMAND RECEIVED VIA UPLINK.
028350,000085:                                                                                                  #     TO MISSION PHASE 4 IF CONTINGENCY ORBIT INSERTION COMMAND RECEIVED VIA UPLINK.
028351,000086: 
028352,000087:                                                                                                  #     TO CHARALRM IF EITHER OF THE ABOVE ABORT COMMANDS RECEIVED WHILE ABORT COMMAND MONITOR NOT ENABLED.
028353,000088: 
028354,000089: 
028355,000090: 
028356,000091:                                                                                                  #  OUTPUT :
028357,000092: 
028358,000093:                                                                                                  #           TGRR          TIME OF GUIDANCE REFERENCE RELEASE
028359,000094:                                                                                                  #           TPRELTER      TIME OF GYROCOMPASSING TERMINATION
028360,000095:                                                                                                  #           TLIFTOFF      TIME OF LIFTOFF AND LGC CLOCK ZEROING
028361,000096:                                                                                                  #           GRR FLAG      BIT2 FLAGWRD1 SET TO INDICATE GRR SIGNAL RECEIVED
028362,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

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

Page 634

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

Page 635

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

Page 636

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

Page 637

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

Page 638

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

Page 639

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

Page 640

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

Page 641

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

Page 642

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

Page 643

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