Source Code

These source-code files are part of a reconstructed copy of Luminary 69/2, the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction is based on the source code of Luminary 69 — i.e., the initial, unflown version, "revision 0" — of which a contemporary listing was available. The code was then updated by incorporating the differences between Luminary 69 and Luminary 69/2, known from other contemporary documentation. The only such difference is the implementation in Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available. Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to executable form and verifying that its memory banks had the correct checksums, known from still other contemporary documentation.

Note that page numbers in the reconstructed code match those in the original Luminary 69 program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers would certainly differ somewhat in a contemporary Luminary 69/2 listing. Moreover, annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change in Luminary 69/2 relative to Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

036404,000002:                                                                                                  ## Copyright:   Public domain.
036405,000003:                                                                                                  ## Filename:    P70-P71.agc
036406,000004:                                                                                                  ## Purpose:     A section of LUM69 revision 2.
036407,000005:                                                                                                  ##              It is part of the reconstructed source code for the flown
036408,000006:                                                                                                  ##              version of the flight software for the Lunar Module's (LM)
036409,000007:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 10. The code has
036410,000008:                                                                                                  ##              been recreated from a copy of Luminary revsion 069, using
036411,000009:                                                                                                  ##              changes present in Luminary 099 which were described in
036412,000010:                                                                                                  ##              Luminary memos 75 and 78. The code has been adapted such
036413,000011:                                                                                                  ##              that the resulting bugger words exactly match those specified
036414,000012:                                                                                                  ##              for LUM69 revision 2 in NASA drawing 2021152B, which gives
036415,000013:                                                                                                  ##              relatively high confidence that the reconstruction is correct.
036416,000014:                                                                                                  ## Reference:   pp. 829-838
036417,000015:                                                                                                  ## Assembler:   yaYUL
036418,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036419,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036420,000018:                                                                                                  ## Mod history: 2019-07-27 MAS  Created from Luminary 69.
036421,000019: 

Page 829

036423,000021: 21,2102                                           BANK     21                                    
036424,000022: 21,2000                                           SETLOC   R11                                   
036425,000023: 21,2000                                           BANK                                           
036426,000024: 
036427,000025: 21,2102  E7,1513                                  EBANK=   DVCNTR                                
036428,000026: 21,2102                                           COUNT*   $$/R11                                
036429,000027: 
036430,000028: 21,2102           40103        R10,R11            CS       FLAGWRD7                              #  IS SERVICER STILL RUNNING?
036431,000029: 21,2103           74747                           MASK     AVEGFBIT                              
036432,000030: 21,2104           10000                           CCS      A                                     
036433,000031: 21,2105           15261                           TCF      TASKOVER                              #  LET AVGEND TAKE CARE OF GROUP 2.
036434,000032: 21,2106           11056                           CCS      PIPCTR                                
036435,000033: 21,2107           12111                           TCF      +2                                    
036436,000034: 21,2110           12314                           TCF      LRHTASK                               #  LAST PASS. CALL LRHTASK.
036437,000035: 21,2111           55712                 +2        TS       PIPCTR1                               
036438,000036: 
036439,000037: 21,2112  E7,1712               PIPCTR1            =        LADQSAVE                              
036440,000038: 21,2112     1056               PIPCTR             =        PHSPRDT2                              
036441,000039: 21,2112           36010                           CAF      OCT31                                 
036442,000040: 21,2113           05173                           TC       TWIDDLE                               
036443,000041: 21,2114           02102                           ADRES    R10,R11                               
036444,000042: 21,2115           41303        R10,R11A           CS       IMODES33                              #  IF LAMP TEST, DO NOT CHANGE LR LITES.
036445,000043: 21,2116           74753                           MASK     BIT1                                  
036446,000044: 21,2117           00006                           EXTEND                                         
036447,000045: 21,2120           12136                           BZF      10,11                                 
036448,000046: 
036449,000047: 21,2121           70107        FLASHH?            MASK     FLGWRD11                              #  C(A) = 1 = HFLASH BIT
036450,000048: 21,2122           00006                           EXTEND                                         
036451,000049: 21,2123           12127                           BZF      FLASHV?                               #  H FLASH OFF, SO LEAVE ALONE
036452,000050: 
036453,000051: 21,2124           34747                           CA       HLITE                                 
036454,000052: 21,2125           54001                           TS       L                                     
036455,000053: 21,2126           04606                           TC       FLIP                                  #  FLIP H LITE
036456,000054: 
036457,000055: 21,2127           34752        FLASHV?            CA       VFLSHBIT                              #  VFLASHBIT MUST BE BIT 2.
036458,000056: 21,2130           70107                           MASK     FLGWRD11                              
036459,000057: 21,2131           00006                           EXTEND                                         
036460,000058: 21,2132           12136                           BZF      10,11                                 #  V FLASH OFF
036461,000059: 
036462,000060: 21,2133           34751                           CA       VLITE                                 
036463,000061: 21,2134           54001                           TS       L                                     
036464,000062: 21,2135           04606                           TC       FLIP                                  #  FLIP V LITE
036465,000063: 
036466,000064: 21,2136           30105        10,11              CA       FLAGWRD9                              #  IS THE LETABORT FLAG SET ?
036467,000065: 21,2137           74743                           MASK     LETABBIT                              
036468,000066: 21,2140           00006                           EXTEND                                         
036469,000067: 21,2141           12340                           BZF      LANDISP                               #  NO. PROCEED TO R10.
036470,000068: 
036471,000069: 21,2142           41011        P71NOW?            CS       MODREG                                #  YES.  ARE WE IN P71 NOW?

