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.

029376,000002:                                                                                                  ## Copyright:   Public domain.
029377,000003:                                                                                                  ## Filename:    MP4-CONTINGENCY_ORBIT_INSERTION.agc
029378,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
029379,000005:                                                                                                  ##              It is part of an early development version of the software
029380,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
029381,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
029382,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
029383,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
029384,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
029385,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
029386,000012:                                                                                                  ##              that the code format has been changed to conform to the
029387,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
029388,000014:                                                                                                  ##              original YUL assembler.
029389,000015:                                                                                                  ## Reference:   pp. 654-665
029390,000016:                                                                                                  ## Assembler:   yaYUL
029391,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029392,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029393,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
029394,000020:                                                                                                  ##              2017-06-14 RSB  Transcribed.
029395,000021:                                                                                                  ##              2017-06-14 HG   Fix operand WACHTHTD -> WACTTHTD
029396,000022:                                                                                                  ##                                          TDECTEMP -> TDEC
029397,000023:                                                                                                  ##                                          RUPREG3  -> RUPTREG3
029398,000024:                                                                                                  ##                                          RUPREG1  -> RUPTREG1
029399,000025:                                                                                                  ##                              Remove constant 004CEK
029400,000026:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
029401,000027:                                                                                                  ##                              octopus/ProoferComments.
029402,000028: 

Page 654

029404,000030: 33,2000                                           BANK     33                                    
029405,000031: 
029406,000032: 33,2000  E4,1566                                  EBANK=   TDEC                                  
029407,000033:                                                                                                  #  PROGRAM NAME-                   DATE-
029408,000034:                                                                                                  #           MISSION PHASE 4                 2 DECEMBER 1966
029409,000035:                                                                                                  #  MOD NO- 20                      LOG SECTION-
029410,000036:                                                                                                  #  MOD BY- SCHULENBERG                      MP4-CONTINGENCY ORBIT INSERTION
029411,000037: 
029412,000038:                                                                                                  #  FUNCTIONAL DESCRIPTION-
029413,000039:                                                                                                  #           CONTINGENCY ORBIT INSERTION IS CALLED BY GROUND IN EVENT OF PREMATURE SIVB SHUTDOWN AND ATTEMPTS TO
029414,000040:                                                                                                  #  EFFECT AN ORBITAL INSERTION USING THE DPS ENGINE AND THE GUIDANCE EQUATIONS USED FOR THE APS BURNS. THE
029415,000041:                                                                                                  #  PROGRAM LEAVES MISSION PHASE TIMERS INHIBITED AND LEAVES FURTHER CONTROLTO THE GROUND VIA UPLINK.
029416,000042:                                                                                                  #  CALLING SEQUENCE-               SUBROUTINES CALLED-
029417,000043:                                                                                                  #           START MP4 WHEN ABORT            FLAG1UP          FLAG1DWN
029418,000044: 
029419,000045:                                                                                                  #  COMMAND MONITOR DETECTS MP4              FIXDELAY         WAITLIST
029420,000046:                                                                                                  #  COMMAND VIA LGC UPLINK.                  VPATCHER         KALCMANU
029421,000047:                                                                                                  #                                           ASCENT           UL4JETON
029422,000048:                                                                                                  #  NORMAL EXIT MODES-                       LMP              UL4JETOF
029423,000049:                                                                                                  #           TASKOVER (AWAITS                EXECUTIVE        ENGINEON
029424,000050:                                                                                                  #  FURTHER COMMANDS FROM GROUND)            MIDTOAVE         ENGINOFF
029425,000051:                                                                                                  #  ALARM EXIT MODES-                        BANKCALL         ENGINOF1
029426,000052:                                                                                                  #           NONE                            IBNKCALL         LASTBIAS
029427,000053: 
029428,000054:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
029429,000055:                                                                                                  #           NONE
029430,000056: 
029431,000057:                                                                                                  #  OUTPUT- SAME AS FOR KALCMANU
029432,000058:                                                                                                  #  DEBRIS- SAME AS FOR KALCMANU
029433,000059: 
029434,000060: 33,2000           00006        MP4JOB             EXTEND                                         
029435,000061: 33,2001           32545                           DCA      WACTTHTD                              #  TO ENABLE A RESTART
029436,000062: 33,2002           52376                           DXCH     FLUSHREG                              
029437,000063: 
029438,000064: 33,2003           04105                           TC       NEWMODEX                              #  START CONTINGENCY ORBIT INSERTION
029439,000065: 33,2004           00072                           OCT      72                                    
029440,000066: 
029441,000067: 33,2005           37753                           CAF      FOUR                                  #  SIGNAL START OF MISSION PHASE 4
029442,000068: 33,2006           54765                           TS       PHASENUM                              
029443,000069: 
029444,000070: 33,2007           06036                           TC       FLAG1DWN                              #  TERMINATE AVEG AND DO AUTO AVETOMID
029445,000071: 33,2010           00001                           OCT      1                                     
029446,000072: 
029447,000073: 33,2011           00004                           INHINT                                         
029448,000074: 33,2012           37755                           CAF      BIT1                                  
029449,000075: 33,2013           05701                           TC       WAITLIST                              #  SHORT WAITLIST TO INITIALIZE LMP COMMAND
029450,000076: 33,2014  E4,1566                                  EBANK=   TDEC                                  
029451,000077: 33,2014           02017 66064                     2CADR    ABORTPRR                              
029452,000078: 
029453,000079: 33,2016           15605                           TCF      ENDOFJOB                              #  END MP4JOB

