Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. 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 prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". 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 Luminary 69 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:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

036618,000002:                                                                                                  ## Copyright:   Public domain.
036619,000003:                                                                                                  ## Filename:    P70-P71.agc
036620,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
036621,000005:                                                                                                  ##              It is part of the source code for the original release
036622,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
036623,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
036624,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
036625,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
036626,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
036627,000011:                                                                                                  ##              that the code format has been changed to conform to the
036628,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
036629,000013:                                                                                                  ##              original YUL assembler.
036630,000014:                                                                                                  ## Reference:   pp. 829-838
036631,000015:                                                                                                  ## Assembler:   yaYUL
036632,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036633,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036634,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
036635,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
036636,000020:                                                                                                  ##              2017-01-09 RRB  Updated for Luminary 69.
036637,000021:                                                                                                  ##              2017-01-20 HG   Fix pseudo code 2CARD -> 2CADR
036638,000022:                                                                                                  ##              2017-01-21 HG   Fix operand XDEVLFLG -> XDELVFLG
036639,000023:                                                                                                  ##              2017-01-22 HG   commented statements. Looks like code but are type A comments
036640,000024:                                                                                                  ##                              Add missing statements  TC    DOWNFLAG
036641,000025:                                                                                                  ##                                                      ADRES AVEGFLAG
036642,000026:                                                                                                  ##                                                      STOVL   RTIG
036643,000027:                                                                                                  ##                                                              VN1
036644,000028:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
036645,000029:                                                                                                  ##                              and fixed errors found.
036646,000030:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
036647,000031:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
036648,000032: 

Page 829

036650,000034: 21,2102                                           BANK     21                                    
036651,000035: 21,2000                                           SETLOC   R11                                   
036652,000036: 21,2000                                           BANK                                           
036653,000037: 
036654,000038: 21,2102  E7,1513                                  EBANK=   DVCNTR                                
036655,000039: 21,2102                                           COUNT*   $$/R11                                
036656,000040: 
036657,000041: 21,2102           40103        R10,R11            CS       FLAGWRD7                              #  IS SERVICER STILL RUNNING?
036658,000042: 21,2103           74747                           MASK     AVEGFBIT                              
036659,000043: 21,2104           10000                           CCS      A                                     
036660,000044: 21,2105           15261                           TCF      TASKOVER                              #  LET AVGEND TAKE CARE OF GROUP 2.
036661,000045: 21,2106           11056                           CCS      PIPCTR                                
036662,000046: 21,2107           12111                           TCF      +2                                    
036663,000047: 21,2110           12314                           TCF      LRHTASK                               #  LAST PASS. CALL LRHTASK.
036664,000048: 21,2111           55712                 +2        TS       PIPCTR1                               
036665,000049: 
036666,000050: 21,2112  E7,1712               PIPCTR1            =        LADQSAVE                              
036667,000051: 21,2112     1056               PIPCTR             =        PHSPRDT2                              
036668,000052: 21,2112           36010                           CAF      OCT31                                 
036669,000053: 21,2113           05173                           TC       TWIDDLE                               
036670,000054: 21,2114           02102                           ADRES    R10,R11                               
036671,000055: 21,2115           41303        R10,R11A           CS       IMODES33                              #  IF LAMP TEST, DO NOT CHANGE LR LITES.
036672,000056: 21,2116           74753                           MASK     BIT1                                  
036673,000057: 21,2117           00006                           EXTEND                                         
036674,000058: 21,2120           12136                           BZF      10,11                                 
036675,000059: 
036676,000060: 21,2121           70107        FLASHH?            MASK     FLGWRD11                              #  C(A) = 1 = HFLASH BIT
036677,000061: 21,2122           00006                           EXTEND                                         
036678,000062: 21,2123           12127                           BZF      FLASHV?                               #  H FLASH OFF, SO LEAVE ALONE
036679,000063: 
036680,000064: 21,2124           34747                           CA       HLITE                                 
036681,000065: 21,2125           54001                           TS       L                                     
036682,000066: 21,2126           04606                           TC       FLIP                                  #  FLIP H LITE
036683,000067: 
036684,000068: 21,2127           34752        FLASHV?            CA       VFLSHBIT                              #  VFLASHBIT MUST BE BIT 2.
036685,000069: 21,2130           70107                           MASK     FLGWRD11                              
036686,000070: 21,2131           00006                           EXTEND                                         
036687,000071: 21,2132           12136                           BZF      10,11                                 #  V FLASH OFF
036688,000072: 
036689,000073: 21,2133           34751                           CA       VLITE                                 
036690,000074: 21,2134           54001                           TS       L                                     
036691,000075: 21,2135           04606                           TC       FLIP                                  #  FLIP V LITE
036692,000076: 
036693,000077: 21,2136           30105        10,11              CA       FLAGWRD9                              #  IS THE LETABORT FLAG SET ?
036694,000078: 21,2137           74743                           MASK     LETABBIT                              
036695,000079: 21,2140           00006                           EXTEND                                         
036696,000080: 21,2141           12340                           BZF      LANDISP                               #  NO. PROCEED TO R10.
036697,000081: 
036698,000082: 21,2142           41011        P71NOW?            CS       MODREG                                #  YES.  ARE WE IN P71 NOW?

