Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

029634,000002:                                                                                                  ## Copyright:   Public domain.
029635,000003:                                                                                                  ## Filename:    MP4-CONTINGENCY_ORBIT_INSERTION.agc
029636,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
029637,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
029638,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
029639,000007:                                                                                                  ## Assembler:   yaYUL
029640,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029641,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029642,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
029643,000011:                                                                                                  ##              2016-10-24 MAS  Transcribed.
029644,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
029645,000013:                                                                                                  ##              2016-11-01 RSB  Correction for overprinted area (p. 707).
029646,000014:                                                                                                  ##              2016-11-06 MAS  Removed workaround for overprinted area.
029647,000015:                                                                                                  ##              2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
029648,000016:                                                                                                  ##                              changes made.
029649,000017: 

Page 696

029651,000019: 33,2000                                           BANK     33                                    
029652,000020: 
029653,000021: 33,2000  E4,1566                                  EBANK=   TDEC                                  
029654,000022:                                                                                                  #  PROGRAM NAME-                   DATE-
029655,000023:                                                                                                  #           MISSION PHASE 4                 14 DECEMBER 1966
029656,000024:                                                                                                  #  MOD NO- 21                      LOG SECTION-
029657,000025:                                                                                                  #  MOD BY- SCHULENBERG                      MP4-CONTINGENCY ORBIT INSERTION
029658,000026: 
029659,000027:                                                                                                  #  FUNCTIONAL DESCRIPTION-
029660,000028:                                                                                                  #           CONTINGENCY ORBIT INSERTION IS CALLED BY GROUND IN EVENT OF PREMATURE SIVB SHUTDOWN AND ATTEMPTS TO
029661,000029:                                                                                                  #  EFFECT AN ORBITAL INSERTION USING THE DPS ENGINE AND THE GUIDANCE EQUATIONS USED FOR THE APS BURNS. THE
029662,000030:                                                                                                  #  PROGRAM LEAVES MISSION PHASE TIMERS INHIBITED AND LEAVES FURTHER CONTROLTO THE GROUND VIA UPLINK.
029663,000031:                                                                                                  #  CALLING SEQUENCE-               SUBROUTINES CALLED-
029664,000032:                                                                                                  #           START MP4 WHEN ABORT            FLAG1UP          FLAG1DWN
029665,000033:                                                                                                  #  COMMAND MONITOR DETECTS MP4              FIXDELAY         WAITLIST
029666,000034:                                                                                                  #  COMMAND VIA LGC UPLINK.                  VPATCHER         KALCMANU
029667,000035:                                                                                                  #                                           ASCENT           UL4JETON
029668,000036:                                                                                                  #  NORMAL EXIT MODES-                       LMP              UL4JETOF
029669,000037:                                                                                                  #           TASKOVER (AWAITS                EXECUTIVE        ENGINEON
029670,000038:                                                                                                  #  FURTHER COMMANDS FROM GROUND)            MIDTOAVE         ENGINOFF
029671,000039:                                                                                                  #  ALARM EXIT MODES-                        BANKCALL         ENGINOF1
029672,000040:                                                                                                  #           NONE                            IBNKCALL         LASTBIAS
029673,000041: 
029674,000042:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-
029675,000043:                                                                                                  #           RINJECT = INJECTION RADIUS DESIRED IN METERS * 2(-25)
029676,000044:                                                                                                  #           VINJECT = ORBITAL VELOCITY DESIRED IN METERS/CENTISECOND * 2(-7
029677,000045: 
029678,000046:                                                                                                  #  OUTPUT- SAME AS FOR KALCMANU
029679,000047:                                                                                                  #  DEBRIS- SAME AS FOR KALCMANU
029680,000048: 
029681,000049: 33,2000           04161        MP4JOB             TC       PHASCHNG                              
029682,000050: 33,2001           05022                           OCT      05022                                 
029683,000051: 33,2002           27000                           OCT      27000                                 
029684,000052: 
029685,000053: 33,2003           37760                           CAF      BIT4                                  
029686,000054: 33,2004           04105                           TC       SETRSTRT                              #  SET RESTART FLAG
029687,000055: 
029688,000056: 33,2005           06051                           TC       FLAG1UP                               
029689,000057: 33,2006           00040                           OCT      00040                                 #  POOH FLAG ON
029690,000058: 
029691,000059: 33,2007           04117                           TC       NEWMODEX                              #  START CONTINGENCY ORBIT INSERTION
029692,000060: 33,2010           00072                           OCT      72                                    
029693,000061: 
029694,000062: 33,2011           37761                           CAF      FOUR                                  #  SIGNAL START OF MISSION PHASE 4
029695,000063: 33,2012           54764                           TS       PHASENUM                              
029696,000064: 
029697,000065: 33,2013           06067                           TC       FLAG1DWN                              #  TERMINATE AVEG AND DO AUTO AVETOMID
029698,000066: 33,2014           00001                           OCT      1                                     
029699,000067: 
029700,000068: 33,2015           00004                           INHINT                                         
029701,000069: 

Page 697