Page 655

029455,000081: 
029456,000082:                                                                                                  #  RCS ABORT PRESSURIZATION ROUTINE
029457,000083: 
029458,000084: 33,2017           37761        ABORTPRR           CAF      ZERO                                  #  INSURE RCS JETS OFF
029459,000085: 33,2020           00006                           EXTEND                                         
029460,000086: 33,2021           01005                           WRITE    5                                     
029461,000087: 
029462,000088: 33,2022           05717                           TC       FIXDELAY                              
029463,000089: 33,2023           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029464,000090: 
029465,000091: 33,2024           05106                           TC       2LMP+DT                               
029466,000092: 33,2025           00274                           DEC      188        B-14                       #  RCS MAIN S/O VALVES, SYS A-OPEN**
029467,000093: 33,2026           00276                           DEC      190        B-14                       #  RCS MAIN S/O VALVES, SYS B-OPEN**
029468,000094: 33,2027           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029469,000095: 
029470,000096: 33,2030           05114                           TC       1LMP+DT                               
029471,000097: 33,2031           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION-ON
029472,000098: 33,2032           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029473,000099: 
029474,000100: 33,2033           05106                           TC       2LMP+DT                               
029475,000101: 33,2034           00275                           DEC      189        B-14                       #  RCS MAIN S/O VALVES, SYS A-OPEN RESET
029476,000102: 33,2035           00277                           DEC      191        B-14                       #  RCS MAIN S/O VALVES, SYS B-OPEN RESET
029477,000103: 33,2036           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029478,000104: 
029479,000105: 33,2037           05114                           TC       1LMP+DT                               
029480,000106: 33,2040           00006                           DEC      6          B-14                       #  RCS PRESSURE-FIRE**
029481,000107: 33,2041           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029482,000108: 
029483,000109: 33,2042           05114                           TC       1LMP+DT                               
029484,000110: 33,2043           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION-SAFE
029485,000111: 33,2044           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029486,000112: 
029487,000113: 33,2045           05114                           TC       1LMP+DT                               
029488,000114: 33,2046           00007                           DEC      7          B-14                       #  RCS PRESSURE - FIRE RESET
029489,000115: 33,2047           00620                           DEC      400        B-14                       #  DELAY FOUR SECONDS
029490,000116: 
029491,000117:                                                                                                  #  END RCS ABORT PRESSURIZATION ROUTINE
029492,000118: 
029493,000119: 33,2050           30075        TUMBLCHK           CA       FLAGWRD1                              
029494,000120: 33,2051           77741                           MASK     BIT13                                 
029495,000121: 33,2052           00006                           EXTEND                                         
029496,000122: 33,2053           12057                           BZF      NOTUMBL                               
029497,000123: 
029498,000124: 33,2054           05717                           TC       FIXDELAY                              
029499,000125: 33,2055           00062                           DEC      50         B-14                       #  DELAY .5 SECS AND CHECK AGAIN
029500,000126: 33,2056           12050                           TCF      TUMBLCHK                              
029501,000127: 
029502,000128: 33,2057           06036        NOTUMBL            TC       FLAG1DWN                              #  IF NO TUMBLING-TERMINATE MONITOR
029503,000129: 33,2060           20000                           OCT      20000                                 #  TERMINATE TUMBLE MONITOR
029504,000130: 
029505,000131: 33,2061           06045                           TC       FLAG2DWN                              #  TERMINATE ABORT COMMAND MONITOR

Page 656

