Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

038202,000002:                                                                                                  ## Copyright:   Public domain.
038203,000003:                                                                                                  ## Filename:    SERVICER.agc
038204,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
038205,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
038206,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
038207,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
038208,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
038209,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
038210,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
038211,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
038212,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
038213,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
038214,000014:                                                                                                  ##              the original YUL assembler.
038215,000015:                                                                                                  ##
038216,000016:                                                                                                  ## Assembler:   yaYUL
038217,000017:                                                                                                  ## Reference:   pp. 857-897
038218,000018:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>,
038219,000019:                                                                                                  ##              Fabrizio Bernardini <fabrizio@spacecraft.it>
038220,000020:                                                                                                  ## Website:     http://www.ibiblio.org/apollo.
038221,000021:                                                                                                  ## Mod history: 2009-06-01 FB   Transcription Batch 4 Assignment.
038222,000022:                                                                                                  ##              2009-06-05 RSB  Fixed a couple of typos, plus a goofy relative
038223,000023:                                                                                                  ##                              label reference from the original source.
038224,000024:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
038225,000025:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-labels which were incorrectly real labels.
038226,000026:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
038227,000027:                                                                                                  ##              2016-12-17 RSB  Proofed text comments with octopus/ProoferComments
038228,000028:                                                                                                  ##                              and corrected the errors found.
038229,000029:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
038230,000030:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
038231,000031:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
038232,000032:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
038233,000033: 
038234,000034:                                                                                                  ## This source code has been transcribed or otherwise adapted from
038235,000035:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
038236,000036:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
038237,000037:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
038238,000038:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
038239,000039:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
038240,000040:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
038241,000041:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
038242,000042:                                                                                                  ## actually created.
038243,000043:                                                                                                  ##
038244,000044:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
038245,000045:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
038246,000046:                                                                                                  ## the listing from which it was transcribed. It has been verified to
038247,000047:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
038248,000048:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
038249,000049:                                                                                                  ##
038250,000050:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
038251,000051:                                                                                                  ##
038252,000052:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
038253,000053: 

Page 857

038255,000055: 37,3410                                           BANK     37                                    
038256,000056: 37,2000                                           SETLOC   SERV1                                 
038257,000057: 37,2000                                           BANK                                           
038258,000058: 
038259,000059: 37,3410  E7,1515                                  EBANK=   DVCNTR                                
038260,000060: 
038261,000061:                                                                                                  #  *************************************   PREREAD   **************************************************************
038262,000062: 
038263,000063: 37,3410                                           COUNT*   $$/SERV                               
038264,000064: 
038265,000065: 37,3410           34757        PREREAD            CAF      SEVEN                                 #  5.7 SPOT TO SKIP LASTBIAS AFTER
038266,000066: 37,3411           03531                           TC       GNUFAZE5                              #  RESTART.
038267,000067: 37,3412           35031                           CAF      PRIO21                                
038268,000068: 37,3413           05072                           TC       NOVAC                                 
038269,000069: 37,3414  E3,1460                                  EBANK=   NBDX                                  
038270,000070: 37,3414           03663 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
038271,000071: 
038272,000072: 37,3416           03544        BIBIBIAS           TC       PIPASR     +3                         #  CLEAR + READ PIPS LAST TIME IN FRE5+F133
038273,000073:                                                                                                  #  DO NOT DESTROY VALUE OF PIPTIME1
038274,000074: 
038275,000075: 37,3417           40103                           CS       FLAGWRD7                              
038276,000076: 37,3420           74773                           MASK     SUPER011                              #  SET V37FLAG AND AVEGFLAG (BITS 5 AND 6
038277,000077: 37,3421           26103                           ADS      FLAGWRD7                              #        OF FLAGWRD7)
038278,000078: 
038279,000079: 37,3422           44735                           CS       DRFTBIT                               
038280,000080: 37,3423           70076                           MASK     FLAGWRD2                              #  RESET DRIFTFLAG
038281,000081: 37,3424           54076                           TS       FLAGWRD2                              
038282,000082: 
038283,000083: 37,3425           34751                           CAF      FOUR                                  #  INITIALIZE DV MONITOR
038284,000084: 37,3426           55257                           TS       PIPAGE                                
038285,000085: 
038286,000086: 37,3427           33537                           CAF      ENDJBCAD                              #  POINT OUTROUTE TO END-OF-JOB.
038287,000087: 37,3430           55260                           TS       OUTROUTE                              
038288,000088: 
038289,000089: 37,3431           37710                           CAF      PRIO22                                
038290,000090: 37,3432           05105                           TC       FINDVAC                               #  TO FIRST ENTRY TO AVERAGE G.
038291,000091: 37,3433  E7,1515                                  EBANK=   DVCNTR                                
038292,000092: 37,3433           02461 46067                     2CADR    NORMLIZE                              
038293,000093: 
038294,000094: 37,3435           34752                           CA       TWO                                   #  5.2SPOT FOR REREADAC AND NORMLIZE
038295,000095: 37,3436           03525        GOREADAX           TC       GNUTFAZ5                              
038296,000096: 37,3437           35000                           CA       2SECS                                 #  WAIT TWO SECONDS FOR READACCS
038297,000097: 37,3440           05224                           TC       VARDELAY                              
038298,000098: 

Page 858

038300,000100:                                                                                                  #  *************************************   READACCS   *************************************************************
038301,000101: 
038302,000102: 37,3441           43540        READACCS           CS       OCT37771                              #  THIS PIECE OF CODING ATTEMPTS TO
038303,000103: 37,3442           60030                           AD       TIME5                                 #  SYNCHRONIZE READACCS WITH THE DIGITAL
038304,000104: 37,3443           10000                           CCS      A                                     #  AUTOPILOT SO THAT A PAXIS RUPT WILL
038305,000105: 37,3444           44753                           CS       ONE                                   #  OCCUR APPROXIMATELY 70 MILLISECONDS
038306,000106: 37,3445           13447                           TCF      +2                                    #  FOLLOWING THE READACCS RUPT.  THE 70 MS
038307,000107: 37,3446           34753                           CA       ONE                                   #  OFFSET WAS CHOSEN SO THAT THE PAXIS
038308,000108: 37,3447           26030                 +2        ADS      TIME5                                 #  RUPT WOULD NOT OCCUR SIMULTANEOUSLY
038309,000109:                                                                                                  #  WITH ANY OF THE 8 SUBSEQUENT R10,R11
038310,000110:                                                                                                  #  INTERRUPTS -- THUS MINIMIZING THE POSS-
038311,000111:                                                                                                  #  IBILITY OF LOSING DOWNRUPTS.
038312,000112: 
038313,000113: 37,3450           03541                           TC       PIPASR                                #  READ THE PIPAS.
038314,000114: 
038315,000115: 37,3451           34756        PIPSDONE           CA       FIVE                                  
038316,000116: 37,3452           03531                           TC       GNUFAZE5                              
038317,000117: 37,3453           34753        REDO5.5            CAF      ONE                                   
038318,000118: 37,3454           55257                           TS       PIPAGE                                
038319,000119: 
038320,000120: 37,3455           34736                           CA       PRIO20                                
038321,000121: 37,3456           05105                           TC       FINDVAC                               
038322,000122: 37,3457  E7,1515                                  EBANK=   DVCNTR                                
038323,000123: 37,3457           02206 66067                     2CADR    SERVICER                              #  SET UP SERVICER JOB
038324,000124: 
038325,000125: 37,3461           34743                           CA       BIT9                                  
038326,000126: 37,3462           00006                           EXTEND                                         
038327,000127: 37,3463           05011                           WOR      DSALMOUT                              #  TURN ON TEST CONNECTOR OUTBIT
038328,000128: 
038329,000129: 37,3464           30103                           CA       FLAGWRD7                              
038330,000130: 37,3465           74747                           MASK     AVEGFBIT                              
038331,000131: 37,3466           00006                           EXTEND                                         
038332,000132: 37,3467           13517                           BZF      AVEGOUT                               #  AVEGFLAG DOWN - SET UP FINAL EXIT
038333,000133: 
038334,000134: 37,3470           30102                           CA       FLAGWRD6                              
038335,000135: 37,3471           74744                           MASK     MUNFLBIT                              
038336,000136: 37,3472           00006                           EXTEND                                         
038337,000137: 37,3473           13515                           BZF      MAKEACCS                              #  MUNFLAG CLEAR - BYPASS LR AND DISP.
038338,000138: 
038339,000139: 37,3474           10755                           CCS      PHASE2                                
038340,000140: 37,3475           13515                           TCF      MAKEACCS                              #  PHASE 2 ACTIVATED - AVOID MULTIPLE R10.
038341,000141: 
038342,000142: 37,3476           34757                           CAF      SEVEN                                 #  SET PIPCTR FOR 4X/SEC RATE.
038343,000143: 37,3477           55056                           TS       PIPCTR                                
038344,000144: 
038345,000145: 37,3500           40025                           CS       TIME1                                 #  SET TBASE2 .05 SECONDS IN THE PAST.
038346,000146: 37,3501           64756                           AD       FIVE                                  
038347,000147: 37,3502           64734                           AD       NEG1/2                                
038348,000148: 37,3503           64734                           AD       NEG1/2                                
038349,000149: 37,3504           57055                           XCH      TBASE2                                

Page 859

038351,000151: 37,3505           34361                           CAF      DEC17                                 #  2.21SPOT FOR R10,R11
038352,000152: 37,3506           54001                           TS       L                                     
038353,000153: 37,3507           40000                           COM                                            
038354,000154: 37,3510           52755                           DXCH     -PHASE2                               
038355,000155: 
038356,000156: 37,3511           36007                           CAF      OCT24                                 #  FIRST R10,R11 IN .200 SECONDS.
038357,000157: 37,3512           05203                           TC       WAITLIST                              
038358,000158: 37,3513  E7,1536                                  EBANK=   UNIT/R/                               
038359,000159: 37,3513           02006 42067                     2CADR    R10,R11                               
038360,000160: 
038361,000161: 37,3515           34751        MAKEACCS           CA       FOUR                                  
038362,000162: 37,3516           13436                           TCF      GOREADAX                              #  DO PHASE CHANGE AND RECALL READACCS
038363,000163: 
038364,000164: 37,3517           00006        AVEGOUT            EXTEND                                         
038365,000165: 37,3520           33536                           DCA      AVOUTCAD                              #  SET UP FINAL SERVICER EXIT
038366,000166: 37,3521           53253                           DXCH     AVGEXIT                               
038367,000167: 
038368,000168: 37,3522           34751                           CA       FOUR                                  #  SET 5.4 SPOT FOR REREADAC AND SERVICER
038369,000169: 37,3523           03525                           TC       GNUTFAZ5                              #  IF REREADAC IS CALLED, IT WILL EXIT
038370,000170: 37,3524           05261                           TC       TASKOVER                              #  END TASK WITHOUT CALLING READACCS
038371,000171: 
038372,000172: 37,3525           54001        GNUTFAZ5           TS       L                                     #  SAVE INPUT IN L
038373,000173: 37,3526           40025                           CS       TIME1                                 
038374,000174: 37,3527           55063                           TS       TBASE5                                #  SET TBASE5
038375,000175: 37,3530           13532                           TCF      +2                                    
038376,000176: 
038377,000177: 37,3531           54001        GNUFAZE5           TS       L                                     #  SAVE INPUT IN L
038378,000178: 37,3532           40001                           CS       L                                     #  -PHASE IN A, PHASE IN L
038379,000179: 37,3533           52763                           DXCH     -PHASE5                               #  SET -PHASE5,PHASE5
038380,000180: 37,3534           00002                           TC       Q                                     
038381,000181: 
038382,000182: 37,3535  E7,1515                                  EBANK=   DVCNTR                                
038383,000183: 37,3535           03661 44067  AVOUTCAD           2CADR    AVGEND                                
038384,000184: 
038385,000185: 37,3537           65772        ENDJBCAD           CADR     SERVEXIT   +2                         
038386,000186: 
038387,000187: 37,3540           37771        OCT37771           OCT      37771                                 
038388,000188: 
038389,000189: 33,2206                                           BANK     33                                    
038390,000190: 33,2000                                           SETLOC   SERVICES                              
038391,000191: 33,2000                                           BANK                                           
038392,000192: 
038393,000193: 33,2206                                           COUNT*   $$/SERV                               
038394,000194: 

Page 860

038396,000196:                                                                                                  #  *************************************   SERVICER   *************************************************************
038397,000197: 
038398,000198: 33,2206           05353        SERVICER           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
038399,000199: 33,2207           16035                           OCT      16035                                 
038400,000200: 33,2210           20000                           OCT      20000                                 
038401,000201: 33,2211  E7,1515                                  EBANK=   DVCNTR                                
038402,000202: 33,2211           02217 66067                     2CADR    GETABVAL                              
038403,000203: 
038404,000204: 33,2213           37716                           CAF      PRIO31                                #  INITIALIZE 1/PIPADT IN CASE RESTART HAS
038405,000205: 33,2214           55075                           TS       1/PIPADT                              #  CAUSED LASTBIAS TO BE SKIPPED.
038406,000206: 
038407,000207: 33,2215           04616                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
038408,000208: 33,2216           15263                           CADR     1/PIPA                                
038409,000209: 
038410,000210: 33,2217           06037        GETABVAL           TC       INTPRET                               
038411,000211: 33,2220           51575                           VLOAD    ABVAL                                 
038412,000212: 33,2221           00325                                    DELV                                  
038413,000213: 33,2222           77776                           EXIT                                           
038414,000214: 33,2223           30154                           CA       MPAC                                  
038415,000215: 33,2224           55246                           TS       ABDELV                                #  ABDELV = CM/SEC*2(-14).
038416,000216: 33,2225           00006                           EXTEND                                         
038417,000217: 33,2226           72020                           MP       KPIP                                  
038418,000218: 33,2227           53514                           DXCH     ABDVCONV                              #  ABDVCONV = M/CS * 2(-5).
038419,000219: 33,2230           00006                           EXTEND                                         
038420,000220: 33,2231           31245                           DCA      MASS                                  
038421,000221: 33,2232           53571                           DXCH     MASS1                                 #  INITIALIZE MASS1 IN CASE WE SKIP MASSMON
038422,000222: 33,2233           40104        MASSMON            CS       FLAGWRD8                              #  ARE WE ON THE SURFACE?
038423,000223: 33,2234           74744                           MASK     SURFFBIT                              
038424,000224: 33,2235           00006                           EXTEND                                         
038425,000225: 33,2236           12254                           BZF      MOONSPOT                              #  YES:  BYPASS MASS MESS
038426,000226: 
038427,000227: 33,2237           30106                           CA       FLGWRD10                              #  NO:  WHICH VEX SHOULD BE USED?
038428,000228: 33,2240           74737                           MASK     APSFLBIT                              
038429,000229: 33,2241           10000                           CCS      A                                     
038430,000230: 33,2242           00006                           EXTEND                                         #  IF EXTEND IS EXECUTED, APSVEX --> A,
038431,000231: 33,2243           32001                           DCA      APSVEX                                #        OTHERWISE DPSVEX --> A
038432,000232: 33,2244           54002                           TS       Q                                     
038433,000233: 
038434,000234: 33,2245           00006                           EXTEND                                         
038435,000235: 33,2246           31514                           DCA      ABDVCONV                              
038436,000236: 33,2247           00006                           EXTEND                                         
038437,000237: 33,2250           10002        OCT10002           DV       Q                                     #  WHERE APPROPRIATE VEX RESIDES
038438,000238: 33,2251           00006                           EXTEND                                         
038439,000239: 33,2252           71244                           MP       MASS                                  
038440,000240: 33,2253           21571                           DAS      MASS1                                 
038441,000241: 
038442,000242: 33,2254           32021        MOONSPOT           CA       KPIP1                                 #  TP MPAC = ABDELV AT 2(14) CM/SEC
038443,000243: 33,2255           07307                           TC       SHORTMP                               #  MULTIPLY BY KPIP1 TO GET