029703,000071: 33,2016           37763                           CAF      BIT1                                  
029704,000072: 33,2017           05663                           TC       WAITLIST                              #  SHORT WAITLIST TO INITIALIZE LMP COMMAND
029705,000073: 33,2020  E4,1566                                  EBANK=   TDEC                                  
029706,000074: 33,2020           02023 66064                     2CADR    ABORTPRR                              
029707,000075: 
029708,000076: 33,2022           15567                           TCF      ENDOFJOB                              #  END MP4JOB
029709,000077: 
029710,000078:                                                                                                  #  RCS ABORT PRESSURIZATION ROUTINE
029711,000079: 
029712,000080: 33,2023           37767        ABORTPRR           CAF      ZERO                                  #  INSURE RCS JETS OFF
029713,000081: 33,2024           00006                           EXTEND                                         
029714,000082: 33,2025           01006                           WRITE    6                                     
029715,000083: 33,2026           00006                           EXTEND                                         
029716,000084: 33,2027           01005                           WRITE    5                                     
029717,000085: 
029718,000086: 33,2030           04161                           TC       PHASCHNG                              
029719,000087: 33,2031           47012                           OCT      47012                                 
029720,000088: 33,2032           00144                           DEC      100        B-14                       
029721,000089: 33,2033  E4,1566                                  EBANK=   TDEC                                  
029722,000090: 33,2033           02037 66064                     2CADR    OPESYS                                
029723,000091: 
029724,000092: 33,2035           05701                           TC       FIXDELAY                              
029725,000093: 33,2036           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029726,000094: 
029727,000095: 33,2037           05073        OPESYS             TC       2LMP+DT                               
029728,000096: 33,2040           00274                           DEC      188        B-14                       #  RCS MAIN S/O VALVES, SYS A-OPEN**
029729,000097: 33,2041           00276                           DEC      190        B-14                       #  RCS MAIN S/O VALVES, SYS B-OPEN**
029730,000098: 33,2042           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029731,000099: 
029732,000100: 33,2043           05101                           TC       1LMP+DT                               
029733,000101: 33,2044           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION-ON
029734,000102: 33,2045           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029735,000103: 
029736,000104: 33,2046           05073                           TC       2LMP+DT                               
029737,000105: 33,2047           00275                           DEC      189        B-14                       #  RCS MAIN S/O VALVES, SYS A-OPEN RESET
029738,000106: 33,2050           00277                           DEC      191        B-14                       #  RCS MAIN S/O VALVES, SYS B-OPEN RESET
029739,000107: 33,2051           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029740,000108: 
029741,000109: 33,2052           05101                           TC       1LMP+DT                               
029742,000110: 33,2053           00006                           DEC      6          B-14                       #  RCS PRESSURE-FIRE**
029743,000111: 33,2054           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029744,000112: 
029745,000113: 33,2055           05101                           TC       1LMP+DT                               
029746,000114: 33,2056           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION-SAFE
029747,000115: 33,2057           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029748,000116: 
029749,000117: 33,2060           05101                           TC       1LMP+DT                               
029750,000118: 33,2061           00007                           DEC      7          B-14                       #  RCS PRESSURE - FIRE RESET
029751,000119: 33,2062           00620                           DEC      400        B-14                       #  DELAY FOUR SECONDS
029752,000120: 

Page 698

029754,000122:                                                                                                  #  END RCS ABORT PRESSURIZATION ROUTINE
029755,000123: 
029756,000124: 33,2063           30075        TUMBLCHK           CA       FLAGWRD1                              
029757,000125: 33,2064           77747                           MASK     BIT13                                 
029758,000126: 33,2065           00006                           EXTEND                                         
029759,000127: 33,2066           12077                           BZF      NOTUMBL                               
029760,000128: 
029761,000129: 33,2067           04161                           TC       PHASCHNG                              
029762,000130: 33,2070           47012                           OCT      47012                                 
029763,000131: 33,2071           00062                           DEC      50         B-14                       
029764,000132: 33,2072  E4,1566                                  EBANK=   TDEC                                  
029765,000133: 33,2072           02063 66064                     2CADR    TUMBLCHK                              
029766,000134: 
029767,000135: 33,2074           05701                           TC       FIXDELAY                              
029768,000136: 33,2075           00062                           DEC      50         B-14                       #  DELAY .5 SECS AND CHECK AGAIN
029769,000137: 33,2076           12063                           TCF      TUMBLCHK                              
029770,000138: 
029771,000139: 33,2077           06067        NOTUMBL            TC       FLAG1DWN                              #  IF NO TUMBLING-TERMINATE MONITOR
029772,000140: 33,2100           20000                           OCT      20000                                 #  TERMINATE TUMBLE MONITOR
029773,000141: 
029774,000142: 33,2101           00006        TIG4-51            EXTEND                                         
029775,000143: 33,2102           30025                           DCA      TIME2                                 #  GET CURRENT TIME
029776,000144: 33,2103           53305                           DXCH     TDECTEMP                              
029777,000145: 
029778,000146: 33,2104           32613                           CAF      021CEK                                #  UPDATE STATE TO TIG4-30
029779,000147: 33,2105           54001                           TS       L                                     
029780,000148: 33,2106           37767                           CAF      ZERO                                  
029781,000149: 33,2107           21305                           DAS      TDECTEMP                              
029782,000150: 
029783,000151: 33,2110           00006                           EXTEND                                         
029784,000152: 33,2111           31305                           DCA      TDECTEMP                              
029785,000153: 33,2112           53670                           DXCH     TIGN                                  
029786,000154: 33,2113           32614                           CAF      030CEK                                
029787,000155: 33,2114           56001                           XCH      L                                     
029788,000156: 33,2115           37767                           CAF      ZERO                                  
029789,000157: 33,2116           21670                           DAS      TIGN                                  #  FOR DOWNLINK USE - NOMINAL TIGN
029790,000158:                                                                                                  #  BEGIN ABORT LEM/S4B SEPARATION PROCEDURE
029791,000159: 
029792,000160: 33,2117           40075        MP4SEP             CS       FLAGWRD1                              
029793,000161: 33,2120           77760                           MASK     BIT4                                  
029794,000162: 33,2121           26075                           ADS      FLAGWRD1                              
029795,000163: 
029796,000164: 33,2122           32615                           CAF      XTRANSON                              #  +X TRANSLATION- ON (PRE-DAP)
029797,000165: 33,2123           00006                           EXTEND                                         
029798,000166: 33,2124           01005                           WRITE    5                                     
029799,000167: 
029800,000168: 33,2125           05270                           TC       IBNKCALL                              #  +X TRANSLATION-ON (4JET)
029801,000169: 33,2126           40062                           CADR     ULLAGE                                
029802,000170: 
029803,000171: 33,2127           05101                           TC       1LMP+DT                               

Page 699

