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.

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

Page 654

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

Page 655

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

Page 656

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

Page 657

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

Page 658

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

Page 659

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

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