Page 861

038445,000245: 33,2256           52155                           DXCH     MPAC                                  #  ABDELV AT 2(7) M/CS
038446,000246: 33,2257           21510                           DAS      DVTOTAL                               #  UPDATE DVTOTAL FOR DISPLAY
038447,000247: 
038448,000248: 33,2260           02440                           TC       TMPTOSPT                              
038449,000249: 
038450,000250: 33,2261           04616                           TC       BANKCALL                              
038451,000251: 33,2262           47615                           CADR     QUICTRIG                              
038452,000252: 
038453,000253: 33,2263           32414                           CAF      XNBPIPAD                              
038454,000254: 33,2264           04616                           TC       BANKCALL                              
038455,000255: 33,2265           20037                           CADR     FLESHPOT                              
038456,000256: 33,2266           06037                           TC       INTPRET                               
038457,000257: 33,2267           45014        AVERAGEG           BON      CALL                                  
038458,000258: 33,2270           03307                                    MUNFLAG                               
038459,000259: 33,2271           67032                                    RVBOTH                                
038460,000260: 33,2272           66776                                    CALCRVG                               
038461,000261: 33,2273           77776                           EXIT                                           
038462,000262: 33,2274           03552        GOSERV             TC       QUIKFAZ5                              
038463,000263: 
038464,000264: 33,2275           02423        COPYCYCL           TC       COPYCYC                               
038465,000265: 
038466,000266:                                                                                                  #                CA      ZERO             A IS ZERO ON RETURN FROM COPYCYC
038467,000267: 33,2276           55160                           TS       PIPATMPX                              #  STILL UNDER INHINT
038468,000268: 33,2277           55161                           TS       PIPATMPY                              
038469,000269: 33,2300           55162                           TS       PIPATMPZ                              
038470,000270: 
038471,000271: 33,2301           44741                           CS       STEERBIT                              #  CLEAR STEERSW PRIOR TO DVMON.
038472,000272: 33,2302           70076                           MASK     FLAGWRD2                              
038473,000273: 33,2303           54076                           TS       FLAGWRD2                              
038474,000274: 
038475,000275: 33,2304           34745                           CAF      IDLEFBIT                              #  IS THE IDLE FLAG SET?
038476,000276: 33,2305           70103                           MASK     FLAGWRD7                              
038477,000277: 33,2306           10000                           CCS      A                                     
038478,000278: 33,2307           12342                           TCF      NODVMON1                              #  IDLEFLAG = 1, HENCE SET AUXFLAG TO 0.
038479,000279: 
038480,000280: 33,2310           40102                           CS       FLAGWRD6                              
038481,000281: 33,2311           74752                           MASK     AUXFLBIT                              
038482,000282: 33,2312           10000                           CCS      A                                     
038483,000283: 33,2313           12346                           TCF      NODVMON2                              #  AUXFLAG = 0, HENCE SET AUXFLAG TO 1.
038484,000284: 
038485,000285: 33,2314           41251        DVMON              CS       DVTHRUSH                              
038486,000286: 33,2315           61246                           AD       ABDELV                                
038487,000287: 33,2316           00006                           EXTEND                                         
038488,000288: 33,2317           62352                           BZMF     LOTHRUST                              
038489,000289: 
038490,000290: 33,2320           40076                           CS       FLAGWRD2                              #  SET STEERSW.
038491,000291: 33,2321           74741                           MASK     STEERBIT                              
038492,000292: 33,2322           26076                           ADS      FLAGWRD2                              
038493,000293: 
038494,000294: 33,2323           34753        DVCNTSET           CAF      ONE                                   #  ALLOW TWO PASSES MAXIMUM NOW THAT

Page 862

038496,000296: 33,2324           55515                           TS       DVCNTR                                #  THRUST HAS BEEN DETECTED.
038497,000297: 
038498,000298: 33,2325           30106                           CA       FLGWRD10                              #  BRANCH IF APSFLAG IS SET.
038499,000299: 33,2326           74737                           MASK     APSFLBIT                              
038500,000300: 33,2327           10000                           CCS      A                                     
038501,000301: 33,2330           12375                           TCF      USEJETS                               
038502,000302: 
038503,000303: 33,2331           34743                           CA       BIT9                                  #  CHECK GIMBAL FAIL BIT
038504,000304: 33,2332           00006                           EXTEND                                         
038505,000305: 33,2333           02032                           RAND     CHAN32                                
038506,000306: 33,2334           00006                           EXTEND                                         
038507,000307: 33,2335           12375                           BZF      USEJETS                               
038508,000308: 
038509,000309: 33,2336           44736        USEGTS             CS       USEQRJTS                              
038510,000310: 33,2337           70111                           MASK     DAPBOOLS                              
038511,000311: 33,2340           54111                           TS       DAPBOOLS                              
038512,000312: 33,2341           12400                           TCF      SERVOUT                               
038513,000313: 
038514,000314: 33,2342           44752        NODVMON1           CS       AUXFLBIT                              #  SET AUXFLAG TO 0.
038515,000315: 33,2343           70102                           MASK     FLAGWRD6                              
038516,000316: 33,2344           54102                           TS       FLAGWRD6                              
038517,000317: 33,2345           12375                           TCF      USEJETS                               
038518,000318: 33,2346           40102        NODVMON2           CS       FLAGWRD6                              #  SET AUXFLAG TO 1.
038519,000319: 33,2347           74752                           MASK     AUXFLBIT                              
038520,000320: 33,2350           26102                           ADS      FLAGWRD6                              
038521,000321: 33,2351           12375                           TCF      USEJETS                               
038522,000322: 
038523,000323: 33,2352           03552        LOTHRUST           TC       QUIKFAZ5                              
038524,000324: 33,2353           11515                           CCS      DVCNTR                                
038525,000325: 33,2354           12366                           TCF      DECCNTR                               
038526,000326: 
038527,000327: 33,2355           10761                           CCS      PHASE4                                #  COMFAIL JOB ACTIVE?
038528,000328: 33,2356           12400                           TCF      SERVOUT                               #  YES  WON'T NEED ANOTHER.
038529,000329: 
038530,000330: 33,2357           05353                           TC       PHASCHNG                              #  4.37SPOT FOR COMFAIL.
038531,000331: 33,2360           00374                           OCT      00374                                 
038532,000332: 
038533,000333: 33,2361           37713                           CAF      PRIO25                                
038534,000334: 33,2362           05072                           TC       NOVAC                                 
038535,000335: 33,2363  E7,1455                                  EBANK=   WHICH                                 
038536,000336: 33,2363           02571 74067                     2CADR    COMFAIL                               
038537,000337: 
038538,000338: 33,2365           12400                           TCF      SERVOUT                               
038539,000339: 
038540,000340: 33,2366           55570        DECCNTR            TS       DVCNTR1                               
038541,000341: 33,2367           03552                           TC       QUIKFAZ5                              
038542,000342: 33,2370           31570                           CA       DVCNTR1                               
038543,000343: 33,2371           55515                           TS       DVCNTR                                
038544,000344: 33,2372           00004                           INHINT                                         
038545,000345: 33,2373           04674                           TC       IBNKCALL                              #  IF THRUST IS LOW, NO STEERING IS DONE

Page 863

038547,000347: 33,2374           40165                           CADR     STOPRATE                              #  AND THE DESIRED RATES ARE SET TO ZERO.
038548,000348: 33,2375           40111        USEJETS            CS       DAPBOOLS                              
038549,000349: 33,2376           74736                           MASK     USEQRJTS                              
038550,000350: 33,2377           26111                           ADS      DAPBOOLS                              
038551,000351: 33,2400           00003        SERVOUT            RELINT                                         
038552,000352: 33,2401           04616                           TC       BANKCALL                              
038553,000353: 33,2402           40457                           CADR     1/ACCS                                
038554,000354: 
038555,000355: 33,2403           30167                           CA       PRIORITY                              
038556,000356: 33,2404           75004                           MASK     LOW9                                  
038557,000357: 33,2405           54166                           TS       PUSHLOC                               
038558,000358: 33,2406           22007                           ZL                                             
038559,000359: 33,2407           52121                           DXCH     FIXLOC                                #  FIXLOC AND OVFIND
038560,000360: 
038561,000361: 33,2410           03552                           TC       QUIKFAZ5                              
038562,000362: 33,2411           00006                           EXTEND                                         #  EXIT TO SELECTED ROUTINE WHETHER THERE
038563,000363: 33,2412           31253                           DCA      AVGEXIT                               #  IS THRUST OR NOT.  THE STATE OF STEERSW
038564,000364: 33,2413           52006                           DXCH     Z                                     #  WILL CONVEY THIS INFORMATION.
038565,000365: 
038566,000366: 33,2414           02145        XNBPIPAD           ECADR    XNBPIP                                
038567,000367: 
038568,000368: 32,3770                                           BANK     32                                    
038569,000369: 22,2000                                           SETLOC   SERV2                                 
038570,000370: 22,2000                                           BANK                                           
038571,000371: 22,3661                                           COUNT*   $$/SERV                               
038572,000372: 
038573,000373: 22,3661           31235        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
038574,000374: 22,3662           55075                           TS       1/PIPADT                              #  SET UP FREE FALL GYRO COMPENSATION.
038575,000375: 
038576,000376: 22,3663           05504                           TC       UPFLAG                                #  SET DRIFT FLAG.
038577,000377: 22,3664           00036                           ADRES    DRIFTFLG                              
038578,000378: 
038579,000379: 22,3665           04616                           TC       BANKCALL                              
038580,000380: 22,3666           17310                           CADR     PIPFREE                               
038581,000381: 
038582,000382: 22,3667           44743                           CS       BIT9                                  
038583,000383: 22,3670           00006                           EXTEND                                         
038584,000384: 22,3671           03011                           WAND     DSALMOUT                              
038585,000385: 
038586,000386: 22,3672           05327                           TC       2PHSCHNG                              
038587,000387: 22,3673           00005                           OCT      5                                     #  GROUP 5 OFF
038588,000388: 22,3674           05022                           OCT      05022                                 #  GROUP 2 ON
038589,000389: 22,3675           20000                           OCT      20000                                 
038590,000390: 
038591,000391: 22,3676           06037                           TC       INTPRET                               
038592,000392: 22,3677           43014                           SET      CLEAR                                 
038593,000393: 22,3700           01464                                    NOR29FLG                              #  SHUT OFF R29 WHEN SERVICER ENDS.
038594,000394: 22,3701           03664                                    SWANDISP                              #  SHUT OFF R10 WHEN SERVICER ENDS.
038595,000395: 22,3702           45014                           CLEAR    CALL                                  #  RESET MUNFLAG.
038596,000396: 22,3703           03267                                    MUNFLAG                               

Page 864

038598,000398: 22,3704           27467                                    AVETOMID                              
038599,000399: 22,3705           77414                           CLEAR    EXIT                                  
038600,000400: 22,3706           03671                                    V37FLAG                               
038601,000401: 22,3707           31260        AVERTRN            CA       OUTROUTE                              #  RETURN TO DESIRED POINT.
038602,000402: 22,3710           04640                           TC       BANKJUMP                              
038603,000403: 
038604,000404: 22,3711  22,3707               OUTGOAVE           =        AVERTRN                               
038605,000405: 22,3711  E7,1570               DVCNTR1            =        MASS1                                 
038606,000406: 

Page 865

038608,000408: 27,2000                                           SETLOC   SERV3                                 
038609,000409: 27,2000                                           BANK                                           
038610,000410: 27,3321                                           COUNT*   $$/SERV                               
038611,000411: 
038612,000412: 27,3321           00006        SERVIDLE           EXTEND                                         #  DISCONNECT SERVICER FROM ALL GUIDANCE
038613,000413: 27,3322           33357                           DCA      SVEXTADR                              
038614,000414: 27,3323           53253                           DXCH     AVGEXIT                               
038615,000415: 
038616,000416: 27,3324           40103                           CS       FLAGWRD7                              #  DISCONNECT THE DELTA-V MONITOR
038617,000417: 27,3325           74745                           MASK     IDLEFBIT                              
038618,000418: 27,3326           26103                           ADS      FLAGWRD7                              
038619,000419: 
038620,000420: 27,3327           34735                           CAF      LRBYBIT                               #  TERMINATE R12 IF RUNNING.
038621,000421: 27,3330           54107                           TS       FLGWRD11                              
038622,000422: 
038623,000423: 27,3331           00006                           EXTEND                                         
038624,000424: 27,3332           34755                           DCA      NEG0                                  
038625,000425: 27,3333           52753                           DXCH     -PHASE1                               
038626,000426: 
038627,000427: 27,3334           30102                           CA       FLAGWRD6                              #  DO NOT TURN OFF PHASE 2 IF MUNFLAG SET.
038628,000428: 27,3335           74744                           MASK     MUNFLBIT                              
038629,000429: 27,3336           10000                           CCS      A                                     
038630,000430: 27,3337           13343                           TCF      +4                                    
038631,000431: 
038632,000432: 27,3340           00006                           EXTEND                                         
038633,000433: 27,3341           34755                           DCA      NEG0                                  
038634,000434: 27,3342           52755                           DXCH     -PHASE2                               
038635,000435: 
038636,000436: 27,3343           00006                 +4        EXTEND                                         
038637,000437: 27,3344           34755                           DCA      NEG0                                  
038638,000438: 27,3345           52757                           DXCH     -PHASE3                               
038639,000439: 
038640,000440: 27,3346           00006                           EXTEND                                         
038641,000441: 27,3347           34755                           DCA      NEG0                                  
038642,000442: 27,3350           52765                           DXCH     -PHASE6                               
038643,000443: 
038644,000444: 27,3351           34764                           CAF      OCT33                                 #  4.33SPOT FOR GOPOOFIX
038645,000445: 27,3352           54001                           TS       L                                     
038646,000446: 27,3353           40000                           COM                                            
038647,000447: 27,3354           52761                           DXCH     -PHASE4                               
038648,000448: 
038649,000449: 27,3355           15644                           TCF      WHIMPER                               #  PERFORM A SOFTWARE RESTART AND PROCEED
038650,000450:                                                                                                  #  TO GOTOPOOH WHILE SERVICER CONTINUES TO
038651,000451:                                                                                                  #  RUN, ALBEIT IN A GROUND STATE WHERE
038652,000452:                                                                                                  #  ONLY STATE-VECTOR DEPENDENT FUNCTIONS
038653,000453:                                                                                                  #  ARE MAINTAINED.
038654,000454: 
038655,000455: 27,3356  E7,1515                                  EBANK=   DVCNTR                                

Page 866