029805,000173: 33,2130           00072                           DEC      58         B-14                       #  LEM/SIVB SEPARATE - ARM ON
029806,000174: 33,2131           00062                           DEC      50         B-14                       #  DELAY 500 MS.
029807,000175: 
029808,000176: 33,2132           40077                           CS       DAPBOOLS                              
029809,000177: 33,2133           77751                           MASK     GODAPGO                               #  TURN ON THE DAP
029810,000178: 33,2134           26077                           ADS      DAPBOOLS                              
029811,000179: 
029812,000180: 33,2135           05270                           TC       IBNKCALL                              
029813,000181: 33,2136           40054                           CADR     SETMAXDB                              
029814,000182: 
029815,000183: 33,2137           04161                           TC       PHASCHNG                              
029816,000184: 33,2140           47012                           OCT      47012                                 
029817,000185: 33,2141           00062                           DEC      50         B-14                       
029818,000186: 33,2142  E4,1566                                  EBANK=   TDEC                                  
029819,000187: 33,2142           02146 66064                     2CADR    MP4HOLD                               
029820,000188: 
029821,000189: 33,2144           05701                           TC       FIXDELAY                              #  WAIT FOR 300 MS.
029822,000190: 33,2145           00062                           DEC      50         B-14                       #  DELAY 500 MS.
029823,000191: 
029824,000192: 33,2146           05270        MP4HOLD            TC       IBNKCALL                              
029825,000193: 33,2147           40072                           CADR     HOLDRATE                              
029826,000194: 
029827,000195: 33,2150           05101                           TC       1LMP+DT                               
029828,000196: 33,2151           00132                           DEC      90         B-14                       #  LEM/SIVB SEPARATE- COMMAND
029829,000197: 33,2152           00012                           DEC      10         B-14                       #  DELAY 100 MS.
029830,000198: 
029831,000199: 33,2153           05270                           TC       IBNKCALL                              
029832,000200: 33,2154           40046                           CADR     SETMINDB                              
029833,000201: 
029834,000202: 33,2155           04161                           TC       PHASCHNG                              
029835,000203: 33,2156           47012                           OCT      47012                                 
029836,000204: 33,2157           00132                           DEC      90         B-14                       
029837,000205: 33,2160  E4,1566                                  EBANK=   TDEC                                  
029838,000206: 33,2160           02164 66064                     2CADR    TIG4-49                               
029839,000207: 
029840,000208: 33,2162           05701                           TC       FIXDELAY                              
029841,000209: 33,2163           00132                           DEC      90         B-14                       #  DELAY 900 MS.
029842,000210: 
029843,000211: 33,2164           05101        TIG4-49            TC       1LMP+DT                               
029844,000212: 33,2165           00073                           DEC      59         B-14                       #  LEM/S4B SEPARATE-ARM-OFF
029845,000213: 33,2166           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
029846,000214: 
029847,000215: 33,2167           05060        TIG4-48            TC       1LMP                                  
029848,000216: 33,2170           00133                           DEC      91         B-14                       #  LEM/S4B SEPARATE-COMMAND RESET
029849,000217: 
029850,000218:                                                                                                  #  END LEM/S4B SEPARATION ROUTINE
029851,000219: 
029852,000220: 33,2171           32612                           CAF      007CEK                                
029853,000221: 33,2172           05663                           TC       WAITLIST                              
029854,000222: 33,2173  E4,1566                                  EBANK=   TDEC                                  

Page 700

029856,000224: 33,2173           02351 66064                     2CADR    TIG4-41                               
029857,000225: 
029858,000226: 33,2175           04141                           TC       2PHSCHNG                              
029859,000227: 33,2176           40152                           OCT      40152                                 #  TABLES RESTART FOR TIG4-41
029860,000228: 33,2177           05014                           OCT      05014                                 
029861,000229: 33,2200           77777                           OCT      77777                                 
029862,000230: 
029863,000231: 33,2201           35651                           CAF      PRIO27                                #  START NEW JOB FOR CALCULATIONS
029864,000232: 33,2202           05516                           TC       FINDVAC                               
029865,000233: 33,2203  E4,1566                                  EBANK=   TDEC                                  
029866,000234: 33,2203           02206 66064                     2CADR    LONGJOB                               
029867,000235: 
029868,000236: 33,2205           15727                           TCF      TASKOVER                              #  END TIG4-48 TASK
029869,000237: 
029870,000238: 33,2206           06112        LONGJOB            TC       INTPRET                               #  SET INTEGRSW SO THAT THE THIRD TESTLOOP
029871,000239: 33,2207           77414                           SET      EXIT                                  #  OF MIDTOAVE WILL GENERATE IGN+28 STATES
029872,000240: 33,2210           02072                                    INTEGRSW                              #  INSTEAD OF IGNITION STATES.
029873,000241: 
029874,000242: 33,2211           00006                           EXTEND                                         #  RESET TDEC IN CASE OF A RESTART
029875,000243: 33,2212           31305                           DCA      TDECTEMP                              
029876,000244: 33,2213           53567                           DXCH     TDEC                                  
029877,000245: 
029878,000246: 33,2214           00006                           EXTEND                                         
029879,000247: 33,2215           32654                           DCA      ORBINTAD                              #  DO ORBITAL INTEGRATION
029880,000248: 33,2216           52006                           DXCH     Z                                     
029881,000249: 
029882,000250: 33,2217           04161                           TC       PHASCHNG                              
029883,000251: 33,2220           05024                           OCT      05024                                 
029884,000252: 33,2221           27000                           OCT      27000                                 
029885,000253: 
029886,000254: 33,2222           32661        PRECOI             CAF      KALC4AD                               
029887,000255: 33,2223           55450                           TS       ASCRET                                
029888,000256: 33,2224           06112                           TC       INTPRET                               
029889,000257: 33,2225           77624                           CALL                                           
029890,000258: 33,2226           60436                                    VPATCHER                              #  RESCALE AND LOAD IGN STATES IN RN AND VN
029891,000259: 33,2227           77776                           EXIT                                           
029892,000260: 
029893,000261: 33,2230           04161                           TC       PHASCHNG                              #  BECAUSE PAXIS1 & QAXIS TIME-SHARE
029894,000262: 33,2231           04024                           OCT      04024                                 #  LOCATIONS WITH RN & VN.
029895,000263: 
029896,000264: 33,2232           06112                           TC       INTPRET                               
029897,000265: 33,2233           77775                           VLOAD                                          
029898,000266: 33,2234           01017                                    VN                                    #  VN FROM VPATCHER=VIGNTION*2(-7) M/CS
029899,000267: 33,2235           53435                           VXV      UNIT                                  
029900,000268: 33,2236           01011                                    RN                                    #  RN FROM VPATCHER=RIGNTION*2(N-29) M
029901,000269: 33,2237           26007                           STOVL    QAXIS                                 #  UNIT HORIZONTAL VECTOR NORMAL TO ORBIT
029902,000270: 33,2240           01033                                    UNITR                                 #  UNITR FROM AVEG=UNIT(RIGNTION)*2(-1) M
029903,000271: 33,2241           02001                           STORE    PAXIS1                                
029904,000272: 33,2242           76435                           VXV      VSL1                                  
029905,000273: 33,2243           02007                                    QAXIS                                 