Page 830

036700,000084: 21,2143           62272                           AD       MODE71                                
036701,000085: 21,2144           00006                           EXTEND                                         
036702,000086: 21,2145           12340                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
036703,000087: 
036704,000088: 21,2146           00006                           EXTEND                                         #  NO.  IS AN ABORT STAGE COMMANDED?
036705,000089: 21,2147           00030                           READ     CHAN30                                
036706,000090: 21,2150           40000                           COM                                            
036707,000091: 21,2151           54001                           TS       L                                     
036708,000092: 21,2152           74750                           MASK     BIT4                                  
036709,000093: 21,2153           10000                           CCS      A                                     
036710,000094: 21,2154           12172                           TCF      P71A                                  #  YES.
036711,000095: 
036712,000096: 21,2155           41011        P70NOW?            CS       MODREG                                #  NO. ARE WE IN P70 NOW?
036713,000097: 21,2156           62270                           AD       MODE70                                
036714,000098: 21,2157           00006                           EXTEND                                         
036715,000099: 21,2160           12340                           BZF      LANDISP                               #  YES.  PROCEED TO R10.
036716,000100: 
036717,000101: 21,2161           30001                           CA       L                                     #  NO.  IS AN ABORT COMMANDED?
036718,000102: 21,2162           74753                           MASK     BIT1                                  
036719,000103: 21,2163           10000                           CCS      A                                     
036720,000104: 21,2164           12167                           TCF      P70A                                  #  YES.
036721,000105: 21,2165           12340                           TCF      LANDISP                               #  NO.  PROCEED TO R10.
036722,000106: 
036723,000107: 21,2166                                           COUNT*   $$/P70                                
036724,000108: 
036725,000109: 21,2166           02274        P70                TC       LEGAL?                                
036726,000110: 21,2167           44755        P70A               CS       ZERO                                  
036727,000111: 21,2170           12173                           TCF      +3                                    
036728,000112: 21,2171           02274        P71                TC       LEGAL?                                
036729,000113: 21,2172           34752        P71A               CAF      TWO                                   
036730,000114: 21,2173           54002                 +3        TS       Q                                     
036731,000115: 21,2174           00004                           INHINT                                         
036732,000116: 21,2175           32200                           CAF      ABRTJADR                              
036733,000117: 21,2176           54017                           TS       BRUPT                                 
036734,000118: 21,2177           50017                           RESUME                                         
036735,000119: 
036736,000120: 21,2200           12201        ABRTJADR           TCF      ABRTJASK                              
036737,000121: 
036738,000122: 21,2201           32271        ABRTJASK           CAF      OCTAL27                               
036739,000123: 21,2202           60002                           AD       Q                                     
036740,000124: 21,2203           54001                           TS       L                                     
036741,000125: 21,2204           40000                           COM                                            
036742,000126: 21,2205           52761                           DXCH     -PHASE4                               
036743,000127: 21,2206           50002                           INDEX    Q                                     
036744,000128: 21,2207           32270                           CAF      MODE70                                
036745,000129: 21,2210           55011                           TS       MODREG                                
036746,000130: 
036747,000131: 21,2211           55163                           TS       DISPDEX                               #  INSURE DISPDEX IS POSITIVE.
036748,000132: 
036749,000133: 21,2212           10002                           CCS      Q                                     #  SET APSFLAG IF P71.