038657,000457: 27,3356           03770 64067  SVEXTADR           2CADR    SERVEXIT                              
038658,000458: 
038659,000459: 32,3770                                           BANK     32                                    
038660,000460: 32,2000                                           SETLOC   SERV                                  
038661,000461: 32,2000                                           BANK                                           
038662,000462: 32,3770                                           COUNT*   $$/SERV                               
038663,000463: 
038664,000464: 32,3770           05353        SERVEXIT           TC       PHASCHNG                              
038665,000465: 32,3771           00035                           OCT      00035                                 
038666,000466: 
038667,000467: 32,3772           15155                 +2        TCF      ENDOFJOB                              
038668,000468: 
038669,000469: 23,2461                                           BANK     23                                    
038670,000470: 23,2000                                           SETLOC   NORMLIZ                               
038671,000471: 23,2000                                           BANK                                           
038672,000472: 
038673,000473: 23,2461                                           COUNT*   $$/SERV                               
038674,000474: 

Page 867

038676,000476:                                                                                                  #  NORMLIZE AND COPYCYCL
038677,000477: 
038678,000478: 23,2461           06037        NORMLIZE           TC       INTPRET                               
038679,000479: 23,2462           43175                           VLOAD    BOFF                                  
038680,000480: 23,2463           03545                                    RN1                                   
038681,000481: 23,2464           03347                                    MUNFLAG                               
038682,000482: 23,2465           66415                                    NORMLIZ1                              
038683,000483: 23,2466           64252                           VSL6     MXV                                   
038684,000484: 23,2467           01734                                    REFSMMAT                              
038685,000485: 23,2470           37521                           STCALL   R                                     
038686,000486: 23,2471           67130                                    MUNGRAV                               
038687,000487: 23,2472           76575                           VLOAD    VSL1                                  
038688,000488: 23,2473           03553                                    VN1                                   
038689,000489: 23,2474           77721                           MXV                                            
038690,000490: 23,2475           01734                                    REFSMMAT                              
038691,000491: 23,2476           27527                           STOVL    V                                     
038692,000492: 23,2477           01726                                    V(CSM)                                
038693,000493: 23,2500           53435                           VXV      UNIT                                  
038694,000494: 23,2501           01720                                    R(CSM)                                
038695,000495: 23,2502           03720                           STORE    UHYP                                  
038696,000496: 23,2503           77776        ASCSPOT            EXIT                                           
038697,000497: 23,2504           00006                           EXTEND                                         #  MAKE SURE GOUP 2 IS OFF.
038698,000498: 23,2505           34755                           DCA      NEG0                                  
038699,000499: 23,2506           52755                           DXCH     -PHASE2                               
038700,000500: 
038701,000501: 23,2507           04635                           TC       POSTJUMP                              
038702,000502: 23,2510           66420                           CADR     NORMLIZ2                              
038703,000503: 
038704,000504: 33,2415                                           BANK     33                                    
038705,000505: 33,2000                                           SETLOC   SERVICES                              
038706,000506: 33,2000                                           BANK                                           
038707,000507: 33,2415                                           COUNT*   $$/SERV                               
038708,000508: 
038709,000509: 33,2415           77624        NORMLIZ1           CALL                                           
038710,000510: 33,2416           66730                                    CALCGRAV                              
038711,000511: 33,2417           77776                           EXIT                                           
038712,000512: 
038713,000513: 33,2420           32437        NORMLIZ2           CA       EIGHTEEN                              
038714,000514: 33,2421           02424                           TC       COPYCYC    +1                         #  DO NOT COPY MASS IN NORMLIZE
038715,000515: 33,2422           05155                           TC       ENDOFJOB                              
038716,000516: 
038717,000517: 33,2423           36007        COPYCYC            CA       OCT24                                 #  DEC 20
038718,000518: 33,2424           00004                 +1        INHINT                                         
038719,000519: 33,2425           77747                 +2        MASK     NEG1                                  #  REDUCE BY 1 IF ODD
038720,000520: 33,2426           54061                           TS       ITEMP1                                
038721,000521: 33,2427           00006                           EXTEND                                         
038722,000522: 33,2430           50061                           INDEX    ITEMP1                                
038723,000523: 33,2431           31545                           DCA      RN1                                   
038724,000524: 33,2432           50061                           INDEX    ITEMP1                                

Page 868

038726,000526: 33,2433           53221                           DXCH     RN                                    
038727,000527: 33,2434           10061                           CCS      ITEMP1                                
038728,000528: 33,2435           12425                           TCF      COPYCYC    +2                         
038729,000529: 33,2436           00002                           TC       Q                                     #  RETURN UNDER INHINT
038730,000530: 
038731,000531: 33,2437           00022        EIGHTEEN           DEC      18         B-14                       
038732,000532: 

Page 869

038734,000534:                                                                                                  #  ******************* PIPA READER ********************
038735,000535:                                                                                                  #  MOD NO. 00  BY D. LICKLY  DEC. 9 1966
038736,000536: 
038737,000537:                                                                                                  #  FUNCTIONAL DESCRIPTION
038738,000538:                                                                                                  #        SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
038739,000539:                                                                                                  #        PIPA READINGS ARE STORED IN THE VECTOR DELV.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
038740,000540:                                                                                                  #        RESTARTS BEGIN AT REREADAC.
038741,000541: 
038742,000542:                                                                                                  #        AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
038743,000543:                                                                                                  #        VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
038744,000544:                                                                                                  #        THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
038745,000545:                                                                                                  #        VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
038746,000546: 
038747,000547:                                                                                                  #  CALLING SEQUENCE AND EXIT
038748,000548:                                                                                                  #        CALL VIA TC, ISWCALL, ETC.
038749,000549:                                                                                                  #        EXIT IS VIA Q.
038750,000550: 
038751,000551:                                                                                                  #  INPUT
038752,000552:                                                                                                  #        INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
038753,000553: 
038754,000554:                                                                                                  #  OUTPUT
038755,000555:                                                                                                  #        HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
038756,000556:                                                                                                  #        PIPTIME CONTAINS TIME OF PIPA READING.
038757,000557: 
038758,000558:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
038759,000559:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
038760,000560: 
038761,000561: 37,3541                                           BANK     37                                    
038762,000562: 37,2000                                           SETLOC   SERV1                                 
038763,000563: 37,2000                                           BANK                                           
038764,000564: 
038765,000565: 37,3541                                           COUNT*   $$/SERV                               
038766,000566: 
038767,000567: 37,3541           00006        PIPASR             EXTEND                                         

Page 870

038769,000569: 37,3542           30025                           DCA      TIME2                                 
038770,000570: 37,3543           53561                           DXCH     PIPTIME1                              #  CURRENT TIME POSITIVE VALUE
038771,000571: 37,3544           44755                 +3        CS       ZERO                                  #  INITIALIZE THESE AT NEG. ZERO.
038772,000572: 37,3545           55254                           TS       TEMX                                  
038773,000573: 37,3546           55255                           TS       TEMY                                  
038774,000574: 37,3547           55256                           TS       TEMZ                                  
038775,000575: 
038776,000576: 37,3550           34755                           CA       ZERO                                  
038777,000577: 37,3551           54330                           TS       DELVZ                                 
038778,000578: 37,3552           54331                           TS       DELVZ      +1                         
038779,000579: 37,3553           54326                           TS       DELVY                                 
038780,000580: 37,3554           54327                           TS       DELVY      +1                         
038781,000581: 37,3555           54325                           TS       DELVX      +1                         
038782,000582: 37,3556           55257                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
038783,000583: 
038784,000584: 37,3557           00006        REPIP1             EXTEND                                         
038785,000585: 37,3560           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
038786,000586: 37,3561           53255                           DXCH     TEMX                                  
038787,000587: 37,3562           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
038788,000588: 37,3563           54324                           TS       DELVX                                 
038789,000589: 37,3564           22326                           LXCH     DELVY                                 
038790,000590: 
038791,000591: 37,3565           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
038792,000592: 37,3566           57256                           XCH      TEMZ                                  
038793,000593: 37,3567           56041                           XCH      PIPAZ                                 
038794,000594: 37,3570           54330        DODELVZ            TS       DELVZ                                 
038795,000595: 
038796,000596: 37,3571           00006        REPIP4             EXTEND                                         #  COMPUTE GUIDANCE PERIOD
038797,000597: 37,3572           31561                           DCA      PIPTIME1                              
038798,000598: 37,3573           53250                           DXCH     PGUIDE                                
038799,000599: 37,3574           00006                           EXTEND                                         
038800,000600: 37,3575           41235                           DCS      PIPTIME                               
038801,000601: 37,3576           21250                           DAS      PGUIDE                                
038802,000602: 
038803,000603: 37,3577           30032                           CA       CDUX                                  #  READ CDUS INTO HIGH ORDER CDUTEMPS
038804,000604: 37,3600           55155                           TS       CDUTEMPX                              
038805,000605: 37,3601           30033                           CA       CDUY                                  
038806,000606: 37,3602           55156                           TS       CDUTEMPY                              
038807,000607: 37,3603           30034                           CA       CDUZ                                  
038808,000608: 37,3604           55157                           TS       CDUTEMPZ                              
038809,000609: 37,3605           30324                           CA       DELVX                                 
038810,000610: 37,3606           55160                           TS       PIPATMPX                              
038811,000611: 37,3607           30326                           CA       DELVY                                 
038812,000612: 37,3610           55161                           TS       PIPATMPY                              
038813,000613: 37,3611           30330                           CA       DELVZ                                 
038814,000614: 37,3612           55162                           TS       PIPATMPZ                              
038815,000615: 
038816,000616: 37,3613           00002                           TC       Q                                     
038817,000617: 

Page 871

038819,000619: 37,3614           11257        REREADAC           CCS      PIPAGE                                
038820,000620: 37,3615           13441                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
038821,000621: 
038822,000622: 37,3616           33654                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
038823,000623: 37,3617           54002                           TS       Q                                     
038824,000624: 
038825,000625: 37,3620           10330                           CCS      DELVZ                                 
038826,000626: 37,3621           13571                           TCF      REPIP4                                #  Z DONE, GO DO CDUS
038827,000627: 37,3622           13625                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
038828,000628: 37,3623           13571                           TCF      REPIP4                                
038829,000629: 37,3624           13571                           TCF      REPIP4                                
038830,000630: 
038831,000631: 37,3625           22007                           ZL                                             
038832,000632: 37,3626           10326                           CCS      DELVY                                 
038833,000633: 37,3627           13632                           TCF      +3                                    
038834,000634: 37,3630           13641                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
038835,000635: 37,3631           13632                           TCF      +1                                    
038836,000636: 37,3632           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
038837,000637: 
038838,000638: 37,3633           11256                           CCS      TEMZ                                  
038839,000639: 37,3634           41256                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
038840,000640: 37,3635           13570                           TCF      DODELVZ                               
038841,000641: 37,3636           13634                           TCF      -2                                    
038842,000642: 37,3637           22330                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
038843,000643: 37,3640           13571                           TCF      REPIP4                                
038844,000644: 
038845,000645: 37,3641           11254        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
038846,000646: 37,3642           41254                           CS       TEMX                                  #  YES
038847,000647: 37,3643           13646                           TCF      +3                                    #  YES
038848,000648: 37,3644           13642                           TCF      -2                                    #  YES
038849,000649: 37,3645           13557                           TCF      REPIP1                                #  NO
038850,000650: 37,3646           54324                           TS       DELVX                                 
038851,000651: 
038852,000652: 37,3647           41255                           CS       TEMY                                  
038853,000653: 37,3650           54326                           TS       DELVY                                 
038854,000654: 
038855,000655: 37,3651           44755                           CS       ZERO                                  #  ZERO X AND Y PIPS
038856,000656: 37,3652           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
038857,000657: 
038858,000658: 37,3653           13565                           TCF      REPIP3                                
038859,000659: 
038860,000660: 37,3654           03451        DONEADR            GENADR   PIPSDONE                              
038861,000661: 

Page 872

038863,000663: 33,2440                                           BANK     33                                    
038864,000664: 33,2000                                           SETLOC   SERVICES                              
038865,000665: 33,2000                                           BANK                                           
038866,000666: 
038867,000667: 33,2440                                           COUNT*   $$/SERV                               
038868,000668: 
038869,000669: 33,2440           31156        TMPTOSPT           CA       CDUTEMPY                              #  THIS SUBROUTINE, CALLED BY AN RTB FROM
038870,000670: 33,2441           54766                           TS       CDUSPOTY                              #  INTERPRETIVE, LOADS THE CDUS CORRESPON-
038871,000671: 33,2442           31157                           CA       CDUTEMPZ                              #  DING TO PIPTIME INTO THE CDUSPOT VECTOR.
038872,000672: 33,2443           54770                           TS       CDUSPOTZ                              
038873,000673: 33,2444           31155                           CA       CDUTEMPX                              
038874,000674: 33,2445           54772                           TS       CDUSPOTX                              
038875,000675: 33,2446           00002                           TC       Q                                     
038876,000676: 
038877,000677:                                                                                                  #  LRHTASK IS A WAITLIST TASK SET BY READACCS DURING THE DESCENT BRAKING
038878,000678:                                                                                                  #  PHASE WHEN THE ALT TO THE LUNAR SURFACE IS LESS THAN 25,000 FT.  THIS
038879,000679:                                                                                                  #  TASK CLEARS THE ALTITUDE MEASUREMENT MADE DISCRETE AND INITIATES THE
038880,000680:                                                                                                  #  LANDING RADAR MEASUREMENT JOB (LRHJOB) TO TAKE A ALTITUDE MEASUREMENT
038881,000681:                                                                                                  #  50 MS PRIOR TO THE NEXT READACCS TASK.
038882,000682: 
038883,000683: 21,2130                                           BANK     21                                    
038884,000684: 21,2000                                           SETLOC   R10                                   
038885,000685: 21,2000                                           BANK                                           
038886,000686: 
038887,000687: 21,2130                                           COUNT*   $$/SERV                               
038888,000688: 
038889,000689: 21,2130           40107        LRHTASK            CS       FLGWRD11                              
038890,000690: 21,2131           74735                           MASK     LRBYBIT                               
038891,000691: 21,2132           00006                           EXTEND                                         
038892,000692: 21,2133           12150                           BZF      GRP2OFF                               #  LR BYPASS SET - BYPASS ALL LR READING.
038893,000693: 
038894,000694: 21,2134           34746                           CA       READLBIT                              
038895,000695: 21,2135           70107                           MASK     FLGWRD11                              #  IS READLR FLAG SET?
038896,000696: 21,2136           00006                           EXTEND                                         
038897,000697: 21,2137           12150                           BZF      GRP2OFF                               #  NO.  BYPASS LR READ.
038898,000698: 
038899,000699: 21,2140           40107                           CS       FLGWRD11                              
038900,000700: 21,2141           74742                           MASK     NOLRRBIT                              #  IS LR READ INHIBITED?
038901,000701: 21,2142           00006                           EXTEND                                         
038902,000702: 21,2143           12150                           BZF      GRP2OFF                               #  YES.  BYPASS LR READ.
038903,000703: 
038904,000704: 21,2144           37720                           CA       PRIO32                                #  LR READ OK   SET JOB TO DO IT
038905,000705: 21,2145           05072                           TC       NOVAC                                 #  ABOUT 50 MS PRIOR TO PIPA READ
038906,000706: 21,2146  E7,1654                                  EBANK=   HMEAS                                 
038907,000707: 21,2146           03716 70067                     2CADR    LRHJOB                                
038908,000708: 
038909,000709: 21,2150           00006        GRP2OFF            EXTEND                                         
038910,000710: 21,2151           34755                           DCA      NEG0                                  
038911,000711: 21,2152           52755                           DXCH     -PHASE2                               
038912,000712: 21,2153           12021                           TCF      R10,R11A                              
038913,000713: 
038914,000714: 33,2447                                           BANK     33                                    
038915,000715: 33,2000                                           SETLOC   SERVICES                              
038916,000716: 33,2000                                           BANK                                           