029507,000133: 
029508,000134: 33,2062           00400                           OCT      00400                                 
029509,000135: 
029510,000136: 33,2063           00006        TIG4-51            EXTEND                                         
029511,000137: 33,2064           30025                           DCA      TIME2                                 #  GET CURRENT TIME
029512,000138: 33,2065           53567                           DXCH     TDEC                                  
029513,000139: 
029514,000140: 33,2066           32467                           CAF      021CEK                                #  UPDATE STATE TO TIG4-30
029515,000141: 33,2067           54001                           TS       L                                     
029516,000142: 33,2070           37761                           CAF      ZERO                                  
029517,000143: 33,2071           21567                           DAS      TDEC                                  
029518,000144: 
029519,000145:                                                                                                  #  BEGIN ABORT LEM/S4B SEPARATION PROCEDURE
029520,000146: 
029521,000147: 33,2072           32530        MP4SEP             CAF      MASSADR                               #  DECLARE EBANK= 5
029522,000148: 33,2073           54003                           TS       EBANK                                 
029523,000149: 33,2074  E5,1540                                  EBANK=   MASSES                                
029524,000150: 
029525,000151: 33,2074           00006                           EXTEND                                         
029526,000152: 33,2075           31541                           DCA      LEMMASS1                              #  INITIALIZE MASS MONITOR
029527,000153: 33,2076           53333                           DXCH     MASS                                  
029528,000154: 
029529,000155: 33,2077           37761                           CAF      ZERO                                  #  INITIALIZE DELAREA FOR MASS MONITOR
029530,000156: 33,2100           55551                           TS       DELAREA                               
029531,000157: 33,2101           55552                           TS       DELAREA    +1                         
029532,000158: 
029533,000159: 33,2102           32527                           CAF      TDECADR                               #  DECLARE EBANK= 4
029534,000160: 33,2103           54003                           TS       EBANK                                 
029535,000161: 33,2104  E4,1566                                  EBANK=   TDEC                                  
029536,000162: 
029537,000163: 33,2104           32471                           CAF      XTRANSON                              #  +X TRANSLATION- ON (PRE-DAP)
029538,000164: 33,2105           00006                           EXTEND                                         
029539,000165: 33,2106           01005                           WRITE    5                                     
029540,000166: 
029541,000167: 33,2107           05307                           TC       IBNKCALL                              #  +X TRANSLATION-ON (4JET)
029542,000168: 33,2110           34024                           CADR     ULLAGE                                
029543,000169: 
029544,000170: 33,2111           05114                           TC       1LMP+DT                               
029545,000171: 33,2112           00072                           DEC      58         B-14                       #  LEM/SIVB SEPARATE - ARM ON
029546,000172: 33,2113           00062                           DEC      50         B-14                       #  DELAY 500 MS.
029547,000173: 
029548,000174: 33,2114           40077                           CS       DAPBOOLS                              
029549,000175: 33,2115           77743                           MASK     GODAPGO                               #  TURN ON THE DAP
029550,000176: 33,2116           26077                           ADS      DAPBOOLS                              
029551,000177: 
029552,000178: 33,2117           05307                           TC       IBNKCALL                              
029553,000179: 33,2120           34012                           CADR     SETMAXDB                              
029554,000180: 
029555,000181: 33,2121           05717                           TC       FIXDELAY                              #  WAIT FOR 300 MS.
029556,000182: 33,2122           00062                           DEC      50         B-14                       #  DELAY 500 MS.

Page 657

029558,000184: 
029559,000185: 33,2123           05307                           TC       IBNKCALL                              #  HOLD VEHICLE ATTITUDE RATE
029560,000186: 33,2124           34034                           CADR     HOLDRATE                              
029561,000187: 
029562,000188: 33,2125           05114                           TC       1LMP+DT                               
029563,000189: 33,2126           00132                           DEC      90         B-14                       #  LEM/SIVB SEPARATE- COMMAND
029564,000190: 33,2127           00012                           DEC      10         B-14                       #  DELAY 100 MS.
029565,000191: 
029566,000192: 33,2130           05307                           TC       IBNKCALL                              
029567,000193: 33,2131           34000                           CADR     SETMINDB                              
029568,000194: 
029569,000195: 33,2132           05717                           TC       FIXDELAY                              
029570,000196: 33,2133           00132                           DEC      90         B-14                       #  DELAY 900 MS.
029571,000197: 
029572,000198: 33,2134           05114        TIG4-49            TC       1LMP+DT                               
029573,000199: 33,2135           00073                           DEC      59         B-14                       #  LEM/S4B SEPARATE-ARM-OFF
029574,000200: 33,2136           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029575,000201: 
029576,000202: 33,2137           05073        TIG4-48            TC       1LMP                                  
029577,000203: 33,2140           00133                           DEC      91         B-14                       #  LEM/S4B SEPARATE-COMMAND RESET
029578,000204: 
029579,000205:                                                                                                  #  END LEM/S4B SEPARATION ROUTINE
029580,000206: 
029581,000207: 33,2141           32466                           CAF      007CEK                                
029582,000208: 33,2142           05701                           TC       WAITLIST                              
029583,000209: 33,2143  E4,1566                                  EBANK=   TDEC                                  
029584,000210: 33,2143           02265 66064                     2CADR    TIG4-41                               
029585,000211: 
029586,000212: 33,2145           35667                           CAF      PRIO27                                #  START NEW JOB FOR CALCULATIONS
029587,000213: 33,2146           05534                           TC       FINDVAC                               
029588,000214: 33,2147  E4,1566                                  EBANK=   TDEC                                  
029589,000215: 33,2147           02152 66064                     2CADR    LONGJOB                               
029590,000216: 
029591,000217: 33,2151           15745                           TCF      TASKOVER                              #  END TIG4-48 TASK
029592,000218: 
029593,000219: 33,2152           00006        LONGJOB            EXTEND                                         
029594,000220: 33,2153           32537                           DCA      ORBINTAD                              #  DO ORBITAL INTEGRATION
029595,000221: 33,2154           52006                           DXCH     Z                                     
029596,000222: 
029597,000223: 33,2155           32546        PRECOI             CAF      KALC4AD                               
029598,000224: 33,2156           55450                           TS       ASCRET                                
029599,000225: 33,2157           06103                           TC       INTPRET                               
029600,000226: 33,2160           77624                           CALL                                           
029601,000227: 33,2161           60347                                    VPATCHER                              #  RESCALE AND LOAD IGN STATES IN RN AND VN
029602,000228: 33,2162           77745                           DLOAD                                          
029603,000229: 33,2163           26525                                    RCRIT                                 #  RCRIT=INJECTION ALTITUDE*2(-25)
029604,000230: 33,2164           26375                           STOVL    RCO                                   
029605,000231: 33,2165           01017                                    VN                                    #  VN FROM VPATCHER=VIGNTION*2(-7) M/CS
029606,000232: 33,2166           53435                           VXV      UNIT                                  
029607,000233: 33,2167           01011                                    RN                                    #  RN FROM VPATCHER=RIGNTION*2(N-29) M
029608,000234: 33,2170           26007                           STOVL    QAXIS                                 #  UNIT HORIZONTAL VECTOR NORMAL TO ORBIT

