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.

029617,000002:                                                                                                  ## Copyright:   Public domain.
029618,000003:                                                                                                  ## Filename:    MP4-CONTINGENCY_ORBIT_INSERTION.agc
029619,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
029620,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
029621,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
029622,000007:                                                                                                  ## Assembler:   yaYUL
029623,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029624,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029625,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
029626,000011:                                                                                                  ##              2016-10-24 MAS  Transcribed.
029627,000012:                                                                                                  ##              2016-10-31 RSB  Typos.
029628,000013:                                                                                                  ##              2016-11-01 RSB  Correction for overprinted area (p. 707).
029629,000014:                                                                                                  ##              2016-11-06 MAS  Removed workaround for overprinted area.
029630,000015:                                                                                                  ##              2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
029631,000016:                                                                                                  ##                              changes made.
029632,000017: 

Page 696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

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

Page 702

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

Page 703

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

Page 704

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

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

030075,000460: 
030076,000461: 33,2473           32607                           CAF      003CEK                                
030077,000462: 33,2474           05663                           TC       WAITLIST                              
030078,000463: 33,2475  E4,1566                                  EBANK=   TDEC                                  
030079,000464: 33,2475           02506 66064                     2CADR    MP4IGN+3                              
030080,000465: 
030081,000466: 33,2477           04141                           TC       2PHSCHNG                              
030082,000467: 33,2500           00003                           OCT      00003                                 
030083,000468: 33,2501           47012                           OCT      47012                                 
030084,000469: 33,2502           00454                           DEC      300        B-14                       
030085,000470: 33,2503  E4,1566                                  EBANK=   TDEC                                  
030086,000471: 33,2503           02506 66064                     2CADR    MP4IGN+3                              
030087,000472: 
030088,000473: 33,2505           15567                           TCF      ENDOFJOB                              
030089,000474: 
030090,000475: 33,2506           05270        MP4IGN+3           TC       IBNKCALL                              #  +X TRANSLATION- OFF
030091,000476: 33,2507           40066                           CADR     NOULLAGE                              
030092,000477: 
030093,000478: 33,2510           05101                           TC       1LMP+DT                               

Page 705

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

Page 706

030147,000532: 33,2560           05270                           TC       IBNKCALL                              #  SET MAXIMUM DEADBAND
030148,000533: 33,2561           40054                           CADR     SETMAXDB                              
030149,000534: 
030150,000535: 33,2562           04161                           TC       PHASCHNG                              
030151,000536: 33,2563           47012                           OCT      47012                                 
030152,000537: 33,2564           01604                           DEC      900        B-14                       
030153,000538: 33,2565  E4,1566                                  EBANK=   TDEC                                  
030154,000539: 33,2565           02571 66064                     2CADR    TCO+15                                
030155,000540: 
030156,000541: 33,2567           05701                           TC       FIXDELAY                              
030157,000542: 33,2570           01604                           DEC      900        B-14                       #  DELAY NINE SECONDS
030158,000543: 
030159,000544: 33,2571           05073        TCO+15             TC       2LMP+DT                               
030160,000545: 33,2572           00365                           DEC      245        B-14                       #  DPS PQGS NO 1- OFF
030161,000546: 33,2573           00325                           DEC      213        B-14                       #  DPS PQGS NO 2- OFF
030162,000547: 33,2574           00144                           DEC      100        B-14                       
030163,000548: 
030164,000549: 33,2575           05073                           TC       2LMP+DT                               
030165,000550: 33,2576           00345                           DEC      229        B-14                       #  DPS PQGS ARM NO 1- DISABLE
030166,000551: 33,2577           00305                           DEC      197        B-14                       #  DPS PQGS ARM NO 2- DISABLE
030167,000552: 33,2600           02570                           DEC      1400       B-14                       #  DELAY 14 SECONDS
030168,000553: 
030169,000554: 33,2601           06067                           TC       FLAG1DWN                              #  TERMINATE AVEG AND DO AUTO AVETOMID
030170,000555: 33,2602           00041                           OCT      00041                                 #  ALSO KNOCK DOWN THE POOH FLAG
030171,000556: 
030172,000557: 33,2603           04161                           TC       PHASCHNG                              #  DEACTIVATE GROUP 2
030173,000558: 33,2604           00002                           OCT      00002                                 
030174,000559: 
030175,000560: 33,2605           15727                           TCF      TASKOVER                              
030176,000561: 
030177,000562:                                                                                                  #  ************************************************************************
030178,000563:                                                                                                  #  TIME INCREMENTS FOR WAITLISTS IN MP4 - XXXXXCEK = DEC XXXXX00 CS
030179,000564:                                                                                                  #  ************************************************************************         4
030180,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.