Page 873

038918,000718: 33,2447                                           COUNT*   $$/SERV                               
038919,000719: 
038920,000720:                                                                                                  #  HIGATASK IS ENTERED APPROXIMATELY 6 SECS PRIOR TO HIGATE DURING THE
038921,000721:                                                                                                  #  DESCENT PHASE.  HIGATASK SETS THE HIGATE FLAG (BIT11) AND THE LR INHIBIT
038922,000722:                                                                                                  #  FLAG (BIT10) IN LRSTAT.  THE HIGATJOB IS SET UP TO REPOSITION THE LR
038923,000723:                                                                                                  #  ANTENNA FROM POSITION 1 TO POSITION 2.  IF THE REPOSITIONING IS
038924,000724:                                                                                                  #  SUCCESSFUL THE ALT BEAM AND VELOCITY BEAMS ARE TRANSFORMED TO THE NEW
038925,000725:                                                                                                  #  ORIENTATION IN NB COORDINATES AND STORED IN ERASABLE.
038926,000726: 
038927,000727: 33,2447           00004        HIGATASK           INHINT                                         
038928,000728: 33,2450           45015                           CS       PRIO3                                 #  SET HIGATE AND LR INHIBIT FLAGS
038929,000729: 33,2451           70107                           MASK     FLGWRD11                              
038930,000730: 33,2452           65015                           AD       PRIO3                                 
038931,000731: 33,2453           54107                           TS       FLGWRD11                              
038932,000732: 33,2454           37720                           CAF      PRIO32                                
038933,000733: 33,2455           05105                           TC       FINDVAC                               #  SET LR POSITIONING JOB (POS2)
038934,000734: 33,2456  E7,1654                                  EBANK=   HMEAS                                 
038935,000735: 33,2456           03670 66067                     2CADR    HIGATJOB                              
038936,000736: 
038937,000737: 33,2460           12540                           TCF      CONTSERV                              #  CONTINUE SERVICER
038938,000738: 

Page 874

038940,000740:                                                                                                  #  MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
038941,000741: 
038942,000742: 33,2461           77776        MUNRETRN           EXIT                                           
038943,000743: 
038944,000744: 33,2462           40107                           CS       FLGWRD11                              
038945,000745: 33,2463           74735                           MASK     LRBYBIT                               
038946,000746: 33,2464           00006                           EXTEND                                         
038947,000747: 33,2465           12546                           BZF      COPYCYC1                              #  BYPASS LR LOGIC IF BIT15 IS SET.
038948,000748: 
038949,000749: 33,2466           34746                           CA       READLBIT                              #  SEE IF ALT < 35000 FT LAST CYCLE
038950,000750: 33,2467           70107                           MASK     FLGWRD11                              
038951,000751: 33,2470           00006                           EXTEND                                         
038952,000752: 33,2471           12721                           BZF      35KCHK                                #  ALT WAS > 35000 FT LAST CYCLE   CHK NOW
038953,000753: 
038954,000754: 33,2472           34743                           CAF      XORFLBIT                              #  WERE WE BELOW 30000 FT LAST PASS?
038955,000755: 33,2473           70107                           MASK     FLGWRD11                              
038956,000756: 33,2474           00006                           EXTEND                                         
038957,000757: 33,2475           12710                           BZF      XORCHK                                #  NO - TEST THIS PASS
038958,000758: 33,2476           34741        HITEST             CAF      PSTHIBIT                              #  CHECK FOR HIGATE
038959,000759: 33,2477           70107                           MASK     FLGWRD11                              
038960,000760: 33,2500           00006                           EXTEND                                         
038961,000761: 33,2501           12515                           BZF      HIGATCHK                              #  NOT AT HIGATE LAST CYCLE-CHK THIS CYCLE
038962,000762: 
038963,000763: 33,2502           34745        POS2CHK            CAF      BIT7                                  #  VERIFY LR IN POS2
038964,000764: 33,2503           00006                           EXTEND                                         
038965,000765: 33,2504           02033                           RAND     CHAN33                                
038966,000766: 33,2505           00006                           EXTEND                                         
038967,000767: 33,2506           13155                           BZF      UPDATCHK                              #  IT IS-CHECK FOR LR UPDATE
038968,000768: 33,2507           34737                           CAF      BIT13                                 #  NOT IN POS2-MAYBE REPOSITIONING
038969,000769: 33,2510           00006                           EXTEND                                         
038970,000770: 33,2511           02012                           RAND     CHAN12                                
038971,000771: 33,2512           00006                           EXTEND                                         
038972,000772: 33,2513           12536                           BZF      LRPOSALM                              #  LR NOT IN POS2 OR REPOSITIONING-BAD
038973,000773: 33,2514           12540                           TCF      CONTSERV                              #  LR BEING REPOSITIONED-CONTINUE SERV
038974,000774: 
038975,000775: 33,2515           31642        HIGATCHK           CA       TTF/8                                 #  IS TTF > CRITERION?  (TTF IS NEGATIVE)
038976,000776: 33,2516           61427                           AD       RPCRTIME                              
038977,000777: 33,2517           00006                           EXTEND                                         
038978,000778: 33,2520           62531                           BZMF     POS1CHK                               #  NO
038979,000779: 
038980,000780: 33,2521           34741                           CA       EBANK4                                #  MUST SWITCH EBANKS
038981,000781: 33,2522           56003                           XCH      EBANK                                 
038982,000782: 33,2523           54001                           TS       L                                     #  SAVE IN L
038983,000783: 
038984,000784: 33,2524  E4,1545                                  EBANK=   XNBPIP                                
038985,000785: 33,2524           41545                           CS       XNBPIP                                #  UXBXP IN GSOP CH5
038986,000786: 33,2525  E7,1515                                  EBANK=   DVCNTR                                
038987,000787: 33,2525           22003                           LXCH     EBANK                                 #  RESTORE EBANK
038988,000788: 33,2526           61430                           AD       RPCRTQSW                              #  QSW - UXBXP

Page 875

038990,000790: 
038991,000791: 33,2527           00006                           EXTEND                                         
038992,000792: 33,2530           62447                           BZMF     HIGATASK                              #  IF UXBXP > QSW, THEN REPOSITION
038993,000793: 
038994,000794: 33,2531           34746        POS1CHK            CAF      BIT6                                  #  HIGATE NOT IN SIGHT-DO POS1 CHK
038995,000795: 33,2532           00006                           EXTEND                                         
038996,000796: 33,2533           02033                           RAND     33                                    
038997,000797: 33,2534           00006                           EXTEND                                         
038998,000798: 33,2535           13155                           BZF      UPDATCHK                              #  LR IN POS1-CHECK FOR LR UPDATE
038999,000799: 
039000,000800: 33,2536           05567        LRPOSALM           TC       ALARM                                 #  LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
039001,000801: 33,2537           00511                           OCT      511                                   #  AND CONTINUE SERVICER
039002,000802: 33,2540           00004        CONTSERV           INHINT                                         
039003,000803: 33,2541           43154                           CS       BITS4-7                               
039004,000804: 33,2542           70107                           MASK     FLGWRD11                              #  CLEAR LR MEASUREMENT MADE DISCRETES.
039005,000805: 33,2543           54107                           TS       FLGWRD11                              
039006,000806: 
039007,000807: 33,2544           04674                           TC       IBNKCALL                              #  SET LR LITES PROPERLY
039008,000808: 33,2545           53607                           CADR     R12LITES                              
039009,000809: 

Page 876

039011,000811: 33,2546           03552        COPYCYC1           TC       QUIKFAZ5                              
039012,000812: 
039013,000813: 33,2547           30077        R29?               CA       FLAGWRD3                              
039014,000814: 33,2550           75014                           MASK     NR29&RDR                              
039015,000815: 33,2551           10000                           CCS      A                                     #  IS NOR29FLG OR READRFLG SET?
039016,000816: 33,2552           12564                           TCF      R29NODES                              #  YES, SO DON'T DESIGNATE.
039017,000817: 
039018,000818: 33,2553           30110                           CA       RADMODES                              #  NO, SO R29 IS CALLED FOR.
039019,000819: 33,2554           72250                           MASK     OCT10002                              #  IS THE RR NOT ZEROING ITS CDUS, AND
039020,000820: 33,2555           10000                           CCS      A                                     #  IS THE RENDEZVOUS RADAR IN AUTO MODE?
039021,000821: 33,2556           12564                           TCF      R29NODES                              #  NO, SO DON'T DESIGNATE.
039022,000822: 
039023,000823: 33,2557           30110                           CA       RADMODES                              
039024,000824: 33,2560           77710                           MASK     PRIO22                                
039025,000825: 33,2561           10000                           CCS      A                                     #  IS RR REPOSITIONING OR REMODING?
039026,000826: 33,2562           12570                           TCF      NOR29NOW                              #  YES; COME BACK IN 2 SECONDS & TRY AGAIN.
039027,000827: 
039028,000828: 33,2563           12045                           TCF      R29                                   
039029,000829: 
039030,000830: 33,2564           00004        R29NODES           INHINT                                         #  R29 NOT ALLOWED THIS CYCLE.
039031,000831: 33,2565           44742                           CS       DESIGBIT                              #  SHOW THAT DESIGNATION IS OFF.
039032,000832: 33,2566           70110                           MASK     RADMODES                              
039033,000833: 33,2567           54110                           TS       RADMODES                              
039034,000834: 
039035,000835: 33,2570           06037        NOR29NOW           TC       INTPRET                               #  INTPRET DOES A RELINT.
039036,000836: 33,2571           51575                           VLOAD    ABVAL                                 #  MPAC = ABVAL( NEW SM. POSITION VECTOR )
039037,000837: 33,2572           03573                                    R1S                                   
039038,000838: 33,2573           45206                           PUSH     DSU                                   #                                (2)
039039,000839: 33,2574           02333                                    /LAND/                                
039040,000840: 33,2575           03535                           STORE    HCALC                                 #  NEW HCALC*2(24)M.
039041,000841: 33,2576           03775                           STORE    HCALC1                                
039042,000842: 33,2577           47075                           DMPR     RTB                                   
039043,000843: 33,2600           26026                                    ALTCONV                               
039044,000844: 33,2601           21612                                    SGNAGREE                              
039045,000845: 33,2602           27742                           STOVL    ALTBITS                               #  ALTITUDE FOR R10 IN BIT UNITS.
039046,000846: 33,2603           03537                                    UNIT/R/                               
039047,000847: 33,2604           53435                           VXV      UNIT                                  
039048,000848: 33,2605           03720                                    UHYP                                  
039049,000849: 33,2606           27726                           STOVL    UHZP                                  #  DOWNRANGE HALF-UNIT VECTOR FOR R10.
039050,000850: 33,2607           03573                                    R1S                                   
039051,000851: 33,2610           60505                           VXM      VSR4                                  
039052,000852: 33,2611           01734                                    REFSMMAT                              
039053,000853: 33,2612           27545                           STOVL    RN1                                   #  TEMP. REF. POSITION VECTOR*2(29)M.
039054,000854: 33,2613           03601                                    V1S                                   
039055,000855: 33,2614           76505                           VXM      VSL1                                  
039056,000856: 33,2615           01734                                    REFSMMAT                              
039057,000857: 33,2616           27553                           STOVL    VN1                                   #  TEMP. REF. VELOCITY VECTOR*2(7) M/CS.
039058,000858: 33,2617           03537                                    UNIT/R/                               
039059,000859: 33,2620           51435                           VXV      ABVAL                                 

Page 877

039061,000861: 33,2621           03601                                    V1S                                   
039062,000862: 33,2622           63552                           SL1      DSQ                                   
039063,000863: 33,2623           77671                           DDV                                            
039064,000864: 33,2624           47075                           DMPR     RTB                                   
039065,000865: 33,2625           26030                                    ARCONV1                               
039066,000866: 33,2626           21612                                    SGNAGREE                              
039067,000867: 33,2627           77776        COPYCYC2           EXIT                                           #  LEAVE ALTITUDE RATE COMPENSATION IN MPAC
039068,000868: 33,2630           00004                           INHINT                                         
039069,000869: 33,2631           31536                           CA       UNIT/R/                               #  UPDATE RUNIT FOR R10.
039070,000870: 33,2632           55743                           TS       RUNIT                                 
039071,000871: 33,2633           31540                           CA       UNIT/R/    +2                         
039072,000872: 33,2634           55744                           TS       RUNIT      +1                         
039073,000873: 33,2635           31542                           CA       UNIT/R/    +4                         
039074,000874: 33,2636           55745                           TS       RUNIT      +2                         
039075,000875: 33,2637           30154                           CA       MPAC                                  #  LOAD NEW DALTRATE FOR R10.
039076,000876: 33,2640           55716                           TS       DALTRATE                              
039077,000877: 
039078,000878: 33,2641           00006                           EXTEND                                         
039079,000879: 33,2642           31573                           DCA      R1S                                   
039080,000880: 33,2643           53521                           DXCH     R                                     
039081,000881: 33,2644           00006                           EXTEND                                         
039082,000882: 33,2645           31575                           DCA      R1S        +2                         
039083,000883: 33,2646           53523                           DXCH     R          +2                         
039084,000884: 33,2647           00006                           EXTEND                                         
039085,000885: 33,2650           31577                           DCA      R1S        +4                         
039086,000886: 33,2651           53525                           DXCH     R          +4                         
039087,000887: 33,2652           00006                           EXTEND                                         
039088,000888: 33,2653           31601                           DCA      V1S                                   
039089,000889: 33,2654           53527                           DXCH     V                                     
039090,000890: 33,2655           00006                           EXTEND                                         
039091,000891: 33,2656           31603                           DCA      V1S        +2                         
039092,000892: 33,2657           53531                           DXCH     V          +2                         
039093,000893: 33,2660           00006                           EXTEND                                         
039094,000894: 33,2661           31605                           DCA      V1S        +4                         
039095,000895: 33,2662           53533                           DXCH     V          +4                         
039096,000896: 
039097,000897: 33,2663           12275                           TCF      COPYCYCL                              #  COMPLETE THE COYPCYCL.
039098,000898: 

Page 878