Page 831

036751,000135: 21,2213           40106                           CS       FLGWRD10                              #  SET APSFLAG PRIOR TO THE ENEMA.
036752,000136: 21,2214           74737                           MASK     APSFLBIT                              
036753,000137: 21,2215           26106                           ADS      FLGWRD10                              
036754,000138: 21,2216           42273                           CS       DAPBITS                               #  DAPBITS = OCT 640 = BITS 6, 8, 9
036755,000139: 21,2217           70111                           MASK     DAPBOOLS                              #  (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
036756,000140: 21,2220           54111                           TS       DAPBOOLS                              
036757,000141: 
036758,000142: 21,2221           40101                           CS       FLAGWRD5                              #  SET ENGONFLG.
036759,000143: 21,2222           74745                           MASK     ENGONBIT                              
036760,000144: 21,2223           26101                           ADS      FLAGWRD5                              
036761,000145: 
036762,000146: 21,2224           44355                           CS       PRIO30                                #  INSURE THAT THE ENGINE IS ON, IF ARMED.
036763,000147: 21,2225           00006                           EXTEND                                         
036764,000148: 21,2226           02011                           RAND     DSALMOUT                              
036765,000149: 21,2227           64737                           AD       BIT13                                 
036766,000150: 21,2230           00006                           EXTEND                                         
036767,000151: 21,2231           01011                           WRITE    DSALMOUT                              
036768,000152: 
036769,000153: 21,2232           34735                           CAF      LRBYBIT                               #  TERMINATE R12.
036770,000154: 21,2233           54107                           TS       FLGWRD11                              
036771,000155: 
036772,000156: 21,2234           40074                           CS       FLAGWRD0                              #  SET R10FLAG TO SUPPRESS OUTPUTS TO THE
036773,000157: 21,2235           74752                           MASK     R10FLBIT                              #  CROSS-POINTER DISPLAY.
036774,000158: 21,2236           26074                           ADS      FLAGWRD0                              #  THE FOLLOWING ENEMA WILL REMOVE THE
036775,000159:                                                                                                  #  DISPLAY INERTIAL DATA OUTBIT AND
036776,000160:                                                                                                  #  DISABLE THE RR ERROR CTRS FOR US.
036777,000161: 
036778,000162: 21,2237           00006                           EXTEND                                         #  LOAD TEVENT FOR THE DOWNLINK.
036779,000163: 21,2240           30025                           DCA      TIME2                                 
036780,000164: 21,2241           53345                           DXCH     TEVENT                                
036781,000165: 
036782,000166: 21,2242           00006                           EXTEND                                         
036783,000167: 21,2243           32267                           DCA      SVEXITAD                              
036784,000168: 21,2244           53253                           DXCH     AVGEXIT                               
036785,000169: 
036786,000170: 21,2245           00006                           EXTEND                                         
036787,000171: 21,2246           34755                           DCA      NEG0                                  
036788,000172: 21,2247           52753                           DXCH     -PHASE1                               
036789,000173: 
036790,000174: 21,2250           00006                           EXTEND                                         
036791,000175: 21,2251           34755                           DCA      NEG0                                  
036792,000176: 21,2252           52757                           DXCH     -PHASE3                               
036793,000177: 
036794,000178: 21,2253           00006                           EXTEND                                         
036795,000179: 21,2254           34755                           DCA      NEG0                                  
036796,000180: 21,2255           52765                           DXCH     -PHASE6                               
036797,000181: 
036798,000182: 21,2256           36244                           CAF      THREE                                 #  SET UP 4.3SPOT FOR GOABORT
036799,000183: 21,2257           54001                           TS       L                                     
036800,000184: 21,2260           40000                           COM                                            

Page 832