030183,000568: 
030184,000569: 33,2607           00454        003CEK             DEC      300        B-14                       
030185,000570: 
030186,000571: 33,2610           00620        004CEK             DEC      400        B-14                       
030187,000572: 
030188,000573: 33,2611           00764        005CEK             DEC      500        B-14                       
030189,000574: 
030190,000575: 33,2612           01274        007CEK             DEC      700        B-14                       
030191,000576: 
030192,000577: 33,2613           04064        021CEK             DEC      2100       B-14                       
030193,000578: 
030194,000579: 33,2614           05670        030CEK             DEC      3000       B-14                       
030195,000580: 
030196,000581: 33,2615           00252        XTRANSON           OCT      00252                                 #  CHANNEL 5 CODE FOR 4-JET TRANSLATION
030197,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.

030204,000589:                                                                                                  #  ************************************************************************                     4
030205,000590:                                                                                                  #  CONSTANTS FOR PRECOI CALCULATIONS AND FOR INITIALIZATION OF ASCENT EO.
030206,000591:                                                                                                  #  ************************************************************************
030207,000592: 33,2616           05037 17610  ABLOCK             2DEC     0.30893    E-3        B+9             #  ANTICIPATED INITIAL ACCELERATION M/CS/CS
030208,000593: 
030209,000594: 33,2620           07363 06315                     2DEC     0.2990     E+2        B-7             #  INITIAL EXHAUST VELOCITY  M/CS
030210,000595: 
030211,000596: 33,2622           27501 20000                     2DEC     0.9678     E+5        B-17            #  ESTIMATED BURNUP TIME IN CENTISECONDS
030212,000597: 
030213,000598: 33,2624           05202 10056  BBLOCK             2DEC     0.1642                                #  1/DV1
030214,000599: 
030215,000600: 33,2626           05202 10056                     2DEC     0.1642                                #  1/DV2
030216,000601: 
030217,000602: 33,2630           05202 10056                     2DEC     0.1642                                #  1/DV3
030218,000603: 
030219,000604: 33,2632           17146 14632  KREST              2DEC     0.4750                                #  LIMITS MAXIMUM PITCH TO 72 DEGREES
030220,000605: 
030221,000606: 33,2634           11773 02555  KR1EST             2DEC     0.3122                                
030222,000607: 
030223,000608: 33,2636           06065 00000  TGOEST             2DEC     25000      B-17                       
030224,000609: 
030225,000610: 33,2640           20000 00000  BODYVECT           2DEC     .5                                    
030226,000611: 
030227,000612: 33,2642           00000 00000  CBLOCK             2DEC     0          B-28                       #  RDOTD
030228,000613: 
030229,000614: 33,2644           00000 00000                     2DEC     0          B-28                       #  YDOTD
030230,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.

030234,000619:                                                                                                  #  ************************************************************************            4   4
030235,000620:                                                                                                  #  GENADRS, ECADRS, AND 2CADRS USED IN MP4
030236,000621:                                                                                                  #  ************************************************************************
030237,000622: 
030238,000623: 33,2646           02251        AVGENADR           GENADR   AVERAGEG                              
030239,000624: 
030240,000625: 33,2647  E4,1566                                  EBANK=   TDEC                                  
030241,000626: 33,2647           02540 66064  MP4TM1AD           2CADR    MP4TERM1                              
030242,000627: 
030243,000628: 33,2651  E4,1566                                  EBANK=   TDEC                                  
030244,000629: 33,2651           02324 60064  EXITADR            2CADR    SERVEXIT                              
030245,000630: 
030246,000631: 33,2653  E4,1400                                  EBANK=   AMEMORY                               
030247,000632: 33,2653           02341 16064  ORBINTAD           2CADR    MIDTOAVE                              
030248,000633: 
030249,000634: 33,2655  E5,1565                                  EBANK=   ETHROT                                
030250,000635: 33,2655           03466 60065  PCNTFMAD           2CADR    PCNTFMAX                              
030251,000636: 
030252,000637: 33,2657  E4,1566                                  EBANK=   TDEC                                  
030253,000638: 33,2657           03005 64064  ATMAG4             2CADR    ATMAG                                 
030254,000639: 
030255,000640: 33,2661           66333        KALC4AD            FCADR    PREKALC4                              
030256,000641: 

Page 708

030258,000643: 33,2662           60703        CDUJOBAD           FCADR    FINDCDUD                              
030259,000644: 
030260,000645:                                                                                                  #  ************************************************************************
030261,000646:                                                                                                  #  TASKSETR SUBROUTINE - SETS UP WAITLISTS REFERENCED TO VALUE OF TDEC
030262,000647:                                                                                                  #  ************************************************************************
030263,000648: 

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

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

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