039100,000900:                                                                                                  #      ALTCHK COMPARES CURRENT ALTITUDE (IN HCALC) WITH A SPECIFIED ALTITUDE FROM A TABLE BEGINNING AT ALTCRIT.
039101,000901:                                                                                                  #  ITS CALLING SEQUENCE IS AS FOLLOWS:-
039102,000902: 
039103,000903:                                                                                                  #        L       CAF     N
039104,000904:                                                                                                  #        L+1     TC      BANKCALL
039105,000905:                                                                                                  #        L+2     CADR    ALTCHK
039106,000906:                                                                                                  #        L+3     RETURN HERE IF HCALC STILL > SPECIFIED CRITERION.   C(L) = +0.
039107,000907:                                                                                                  #        L+4     RETURN HERE IF HCALC < OR = SPECIFIED CRITERION.   C(A) = C(L) = +0
039108,000908: 
039109,000909:                                                                                                  #  ALTCHK MUST BE BANKCALLED EVEN FROM ITS OWN BANK.   N IS THE LOCATION, RELATIVE TO THE TAG ALTCRIT,
039110,000910:                                                                                                  #  OF THE BEGINNING OF THE DP CONSTANT TO BE USED AS A CRITERION.
039111,000911: 
039112,000912: 33,2664           00006        ALTCHK             EXTEND                                         
039113,000913: 33,2665           50000                           INDEX    A                                     
039114,000914: 33,2666           32700                           DCA      ALTCRIT                               
039115,000915: 33,2667           52156                           DXCH     MPAC       +1                         
039116,000916: 33,2670           00006                           EXTEND                                         
039117,000917: 33,2671           41535                           DCS      HCALC                                 
039118,000918: 33,2672           20156                           DAS      MPAC       +1                         
039119,000919: 33,2673           06727                           TC       BRANCH     +4                         
039120,000920: 33,2674           34755                           CAF      ZERO                                  #  BETTER THAN A NOOP, PERHAPS
039121,000921: 33,2675           24133                           INCR     BUF2                                  
039122,000922: 33,2676           14631                           TCF      SWRETURN                              
039123,000923: 
039124,000924: 33,2677  33,2677               ALTCRIT            =        25KFT                                 
039125,000925: 
039126,000926: 33,2677           00007 16100  25KFT              2DEC     7620       B-24                       #  (0)
039127,000927: 
039128,000928: 33,2701           00016 34200  50KFT              2DEC     15240      B-24                       #  (2)
039129,000929: 
039130,000930: 33,2703           00000 00364  50FT               2DEC     15.24      B-24                       #  (4)
039131,000931: 
039132,000932: 33,2705           00010 35600  30KFT              2DEC     9144       B-24                       #  (6)
039133,000933: 
039134,000934: 33,2707           01414        2KFT/SEC           DEC      6.096      B-7                        #  2000 FT/SEC AT 2(7) M/CS
039135,000935: 
039136,000936: 

A remark was likely to be needed here to explain XORCHK — 4/Jun/09,FB

039138,000938: 
039139,000939: 33,2710           36242        XORCHK             CAF      SIX                                   #  ARE WE BELOW 30000 FT?
039140,000940: 33,2711           04616                           TC       BANKCALL                              
039141,000941: 33,2712           66664                           CADR     ALTCHK                                
039142,000942: 33,2713           12476                           TCF      HITEST                                #  CONTINUE LR UPDATE
039143,000943: 33,2714           05504                           TC       UPFLAG                                #  YES: INHIBIT X-AXIS OVERRIDE
039144,000944: 33,2715           00311                           ADRES    XOVINFLG                              
039145,000945: 33,2716           05504                           TC       UPFLAG                                
039146,000946: 33,2717           00253                           ADRES    XORFLG                                
039147,000947: 33,2720           12476                           TCF      HITEST                                #  CONTINUE LR UPDATE
039148,000948: 
039149,000949: 33,2721           34752        35KCHK             CAF      TWO                                   #  ARE WE BELOW 35000 FT?
039150,000950: 

Page 879

039152,000952: 33,2722           04616                           TC       BANKCALL                              
039153,000953: 33,2723           66664                           CADR     ALTCHK                                
039154,000954: 33,2724           12540                           TCF      CONTSERV                              
039155,000955: 33,2725           05504                           TC       UPFLAG                                
039156,000956: 33,2726           00256                           ADRES    READLR                                #  SET READLR FLAG TO ENABLE LR READING.
039157,000957: 33,2727           12540                           TCF      CONTSERV                              
039158,000958: 

Page 880

039160,000960:                                                                                                  #  *********************************************************************************************************
039161,000961: 
039162,000962: 33,2730           41456        CALCGRAV           UNIT     PUSH                                  #  SAVE UNIT/R/ IN PUSHLIST              (18)
039163,000963: 33,2731           03537                           STORE    UNIT/R/                               
039164,000964: 33,2732           67340                           LXC,1    SLOAD                                 #  RTX2 = 0 IF EARTH ORBIT, =2 IF LUNAR.
039165,000965: 33,2733           02777                                    RTX2                                  
039166,000966: 33,2734           03000                                    RTX2                                  
039167,000967: 33,2735           50076                           DCOMP    BMN                                   
039168,000968: 33,2736           66765                                    CALCGRV1                              
039169,000969: 33,2737           50375                           VLOAD    DOT                                   #                                        (12)
039170,000970: 33,2740           06514                                    UNITZ                                 
039171,000971: 33,2741           03537                                    UNIT/R/                               
039172,000972: 33,2742           41552                           SL1      PUSH                                  #                                        (14)
039173,000973: 33,2743           44316                           DSQ      BDSU                                  
039174,000974: 33,2744           27027                                    DP1/20                                
039175,000975: 33,2745           56325                           PDDL     DDV                                   
039176,000976: 33,2746           26040                                    RESQ                                  
039177,000977: 33,2747           00043                                    34D                                   #  (RN)SQ
039178,000978: 33,2750           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
039179,000979: 33,2751           41205                           DMP      DMP                                   
039180,000980: 33,2752           26042                                    20J                                   
039181,000981: 33,2753           65361                           VXSC     PDDL                                  
039182,000982: 33,2754           03537                                    UNIT/R/                               
039183,000983: 33,2755           41205                           DMP      DMP                                   
039184,000984: 33,2756           26044                                    2J                                    
039185,000985: 33,2757           00041                                    32D                                   
039186,000986: 33,2760           76561                           VXSC     VSL1                                  
039187,000987: 33,2761           06514                                    UNITZ                                 
039188,000988: 33,2762           45455                           VAD      STADR                                 
039189,000989: 33,2763           74256                           STORE    UNITGOBL                              
039190,000990: 33,2764           41455                           VAD      PUSH                                  #  MPAC = UNIT GRAVITY VECTOR.           (18)
039191,000991: 33,2765           60345        CALCGRV1           DLOAD    NORM                                  #  PERFORM A NORMALIZATION ON RMAGSQ IN
039192,000992: 33,2766           00043                                    34D                                   #  ORDER TO BE ABLE TO SCALE THE MU FOR
039193,000993: 33,2767           00050                                    X2                                    #  MAXIMUM PRECISION.
039194,000994: 33,2770           53663                           BDDV*    SLR*                                  
039195,000995: 33,2771           26032                                    -MUDT,1                               
039196,000996: 33,2772           56623                                    0          -21D,2                     
039197,000997: 33,2773           45561                           VXSC     STADR                                 
039198,000998: 33,2774           74214                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
039199,000999: 33,2775           77616                           RVQ                                            
039200,001000: 
039201,001001: 33,2776           61375        CALCRVG            VLOAD    VXM                                   
039202,001002: 33,2777           00325                                    DELV                                  
039203,001003: 33,3000           01734                                    REFSMMAT                              
039204,001004: 33,3001           76561                           VXSC     VSL1                                  
039205,001005: 33,3002           26022                                    KPIP1                                 
039206,001006: 33,3003           03527                           STORE    DELVREF                               
039207,001007: 33,3004           41562                           VSR1     PUSH                                  
039208,001008: 33,3005           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7) M/CS

Page 881

039210,001010: 33,3006           01237                                    GDT/2                                 
039211,001011: 33,3007           65255                           VAD      PDDL                                  #                                        (18)
039212,001012: 33,3010           01227                                    VN                                    
039213,001013: 33,3011           01250                                    PGUIDE                                
039214,001014: 33,3012           74261                           SL       VXSC                                  
039215,001015: 33,3013           20207                                    6D                                    
039216,001016: 33,3014           44055                           VAD      STQ                                   
039217,001017: 33,3015           01221                                    RN                                    
039218,001018: 33,3016           00037                                    31D                                   
039219,001019: 33,3017           37545                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
039220,001020: 33,3020           66730                                    CALCGRAV                              
039221,001021: 
039222,001022: 33,3021           53255                           VAD      VAD                                   
039223,001023: 33,3022           77655                           VAD                                            
039224,001024: 33,3023           01227                                    VN                                    
039225,001025: 33,3024           37553                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
039226,001026: 33,3025           00037                                    31D                                   
039227,001027: 
039228,001028: 33,3026           01463 06315  DP1/20             2DEC     0.05                                  
039229,001029: 33,3030           00010 00000  SHIFT11            2DEC     1          B-11                       
039230,001030: 

Page 882

039232,001032:                                                                                                  # ****************************************************************************************************************
039233,001033:                                                                                                  #  MUNRVG IS A SPECIAL AVERAGE G INTEGRATION ROUTINE USED BY THRUSTING
039234,001034:                                                                                                  #  PROGRAMS WHICH FUNCTION IN THE VICINITY OF AN ASSUMED SPHERICAL MOON.
039235,001035:                                                                                                  #  THE INPUT AND OUTPUT QUANTITIES ARE REFERENCED TO THE STABLE MEMBER
039236,001036:                                                                                                  #  COORDINATE SYSTEM.
039237,001037: 
039238,001038: 33,3032           41575        RVBOTH             VLOAD    PUSH                                  
039239,001039: 33,3033           02317                                    G(CSM)                                
039240,001040: 33,3034           65255                           VAD      PDDL                                  
039241,001041: 33,3035           01726                                    V(CSM)                                
039242,001042: 33,3036           01250                                    PGUIDE                                
039243,001043: 33,3037           74271                           DDV      VXSC                                  
039244,001044: 33,3040           27031                                    SHIFT11                               
039245,001045: 33,3041           77655                           VAD                                            
039246,001046: 33,3042           01720                                    R(CSM)                                
039247,001047: 33,3043           37573                           STCALL   R1S                                   
039248,001048: 33,3044           67130                                    MUNGRAV                               
039249,001049: 33,3045           53255                           VAD      VAD                                   
039250,001050: 33,3046           01726                                    V(CSM)                                
039251,001051: 33,3047           77626                           STADR                                          
039252,001052: 33,3050           74176                           STORE    V1S                                   
039253,001053: 33,3051           77776                           EXIT                                           
039254,001054: 33,3052           03552                           TC       QUIKFAZ5                              
039255,001055: 33,3053           06037                           TC       INTPRET                               
039256,001056: 33,3054           77775                           VLOAD                                          
039257,001057: 33,3055           03563                                    GDT1/2                                
039258,001058: 33,3056           26317                           STOVL    G(CSM)                                
039259,001059: 33,3057           03573                                    R1S                                   
039260,001060: 33,3060           25720                           STOVL    R(CSM)                                
039261,001061: 33,3061           03601                                    V1S                                   
039262,001062: 33,3062           01726                           STORE    V(CSM)                                
039263,001063: 33,3063           77776                           EXIT                                           
039264,001064: 33,3064           03552                           TC       QUIKFAZ5                              
039265,001065: 33,3065           06037                           TC       INTPRET                               
039266,001066: 33,3066           74375        MUNRVG             VLOAD    VXSC                                  
039267,001067: 33,3067           00325                                    DELV                                  
039268,001068: 33,3070           26024                                    KPIP2                                 
039269,001069: 33,3071           53206                           PUSH     VAD                                   #  1ST PUSH:  DELV IN UNITS OF 2(8) M/CS
039270,001070: 33,3072           01237                                    GDT/2                                 
039271,001071: 33,3073           53206                           PUSH     VAD                                   #  2ND PUSH:  (DELV + GDT)/2, UNITS OF 2(7)
039272,001072: 33,3074           03527                                    V                                     #                                (12)
039273,001073: 33,3075           56325                           PDDL     DDV                                   
039274,001074: 33,3076           01250                                    PGUIDE                                
039275,001075: 33,3077           27031                                    SHIFT11                               
039276,001076: 33,3100           77761                           VXSC                                           
039277,001077: 33,3101           77655                           VAD                                            
039278,001078: 33,3102           03521                                    R                                     
039279,001079: 33,3103           37573                           STCALL   R1S                                   #  STORE R SCALED AT 2(+24) M.
039280,001080: 33,3104           67130                                    MUNGRAV                               

Page 883

039282,001082: 33,3105           53255                           VAD      VAD                                   
039283,001083: 33,3106           77655                           VAD                                            #                                        (0)
039284,001084: 33,3107           03527                                    V                                     
039285,001085: 33,3110           03601                           STORE    V1S                                   #  STORE V SCALED AT 2(+7) M/CS.
039286,001086: 33,3111           77646                           ABVAL                                          
039287,001087: 33,3112           27472                           STOVL    ABVEL                                 #  STORE SPEED FOR LR AND DISPLAYS.
039288,001088: 33,3113           03537                                    UNIT/R/                               
039289,001089: 33,3114           72441                           DOT      SL1                                   
039290,001090: 33,3115           03601                                    V1S                                   
039291,001091: 33,3116           27474                           STOVL    HDOTDISP                              #  HDOT = V. UNIT(R)*2(7) M/CS.
039292,001092: 33,3117           03573                                    R1S                                   
039293,001093: 33,3120           72435                           VXV      VSL2                                  
039294,001094: 33,3121           02325                                    WM                                    
039295,001095: 33,3122           17734                           STODL    DELVS                                 #  LUNAR ROTATION CORRECTION TERM*2(5) M/CS.
039296,001096: 33,3123           00045                                    36D                                   
039297,001097: 33,3124           77625                           DSU                                            
039298,001098: 33,3125           02333                                    /LAND/                                
039299,001099: 33,3126           37535                           STCALL   HCALC                                 #  FOR NOW, DISPLAY WHETHER POS OR NEG
039300,001100: 33,3127           66461                                    MUNRETRN                              
039301,001101: 33,3130           77656        MUNGRAV            UNIT                                           #  AT 36D HAVE ABVAL(R), AT 34D R.R
039302,001102: 33,3131           17537                           STODL    UNIT/R/                               
039303,001103: 33,3132           00043                                    34D                                   
039304,001104: 33,3133           55261                           SL       BDDV                                  
039305,001105: 33,3134           20207                                    6D                                    
039306,001106: 33,3135           26036                                    -MUDTMUN                              
039307,001107: 33,3136           74205                           DMP      VXSC                                  
039308,001108: 33,3137           27031                                    SHIFT11                               
039309,001109: 33,3140           03537                                    UNIT/R/                               
039310,001110: 33,3141           03563                           STORE    GDT1/2                                #  1/2GDT SCALED AT 2(7) M/CS.
039311,001111: 33,3142           77616                           RVQ                                            
039312,001112: 
039313,001113: 33,3143           00303        1.95SECS           DEC      195        B-14                       
039314,001114: 33,3144           00005 33212  7.5                2DEC     .02286     B-6                        #  7.5 FT/SEC AT 2(6) M/CS
039315,001115: 
039316,001116: 33,3146           00014 20000  2SEC(18)           2DEC     200        B-18                       
039317,001117: 
039318,001118: 33,3150           00000 00310  2SEC(28)           2OCT     0000000310                            #  2SEC AT 2(28)
039319,001119: 
039320,001120: 33,3152           00000 00620  4SEC(28)           2DEC     400        B-28                       
039321,001121: 
039322,001122: 33,3154           00110        BITS4-7            OCT      110                                   
039323,001123: 
039324,001124: 

Page 884