036802,000186: 21,2261           52761                           DXCH     -PHASE4                               
036803,000187: 
036804,000188: 21,2262           37727                           CAF      OCT37774                              #  SET T5RUPT TO CALL DAPIDLER IN        
036805,000189: 21,2263           54030                           TS       TIME5                                 #  40 MILLISECONDS.
036806,000190: 
036807,000191: 21,2264           04635                           TC       POSTJUMP                              
036808,000192: 21,2265           12766                           CADR     ENEMA                                 
036809,000193: 
036810,000194: 21,2266  E7,1513                                  EBANK=   DVCNTR                                
036811,000195: 21,2266           03525 76067  SVEXITAD           2CADR    SERVEXIT                              
036812,000196: 
036813,000197: 21,2270           00106        MODE70             DEC      70         B-14                       
036814,000198: 21,2271           00027        OCTAL27            OCT      27                                    
036815,000199: 21,2272           00107        MODE71             DEC      71         B-14                       
036816,000200: 
036817,000201: 21,2273           00640        DAPBITS            OCT      00640                                 
036818,000202: 
036819,000203: 32,3257                                           BANK     32                                    
036820,000204: 32,2000                                           SETLOC   ABORTS                                
036821,000205: 32,2000                                           BANK                                           
036822,000206: 
036823,000207: 32,3257                                           COUNT*   $$/P70                                
036824,000208: 
036825,000209: 32,3257           06036        GOABORT            TC       INTPRET                               
036826,000210: 32,3260           77624                           CALL                                           
036827,000211: 32,3261           61055                                    INITCDUW                              
036828,000212: 32,3262           77776                           EXIT                                           
036829,000213: 32,3263           34751                           CAF      FOUR                                  
036830,000214: 32,3264           55513                           TS       DVCNTR                                
036831,000215: 
036832,000216: 32,3265           33607                           CAF      WHICHADR                              
036833,000217: 32,3266           55453                           TS       WHICH                                 
036834,000218: 
036835,000219: 32,3267           05516                           TC       DOWNFLAG                              
036836,000220: 32,3270           00214                           ADRES    FLRCS                                 
036837,000221: 
036838,000222: 32,3271           05516                           TC       DOWNFLAG                              
036839,000223: 32,3272           00175                           ADRES    FLUNDISP                              
036840,000224: 
036841,000225: 32,3273           05516                           TC       DOWNFLAG                              
036842,000226: 32,3274           00161                           ADRES    IDLEFLAG                              
036843,000227: 
036844,000228: 32,3275           05504                           TC       UPFLAG                                #  INSURE 4-JET TRANSLATION CAPABILITY.
036845,000229: 32,3276           00307                           ADRES    ACC4-2FL                              
036846,000230: 
036847,000231: 32,3277           05321                           TC       CHECKMM                               
036848,000232: 32,3300           00106        70DEC              DEC      70         B-14                       
036849,000233: 32,3301           13525                           TCF      P71RET                                
036850,000234: 
036851,000235: 32,3302           06036        P70INIT            TC       INTPRET                               

Page 833

036853,000237: 32,3303           77624                           CALL                                           
036854,000238: 32,3304           65555                                    TGOCOMP                               
036855,000239: 32,3305           54345                           DLOAD    SL                                    
036856,000240: 32,3306           34003                                    MDOTDPS                               
036857,000241: 32,3307           20205                                    4D                                    
036858,000242: 32,3310           77665                           BDDV                                           
036859,000243: 32,3311           01245                                    MASS                                  
036860,000244: 32,3312           16265                           STODL    TBUP                                  
036861,000245: 32,3313           01245                                    MASS                                  
036862,000246: 32,3314           70471                           DDV      SR1                                   
036863,000247: 32,3315           24003                                    K(1/DV)                               
036864,000248: 32,3316           03633                           STORE    1/DV1                                 
036865,000249: 32,3317           03635                           STORE    1/DV2                                 
036866,000250: 32,3320           03637                           STORE    1/DV3                                 
036867,000251: 32,3321           77665                           BDDV                                           
036868,000252: 32,3322           25606                                    K(AT)                                 
036869,000253: 32,3323           16257                           STODL    AT                                    
036870,000254: 32,3324           34005                                    DTDECAY                               
036871,000255: 32,3325           54276                           DCOMP    SL                                    
036872,000256: 32,3326           20214                                    11D                                   
036873,000257: 32,3327           02263                           STORE    TTO                                   
036874,000258: 32,3330           57535                           SLOAD    DCOMP                                 
036875,000259: 32,3331           26002                                    DPSVEX                                
036876,000260: 32,3332           77702                           SR2                                            
036877,000261: 32,3333           02261                           STORE    VE                                    #  INITIALIZE DPS EXHAUST VELOCITY
036878,000262: 32,3334           45014                           SET      CALL                                  
036879,000263: 32,3335           04467                                    FLAP                                  
036880,000264: 32,3336           60230                                    COMMINIT                              
036881,000265: 32,3337           77650        INJTARG            GOTO                                           #  *** BYPASS ZONE 0 ***
036882,000266: 32,3340           65371                                    UPTHROT                               #  *** BYPASS ZONE 0 ***
036883,000267:                                                                                                  #                DLOAD   DSU
036884,000268:                                                                                                  #                        TGO
036885,000269:                                                                                                  #                        50SECS
036886,000270:                                                                                                  #                BPL     EXIT
036887,000271:                                                                                                  #                        UPTHROT
036888,000272: 
036889,000273: 32,3341           05321                           TC       CHECKMM                               
036890,000274: 32,3342           00106                           DEC      70         B-14                       
036891,000275: 32,3343           33572                           CAF      DEC299                                #  P71.  DELAY 3 SECONDS.
036892,000276: 32,3344           64753                           AD       BIT1                                  #  P70.  DELAY 1 CENTISECOND.
036893,000277: 32,3345           55644                           TS       ENGOFFDT                              
036894,000278: 32,3346           05173                           TC       TWIDDLE                               
036895,000279: 32,3347           03356                           ADRES    ZONEZERO                              
036896,000280: 
036897,000281: 32,3350           05353                           TC       PHASCHNG                              
036898,000282: 32,3351           47014                           OCT      47014                                 
036899,000283: 32,3352           76133                           -GENADR  ENGOFFDT                              
036900,000284: 32,3353  E7,1513                                  EBANK=   DVCNTR                                
036901,000285: 32,3353           03356 64067                     2CADR    ZONEZERO                              