Page 658

029610,000236: 33,2171           01033                                    UNITR                                 #  UNITR FROM AVEG=UNIT(RIGNTION)*2(-1) M
029611,000237: 33,2172           02001                           STORE    PAXIS1                                
029612,000238: 33,2173           76435                           VXV      VSL1                                  
029613,000239: 33,2174           02007                                    QAXIS                                 
029614,000240: 33,2175           26015                           STOVL    SAXIS                                 #  UNIT HORIZONTAL VECTOR PARALLEL TO ORBIT
029615,000241: 33,2176           26475                                    ABLOCK                                
029616,000242: 33,2177           26023                           STOVL    AT                                    
029617,000243: 33,2200           26503                                    BBLOCK                                
029618,000244: 33,2201           26031                           STOVL    ATMEAS                                
029619,000245: 33,2202           26517                                    CBLOCK                                
029620,000246: 33,2203           16041                           STODL    RDOTD                                 
029621,000247: 33,2204           26511                                    KR1EST                                
029622,000248: 33,2205           16037                           STODL    KR1                                   #  LOAD ATTITUDE LIMITING PARAMETER
029623,000249: 33,2206           26513                                    TGOEST                                
029624,000250: 33,2207           02350                           STORE    TGO                                   
029625,000251: 33,2210           43014                           CLEAR    CLEAR                                 
029626,000252: 33,2211           01674                                    DIRECT                                
029627,000253: 33,2212           01675                                    PASS                                  
029628,000254: 33,2213           50375                           VLOAD    DOT                                   
029629,000255: 33,2214           02015                                    SAXIS                                 
029630,000256: 33,2215           01017                                    VN                                    #  ZDOT*2(-8)
029631,000257: 33,2216           77752                           SL1                                            #   *2(-7)
029632,000258: 33,2217           26105                           STOVL    ZDOT                                  
029633,000259: 33,2220           02001                                    PAXIS1                                
029634,000260: 33,2221           72441                           DOT      SL1                                   #  RDOT*2(-8)
029635,000261: 33,2222           01017                                    VN                                    #   *2(-7)
029636,000262: 33,2223           16147                           STODL    RDOT                                  
029637,000263: 33,2224           26517                                    DP0                                   
029638,000264: 33,2225           02111                           STORE    GEFF                                  #  GEFF=0
029639,000265: 33,2226           02067                           STORE    YDOT                                  #  YDOT=0
029640,000266: 33,2227           52014                           SET      GOTO                                  
029641,000267: 33,2230           01473                                    56D                                   #  SET FOR RETURN
029642,000268: 33,2231           64367                                    GAIN       +1                         #  GO TO USE ASCENT TGO SECTION
029643,000269: 33,2232           43345        TKNOWN             DLOAD    DAD                                   
029644,000270: 33,2233           02041                                    RDOTD                                 
029645,000271: 33,2234           02147                                    RDOT                                  #  (RDOT+RDOTD)*2(-7)
029646,000272: 33,2235           41342                           SR1      DMP                                   #   .5RDOTAVE*2(-7)
029647,000273: 33,2236           02350                                    TGO                                   #  RGO*2(-24),SINCE TGO IS *2(-17)
029648,000274: 33,2237           70415                           DAD      SR1                                   #  RFREE IS RCO FOR NO R-CONTROL,*2(-24)
029649,000275: 33,2240           01047                                    RMAG                                  #   *2(-25)
029650,000276: 33,2241           51025                           DSU      BPL                                   
029651,000277: 33,2242           02375                                    RCO                                   
029652,000278: 33,2243           66247                                    FREE-R                                
029653,000279: 33,2244           52014                           CLEAR    GOTO                                  #  IF RFREE SMTHAN RCO, CONSTRAIN RCO
029654,000280: 33,2245           01676                                    HC                                    
029655,000281: 33,2246           64120                                    ASCENT                                
029656,000282: 33,2247           52014        FREE-R             SET      GOTO                                  
029657,000283: 33,2250           01476                                    HC                                    #  IF RFREE GRTHAN RCO, FREE RCO
029658,000284: 33,2251           64120                                    ASCENT                                
029659,000285: 33,2252           77775        PREKALC4           VLOAD                                          

Page 659