039326,001126: 33,3155           34742        UPDATCHK           CAF      NOLRRBIT                              #  SEE IF LR UPDATE INHIBITED.
039327,001127: 33,3156           70107                           MASK     FLGWRD11                              
039328,001128: 33,3157           10000                           CCS      A                                     
039329,001129: 33,3160           12540                           TCF      CONTSERV                              #  IT IS-NO LR UPDATE
039330,001130: 33,3161           34750                           CAF      RNGEDBIT                              #  NO INHIBIT - SEE ALT MEAS. THIS CYCLE.
039331,001131: 33,3162           70107                           MASK     FLGWRD11                              
039332,001132: 33,3163           00006                           EXTEND                                         
039333,001133: 33,3164           13310                           BZF      VMEASCHK                              #  NO ALT MEAS THIS CYCLE-CHECK FOR VEL
039334,001134: 
039335,001135: 33,3165           30120        POSUPDAT           CA       FIXLOC                                #  SET PUSHLIST TO ZERO
039336,001136: 33,3166           54166                           TS       PUSHLOC                               
039337,001137: 
039338,001138: 33,3167           06037                           TC       INTPRET                               
039339,001139: 33,3170           61375                           VLOAD    VXM                                   
039340,001140: 33,3171           02273                                    HBEAMNB                               
039341,001141: 33,3172           02146                                    XNBPIP                                #  HBEAM SM AT 2(2)
039342,001142: 33,3173           72515                           PDVL     VSL2                                  #  STORE HBEAM IN PD 0-5
039343,001143: 33,3174           03601                                    V1S                                   #  SCALE V AT 2(5) M/CS
039344,001144: 33,3175           50255                           VAD      DOT                                   
039345,001145: 33,3176           03734                                    DELVS                                 #  V RELATIVE TO SURFACE AT 2(5) M/CS
039346,001146: 33,3177           00001                                    0D                                    #  V ALONG HBEAM AT 2(7) M/CS
039347,001147: 33,3200           77405                           DMP      EXIT                                  
039348,001148: 33,3201           01355                                    RADSKAL                               #  SCALE TO RADAR COUNTS X 5
039349,001149: 
039350,001150: 33,3202           40110                           CS       FLGWRD12                              #  TEST LR ALTITUDE SCALE FACTOR
039351,001151: 33,3203           74743                           MASK     ALTSCBIT                              
039352,001152: 33,3204           00006                           EXTEND                                         
039353,001153: 33,3205           13210                           BZF      +3                                    #  BRANCH IF HIGH SCALE
039354,001154: 
039355,001155: 33,3206           31356                           CA       SKALSKAL                              #  RESCALE IF LOW SCALE
039356,001156: 33,3207           07307                           TC       SHORTMP                               
039357,001157: 
039358,001158: 33,3210           06037                 +3        TC       INTPRET                               
039359,001159: 33,3211           54215                           DAD      SL                                    #  CORRECT HMEAS FOR DOPPLER EFFECT
039360,001160: 33,3212           03655                                    HMEAS                                 
039361,001161: 33,3213           20210                                    7D                                    
039362,001162: 33,3214           74205                           DMP      VXSC                                  #  SLANT RANGE AT 2(21), PUSH UP FOR HBEAM
039363,001163: 33,3215           26011                                    HSCAL                                 #  SLANT RANGE VECTOR AT 2(23) M
039364,001164: 33,3216           45241                           DOT      DSU                                   
039365,001165: 33,3217           03537                                    UNIT/R/                               #  ALTITUDE AT 2(24) M
039366,001166: 33,3220           03535                                    HCALC                                 #  DELTA H AT 2(24) M
039367,001167: 33,3221           03665                           STORE    DELTAH                                
039368,001168: 33,3222           77776                           EXIT                                           
039369,001169: 
039370,001170: 33,3223           30107                           CA       FLGWRD11                              
039371,001171: 33,3224           74741                           MASK     PSTHIBIT                              
039372,001172: 33,3225           00006                           EXTEND                                         #  DO NOT PERFORM DATA REASONABLENESS TEST
039373,001173: 33,3226           13243                           BZF      NOREASON                              #  UNTIL AFTER HIGATE

Page 885

039375,001175: 33,3227           06037                           TC       INTPRET                               
039376,001176: 33,3230           45246                           ABS      DSU                                   
039377,001177: 33,3231           02521                                    DELQFIX                               #  ABS(DELTAH) - DQFIX   50 FT NOM
039378,001178: 33,3232           45252                           SL3      DSU                                   #  SCALE TO 2(21)
039379,001179: 33,3233           03535                                    HCALC                                 #  ABS(DELTAH) - (50 + HCALC/8) AT 2(21)
039380,001180: 33,3234           77776                           EXIT                                           
039381,001181: 
039382,001182: 33,3235           25670                           INCR     LRLCTR                                
039383,001183: 33,3236           06723                           TC       BRANCH                                
039384,001184: 33,3237           13560                           TCF      HFAIL                                 #  DELTA H TOO LARGE
039385,001185: 33,3240           13560                           TCF      HFAIL                                 #  DELTA H TOO LARGE
039386,001186: 33,3241           05516                           TC       DOWNFLAG                              #  TURN OFF ALT FAIL LAMP
039387,001187: 33,3242           00263                           ADRES    HFLSHFLG                              
039388,001188: 
039389,001189: 33,3243           40107        NOREASON           CS       FLGWRD11                              
039390,001190: 33,3244           74744                           MASK     LRINHBIT                              
039391,001191: 33,3245           10000                           CCS      A                                     
039392,001192: 33,3246           13310                           TCF      VMEASCHK                              #  UPDATE INHIBITED - TEST VELOCITY ANYWAY
039393,001193: 
039394,001194: 33,3247           06037                           TC       INTPRET                               #  DO POSITION UPDATE
039395,001195: 33,3250           40545                           DLOAD    SR4                                   
039396,001196: 33,3251           03535                                    HCALC                                 #  RESCALE H TO 2(28)M
039397,001197: 33,3252           77776                           EXIT                                           
039398,001198: 33,3253           00006                           EXTEND                                         
039399,001199: 33,3254           31665                           DCA      DELTAH                                #  STORE DELTAH IN MPAC AND
039400,001200: 33,3255           52155                           DXCH     MPAC                                  #  BRING HCALC INTO A,L
039401,001201: 33,3256           07544                           TC       ALSIGNAG                              
039402,001202: 33,3257           00006                           EXTEND                                         #  IF HIGH PART OF HCALC IS NON ZERO, THEN
039403,001203: 33,3260           13262                           BZF      +2                                    #  HCALC > HMAX,
039404,001204: 33,3261           13310                           TCF      VMEASCHK                              #  SO UPDATE IS BYPASSED
039405,001205: 33,3262           54156                           TS       MPAC       +2                         #        FOR LATER SHORTMP
039406,001206: 
039407,001207: 33,3263           40001                           CS       L                                     #  -H AT 2(14) M
039408,001208: 33,3264           61420                           AD       LRHMAX                                #  HMAX - H
039409,001209: 33,3265           00006                           EXTEND                                         
039410,001210: 33,3266           63310                           BZMF     VMEASCHK                              #  IF H >HMAX, BYPASS UPDATE
039411,001211: 33,3267           00006                           EXTEND                                         
039412,001212: 33,3270           71421                           MP       LRWH                                  #  WH(HMAX - H)
039413,001213: 33,3271           00006                           EXTEND                                         
039414,001214: 33,3272           11420                           DV       LRHMAX                                #  WH(1 - H/HMAX)
039415,001215: 33,3273           54135                           TS       MPTEMP                                
039416,001216: 33,3274           07313                           TC       SHORTMP2                              #  DELTAH (WH)(1 - H/HMAX) IN MPAC
039417,001217: 33,3275           06037                           TC       INTPRET                               #  MODE IS DP FROM ABOVE
039418,001218: 33,3276           77752                           SL1                                            
039419,001219: 33,3277           53361                           VXSC     VAD                                   
039420,001220: 33,3300           03537                                    UNIT/R/                               #  DELTAR = DH(WH)(1 - H/HMAX) UNIT/R/
039421,001221: 33,3301           03573                                    R1S                                   
039422,001222: 33,3302           37657                           STCALL   GNUR                                  
039423,001223: 33,3303           67130                                    MUNGRAV                               
039424,001224: 33,3304           77776                           EXIT                                           

Page 886

039426,001226: 33,3305           03552                           TC       QUIKFAZ5                              
039427,001227: 
039428,001228: 33,3306           34755                           CA       ZERO                                  
039429,001229: 33,3307           03534        RUPDATED           TC       GNURVST                               
039430,001230: 
039431,001231: 33,3310           03552        VMEASCHK           TC       QUIKFAZ5                              #  RESTART AT NEXT LOCATION
039432,001232: 33,3311           40107                           CS       FLGWRD11                              
039433,001233: 33,3312           74745                           MASK     VELDABIT                              #  IS V READING AVAILABLE?
039434,001234: 33,3313           10000                           CCS      A                                     
039435,001235: 33,3314           13514                           TCF      VALTCHK                               #  NO   SEE IF V READING TO BE TAKEN
039436,001236: 
039437,001237: 33,3315           41651        VELUPDAT           CS       VSELECT                               #  PROCESS VELOCITY DATA
039438,001238: 33,3316           54001                           TS       L                                     
039439,001239: 33,3317           26001                           ADS      L                                     #  -2 VSELECT IN L
039440,001240: 33,3320           60001                           AD       L                                     
039441,001241: 33,3321           60001                           AD       L                                     #  -6 VSELECT IN A
039442,001242: 33,3322           50120                           INDEX    FIXLOC                                
039443,001243: 33,3323           52047                           DXCH     X1                                    #  X1 = -6 VSELECT, X2 = -2 VSELECT
039444,001244: 
039445,001245: 33,3324           34741                           CA       EBANK4                                
039446,001246: 33,3325           54003                           TS       EBANK                                 
039447,001247: 33,3326  E4,1654                                  EBANK=   LRXCDU                                
039448,001248: 
039449,001249: 33,3326           31655                           CA       LRYCDU                                #  STORE LRCDUS IN CDUSPOTS
039450,001250: 33,3327           54766                           TS       CDUSPOT                               
039451,001251: 33,3330           31656                           CA       LRZCDU                                
039452,001252: 33,3331           54770                           TS       CDUSPOT    +2                         
039453,001253: 33,3332           31654                           CA       LRXCDU                                
039454,001254: 33,3333           54772                           TS       CDUSPOT    +4                         
039455,001255: 
039456,001256: 33,3334           04616                           TC       BANKCALL                              
039457,001257: 33,3335           47615                           CADR     QUICTRIG                              #  GET SINES AND COSINES FOR NBSM
039458,001258: 
039459,001259: 33,3336           30120                           CA       FIXLOC                                
039460,001260: 33,3337           54166                           TS       PUSHLOC                               #  SET PD TO ZERO
039461,001261: 
039462,001262: 33,3340           06037                           TC       INTPRET                               
039463,001263: 33,3341           45173                           VLOAD*   CALL                                  
039464,001264: 33,3342           02231                                    VZBEAMNB,1                            #  CONVERT VBEAM FROM NB TO SM
039465,001265: 33,3343           47673                                    *NBSM*                                
039466,001266: 33,3344           54325                           PDDL     SL                                    #  STORE IN PD 0-5
039467,001267: 33,3345           03653                                    VMEAS                                 #  LOAD VELOCITY MEASUREMENT
039468,001268: 33,3346           20215                                    12D                                   
039469,001269: 33,3347           41403                           DMP*     PUSH                                  #  SCALE TO M/CS AT 2(6)
039470,001270: 33,3350           51764                                    VZSCAL,2                              #  AND STORE IN PD 6-7
039471,001271: 33,3351           77776                           EXIT                                           
039472,001272: 33,3352           44753                           CS       ONE                                   
039473,001273: 33,3353           54163                           TS       MODE                                  #  CHANGE STORE MODE TO VECTOR
039474,001274: 
039475,001275: 33,3354           31657                           CA       PIPTEM                                #  STORE DELV IN MPAC

Page 887

039477,001277: 33,3355           22007                           ZL                                             
039478,001278: 33,3356           52155                           DXCH     MPAC                                  
039479,001279: 
039480,001280: 33,3357           31660                           CA       PIPTEM     +1                         
039481,001281: 33,3360           22007                           ZL                                             
039482,001282: 33,3361           52160                           DXCH     MPAC       +3                         
039483,001283: 
039484,001284: 33,3362           31661                           CA       PIPTEM     +2                         
039485,001285: 33,3363           22007                           ZL                                             
039486,001286: 33,3364           52162                           DXCH     MPAC       +5                         
039487,001287: 
039488,001288: 33,3365           35016                           CA       EBANK7                                
039489,001289: 33,3366           54003                           TS       EBANK                                 #  RESTORE EBANK 7
039490,001290: 33,3367  E7,1515                                  EBANK=   DVCNTR                                
039491,001291: 33,3367           06037                           TC       INTPRET                               
039492,001292: 33,3370           65361                           VXSC     PDDL                                  
039493,001293: 33,3371           26022                                    KPIP1                                 #  SCALE DELV TO 2(7) M/CS AND PUSH
039494,001294: 33,3372           02253                                    LRVTIME                               #  TIME OF DELV AT 2(28) CS
039495,001295: 33,3373           56225                           DSU      DDV                                   
039496,001296: 33,3374           01235                                    PIPTIME                               #  TU - T(N-1)
039497,001297: 33,3375           27151                                    2SEC(28)                              
039498,001298: 33,3376           76561                           VXSC     VSL1                                  #  G(N-1)(TU - T(N-1))
039499,001299: 33,3377           01237                                    GDT/2                                 #  SCALED AT 2(7) M/CS
039500,001300: 33,3400           53255                           VAD      VAD                                   #  PUSH UP FOR DELV
039501,001301: 33,3401           03527                                    V                                     #  VU = V(N-1) + DELVU + G(N-1) DTU
039502,001302: 33,3402           53352                           VSL2     VAD                                   #  SCALE TO 2(5) M/CS AND SUBTRACT
039503,001303: 33,3403           03734                                    DELVS                                 #        MOON ROTATION.
039504,001304: 33,3404           51406                           PUSH     ABVAL                                 #  STORE IN PD
039505,001305: 33,3405           43202                           SR4      DAD                                   #  ABS(VM)/8 + 7.5 AT 2(6)
039506,001306: 33,3406           27145                                    7.5                                   
039507,001307: 33,3407           24025                           STOVL    20D                                   #  STORE IN 20D AND PICK UP VM
039508,001308: 33,3410           44241                           DOT      BDSU                                  #  V(EST) AT 2(6)
039509,001309: 33,3411           00001                                    0                                     #  DELTAV = VMEAS - V(EST)
039510,001310: 33,3412           51406                           PUSH     ABS                                   
039511,001311: 33,3413           77425                           DSU      EXIT                                  #  ABS(DV) - (7.5 + ABS(VM)/8))
039512,001312: 33,3414           00025                                    20D                                   
039513,001313: 
039514,001314: 33,3415           25672                           INCR     LRMCTR                                
039515,001315: 33,3416           06723                           TC       BRANCH                                
039516,001316: 33,3417           13575                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039517,001317: 33,3420           13575                           TCF      VFAIL                                 #  DELTA V TOO LARGE     ALARM
039518,001318: 
039519,001319: 33,3421           05516                           TC       DOWNFLAG                              #  TURN OFF VEL FAIL LAMP
039520,001320: 33,3422           00262                           ADRES    VFLSHFLG                              
039521,001321: 
039522,001322: 33,3423           30107                           CA       FLGWRD11                              
039523,001323: 33,3424           74740                           MASK     VXINHBIT                              
039524,001324: 33,3425           00006                           EXTEND                                         
039525,001325: 33,3426           13435                           BZF      VUPDAT                                #  IF VX INHIBIT RESET, INCORPORATE DATA.