Page 834

036903,000287: 32,3355           15155                           TCF      ENDOFJOB                              
036904,000288: 
036905,000289: 32,3356           04674        ZONEZERO           TC       IBNKCALL                              
036906,000290: 32,3357           75551                           CADR     ENGINOF2                              
036907,000291: 
036908,000292: 32,3360           33407                           CAF      ZERETAD                               
036909,000293: 32,3361           55260                           TS       OUTROUTE                              
036910,000294: 
036911,000295: 32,3362           05516                           TC       DOWNFLAG                              
036912,000296: 32,3363           00163                           ADRES    AVEGFLAG                              
036913,000297: 
036914,000298: 32,3364           05516                           TC       DOWNFLAG                              
036915,000299: 32,3365           00162                           ADRES    V37FLAG                               
036916,000300: 
036917,000301: 32,3366           05353                           TC       PHASCHNG                              
036918,000302: 32,3367           00004                           OCT      00004                                 
036919,000303: 
036920,000304: 32,3370           15261                           TCF      TASKOVER                              
036921,000305: 
036922,000306: 32,3371           77414        UPTHROT            SET      EXIT                                  
036923,000307: 32,3372           04461                                    FLVR                                  
036924,000308: 
036925,000309: 32,3373           03564                           TC       THROTUP                               
036926,000310: 
036927,000311: 32,3374           05353                           TC       PHASCHNG                              
036928,000312: 32,3375           04024                           OCT      04024                                 
036929,000313: 
036930,000314: 32,3376           04616                 -3        TC       BANKCALL                              #  VERIFY THAT THE PANEL SWITCHES 
036931,000315: 32,3377           73707                           CADR     P40AUTO                               #  ARE PROPERLY SET.
036932,000316: 
036933,000317: 32,3400           03564                           TC       THROTUP                               
036934,000318: 
036935,000319: 32,3401           00006        UPTHROT1           EXTEND                                         #  SET SERVICER TO CALL ASCENT GUIDANCE.
036936,000320: 32,3402           33611                           DCA      ATMAGAD                               
036937,000321: 32,3403           53253                           DXCH     AVGEXIT                               
036938,000322: 
036939,000323: 32,3404           05353        GRP4OFF            TC       PHASCHNG                              #  TERMINATE USE OF GROUP 4.
036940,000324: 32,3405           00004                           OCT      00004                                 
036941,000325: 
036942,000326: 32,3406           15155                           TCF      ENDOFJOB                              
036943,000327: 
036944,000328: 32,3407           65410        ZERETAD            CADR     ZONE0RET                              
036945,000329: 32,3410           05327        ZONE0RET           TC       2PHSCHNG                              
036946,000330: 32,3411           00002                           OCT      00002                                 
036947,000331: 32,3412           05024                           OCT      05024                                 
036948,000332: 32,3413           25000                           OCT      25000                                 
036949,000333: 
036950,000334: 32,3414           06036                           TC       INTPRET                               
036951,000335: 32,3415           43234                           RTB      DAD                                   