Page 830

036473,000071: 21,2143           62272                           AD       MODE71                                
036474,000072: 21,2144           00006                           EXTEND                                         
036475,000073: 21,2145           12340                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
036476,000074: 
036477,000075: 21,2146           00006                           EXTEND                                         #  NO.  IS AN ABORT STAGE COMMANDED?
036478,000076: 21,2147           00030                           READ     CHAN30                                
036479,000077: 21,2150           40000                           COM                                            
036480,000078: 21,2151           54001                           TS       L                                     
036481,000079: 21,2152           74750                           MASK     BIT4                                  
036482,000080: 21,2153           10000                           CCS      A                                     
036483,000081: 21,2154           12172                           TCF      P71A                                  #  YES.
036484,000082: 
036485,000083: 21,2155           41011        P70NOW?            CS       MODREG                                #  NO. ARE WE IN P70 NOW?
036486,000084: 21,2156           62270                           AD       MODE70                                
036487,000085: 21,2157           00006                           EXTEND                                         
036488,000086: 21,2160           12340                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
036489,000087: 
036490,000088: 21,2161           30001                           CA       L                                     #  NO.  IS AN ABORT COMMANDED?
036491,000089: 21,2162           74753                           MASK     BIT1                                  
036492,000090: 21,2163           10000                           CCS      A                                     
036493,000091: 21,2164           12167                           TCF      P70A                                  #  YES.
036494,000092: 21,2165           12340                           TCF      LANDISP                               #  NO.  PROCEED TO R10.
036495,000093: 
036496,000094: 21,2166                                           COUNT*   $$/P70                                
036497,000095: 
036498,000096: 21,2166           02274        P70                TC       LEGAL?                                
036499,000097: 21,2167           44755        P70A               CS       ZERO                                  
036500,000098: 21,2170           12173                           TCF      +3                                    
036501,000099: 21,2171           02274        P71                TC       LEGAL?                                
036502,000100: 21,2172           34752        P71A               CAF      TWO                                   
036503,000101: 21,2173           54002                 +3        TS       Q                                     
036504,000102: 21,2174           00004                           INHINT                                         
036505,000103: 21,2175           32200                           CAF      ABRTJADR                              
036506,000104: 21,2176           54017                           TS       BRUPT                                 
036507,000105: 21,2177           50017                           RESUME                                         
036508,000106: 
036509,000107: 21,2200           12201        ABRTJADR           TCF      ABRTJASK                              
036510,000108: 
036511,000109: 21,2201           32271        ABRTJASK           CAF      OCTAL27                               
036512,000110: 21,2202           60002                           AD       Q                                     
036513,000111: 21,2203           54001                           TS       L                                     
036514,000112: 21,2204           40000                           COM                                            
036515,000113: 21,2205           52761                           DXCH     -PHASE4                               
036516,000114: 21,2206           50002                           INDEX    Q                                     
036517,000115: 21,2207           32270                           CAF      MODE70                                
036518,000116: 21,2210           55011                           TS       MODREG                                
036519,000117: 
036520,000118: 21,2211           55163                           TS       DISPDEX                               #  INSURE DISPDEX IS POSITIVE.
036521,000119: 
036522,000120: 21,2212           10002                           CCS      Q                                     #  SET APSFLAG IF P71.