029661,000287: 33,2253           02057                                    UT                                    #  GET UT FROM ASCENT OUTPUT REGISTER
029662,000288: 33,2254           25656                           STOVL    POINTVSM                              #  KALCMANU INPUT REGISTER
029663,000289: 33,2255           26515                                    BODYVECT                              #  LOAD BODY AXES VECTOR IN SM COORDS
029664,000290: 33,2256           01664                           STORE    SCAXIS                                #  KALCMANU INPUT VECTOR
029665,000291: 33,2257           66214                           SET      SSP                                   
029666,000292: 33,2260           01063                                    33D                                   
029667,000293: 
029668,000294: 33,2261           01653                                    RATEINDX                              
029669,000295: 33,2262           00006                                    6                                     #  10 DEG/SEC.
029670,000296: 33,2263           77776                           EXIT                                           
029671,000297: 
029672,000298: 33,2264           15605                           TCF      ENDOFJOB                              #  END LONGJOB
029673,000299: 
029674,000300: 33,2265           32526        TIG4-41            CAF      AVGENADR                              #  GENADR OF AVERAGEG
029675,000301: 33,2266           55322                           TS       DVSELECT                              
029676,000302: 
029677,000303: 33,2267           00006                           EXTEND                                         
029678,000304: 33,2270           32535                           DCA      EXITADR                               #  SET AVEG TO EXIT TO END OF JOB UNTIL
029679,000305: 33,2271           53073                           DXCH     AVGEXIT                               #  IT IS RESET TO ATMAG
029680,000306: 
029681,000307: 33,2272           00006                           EXTEND                                         
029682,000308: 33,2273           32533                           DCA      MP4TM1AD                              #  SET MONITOR EXIT
029683,000309: 33,2274           53075                           DXCH     DVMNEXIT                              
029684,000310: 
029685,000311: 33,2275           05114                           TC       1LMP+DT                               
029686,000312: 33,2276           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION-ON
029687,000313: 33,2277           00620                           DEC      400        B-14                       #  DELAY 4 SECONDS
029688,000314: 
029689,000315: 33,2300           05307        TIG4-37            TC       IBNKCALL                              #  +X TRANSLATION- OFF
029690,000316: 33,2301           34030                           CADR     NOULLAGE                              
029691,000317: 
029692,000318: 33,2302           05307                           TC       IBNKCALL                              
029693,000319: 33,2303           34057                           CADR     STOPRATE                              #  HOLD VEHICLE ATTITUDE
029694,000320: 
029695,000321: 33,2304           05717                           TC       FIXDELAY                              
029696,000322: 33,2305           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029697,000323: 
029698,000324: 33,2306           05073        TIG4-36            TC       1LMP                                  
029699,000325: 33,2307           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY-FIRE
029700,000326: 
029701,000327: 33,2310           32463                           CAF      002CEK                                
029702,000328: 33,2311           05701                           TC       WAITLIST                              
029703,000329: 33,2312  E4,1566                                  EBANK=   TDEC                                  
029704,000330: 33,2312           02321 66064                     2CADR    TIG4-34                               
029705,000331: 
029706,000332: 33,2314           35226                           CAF      PRIO30                                #  CALL KALCMANU
029707,000333: 33,2315           05534                           TC       FINDVAC                               
029708,000334: 33,2316  E3,1535                                  EBANK=   MIS                                   
029709,000335: 33,2316           02001 70063                     2CADR    VECPOINT                              
029710,000336: 

Page 660

029712,000338: 33,2320           15745                           TCF      TASKOVER                              #  END TIG4-36 TASK
029713,000339: 
029714,000340: 33,2321           42470        TIG4-34            CS       030CEK                                #  SET PREREAD CALL (AUTO LASTBIAS)
029715,000341: 33,2322           02550                           TC       TASKSETR                              
029716,000342: 33,2323           05701                           TC       WAITLIST                              
029717,000343: 33,2324  E5,1506                                  EBANK=   DVTOTAL                               
029718,000344: 33,2324           02000 60065                     2CADR    PREREAD                               
029719,000345: 
029720,000346: 33,2326           05114                           TC       1LMP+DT                               
029721,000347: 33,2327           00011                           DEC      9          B-14                       #  LANDING GEAR DEPLOY- FIRE RESET
029722,000348: 33,2330           00622                           DEC      402        B-14                       #  DELAY 4 SECONDS
029723,000349: 
029724,000350: 33,2331           06074        TIG4-30            TC       ENGINOF1                              #  REMOVE EXTRANEOUS ENGINE DISCRETES
029725,000351: 
029726,000352: 33,2332           05106                           TC       2LMP+DT                               
029727,000353: 33,2333           00226                           DEC      150        B-14                       #  ENGINE SELECT- DESC ARM
029728,000354: 33,2334           00126                           DEC      86         B-14                       #  MANUAL THROTTLE- ON 10 PERCENT
029729,000355: 33,2335           02566                           DEC      1398       B-14                       #  DELAY 14 SECONDS
029730,000356: 
029731,000357: 33,2336           05106        TIG4-16            TC       2LMP+DT                               
029732,000358: 33,2337           00344                           DEC      228        B-14                       #  DPS PQGS ARM NO 1 - ENABLE
029733,000359: 33,2340           00304                           DEC      196        B-14                       #  DPS PQGS ARM NO 2- ENABLE
029734,000360: 33,2341           00144                           DEC      100        B-14                       
029735,000361: 
029736,000362: 33,2342           05106        TIG4-15            TC       2LMP+DT                               
029737,000363: 33,2343           00364                           DEC      244        B-14                       #  DPS PQGS NO 1- ON
029738,000364: 33,2344           00324                           DEC      212        B-14                       #  DPS PQGS NO 2- ON
029739,000365: 33,2345           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS
029740,000366: 
029741,000367: 33,2346           05307        TIG4-7.5           TC       IBNKCALL                              #  +X TRANSLATION- ON
029742,000368: 33,2347           34024                           CADR     ULLAGE                                
029743,000369: 
029744,000370: 33,2350           05717                           TC       FIXDELAY                              
029745,000371: 33,2351           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS
029746,000372: 
029747,000373: 33,2352           35670                           CAF      PRIO31                                #  SET UP JOB FOR ATTSTAL
029748,000374: 33,2353           05523                           TC       NOVAC                                 
029749,000375: 33,2354  E4,1566                                  EBANK=   TDEC                                  
029750,000376: 33,2354           02357 66064                     2CADR    IGNTEST                               
029751,000377: 
029752,000378: 33,2356           15745                           TCF      TASKOVER                              
029753,000379: 
029754,000380: 33,2357           05224        IGNTEST            TC       BANKCALL                              #  WE WAIT UNTIL KALCMANU IS HAPPY
029755,000381: 33,2360           26754                           CADR     ATTSTALL                              
029756,000382: 33,2361           04732                           TC       CURTAINS                              
029757,000383: 
029758,000384: 33,2362           06054        MP4IGN             TC       ENGINEON                              #  IGNITE DPS ENGINE
029759,000385: 
029760,000386: 33,2363           32531                           CAF      THRSTADR                              #  DECLARE EBANK= 6
029761,000387: 33,2364           54003                           TS       EBANK                                 