Page 835

036953,000337: 32,3416           21462                                    LOADTIME                              
036954,000338: 32,3417           25576                                    90SEC                                 
036955,000339: 32,3420           03557                           STORE    PIPTIME1                              #  STORE TEMPORARILY IN PIPTIME1.
036956,000340: 32,3421           34041                           STCALL   TDEC1                                 
036957,000341: 32,3422           27057                                    LEMPREC                               
036958,000342: 32,3423           77775                           VLOAD                                          
036959,000343: 32,3424           00007                                    VATT                                  
036960,000344: 32,3425           03551                           STORE    VN1                                   #  STORE VTIG TEMPORARILY IN VN1.
036961,000345: 32,3426           76521                           MXV      VSL1                                  
036962,000346: 32,3427           01734                                    REFSMMAT                              
036963,000347: 32,3430           27525                           STOVL    V                                     
036964,000348: 32,3431           00001                                    RATT                                  
036965,000349: 32,3432           03543                           STORE    RN1                                   #  STORE RTIG TEMPORARILY IN RN1.
036966,000350: 32,3433           52521                           MXV      VSL6                                  
036967,000351: 32,3434           01734                                    REFSMMAT                              
036968,000352: 32,3435           37517                           STCALL   R                                     
036969,000353: 32,3436           67162                                    MUNGRAV                               
036970,000354: 32,3437           45014                           SET      CALL                                  
036971,000355: 32,3440           04471                                    FLZONE0                               
036972,000356: 32,3441           60313                                    ASCENT                                
036973,000357: 32,3442           77776        PREBRET1           EXIT                                           
036974,000358: 32,3443           05353                           TC       PHASCHNG                              
036975,000359: 32,3444           04024                           OCT      04024                                 
036976,000360: 32,3445           06036                           TC       INTPRET                               
036977,000361: 32,3446           77214                           CLEAR    VLOAD                                 
036978,000362: 32,3447           04671                                    FLZONE0                               
036979,000363: 32,3450           03646                                    VGVECT                                
036980,000364: 32,3451           76505                           VXM      VSL1                                  
036981,000365: 32,3452           01734                                    REFSMMAT                              
036982,000366: 32,3453           03654                           STORE    DELVSIN                               
036983,000367: 32,3454           77646                           ABVAL                                          
036984,000368: 32,3455           27662                           STOVL    DELVSAB                               
036985,000369: 32,3456           03543                                    RN1                                   
036986,000370: 32,3457           27640                           STOVL    RTIG                                  
036987,000371: 32,3460           03551                                    VN1                                   
036988,000372: 32,3461           17646                           STODL    VTIG                                  
036989,000373: 32,3462           03557                                    PIPTIME1                              
036990,000374: 32,3463           03440                           STORE    TIG                                   
036991,000375: 32,3464           43014                           SET      CLEAR                                 
036992,000376: 32,3465           01067                                    XDELVFLG                              
036993,000377: 32,3466           04666                                    LETABORT                              
036994,000378: 32,3467           77776                           EXIT                                           
036995,000379: 
036996,000380: 32,3470           36241                           CAF      SIX                                   #  SET UP R60 FOR A 10 DEG/SEC MANUV. RATE.
036997,000381: 32,3471           55325                           TS       RATEINDX                              
036998,000382: 
036999,000383: 32,3472           35023                           CAF      PRIO13                                #  REDUCE PRIORITY TO LEVEL EXPECTED BY
037000,000384: 32,3473           05146                           TC       PRIOCHNG                              #  P40 AND P42.
037001,000385: 32,3474           33612                           CAF      ORBMANAD                              #  INITIALIZE FOR ORBITAL MANEUVERS LIST.
037002,000386: 32,3475           54332                           TS       DNLSTCOD                              

Page 836