Page 701

029907,000275: 33,2244           26015                           STOVL    SAXIS                                 #  UNIT HORIZONTAL VECTOR PARALLEL TO ORBIT
029908,000276: 33,2245           26617                                    ABLOCK                                
029909,000277: 33,2246           26023                           STOVL    AT                                    
029910,000278: 33,2247           26625                                    BBLOCK                                
029911,000279: 33,2250           26031                           STOVL    ATMEAS                                
029912,000280: 33,2251           26643                                    CBLOCK                                
029913,000281: 33,2252           16041                           STODL    RDOTD                                 #  RDOTD, YDOTD.  ZDOTD FIXED LATER.
029914,000282: 33,2253           26635                                    KR1EST                                
029915,000283: 33,2254           16037                           STODL    KR1                                   #  LOAD ATTITUDE LIMITING PARAMETER
029916,000284: 33,2255           26637                                    TGOEST                                
029917,000285: 33,2256           16141                           STODL    TGO                                   
029918,000286: 33,2257           03572                                    VTO-DPS                               
029919,000287: 33,2260           16057                           STODL    VTO                                   #  LOAD DPS TAILOFF VELOCITY FOR ASCENT
029920,000288: 33,2261           03436                                    RINJECT                               
029921,000289: 33,2262           16375                           STODL    RCO                                   #  LOAD INJECTION RADIUS FOR ASCENT
029922,000290: 33,2263           03440                                    VINJECT                               
029923,000291: 33,2264           16045                           STODL    ZDOTD                                 #  LOAD INJECTION VELOCITY FOR ASCENT
029924,000292: 33,2265           26633                                    KREST                                 
029925,000293: 33,2266           02061                           STORE    KR                                    
029926,000294: 33,2267           77614                           CLEAR                                          
029927,000295: 33,2270           02267                                    DIRECT                                
029928,000296: 33,2271           50375                           VLOAD    DOT                                   
029929,000297: 33,2272           02015                                    SAXIS                                 
029930,000298: 33,2273           01017                                    VN                                    #  ZDOT*2(-8)
029931,000299: 33,2274           77752                           SL1                                            #   *2(-7)
029932,000300: 33,2275           26105                           STOVL    ZDOT                                  
029933,000301: 33,2276           02001                                    PAXIS1                                
029934,000302: 33,2277           72441                           DOT      SL1                                   #  RDOT*2(-8)
029935,000303: 33,2300           01017                                    VN                                    #   *2(-7)
029936,000304: 33,2301           16147                           STODL    RDOT                                  
029937,000305: 33,2302           26643                                    DP0                                   
029938,000306: 33,2303           02067                           STORE    YDOT                                  #  YDOT = 0
029939,000307: 33,2304           52014                           SET      GOTO                                  
029940,000308: 33,2305           02066                                    BAKTO4                                
029941,000309: 33,2306           64125                                    ASCENT                                #  GO TO USE GEFF SECTION OF ASCENT
029942,000310: 33,2307           77742        GFKNOWN            SR1                                            #  LET AVG GEFF = .5 GEFF
029943,000311: 33,2310           02111                           STORE    GEFF                                  
029944,000312: 33,2311           77650                           GOTO                                           
029945,000313: 33,2312           64404                                    GAIN                                  
029946,000314: 33,2313           43345        TKNOWN             DLOAD    DAD                                   
029947,000315: 33,2314           02041                                    RDOTD                                 
029948,000316: 33,2315           02147                                    RDOT                                  #  (RDOT+RDOTD)*2(-7)
029949,000317: 33,2316           41342                           SR1      DMP                                   #   .5RDOTAVE*2(-7)
029950,000318: 33,2317           02141                                    TGO                                   #  RGO*2(-24),SINCE TGO IS *2(-17)
029951,000319: 33,2320           70415                           DAD      SR1                                   #  RFREE IS RCO FOR NO R-CONTROL,*2(-24)
029952,000320: 33,2321           01047                                    RMAG                                  #   *2(-25)
029953,000321: 33,2322           51025                           DSU      BPL                                   
029954,000322: 33,2323           02375                                    RCO                                   
029955,000323: 33,2324           66330                                    FREE-R                                
029956,000324: 33,2325           52014                           CLEAR    GOTO                                  #  IF RFREE SMTHAN RCO, CONSTRAIN RCO

Page 702