Page 831

036524,000122: 21,2213           40106                           CS       FLGWRD10                              #  SET APSFLAG PRIOR TO THE ENEMA.
036525,000123: 21,2214           74737                           MASK     APSFLBIT                              
036526,000124: 21,2215           26106                           ADS      FLGWRD10                              
036527,000125: 21,2216           42273                           CS       DAPBITS                               #  DAPBITS = OCT 640 = BITS 6, 8, 9
036528,000126: 21,2217           70111                           MASK     DAPBOOLS                              #  (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
036529,000127: 21,2220           54111                           TS       DAPBOOLS                              
036530,000128: 
036531,000129: 21,2221           40101                           CS       FLAGWRD5                              #  SET ENGONFLG.
036532,000130: 21,2222           74745                           MASK     ENGONBIT                              
036533,000131: 21,2223           26101                           ADS      FLAGWRD5                              
036534,000132: 
036535,000133: 21,2224           44355                           CS       PRIO30                                #  INSURE THAT THE ENGINE IS ON, IF ARMED.
036536,000134: 21,2225           00006                           EXTEND                                         
036537,000135: 21,2226           02011                           RAND     DSALMOUT                              
036538,000136: 21,2227           64737                           AD       BIT13                                 
036539,000137: 21,2230           00006                           EXTEND                                         
036540,000138: 21,2231           01011                           WRITE    DSALMOUT                              
036541,000139: 
036542,000140: 21,2232           34735                           CAF      LRBYBIT                               #  TERMINATE R12.
036543,000141: 21,2233           54107                           TS       FLGWRD11                              
036544,000142: 
036545,000143: 21,2234           40074                           CS       FLAGWRD0                              #  SET R10FLAG TO SUPPRESS OUTPUTS TO THE
036546,000144: 21,2235           74752                           MASK     R10FLBIT                              #  CROSS-POINTER DISPLAY.
036547,000145: 21,2236           26074                           ADS      FLAGWRD0                              #  THE FOLLOWING ENEMA WILL REMOVE THE
036548,000146:                                                                                                  #  DISPLAY INERTIAL DATA OUTBIT AND
036549,000147:                                                                                                  #  DISABLE THE RR ERROR CTRS FOR US.
036550,000148: 
036551,000149: 21,2237           00006                           EXTEND                                         #  LOAD TEVENT FOR THE DOWNLINK.
036552,000150: 21,2240           30025                           DCA      TIME2                                 
036553,000151: 21,2241           53345                           DXCH     TEVENT                                
036554,000152: 
036555,000153: 21,2242           00006                           EXTEND                                         
036556,000154: 21,2243           32267                           DCA      SVEXITAD                              
036557,000155: 21,2244           53253                           DXCH     AVGEXIT                               
036558,000156: 
036559,000157: 21,2245           00006                           EXTEND                                         
036560,000158: 21,2246           34755                           DCA      NEG0                                  
036561,000159: 21,2247           52753                           DXCH     -PHASE1                               
036562,000160: 
036563,000161: 21,2250           00006                           EXTEND                                         
036564,000162: 21,2251           34755                           DCA      NEG0                                  
036565,000163: 21,2252           52757                           DXCH     -PHASE3                               
036566,000164: 
036567,000165: 21,2253           00006                           EXTEND                                         
036568,000166: 21,2254           34755                           DCA      NEG0                                  
036569,000167: 21,2255           52765                           DXCH     -PHASE6                               
036570,000168: 
036571,000169: 21,2256           36244                           CAF      THREE                                 #  SET UP 4.3SPOT FOR GOABORT
036572,000170: 21,2257           54001                           TS       L                                     
036573,000171: 21,2260           40000                           COM                                            

Page 832

