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.

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

Page 829

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

Page 830

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

Page 831

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

Page 832

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

Page 833

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

Page 834

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

Page 835

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

Page 836

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

Page 837

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

Page 838

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

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