029958,000326: 33,2326           02271                                    HC                                    
029959,000327: 33,2327           64125                                    ASCENT                                
029960,000328: 33,2330           52014        FREE-R             SET      GOTO                                  
029961,000329: 33,2331           02071                                    HC                                    #  IF RFREE GRTHAN RCO, FREE RCO
029962,000330: 33,2332           64125                                    ASCENT                                
029963,000331: 33,2333           43175        PREKALC4           VLOAD    CLEAR                                 
029964,000332: 33,2334           02233                                    AXISD                                 
029965,000333: 33,2335           02273                                    ENGOFFSW                              #  TO AVOID MULTIPLE ENGINOFF COMMANDS
029966,000334: 33,2336           25656                           STOVL    POINTVSM                              #  KALCMANU INPUT REGISTER
029967,000335: 33,2337           26641                                    BODYVECT                              #  LOAD BODY AXES VECTOR IN SM COORDS
029968,000336: 33,2340           01664                           STORE    SCAXIS                                #  KALCMANU INPUT VECTOR
029969,000337: 33,2341           66214                           SET      SSP                                   
029970,000338: 33,2342           01063                                    33D                                   
029971,000339: 
029972,000340: 33,2343           01653                                    RATEINDX                              
029973,000341: 33,2344           00006                                    6                                     #  10 DEGREE/SEC MANEUVERING RATE
029974,000342: 33,2345           77776                           EXIT                                           
029975,000343: 
029976,000344: 33,2346           04161                           TC       PHASCHNG                              
029977,000345: 33,2347           00004                           OCT      00004                                 #  DEACTIVATE GR 4
029978,000346: 
029979,000347: 33,2350           15567                           TCF      ENDOFJOB                              #  END LONGJOB
029980,000348: 
029981,000349: 33,2351           32646        TIG4-41            CAF      AVGENADR                              #  GENADR OF AVERAGEG
029982,000350: 33,2352           55310                           TS       DVSELECT                              
029983,000351: 
029984,000352: 33,2353           00006                           EXTEND                                         
029985,000353: 33,2354           32652                           DCA      EXITADR                               #  SET AVEG TO EXIT TO END OF JOB UNTIL
029986,000354: 33,2355           53073                           DXCH     AVGEXIT                               #  IT IS RESET TO ATMAG
029987,000355: 
029988,000356: 33,2356           00006                           EXTEND                                         
029989,000357: 33,2357           32650                           DCA      MP4TM1AD                              #  SET MONITOR EXIT
029990,000358: 33,2360           53075                           DXCH     DVMNEXIT                              
029991,000359: 
029992,000360: 33,2361           05101                           TC       1LMP+DT                               
029993,000361: 33,2362           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION-ON
029994,000362: 33,2363           00620                           DEC      400        B-14                       #  DELAY 4 SECONDS
029995,000363: 
029996,000364: 33,2364           05270        TIG4-37            TC       IBNKCALL                              #  +X TRANSLATION- OFF
029997,000365: 33,2365           40066                           CADR     NOULLAGE                              
029998,000366: 
029999,000367: 33,2366           05270                           TC       IBNKCALL                              
030000,000368: 33,2367           40114                           CADR     STOPRATE                              #  HOLD VEHICLE ATTITUDE
030001,000369: 
030002,000370: 33,2370           04161                           TC       PHASCHNG                              
030003,000371: 33,2371           47012                           OCT      47012                                 
030004,000372: 33,2372           00144                           DEC      100        B-14                       
030005,000373: 33,2373  E4,1566                                  EBANK=   TDEC                                  
030006,000374: 33,2373           02377 66064                     2CADR    TIG4-36                               
030007,000375: 

Page 703

030009,000377: 33,2375           05701                           TC       FIXDELAY                              
030010,000378: 33,2376           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
030011,000379: 
030012,000380: 33,2377           05060        TIG4-36            TC       1LMP                                  
030013,000381: 33,2400           00010                           DEC      8          B-14                       #  LANDING GEAR DEPLOY-FIRE
030014,000382: 
030015,000383: 33,2401           32606                           CAF      002CEK                                
030016,000384: 33,2402           05663                           TC       WAITLIST                              
030017,000385: 33,2403  E4,1566                                  EBANK=   TDEC                                  
030018,000386: 33,2403           02416 66064                     2CADR    TIG4-34                               
030019,000387: 
030020,000388: 33,2405           04141                           TC       2PHSCHNG                              
030021,000389: 33,2406           40172                           OCT      40172                                 
030022,000390: 33,2407           05013                           OCT      05013                                 #  GR 3 FOR KALCMANU
030023,000391: 33,2410           77777                           OCT      77777                                 
030024,000392: 
030025,000393: 33,2411           35642                           CAF      PRIO16                                #  CALL KALCMANU.
030026,000394: 33,2412           05516                           TC       FINDVAC                               
030027,000395: 33,2413  E3,1535                                  EBANK=   MIS                                   
030028,000396: 33,2413           02001 70063                     2CADR    VECPOINT                              
030029,000397: 
030030,000398: 33,2415           15727                           TCF      TASKOVER                              #  END TIG4-36 TASK
030031,000399: 
030032,000400: 33,2416           32610        TIG4-34            CAF      004CEK                                #  SET PREREAD CALL (AUTO LASTBIAS)
030033,000401: 33,2417           05663                           TC       WAITLIST                              
030034,000402: 33,2420  E5,1506                                  EBANK=   DVTOTAL                               
030035,000403: 33,2420           02000 60065                     2CADR    PREREAD                               
030036,000404: 
030037,000405: 33,2422           04141                           TC       2PHSCHNG                              
030038,000406: 33,2423           40275                           OCT      40275                                 #  5.27 SPOT FOR PREREAD
030039,000407: 33,2424           05012                           OCT      05012                                 #  GR 2 CONTINUES HERE
030040,000408: 33,2425           77777                           OCT      77777                                 
030041,000409: 
030042,000410: 33,2426           05101                           TC       1LMP+DT                               
030043,000411: 33,2427           00011                           DEC      9          B-14                       #  LANDING GEAR DEPLOY- FIRE RESET
030044,000412: 33,2430           00622                           DEC      402        B-14                       #  DELAY 4 SECONDS
030045,000413: 
030046,000414: 33,2431           05270        TIG4-30            TC       IBNKCALL                              
030047,000415: 33,2432           40277                           CADR     ENGINOF1                              
030048,000416: 
030049,000417: 33,2433           05073                           TC       2LMP+DT                               
030050,000418: 33,2434           00226                           DEC      150        B-14                       #  ENGINE SELECT- DESC ARM
030051,000419: 33,2435           00126                           DEC      86         B-14                       #  MANUAL THROTTLE- ON 10 PERCENT
030052,000420: 33,2436           02566                           DEC      1398       B-14                       #  DELAY 14 SECONDS
030053,000421: 
030054,000422: 33,2437           05073        TIG4-16            TC       2LMP+DT                               
030055,000423: 33,2440           00344                           DEC      228        B-14                       #  DPS PQGS ARM NO 1 - ENABLE
030056,000424: 33,2441           00304                           DEC      196        B-14                       #  DPS PQGS ARM NO 2- ENABLE
030057,000425: 33,2442           00144                           DEC      100        B-14                       
030058,000426: 