Page 888

039527,001327: 33,3427           05516                           TC       DOWNFLAG                              
039528,001328: 33,3430           00250                           ADRES    VXINH                                 #  RESET VX INHIBIT
039529,001329: 
039530,001330: 33,3431           31651                           CA       VSELECT                               
039531,001331: 33,3432           67746                           AD       NEG2                                  #  IF VSELECT = 2 (X AXIS),
039532,001332: 33,3433           00006                           EXTEND                                         #  BYPASS UPDATE
039533,001333: 33,3434           13514                           BZF      ENDVDAT                               
039534,001334: 
039535,001335: 33,3435           40107        VUPDAT             CS       FLGWRD11                              
039536,001336: 33,3436           74744                           MASK     LRINHBIT                              
039537,001337: 33,3437           10000                           CCS      A                                     
039538,001338: 33,3440           13514                           TCF      VALTCHK                               #  UPDATE INHIBITED
039539,001339: 
039540,001340: 33,3441           54155                           TS       MPAC       +1                         
039541,001341: 
039542,001342: 33,3442           31471                           CA       ABVEL                                 #  STORE E7 ERASABLES NEEDED IN TEMPS
039543,001343: 33,3443           54130                           TS       ABVEL*                                
039544,001344: 33,3444           31651                           CA       VSELECT                               
039545,001345: 33,3445           54131                           TS       VSELECT*                              
039546,001346: 33,3446           35014                           CA       EBANK5                                
039547,001347: 33,3447           54003                           TS       EBANK                                 #  CHANGE EBANKS
039548,001348: 
039549,001349: 33,3450  E5,1527                                  EBANK=   LRVF                                  
039550,001350: 33,3450           41527                           CS       LRVF                                  
039551,001351: 33,3451           60130                           AD       ABVEL*                                #  IF V < VF, USE WVF
039552,001352: 33,3452           00006                           EXTEND                                         
039553,001353: 33,3453           63466                           BZMF     USEVF                                 
039554,001354: 
039555,001355: 33,3454           40130                           CS       ABVEL*                                
039556,001356: 33,3455           61526                           AD       LRVMAX                                #  VMAX - V
039557,001357: 33,3456           00006                           EXTEND                                         
039558,001358: 33,3457           63471                           BZMF     WSTOR      -1                         #  IF V > VMAX, W = 0
039559,001359: 
039560,001360: 33,3460           00006                           EXTEND                                         
039561,001361: 33,3461           50131                           INDEX    VSELECT*                              
039562,001362: 33,3462           71530                           MP       LRWVZ                                 #  WV(VMAX - V)
039563,001363: 
039564,001364: 33,3463           00006                           EXTEND                                         
039565,001365: 33,3464           11526                           DV       LRVMAX                                #  WV( 1 - V/VMAX )
039566,001366: 33,3465           13472                           TCF      WSTOR                                 
039567,001367: 
039568,001368: 33,3466           50131        USEVF              INDEX    VSELECT*                              
039569,001369: 33,3467           31533                           CA       LRWVFZ                                #  USE APPROPRIATE CONSTANT WEIGHT
039570,001370: 33,3470           13472                           TCF      WSTOR                                 
039571,001371: 
039572,001372: 33,3471           34755                 -1        CA       ZERO                                  
039573,001373: 33,3472           54154        WSTOR              TS       MPAC                                  
039574,001374: 33,3473           44745                           CS       BIT7                                  #  (=64D)
039575,001375: 33,3474           61011                           AD       MODREG                                
039576,001376: 33,3475           00006                           EXTEND                                         

Page 889

039578,001378: 33,3476           63501                           BZMF     +3                                    #  IF IN P65,P66,P67, USE ANOTHER CONSTANT
039579,001379: 
039580,001380: 33,3477           31536                           CA       LRWVFF                                
039581,001381: 33,3500           54154                           TS       MPAC                                  
039582,001382: 
039583,001383: 33,3501           35016                 +3        CA       EBANK7                                
039584,001384: 33,3502           54003                           TS       EBANK                                 #  CHANGE EBANKS
039585,001385: 
039586,001386: 33,3503  E7,1471                                  EBANK=   ABVEL                                 
039587,001387: 33,3503           06037                           TC       INTPRET                               
039588,001388: 33,3504           74205                           DMP      VXSC                                  #  W(DELTA V)(VBEAMSM) UP 6-7, 0-5
039589,001389: 33,3505           77655                           VAD                                            
039590,001390: 33,3506           03601                                    V1S                                   #  ADD WEIGHTED DELTA V TO VELOCITY
039591,001391: 33,3507           03657                           STORE    GNUV                                  
039592,001392: 33,3510           77776                           EXIT                                           
039593,001393: 
039594,001394: 33,3511           03552                           TC       QUIKFAZ5                              #  DO NOT RE-UPDATE
039595,001395: 
039596,001396: 33,3512           36242                           CA       SIX                                   
039597,001397: 33,3513           03534        VUPDATED           TC       GNURVST                               #  STORE NEW VELOCITY VECTOR
039598,001398: 33,3514  33,3514               ENDVDAT            =        VALTCHK                               
039599,001399: 
039600,001400: 33,3514           03552        VALTCHK            TC       QUIKFAZ5                              #  DO NOT REPEAT ABOVE
039601,001401: 
039602,001402: 33,3515           34747                           CAF      READVBIT                              #  TEST READVEL TO SEE IF VELOCITY READING
039603,001403: 33,3516           70107                           MASK     FLGWRD11                              #  IS DESIRED.
039604,001404: 33,3517           10000                           CCS      A                                     
039605,001405: 33,3520           13527                           TCF      READV                                 #  TES - READ VELOCITY
039606,001406: 33,3521           41471                           CS       ABVEL                                 #  NO - SEE IF VELOCITY < 2000 FT/SEC
039607,001407: 33,3522           62707                           AD       2KFT/SEC                              
039608,001408: 33,3523           00006                           EXTEND                                         
039609,001409: 33,3524           62540                           BZMF     CONTSERV                              #  V > 2000 FT/SEC  DO NOT READ VEL
039610,001410: 
039611,001411: 33,3525           05504                           TC       UPFLAG                                #  V < 2000 FT/SEC  SET READVEL AND READ
039612,001412: 33,3526           00257                           ADRES    READVEL                               
039613,001413: 
039614,001414: 33,3527           37720        READV              CAF      PRIO32                                #  SET UP JOB TO READ VELOCITY BEAMS.
039615,001415: 33,3530           05072                           TC       NOVAC                                 
039616,001416: 33,3531  E7,1654                                  EBANK=   HMEAS                                 
039617,001417: 33,3531           03616 66067                     2CADR    LRVJOB                                
039618,001418: 
039619,001419: 33,3533           12540                           TCF      CONTSERV                              #  CONTINUE WITH SERVICER
039620,001420: 
039621,001421: 33,3534           54130        GNURVST            TS       BUF                                   #  STORE GNUR (=GNUV) IN R1S OR V1S
039622,001422: 33,3535           00006                           EXTEND                                         #  A = 0 FOR R, A = 6 FOR V
039623,001423: 33,3536           31657                           DCA      GNUR                                  
039624,001424: 33,3537           50130                           INDEX    BUF                                   
039625,001425: 33,3540           53573                           DXCH     R1S                                   
039626,001426: 33,3541           00006                           EXTEND                                         

Page 890

039628,001428: 33,3542           31661                           DCA      GNUR       +2                         
039629,001429: 33,3543           50130                           INDEX    BUF                                   
039630,001430: 33,3544           53575                           DXCH     R1S        +2                         
039631,001431: 33,3545           00006                           EXTEND                                         
039632,001432: 33,3546           31663                           DCA      GNUR       +4                         
039633,001433: 33,3547           50130                           INDEX    BUF                                   
039634,001434: 33,3550           53577                           DXCH     R1S        +4                         
039635,001435: 33,3551           00002                           TC       Q                                     
039636,001436: 
039637,001437: 33,3552           35007        QUIKFAZ5           CA       EBANK3                                
039638,001438: 33,3553           56003                           XCH      EBANK                                 #  SET EBANK 3
039639,001439: 33,3554           52002                           DXCH     L                                     #  Q TO A, A TO L
039640,001440: 33,3555  E3,1446                                  EBANK=   PHSNAME5                              
039641,001441: 33,3555           55446                           TS       PHSNAME5                              
039642,001442: 33,3556           22003                           LXCH     EBANK                                 
039643,001443: 33,3557  E7,1515                                  EBANK=   DVCNTR                                
039644,001444: 33,3557           00000                           TC       A                                     
039645,001445: 
039646,001446: 33,3560           41671        HFAIL              CS       LRRCTR                                
039647,001447: 33,3561           00006                           EXTEND                                         
039648,001448: 33,3562           13572                           BZF      NORLITE                               #  IF R = 0, DO NOT TURN ON TRK FAIL
039649,001449: 33,3563           61670                           AD       LRLCTR                                
039650,001450: 33,3564           77745                           MASK     NEG3                                  
039651,001451: 33,3565           00006                           EXTEND                                         #  IF L-R LT 4, DO NOT TURN ON TRK FAIL
039652,001452: 33,3566           13570                           BZF      +2                                    
039653,001453: 33,3567           13572                           TCF      NORLITE                               
039654,001454: 
039655,001455: 33,3570           05504                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039656,001456: 33,3571           00263                           ADRES    HFLSHFLG                              
039657,001457: 
039658,001458: 33,3572           31670        NORLITE            CA       LRLCTR                                
039659,001459: 33,3573           55671                           TS       LRRCTR                                #  SET R = L
039660,001460: 
039661,001461: 33,3574           13310                           TCF      VMEASCHK                              
039662,001462: 
039663,001463: 33,3575           41673        VFAIL              CS       LRSCTR                                #  DELTA Q LARGE
039664,001464: 33,3576           00006                           EXTEND                                         #  IF S = 0, DO NOT TURN ON TRACKER FAIL
039665,001465: 33,3577           13607                           BZF      NOLITE                                
039666,001466: 33,3600           61672                           AD       LRMCTR                                #  M-S
039667,001467: 33,3601           77745                           MASK     NEG3                                  #  TEST FOR M-S > 3
039668,001468: 33,3602           00006                           EXTEND                                         #  IF M-S > 3, THEN TWO OR MORE OF THE
039669,001469: 33,3603           13605                           BZF      +2                                    #        LAST FOUR V READINGS WERE BAD,
039670,001470: 33,3604           13607                           TCF      NOLITE                                #        SO TURN ON VELOCITY FAIL LIGHT
039671,001471: 
039672,001472: 33,3605           05504                           TC       UPFLAG                                #  AND SET BIT TO TURN ON TRACKER FAIL LITE
039673,001473: 33,3606           00262                           ADRES    VFLSHFLG                              
039674,001474: 

Page 891

039676,001476: 33,3607           31672        NOLITE             CA       LRMCTR                                #  SET S = M
039677,001477: 33,3610           55673                           TS       LRSCTR                                
039678,001478: 
039679,001479: 33,3611           11651                           CCS      VSELECT                               #  TEST FOR Z COMPONENT
039680,001480: 33,3612           13514                           TCF      ENDVDAT                               #  NOT Z, DO NOT SET VX INHIBIT
039681,001481: 
039682,001482: 33,3613           05504                           TC       UPFLAG                                #  Z COMPONENT - SET FLAG TO SKIP X
039683,001483: 33,3614           00250                           ADRES    VXINH                                 #  COMPONENT, AS ERROR MAY BE DUE TO CROSS
039684,001484: 33,3615           13514                           TCF      ENDVDAT                               #  LOBE LOCK UP NOT DETECTED ON X AXIS.
039685,001485: 

Page 892

039687,001487:                                                                                                  #  ********************************************************************************************************
039688,001488:                                                                                                  #  LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
039689,001489:                                                                                                  #  THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
039690,001490:                                                                                                  #  SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
039691,001491:                                                                                                  #  WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
039692,001492:                                                                                                  #  IS SET.  THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
039693,001493: 
039694,001494: 33,3616     4361               170MS              EQUALS   ND1                                   
039695,001495: 
039696,001496: 33,3616           34361        LRVJOB             CA       170MS                                 #  SET TASK TO READ CDUS + PIPAS
039697,001497: 33,3617           05203                           TC       WAITLIST                              
039698,001498: 33,3620  E4,1652                                  EBANK=   LRVTIME                               
039699,001499: 33,3620           03757 70064                     2CADR    RDGIMS                                
039700,001500: 
039701,001501: 33,3622           11651                           CCS      VSELECT                               #  SEQUENCE LR VEL BEAM SELECTOR
039702,001502: 33,3623           13625                           TCF      +2                                    
039703,001503: 33,3624           34752                           CAF      TWO                                   #  IF ZERO-RESET TO TWO
039704,001504: 33,3625           60000                           DOUBLE                                         #  2XVSELECT USED FOR VBEAM INDEX IN LRVEL
039705,001505: 33,3626           04616                           TC       BANKCALL                              #  GO INITIALIZE LR VEL READ ROUTINE
039706,001506: 33,3627           53107                           CADR     LRVEL                                 
039707,001507: 33,3630           04616                           TC       BANKCALL                              #  PUT LRVJOB TO SLEEP ABOUT 500 MS
039708,001508: 33,3631           17714                           CADR     RADSTALL                              
039709,001509: 33,3632           13665                           TCF      VBAD                                  
039710,001510: 33,3633           11675                           CCS      STILBADV                              #  IS DATA GOOD JUST PRESENT?
039711,001511: 33,3634           13666                           TCF      VSTILBAD                              #  JUST GOOD - MUST WAIT 4 SECONDS.
039712,001512: 
039713,001513: 33,3635           00004                           INHINT                                         
039714,001514: 33,3636           00006                           EXTEND                                         #  GOOD RETURN-STOW AWAY VMEAS
039715,001515: 33,3637           31102                           DCA      SAMPLSUM                              
039716,001516: 33,3640           53653                           DXCH     VMEAS                                 
039717,001517: 33,3641           34741                           CA       EBANK4                                #  FOR DOWNLINK
039718,001518: 33,3642           54003                           TS       EBANK                                 
039719,001519: 33,3643  E4,1652                                  EBANK=   LRVTIME                               
039720,001520: 
039721,001521: 33,3643           00006                           EXTEND                                         
039722,001522: 33,3644           31653                           DCA      LRVTIME                               
039723,001523: 33,3645           53740                           DXCH     LRVTIMDL                              
039724,001524: 33,3646           00006                           EXTEND                                         
039725,001525: 33,3647           31655                           DCA      LRXCDU                                
039726,001526: 33,3650           53735                           DXCH     LRXCDUDL                              
039727,001527: 33,3651           31656                           CA       LRZCDU                                
039728,001528: 33,3652           55736                           TS       LRZCDUDL                              
039729,001529: 33,3653           35016                           CA       EBANK7                                
039730,001530: 33,3654           54003                           TS       EBANK                                 
039731,001531: 33,3655  E7,1651                                  EBANK=   VSELECT                               
039732,001532: 
039733,001533: 33,3655           40107                           CS       FLGWRD11                              #  SET BIT TO INDICATE VELOCITY
039734,001534: 33,3656           74745                           MASK     VELDABIT                              #  MEASUREMENT MADE.