036575,000173: 21,2261           52761                           DXCH     -PHASE4                               
036576,000174: 
036577,000175: 21,2262           37727                           CAF      OCT37774                              #  SET T5RUPT TO CALL DAPIDLER IN        
036578,000176: 21,2263           54030                           TS       TIME5                                 #  40 MILLISECONDS.
036579,000177: 
036580,000178: 21,2264           04635                           TC       POSTJUMP                              
036581,000179: 21,2265           12766                           CADR     ENEMA                                 
036582,000180: 
036583,000181: 21,2266  E7,1513                                  EBANK=   DVCNTR                                
036584,000182: 21,2266           03525 76067  SVEXITAD           2CADR    SERVEXIT                              
036585,000183: 
036586,000184: 21,2270           00106        MODE70             DEC      70         B-14                       
036587,000185: 21,2271           00027        OCTAL27            OCT      27                                    
036588,000186: 21,2272           00107        MODE71             DEC      71         B-14                       
036589,000187: 
036590,000188: 21,2273           00640        DAPBITS            OCT      00640                                 
036591,000189: 
036592,000190: 32,3257                                           BANK     32                                    
036593,000191: 32,2000                                           SETLOC   ABORTS                                
036594,000192: 32,2000                                           BANK                                           
036595,000193: 
036596,000194: 32,3257                                           COUNT*   $$/P70                                
036597,000195: 
036598,000196: 32,3257           06036        GOABORT            TC       INTPRET                               
036599,000197: 32,3260           77624                           CALL                                           
036600,000198: 32,3261           61055                                    INITCDUW                              
036601,000199: 32,3262           77776                           EXIT                                           
036602,000200: 32,3263           34751                           CAF      FOUR                                  
036603,000201: 32,3264           55513                           TS       DVCNTR                                
036604,000202: 
036605,000203: 32,3265           33607                           CAF      WHICHADR                              
036606,000204: 32,3266           55453                           TS       WHICH                                 
036607,000205: 
036608,000206: 32,3267           05516                           TC       DOWNFLAG                              
036609,000207: 32,3270           00214                           ADRES    FLRCS                                 
036610,000208: 
036611,000209: 32,3271           05516                           TC       DOWNFLAG                              
036612,000210: 32,3272           00175                           ADRES    FLUNDISP                              
036613,000211: 
036614,000212: 32,3273           05516                           TC       DOWNFLAG                              
036615,000213: 32,3274           00161                           ADRES    IDLEFLAG                              
036616,000214: 
036617,000215: 32,3275           05504                           TC       UPFLAG                                #  INSURE 4-JET TRANSLATION CAPABILITY.
036618,000216: 32,3276           00307                           ADRES    ACC4-2FL                              
036619,000217: 
036620,000218: 32,3277           05321                           TC       CHECKMM                               
036621,000219: 32,3300           00106        70DEC              DEC      70         B-14                       
036622,000220: 32,3301           13525                           TCF      P71RET                                
036623,000221: 
036624,000222: 32,3302           06036        P70INIT            TC       INTPRET                               

Page 833