Page 704

030060,000428: 33,2443           05073        TIG4-15            TC       2LMP+DT                               
030061,000429: 33,2444           00364                           DEC      244        B-14                       #  DPS PQGS NO 1- ON
030062,000430: 33,2445           00324                           DEC      212        B-14                       #  DPS PQGS NO 2- ON
030063,000431: 33,2446           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS
030064,000432: 
030065,000433: 33,2447           05270        TIG4-7.5           TC       IBNKCALL                              #  +X TRANSLATION- ON
030066,000434: 33,2450           40062                           CADR     ULLAGE                                
030067,000435: 
030068,000436: 33,2451           04161                           TC       PHASCHNG                              
030069,000437: 33,2452           47012                           OCT      47012                                 
030070,000438: 33,2453           01356                           DEC      750        B-14                       
030071,000439: 33,2454  E4,1566                                  EBANK=   TDEC                                  
030072,000440: 33,2454           02460 66064                     2CADR    TIG4TST                               
030073,000441: 
030074,000442: 33,2456           05701                           TC       FIXDELAY                              
030075,000443: 33,2457           01356                           DEC      750        B-14                       #  DELAY 7.5 SECONDS
030076,000444: 
030077,000445: 33,2460           35643        TIG4TST            CAF      PRIO17                                
030078,000446: 33,2461           05505                           TC       NOVAC                                 
030079,000447: 33,2462  E4,1566                                  EBANK=   TDEC                                  
030080,000448: 33,2462           02465 66064                     2CADR    IGNTEST                               
030081,000449: 
030082,000450: 33,2464           15727                           TCF      TASKOVER                              
030083,000451: 
030084,000452: 33,2465           05206        IGNTEST            TC       BANKCALL                              #  WAIT UNTIL MANEUVER IS FINISHED
030085,000453: 33,2466           26743                           CADR     ATTSTALL                              
030086,000454: 33,2467           04743                           TC       CURTAINS                              
030087,000455: 
030088,000456: 33,2470           00004        MP4IGN             INHINT                                         
030089,000457: 33,2471           05270                           TC       IBNKCALL                              
030090,000458: 33,2472           40226                           CADR     DPSENGON                              

DPSENGON in the above line has a green arrow pointing to it.

030092,000460: 
030093,000461: 33,2473           32607                           CAF      003CEK                                
030094,000462: 33,2474           05663                           TC       WAITLIST                              
030095,000463: 33,2475  E4,1566                                  EBANK=   TDEC                                  
030096,000464: 33,2475           02506 66064                     2CADR    MP4IGN+3                              
030097,000465: 
030098,000466: 33,2477           04141                           TC       2PHSCHNG                              
030099,000467: 33,2500           00003                           OCT      00003                                 
030100,000468: 33,2501           47012                           OCT      47012                                 
030101,000469: 33,2502           00454                           DEC      300        B-14                       
030102,000470: 33,2503  E4,1566                                  EBANK=   TDEC                                  
030103,000471: 33,2503           02506 66064                     2CADR    MP4IGN+3                              
030104,000472: 
030105,000473: 33,2505           15567                           TCF      ENDOFJOB                              
030106,000474: 
030107,000475: 33,2506           05270        MP4IGN+3           TC       IBNKCALL                              #  +X TRANSLATION- OFF
030108,000476: 33,2507           40066                           CADR     NOULLAGE                              
030109,000477: 
030110,000478: 33,2510           05101                           TC       1LMP+DT                               

Page 705

030112,000480: 33,2511           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION- SAFE
030113,000481: 33,2512           04374                           DEC      2300       B-14                       #  DELAY 23 SECONDS
030114,000482: 
030115,000483: 33,2513           37743        MAXTHRST           CAF      POSMAX                                #  CALL FOR 92.5 PERCENT THRUST
030116,000484: 33,2514           55323                           TS       PCNTF                                 
030117,000485: 33,2515           00006                           EXTEND                                         
030118,000486: 33,2516           32656                           DCA      PCNTFMAD                              
030119,000487: 33,2517           52006                           DTCB                                           
030120,000488: 
030121,000489: 33,2520           04141                           TC       2PHSCHNG                              #  PROTECT CALL FOR MAXIMUM THRUST
030122,000490: 33,2521           00114                           OCT      00114                                 
030123,000491: 33,2522           47012                           OCT      47012                                 
030124,000492: 33,2523           00454                           DEC      300        B-14                       
030125,000493: 33,2524  E4,1566                                  EBANK=   TDEC                                  
030126,000494: 33,2524           02530 66064                     2CADR    GUIDANCE                              
030127,000495: 
030128,000496: 33,2526           05701                           TC       FIXDELAY                              
030129,000497: 33,2527           00454                           DEC      300        B-14                       #  WAIT 3 SECS BEFORE CALLING THRUST FILTER
030130,000498: 
030131,000499: 33,2530           00006        GUIDANCE           EXTEND                                         #  TUNE IN ASCENT GUIDANCE
030132,000500: 33,2531           32660                           DCA      ATMAG4                                
030133,000501: 33,2532           53073                           DXCH     AVGEXIT                               
030134,000502: 
030135,000503: 33,2533           32662                           CAF      CDUJOBAD                              
030136,000504: 33,2534           55450                           TS       ASCRET                                
030137,000505: 
030138,000506: 33,2535           04161                           TC       PHASCHNG                              
030139,000507: 33,2536           00002                           OCT      00002                                 #  DEACTIVATE GR 2
030140,000508: 
030141,000509: 33,2537           15727                           TCF      TASKOVER                              
030142,000510: 
030143,000511: 33,2540           00004        MP4TERM1           INHINT                                         
030144,000512: 33,2541           32611                           CAF      005CEK                                
030145,000513: 33,2542           05663                           TC       WAITLIST                              
030146,000514: 33,2543  E4,1566                                  EBANK=   TDEC                                  
030147,000515: 33,2543           02554 66064                     2CADR    TCO+5                                 
030148,000516: 
030149,000517: 33,2545           04161                           TC       PHASCHNG                              
030150,000518: 33,2546           47012                           OCT      47012                                 
030151,000519: 33,2547           00764                           DEC      500        B-14                       
030152,000520: 33,2550  E4,1566                                  EBANK=   TDEC                                  
030153,000521: 33,2550           02554 66064                     2CADR    TCO+5                                 
030154,000522: 
030155,000523: 33,2552           05225                           TC       POSTJUMP                              
030156,000524: 33,2553           60324                           CADR     SERVEXIT                              
030157,000525: 
030158,000526: 33,2554           05073        TCO+5              TC       2LMP+DT                               
030159,000527: 33,2555           00227                           DEC      151        B-14                       #  ENGINE SELECT-DESC ARM-OFF
030160,000528: 33,2556           00127                           DEC      87         B-14                       #  MANUAL THROTTLE-RESET (30 PERCENT)
030161,000529: 33,2557           00144                           DEC      100        B-14                       #  DELAY ONE SECOND
030162,000530: 

