Source Code

These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

033998,000002:                                                                                                  ## Copyright:   Public domain.
033999,000003:                                                                                                  ## Filename:    SERVICER.agc
034000,000004:                                                                                                  ## Purpose:     A section of a reconstructed, mixed version of Sundance
034001,000005:                                                                                                  ##              It is part of the reconstructed source code for the Lunar
034002,000006:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
034003,000007:                                                                                                  ##              No original listings of this program are available;
034004,000008:                                                                                                  ##              instead, this file was created via disassembly of dumps
034005,000009:                                                                                                  ##              of various revisions of Sundance core rope modules.
034006,000010:                                                                                                  ## Assembler:   yaYUL
034007,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
034008,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
034009,000013:                                                                                                  ## Mod history: 2020-06-17 MAS  Created from Luminary 69.
034010,000014:                                                                                                  ##              2021-05-30 ABS  Aligned IAW to field boundary.
034011,000015: 
034012,000016:                                                                                                  ## Sundance 292
034013,000017: 
034014,000018: 33,2000                                           BANK     33                                    
034015,000019: 33,2000                                           SETLOC   SERVICES                              
034016,000020: 33,2000                                           BANK                                           
034017,000021: 
034018,000022: 33,2000  E7,1472                                  EBANK=   DVCNTR                                
034019,000023:                                                                                                  #  *************************************   PREREAD   **************************************************************
034020,000024: 
034021,000025: 
034022,000026: 33,2000                                           COUNT*   $$/SERV                               
034023,000027: 
034024,000028: 33,2000           35032        PREREAD            CAF      SEVEN                                 #  5.7 SPOT TO SKIP LASTBIAS AFTER
034025,000029: 33,2001           05501                           TC       NEWPHASE                              #  RESTART.
034026,000030: 33,2002           00005                           OCT      5                                     
034027,000031: 33,2003           35101                           CAF      PRIO21                                
034028,000032: 33,2004           05142                           TC       NOVAC                                 
034029,000033: 33,2005  E3,1460                                  EBANK=   NBDX                                  
034030,000034: 33,2005           03661 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
034031,000035: 
034032,000036: 33,2007           02430        BIBIBIAS           TC       PIPASR     +3                         #  CLEAR + READ PIPS LAST TIME IN FRE5+F133
034033,000037:                                                                                                  #  DO NOT DESTROY VALUE OF PIPTIME1
034034,000038: 
034035,000039: 33,2010           05563                           TC       UPFLAG                                
034036,000040: 33,2011           00162                           ADRES    V37FLAG                               #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
034037,000041: 33,2012           05563                           TC       UPFLAG                                #     OF FLAGWRD7)
034038,000042: 33,2013           00163                           ADRES    AVEGFLAG                              
034039,000043: 
034040,000044: 33,2014           05575                           TC       DOWNFLAG                              #  RESET DRIFTFLAG
034041,000045: 33,2015           00036                           ADRES    DRIFTFLG                              
034042,000046: 
034043,000047: 33,2016           35024                           CAF      FOUR                                  #  INITIALIZE DV MONITOR
034044,000048: 33,2017           55472                           TS       DVCNTR                                
034045,000049: 33,2020           55261                           TS       PIPAGE                                
034046,000050: 33,2021           55260                           TS       STOPDVC                               
034047,000051: 
034048,000052: 33,2022           35010                           CAF      LRBYBIT                               
034049,000053: 33,2023           55263                           TS       LRSTAT                                
034050,000054: 
034051,000055: 33,2024           32354                           CAF      ENDJBCAD                              #  POINT OUTROUTE TO END-OF-JOB.
034052,000056: 33,2025           55262                           TS       OUTROUTE                              
034053,000057: 
034054,000058: 33,2026           37662                           CAF      PRIO22                                
034055,000059: 33,2027           05155                           TC       FINDVAC                               #  TO FIRST ENTRY TO AVERAGE G.
034056,000060: 33,2030  E7,1472                                  EBANK=   DVCNTR                                
034057,000061: 33,2030           02355 66067                     2CADR    NORMLIZE                              
034058,000062: 
034059,000063: 33,2032           35050                           CAF      2SECS                                 #  WAIT TWO SECONDS FOR READACCS
034060,000064: 33,2033           05252                           TC       WAITLIST                              
034061,000065: 33,2034  E7,1472                                  EBANK=   DVCNTR                                
034062,000066: 33,2034           02042 66067                     2CADR    READACCS                              
034063,000067: 
034064,000068: 33,2036           45025                           CS       TWO                                   #  5.2SPOT FOR REREADAC AND NORMLIZE
034065,000069: 33,2037           05501                           TC       NEWPHASE                              
034066,000070: 33,2040           00005                           OCT      5                                     
034067,000071: 
034068,000072: 33,2041           15321                           TCF      TASKOVER                              
034069,000073: 
034070,000074:                                                                                                  #  *************************************   READACCS   *************************************************************
034071,000075: 33,2042           40102        READACCS           CS       FLAGWRD6                              
034072,000076: 33,2043           75017                           MASK     MUNFLBIT                              
034073,000077: 33,2044           10000                           CCS      A                                     
034074,000078: 33,2045           12061                           TCF      PIPSDONE   -1                         
034075,000079: 
034076,000080: 33,2046           40103                           CS       FLAGWRD7                              
034077,000081: 33,2047           75014                           MASK     SWANDBIT                              
034078,000082: 33,2050           10000                           CCS      A                                     
034079,000083: 33,2051           12057                           TCF      SWANDOFF                              
034080,000084: 
034081,000085: 33,2052           35743                           CAF      TWELVE                                
034082,000086: 33,2053           05252                           TC       WAITLIST                              
034083,000087: 33,2054  E7,1523                                  EBANK=   UNIT/R/                               
034084,000088: 33,2054           02102 42067                     2CADR    LANDISP                               
034085,000089: 
034086,000090: 33,2056           12061                           TCF      PIPSDONE   -1                         
034087,000091: 
034088,000092: 33,2057           04737        SWANDOFF           TC       IBNKCALL                              
034089,000093: 33,2060           43027                           CADR     DISPRSET                              
034090,000094: 
034091,000095: 33,2061           02425                           TC       PIPASR                                #  READ THE PIPAS.
034092,000096: 
034093,000097: 33,2062           35031        PIPSDONE           CA       FIVE                                  
034094,000098: 33,2063           05501                           TC       NEWPHASE                              
034095,000099: 33,2064           00005                           OCT      5                                     
034096,000100: 33,2065           35026        REDO5.5            CAF      ONE                                   
034097,000101: 33,2066           55261                           TS       PIPAGE                                
034098,000102: 
034099,000103: 33,2067           35032                           CAF      SEVEN                                 #  SET PIPCTR FOR 4X/SEC RATE.
034100,000104: 33,2070           55257                           TS       PIPCTR                                
034101,000105: 
034102,000106: 33,2071           40103                           CS       FLAGWRD7                              
034103,000107: 33,2072           75022                           MASK     AVEGFBIT                              
034104,000108: 33,2073           10000                           CCS      A                                     
034105,000109: 33,2074           02121                           TC       AVEGOUT                               #  AVEGFLAG DOWN - SET UP FINAL EXIT
034106,000110: 
034107,000111: 33,2075           35050        MAKEACCS           CAF      2SECS                                 
034108,000112: 33,2076           05243                           TC       TWIDDLE                               
034109,000113: 33,2077           02042                           ADRES    READACCS                              
034110,000114: 
034111,000115: 33,2100           41263                           CS       LRSTAT                                
034112,000116: 33,2101           75010                           MASK     LRBYBIT                               
034113,000117: 33,2102           00006                           EXTEND                                         
034114,000118: 33,2103           12107                           BZF      STRTSERV                              
034115,000119: 
034116,000120: 33,2104           33215                           CAF      1.95SECS                              
034117,000121: 33,2105           05243                           TC       TWIDDLE                               
034118,000122: 33,2106           02542                           ADRES    LRHTASK                               
034119,000123: 
034120,000124: 33,2107           35011        STRTSERV           CA       PRIO20                                
034121,000125: 33,2110           05155                           TC       FINDVAC                               
034122,000126: 33,2111  E7,1472                                  EBANK=   DVCNTR                                
034123,000127: 33,2111           02127 66067                     2CADR    SERVICER                              #  SET UP SERVICER JOB
034124,000128: 
034125,000129: 33,2113           05413                           TC       PHASCHNG                              
034126,000130: 33,2114           40045                           OCT      40045                                 
034127,000131: 
034128,000132: 33,2115           35016                           CA       BIT9                                  
034129,000133: 33,2116           00006                           EXTEND                                         
034130,000134: 33,2117           05011                           WOR      DSALMOUT                              #  TURN ON TEST CONNECTOR OUTBIT
034131,000135: 
034132,000136: 33,2120           15321                           TCF      TASKOVER                              
034133,000137: 
034134,000138: 33,2121           00006        AVEGOUT            EXTEND                                         
034135,000139: 33,2122           32126                           DCA      AVOUTCAD                              #  SET UP FINAL SERVICER EXIT
034136,000140: 33,2123           53253                           DXCH     AVGEXIT                               
034137,000141: 
034138,000142: 33,2124           12107                           TCF      STRTSERV                              #  END TASK WITHOUT CALLING READACCS
034139,000143: 
034140,000144: 
034141,000145: 33,2125  E7,1472                                  EBANK=   DVCNTR                                
034142,000146: 33,2125           02307 66067  AVOUTCAD           2CADR    AVGEND                                
034143,000147: 
034144,000148:                                                                                                  #  *************************************   SERVICER   *************************************************************
034145,000149: 
034146,000150: 33,2127           05413        SERVICER           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
034147,000151: 33,2130           16035                           OCT      16035                                 
034148,000152: 33,2131           20000                           OCT      20000                                 
034149,000153: 33,2132  E7,1472                                  EBANK=   DVCNTR                                
034150,000154: 33,2132           02140 66067                     2CADR    GETABVAL                              
034151,000155: 
034152,000156: 33,2134           37670                           CAF      PRIO31                                #  INITIALIZE 1/PIPADT IN CASE RESTART HAS
034153,000157: 33,2135           55075                           TS       1/PIPADT                              #  CAUSED LASTBIAS TO BE SKIPPED.
034154,000158: 
034155,000159: 
034156,000160: 33,2136           04655                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
034157,000161: 33,2137           15277                           CADR     1/PIPA                                
034158,000162: 
034159,000163: 33,2140           06014        GETABVAL           TC       INTPRET                               
034160,000164: 33,2141           51575                           VLOAD    ABVAL                                 
034161,000165: 33,2142           01212                                    DELV                                  
034162,000166: 33,2143           01246                           STORE    ABDELV                                #  ABDELV = CM/SEC*2(-14).
034163,000167: 33,2144           77605                           DMP                                            
034164,000168: 33,2145           27114                                    KPIP                                  
034165,000169: 33,2146           03471                           STORE    ABDVCONV                              #  ABDVCONV = M/CS * 2(-5).
034166,000170: 33,2147           76014        MASSMON            BON      AXT,1                                 #  ARE WE ON THE SURFACE?
034167,000171: 33,2150           04307                                    SURFFLAG                              
034168,000172: 33,2151           66171                                    MOONSPOT                              #  YES:  BYPASS MASS MESS
034169,000173: 33,2152           00000                                    0                                     
034170,000174: 33,2153           43071                           DDV      BON                                   #  NO:   WHICH VEX SHOULD BE USED?
034171,000175: 33,2154           27140                                    1SEC(7)                               
034172,000176: 33,2155           00703                                    APSFLAG                               
034173,000177: 33,2156           66161                                    +3                                    
034174,000178: 33,2157           77770                           AXT,1                                          
034175,000179: 33,2160           00002                                    2                                     
034176,000180: 33,2161           15250                           STODL    /AF/                                  #  /AF/ = MAGNITUDE DV/DT
034177,000181: 33,2162           03471                                    ABDVCONV                              
034178,000182: 33,2163           55702                           VSR4     DDV*                                  
034179,000183: 33,2164           27144                                    APSVEX1,1                             
034180,000184: 33,2165           43205                           DMP      DAD                                   
034181,000185: 33,2166           01244                                    MASS                                  
034182,000186: 33,2167           01244                                    MASS                                  
034183,000187: 33,2170           03556                           STORE    MASS1                                 
034184,000188: 
034185,000189: 33,2171           50545        MOONSPOT           DLOAD    VSR6                                  
034186,000190: 33,2172           03471                                    ABDVCONV                              
034187,000191: 33,2173           77615                           DAD                                            
034188,000192: 33,2174           03467                                    DVTOTAL                               
034189,000193: 33,2175           03467                           STORE    DVTOTAL                               #  UPDATE DVTOTAL FOR DISPLAY
034190,000194: 
034191,000195: 33,2176           45034                           RTB      CALL                                  
034192,000196: 33,2177           66533                                    TMPTOSPT                              
034193,000197: 33,2200           47255                                    CD*TR*G                               
034194,000198: 33,2201           45160                           AXC,1    CALL                                  
034195,000199: 33,2202           02147                                    XNBPIP                                
034196,000200: 33,2203           30671                                    XNBNDX                                
034197,000201: 
034198,000202: 33,2204           45014        AVERAGEG           BON      CALL                                  
034199,000203: 33,2205           03307                                    MUNFLAG                               
034200,000204: 33,2206           67145                                    MUNRVG                                
034201,000205: 33,2207           67057                                    CALCRVG                               
034202,000206: 33,2210           77776                           EXIT                                           
034203,000207: 
034204,000208: 33,2211           05413        GOSERV             TC       PHASCHNG                              
034205,000209: 33,2212           10035                           OCT      10035                                 
034206,000210: 
034207,000211: 33,2213           02416        COPYCYCL           TC       COPYCYC                               
034208,000212: 
034209,000213: 33,2214           05575                           TC       DOWNFLAG                              #  CLEAR STEERSW PRIOR TO DVMON.
034210,000214: 33,2215           00042                           ADRES    STEERSW                               
034211,000215: 
034212,000216: 33,2216           35020                           CAF      IDLEFBIT                              #  IS THE IDLE FLAG SET?
034213,000217: 33,2217           70103                           MASK     FLAGWRD7                              
034214,000218: 33,2220           10000                           CCS      A                                     
034215,000219: 33,2221           12266                           TCF      USEJETS                               #  IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
034216,000220: 
034217,000221: 33,2222           00004        DVMON              INHINT                                         
034218,000222: 33,2223           41201                           CS       DVTHRUSH                              
034219,000223: 33,2224           61245                           AD       ABDELV                                
034220,000224: 33,2225           00006                           EXTEND                                         
034221,000225: 33,2226           62257                           BZMF     LOTHRUST                              
034222,000226: 
034223,000227: 33,2227           04737                           TC       IBNKCALL                              
034224,000228: 33,2230           74643                           CADR     NOULLAGE                              
034225,000229: 
034226,000230: 33,2231           40076                           CS       FLAGWRD2                              #  SET STEERSW.
034227,000231: 33,2232           75014                           MASK     STEERBIT                              
034228,000232: 33,2233           26076                           ADS      FLAGWRD2                              
034229,000233: 
034230,000234: 33,2234           31260        DVCNTSET           CA       STOPDVC                               #  UPDATE MAXIMUM NOW THAT
034231,000235: 33,2235           55472                           TS       DVCNTR                                #  THRUXT HAS BEEN DETECTED.
034232,000236: 
034233,000237: 33,2236           30075                           CA       FLAGWRD1                              
034234,000238: 33,2237           75023                           MASK     GIMBFBIT                              
034235,000239: 33,2240           00006                           EXTEND                                         
034236,000240: 33,2241           12266                           BZF      USEJETS                               
034237,000241: 
034238,000242: 33,2242           30075                           CA       FLAGWRD1                              #  BRANCH IF APSFLAG IS SET.
034239,000243: 33,2243           75013                           MASK     APSFLBIT                              
034240,000244: 33,2244           10000                           CCS      A                                     
034241,000245: 33,2245           12266                           TCF      USEJETS                               
034242,000246: 
034243,000247: 33,2246           35016                           CA       BIT9                                  #  CHECK GIMBAL FAIL BIT
034244,000248: 33,2247           00006                           EXTEND                                         
034245,000249: 33,2250           02032                           RAND     CHAN32                                
034246,000250: 33,2251           00006                           EXTEND                                         
034247,000251: 33,2252           12266                           BZF      USEJETS                               
034248,000252: 
034249,000253: 33,2253           45011        USEGTS             CS       USEQRJTS                              
034250,000254: 33,2254           71102                           MASK     DAPBOOLS                              
034251,000255: 33,2255           55102                           TS       DAPBOOLS                              
034252,000256: 33,2256           12272                           TCF      SERVOUT                               
034253,000257: 
034254,000258: 33,2257           11472        LOTHRUST           CCS      DVCNTR                                
034255,000259: 33,2260           12265                           TCF      DECCNTR                               
034256,000260: 
034257,000261: 33,2261           05413                           TC       PHASCHNG                              
034258,000262: 33,2262           10035                           OCT      10035                                 
034259,000263: 
034260,000264: 33,2263           04674                           TC       POSTJUMP                              
034261,000265: 33,2264           74606                           CADR     COMFAIL                               
034262,000266: 
034263,000267: 33,2265           55472        DECCNTR            TS       DVCNTR                                
034264,000268: 
034265,000269: 33,2266           00004        USEJETS            INHINT                                         
034266,000270: 33,2267           41102                           CS       DAPBOOLS                              
034267,000271: 33,2270           75011                           MASK     USEQRJTS                              
034268,000272: 33,2271           27102                           ADS      DAPBOOLS                              
034269,000273: 33,2272           00003        SERVOUT            RELINT                                         
034270,000274: 33,2273           04655                           TC       BANKCALL                              
034271,000275: 33,2274           40315                           CADR     1/ACCS                                
034272,000276: 
034273,000277: 33,2275           30167                           CA       PRIORITY                              
034274,000278: 33,2276           75054                           MASK     LOW9                                  
034275,000279: 33,2277           54166                           TS       PUSHLOC                               
034276,000280: 33,2300           22007                           ZL                                             
034277,000281: 33,2301           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
034278,000282: 
034279,000283: 33,2302           05413                           TC       PHASCHNG                              
034280,000284: 33,2303           10035                           OCT      10035                                 
034281,000285: 33,2304           00006                           EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
034282,000286: 33,2305           31253                           DCA      AVGEXIT                               #  IS THRUST OR NOT.  THE STATE OF STEERSW
034283,000287: 33,2306           52006                           DXCH     Z                                     #  WILL CONVEY THIS INFORMATION.
034284,000288: 
034285,000289: 33,2307           31234        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
034286,000290: 33,2310           55075                           TS       1/PIPADT                              #  SET UP FREE FALL GYRO COMPENSATION.
034287,000291: 
034288,000292: 33,2311           05563                           TC       UPFLAG                                #  SET DRIFT FLAG.
034289,000293: 33,2312           00036                           ADRES    DRIFTFLG                              
034290,000294: 
034291,000295: 33,2313           04655                           TC       BANKCALL                              
034292,000296: 33,2314           17221                           CADR     PIPFREE                               
034293,000297: 
034294,000298: 33,2315           45016                           CS       BIT9                                  
034295,000299: 33,2316           00006                           EXTEND                                         
034296,000300: 33,2317           03011                           WAND     DSALMOUT                              
034297,000301: 
034298,000302: 33,2320           05373                           TC       2PHSCHNG                              
034299,000303: 
034300,000304: 33,2321           00005                           OCT      5                                     #  GROUP 5 OFF
034301,000305: 33,2322           05022                           OCT      05022                                 #  GROUP 2 ON
034302,000306: 33,2323           20000                           OCT      20000                                 
034303,000307: 
034304,000308: 33,2324           06014                           TC       INTPRET                               
034305,000309: 33,2325           77624                           CALL                                           
034306,000310: 33,2326           27466                                    AVETOMID                              
034307,000311: 33,2327           43014                           BON      BOFF                                  
034308,000312: 33,2330           00310                                    RNDVZFLG                              
034309,000313: 33,2331           66345                                    AVG2.7                                
034310,000314: 33,2332           00346                                    P25FLAG                               
034311,000315: 33,2333           66341                                    GRP2OFF                               
034312,000316: 33,2334           77776                           EXIT                                           
034313,000317: 
034314,000318: 33,2335           05413                           TC       PHASCHNG                              
034315,000319: 33,2336           40112                           OCT      40112                                 
034316,000320: 
034317,000321: 33,2337           31262        AVERTRN            CA       OUTROUTE                              #  RETURN TO DESIRED POINT.
034318,000322: 33,2340           04677                           TC       BANKJUMP                              
034319,000323: 
034320,000324: 33,2341           77776        GRP2OFF            EXIT                                           
034321,000325: 33,2342           05413                           TC       PHASCHNG                              
034322,000326: 33,2343           00002                           OCT      00002                                 
034323,000327: 33,2344           12337                           TCF      AVERTRN                               
034324,000328: 
034325,000329: 33,2345           77776        AVG2.7             EXIT                                           
034326,000330: 33,2346           05413                           TC       PHASCHNG                              
034327,000331: 33,2347           40072                           OCT      40072                                 
034328,000332: 33,2350           12337                           TCF      AVERTRN                               
034329,000333: 
034330,000334: 33,2351  33,2337               OUTGOAVE           =        AVERTRN                               
034331,000335: 
034332,000336: 33,2351  E7,1555               DVCNTR1            =        MASS1                                 
034333,000337: 
034334,000338: 33,2351           05413        SERVEXIT           TC       PHASCHNG                              
034335,000339: 33,2352           00035                           OCT      00035                                 
034336,000340: 
034337,000341: 33,2353           15225                 +2        TCF      ENDOFJOB                              
034338,000342: 
034339,000343: 33,2354           66353        ENDJBCAD           CADR     SERVEXIT   +2                         
034340,000344: 
034341,000345:                                                                                                  #  NORMLIZE AND COPYCYCL
034342,000346: 
034343,000347: 33,2355           06014        NORMLIZE           TC       INTPRET                               
034344,000348: 33,2356           77745                           DLOAD                                          
034345,000349: 33,2357           01244                                    MASS                                  
034346,000350: 33,2360           27556                           STOVL    MASS1                                 
034347,000351: 33,2361           06231                                    UNITX                                 
034348,000352: 33,2362           03461                           STORE    UASTEER                               
034349,000353: 33,2363           77214                           BOFF     VLOAD                                 
034350,000354: 33,2364           03347                                    MUNFLAG                               
034351,000355: 33,2365           66410                                    NORMLIZ1                              
034352,000356: 33,2366           03540                                    VN1                                   
034353,000357: 33,2367           76521                           MXV      VSL1                                  
034354,000358: 33,2370           01736                                    REFSMMAT                              
034355,000359: 33,2371           27504                           STOVL    V                                     
034356,000360: 33,2372           03532                                    RN1                                   
034357,000361: 33,2373           52521                           MXV      VSL6                                  
034358,000362: 33,2374           01736                                    REFSMMAT                              
034359,000363: 33,2375           37476                           STCALL   R                                     
034360,000364: 33,2376           67200                                    MUNGRAV                               
034361,000365: 33,2377           77214                           BON      VLOAD                                 
034362,000366: 33,2400           04702                                    FLP70                                 
034363,000367: 33,2401           66406                                    ASCSPOT                               
034364,000368: 33,2402           03504                                    V                                     
034365,000369: 33,2403           53435                           VXV      UNIT                                  
034366,000370: 33,2404           03476                                    R                                     
034367,000371: 33,2405           03707                           STORE    UHYP                                  
034368,000372: 33,2406           77776        ASCSPOT            EXIT                                           
034369,000373: 33,2407           12414                           TCF      NORMLIZ2                              
034370,000374: 
034371,000375: 33,2410           45175        NORMLIZ1           VLOAD    CALL                                  
034372,000376: 33,2411           03532                                    RN1                                   
034373,000377: 33,2412           67010                                    CALCGRAV                              
034374,000378: 33,2413           77776                           EXIT                                           
034375,000379: 
034376,000380: 33,2414           02416        NORMLIZ2           TC       COPYCYC                               
034377,000381: 33,2415           05225                           TC       ENDOFJOB                              
034378,000382: 
034379,000383: 
034380,000384: 33,2416           00006        COPYCYC            EXTEND                                         
034381,000385: 33,2417           22157                           QXCH     COPEXIT                               
034382,000386: 33,2420           34374                           CAF      OCT25                                 
034383,000387: 33,2421           05623                           TC       GENTRAN                               
034384,000388: 33,2422           01531                           ADRES    RN1                                   
034385,000389: 33,2423           01217                           ADRES    RN                                    
034386,000390: 33,2424           00157                           TC       COPEXIT                               
034387,000391: 
034388,000392: 33,2425     0157               COPEXIT            =        MPAC       +3                         
034389,000393: 
034390,000394:                                                                                                  #  ******************* PIPA READER ********************
034391,000395: 
034392,000396:                                                                                                  #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
034393,000397: 
034394,000398: 
034395,000399:                                                                                                  #  FUNCTIONAL DESCRIPTION
034396,000400: 
034397,000401:                                                                                                  #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
034398,000402:                                                                                                  #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
034399,000403:                                                                                                  #     RESTARTS BEGIN AT REREADAC.
034400,000404: 
034401,000405: 
034402,000406:                                                                                                  #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
034403,000407:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
034404,000408:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
034405,000409:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
034406,000410: 
034407,000411:                                                                                                  #  CALLING SEQUENCE AND EXIT
034408,000412: 
034409,000413:                                                                                                  #     CALL VIA TC, ISWCALL, ETC.
034410,000414: 
034411,000415:                                                                                                  #     EXIT IS VIA Q.
034412,000416: 
034413,000417: 
034414,000418: 
034415,000419: 
034416,000420:                                                                                                  #  INPUT
034417,000421: 
034418,000422:                                                                                                  #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
034419,000423: 
034420,000424: 
034421,000425:                                                                                                  #  OUTPUT
034422,000426: 
034423,000427:                                                                                                  #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034424,000428:                                                                                                  #     PIPTIME CONTAINS TIME OF PIPA READING.
034425,000429: 
034426,000430: 
034427,000431:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
034428,000432: 
034429,000433:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
034430,000434: 
034431,000435: 33,2425           00006        PIPASR             EXTEND                                         
034432,000436: 
034433,000437: 33,2426           30025                           DCA      TIME2                                 
034434,000438: 33,2427           53546                           DXCH     PIPTIME1                              #  CURRENT TIME POSITIVE VALUE
034435,000439: 33,2430           45030                 +3        CS       ZERO                                  #  INITIALIZE THESE AT NEG. ZERO.
034436,000440: 33,2431           55254                           TS       TEMX                                  
034437,000441: 33,2432           55255                           TS       TEMY                                  
034438,000442: 33,2433           55256                           TS       TEMZ                                  
034439,000443: 
034440,000444: 33,2434           35030                           CA       ZERO                                  
034441,000445: 33,2435           55215                           TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
034442,000446: 33,2436           55213                           TS       DELVY                                 
034443,000447: 33,2437           55261                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
034444,000448: 
034445,000449: 33,2440           00006        REPIP1             EXTEND                                         
034446,000450: 33,2441           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
034447,000451: 33,2442           53255                           DXCH     TEMX                                  
034448,000452: 33,2443           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
034449,000453: 33,2444           55211                           TS       DELVX                                 
034450,000454: 33,2445           23213                           LXCH     DELVY                                 
034451,000455: 
034452,000456: 33,2446           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
034453,000457: 33,2447           57256                           XCH      TEMZ                                  
034454,000458: 33,2450           56041                           XCH      PIPAZ                                 
034455,000459: 33,2451           55215        DODELVZ            TS       DELVZ                                 
034456,000460: 
034457,000461: 33,2452           30032        REPIP4             CA       CDUX                                  #  READ CDUS INTO HIGH ORDER CDUTEMPS
034458,000462: 33,2453           55167                           TS       CDUTEMPX                              
034459,000463: 33,2454           30033                           CA       CDUY                                  
034460,000464: 33,2455           55170                           TS       CDUTEMPY                              
034461,000465: 33,2456           30034                           CA       CDUZ                                  
034462,000466: 33,2457           55171                           TS       CDUTEMPZ                              
034463,000467: 33,2460           31211                           CA       DELVX                                 
034464,000468: 33,2461           55172                           TS       PIPATMPX                              
034465,000469: 33,2462           31213                           CA       DELVY                                 
034466,000470: 33,2463           55173                           TS       PIPATMPY                              
034467,000471: 33,2464           31215                           CA       DELVZ                                 
034468,000472: 33,2465           55174                           TS       PIPATMPZ                              
034469,000473: 
034470,000474: 33,2466           00002                           TC       Q                                     
034471,000475: 
034472,000476: 
034473,000477: 33,2467           10763        REREADAC           CCS      PHASE5                                
034474,000478: 33,2470           12472                           TCF      +2                                    
034475,000479: 33,2471           15321                           TCF      TASKOVER                              
034476,000480: 
034477,000481: 33,2472           11261                           CCS      PIPAGE                                
034478,000482: 33,2473           12042                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
034479,000483: 
034480,000484: 
034481,000485: 33,2474           32532                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
034482,000486: 33,2475           54002                           TS       Q                                     
034483,000487: 
034484,000488: 33,2476           11215                           CCS      DELVZ                                 
034485,000489: 33,2477           12452                           TCF      REPIP4                                #  Z DONE, GO DO CDUS
034486,000490: 33,2500           12503                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
034487,000491: 33,2501           12452                           TCF      REPIP4                                
034488,000492: 33,2502           12452                           TCF      REPIP4                                
034489,000493: 
034490,000494: 33,2503           22007                           ZL                                             
034491,000495: 33,2504           11213                           CCS      DELVY                                 
034492,000496: 33,2505           12510                           TCF      +3                                    
034493,000497: 33,2506           12517                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
034494,000498: 33,2507           12510                           TCF      +1                                    
034495,000499: 33,2510           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
034496,000500: 
034497,000501: 33,2511           11256                           CCS      TEMZ                                  
034498,000502: 33,2512           41256                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
034499,000503: 33,2513           12451                           TCF      DODELVZ                               
034500,000504: 33,2514           12512                           TCF      -2                                    
034501,000505: 33,2515           23215                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
034502,000506: 33,2516           12452                           TCF      REPIP4                                
034503,000507: 
034504,000508: 33,2517           11254        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
034505,000509: 33,2520           41254                           CS       TEMX                                  #  YES
034506,000510: 33,2521           12524                           TCF      +3                                    #  YES
034507,000511: 33,2522           12520                           TCF      -2                                    #  YES
034508,000512: 33,2523           12440                           TCF      REPIP1                                #  NO
034509,000513: 33,2524           55211                           TS       DELVX                                 
034510,000514: 
034511,000515: 33,2525           41255                           CS       TEMY                                  
034512,000516: 33,2526           55213                           TS       DELVY                                 
034513,000517: 
034514,000518: 33,2527           45030                           CS       ZERO                                  #  ZERO X AND Y PIPS
034515,000519: 33,2530           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
034516,000520: 
034517,000521: 33,2531           12446                           TCF      REPIP3                                
034518,000522: 
034519,000523: 33,2532           02062        DONEADR            GENADR   PIPSDONE                              
034520,000524: 
034521,000525: 33,2533           31170        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE, CALLED BY AN RTB FROM
034522,000526: 33,2534           54766                           TS       CDUSPOTY                              #  INTERPRETIVE, LOADS THE CDUS CORRESPON-
034523,000527: 33,2535           31171                           CA       CDUTEMPZ                              #  DING TO PIPTIME INTO THE CDUSPOT VECTOR.
034524,000528: 33,2536           54770                           TS       CDUSPOTZ                              
034525,000529: 33,2537           31167                           CA       CDUTEMPX                              
034526,000530: 33,2540           54772                           TS       CDUSPOTX                              
034527,000531: 33,2541           16035                           TCF      DANZIG                                
034528,000532: 
034529,000533:                                                                                                  #  LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
034530,000534:                                                                                                  #  PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT.  THIS
034531,000535:                                                                                                  #  TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
034532,000536:                                                                                                  #  LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
034533,000537:                                                                                                  #  50 MS PRIOR TO THE NEXT READACCS TASK.
034534,000538: 
034535,000539: 33,2542           35021        LRHTASK            CA       READLBIT                              
034536,000540: 33,2543           71263                           MASK     LRSTAT                                #  IS READLR FLAG SET?
034537,000541: 33,2544           00006                           EXTEND                                         
034538,000542: 33,2545           15321                           BZF      TASKOVER                              #  NO.  BYPASS LR READ.
034539,000543: 
034540,000544: 33,2546           41263                           CS       LRSTAT                                
034541,000545: 33,2547           75015                           MASK     NOLRRBIT                              #  IS LR READ INHIBITED?
034542,000546: 33,2550           00006                           EXTEND                                         
034543,000547: 33,2551           15321                           BZF      TASKOVER                              #  YES.  BYPASS LR READ.
034544,000548: 
034545,000549: 33,2552           37672                           CA       PRIO32                                #  LR READ OK   SET JOB TO DO IT
034546,000550: 33,2553           05142                           TC       NOVAC                                 #  ABOUT 50 MS PRIOR TO PIPA READ
034547,000551: 33,2554  E7,1672                                  EBANK=   HMEAS                                 
034548,000552: 33,2554           03621 66067                     2CADR    LRHJOB                                
034549,000553: 
034550,000554: 33,2556           05321                           TC       TASKOVER                              
034551,000555: 
034552,000556: 
034553,000557:                                                                                                  #  HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
034554,000558:                                                                                                  #  DESCENT PHASE.  HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
034555,000559:                                                                                                  #  FLAG (BIT10) IN LRSTAT.  THE HIGATJOB IS SET UP TO REPOSITION THE LR
034556,000560:                                                                                                  #  ANTENNA FROM POSITION 1 TO POSITION 2.  IF THE REPOSITIONING IS
034557,000561:                                                                                                  #  SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
034558,000562:                                                                                                  #  ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
034559,000563: 
034560,000564: 33,2557           00004        HIGATASK           INHINT                                         
034561,000565: 33,2560           45065                           CS       PRIO3                                 #  SET HIGATE AND LR INHIBIT FLAGS
034562,000566: 33,2561           71263                           MASK     LRSTAT                                
034563,000567: 33,2562           65065                           AD       PRIO3                                 
034564,000568: 33,2563           55263                           TS       LRSTAT                                
034565,000569: 33,2564           37672                           CAF      PRIO32                                
034566,000570: 33,2565           05155                           TC       FINDVAC                               #  SET LR POSITIONING JOB (POS2)
034567,000571: 33,2566  E7,1672                                  EBANK=   HMEAS                                 
034568,000572: 33,2566           03653 66067                     2CADR    HIGATJOB                              
034569,000573: 33,2570           00003                           RELINT                                         
034570,000574: 33,2571           12641                           TCF      CONTSERV                              #  CONTINUE SERVICER
034571,000575: 
034572,000576:                                                                                                  #    MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
034573,000577: 
034574,000578: 33,2572           77776        MUNRETRN           EXIT                                           
034575,000579: 
034576,000580: 33,2573           35016                           CAF      XORFLBIT                              #  WERE WE BELOW 30000 FT LAST PASS?
034577,000581: 33,2574           71263                           MASK     LRSTAT                                
034578,000582: 33,2575           00006                           EXTEND                                         
034579,000583: 33,2576           12761                           BZF      XORCHK                                #  NO - TEST THIS PASS
034580,000584: 
034581,000585: 33,2577           41263                           CS       LRSTAT                                
034582,000586: 33,2600           75010                           MASK     LRBYBIT                               
034583,000587: 33,2601           00006                           EXTEND                                         
034584,000588: 33,2602           12645                           BZF      COPYCYC1                              #  BYPASS LR LOGIC IF BIT15 IS SET.
034585,000589: 
034586,000590: 33,2603           35021                           CA       READLBIT                              #  SEE IF ALT < 35000 FT LAST CYCLE
034587,000591: 33,2604           71263                           MASK     LRSTAT                                
034588,000592: 33,2605           00006                           EXTEND                                         
034589,000593: 33,2606           12772                           BZF      25KCHK                                #  ALT WAS > 35000 FT LAST CYCLE   CHK NOW
034590,000594: 
034591,000595: 33,2607           35014        HITEST             CAF      PSTHIBIT                              #  CHECK FOR HIGATE
034592,000596: 33,2610           71263                           MASK     LRSTAT                                
034593,000597: 33,2611           00006                           EXTEND                                         
034594,000598: 33,2612           12626                           BZF      HIGATCHK                              #  NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE
034595,000599: 
034596,000600: 33,2613           35020        POS2CHK            CAF      BIT7                                  #  VERIFY LR IN POS2
034597,000601: 33,2614           00006                           EXTEND                                         
034598,000602: 33,2615           02033                           RAND     CHAN33                                
034599,000603: 33,2616           00006                           EXTEND                                         
034600,000604: 33,2617           13256                           BZF      UPDATCHK                              #  IT IS-CHECK FOR LR UPDATE
034601,000605: 33,2620           35012                           CAF      BIT13                                 #  NOT IN POS2-MAYBE REPOSITIONING
034602,000606: 33,2621           00006                           EXTEND                                         
034603,000607: 33,2622           02012                           RAND     CHAN12                                
034604,000608: 33,2623           00006                           EXTEND                                         
034605,000609: 33,2624           12637                           BZF      LRPOSALM                              #  LR NOT IN POS2 OR REPOSITIONING-BAD
034606,000610: 33,2625           12641                           TCF      CONTSERV                              #  LR BEING REPOSITIONED-CONTINUE SERV
034607,000611: 
034608,000612: 33,2626           41635        HIGATCHK           CS       TTF/8                                 #  IS TTF > CRITERION?
034609,000613: 33,2627           63216                           AD       RPCRTIME                              
034610,000614: 
034611,000615: 33,2630           00006                           EXTEND                                         
034612,000616: 33,2631           62557                           BZMF     HIGATASK                              #  IF UXBXP > QSW, THEN REPOSITION
034613,000617: 
034614,000618: 33,2632           35021        POS1CHK            CAF      BIT6                                  #  HIGATE NOT IN SIGHT-DO POS1 CHK
034615,000619: 33,2633           00006                           EXTEND                                         
034616,000620: 33,2634           02033                           RAND     33                                    
034617,000621: 33,2635           00006                           EXTEND                                         
034618,000622: 33,2636           13256                           BZF      UPDATCHK                              #  LR IN POS1-CHECK FOR LR UPDATE
034619,000623: 
034620,000624: 33,2637           05646        LRPOSALM           TC       ALARM                                 #  LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
034621,000625: 33,2640           00511                           OCT      511                                   #  AND CONTINUE SERVICER
034622,000626: 33,2641           00004        CONTSERV           INHINT                                         
034623,000627: 33,2642           43255                           CS       BITS4-7                               
034624,000628: 33,2643           71263                           MASK     LRSTAT                                #  CLEAR LR MEASUREMENT MADE DISCRETES.
034625,000629: 33,2644           55263                           TS       LRSTAT                                
034626,000630: 
034627,000631: 33,2645           05413        COPYCYC1           TC       PHASCHNG                              
034628,000632: 33,2646           10035                           OCT      10035                                 
034629,000633: 
034630,000634: 33,2647           06014                           TC       INTPRET                               #  INTPRET DOES A RELINT.
034631,000635: 33,2650           61375                           VLOAD    VXM                                   
034632,000636: 33,2651           03566                                    V1S                                   
034633,000637: 33,2652           01736                                    REFSMMAT                              
034634,000638: 33,2653           77772                           VSL1                                           
034635,000639: 33,2654           03540                           STORE    VN1                                   #  TEMP. REF. VELOCITY VECTOR*2(7)M/CS.
034636,000640: 33,2655           77646                           ABVAL                                          
034637,000641: 33,2656           27516                           STOVL    ABVEL                                 
034638,000642: 33,2657           03560                                    R1S                                   
034639,000643: 33,2660           60505                           VXM      VSR4                                  
034640,000644: 33,2661           01736                                    REFSMMAT                              
034641,000645: 33,2662           03532                           STORE    RN1                                   #  TEMP. REF. POSITION VECTOR*2(29)M.
034642,000646: 33,2663           77656                           UNIT                                           
034643,000647: 33,2664           01760                           STORE    UNITR                                 
034644,000648: 33,2665           47014                           BOFF     RTB                                   
034645,000649: 33,2666           04742                                    FLP70                                 
034646,000650: 33,2667           66671                                    +2                                    
034647,000651: 33,2670           66726                                    COPYCYC3                              
034648,000652: 33,2671           53575                           VLOAD    UNIT                                  
034649,000653: 33,2672           03560                                    R1S                                   
034650,000654: 33,2673           76435                           VXV      VSL1                                  
034651,000655: 33,2674           03707                                    UHYP                                  
034652,000656: 33,2675           27715                           STOVL    UHZP                                  #  DOWNRANGE HALF-UNIT VECTOR FOR R10.
034653,000657: 33,2676           03622                                    WM                                    
034654,000658: 33,2677           72435                           VXV      VSL2                                  
034655,000659: 33,2700           03560                                    R1S                                   
034656,000660: 33,2701           17725                           STODL    DELVS                                 
034657,000661: 33,2702           00045                                    36D                                   
034658,000662: 33,2703           77625                           DSU                                            
034659,000663: 33,2704           02023                                    /LAND/                                
034660,000664: 33,2705           03512                           STORE    HCALC                                 #  NEW HCALC*2(24)M.
034661,000665: 33,2706           77605                           DMP                                            
034662,000666: 33,2707           27134                                    ALTCONV                               
034663,000667: 33,2710           27736                           STOVL    ALTBITS                               #  ALTITUDE FOR R10 IN BIT UNITS.
034664,000668: 33,2711           03566                                    V1S                                   
034665,000669: 33,2712           56236                           VSQ      DDV                                   
034666,000670: 33,2713           00045                                    36D                                   
034667,000671: 33,2714           75205                           DMP      SIGN                                  
034668,000672: 33,2715           27136                                    ARCONV1                               
034669,000673: 33,2716           03520                                    HDOTDISP                              
034670,000674: 33,2717           77776        COPYCYC2           EXIT                                           #  LEAVE ALTITUDE RATE COMPENSATION IN MPAC
034671,000675: 33,2720           35031                           CAF      FIVE                                  
034672,000676: 33,2721           05623                           TC       GENTRAN                               
034673,000677: 33,2722           01523                           ADRES    UNIT/R/                               
034674,000678: 33,2723           01737                           ADRES    RUNIT                                 
034675,000679: 
034676,000680: 33,2724           30154                           CA       MPAC                                  
034677,000681: 33,2725           55757                           TS       DALTRATE                              
034678,000682: 
034679,000683: 33,2726           35033        COPYCYC3           CAF      ELEVEN                                
034680,000684: 33,2727           05623                           TC       GENTRAN                               
034681,000685: 33,2730           01557                           ADRES    R1S                                   
034682,000686: 33,2731           01475                           ADRES    R                                     
034683,000687: 
034684,000688: 33,2732           55172                           TS       PIPATMPX                              
034685,000689: 33,2733           55173                           TS       PIPATMPY                              
034686,000690: 33,2734           55174                           TS       PIPATMPZ                              
034687,000691: 
034688,000692: 33,2735           12213                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
034689,000693: 
034690,000694:                                                                                                  #      ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT.
034691,000695:                                                                                                  #  ITS CALLING SEQUENCE IS AS FOLLOWS:-
034692,000696: 
034693,000697:                                                                                                  #         L        CAF    N
034694,000698:                                                                                                  #         L+1      TC     BANKCALL
034695,000699:                                                                                                  #         L+2      CADR   ALTCHK
034696,000700:                                                                                                  #         L+3      RETURN HERE IF HCALC STILL > SPECIFIED CRITERION.   C(L) = +0.
034697,000701:                                                                                                  #         L+4      RETURN HERE IF HCALC < OR = SPECIFIED CRITERION.   C(A) = C(L) = +0
034698,000702: 
034699,000703:                                                                                                  #  ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK.   N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT,
034700,000704:                                                                                                  #  OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION.
034701,000705: 
034702,000706: 33,2736           00006        ALTCHK             EXTEND                                         
034703,000707: 33,2737           50000                           INDEX    A                                     
034704,000708: 33,2740           32752                           DCA      ALTCRIT                               
034705,000709: 33,2741           52156                           DXCH     MPAC       +1                         
034706,000710: 33,2742           00006                           EXTEND                                         
034707,000711: 33,2743           41512                           DCS      HCALC                                 
034708,000712: 33,2744           20156                           DAS      MPAC       +1                         
034709,000713: 33,2745           06703                           TC       BRANCH     +4                         
034710,000714: 33,2746           35030                           CAF      ZERO                                  #  BETTER THAN A NOOP, PERHAPS
034711,000715: 33,2747           24133                           INCR     BUF2                                  
034712,000716: 33,2750           14670                           TCF      SWRETURN                              
034713,000717: 
034714,000718: 33,2751  33,2751               ALTCRIT            =        25KFT                                 
034715,000719: 
034716,000720: 33,2751           00007 16100  25KFT              2DEC     7620       B-24                       #  (0)
034717,000721: 33,2753           00004 16700  15KFT              2DEC     4572       B-24                       #  (2)
034718,000722: 33,2755           00000 00364  50FT               2DEC     15.24      B-24                       #  (4)
034719,000723: 33,2757           00010 35600  30KFT              2DEC     9144       B-24                       #  (6)
034720,000724: 
034721,000725: 
034722,000726: 33,2761           36216        XORCHK             CAF      SIX                                   #  ARE WE BELOW 30000 FT?
034723,000727: 33,2762           04655                           TC       BANKCALL                              
034724,000728: 33,2763           66736                           CADR     ALTCHK                                
034725,000729: 33,2764           12641                           TCF      CONTSERV                              #  CONTINUE LR UPDATE
034726,000730: 33,2765           05563                           TC       UPFLAG                                #  YES: INHIBIT X-AXIS OVERRIDE
034727,000731: 33,2766           17140                           CADR     XOVINFLG                              
034728,000732: 33,2767           05563                           TC       UPFLAG                                
034729,000733: 33,2770           22377                           CADR     XORFLG                                
034730,000734: 33,2771           12641                           TCF      CONTSERV                              #  CONTINUE LR UPDATE
034731,000735: 
034732,000736: 
034733,000737: 33,2772           35030        25KCHK             CAF      ZERO                                  #  ARE WE BELOW 25000 FT?
034734,000738: 
034735,000739: 33,2773           04655                           TC       BANKCALL                              
034736,000740: 33,2774           66736                           CADR     ALTCHK                                
034737,000741: 33,2775           12641                           TCF      CONTSERV                              
034738,000742: 33,2776           35021                           CAF      READLBIT                              #  SET READLR FLAG TO ENABLE LR READING.
034739,000743: 33,2777           27263        SETLRSTT           ADS      LRSTAT                                
034740,000744: 33,3000           12641                           TCF      CONTSERV                              
034741,000745: 
034742,000746: 33,3001           35025        15KCHK             CAF      TWO                                   #  ARE WE BELOW 15000 FT?
034743,000747: 
034744,000748: 33,3002           04655                           TC       BANKCALL                              
034745,000749: 33,3003           66736                           CADR     ALTCHK                                
034746,000750: 33,3004           12641                           TCF      CONTSERV                              
034747,000751: 33,3005           23661                           LXCH     VSELECT                               
034748,000752: 33,3006           35022                           CAF      READVBIT                              
034749,000753: 33,3007           12777                           TCF      SETLRSTT                              
034750,000754: 
034751,000755:                                                                                                  #  *********************************************************************************************************
034752,000756: 
034753,000757: 
034754,000758: 33,3010           63256        CALCGRAV           UNIT     PDVL                                  #  SAVE UNIT/R/ IN PUSHLIST            (18)
034755,000759: 33,3011           06233                                    ZEROVECS                              
034756,000760: 33,3012           27476                           STOVL    UNITGOBL                              
034757,000761: 33,3013           41560                           AXC,1    PUSH                                  
034758,000762: 33,3014           00002                                    2                                     
034759,000763: 33,3015           01760                           STORE    UNITR                                 
034760,000764: 33,3016           74014                           BON      AXC,1                                 
034761,000765: 33,3017           04304                                    LMOONFLG                              
034762,000766: 33,3020           67046                                    CALCGRV1                              
034763,000767: 33,3021           00000                                    0                                     
034764,000768: 33,3022           41441                           DOT      PUSH                                  
034765,000769: 33,3023           01714                                    UNITW                                 
034766,000770: 33,3024           44316                           DSQ      BDSU                                  
034767,000771: 33,3025           27124                                    DP1/20                                
034768,000772: 33,3026           56325                           PDDL     DDV                                   
034769,000773: 33,3027           27126                                    RESQ                                  
034770,000774: 33,3030           00043                                    34D                                   #  (RN)SQ
034771,000775: 33,3031           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
034772,000776: 33,3032           41205                           DMP      DMP                                   
034773,000777: 33,3033           27130                                    20J                                   
034774,000778: 33,3034           65361                           VXSC     PDDL                                  
034775,000779: 33,3035           01760                                    UNITR                                 
034776,000780: 33,3036           41205                           DMP      DMP                                   
034777,000781: 33,3037           27132                                    2J                                    
034778,000782: 33,3040           00041                                    32D                                   
034779,000783: 33,3041           53361                           VXSC     VAD                                   
034780,000784: 33,3042           01714                                    UNITW                                 
034781,000785: 33,3043           77626                           STADR                                          
034782,000786: 33,3044           74301                           STORE    UNITGOBL                              
034783,000787: 33,3045           41455                           VAD      PUSH                                  #  MPAC = UNIT GRAVITY VECTOR.         (18)
034784,000788: 33,3046           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
034785,000789: 33,3047           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
034786,000790: 33,3050           00050                                    X2                                    #  MAXIMUM PRECISION.
034787,000791: 33,3051           53663                           BDDV*    SLR*                                  
034788,000792: 33,3052           27116                                    -MUDT,1                               
034789,000793: 33,3053           56623                                    0          -21D,2                     
034790,000794: 33,3054           45561                           VXSC     STADR                                 
034791,000795: 33,3055           74227                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
034792,000796: 33,3056           77616                           RVQ                                            
034793,000797: 
034794,000798: 33,3057           61375        CALCRVG            VLOAD    VXM                                   
034795,000799: 33,3060           01212                                    DELV                                  
034796,000800: 33,3061           01736                                    REFSMMAT                              
034797,000801: 33,3062           76561                           VXSC     VSL1                                  
034798,000802: 33,3063           27112                                    KPIP1                                 
034799,000803: 33,3064           03504                           STORE    DELVREF                               
034800,000804: 33,3065           41562                           VSR1     PUSH                                  
034801,000805: 33,3066           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
034802,000806: 
034803,000807: 33,3067           01236                                    GDT/2                                 
034804,000808: 33,3070           65255                           VAD      PDDL                                  #                                      (18)
034805,000809: 33,3071           01226                                    VN                                    
034806,000810: 33,3072           03546                                    PIPTIME1                              
034807,000811: 33,3073           54225                           DSU      SL                                    
034808,000812: 33,3074           01234                                    PIPTIME                               
034809,000813: 33,3075           20207                                    6D                                    
034810,000814: 33,3076           77761                           VXSC                                           
034811,000815: 33,3077           44055                           VAD      STQ                                   
034812,000816: 33,3100           01220                                    RN                                    
034813,000817: 33,3101           00037                                    31D                                   
034814,000818: 33,3102           37532                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
034815,000819: 33,3103           67010                                    CALCGRAV                              
034816,000820: 
034817,000821: 33,3104           53255                           VAD      VAD                                   
034818,000822: 33,3105           77655                           VAD                                            
034819,000823: 33,3106           01226                                    VN                                    
034820,000824: 33,3107           37540                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
034821,000825: 33,3110           00037                                    31D                                   
034822,000826: 
034823,000827: 33,3111           00321 26706  KPIP1              2DEC     .0128                                 #  SCALES DELV TO UNITS OF 2(7) M/CS.
034824,000828: 33,3113           03215 27057  KPIP               2DEC     .1024                                 #  SCALES DELV TO UNITS OF 2(4) M/CS.
034825,000829: 
034826,000830:                                                                                                  #  *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED *********
034827,000831: 
034828,000832: 33,3115           61377 55754  -MUDT              2DEC*    -7.9720645 E+12       B-44*           
034829,000833: 33,3117           77644 65556  -MUDT1             2DEC*    -9.8055560 E+10       B-44*           
034830,000834: 
034831,000835: 33,3121           00000 31000  UNUSEDF3           2DEC     12800      B-28                       
034832,000836: 
034833,000837: 33,3123           01463 06315  DP1/20             2DEC     0.05                                  
034834,000838: 33,3125           00002 11777  RESQ               2DEC*    40.6809913 E12        B-58*           
034835,000839: 33,3127           01023 37155  20J                2DEC     3.24692010 E-2                        
034836,000840: 33,3131           00065 06244  2J                 2DEC     3.24692010 E-3                        
034837,000841: 33,3133           02633 26756  ALTCONV            2DEC     1.40206802 B-4                        #  CONVERTS M*2(-24) TO BIT UNITS *2(-28).
034838,000842: 33,3135           24402 26003  ARCONV1            2DEC     656.167979 B-10                       #  CONV. ALTRATE COMP. TO BIT UNITS<
034839,000843: 33,3137           31000 00000  1SEC(7)            2DEC     100        B-7                        
034840,000844: 33,3141           60763 72204  DPSVEX1            2DEC     -3004.75757 E-2        B-6             
034841,000845: 33,3143           60663 44215  APSVEX1            2DEC     -3030.0259 E-2        B-6             
034842,000846: 33,3145  30,3161               200B17             =        2SEC(17)                              
034843,000847: 
034844,000848:                                                                                                  # ****************************************************************************************************************
034845,000849: 
034846,000850:                                                                                                  #  MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
034847,000851:                                                                                                  #  PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
034848,000852:                                                                                                  #  THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
034849,000853:                                                                                                  #  COORDINATE SYSTEM.
034850,000854: 
034851,000855: 33,3145           74375        MUNRVG             VLOAD    VXSC                                  
034852,000856: 33,3146           01212                                    DELV                                  
034853,000857: 33,3147           27214                                    KPIP2                                 
034854,000858: 33,3150           53206                           PUSH     VAD                                   #  1ST PUSH: DELV IN UNITS OF 2(8) M/CS
034855,000859: 33,3151           01236                                    GDT/2                                 
034856,000860: 33,3152           53206                           PUSH     VAD                                   #  2ND PUSH: (DELV + GDT)/2, UNITS OF 2(7)
034857,000861: 33,3153           03504                                    V                                     #                                      (12)
034858,000862: 33,3154           53361                           VXSC     VAD                                   
034859,000863: 33,3155           21162                                    200B17                                
034860,000864: 33,3156           03476                                    R                                     
034861,000865: 33,3157           37560                           STCALL   R1S                                   #  STORE R SCALED AT 2(+24)M.
034862,000866: 33,3160           67200                                    MUNGRAV                               
034863,000867: 
034864,000868: 33,3161           53255                           VAD      VAD                                   
034865,000869: 33,3162           77655                           VAD                                            #                                      (0)
034866,000870: 33,3163           03504                                    V                                     
034867,000871: 33,3164           03566                           STORE    V1S                                   #  STORE V SCALED AT 2(+7)M/CS.
034868,000872: 33,3165           77646                           ABVAL                                          
034869,000873: 33,3166           27514                           STOVL    ABVELINT                              #  STORE SPEED FOR LR AND DISPLAYS.
034870,000874: 33,3167           03524                                    UNIT/R/                               
034871,000875: 33,3170           72441                           DOT      SL1                                   
034872,000876: 33,3171           03566                                    V1S                                   
034873,000877: 33,3172           17520                           STODL    HDOTDISP                              #  HDOT = V. UNIT(R)*2(7)M/CS.
034874,000878: 33,3173           00045                                    36D                                   
034875,000879: 33,3174           77625                           DSU                                            
034876,000880: 33,3175           02023                                    /LAND/                                
034877,000881: 33,3176           37512                           STCALL   HCALC                                 #  FOR NOW, DISPLAY WHETHER POS OR NEG
034878,000882: 33,3177           66572                                    MUNRETRN                              
034879,000883: 33,3200           77656        MUNGRAV            UNIT                                           #  AT 36D HAVE ABVAL(R), AT 34D R.R
034880,000884: 33,3201           17524                           STODL    UNIT/R/                               
034881,000885: 33,3202           00043                                    34D                                   
034882,000886: 33,3203           55301                           NORM     BDDV                                  
034883,000887: 33,3204           00050                                    X2                                    
034884,000888: 33,3205           27120                                    -MUDT1                                
034885,000889: 33,3206           74257                           SLR*     VXSC                                  
034886,000890: 33,3207           56611                                    0          -11D,2                     
034887,000891: 33,3210           03524                                    UNIT/R/                               
034888,000892: 33,3211           03550                           STORE    GDT1/2                                #  1/2GDT SCALED AT 2(7) M/CS.
034889,000893: 33,3212           77616                           RVQ                                            
034890,000894: 
034891,000895: 33,3213           00150 33343  KPIP2              2DEC     .0064                                 #  SCALES DELV TO UNITS OF 2(8) M/CS.
034892,000896: 33,3215           00303        1.95SECS           DEC      195        B-14                       
034893,000897: 33,3216           77664        RPCRTIME           DEC      -6         E2         B-17            
034894,000898: 33,3217           05463 06315  0.175              2DEC     0.175                                 
034895,000899: 33,3221           04753 20510  0.155              2DEC     0.155                                 
034896,000900: 33,3223           35056 21351  LRWH               2DEC     0.4545454545 B1                         
034897,000901: 33,3225           76643 50641  VSCAL3             2DEC     -4.72441006 B-7                        #  15.5 FT/SEC AT 2(7) M/CS
034898,000902: 33,3227           00004 34035  6.25               2DEC     .01905     B-6                        #  6.25 FT/SEC AT 2(6) M/CS
034899,000903: 33,3231           00012 15300  LRHMAX             2DEC     170688     B-28                       
034900,000904: 33,3233           00014 20000  2SEC(18)           2DEC     200        B-18                       
034901,000905: 33,3235           00000 00310  2SEC(28)           2OCT     00000      00310                      #  2SEC AT 2(28)
034902,000906: 
034903,000907: 33,3237           65363 64451  HSCAL              2DEC     -.3288792                             #  SCALES 1.079 FT/BIT TO 2(22)M.
034904,000908: 
034905,000909:                                                                                                  #  ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED ********
034906,000910: 33,3241           21241 03216  VZSCAL             2DEC     +.5410829105                            #  SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.
034907,000911: 33,3243           30153 23101  VYSCAL             2DEC     +.7565672446                            #  SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.
034908,000912: 33,3245           63105 61733  VXSCAL             2DEC     -.4020043770                            #  SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
034909,000913: 
034910,000914: 33,3247           26314 31463  LRWVZ              2DEC     0.7                                   
034911,000915: 33,3251           26314 31463  LRWVY              2DEC     0.7                                   
034912,000916: 33,3253           14631 23146  LRWVX              2DEC     0.4                                   
034913,000917: 
034914,000918: 33,3255           00110        BITS4-7            OCT      110                                   
034915,000919: 
034916,000920:                                                                                                  #  LRSTAT BIT DEFINITIONS
034917,000921: 33,3256     5010               LRBYBIT            =        BIT15                                 #  LR UPDATE BYPASS FLAG
034918,000922: 33,3256     5014               PSTHIBIT           =        BIT11                                 #  PAST HIGATE FLAG
034919,000923: 33,3256     5015               NOLRRBIT           =        BIT10                                 #  LANDING RADAR REPOSITIONING FLAG
034920,000924: 33,3256     5016               XORFLBIT           =        BIT9                                  #  X-AXIS OVERRIDE LIMIT FLAG
034921,000925: 33,3256     5020               VELDABIT           =        BIT7                                  #  LR VELOCITY MEASUREMENT MADE FLAG
034922,000926: 33,3256     5021               READLBIT           =        BIT6                                  #  OK TO READ LR RANGE DATA FLAG
034923,000927: 33,3256     5022               READVBIT           =        BIT5                                  #  OK TO READ LR VELOCITY DATA FLAG
034924,000928: 33,3256     5023               RNGEDBIT           =        BIT4                                  #  LR ALTITUDE MEASUREMENT MADE FLAG
034925,000929: 
034926,000930:                                                                                                  #  THE FOLLOWING DEFINITIONS ALLOW LRSTAT AND 
034927,000931: 33,3256                        XOVINFLG           =        11872D                                #  X-AXIS OVERRIDE FLAG
034928,000932: 33,3256                        LRBYPASS           =        13561D                                #  LANDING RADAR BYPASS FLAG
034929,000933: 33,3256                        XORFLG             =        13567D                                #  X-AXIS OVERRIDE LIMIT FLAG
034930,000934: 
034931,000935: 33,3256           35015        UPDATCHK           CAF      NOLRRBIT                              #  SEE IF LR UPDATE INHIBITED.
034932,000936: 33,3257           71263                           MASK     LRSTAT                                
034933,000937: 33,3260           10000                           CCS      A                                     
034934,000938: 33,3261           12641                           TCF      CONTSERV                              #  IT IS-NO LR UPDATE
034935,000939: 33,3262           35023                           CAF      RNGEDBIT                              #  NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
034936,000940: 33,3263           71263                           MASK     LRSTAT                                
034937,000941: 33,3264           00006                           EXTEND                                         
034938,000942: 33,3265           13360                           BZF      VMEASCHK                              #  NO ALT MEAS THIS CYCLE-CHECK FOR VEL
034939,000943: 
034940,000944: 33,3266           06014        POSUPDAT           TC       INTPRET                               
034941,000945: 33,3267           61375                           VLOAD    VXM                                   
034942,000946: 33,3270           03663                                    HBEAMNB                               #  RANGE VECTOR IN NB COORDINATES AT 2(22)M
034943,000947: 33,3271           02150                                    XNBPIP                                #  CONVERT TO SM COORDINATES AT 2(23)M
034944,000948: 33,3272           40372                           VSL1     SETPD                                 
034945,000949: 33,3273           00001                                    0                                     
034946,000950: 33,3274           41241                           DOT      DMP                                   
034947,000951: 33,3275           03524                                    UNIT/R/                               #  ALTITUDE AT 2(24)M
034948,000952: 33,3276           03673                                    HMEAS                                 
034949,000953: 33,3277           41261                           SL       DMP                                   
034950,000954: 33,3300           20207                                    6D                                    
034951,000955: 33,3301           27240                                    HSCAL                                 
034952,000956: 33,3302           41425                           DSU      PUSH                                  
034953,000957: 33,3303           03512                                    HCALC                                 
034954,000958: 33,3304           16425                           STODL    DELTAH                                
034955,000959: 33,3305           03512                                    HCALC                                 
034956,000960: 33,3306           43205                           DMP      DAD                                   
034957,000961: 33,3307           27220                                    0.175                                 
034958,000962: 33,3310           26756                                    50FT                                  
034959,000963: 33,3311           51525                           PDDL     ABS                                   
034960,000964: 33,3312           02425                                    DELTAH                                
034961,000965: 33,3313           56204                           BOVB     DDV                                   
034962,000966: 33,3314           57702                                    TCDANZIG                              
034963,000967: 33,3315           77776                           EXIT                                           
034964,000968: 
034965,000969: 33,3316           24156                           INCR     LRLCTR                                
034966,000970: 33,3317           10121                           CCS      OVFIND                                
034967,000971: 33,3320           13560                           TCF      HFAIL                                 #  DELTA H TOO LARGE
034968,000972: 
034969,000973: 33,3321           30075                           CA       FLAGWRD1                              
034970,000974: 33,3322           75026                           MASK     HINHFBIT                              
034971,000975: 33,3323           10000                           CCS      A                                     
034972,000976: 33,3324           13360                           TCF      VMEASCHK                              #  UPDATE INHIBITED - TEST VELOCITY ANYWAY
034973,000977: 
034974,000978: 33,3325           06014                           TC       INTPRET                               #  DO POSITION UPDATE
034975,000979: 
034976,000980: 33,3326           56345                           DLOAD    DDV                                   
034977,000981: 33,3327           03512                                    HCALC                                 #  RESCALE H TO 2(28)M
034978,000982: 33,3330           27232                                    LRHMAX                                
034979,000983: 33,3331           44204                           BOVB     BDSU                                  
034980,000984: 33,3332           67360                                    VMEASCHK                              
034981,000985: 33,3333           17722                                    NEARONE                               
034982,000986: 33,3334           56205                           DMP      DDV                                   
034983,000987: 33,3335           02425                                    DELTAH                                
034984,000988: 33,3336           27224                                    LRWH                                  
034985,000989: 33,3337           53361                           VXSC     VAD                                   
034986,000990: 33,3340           03524                                    UNIT/R/                               
034987,000991: 33,3341           03560                                    R1S                                   
034988,000992: 33,3342           03675                           STORE    GNUR                                  
034989,000993: 33,3343           77776                           EXIT                                           
034990,000994: 
034991,000995: 33,3344           05413                           TC       PHASCHNG                              
034992,000996: 33,3345           10035                           OCT      10035                                 
034993,000997: 
034994,000998: 33,3346           35031                           CA       FIVE                                  
034995,000999: 33,3347           05623                           TC       GENTRAN                               
034996,001000: 33,3350           01674                           ADRES    GNUR                                  
034997,001001: 33,3351           01557                           ADRES    R1S                                   
034998,001002: 33,3352           00003                           RELINT                                         
034999,001003: 
035000,001004: 33,3353           06014                           TC       INTPRET                               
035001,001005: 33,3354           45175                           VLOAD    CALL                                  
035002,001006: 33,3355           03560                                    R1S                                   
035003,001007: 33,3356           67200                                    MUNGRAV                               
035004,001008: 33,3357           77776                           EXIT                                           
035005,001009: 
035006,001010: 33,3360           05413        VMEASCHK           TC       PHASCHNG                              #  RESTART AT NEXT LOCATION
035007,001011: 33,3361           10035                           OCT      10035                                 
035008,001012: 33,3362           35020                           CAF      VELDABIT                              #  IS V READING AVAILABLE?
035009,001013: 33,3363           71263                           MASK     LRSTAT                                
035010,001014: 33,3364           00006                           EXTEND                                         
035011,001015: 33,3365           13544                           BZF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
035012,001016: 
035013,001017: 33,3366           41661        VELUPDAT           CS       VSELECT                               #  PROCESS VELOCITY DATA
035014,001018: 33,3367           60000                           DOUBLE                                         
035015,001019: 33,3370           54001                           TS       L                                     #  -2 VSELECT IN L
035016,001020: 33,3371           60001                           AD       L                                     
035017,001021: 33,3372           60001                           AD       L                                     #  -6 VSELECT IN A
035018,001022: 33,3373           50120                           INDEX    FIXLOC                                
035019,001023: 33,3374           52047                           DXCH     X1                                    #  X1 = -6 VSELECT, X2 = -2 VSELECT
035020,001024: 
035021,001025: 
035022,001026: 33,3375           35014                           CA       EBANK4                                
035023,001027: 33,3376           54003                           TS       EBANK                                 
035024,001028: 33,3377  E4,1662                                  EBANK=   LRXCDU                                
035025,001029: 
035026,001030: 33,3377           31665                           CA       PIPTEM                                #  STORE DELV IN MPAC
035027,001031: 33,3400           22007                           ZL                                             
035028,001032: 33,3401           52155                           DXCH     MPAC                                  
035029,001033: 
035030,001034: 33,3402           31666                           CA       PIPTEM     +1                         
035031,001035: 33,3403           22007                           ZL                                             
035032,001036: 33,3404           52160                           DXCH     MPAC       +3                         
035033,001037: 
035034,001038: 33,3405           31667                           CA       PIPTEM     +2                         
035035,001039: 33,3406           22007                           ZL                                             
035036,001040: 33,3407           52162                           DXCH     MPAC       +5                         
035037,001041: 
035038,001042: 33,3410           31663                           CA       LRYCDU                                #  STORE LRCDUS IN CDUSPOTS
035039,001043: 33,3411           54766                           TS       CDUSPOT                               
035040,001044: 33,3412           31664                           CA       LRZCDU                                
035041,001045: 33,3413           54770                           TS       CDUSPOT    +2                         
035042,001046: 33,3414           31662                           CA       LRXCDU                                
035043,001047: 33,3415           54772                           TS       CDUSPOT    +4                         
035044,001048: 
035045,001049: 33,3416           45026                           CS       ONE                                   
035046,001050: 33,3417           54163                           TS       MODE                                  #  CHANGE STORE MODE TO VECTOR
035047,001051: 
035048,001052: 33,3420           35066                           CA       EBANK7                                
035049,001053: 33,3421           54003                           TS       EBANK                                 #  RESTORE EBANK 7
035050,001054: 33,3422  E7,1472                                  EBANK=   DVCNTR                                
035051,001055: 
035052,001056: 33,3422           30120                           CA       FIXLOC                                
035053,001057: 33,3423           54166                           TS       PUSHLOC                               #  SET PD TO ZERO
035054,001058: 
035055,001059: 33,3424           06014                           TC       INTPRET                               
035056,001060: 33,3425           45113                           PDVL*    CALL                                  
035057,001061: 33,3426           02237                                    VZBEAMNB,1                            #  CONVERT VBEAM FROM NB TO SM
035058,001062: 33,3427           47406                                    TRG*NBSM                              
035059,001063: 33,3430           77715                           PDVL                                           
035060,001064: 33,3431           65361                           VXSC     PDDL                                  
035061,001065: 33,3432           27112                                    KPIP1                                 #  SCALE DELV TO 2(7) M/CS AND PUSH
035062,001066: 33,3433           02261                                    LRVTIME                               #  TIME OF DELV AT 2(28)CS
035063,001067: 33,3434           56225                           DSU      DDV                                   
035064,001068: 33,3435           01234                                    PIPTIME                               #  TU - T(N-1)
035065,001069: 33,3436           27236                                    2SEC(28)                              
035066,001070: 33,3437           76561                           VXSC     VSL1                                  #  G(N-1)(TU - T(N-1))
035067,001071: 33,3440           01236                                    GDT/2                                 #  SCALED AT 2(7) M/CS
035068,001072: 33,3441           53255                           VAD      VAD                                   #  PUSH UP FOR DELV
035069,001073: 33,3442           03504                                    DELVREF                               
035070,001074: 33,3443           47315                           PDVL     VXV                                   
035071,001075: 33,3444           03476                                    R                                     
035072,001076: 33,3445           03622                                    WM                                    
035073,001077: 33,3446           77655                           VAD                                            
035074,001078: 33,3447           65241                           DOT      PDDL                                  
035075,001079: 33,3450           00001                                    0                                     
035076,001080: 33,3451           03671                                    VMEAS                                 
035077,001081: 33,3452           40661                           SL       DMP*                                  
035078,001082: 33,3453           20213                                    10D                                   
035079,001083: 33,3454           50535                                    VZSCAL,2                              
035080,001084: 33,3455           65225                           DSU      PDDL                                  
035081,001085: 33,3456           00007                                    6                                     
035082,001086: 33,3457           41246                           ABS      DMP                                   
035083,001087: 33,3460           27222                                    0.155                                 
035084,001088: 33,3461           65215                           DAD      PDDL                                  
035085,001089: 33,3462           27230                                    6.25                                  
035086,001090: 33,3463           00007                                    6                                     
035087,001091: 33,3464           44246                           ABS      BDSU                                  
035088,001092: 33,3465           77776                           EXIT                                           
035089,001093: 
035090,001094: 33,3466           24156                           INCR     LRMCTR                                
035091,001095: 33,3467           06677                           TC       BRANCH                                
035092,001096: 33,3470           13514                           TCF      VUPDAT                                
035093,001097: 33,3471           13472                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
035094,001098: 
035095,001099: 33,3472           40156        VFAIL              CS       LRSCTR                                #    DELTA Q LARGE
035096,001100: 33,3473           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
035097,001101: 33,3474           13501                           BZF      NOLITE                                
035098,001102: 33,3475           60156                           AD       LRMCTR                                #  M-S
035099,001103: 33,3476           77717                           MASK     NEG3                                  #  TEST FOR M-S > 3
035100,001104: 33,3477           00006                           EXTEND                                         #  IF M-S > 3, THEN TWO OR MORE OF THE
035101,001105: 33,3500           13501                           BZF      +1                                    #    LAST FOUR V READINGS WERE BAD,
035102,001106:                                                                                                  #                TCF             NOLITE                  #   SO TURN ON VELOCITY FAIL LIGHT
035103,001107: 
035104,001108:                                                                                                  #                TC              UPFLAG                  # AND SET BIT TO TURN ON TRACKER FAIL LITE
035105,001109:                                                                                                  #                ADRES           VFLSHFLG
035106,001110: 
035107,001111: 33,3501           30156        NOLITE             CA       LRMCTR                                #  SET S = M
035108,001112: 33,3502           54156                           TS       LRSCTR                                
035109,001113: 
035110,001114: 33,3503           40074                           CS       FLAGWRD0                              
035111,001115: 33,3504           75015                           MASK     VORIDBIT                              
035112,001116: 33,3505           00006                           EXTEND                                         
035113,001117: 33,3506           13520                           BZF      VUPDAT1                               
035114,001118: 
035115,001119: 33,3507           11661                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
035116,001120: 33,3510           13544                           TCF      VALTCHK                               #  NOT Z, DO NOT SET VX INHIBIT
035117,001121: 
035118,001122: 33,3511           35025                           CAF      TWO                                   
035119,001123: 33,3512           55661                           TS       VSELECT                               
035120,001124: 33,3513           13544                           TCF      VALTCHK                               
035121,001125: 
035122,001126: 33,3514           30074        VUPDAT             CA       FLAGWRD0                              
035123,001127: 33,3515           75014                           MASK     VINHFBIT                              
035124,001128: 33,3516           10000                           CCS      A                                     
035125,001129: 33,3517           13544                           TCF      VALTCHK                               #  UPDATE INHIBITED
035126,001130: 
035127,001131: 33,3520           06014        VUPDAT1            TC       INTPRET                               
035128,001132: 33,3521           56345                           DLOAD    DDV                                   
035129,001133: 33,3522           03514                                    ABVELINT                              
035130,001134: 33,3523           27226                                    VSCAL3                                
035131,001135: 33,3524           43204                           BOVB     DAD                                   
035132,001136: 33,3525           67544                                    VALTCHK                               
035133,001137: 33,3526           17722                                    NEARONE                               
035134,001138: 33,3527           41203                           DMP*     DMP                                   
035135,001139: 33,3530           50527                                    LRWVZ,2                               
035136,001140: 33,3531           77761                           VXSC                                           
035137,001141: 33,3532           77655                           VAD                                            
035138,001142: 33,3533           03566                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
035139,001143: 33,3534           03675                           STORE    GNUV                                  
035140,001144: 33,3535           77776                           EXIT                                           
035141,001145: 
035142,001146: 33,3536           05413                           TC       PHASCHNG                              #  DO NOT RE-UPDATE
035143,001147: 33,3537           10035                           OCT      10035                                 
035144,001148: 
035145,001149: 33,3540           35031                           CA       FIVE                                  
035146,001150: 33,3541           05623                           TC       GENTRAN                               #  STORE NEW VELOCITY VECTOR
035147,001151: 33,3542           01674                           ADRES    GNUV                                  
035148,001152: 33,3543           01565                           ADRES    V1S                                   
035149,001153: 
035150,001154: 33,3544  33,3544               ENDVDAT            =        VALTCHK                               
035151,001155: 
035152,001156: 33,3544           05413        VALTCHK            TC       PHASCHNG                              #  DO NOT REPEAT ABOVE
035153,001157: 33,3545           10035                           OCT      10035                                 
035154,001158: 
035155,001159: 33,3546           35022                           CAF      READVBIT                              #  TEST READVEL TO SEE IF VELOCITY READING
035156,001160: 33,3547           71263                           MASK     LRSTAT                                #  IS DESIRED.
035157,001161: 33,3550           00006                           EXTEND                                         
035158,001162: 33,3551           13001                           BZF      15KCHK                                #  TES - READ VELOCITY
035159,001163: 
035160,001164: 33,3552           00004        READV              INHINT                                         
035161,001165: 33,3553           37672                           CAF      PRIO32                                #  SET UP JOB TO READ VELOCITY BEAMS.
035162,001166: 33,3554           05142                           TC       NOVAC                                 
035163,001167: 33,3555  E7,1672                                  EBANK=   HMEAS                                 
035164,001168: 33,3555           03573 66067                     2CADR    LRVJOB                                
035165,001169: 
035166,001170: 33,3557           12641                           TCF      CONTSERV                              #  CONTINUE WITH SERVICER
035167,001171: 
035168,001172: 33,3560           40156        HFAIL              CS       LRRCTR                                
035169,001173: 33,3561           00006                           EXTEND                                         
035170,001174: 33,3562           13567                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
035171,001175: 33,3563           60156                           AD       LRLCTR                                
035172,001176: 33,3564           77717                           MASK     NEG3                                  
035173,001177: 33,3565           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
035174,001178: 33,3566           13567                           BZF      +1                                    
035175,001179:                                                                                                  #                 TCF             NORLITE
035176,001180: 
035177,001181:                                                                                                  #                 TC              UPFLAG                  # AND SET BIT TO TURN ON TRACKER FAIL LITE
035178,001182:                                                                                                  #                 ADRES           HFLSHFLG
035179,001183: 
035180,001184: 33,3567           30156        NORLITE            CA       LRLCTR                                
035181,001185: 33,3570           54156                           TS       LRRCTR                                #  SET R = L
035182,001186: 33,3571           54156                           TS       LRMCTR                                
035183,001187: 
035184,001188: 33,3572           13360                           TCF      VMEASCHK                              
035185,001189: 
035186,001190: 
035187,001191:                                                                                                  #  ********************************************************************************************************
035188,001192:                                                                                                  #     LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
035189,001193:                                                                                                  #     THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
035190,001194:                                                                                                  #     SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
035191,001195:                                                                                                  #     WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
035192,001196:                                                                                                  #     IS SET.  THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
035193,001197: 
035194,001198: 
035195,001199: 33,3573           00004        LRVJOB             INHINT                                         
035196,001200: 33,3574           33735                           CA       24MS                                  #  SET TASK TO READ CDUS + PIPAS
035197,001201: 33,3575           05252                           TC       WAITLIST                              
035198,001202: 33,3576  E4,1660                                  EBANK=   LRVTIME                               
035199,001203: 33,3576           03635 66064                     2CADR    RDGIMS                                
035200,001204: 
035201,001205: 33,3600           11661                           CCS      VSELECT                               #  SEQUENCE LR VEL BEAM SELECTOR
035202,001206: 33,3601           13603                           TCF      +2                                    
035203,001207: 33,3602           35025                           CAF      TWO                                   #  IF ZERO-RESET TO TWO
035204,001208: 33,3603           55661                           TS       VSELECT                               
035205,001209: 33,3604           60000                           DOUBLE                                         #  2XVSELECT USED FOR VBEAM INDEX IN LRVEL
035206,001210: 33,3605           04655                           TC       BANKCALL                              #  GO INITIALIZE LR VEL READ ROUTINE
035207,001211: 33,3606           53061                           CADR     LRVEL                                 
035208,001212: 33,3607           04655                           TC       BANKCALL                              #  PUT LRVJOB TO SLEEP ABOUT 500 MS
035209,001213: 33,3610           17623                           CADR     RADSTALL                              
035210,001214: 33,3611           05225                           TC       ENDOFJOB                              
035211,001215: 
035212,001216: 33,3612           00006                           EXTEND                                         #  GOOD RETURN-STOW AWAY VMEAS
035213,001217: 33,3613           31105                           DCA      SAMPLSUM                              
035214,001218: 33,3614           53671                           DXCH     VMEAS                                 
035215,001219: 
035216,001220: 33,3615           41263                           CS       LRSTAT                                #  SET BIT TO INDICATE VELOCITY
035217,001221: 33,3616           75020                           MASK     VELDABIT                              #  MEASUREMENT MADE.
035218,001222: 33,3617           27263                           ADS      LRSTAT                                
035219,001223: 
035220,001224: 33,3620           05225                           TC       ENDOFJOB                              
035221,001225: 
035222,001226:                                                                                                  #  LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT.  THIS JOB
035223,001227:                                                                                                  #  INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
035224,001228:                                                                                                  #  SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS.  WITH A GOODEND RETURN
035225,001229:                                                                                                  #  THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
035226,001230: 
035227,001231: 33,3621           04655        LRHJOB             TC       BANKCALL                              #  INITIATE LR ALT MEASUREMENT
035228,001232: 33,3622           53045                           CADR     LRALT                                 
035229,001233: 33,3623           04655                           TC       BANKCALL                              #  LRHJOB TO SLEEP ABOUT 95MS
035230,001234: 33,3624           17623                           CADR     RADSTALL                              
035231,001235: 33,3625           05225                           TC       ENDOFJOB                              
035232,001236: 
035233,001237: 33,3626           00006                           EXTEND                                         
035234,001238: 33,3627           31105                           DCA      SAMPLSUM                              #  GOOD RETURN-STORE AWAY LRH DATA
035235,001239: 33,3630           53673                           DXCH     HMEAS                                 #  LRH DATA 1.079 FT/BIT
035236,001240: 
035237,001241: 33,3631           41263                           CS       LRSTAT                                #  SET BIT TO INDICATE RANGE
035238,001242: 33,3632           75023                           MASK     RNGEDBIT                              #  MEASUREMENT MADE.
035239,001243: 33,3633           27263                           ADS      LRSTAT                                
035240,001244: 33,3634           05225                           TC       ENDOFJOB                              #  TERMINATE LRHJOB
035241,001245: 
035242,001246:                                                                                                  #      RDGIMS  IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
035243,001247:                                                                                                  #      AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
035244,001248:                                                                                                  #      ARE SPECIFIED.
035245,001249: 
035246,001250: 33,3635  E4,1660                                  EBANK=   LRVTIME                               
035247,001251: 33,3635           00006        RDGIMS             EXTEND                                         
035248,001252: 33,3636           30025                           DCA      TIME2                                 #  PICK UP TIME2,TIME1
035249,001253: 33,3637           53661                           DXCH     LRVTIME                               #     AND SAVE IN LRVTIME
035250,001254: 
035251,001255: 33,3640           00006                           EXTEND                                         
035252,001256: 33,3641           30033                           DCA      CDUX                                  #  PICK UP CDUX AND CDUY
035253,001257: 33,3642           53663                           DXCH     LRXCDU                                #     AND SAVE IN LRXCDU AND LRYCDU
035254,001258: 
035255,001259: 33,3643           30034                           CA       CDUZ                                  
035256,001260: 33,3644           55664                           TS       LRZCDU                                #  SAVE CDUZ IN LRZCDU
035257,001261: 
035258,001262: 33,3645           30037                           CA       PIPAX                                 
035259,001263: 33,3646           55665                           TS       PIPTEM                                #  SAVE PIPAX IN PIPTEM
035260,001264: 
035261,001265: 33,3647           00006                           EXTEND                                         
035262,001266: 33,3650           30041                           DCA      PIPAY                                 #  PICK UP PIPAY AND PIPAZ
035263,001267: 33,3651           53667                           DXCH     PIPTEM     +1                         #     AND SAVE IN PIPTEM +1 AND PIPTEM +2
035264,001268: 33,3652           05321                           TC       TASKOVER                              
035265,001269: 
035266,001270:                                                                                                  #     HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
035267,001271:                                                                                                  #     THE DESCENT BURN PHASE OF LUNAR LANDING.  THIS JOB INITIATES THE
035268,001272:                                                                                                  #     LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
035269,001273:                                                                                                  #     LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2.  IF THE LR ANTENNA
035270,001274:                                                                                                  #     ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
035271,001275:                                                                                                  #     BEAM VECTORS  ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
035272,001276:                                                                                                  #     RESPECT TO THE NB.  BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
035273,001277:                                                                                                  #     MEASUREMENTS AND THE JOB TERMINATES.
035274,001278: 
035275,001279: 33,3653           04655        HIGATJOB           TC       BANKCALL                              #  START LRPOS2 JOB
035276,001280: 33,3654           53422                           CADR     LRPOS2                                
035277,001281: 33,3655           04655                           TC       BANKCALL                              #  PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
035278,001282: 33,3656           17623                           CADR     RADSTALL                              
035279,001283: 33,3657           05225                           TC       ENDOFJOB                              #  BAD END
035280,001284: 
035281,001285: 33,3660           03673                           TC       SETPOS2                               #  LR IN POS2 - SET UP TRANSFORMATIONS
035282,001286: 
035283,001287: 33,3661           45015                           CS       NOLRRBIT                              #  RESET NOLRREAD FLAG TO ENABLE LR READING
035284,001288: 33,3662           71263                           MASK     LRSTAT                                
035285,001289: 33,3663           55263                           TS       LRSTAT                                
035286,001290: 33,3664           05225                           TC       ENDOFJOB                              
035287,001291: 
035288,001292: 33,3665           04704        SETPOS1            TC       MAKECADR                              #  MUST BE CALLED BY BANKCALL
035289,001293: 33,3666           55674                           TS       LRADRET1                              #  SAVE RETURN CADR, SINCE BUF2 CLOBBERED
035290,001294: 
035291,001295: 33,3667           35030                           CA       ZERO                                  #  INDEX FOR LRALPHA,LRBETA IN POS 1.
035292,001296: 
035293,001297:                                                                                                  #                 TS              LRLCTR                  # SET L,M,R, ANS S TO ZERO
035294,001298:                                                                                                  #                 TS              LRMCTR
035295,001299:                                                                                                  #                 TS              LRRCTR
035296,001300:                                                                                                  #                 TS              LRSCTR
035297,001301: 33,3670           03674                           TC       SETPOS                                #  CONTINUE WITH COMPUTATIONS
035298,001302: 
035299,001303: 33,3671           31674                           CA       LRADRET1                              
035300,001304: 33,3672           04677                           TC       BANKJUMP                              #  RETURN TO CALLER
035301,001305: 
035302,001306: 
035303,001307: 33,3673           35025        SETPOS2            CA       TWO                                   #  INDEX FOR POS2
035304,001308: 33,3674           00006        SETPOS             EXTEND                                         
035305,001309: 33,3675           50000                           INDEX    A                                     
035306,001310: 33,3676           31413                           DCA      LRALPHA                               #  LRALPHA IN A, LRBETA IN L
035307,001311: 33,3677           54772                           TS       CDUSPOT    +4                         #  ROTATION ABOUT X
035308,001312: 33,3700           22766                           LXCH     CDUSPOT                               #  ROTATION ABOUT Y
035309,001313: 33,3701           35030                           CA       ZERO                                  
035310,001314: 33,3702           54770                           TS       CDUSPOT    +2                         #  ZERO ROTATION ABOUT Z.
035311,001315: 
035312,001316: 33,3703           00006                           EXTEND                                         
035313,001317: 33,3704           23660                           QXCH     LRADRET                               #  SAVE RETURN
035314,001318: 
035315,001319: 33,3705           06014                           TC       INTPRET                               
035316,001320: 33,3706           45175                           VLOAD    CALL                                  
035317,001321: 33,3707           06227                                    UNITY                                 #  CONVERT UNITY(ANTENNA) TO NB
035318,001322: 33,3710           47373                                    TRG*SMNB                              
035319,001323: 33,3711           26245                           STOVL    VYBEAMNB                              
035320,001324: 33,3712           06231                                    UNITX                                 #  CONVERT UNITX(ANTENNA) TO NB
035321,001325: 33,3713           77624                           CALL                                           
035322,001326: 33,3714           47413                                    *SMNB*                                
035323,001327: 33,3715           02253                           STORE    VXBEAMNB                              
035324,001328: 33,3716           76435                           VXV      VSL1                                  
035325,001329: 33,3717           02245                                    VYBEAMNB                              
035326,001330: 33,3720           16237                           STODL    VZBEAMNB                              #  Z = X * Y
035327,001331: 33,3721           03417                                    HANGLE                                
035328,001332: 33,3722           41434                           RTB      PUSH                                  
035329,001333: 33,3723           21457                                    CDULOGIC                              
035330,001334: 33,3724           65356                           SIN      PDDL                                  
035331,001335: 33,3725           65346                           COS      PDDL                                  
035332,001336: 33,3726           06233                                    ZEROVECS                              
035333,001337: 33,3727           55525                           PDDL     VDEF                                  
035334,001338: 33,3730           45076                           VCOMP    CALL                                  
035335,001339: 33,3731           47413                                    *SMNB*                                #  CONVERT TO NB
035336,001340: 33,3732           03663                           STORE    HBEAMNB                               
035337,001341: 33,3733           77776                           EXIT                                           
035338,001342: 33,3734           01660                           TC       LRADRET                               
035339,001343: 
035340,001344: 33,3735           00030        24MS               DEC      24         B-14                       

End of include-file SERVICER.agc.  Parent file is MAIN.agc