036626,000224: 32,3303           77624                           CALL                                           
036627,000225: 32,3304           65555                                    TGOCOMP                               
036628,000226: 32,3305           54345                           DLOAD    SL                                    
036629,000227: 32,3306           34003                                    MDOTDPS                               
036630,000228: 32,3307           20205                                    4D                                    
036631,000229: 32,3310           77665                           BDDV                                           
036632,000230: 32,3311           01245                                    MASS                                  
036633,000231: 32,3312           16265                           STODL    TBUP                                  
036634,000232: 32,3313           01245                                    MASS                                  
036635,000233: 32,3314           70471                           DDV      SR1                                   
036636,000234: 32,3315           24003                                    K(1/DV)                               
036637,000235: 32,3316           03633                           STORE    1/DV1                                 
036638,000236: 32,3317           03635                           STORE    1/DV2                                 
036639,000237: 32,3320           03637                           STORE    1/DV3                                 
036640,000238: 32,3321           77665                           BDDV                                           
036641,000239: 32,3322           25606                                    K(AT)                                 
036642,000240: 32,3323           16257                           STODL    AT                                    
036643,000241: 32,3324           34005                                    DTDECAY                               
036644,000242: 32,3325           54276                           DCOMP    SL                                    
036645,000243: 32,3326           20214                                    11D                                   
036646,000244: 32,3327           02263                           STORE    TTO                                   
036647,000245: 32,3330           57535                           SLOAD    DCOMP                                 
036648,000246: 32,3331           26002                                    DPSVEX                                
036649,000247: 32,3332           77702                           SR2                                            
036650,000248: 32,3333           02261                           STORE    VE                                    #  INITIALIZE DPS EXHAUST VELOCITY
036651,000249: 32,3334           45014                           SET      CALL                                  
036652,000250: 32,3335           04467                                    FLAP                                  
036653,000251: 32,3336           60230                                    COMMINIT                              
036654,000252: 32,3337           77650        INJTARG            GOTO                                           #  *** BYPASS ZONE 0 ***
036655,000253: 32,3340           65371                                    UPTHROT                               #  *** BYPASS ZONE 0 ***
036656,000254:                                                                                                  #                DLOAD   DSU
036657,000255:                                                                                                  #                        TGO
036658,000256:                                                                                                  #                        50SECS
036659,000257:                                                                                                  #                BPL     EXIT
036660,000258:                                                                                                  #                        UPTHROT
036661,000259: 
036662,000260: 32,3341           05321                           TC       CHECKMM                               
036663,000261: 32,3342           00106                           DEC      70         B-14                       
036664,000262: 32,3343           33572                           CAF      DEC299                                #  P71.  DELAY 3 SECONDS.
036665,000263: 32,3344           64753                           AD       BIT1                                  #  P70.  DELAY 1 CENTISECOND.
036666,000264: 32,3345           55644                           TS       ENGOFFDT                              
036667,000265: 32,3346           05173                           TC       TWIDDLE                               
036668,000266: 32,3347           03356                           ADRES    ZONEZERO                              
036669,000267: 
036670,000268: 32,3350           05353                           TC       PHASCHNG                              
036671,000269: 32,3351           47014                           OCT      47014                                 
036672,000270: 32,3352           76133                           -GENADR  ENGOFFDT                              
036673,000271: 32,3353  E7,1513                                  EBANK=   DVCNTR                                
036674,000272: 32,3353           03356 64067                     2CADR    ZONEZERO                              

Page 834

036676,000274: 32,3355           15155                           TCF      ENDOFJOB                              
036677,000275: 
036678,000276: 32,3356           04674        ZONEZERO           TC       IBNKCALL                              
036679,000277: 32,3357           75551                           CADR     ENGINOF2                              
036680,000278: 
036681,000279: 32,3360           33407                           CAF      ZERETAD                               
036682,000280: 32,3361           55260                           TS       OUTROUTE                              
036683,000281: 
036684,000282: 32,3362           05516                           TC       DOWNFLAG                              
036685,000283: 32,3363           00163                           ADRES    AVEGFLAG                              
036686,000284: 
036687,000285: 32,3364           05516                           TC       DOWNFLAG                              
036688,000286: 32,3365           00162                           ADRES    V37FLAG                               
036689,000287: 
036690,000288: 32,3366           05353                           TC       PHASCHNG                              
036691,000289: 32,3367           00004                           OCT      00004                                 
036692,000290: 
036693,000291: 32,3370           15261                           TCF      TASKOVER                              
036694,000292: 
036695,000293: 32,3371           77414        UPTHROT            SET      EXIT                                  
036696,000294: 32,3372           04461                                    FLVR                                  
036697,000295: 
036698,000296: 32,3373           03564                           TC       THROTUP                               
036699,000297: 
036700,000298: 32,3374           05353                           TC       PHASCHNG                              
036701,000299: 32,3375           04024                           OCT      04024                                 
036702,000300: 
036703,000301: 32,3376           04616                 -3        TC       BANKCALL                              #  VERIFY THAT THE PANEL SWITCHES 
036704,000302: 32,3377           73707                           CADR     P40AUTO                               #  ARE PROPERLY SET.
036705,000303: 
036706,000304: 32,3400           03564                           TC       THROTUP                               
036707,000305: 
036708,000306: 32,3401           00006        UPTHROT1           EXTEND                                         #  SET SERVICER TO CALL ASCENT GUIDANCE.
036709,000307: 32,3402           33611                           DCA      ATMAGAD                               
036710,000308: 32,3403           53253                           DXCH     AVGEXIT                               
036711,000309: 
036712,000310: 32,3404           05353        GRP4OFF            TC       PHASCHNG                              #  TERMINATE USE OF GROUP 4.
036713,000311: 32,3405           00004                           OCT      00004                                 
036714,000312: 
036715,000313: 32,3406           15155                           TCF      ENDOFJOB                              
036716,000314: 
036717,000315: 32,3407           65410        ZERETAD            CADR     ZONE0RET                              
036718,000316: 32,3410           05327        ZONE0RET           TC       2PHSCHNG                              
036719,000317: 32,3411           00002                           OCT      00002                                 
036720,000318: 32,3412           05024                           OCT      05024                                 
036721,000319: 32,3413           25000                           OCT      25000                                 
036722,000320: 
036723,000321: 32,3414           06036                           TC       INTPRET                               
036724,000322: 32,3415           43234                           RTB      DAD                                   