Page 706

030164,000532: 33,2560           05270                           TC       IBNKCALL                              #  SET MAXIMUM DEADBAND
030165,000533: 33,2561           40054                           CADR     SETMAXDB                              
030166,000534: 
030167,000535: 33,2562           04161                           TC       PHASCHNG                              
030168,000536: 33,2563           47012                           OCT      47012                                 
030169,000537: 33,2564           01604                           DEC      900        B-14                       
030170,000538: 33,2565  E4,1566                                  EBANK=   TDEC                                  
030171,000539: 33,2565           02571 66064                     2CADR    TCO+15                                
030172,000540: 
030173,000541: 33,2567           05701                           TC       FIXDELAY                              
030174,000542: 33,2570           01604                           DEC      900        B-14                       #  DELAY NINE SECONDS
030175,000543: 
030176,000544: 33,2571           05073        TCO+15             TC       2LMP+DT                               
030177,000545: 33,2572           00365                           DEC      245        B-14                       #  DPS PQGS NO 1- OFF
030178,000546: 33,2573           00325                           DEC      213        B-14                       #  DPS PQGS NO 2- OFF
030179,000547: 33,2574           00144                           DEC      100        B-14                       
030180,000548: 
030181,000549: 33,2575           05073                           TC       2LMP+DT                               
030182,000550: 33,2576           00345                           DEC      229        B-14                       #  DPS PQGS ARM NO 1- DISABLE
030183,000551: 33,2577           00305                           DEC      197        B-14                       #  DPS PQGS ARM NO 2- DISABLE
030184,000552: 33,2600           02570                           DEC      1400       B-14                       #  DELAY 14 SECONDS
030185,000553: 
030186,000554: 33,2601           06067                           TC       FLAG1DWN                              #  TERMINATE AVEG AND DO AUTO AVETOMID
030187,000555: 33,2602           00041                           OCT      00041                                 #  ALSO KNOCK DOWN THE POOH FLAG
030188,000556: 
030189,000557: 33,2603           04161                           TC       PHASCHNG                              #  DEACTIVATE GROUP 2
030190,000558: 33,2604           00002                           OCT      00002                                 
030191,000559: 
030192,000560: 33,2605           15727                           TCF      TASKOVER                              
030193,000561: 
030194,000562:                                                                                                  #  ************************************************************************
030195,000563:                                                                                                  #  TIME INCREMENTS FOR WAITLISTS IN MP4 - XXXXXCEK = DEC XXXXX00 CS
030196,000564:                                                                                                  #  ************************************************************************         4
030197,000565: 33,2606           00310        002CEK             DEC      200        B-14                       

The two above lines were printed on top of each other. Luckily the first is all asterisks so it's easy to tell what should have happened.

030200,000568: 
030201,000569: 33,2607           00454        003CEK             DEC      300        B-14                       
030202,000570: 
030203,000571: 33,2610           00620        004CEK             DEC      400        B-14                       
030204,000572: 
030205,000573: 33,2611           00764        005CEK             DEC      500        B-14                       
030206,000574: 
030207,000575: 33,2612           01274        007CEK             DEC      700        B-14                       
030208,000576: 
030209,000577: 33,2613           04064        021CEK             DEC      2100       B-14                       
030210,000578: 
030211,000579: 33,2614           05670        030CEK             DEC      3000       B-14                       
030212,000580: 
030213,000581: 33,2615           00252        XTRANSON           OCT      00252                                 #  CHANNEL 5 CODE FOR 4-JET TRANSLATION
030214,000582: 

Page 707 The following four lines are printed on two. Luckily that puts one line of asterisks on both erroneous lines, making it not too difficult to tease them apart. They may not be completely perfect, though. It also looks like the lines of asterisks, which seem to be causing the problems, are accompanied by random 4s. The placement of them makes it seem like they were probably not in the original program, and are only appearing due to the printer errors.