Page 661

029763,000389: 33,2365  E6,1523                                  EBANK=   THRSTCMD                              
029764,000390: 
029765,000391: 33,2365           32472                           CAF      10PERTHR                              #  REPORT EXPECTED THRUST TO DAP
029766,000392: 33,2366           55523                           TS       THRSTCMD                              
029767,000393: 
029768,000394: 33,2367           00004                           INHINT                                         
029769,000395: 33,2370           32464                           CAF      003CEK                                
029770,000396: 33,2371           05701                           TC       WAITLIST                              
029771,000397: 33,2372  E4,1566                                  EBANK=   TDEC                                  
029772,000398: 33,2372           02375 66064                     2CADR    MP4IGN+3                              
029773,000399: 
029774,000400: 33,2374           15605                           TCF      ENDOFJOB                              
029775,000401: 
029776,000402: 33,2375           05307        MP4IGN+3           TC       IBNKCALL                              #  +X TRANSLATION- OFF
029777,000403: 33,2376           34030                           CADR     NOULLAGE                              
029778,000404: 
029779,000405: 33,2377           05114                           TC       1LMP+DT                               
029780,000406: 33,2400           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION- SAFE
029781,000407: 33,2401           04374                           DEC      2300       B-14                       #  DELAY 23 SECONDS
029782,000408: 
029783,000409: 33,2402           37735        MAXTHRST           CAF      POSMAX                                #  CALL FOR 92.5 PERCENT THRUST
029784,000410: 33,2403           55335                           TS       PCNTF                                 
029785,000411: 33,2404           00006                           EXTEND                                         
029786,000412: 33,2405           32541                           DCA      PCNTFMAD                              
029787,000413: 33,2406           52006                           DTCB                                           
029788,000414: 
029789,000415: 33,2407           32473                           CAF      92PERTHR                              #  REPORT EXPECTED THRUST TO DAP
029790,000416: 33,2410           55523                           TS       THRSTCMD                              
029791,000417: 
029792,000418: 33,2411           32527                           CAF      TDECADR                               #  DECLARE EBANK= 4
029793,000419: 33,2412           54003                           TS       EBANK                                 
029794,000420: 33,2413  E4,1566                                  EBANK=   TDEC                                  
029795,000421: 
029796,000422: 33,2413           05717                           TC       FIXDELAY                              
029797,000423: 33,2414           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029798,000424: 
029799,000425: 33,2415           00006        GUIDANCE           EXTEND                                         #  TUNE IN ASCENT GUIDANCE
029800,000426: 33,2416           32543                           DCA      ATMAG4                                
029801,000427: 33,2417           53073                           DXCH     AVGEXIT                               
029802,000428: 
029803,000429: 33,2420           32547                           CAF      CDUJOBAD                              
029804,000430: 33,2421           55450                           TS       ASCRET                                
029805,000431: 
029806,000432: 33,2422           15745                           TCF      TASKOVER                              
029807,000433: 
029808,000434: 33,2423           00006        MP4TERM1           EXTEND                                         
029809,000435: 33,2424           32535                           DCA      EXITADR                               #  RESET AVERAGE G EXIT
029810,000436: 33,2425           53073                           DXCH     AVGEXIT                               
029811,000437: 
029812,000438: 33,2426           05224                           TC       BANKCALL                              

Page 662