Page 835

036726,000324: 32,3416           21462                                    LOADTIME                              
036727,000325: 32,3417           25576                                    90SEC                                 
036728,000326: 32,3420           03557                           STORE    PIPTIME1                              #  STORE TEMPORARILY IN PIPTIME1.
036729,000327: 32,3421           34041                           STCALL   TDEC1                                 
036730,000328: 32,3422           27057                                    LEMPREC                               
036731,000329: 32,3423           77775                           VLOAD                                          
036732,000330: 32,3424           00007                                    VATT                                  
036733,000331: 32,3425           03551                           STORE    VN1                                   #  STORE VTIG TEMPORARILY IN VN1.
036734,000332: 32,3426           76521                           MXV      VSL1                                  
036735,000333: 32,3427           01734                                    REFSMMAT                              
036736,000334: 32,3430           27525                           STOVL    V                                     
036737,000335: 32,3431           00001                                    RATT                                  
036738,000336: 32,3432           03543                           STORE    RN1                                   #  STORE RTIG TEMPORARILY IN RN1.
036739,000337: 32,3433           52521                           MXV      VSL6                                  
036740,000338: 32,3434           01734                                    REFSMMAT                              
036741,000339: 32,3435           37517                           STCALL   R                                     
036742,000340: 32,3436           67162                                    MUNGRAV                               
036743,000341: 32,3437           45014                           SET      CALL                                  
036744,000342: 32,3440           04471                                    FLZONE0                               
036745,000343: 32,3441           60313                                    ASCENT                                
036746,000344: 32,3442           77776        PREBRET1           EXIT                                           
036747,000345: 32,3443           05353                           TC       PHASCHNG                              
036748,000346: 32,3444           04024                           OCT      04024                                 
036749,000347: 32,3445           06036                           TC       INTPRET                               
036750,000348: 32,3446           77214                           CLEAR    VLOAD                                 
036751,000349: 32,3447           04671                                    FLZONE0                               
036752,000350: 32,3450           03646                                    VGVECT                                
036753,000351: 32,3451           76505                           VXM      VSL1                                  
036754,000352: 32,3452           01734                                    REFSMMAT                              
036755,000353: 32,3453           03654                           STORE    DELVSIN                               
036756,000354: 32,3454           77646                           ABVAL                                          
036757,000355: 32,3455           27662                           STOVL    DELVSAB                               
036758,000356: 32,3456           03543                                    RN1                                   
036759,000357: 32,3457           27640                           STOVL    RTIG                                  
036760,000358: 32,3460           03551                                    VN1                                   
036761,000359: 32,3461           17646                           STODL    VTIG                                  
036762,000360: 32,3462           03557                                    PIPTIME1                              
036763,000361: 32,3463           03440                           STORE    TIG                                   
036764,000362: 32,3464           43014                           SET      CLEAR                                 
036765,000363: 32,3465           01067                                    XDELVFLG                              
036766,000364: 32,3466           04666                                    LETABORT                              
036767,000365: 32,3467           77776                           EXIT                                           
036768,000366: 
036769,000367: 32,3470           36241                           CAF      SIX                                   #  SET UP R60 FOR A 10 DEG/SEC MANUV. RATE.
036770,000368: 32,3471           55325                           TS       RATEINDX                              
036771,000369: 
036772,000370: 32,3472           35023                           CAF      PRIO13                                #  REDUCE PRIORITY TO LEVEL EXPECTED BY
036773,000371: 32,3473           05146                           TC       PRIOCHNG                              #  P40 AND P42.
036774,000372: 32,3474           33612                           CAF      ORBMANAD                              #  INITIALIZE FOR ORBITAL MANEUVERS LIST.
036775,000373: 32,3475           54332                           TS       DNLSTCOD                              

Page 836