030221,000589:                                                                                                  #  ************************************************************************                     4
030222,000590:                                                                                                  #  CONSTANTS FOR PRECOI CALCULATIONS AND FOR INITIALIZATION OF ASCENT EO.
030223,000591:                                                                                                  #  ************************************************************************
030224,000592: 33,2616           05037 17610  ABLOCK             2DEC     0.30893    E-3        B+9             #  ANTICIPATED INITIAL ACCELERATION M/CS/CS
030225,000593: 
030226,000594: 33,2620           07363 06315                     2DEC     0.2990     E+2        B-7             #  INITIAL EXHAUST VELOCITY  M/CS
030227,000595: 
030228,000596: 33,2622           27501 20000                     2DEC     0.9678     E+5        B-17            #  ESTIMATED BURNUP TIME IN CENTISECONDS
030229,000597: 
030230,000598: 33,2624           05202 10056  BBLOCK             2DEC     0.1642                                #  1/DV1
030231,000599: 
030232,000600: 33,2626           05202 10056                     2DEC     0.1642                                #  1/DV2
030233,000601: 
030234,000602: 33,2630           05202 10056                     2DEC     0.1642                                #  1/DV3
030235,000603: 
030236,000604: 33,2632           17146 14632  KREST              2DEC     0.4750                                #  LIMITS MAXIMUM PITCH TO 72 DEGREES
030237,000605: 
030238,000606: 33,2634           11773 02555  KR1EST             2DEC     0.3122                                
030239,000607: 
030240,000608: 33,2636           06065 00000  TGOEST             2DEC     25000      B-17                       
030241,000609: 
030242,000610: 33,2640           20000 00000  BODYVECT           2DEC     .5                                    
030243,000611: 
030244,000612: 33,2642           00000 00000  CBLOCK             2DEC     0          B-28                       #  RDOTD
030245,000613: 
030246,000614: 33,2644           00000 00000                     2DEC     0          B-28                       #  YDOTD
030247,000615: 

There's a physical page break after the following line, brought on by more printer errors. It appears as though a couple of lines are missing, but there's presently no way to regenerate them.

030251,000619:                                                                                                  #  ************************************************************************            4   4
030252,000620:                                                                                                  #  GENADRS, ECADRS, AND 2CADRS USED IN MP4
030253,000621:                                                                                                  #  ************************************************************************
030254,000622: 
030255,000623: 33,2646           02251        AVGENADR           GENADR   AVERAGEG                              
030256,000624: 
030257,000625: 33,2647  E4,1566                                  EBANK=   TDEC                                  
030258,000626: 33,2647           02540 66064  MP4TM1AD           2CADR    MP4TERM1                              
030259,000627: 
030260,000628: 33,2651  E4,1566                                  EBANK=   TDEC                                  
030261,000629: 33,2651           02324 60064  EXITADR            2CADR    SERVEXIT                              
030262,000630: 
030263,000631: 33,2653  E4,1400                                  EBANK=   AMEMORY                               
030264,000632: 33,2653           02341 16064  ORBINTAD           2CADR    MIDTOAVE                              
030265,000633: 
030266,000634: 33,2655  E5,1565                                  EBANK=   ETHROT                                
030267,000635: 33,2655           03466 60065  PCNTFMAD           2CADR    PCNTFMAX                              
030268,000636: 
030269,000637: 33,2657  E4,1566                                  EBANK=   TDEC                                  
030270,000638: 33,2657           03005 64064  ATMAG4             2CADR    ATMAG                                 
030271,000639: 
030272,000640: 33,2661           66333        KALC4AD            FCADR    PREKALC4                              
030273,000641: 

Page 708

030275,000643: 33,2662           60703        CDUJOBAD           FCADR    FINDCDUD                              
030276,000644: 
030277,000645:                                                                                                  #  ************************************************************************
030278,000646:                                                                                                  #  TASKSETR SUBROUTINE - SETS UP WAITLISTS REFERENCED TO VALUE OF TDEC
030279,000647:                                                                                                  #  ************************************************************************
030280,000648: 

An empty page follows, and instructions continue on the page after that.

030282,000650: 
030283,000651: 33,2663           00006        TASKSETR           EXTEND                                         
030284,000652: 33,2664           22061                           QXCH     ITEMP1                                
030285,000653: 33,2665           54001                           TS       L                                     
030286,000654: 33,2666           37767                           CAF      ZERO                                  
030287,000655: 33,2667           52145                           DXCH     MPAC                                  
030288,000656: 33,2670           52064                           DXCH     ITEMP3                                
030289,000657: 33,2671           37767                           CAF      ZERO                                  
030290,000658: 33,2672           56146                           XCH      MPAC       +2                         
030291,000659: 33,2673           54065                           TS       ITEMP5                                
030292,000660: 33,2674           00006                           EXTEND                                         
030293,000661: 33,2675           40025                           DCS      TIME2                                 
030294,000662: 33,2676           20145                           DAS      MPAC                                  
030295,000663: 33,2677           37751                           CAF      EBANK4                                
030296,000664: 33,2700           56003                           XCH      EBANK                                 
030297,000665: 33,2701           54062                           TS       ITEMP2                                
030298,000666: 33,2702           00006                           EXTEND                                         
030299,000667: 33,2703           31567                           DCA      TDEC                                  
030300,000668: 33,2704           20145                           DAS      MPAC                                  
030301,000669: 33,2705           07327                           TC       TPAGREE                               
030302,000670: 33,2706           30065                           CA       ITEMP5                                
030303,000671: 33,2707           54146                           TS       MPAC       +2                         
030304,000672: 33,2710           52064                           DXCH     ITEMP3                                
030305,000673: 33,2711           52145                           DXCH     MPAC                                  
030306,000674: 33,2712           00006                           EXTEND                                         
030307,000675: 33,2713           12716                           BZF      +3                                    
030308,000676: 33,2714           06000                           TC       ABORT                                 
030309,000677: 33,2715           00404                           OCT      00404                                 
030310,000678: 33,2716           56001                           XCH      L                                     
030311,000679: 33,2717           00006                           EXTEND                                         
030312,000680: 33,2720           62714                           BZMF     -4                                    
030313,000681: 33,2721           22062                           LXCH     ITEMP2                                
030314,000682: 33,2722           22003                           LXCH     EBANK                                 
030315,000683: 33,2723           00061                           TC       ITEMP1                                
030316,000684:                                                                                                  #  ************************************************************************              4

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