037004,000388: 32,3476           55324                           TS       AGSWORD                               
037005,000389: 
037006,000390: 32,3477           05321                           TC       CHECKMM                               
037007,000391: 32,3500           00106                           DEC      70         B-14                       #  FOR MODE=70,USE P40,OTHERWISE P42
037008,000392: 32,3501           13515                           TCF      42SET                                 
037009,000393: 32,3502           33521        40SET              CAF      P40CADR                               
037010,000394: 32,3503           55566                           TS       CADRSAVE                              
037011,000395: 32,3504           33523                           CAF      DEC40                                 
037012,000396: 32,3505           55567        COMMSET            TS       MMSAVE                                
037013,000397: 32,3506           05353                           TC       PHASCHNG                              
037014,000398: 32,3507           05024                           OCT      05024                                 
037015,000399: 32,3510           13000                           OCT      13000                                 
037016,000400: 
037017,000401: 32,3511           31567                           CA       MMSAVE                                
037018,000402: 32,3512           05314                           TC       NEWMODEA                              
037019,000403: 
037020,000404: 32,3513           31566                           CA       CADRSAVE                              
037021,000405: 32,3514           04640                           TC       BANKJUMP                              
037022,000406: 32,3515           33522        42SET              CAF      P42CADR                               
037023,000407: 32,3516           55566                           TS       CADRSAVE                              
037024,000408: 32,3517           33524                           CAF      DEC42                                 
037025,000409: 32,3520           13505                           TCF      COMMSET                               
037026,000410: 
037027,000411: 32,3521           75147        P40CADR            CADR     P40LM                                 
037028,000412: 32,3522           75410        P42CADR            CADR     P42LM                                 
037029,000413: 32,3523  E7,1566               CADRSAVE           =        MASS1                                 
037030,000414: 32,3523  E7,1567               MMSAVE             =        MASS1      +1                         
037031,000415: 32,3523           00050        DEC40              DEC      40         B-14                       
037032,000416: 32,3524           00052        DEC42              DEC      42         B-14                       
037033,000417: 
037034,000418: 32,3525           05516        P71RET             TC       DOWNFLAG                              
037035,000419: 32,3526           00215                           ADRES    LETABORT                              
037036,000420: 
037037,000421: 32,3527           36000                           CAF      THRESH2                               #  SET DVMON THRESHOLD TO THE ASCENT VALUE.
037038,000422: 32,3530           55251                           TS       DVTHRUSH                              
037039,000423: 
037040,000424: 32,3531           06036                           TC       INTPRET                               
037041,000425: 32,3532           45014                           BON      CALL                                  
037042,000426: 32,3533           04707                                    FLAP                                  
037043,000427: 32,3534           65542                                    OLDTIME                               
037044,000428: 32,3535           65555                                    TGOCOMP                               #  IF FLAP=0, TGO=T-TIG
037045,000429: 32,3536           52131                           SSP      GOTO                                  
037046,000430: 32,3537           00053                                    QPRET                                 
037047,000431: 32,3540           65337                           CADR     INJTARG                               
037048,000432: 32,3541           60204                                    P12INIT                               #  WILL EXIT P12INIT TO INJTARG
037049,000433: 32,3542           72545        OLDTIME            DLOAD    SL1                                   #  IF FLAP=1,TGO=2 TGO
037050,000434: 32,3543           03515                                    TGO                                   
037051,000435: 32,3544           37643                           STCALL   TGO1                                  
037052,000436: 32,3545           60204                                    P12INIT                               

Page 837