029814,000440: 
029815,000441: 33,2427           34057                           CADR     STOPRATE                              #  HOLD VEHICLE ATTITUDE
029816,000442: 
029817,000443: 33,2430           00004                           INHINT                                         
029818,000444: 33,2431           32465                           CAF      005CEK                                
029819,000445: 33,2432           05701                           TC       WAITLIST                              
029820,000446: 33,2433  E4,1566                                  EBANK=   TDEC                                  
029821,000447: 33,2433           02436 66064                     2CADR    TCO+5                                 
029822,000448: 
029823,000449: 33,2435           15605                           TCF      ENDOFJOB                              
029824,000450: 
029825,000451: 33,2436           05106        TCO+5              TC       2LMP+DT                               
029826,000452: 33,2437           00227                           DEC      151        B-14                       #  ENGINE SELECT-DESC ARM-OFF
029827,000453: 33,2440           00127                           DEC      87         B-14                       #  MANUAL THROTTLE-RESET (30 PERCENT)
029828,000454: 33,2441           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029829,000455: 
029830,000456: 33,2442           05307                           TC       IBNKCALL                              #  SET MAXIMUM DEADBAND
029831,000457: 33,2443           34012                           CADR     SETMAXDB                              
029832,000458: 
029833,000459: 33,2444           05717                           TC       FIXDELAY                              
029834,000460: 33,2445           01604                           DEC      900        B-14                       #  DELAY NINE SECONDS
029835,000461: 
029836,000462: 33,2446           05106        TCO+15             TC       2LMP+DT                               
029837,000463: 33,2447           00365                           DEC      245        B-14                       #  DPS PQGS NO 1- OFF
029838,000464: 33,2450           00325                           DEC      213        B-14                       #  DPS PQGS NO 2- OFF
029839,000465: 33,2451           00144                           DEC      100        B-14                       
029840,000466: 
029841,000467: 33,2452           05106                           TC       2LMP+DT                               
029842,000468: 33,2453           00345                           DEC      229        B-14                       #  DPS PQGS ARM NO 1- DISABLE
029843,000469: 33,2454           00305                           DEC      197        B-14                       #  DPS PQGS ARM NO 2- DISABLE
029844,000470: 33,2455           02570                           DEC      1400       B-14                       #  DELAY 14 SECONDS
029845,000471: 
029846,000472: 33,2456           06036                           TC       FLAG1DWN                              #  TERMINATE AVEG AND DO AUTO AVETOMID
029847,000473: 33,2457           00001                           OCT      1                                     
029848,000474: 
029849,000475: 33,2460           47753                           CS       FOUR                                  #  ALLOW AVEG TO POOH IF IT WANTS TO.
029850,000476: 33,2461           54765                           TS       PHASENUM                              
029851,000477: 
029852,000478: 33,2462           15745                           TCF      TASKOVER                              
029853,000479: 
029854,000480:                                                                                                  #  ************************************************************************
029855,000481:                                                                                                  #  TIME INCREMENTS FOR WAITLISTS IN MP4 - XXXXXCEK = DEC XXXXX00 CS
029856,000482:                                                                                                  #  ************************************************************************
029857,000483: 33,2463           00310        002CEK             DEC      200        B-14                       
029858,000484: 
029859,000485: 33,2464           00454        003CEK             DEC      300        B-14                       
029860,000486: 
029861,000487: 33,2465           00764        005CEK             DEC      500        B-14                       
029862,000488: 
029863,000489: 33,2466           01274        007CEK             DEC      700        B-14                       

Page 663

029865,000491: 
029866,000492: 33,2467           04064        021CEK             DEC      2100       B-14                       
029867,000493: 
029868,000494: 33,2470           05670        030CEK             DEC      3000       B-14                       
029869,000495: 
029870,000496: 33,2471           00252        XTRANSON           OCT      00252                                 #  CHANNEL 5 CODE FOR 4-JET TRANSLATION
029871,000497: 
029872,000498: 33,2472           02032        10PERTHR           DEC      1050       B-14                       
029873,000499: 
029874,000500: 33,2473           22756        92PERTHR           DEC      9710       B-14                       
029875,000501: 
029876,000502:                                                                                                  #  ************************************************************************
029877,000503:                                                                                                  #  CONSTANTS FOR PRECOI CALCULATIONS AND FOR INITIALIZATION OF ASCENT EO.
029878,000504:                                                                                                  #  ************************************************************************
029879,000505: 33,2474           04520 01267  ABLOCK             2DEC     2.8420     E-4        B9              #  MAXACC92
029880,000506: 
029881,000507: 33,2476           21231 12223                     2DEC     3.3788     E-2        B4              #  1/EXVEL
029882,000508: 
029883,000509: 33,2500           31330 10000                     2DEC     1.0413     E5         B-17            #  TBUP4
029884,000510: 
029885,000511: 33,2502           00000 00000  BBLOCK             2DEC     0          B-28                       #  ACCSTEP
029886,000512: 
029887,000513: 33,2504           00000 00000                     2DEC     0          B-28                       #  ACCSTEP +2
029888,000514: 
029889,000515: 33,2506           36314 31463  KREST              2DEC     0.95                                  
029890,000516: 
029891,000517: 33,2510           11727 01217  KR1EST             2DEC     0.31                                  
029892,000518: 
029893,000519: 33,2512           14152 00000  TGOEST             2DEC     50000      B-17                       
029894,000520: 
029895,000521: 33,2514           20000 00000  BODYVECT           2DEC     .5                                    
029896,000522: 
029897,000523: 33,2516           00000 00000  CBLOCK             2DEC     0          B-28                       #  RDOTD
029898,000524: 
029899,000525: 33,2520           00000 00000                     2DEC     0          B-28                       #  YDOTD
029900,000526: 
029901,000527: 33,2522           23462 33073                     2DEC     7.8397245  E1         B-7             
029902,000528: 
029903,000529: 33,2524           14356 15012  RCRIT              2DEC*    6.5355846  E6         B-24*           
029904,000530: 
029905,000531:                                                                                                  #  ************************************************************************
029906,000532:                                                                                                  #  GENADRS, ECADRS, AND 2CADRS USED IN MP4
029907,000533:                                                                                                  #  ************************************************************************
029908,000534: 
029909,000535: 33,2526           02233        AVGENADR           GENADR   AVERAGEG                              
029910,000536: 
029911,000537: 33,2527           02166        TDECADR            ECADR    TDEC                                  #  FOR EBANK= 4
029912,000538: 
029913,000539: 33,2530           02540        MASSADR            ECADR    MASSES                                #  FOR EBANK= 5
029914,000540: 