Page 893

039736,001536: 33,3657           26107                           ADS      FLGWRD11                              
039737,001537: 33,3660           11651        ENDLRV             CCS      VSELECT                               #  UPDATE VSELECT
039738,001538: 33,3661           13663                           TCF      +2                                    
039739,001539: 33,3662           34752                           CA       TWO                                   
039740,001540: 33,3663           55651                           TS       VSELECT                               
039741,001541: 33,3664           15155                           TCF      ENDOFJOB                              
039742,001542: 
039743,001543: 33,3665           34752        VBAD               CAF      TWO                                   #  SET STILBAD TO WAIT 4 SECONDS
039744,001544: 33,3666           55675        VSTILBAD           TS       STILBADV                              
039745,001545: 33,3667           13660                           TCF      ENDLRV                                
039746,001546: 
039747,001547:                                                                                                  #  LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT.  THIS JOB
039748,001548:                                                                                                  #  INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
039749,001549:                                                                                                  #  SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS.  WITH A GOODEND RETURN
039750,001550:                                                                                                  #  THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
039751,001551: 
039752,001552: 34,3716                                           BANK     34                                    
039753,001553: 34,2000                                           SETLOC   R12STUFF                              
039754,001554: 34,2000                                           BANK                                           
039755,001555: 
039756,001556: 34,3716                                           COUNT*   $$/SERV                               
039757,001557: 
039758,001558: 34,3716           04616        LRHJOB             TC       BANKCALL                              #  INITIATE LR ALT MEASUREMENT
039759,001559: 34,3717           53073                           CADR     LRALT                                 
039760,001560: 34,3720           04616                           TC       BANKCALL                              #  LRHJOB TO SLEEP ABOUT 95MS
039761,001561: 34,3721           17714                           CADR     RADSTALL                              
039762,001562: 34,3722           13745                           TCF      HBAD                                  
039763,001563: 34,3723           11674                           CCS      STILBADH                              #  IS DATA GOOD JUST PRESENT?
039764,001564: 34,3724           13755                           TCF      HSTILBAD                              #  JUST GOOD - MUST WAIT 4 SECONDS.
039765,001565: 
039766,001566: 34,3725           00004                           INHINT                                         
039767,001567: 34,3726           00006                           EXTEND                                         
039768,001568: 34,3727           31102                           DCA      SAMPLSUM                              #  GOOD RETURN-STORE AWAY LRH DATA
039769,001569: 34,3730           53655                           DXCH     HMEAS                                 #  LRH DATA 1.079 FT/BIT
039770,001570: 34,3731           00006                           EXTEND                                         #  FOR DOWNLINK
039771,001571: 34,3732           31561                           DCA      PIPTIME1                              
039772,001572: 34,3733           53755                           DXCH     MKTIME                                
039773,001573: 
039774,001574: 34,3734           00006                           EXTEND                                         
039775,001575: 34,3735           31157                           DCA      CDUTEMPY                              #  CDUY,Z = AIG,AMG
039776,001576: 34,3736           53460                           DXCH     AIG                                   
039777,001577: 
039778,001578: 34,3737           31155                           CA       CDUTEMPX                              #  CDUX = AOG
039779,001579: 34,3740           55461                           TS       AOG                                   
039780,001580: 
039781,001581: 34,3741           40107                           CS       FLGWRD11                              #  SET BIT TO INDICATE RANGE
039782,001582: 34,3742           74750                           MASK     RNGEDBIT                              #  MEASUREMENT MADE.
039783,001583: 34,3743           26107                           ADS      FLGWRD11                              
039784,001584: 34,3744           05155        ENDLRH             TC       ENDOFJOB                              #  TERMINATE LRHJOB
039785,001585: 

Page 894

039787,001587: 34,3745           30101        HBAD               CA       FLAGWRD5                              
039788,001588: 34,3746           74742                           MASK     RNGSCBIT                              #  IS BAD RETURN DUE TO SCALE CHANGE?
039789,001589: 34,3747           00006                           EXTEND                                         
039790,001590: 34,3750           13754                           BZF      HSTILBAD   -1                         #  NO  RESET HSTILBAD
039791,001591: 34,3751           05516                           TC       DOWNFLAG                              #  YES  RESET SCALE CHANGE BIT AND IGNORE
039792,001592: 34,3752           00120                           ADRES    RNGSCFLG                              
039793,001593: 34,3753           05155                           TC       ENDOFJOB                              
039794,001594: 
039795,001595: 34,3754           34752                           CAF      TWO                                   #  SET STILBAD TO WAIT 4 SECONDS
039796,001596: 34,3755           55674        HSTILBAD           TS       STILBADH                              
039797,001597: 34,3756           05155                           TC       ENDOFJOB                              
039798,001598: 
039799,001599: 34,3757                                           BANK     34                                    
039800,001600: 34,2000                                           SETLOC   SERV4                                 
039801,001601: 34,2000                                           BANK                                           
039802,001602: 
039803,001603: 34,3757                                           COUNT*   $$/SERV                               
039804,001604: 
039805,001605:                                                                                                  #  RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
039806,001606:                                                                                                  #  AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
039807,001607:                                                                                                  #  ARE SPECIFIED.
039808,001608: 
039809,001609: 34,3757  E4,1652                                  EBANK=   LRVTIME                               
039810,001610: 34,3757           00006        RDGIMS             EXTEND                                         
039811,001611: 34,3760           30025                           DCA      TIME2                                 #  PICK UP TIME2, TIME1
039812,001612: 34,3761           53653                           DXCH     LRVTIME                               #        AND SAVE IN LRVTIME
039813,001613: 
039814,001614: 34,3762           00006                           EXTEND                                         
039815,001615: 34,3763           30033                           DCA      CDUX                                  #  PICK UP CDUX AND CDUY
039816,001616: 34,3764           53655                           DXCH     LRXCDU                                #        AND SAVE IN LRXCDU AND LRYCDU
039817,001617: 
039818,001618: 34,3765           30034                           CA       CDUZ                                  
039819,001619: 34,3766           55656                           TS       LRZCDU                                #  SAVE CDUZ IN LRZCDU
039820,001620: 
039821,001621: 34,3767           30037                           CA       PIPAX                                 
039822,001622: 34,3770           55657                           TS       PIPTEM                                #  SAVE PIPAX IN PIPTEM
039823,001623: 
039824,001624: 34,3771           00006                           EXTEND                                         
039825,001625: 34,3772           30041                           DCA      PIPAY                                 #  PICK UP PIPAY AND PIPAZ
039826,001626: 34,3773           53661                           DXCH     PIPTEM     +1                         #        AND SAVE IN PIPTEM +1 AND PIPTEM +2
039827,001627: 34,3774           05261                           TC       TASKOVER                              
039828,001628: 
039829,001629: 33,3670                                           BANK     33                                    
039830,001630: 33,2000                                           SETLOC   SERVICES                              
039831,001631: 33,2000                                           BANK                                           
039832,001632: 
039833,001633: 33,3670                                           COUNT*   $$/SERV                               
039834,001634: 
039835,001635: 33,3670  E7,1515                                  EBANK=   DVCNTR                                

Page 895

039837,001637:                                                                                                  #  HIGATJOB IS SET APPROXIMATELY 6 SECONDS PRIOR TO HIGH GATE DURING
039838,001638:                                                                                                  #  THE DESCENT BURN PHASE OF LUNAR LANDING.  THIS JOB INITIATES THE
039839,001639:                                                                                                  #  LANDING RADAR REPOSITIONING ROUTINE AND GOES TO SLEEP UNTIL THE
039840,001640:                                                                                                  #  LR ANTENNA MOVES FROM POSITION 1 TO POSITION 2.  IF THE LR ANTENNA
039841,001641:                                                                                                  #  ACHIEVES POSITION 2 WITHIN 22 SECONDS THE ALTITUDE AND VELOCITY
039842,001642:                                                                                                  #  BEAM VECTORS ARE RECOMPUTED TO REFLECT THE NEW ORIENTATION WITH
039843,001643:                                                                                                  #  RESPECT TO THE NB.  BIT10 OF LRSTAT IS CLEARED TO ALLOW LR
039844,001644:                                                                                                  #  MEASUREMENTS AND THE JOB TERMINATES.
039845,001645: 
039846,001646: 33,3670           04616        HIGATJOB           TC       BANKCALL                              #  START LRPOS2 JOB
039847,001647: 33,3671           53471                           CADR     LRPOS2                                
039848,001648: 33,3672           04616                           TC       BANKCALL                              #  PUT HIGATJOB TO SLEEP UNTIL JOB IS DONE
039849,001649: 33,3673           17714                           CADR     RADSTALL                              
039850,001650: 33,3674           13703                           TCF      POSALARM                              #  BAD END    ALARM
039851,001651: 
039852,001652: 33,3675           37711        POSGOOD            CA       PRIO23                                #  REDUCE PRIORITY FOR INTERPRETIVE COMPS.
039853,001653: 33,3676           05146                           TC       PRIOCHNG                              
039854,001654: 
039855,001655: 33,3677           03737                           TC       SETPOS2                               #  LR IN POS2 - SET UP TRANSFORMATIONS
039856,001656: 
039857,001657: 33,3700           05516                           TC       DOWNFLAG                              
039858,001658: 33,3701           00252                           ADRES    NOLRREAD                              #  RESET NOLRREAD FLAG TO ENABLE LR READING
039859,001659: 33,3702           05155                           TC       ENDOFJOB                              
039860,001660: 
039861,001661: 33,3703           33720        POSALARM           CA       OCT523                                
039862,001662: 33,3704           04616                           TC       BANKCALL                              
039863,001663: 33,3705           21562                           CADR     PRIOLARM                              #  FLASH ALARM CODE
039864,001664: 33,3706           16001                           TCF      GOTOPOOH                              #  TERMINATE
039865,001665: 33,3707           13712                           TCF      +3                                    #  PROCEED - TRY AGAIN
039866,001666: 33,3710           15155                           TCF      ENDOFJOB                              #  V 32 E    TERMINATE R12
039867,001667: 33,3711           05155                           TC       ENDOFJOB                              
039868,001668: 
039869,001669: 33,3712           34745                 +3        CA       BIT7                                  #  SEE IF IN POS2 YET
039870,001670: 33,3713           00006                           EXTEND                                         
039871,001671: 33,3714           02033                           RAND     CHAN33                                
039872,001672: 33,3715           00006                           EXTEND                                         
039873,001673: 33,3716           13675                           BZF      POSGOOD                               #  POS2 ACHIEVED   SET UP ANTENNA BEAMS
039874,001674: 33,3717           13703                           TCF      POSALARM                              #  STILL DIDN'T MAKE IT   REALARM
039875,001675: 
039876,001676: 33,3720           00523        OCT523             OCT      00523                                 
039877,001677: 
039878,001678: 
039879,001679: 
039880,001680: 33,3721           04645        SETPOS1            TC       MAKECADR                              #  MUST BE CALLED BY BANKCALL
039881,001681: 33,3722           55656                           TS       LRADRET1                              #  SAVE RETURN CADR, SINCE BUF2 CLOBBERED
039882,001682: 
039883,001683: 33,3723           34752                           CAF      TWO                                   
039884,001684: 33,3724           55674                           TS       STILBADH                              #  INITIALIZE STILBAD
039885,001685: 33,3725           55675                           TS       STILBADV                              #  INITIALIZE STILBAD
039886,001686: 
039887,001687: 33,3726           34755                           CA       ZERO                                  #  INDEX FOR LRALPHA,LRBETA IN POS 1.

Page 896

039889,001689: 33,3727           55670                           TS       LRLCTR                                #  SET L,M,R, ANS S TO ZERO
039890,001690: 33,3730           55672                           TS       LRMCTR                                
039891,001691: 33,3731           55671                           TS       LRRCTR                                
039892,001692: 33,3732           55673                           TS       LRSCTR                                
039893,001693: 33,3733           55651                           TS       VSELECT                               #  INITIALIZE VSELECT
039894,001694: 
039895,001695: 33,3734           03740                           TC       SETPOS                                #  CONTINUE WITH COMPUTATIONS
039896,001696: 
039897,001697: 33,3735           31656                           CA       LRADRET1                              
039898,001698: 33,3736           04640                           TC       BANKJUMP                              #  RETURN TO CALLER
039899,001699: 
039900,001700: 33,3737           34752        SETPOS2            CA       TWO                                   #  INDEX FOR POS2
039901,001701: 33,3740           56002        SETPOS             XCH      Q                                     #  SAVE INDEX IN Q
039902,001702: 33,3741           55650                           TS       LRADRET                               #  SAVE RETURN
039903,001703: 
039904,001704: 33,3742           35014                           CA       EBANK5                                
039905,001705: 33,3743           54003                           TS       EBANK                                 
039906,001706: 33,3744  E5,1522                                  EBANK=   LRALPHA                               
039907,001707: 
039908,001708: 33,3744           00006                           EXTEND                                         
039909,001709: 33,3745           50002                           INDEX    Q                                     
039910,001710: 33,3746           31523                           DCA      LRALPHA                               #  LRALPHA IN A, LRBETA IN L
039911,001711: 33,3747           54772                           TS       CDUSPOT    +4                         #  ROTATION ABOUT X
039912,001712: 33,3750           22766                           LXCH     CDUSPOT                               #  ROTATION ABOUT Y
039913,001713: 33,3751           34755                           CA       ZERO                                  
039914,001714: 33,3752           54770                           TS       CDUSPOT    +2                         #  ZERO ROTATION ABOUT Z.
039915,001715: 
039916,001716: 33,3753           35016                           CA       EBANK7                                
039917,001717: 33,3754           54003                           TS       EBANK                                 
039918,001718: 33,3755  E7,1650                                  EBANK=   LRADRET                               
039919,001719: 
039920,001720: 33,3755           06037                           TC       INTPRET                               
039921,001721: 33,3756           45175                           VLOAD    CALL                                  
039922,001722: 33,3757           06516                                    UNITY                                 #  CONVERT UNITY(ANTENNA) TO NB
039923,001723: 33,3760           47651                                    TRG*SMNB                              
039924,001724: 33,3761           26237                           STOVL    VYBEAMNB                              
039925,001725: 33,3762           06520                                    UNITX                                 #  CONVERT UNITX(ANTENNA) TO NB
039926,001726: 33,3763           77624                           CALL                                           
039927,001727: 33,3764           47671                                    *SMNB*                                
039928,001728: 33,3765           02245                           STORE    VXBEAMNB                              
039929,001729: 33,3766           76435                           VXV      VSL1                                  
039930,001730: 33,3767           02237                                    VYBEAMNB                              
039931,001731: 33,3770           26231                           STOVL    VZBEAMNB                              #  Z = X * Y
039932,001732: 33,3771           26003                                    HBEAMANT                              
039933,001733: 33,3772           77624                           CALL                                           
039934,001734: 33,3773           47671                                    *SMNB*                                #  CONVERT TO NB
039935,001735: 33,3774           02273                           STORE    HBEAMNB                               
039936,001736: 33,3775           77776                           EXIT                                           
039937,001737: 

Page 897

039939,001739: 33,3776           01650                           TC       LRADRET                               
039940,001740: 

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