036777,000375: 32,3476           55324                           TS       AGSWORD                               
036778,000376: 
036779,000377: 32,3477           05321                           TC       CHECKMM                               
036780,000378: 32,3500           00106                           DEC      70         B-14                       #  FOR MODE=70,USE P40,OTHERWISE P42
036781,000379: 32,3501           13515                           TCF      42SET                                 
036782,000380: 32,3502           33521        40SET              CAF      P40CADR                               
036783,000381: 32,3503           55566                           TS       CADRSAVE                              
036784,000382: 32,3504           33523                           CAF      DEC40                                 
036785,000383: 32,3505           55567        COMMSET            TS       MMSAVE                                
036786,000384: 32,3506           05353                           TC       PHASCHNG                              
036787,000385: 32,3507           05024                           OCT      05024                                 
036788,000386: 32,3510           13000                           OCT      13000                                 
036789,000387: 
036790,000388: 32,3511           31567                           CA       MMSAVE                                
036791,000389: 32,3512           05314                           TC       NEWMODEA                              
036792,000390: 
036793,000391: 32,3513           31566                           CA       CADRSAVE                              
036794,000392: 32,3514           04640                           TC       BANKJUMP                              
036795,000393: 32,3515           33522        42SET              CAF      P42CADR                               
036796,000394: 32,3516           55566                           TS       CADRSAVE                              
036797,000395: 32,3517           33524                           CAF      DEC42                                 
036798,000396: 32,3520           13505                           TCF      COMMSET                               
036799,000397: 
036800,000398: 32,3521           75147        P40CADR            CADR     P40LM                                 
036801,000399: 32,3522           75410        P42CADR            CADR     P42LM                                 
036802,000400: 32,3523  E7,1566               CADRSAVE           =        MASS1                                 
036803,000401: 32,3523  E7,1567               MMSAVE             =        MASS1      +1                         
036804,000402: 32,3523           00050        DEC40              DEC      40         B-14                       
036805,000403: 32,3524           00052        DEC42              DEC      42         B-14                       
036806,000404: 
036807,000405: 32,3525           05516        P71RET             TC       DOWNFLAG                              
036808,000406: 32,3526           00215                           ADRES    LETABORT                              
036809,000407: 
036810,000408: 32,3527           36000                           CAF      THRESH2                               #  SET DVMON THRESHOLD TO THE ASCENT VALUE.
036811,000409: 32,3530           55251                           TS       DVTHRUSH                              
036812,000410: 
036813,000411: 32,3531           06036                           TC       INTPRET                               
036814,000412: 32,3532           45014                           BON      CALL                                  
036815,000413: 32,3533           04707                                    FLAP                                  
036816,000414: 32,3534           65542                                    OLDTIME                               
036817,000415: 32,3535           65555                                    TGOCOMP                               #  IF FLAP=0, TGO=T-TIG
036818,000416: 32,3536           52131                           SSP      GOTO                                  
036819,000417: 32,3537           00053                                    QPRET                                 
036820,000418: 32,3540           65337                           CADR     INJTARG                               
036821,000419: 32,3541           60204                                    P12INIT                               #  WILL EXIT P12INIT TO INJTARG
036822,000420: 32,3542           72545        OLDTIME            DLOAD    SL1                                   #  IF FLAP=1,TGO=2 TGO
036823,000421: 32,3543           03515                                    TGO                                   
036824,000422: 32,3544           37643                           STCALL   TGO1                                  
036825,000423: 32,3545           60204                                    P12INIT                               

Page 837