Page 664

029916,000542: 33,2531           03123        THRSTADR           ECADR    THRSTCMD                              #  FOR EBANK= 6
029917,000543: 
029918,000544: 33,2532  E4,1566                                  EBANK=   TDEC                                  
029919,000545: 33,2532           02423 66064  MP4TM1AD           2CADR    MP4TERM1                              
029920,000546: 
029921,000547: 33,2534  E4,1566                                  EBANK=   TDEC                                  
029922,000548: 33,2534           02312 60064  EXITADR            2CADR    SERVEXIT                              
029923,000549: 
029924,000550: 33,2536  E4,1400                                  EBANK=   AMEMORY                               
029925,000551: 33,2536           02304 16004  ORBINTAD           2CADR    MIDTOAVE                              
029926,000552: 
029927,000553: 33,2540  E5,1557                                  EBANK=   ETHROT                                
029928,000554: 33,2540           03367 60065  PCNTFMAD           2CADR    PCNTFMAX                              
029929,000555: 
029930,000556: 33,2542  E4,1566                                  EBANK=   TDEC                                  
029931,000557: 33,2542           02713 64064  ATMAG4             2CADR    ATMAG                                 
029932,000558: 
029933,000559: 33,2544  E4,1566                                  EBANK=   TDEC                                  
029934,000560: 33,2544           05605 04004  WACTTHTD           2CADR    ENDOFJOB                              
029935,000561: 
029936,000562: 33,2546           66252        KALC4AD            FCADR    PREKALC4                              
029937,000563: 
029938,000564: 33,2547           60643        CDUJOBAD           FCADR    FINDCDUD                              
029939,000565: 
029940,000566:                                                                                                  #  ************************************************************************
029941,000567:                                                                                                  #  TASKSETR SUBROUTINE - NOT YET AVAILABLE TO OTHER FIXED BANKS
029942,000568: 
029943,000569:                                                                                                  #  ************************************************************************
029944,000570: 
029945,000571: 33,2550           00004        TASKSETR           INHINT                                         
029946,000572: 33,2551           00006                           EXTEND                                         
029947,000573: 33,2552           23154                           QXCH     TEMX                                  
029948,000574: 33,2553           54001                           TS       L                                     
029949,000575: 33,2554           37761                           CAF      ZERO                                  
029950,000576: 33,2555           52145                           DXCH     MPAC                                  
029951,000577: 33,2556           52071                           DXCH     RUPTREG1                              
029952,000578: 33,2557           37761                           CAF      ZERO                                  
029953,000579: 33,2560           56146                           XCH      MPAC       +2                         
029954,000580: 33,2561           54072                           TS       RUPTREG3                              
029955,000581: 33,2562           00006                           EXTEND                                         
029956,000582: 33,2563           40025                           DCS      TIME2                                 
029957,000583: 33,2564           20145                           DAS      MPAC                                  
029958,000584: 33,2565           30003                           CA       EBANK                                 
029959,000585: 33,2566           55155                           TS       TEMY                                  
029960,000586: 33,2567           32527                           CAF      TDECADR                               
029961,000587: 33,2570           54003                           TS       EBANK                                 
029962,000588: 33,2571           00006                           EXTEND                                         
029963,000589: 33,2572           31567                           DCA      TDEC                                  
029964,000590: 33,2573           20145                           DAS      MPAC                                  
029965,000591: 33,2574           07320                           TC       TPAGREE                               
029966,000592: 33,2575           30072                           CA       RUPTREG3                              

Page 665

029968,000594: 33,2576           54146                           TS       MPAC       +2                         
029969,000595: 33,2577           52071                           DXCH     RUPTREG1                              
029970,000596: 33,2600           52145                           DXCH     MPAC                                  
029971,000597: 33,2601           00006                           EXTEND                                         
029972,000598: 33,2602           12605                           BZF      +3                                    
029973,000599: 33,2603           06000                           TC       ABORT                                 
029974,000600: 33,2604           00404                           OCT      00404                                 
029975,000601: 33,2605           56001                           XCH      L                                     
029976,000602: 33,2606           00006                           EXTEND                                         
029977,000603: 33,2607           62603                           BZMF     -4                                    
029978,000604: 33,2610           23155                           LXCH     TEMY                                  
029979,000605: 33,2611           22003                           LXCH     EBANK                                 
029980,000606: 33,2612           00003                           RELINT                                         
029981,000607: 33,2613           01154                           TC       TEMX                                  
029982,000608:                                                                                                  #  ************************************************************************

End of include-file MP4-CONTINGENCY_ORBIT_INSERTION.agc.  Parent file is MAIN.agc