037054,000438: 32,3546           77776                           EXIT                                           
037055,000439: 32,3547           05353                           TC       PHASCHNG                              
037056,000440: 32,3550           04024                           OCT      04024                                 
037057,000441: 
037058,000442: 32,3551           00006                           EXTEND                                         
037059,000443: 32,3552           31643                           DCA      TGO1                                  
037060,000444: 32,3553           53515                           DXCH     TGO                                   
037061,000445: 32,3554           13376                           TCF      UPTHROT1   -3                         
037062,000446: 
037063,000447: 32,3555  E7,1642               TGO1               =        APO                                   
037064,000448:                                                                                                  #  ************************************************************************
037065,000449: 
037066,000450: 21,2274                                           BANK     21                                    
037067,000451: 21,2000                                           SETLOC   R11                                   
037068,000452: 21,2000                                           BANK                                           
037069,000453: 
037070,000454: 21,2274                                           COUNT*   $$/P70                                
037071,000455: 
037072,000456: 21,2274           40775        LEGAL?             CS       MMNUMBER                              #  IS THE DESIRED PGM ALREADY IN PROGRESS?
037073,000457: 21,2275           61011                           AD       MODREG                                
037074,000458: 21,2276           00006                           EXTEND                                         
037075,000459: 21,2277           12310                           BZF      ABORTALM                              
037076,000460: 
037077,000461: 21,2300           40105                           CS       FLAGWRD9                              #  ARE THE ABORTS ENABLED?
037078,000462: 21,2301           74743                           MASK     LETABBIT                              
037079,000463: 21,2302           10000                           CCS      A                                     
037080,000464: 21,2303           12310                           TCF      ABORTALM                              
037081,000465: 
037082,000466: 21,2304           30103                           CA       FLAGWRD7                              #  IS SERVICER ON THE AIR?
037083,000467: 21,2305           74747                           MASK     AVEGFBIT                              
037084,000468: 21,2306           10000                           CCS      A                                     
037085,000469: 21,2307           00002                           TC       Q                                     #  YES. ALL IS WELL.
037086,000470: 21,2310           04364        ABORTALM           TC       FALTON                                
037087,000471: 21,2311           04457                           TC       RELDSP                                
037088,000472: 21,2312           04635                           TC       POSTJUMP                              
037089,000473: 21,2313           20723                           CADR     PINBRNCH                              
037090,000474: 
037091,000475: 32,3555                                           BANK     32                                    
037092,000476: 32,2000                                           SETLOC   ABORTS                                
037093,000477: 32,2000                                           BANK                                           
037094,000478: 
037095,000479: 32,3555                                           COUNT*   $$/P70                                
037096,000480: 
037097,000481:                                                                                                  #  ************************************************************************
037098,000482: 
037099,000483: 32,3555           45234        TGOCOMP            RTB      DSU                                   
037100,000484: 32,3556           21462                                    LOADTIME                              
037101,000485: 32,3557           03440                                    TIG                                   
037102,000486: 32,3560           77661                           SL                                             

Page 838

037104,000488: 32,3561           20214                                    11D                                   
037105,000489: 32,3562           03515                           STORE    TGO                                   
037106,000490: 32,3563           77616                           RVQ                                            
037107,000491: 
037108,000492:                                                                                                  #  ************************************************************************
037109,000493: 
037110,000494: 32,3564           34737        THROTUP            CAF      BIT13                                 
037111,000495: 32,3565           54055                           TS       THRUST                                
037112,000496: 32,3566           34750                           CAF      BIT4                                  
037113,000497: 32,3567           00006                           EXTEND                                         
037114,000498: 32,3570           05014                           WOR      CHAN14                                
037115,000499: 32,3571           00002                           TC       Q                                     
037116,000500: 
037117,000501:                                                                                                  #  ************************************************************************
037118,000502: 
037119,000503: 32,3572           00453        DEC299             DEC      299        B-14                       
037120,000504: 
037121,000505: 32,3573           00000 01750  10SECS             2DEC     1000       B-28                       
037122,000506: 
037123,000507: 32,3575           00000 21450  90SEC              2DEC     9000       B-28                       
037124,000508: 
037125,000509: 32,3577           01161 00000  50SECS             2DEC     5000       B-17                       
037126,000510: 
037127,000511: 32,3601           00021 33400  HINJECT            2DEC     18288      B-24                       #  60,000 FEET EXPRESSED IN METERS.
037128,000512: 
037129,000513: 32,3603           11021 00000  (TGO)A             2DEC     37000      B-17                       
037130,000514: 
037131,000515: 32,3605           00507 25605  K(AT)              2DEC     .02                                   #  SCALING CONSTANT
037132,000516: 
037133,000517: 32,3607           02110        WHICHADR           REMADR   ABRTABLE                              
037134,000518: 
037135,000519:                                                                                                  #  ************************************************************************
037136,000520: 32,3610  E7,1513                                  EBANK=   DVCNTR                                
037137,000521: 32,3610           03637 70067  ATMAGAD            2CADR    ATMAG                                 
037138,000522: 
037139,000523: 32,3612           00003        ORBMANAD           ADRES    ORBMANUV                              
037140,000524: 

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