036827,000425: 32,3546           77776                           EXIT                                           
036828,000426: 32,3547           05353                           TC       PHASCHNG                              
036829,000427: 32,3550           04024                           OCT      04024                                 
036830,000428: 
036831,000429: 32,3551           00006                           EXTEND                                         
036832,000430: 32,3552           31643                           DCA      TGO1                                  
036833,000431: 32,3553           53515                           DXCH     TGO                                   
036834,000432: 32,3554           13376                           TCF      UPTHROT1   -3                         
036835,000433: 
036836,000434: 32,3555  E7,1642               TGO1               =        APO                                   
036837,000435:                                                                                                  #  ************************************************************************
036838,000436: 
036839,000437: 21,2274                                           BANK     21                                    
036840,000438: 21,2000                                           SETLOC   R11                                   
036841,000439: 21,2000                                           BANK                                           
036842,000440: 
036843,000441: 21,2274                                           COUNT*   $$/P70                                
036844,000442: 
036845,000443: 21,2274           40775        LEGAL?             CS       MMNUMBER                              #  IS THE DESIRED PGM ALREADY IN PROGRESS?
036846,000444: 21,2275           61011                           AD       MODREG                                
036847,000445: 21,2276           00006                           EXTEND                                         
036848,000446: 21,2277           12310                           BZF      ABORTALM                              
036849,000447: 
036850,000448: 21,2300           40105                           CS       FLAGWRD9                              #  ARE THE ABORTS ENABLED?
036851,000449: 21,2301           74743                           MASK     LETABBIT                              
036852,000450: 21,2302           10000                           CCS      A                                     
036853,000451: 21,2303           12310                           TCF      ABORTALM                              
036854,000452: 
036855,000453: 21,2304           30103                           CA       FLAGWRD7                              #  IS SERVICER ON THE AIR?
036856,000454: 21,2305           74747                           MASK     AVEGFBIT                              
036857,000455: 21,2306           10000                           CCS      A                                     
036858,000456: 21,2307           00002                           TC       Q                                     #  YES. ALL IS WELL.
036859,000457: 21,2310           04364        ABORTALM           TC       FALTON                                
036860,000458: 21,2311           04457                           TC       RELDSP                                
036861,000459: 21,2312           04635                           TC       POSTJUMP                              
036862,000460: 21,2313           20723                           CADR     PINBRNCH                              
036863,000461: 
036864,000462: 32,3555                                           BANK     32                                    
036865,000463: 32,2000                                           SETLOC   ABORTS                                
036866,000464: 32,2000                                           BANK                                           
036867,000465: 
036868,000466: 32,3555                                           COUNT*   $$/P70                                
036869,000467: 
036870,000468:                                                                                                  #  ************************************************************************
036871,000469: 
036872,000470: 32,3555           45234        TGOCOMP            RTB      DSU                                   
036873,000471: 32,3556           21462                                    LOADTIME                              
036874,000472: 32,3557           03440                                    TIG                                   
036875,000473: 32,3560           77661                           SL                                             

Page 838

036877,000475: 32,3561           20214                                    11D                                   
036878,000476: 32,3562           03515                           STORE    TGO                                   
036879,000477: 32,3563           77616                           RVQ                                            
036880,000478: 
036881,000479:                                                                                                  #  ************************************************************************
036882,000480: 
036883,000481: 32,3564           34737        THROTUP            CAF      BIT13                                 
036884,000482: 32,3565           54055                           TS       THRUST                                
036885,000483: 32,3566           34750                           CAF      BIT4                                  
036886,000484: 32,3567           00006                           EXTEND                                         
036887,000485: 32,3570           05014                           WOR      CHAN14                                
036888,000486: 32,3571           00002                           TC       Q                                     
036889,000487: 
036890,000488:                                                                                                  #  ************************************************************************
036891,000489: 
036892,000490: 32,3572           00453        DEC299             DEC      299        B-14                       
036893,000491: 
036894,000492: 32,3573           00000 01750  10SECS             2DEC     1000       B-28                       
036895,000493: 
036896,000494: 32,3575           00000 21450  90SEC              2DEC     9000       B-28                       
036897,000495: 
036898,000496: 32,3577           01161 00000  50SECS             2DEC     5000       B-17                       
036899,000497: 
036900,000498: 32,3601           00021 33400  HINJECT            2DEC     18288      B-24                       #  60,000 FEET EXPRESSED IN METERS.
036901,000499: 
036902,000500: 32,3603           11021 00000  (TGO)A             2DEC     37000      B-17                       
036903,000501: 
036904,000502: 32,3605           00507 25605  K(AT)              2DEC     .02                                   #  SCALING CONSTANT
036905,000503: 
036906,000504: 32,3607           02110        WHICHADR           REMADR   ABRTABLE                              
036907,000505: 
036908,000506:                                                                                                  #  ************************************************************************
036909,000507: 32,3610  E7,1513                                  EBANK=   DVCNTR                                
036910,000508: 32,3610           03637 70067  ATMAGAD            2CADR    ATMAG                                 
036911,000509: 
036912,000510: 32,3612           00003        ORBMANAD           ADRES    ORBMANUV                              
036913,000511: 

End of include-file P70-P71.agc.  Parent file is MAIN.agc